1 C00   19:30 JUN 20,'83                                                                          PAGE    1
A      1                     1.000  +1,1                                                                *H00
       2                     1.010           PCC                                                        *H00
       3                     1.020  VERSION  EQU      C'H01'                                            *H00
       4                     3.000  +3,5                                                                *H00
       5                     3.010  TITLE    EQU      S:PT('TELEFILE OPERATOR CONSOLE DIAGNOSTIC ',;    *H00
       6                     3.020                    '960-',CATALOG,'-',VERSION)                       *H00
       7                     3.030           SPACE                                                      *H00
       8                   170.000  +170,170                                                            *H01
       9                   170.010  BAUDMODE DATA     1                 AUTOBAUD MODE                   *H01
      10                   223.000  +223,223                                                            *H01
      11                   223.010   REV '  P2: BAUD RATE DETERMINATION (0=>AUTOMATIC, 1=>ASSUME 110)'  *H01
      12                   279.000  +279,280                                                            *H01
      13                   291.000  +291,293                                                            *H01
      14                   318.000  +318                                                                *H00
      15                   318.010           SPACE                                                      *H00
      16                   318.020           MTW,0    BAUDMODE          IF AUTOBAUD SUPPRESSED          *H01
      17                   318.030           BNEZ     INIT1              ASSUME 110 BAUD BY DEFAULT     *H01
      18                   350.000  +350,350                                                            *H00
      19                   350.010  INIT1    LI,15    100                                               *H00
      20                   358.000  +358                                                                *H01
      21                   358.010           SPACE                                                      *H01
      22                   358.020           CI,13    9999              GUARD AGAINST                   *H01
      23                   358.030           BLE      %+2                MESSAGE FIELD OVERFLOW         *H01
      24                   358.040           LI,13    9999                                              *H01
      25                   365.000  +365                                                                *H01
      26                   365.010           SPACE                                                      *H01
      27                   365.020  REVBRNCH BAL,R15  REVPRINT          DISPLAY REVISIONS               *H01
      28                   372.000  +372,372                                                            *H00
      29                   372.010  BYTETIME DATA     100               100MS DEFAULT FOR 110 BAUD      *H00
      30                  1044.000  +1044,1044                                                          *H00
      31                  1044.010           BLE      T1S2N3            BYTE COUNT AT MOST 1, IF NOT 0  *H00
      32                  1057.000  +1057,1068                                                          *H01
      33                  1057.010           SPACE                                                      *H01
      34                  1757.000  +1757,1757                                                          *H00
      35                  1757.010           BGE      T1S6D             IOCD1 OR IOCD2                  *H00
      36                  9999.999  +END
1 C00   19:30 JUN 20,'83                                                                          PAGE    2
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   19:30 JUN 20,'83                                                                          PAGE    3
A       1*                                    PCC                                                        *H00
        2*        TEXT               VERSION  EQU      C'H01'                                            *H00
        2         TEXT               CATALOG  EQU      C'0611'
        1*                           TITLE    EQU      S:PT('TELEFILE OPERATOR CONSOLE DIAGNOSTIC ',;    *H00
        2*        TEXT                                 '960-',CATALOG,'-',VERSION)                       *H00

        6                                     SYSTEM   SIG9P

        8         00000000           R0       EQU      0
        9         00000001           R1       EQU      1
       10         00000002           R2       EQU      2
       11         00000003           R3       EQU      3
       12         00000004           R4       EQU      4
       13         00000005           R5       EQU      5
       14         00000006           R6       EQU      6
       15         00000007           R7       EQU      7
       16         00000008           R8       EQU      8
       17         00000009           R9       EQU      9
       18         0000000A           R10      EQU      X'A'
       19         0000000B           R11      EQU      X'B'
       20         0000000C           R12      EQU      X'C'
       21         0000000D           R13      EQU      X'D'
       22         0000000E           R14      EQU      X'E'
       23         0000000F           R15      EQU      X'F'

       25                            *  PROCEDURES
       26                            *  ----------
       27                            *
       28                            * PROCEDURE FOR GENERATING DICTIONARY DOUBLE-WORDS
       29                            *
       30         00000000           :PROCDIC CNAME
       31                                     PROC
       32                            LF       GEN,32,3,3,3,3,4,16  AF(1),ABSVAL(AF(2)),ABSVAL(AF(3)),;
       33                                                          ABSVAL(AF(4)),ABSVAL(AF(5)),;
       34                                                          ABSVAL(AF(6)),ABSVAL(AF(7))
       35                                     PEND

       37                            *  MONITOR LINK TABLE
       38                            *  ------------------
       39                            *                     THIS TABLE IS LOADED BY THE MONITOR FOR THE
       40                            *  PURPOSE OF ESTABLISHING COMMUNICATIONS BETWEEN THE TEST PROGRAM AND
       41                            *  THE MONITOR (DPM).
       42                            *
       43   01 00200                          ORG      X'200'
            01 00200
       44         01 00200           :MLT     EQU      %                 ABSOLUTE RECOVERY LOCATION
       45         01 00201           :P1      EQU      :MLT+1            DIRECTIVE PARAMETER 1
       46         01 00202           :P2      EQU      :MLT+2            DIRECTIVE PARAMETER 2
       47         01 00203           :P3      EQU      :MLT+3            DIRECTIVE PARAMETER 3
       48         01 00204           :P4      EQU      :MLT+4            DIRECTIVE PARAMETER 4
       49         01 0020D           :MODE    EQU      :MLT+13           MODE SET BY DPM
       50         01 00211           :PSW     EQU      :MLT+17           PARAMETER STATUS WORD
       51         01 00214           :MONITOR EQU      :MLT+20           DIRECTIVE RETURN ADDRESS
       52         01 00216           :BINC    EQU      :MLT+22           ADDR OF BINARY CONVERSION
       53         01 00217           :DECC    EQU      :MLT+23           ADDR OF DECIMAL CONVERSION
       54         01 00218           :HEXC    EQU      :MLT+24           ADDR OF HEXADEC CONVERSION
       55         01 0021B           :ERROR   EQU      :MLT+27           ADDR OF ERROR REPORT ROUTINE
       56         01 0021D           :SENSE   EQU      :MLT+29           ADDR OF SENSE SWITCH 1,3 TESTS
       57         01 00220           :MSGOUT  EQU      :MLT+32           MSG OUTPUT DEVICE, TYPE AND ADDR
       58         01 00221           :MSGIN   EQU      :MLT+33           MSG INPUT DEVICE, TYPE AND ADDR
       59         01 00222           :LOADIN  EQU      :MLT+34           ADDR OF INITIAL LOADING DEVICE
       60         01 00223           :TYPRINT EQU      :MLT+35           TELETYPE PRINT ROUTINE
       61         01 00224           :KSRADR  EQU      :MLT+36           KEYBOARD/PRINTER DEVICE ADDR X'001
       62         01 00228           :DTLFLAG EQU      :MLT+40           DIAGNOSTIC TAPE LIBRARY FLAG
       63         01 00229           :PARERR  EQU      :MLT+41           ADDR OF PARAMETER ERROR REPORT ROUT
       64         01 0022E           :MEMSIZE EQU      :MLT+46           SYSTEM MEMORY SIZE
       65         01 0022F           :MEMLAST EQU      :MLT+47           ADDR OF LAST USABLE MEMORY LOCATIO
       66         01 00240           :MLTEND  EQU      :MLT+64           LAST LOCATION OF MONITOR LINK TABL

       68                            *  PROGRAM INTERFACE TABLE
       69                            *  -----------------------
       70                            *                          THIS TABLE IS LOADED BY THE TEST PROGRAM FOR
       71                            *  THE PURPOSE OF ESTABLISHING COMMUNICATIONS BETWEEN THE MONITOR (DPM)
       72                            *  AND THE USER PROGRAM.

       74   01 00300                          ORG      X'300'
            01 00300
       75   01 00300    00000332     :PIT0    DATA     :CATALOG          ADDRESS OF CATALOG NUMBER
       76   01 00301    00000333     :PIT1    DATA     :PROGID           PROGRAM NAME
       77   01 00302    00000320     :PIT2    DATA     :DIC              ADDR OF DIRECTIVE DICTIONARY
       78   01 00303    00000010 A   :PIT3    DATA     :DICEND-:DIC      LENGTH OF DIRECTIVE DICTIONARY
       79   01 00304    000004DB     :PIT4    DATA     SYSRSTA           ADDRESS OF ABSOLUTE RECOVERY ROUTINE
       80   01 00305    00000330     :PIT5    DATA     :CDT              ADDR OF CONTEXT DISCRIPTION TABLE
       81   01 00306    00000002 A   :PIT6    DATA     :CDTEND-:CDT      LENGTH OF CONTEXT DESCRIPTION TABLE
       82   01 00307    00000000 A   :PIT7    DATA     0                 UNASSIGNED
       83   01 00308    00000426     :PIT8    DATA     :INITIAL          ADDRESS OF INITIALIZER ROUTINE
       84   01 00309    00000000 A   :PIT9    DATA     0                 MODEL NUMBER SPECIFIED BY SYST DIR
       85   01 0030A    00000000 A   :PIT10   DATA     0                 ILLEGAL PARAMETER NUMBER
       86   01 0030B    00000000 A   :PIT11   DATA     0                 ADDRESS OF UNIQUE MESSAGE
       87   01 0030C    FFFFFFFF A   :PIT12   DATA     -1                SYST DIR REQD (=0) OR NOT REQD (=-1)
       88   01 0030D    00000000 A   :PIT13   DATA     0
       89   01 0030E    00000000 A   :PIT14   DATA     0
       90   01 0030F    00000000 A   :PIT15   DATA     0                 FAULT INTERRUPT COM. CELL
       91         01 00310           :PITLAST EQU      %
       92         01 00320           :PITEND  EQU      :PIT0+32          LAST LOCATION OF PROG INTERFACE TAB.
       93         00000010                    DO       :PITEND-:PITLAST  CLEAR REMAINING LOCATIONS OF PIT
       94   01 00310    00000000 A            DATA     0
       95                                     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
            01 0031B    00000000 A
            01 0031C    00000000 A
            01 0031D    00000000 A
            01 0031E    00000000 A
            01 0031F    00000000 A

       97                            *  DIRECTIVE DICTIONARY
       98                            *  --------------------
       99                            *                        THIS TABLE SUPPLIES THE MONITOR WITH
      100                            *  INFORMATION ABOUT EACH DIRECTIVE AVAILABLE IN THE TEST PROGRAM.
      101                            *  EACH DICTIONARY ENTRY CONSISTS OF 2 WORDS (64 BITS) WHICH ARE
      102                            *  DEFINED AS FOLLOWS:
      103                            *
      104                            *  BITS 00 THRU 31  4 BYTE MNEMONIC IDENTIFIER IN EBCDIC
      105                            *  BITS 32 THRU 34  TYPE OF CONVERSION FOR PARAMETER 1.
      106                            *  BITS 35 THRU 37  TYPE OF CONVERSION FOR PARAMETER 2.
      107                            *  BITS 38 THRU 40  TYPE OF CONVERSION FOR PARAMETER 3.
      108                            *  BITS 41 THRU 43  TYPE OF CONVERSION FOR PARAMETER 4.
      109                            *  BITS 44 THRU 47  NOT ASSIGNED; MUST BE EQUAL TO ZERO
      110                            *  BITS 48 THRU 63  ROUTINE ADDRESS
      111                            *
      112                            *  TYPE OF PARAMETER CONVERSION
      113                            *
      114                            *  000   HEXADECIMAL CONVERSION
      115                            *  001   DECIMAL CONVERSION TO BINARY
      116                            *  002   ALPHANUMERIC
      117                            *
      118         01 00320           :DIC     EQU      %
      119   01 00320    E3E2E3F0 A            :PROCDIC 'TST0',7,7,7,7,0,TST0DR        COMPREHENSIVE TEST
                        FFF004DD
      120   01 00322    E3E2E3F1 A            :PROCDIC 'TST1',1,1,7,7,0,TST1DR        FUNCTIONAL TEST
                        27F004F0
      121   01 00324    E3E2E3F2 A            :PROCDIC 'TST2',1,1,7,7,0,TST2DR        RANDOM EXERCISER TEST
                        27F00CC7
      122   01 00326    E3E2E3F3 A            :PROCDIC 'TST3',1,1,7,7,0,TST3DR        UTILITY PROGRAMS
                        27F00DFC
      123   01 00328    C4C1E3C1 A            :PROCDIC 'DATA',1,0,0,7,0,DATADR        DATA
                        20700F20
      124   01 0032A    00D3C5D5 A            :PROCDIC 'LEN',1,7,7,7,0,LENDR          LENGTH
                        3FF00F39
      125   01 0032C    D9E2C5E3 A            :PROCDIC 'RSET',7,7,7,7,0,RSETDR        IO RESET
                        FFF00F41
      126   01 0032E    D3C9D4E3 A            :PROCDIC 'LIMT',1,1,1,1,0,LIMT          LIMIT DIRECTIVE
                        24900CE5
      127                            *
      128         01 00330           :DICEND  EQU      %
      129                            *
      130                            *
      131                            *  CONTEXT DESCRIPTION TABLE
      132                            *  -------------------------
      133                            *                             THE CONTEXT DESCRIPTION TABLE ALLOWS
      134                            *  THE MONITOR TO PASS-ON ENVIRONMENTAL INFORMATION FROM THE 'SYST'
      135                            *  DIRECTIVE TO THE TEST PROGRAM. NORMALLY ONLY ONE ENTRY WILL BE
      136                            *  REQUIRED. EACH CONTEXT DESCRIPTION TABLE ENTRY CONSISTS OF 2 WORDS
      137                            *  (64 BITS) WHICH ARE DEFINED AS FOLLOWS:
      138                            *
      139                            *  BITS 00 THRU 08  LENGTH OF CONTEXT DATA BLOCK
      140                            *  BITS 09 THRU 27  NOT ASSIGNED; MUST BE EQUAL TO ZERO
      141                            *  BITS 28 THRU 31  NUMBER OF DEVICE MODEL NUMBERS
      142                            *  BITS 32 THRU 61  ADDR OF CONTEXT DATA BLOCK
      143                            *
      144         01 00330           :CDT     EQU      :DICEND
      145   01 00330    02000002 N            GEN,9,19,4,32 :CDBEND-:CDB,0,:CDBMEND-:CDBM,:CDB
                        00000342
      146         01 00332           :CDTEND  EQU      %

      148   01 00332    00927E63 A   :CATALOG DATA     9600611
      149   01 00333    31E3C5D3 A   :PROGID  TEXTC    TITLE
            01 00334    C5C6C9D3 A
            01 00335    C540D6D7 A
            01 00336    C5D9C1E3 A
            01 00337    D6D940C3 A
            01 00338    D6D5E2D6 A
            01 00339    D3C540C4 A
            01 0033A    C9C1C7D5 A
            01 0033B    D6E2E3C9 A
            01 0033C    C340F9F6 A
            01 0033D    F060F0F6 A
            01 0033E    F1F160C8 A
            01 0033F    F0F14040 A
      150                            *  CONTEXT DATA BLOCK
      151                            *  ------------------
      152                            *                      THE CONTEXT DATA BLOCK CONTAINS ENVIRONMENTAL
      153                            *  INFORMATION FOR THE TEST PROGRAM.
      154                            *
      155         01 00340           :CDBM    EQU      %
      156                            *
      157                            *        INSERT ALL MODEL NUMBERS WHICH CAN BE TESTED
      158                            *        WITH THIS TEST PROGRAM.
      159   01 00340    00001B64 A            DATA     7012              MODEL 7012-2 (KSR)
      160   01 00341    00001B6C A            DATA     7020              MODEL 7020-2 (ASR)
      161                            *
      162         01 00342           :CDBMEND EQU      %
      163                            *
      164         01 00342           :CDB     EQU      %
      165                            *
      166                            *        DEFINE AND INSERT ALL PARAMETERS WHICH ARE
      167                            *        ALLOWED WITH THE 'SYST' DIRECTIVE.
      168                            *
      169   01 00342    0004     A   MODEL    DATA,2   4,7012            NO PARAMETERS/MODEL NO
            01 00342 2  1B64     A
        1*  01 00343    00000001 A   BAUDMODE DATA     1                 AUTOBAUD MODE                   *H01
      171   01 00344    00000001 A   :DEVADDR DATA     1                 DEVICE ADDRESS
      172   01 00345    00000001 A   IODEV    DATA     1                 MODE FLAG  0=REGISTER CONTROL
      173                            *                                              1=KEYBOARD CONTROL
      174                            *
      175         01 00346           :CDBEND  EQU      %
1 C00   19:30 JUN 20,'83                                                                          PAGE    4
A     177         00000000           REVCOUNT SET        0
      178         00000000           REVSTART SET        0

      180         00000000           REV      CNAME
      181                                     PROC
      182                                     DO         REVCOUNT=0
      183                            REVSTART SET       %
      184                            LF       RES       1
      185                                     FIN
      186                            REVCOUNT SET        REVCOUNT+1
      187                                     DO         SCOR(LF,REVEND)
      188                                     TEXTC      AF
      189                                     CODE
      190                                     ORG        REVSTART
      191                                     GEN,32     REVCOUNT
      192                                     ELSE
      193                                     TEXTC      AF
      194                                     FIN
      195                                     PEND

      197         00000000           CODE     CNAME
      198                                     PROC
      199                            REVPRINT LW,3       REVISION
      200                                     LW,4       =REVISION+1
      201                                     STW,4      TEXTADR
      202                            PRINT    BAL,15     *:PRINT
      203                            TEXTADR  DATA       0
      204                                     LB,5       *4
      205                                     AI,5       4
      206                                     SAS,5      -2
      207                                     AW,4       5
      208                                     BDR,3      PRINT-1
      209                                     LW,4       NOP
      210                                     STW,4      REVBRNCH
      211                                     B          *%-1
      212                            NOP      NOP
      213                                     PEND

      215   01 02000                          ORG      X'2000'
            01 02000
      216   01 02001    01404040 A   REVISION REV ' '
      217   01 02002    10E2E8E2 A    REV 'SYST,P1,P2,P3,P4'
            01 02003    E36BD7F1 A
            01 02004    6BD7F26B A
            01 02005    D7F36BD7 A
            01 02006    F4404040 A
      218   01 02007    01404040 A    REV ' '
      219   01 02008    0D4040D7 A    REV '  PARAMETERS:'
            01 02009    C1D9C1D4 A
            01 0200A    C5E3C5D9 A
            01 0200B    E27A4040 A
      220   01 0200C    01404040 A    REV ' '
      221   01 0200D    284040D7 A    REV '  P1:  MODEL NUMBER (7012 KSR, 7020 ASR)'
            01 0200E    F17A4040 A
            01 0200F    D4D6C4C5 A
            01 02010    D340D5E4 A
            01 02011    D4C2C5D9 A
            01 02012    404DF7F0 A
            01 02013    F1F240D2 A
            01 02014    E2D96B40 A
            01 02015    F7F0F2F0 A
            01 02016    40C1E2D9 A
            01 02017    5D404040 A
      222   01 02018    01404040 A    REV ' '
        1*  01 02019    3B4040D7 A    REV '  P2: BAUD RATE DETERMINATION (0=>AUTOMATIC, 1=>ASSUME 110)'  *H01
            01 0201A    F27A40C2 A
            01 0201B    C1E4C440 A
            01 0201C    D9C1E3C5 A
            01 0201D    40C4C5E3 A
            01 0201E    C5D9D4C9 A
            01 0201F    D5C1E3C9 A
            01 02020    D6D5404D A
            01 02021    F07E6EC1 A
            01 02022    E4E3D6D4 A
            01 02023    C1E3C9C3 A
            01 02024    6B40F17E A
            01 02025    6EC1E2E2 A
            01 02026    E4D4C540 A
            01 02027    F1F1F05D A
      224   01 02028    01404040 A    REV ' '
      225   01 02029    154040D7 A    REV '  P3:  DEVICE ADDRESS'
            01 0202A    F37A4040 A
            01 0202B    C4C5E5C9 A
            01 0202C    C3C540C1 A
            01 0202D    C4C4D9C5 A
            01 0202E    E2E24040 A
      226   01 0202F    01404040 A    REV ' '
      227   01 02030    334040D7 A    REV '  P4:  MODE (0=>REGISTER MODE, 1=>INTERACTIVE MODE)'
            01 02031    F47A4040 A
            01 02032    D4D6C4C5 A
            01 02033    404DF07E A
            01 02034    6ED9C5C7 A
            01 02035    C9E2E3C5 A
            01 02036    D940D4D6 A
            01 02037    C4C56B40 A
            01 02038    F17E6EC9 A
            01 02039    D5E3C5D9 A
            01 0203A    C1C3E3C9 A
            01 0203B    E5C540D4 A
            01 0203C    D6C4C55D A
      228   01 0203D    01404040 A   REVEND REV ' '
            01 0203E    32302000
            01 0203F    32401686
            01 02040    35402042
            01 02041    EAF00F6A
            01 02042    00000000 A
            01 02043    F2500004 A
            01 02044    20500004 A
            01 02045    2550047E A
            01 02046    30400005 A
            01 02047    64302040
            01 02048    3240204B
            01 02049    3540046E
            01 0204A    E8002049
            01 0204B    02000000 A
            01 02000    0000000D A
1 C00   19:30 JUN 20,'83                                                                          PAGE    5
A     230   01 00400                          ORG      X'400'
            01 00400
      231                            *        ***  INTERRUPT/TRAP HANDLING ROUTINE  ***
      232                            *
      233                            * PARAMETERS REQ'D:
      234                            * ----------------
      235                            *   ITHTEST - TEST BEING PERFORMED (1=TST1,2=TST2,3=TST3)
      236                            *   ITHSUBT - SUBTEST BEING PERFORMED (TST1 ONLY)
      237                            *   ITHRST  - RESTART ADDRESS
      238                            *
      239   01 00400    35F00417     ITHDLR   STW,15   ITHSAVE           SAVE RETURN ADDRESS
      240   01 00401    32C00414              LW,12    ITHTEST           TEST NUMBER
      241   01 00402    EAF00218              BAL,15   *:HEXC            CONVERT TO EBCDIC
      242   01 00403    75F20419              STB,15   ITHM2+1,1         ENTER INTO MSG
      243   01 00404    EAF00F6A              BAL,15   *:PRINT
      244   01 00405    00000418              DATA     ITHM2             'TSTX WILL BE RESTARTED'
      245   01 00406    31100414              CW,1     ITHTEST           TST1?
      246   01 00407    6930040D              BNE      %+6               NO
      247   01 00408    32C00415              LW,12    ITHSUBT           SUBTEST NUMBER
      248   01 00409    EAF00217              BAL,15   *:DECC            CONVERT TO EBCDIC
      249   01 0040A    55F20421              STH,15   ITHM3+3,1         ENTER INTO MSG
      250   01 0040B    EAF00F6A              BAL,15   *:PRINT
      251   01 0040C    0000041E              DATA     ITHM3             'SUBTEST NO. XX'
      252   01 0040D    32C00344              LW,12    :DEVADDR          DEVICE ADDRESS
      253   01 0040E    EAF00218              BAL,15   *:HEXC            CONVERT TO EBCDIC
      254   01 0040F    35F00425              STW,15   ITHM4+3           ENTER INTO MSG
      255   01 00410    EAF00F6A              BAL,15   *:PRINT
      256   01 00411    00000422              DATA     ITHM4             'DEVICE NO.XXXX'
      257   01 00412    32F00416              LW,15    ITHRST            (R15)=RESTART ADDRESS
      258   01 00413    E8000417              B        *ITHSAVE  RETURN TO MONITOR TRAP/INTERR. HANDLER
      259                            *
      260   01 00414    00000000 A   ITHTEST  DATA     0
      261   01 00415    00000000 A   ITHSUBT  DATA     0
      262   01 00416    00000000 A   ITHRST   DATA     0
      263   01 00417    00000000 A   ITHSAVE  DATA     0
      264   01 00418    1740E3E2 A   ITHM2    TEXTC    ' TSTX WILL BE RESTARTED'
            01 00419    E3E740E6 A
            01 0041A    C9D3D340 A
            01 0041B    C2C540D9 A
            01 0041C    C5E2E3C1 A
            01 0041D    D9E3C5C4 A
      265   01 0041E    0F40E2E4 A   ITHM3    TEXTC    ' SUBTEST NO. XX'
            01 0041F    C2E3C5E2 A
            01 00420    E340D5D6 A
            01 00421    4B40E7E7 A
      266   01 00422    0F40C4C5 A   ITHM4    TEXTC    ' DEVICE NO.XXXX'
            01 00423    E5C9C3C5 A
            01 00424    40D5D64B A
            01 00425    E7E7E7E7 A
      267                            *
      268                            *
      269                            *** INITIALIZATION ***
      270                            *
      271                            * THE INITIALIZATION ROUTINE PERFORMS THE FOLLOWING FUNCTIONS:
      272                            *        INSURE ACCEPTABLE 'SYST' DIRECTIVE PARAMETERS
      273                            *        SET MODE ACCORDING TO CONTENT OF MLT+14.
      274                            *
      275   01 00426    2240FFEF A   :INITIAL LI,R4    X'FFEF'           DISARM ALL INTERRUPTS
      276   01 00427    6D401100 A            WD,R4    X'1100'            EXCEPT PCP

      278   01 00428    35F00475              STW,R15  INITRTN           SAVE MONITOR LINK

      282                            * VALIDATE 'SYST' DIRECTIVE PARAMETERS

      284   01 00429    22400000 A            LI,R4    0
      285   01 0042A    354004A7              STW,R4   KSRASR            RESET KSR/ASR FLAG
      286   01 0042B    22400001 A            LI,R4    1
      287   01 0042C    52580342              LH,R5    MODEL,R4          MODEL NUMBER
      288   01 0042D    21501B6C A            CI,R5    7020
      289   01 0042E    69300430              BNE      %+2               MODEL 7012-BIPASS FLAG SETTING
      290   01 0042F    354004A7              STW,R4   KSRASR            SET KSR/ASR FLAG TO SPECIFY ASR UNIT
      294   01 00430    22600003 A            LI,R6    3
      295   01 00431    32500344              LW,R5    :DEVADDR          DEVICE ADDRESS (<=X'1FFF')
      296   01 00432    21501FFF A            CI,R5    X'1FFF'
      297   01 00433    6920049D              BG       INITIALE          GO TO REPORT 'SYST' PARAMETER INVALID
      298   01 00434    4B501687              AND,R5   =X'80'            INSURE SINGLE-UNIT ADDRESS
      299   01 00435    6930049D              BNEZ     INITIALE          GO TO REPORT 'SYST' PAR INVALID
      300   01 00436    32400345              LW,R4    IODEV             GET MODE FLAG
      301   01 00437    6830047A              BEZ      INITIALC          B: REGISTER CONTROL
      302   01 00438    3240020D              LW,R4    :MODE             GET MONITOR MODE
      303   01 00439    214FFFFF A            CI,R4    -1
      304   01 0043A    6930043E              BNE      %+4               KEYBOARD CONTROL
      305   01 0043B    22500000 A            LI,R5    0
      306   01 0043C    35500345              STW,R5   IODEV             FORCE MODE 0, BYPASSED LOAD DIR.
      307   01 0043D    6800047A              B        INITIALC          B: REGISTER CONTROL

      309   01 0043E    22F00000 A            LI,15    0
      310   01 0043F    35F0020D              STW,15   :MODE             RESET ASR MODE FLAG
      311   01 00440    32401002              LW,R4    IOXPSD
      312   01 00441    3540005C A            STW,R4   X'5C'
      313   01 00442    32401191              LW,R4    :DELMTW
      314   01 00443    35400055 A            STW,R4   X'55'
      315   01 00444    32401190              LW,R4    :DELXPSD
      316   01 00445    3540005B A            STW,R4   X'5B'
      317   01 00446    224FFFFF A            LI,R4    -1
      318   01 00447    3540030C              STW,R4   :PIT12            RESET 'SYST' FLAG

        2*  01 00448    33000343              MTW,0    BAUDMODE          IF AUTOBAUD SUPPRESSED          *H01
        3*  01 00449    6930045F              BNEZ     INIT1              ASSUME 110 BAUD BY DEFAULT     *H01

      320   01 0044A    CF000344              HIO,0    *:DEVADDR         RESET THE DEVICE

      322   01 0044B    22E000C8 A            LI,R14   200               DELAY TO ALLOW DEVICE
      323   01 0044C    6AF01173              BAL,R15  :DELAY             TIME TO SETTLE
      324   01 0044D    6800044E              B        %+1

      326   01 0044E    220001F4 A            LI,R0    1000/2            SET ONE SECOND MAXIMUM
      327   01 0044F    35001188              STW,R0   :DELTIME
      328   01 00450    22000455              LI,R0    INIT0-1           SET TIMEOUT EXIT (-1)
      329   01 00451    35001189              STW,R0   :DELSAVE

      331   01 00452    6AF01180              BAL,R15  :DELAYAE          ARM/ENABLE CLOCK 4

      333   01 00453    2200023C              LI,R0    DA(BAUDPRG)       SET TO TRANSMIT
      334   01 00454    CC000344              SIO,R0   *:DEVADDR          TWO BYTES FOR TIMING

      336   01 00455    CDF00344              TIO,R15  *:DEVADDR         WAIT FOR DEVICE CONTROLLER
      337   01 00456    69C00455     INIT0    BCS,8+4  %-1                TO GO READY

      339   01 00457    6AF01184              BAL,R15  :DELAYD           STOP CLOCK 4

      341   01 00458    22F001F4 A            LI,15    1000/2            COMPUTE TIME
      342   01 00459    38F01188              SW,15    :DELTIME           TO TRANSMIT ONE BYTE

      344   01 0045A    21F00001 A            CI,15    1                 LOWER BOUND
      345   01 0045B    6810045D              BGE      %+2                IS ONE MILLISECOND
      346   01 0045C    22F00001 A            LI,15    1

      348   01 0045D    21F00064 A            CI,15    100               UPPER BOUND
      349   01 0045E    68200460              BLE      %+2                IS 100 MILLISECONDS
        1*  01 0045F    22F00064 A   INIT1    LI,15    100                                               *H00

      352   01 00460    35F00476              STW,15   BYTETIME

      354   01 00461    22D02AF8 A            LI,R13   11000             ASSUME 8/11 FORMAT
      355   01 00462    21F00032 A            CI,R15   50                 SKIP IF SLOW ENOUGH TO
      356   01 00463    68100465              BGE      %+2                 JUSTIFY THIS ASSUMPTION
      357   01 00464    22D02710 A            LI,R13   10000                ELSE ASSUME 8/10 FORMAT
      358   01 00465    36D0000F A            DW,R13   R15                   AND COMPUTE BAUD RATE

        2*  01 00466    21D0270F A            CI,13    9999              GUARD AGAINST                   *H01
        3*  01 00467    68200469              BLE      %+2                MESSAGE FIELD OVERFLOW         *H01
        4*  01 00468    22D0270F A            LI,13    9999                                              *H01

      360   01 00469    32C0000D A            LW,R12   R13               DISPLAY FOR OPERATOR
      361   01 0046A    EAF00217              BAL,R15  *:DECC
      362   01 0046B    35F00473              STW,R15  BAUDMSG+3

      364   01 0046C    EAF00F6A              BAL,R15  *:PRINT
      365   01 0046D    00000470              DATA     BAUDMSG

        2*  01 0046E    6AF0203E     REVBRNCH BAL,R15  REVPRINT          DISPLAY REVISIONS               *H01

      367   01 0046F    E8000475              B        *INITRTN          RETURN TO DPM

      369   01 00470    0FC2C1E4 A   BAUDMSG  TEXTC    'BAUD RATE: XXXX'
            01 00471    C440D9C1 A
            01 00472    E3C57A40 A
            01 00473    E7E7E7E7 A
      370   01 00474    00000000 A   BAUDBYT  DATA     0
      371   01 00475    00000000 A   INITRTN  DATA     0
        1*  01 00476    00000064 A   BYTETIME DATA     100               100MS DEFAULT FOR 110 BAUD      *H00

      374                                     BOUND    8
      375   01 00478    010011D0     BAUDPRG  GEN,8,24 X'01',BA(BAUDBYT)
      376   01 00479    00000002 A            GEN,8,24 0,2

      378                            *  SUBSTITUTE/SAVE ALL MONITOR INTERRUPT, TRAP XPSD'S AND PCP SYSTEM
      379                            *  RESET HANDLER AND CALL DIRECTIVE INPUT
      380                            *
      381   01 0047A    224FFFF0 A   INITIALC LI,R4    -16
      382   01 0047B    22600001 A            LI,6     1
      383   01 0047C    3560020D              STW,6    :MODE             SET  ASK  MODE FLAG
      384   01 0047D    32600F83              LW,R6    INTXPSD
      385   01 0047E    32580060 A            LW,R5    X'60',R4
      386   01 0047F    355804B8              STW,R5   INTPOOL+16,R4
      387   01 00480    35680060 A            STW,R6   X'60',R4
      388   01 00481    6540047E              BIR,R4   %-3
      389   01 00482    32500060 A            LW,R5    X'60'
      390   01 00483    355004B8              STW,R5   INTPOOL+16
      391   01 00484    224FFF20 A            LI,R4    -224
      392   01 00485    35680140 A            STW,R6   X'140',R4
      393   01 00486    65400485              BIR,R4   %-1
      394   01 00487    224FFFF4 A            LI,R4    -12
      395   01 00488    32600FA4              LW,R6    TRAPXPSD
      396   01 00489    3258004C A            LW,R5    X'4C',R4
      397   01 0048A    355804C5              STW,R5   TRAPOOL+12,R4
      398   01 0048B    3568004C A            STW,R6   X'4C',R4
      399   01 0048C    65400489              BIR,R4   %-3
      400   01 0048D    32401191              LW,R4    :DELMTW
      401   01 0048E    35400055 A            STW,R4   X'55'
      402   01 0048F    32401190              LW,R4    :DELXPSD
      403   01 00490    3540005B A            STW,R4   X'5B'
      404   01 00491    32401002              LW,R4    IOXPSD
      405   01 00492    3540005C A            STW,R4   X'5C'
      406   01 00493    32400046 A            LW,R4    X'46'         FETCH INSTRUCTION IN X'46'
      407   01 00494    354004A6              STW,R4   MOD1          STORE INTO MOD1
      408   01 00495    32400F96              LW,R4    WDTXPSD
      409   01 00496    35400046 A            STW,R4   X'46'
      410   01 00497    32400F7C              LW,R4    CPINT2
      411   01 00498    3540005D A            STW,R4   X'5D'
      412   01 00499    32400026 A            LW,R4    X'26'
      413   01 0049A    464004DC              XW,R4    SYSRST1
      414   01 0049B    35400026 A            STW,R4   X'26'
      415   01 0049C    68000FAA              B        INPTDR            EXIT TO REGISTER OPERATION
      416                            *
      417                            *  REPORT 'SYST' DIRECTIVE PARAMETER INVALID
      418                            *
      419   01 0049D    33000345     INITIALE MTW,0    IODEV             CHECK FOR IO MESSAGE DEVICE
      420   01 0049E    683004A3              BEZ      INITIALG          REPORT PENDING MESSAGE PRINTOUT
      421   01 0049F    3560030A     INITIALF STW,R6   :PIT10            SPECIFY 'SYST' PARAMETER NUMBER
      422   01 004A0    22400000 A            LI,R4    0
      423   01 004A1    3540030C              STW,R4   :PIT12            REQUIRE NEW 'SYST' DIRECTIVE
      424   01 004A2    E800000F A            B        *R15              RETURN TO MONITOR FOR REPORT
      425   01 004A3    32001688     INITIALG LW,R0    =X'C0000013'      'PENDING MESSAGE PRINTOUT ATTEMPT'
      426   01 004A4    2E000000 A            WAIT
      427   01 004A5    6800049F              B        INITIALF          GO TO REPORT
      428                            *
      429   01 004A6    00000000 A   MOD1     DATA     0             STOREAGE  FOR DPM WATCHD. TIMER
      430   01 004A7    00000000 A   KSRASR   DATA     0                 DEVICE TYPE (KSR=0, ASR=1)
      431   01 004A8                 INTPOOL  RES      17
      432   01 004B9                 TRAPOOL  RES      12
      433                            *
      434                            *
      435                            ***  SYSTEM  RESET HANDLER ***
      436                            *
      437                            * THE SYSTEM RESET ROUTINE ACCEPTS CONTROL FROM THE PCP SYSTEM RESET
      438                            *AND RESTORES ALL MONITOR INTERRUPT, TRAP XPSD'S AND RETURNS CONTROL
      439                            * TO THE MONITOR (ABSOLUTE RECOVERY FROM THE REGISTER OPERATION)
      440                            *
      441   01 004C5    224FFFF0 A   SYSRST   LI,R4    -16
      442   01 004C6    325804B8              LW,R5    INTPOOL+16,R4
      443   01 004C7    35580060 A            STW,R5   X'60',R4          RESTORE MONITOR INTERRUPT XPSD'S
      444   01 004C8    654004C6              BIR,R4   %-2
      445   01 004C9    324004A6              LW,R4    MOD1          FETCH DPM WATCHD. TIMER INSTRUC.
      446   01 004CA    35400046 A            STW,R4   X'46'         STORE BACK INTO X'46'
      447   01 004CB    224FFF20 A            LI,R4    -224
      448   01 004CC    325004B8              LW,R5    INTPOOL+16
      449   01 004CD    35580140 A            STW,R5   X'140',R4
      450   01 004CE    654004CD              BIR,R4   %-1
      451   01 004CF    224FFFF4 A            LI,R4    -12
      452   01 004D0    325804C5              LW,R5    TRAPOOL+12,R4
      453   01 004D1    3558004C A            STW,R5   X'4C',R4          RESTORE MONITOR TRAP XPSD'S
      454   01 004D2    654004D0              BIR,R4   %-2
      455   01 004D3    32400026 A            LW,R4    X'26'             SYSTEM RESET BRANCH
      456   01 004D4    464004DC              XW,R4    SYSRST1           RESTORE MONITOR BRANCH
      457   01 004D5    35400026 A            STW,R4   X'26'
      458   01 004D6    33000D31              MTW,0    TST2XF            TEST EXCHANGE FLAG
      459   01 004D7    E8300214              BCR,3    *:MONITOR         NOT SET-RETURN TO MONITOR
      460   01 004D8    22400000 A            LI,R4    0
      461   01 004D9    35400345              STW,R4   IODEV             RESET IO DEVICE FLAG
      462   01 004DA    35400D31              STW,R4   TST2XF            RESET EXCHANGE FLAG

      464         01 004DB           SYSRSTA  EQU      %
      465   01 004DB    E8000214              B        *:MONITOR          RETURN TO MONITOR
      466                            *
      467   01 004DC    680004C5     SYSRST1  B        SYSRST
      468                            *
      469                            *
      470                            *
      471                            *** TST0 DIRECTIVE ACCEPTOR ***
      472                            *
      473                            * THE TST0 DIRECTIVE ROUTINE ACCEPTS TST0 DIRECTIVE, CHECKS THE
      474                            * PARAMETERS, AND CALLS THE ENTIRE FUNCTIONAL AND RANDOM EXERCISER TESTS
      475                            *
      476   01 004DD    22400001 A   TST0DR   LI,R4    1
      477   01 004DE    35400D0C              STW,4    :PASSCUR          INIT PASS COUNT
      478   01 004DF    35400201              STW,R4  :P1               SPECIFY SUBTEST 1 TO 13
      479   01 004E0    2240000D A            LI,R4   13
      480   01 004E1    35400202              STW,R4  :P2
      481   01 004E2    6AF0050E              BAL,R15 TST1              TST1
      482   01 004E3    22400002 A            LI,R4   2
      483   01 004E4    35400202              STW,R4  :P2               SPECIFY SUBTEST 1 AND 2
      484   01 004E5    6AF00D15              BAL,R15 TST2              TST2
      485   01 004E6    22000000 A            LI,0     0
      486   01 004E7    35000414              STW,0    ITHTEST           SET TEST ID TO ZERO
      487   01 004E8    6AF00CF2              BAL,15   :PASSC            TEST PASS CNT
      488   01 004E9    680004DE              B        TST0DR+1          LOOP
      489   01 004EA    EAF0021D              BAL,R15 *:SENSE           TEST SENSE SWITCHES 1,3
      490   01 004EB    2E000000 A            WAIT
      491   01 004EC    680004DD              B       TST0DR            LOOP
      492   01 004ED    33000345              MTW,0   IODEV             TEST FOR IO DEVICE
      493   01 004EE    E9300214              BCS,3   *:MONITOR         EXIT TO MONITOR
      494   01 004EF    680004C5              B       SYSRST            GO TO INTER, TRAP XPSD RESTORE
      495                            *
      496                            *
      497                            ***  TST1 DIRECTIVE ACCEPTOR ***
      498                            *
      499                            * THE TST1 DIRECTIVE ROUTINE ACCEPTS TST1 DIRECTIVE, CHECKS THE
      500                            * PARAMETERS, AND CALLS TST1,X,X
      501                            *
      502   01 004F0    22400001 A   TST1DR   LI,R4    1
      503   01 004F1    32500201              LW,R5    :P1               PARAMETER P1
      504   01 004F2    693004FB              BCS,3    TST1DRA           P1>0
      505   01 004F3    22400002 A            LI,R4    2
      506   01 004F4    32500202              LW,R5    :P2               PARAMETER P2
      507   01 004F5    69300F44              BCS,3    PERROR            ERROR (P1=0, P2>0)
      508   01 004F6    22400001 A            LI,R4    1
      509   01 004F7    35400201              STW,R4   :P1               SPECIFY TEST 1 THRU 12
      510   01 004F8    2240000D A            LI,R4    13
      511   01 004F9    35400202              STW,R4   :P2
      512   01 004FA    68000507              B        TST1DRB
      513   01 004FB    2150000D A   TST1DRA  CI,R5    13
      514   01 004FC    69200F44              BCS,2    PERROR            ERROR (P1>13)

      516   01 004FD    33000202              MTW,0    :P2               IF P2 NOT SPECIFIED
      517   01 004FE    69300500              BNEZ     %+2                THEN SET P2=P1
      518   01 004FF    35500202              STW,R5   :P2

      520   01 00500    31500202              CW,R5    :P2
      521   01 00501    69200F44              BCS,2    PERROR            ERROR (P1>P2)
      522   01 00502    22400002 A            LI,R4    2
      523   01 00503    32500202              LW,R5    :P2               P2
      524   01 00504    68300F44              BCR,3    PERROR            ERROR (P2=0)
      525   01 00505    2150000D A            CI,R5    13
      526   01 00506    69200F44              BCS,2    PERROR            ERROR (P2>13)
      527   01 00507    6AF0050E     TST1DRB  BAL,R15  TST1              TST1
      528   01 00508    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      529   01 00509    2E000000 A            WAIT
      530   01 0050A    68000507              B        TST1DRB           LOOP
      531   01 0050B    33000345              MTW,0    IODEV             TEST FOR IO DEVICE
      532   01 0050C    68300FAA              BCR,3    INPTDR            NO IO DEVICE-GO TO REGISTER INPUT
      533   01 0050D    E8000214              B        *:MONITOR         EXIT TO MONITOR
      534                            *
      535                            *
      536                            *** TST1 DIRECTIVE HANDLER ***
      537                            *
      538                            * THE TST1 HANDLER ROUTINE CALLS THE P1, P2-SPECIFIED TST1 SUBTESTS
      539                            * IN NUMERICAL SEQUENCE
      540                            *
      541   01 0050E    35F00537     TST1     STW,R15  TST1RTN           SAVE RETURN ADDRESS
      542   01 0050F    32400201              LW,R4    :P1               PARAMETER P1
      543   01 00510    69300516              BCS,3    TST1A             P1>0
      544   01 00511    22400001 A            LI,R4    1
      545   01 00512    35400538              STW,R4   TST1PRES          PRESENT TEST =1
      546   01 00513    2240000C A            LI,R4    12
      547   01 00514    35400539              STW,R4   TST1LAST          LAST TEST = 12
      548   01 00515    68000519              B        TST1B
      549   01 00516    35400538     TST1A    STW,R4   TST1PRES          PRESENT TEST = P1
      550   01 00517    32400202              LW,R4    :P2               PARAMETER P2
      551   01 00518    35400539              STW,R4   TST1LAST          LAST TEST = P2
      552   01 00519    22F00532     TST1B    LI,R15   TST1C             SPECIFY RETURN ADDRESS
      553   01 0051A    22100000 A            LI,1     0                 INITIALIZE
      554   01 0051B    35101009              STW,1    :INTRECF                 INTERRUPTS
      555   01 0051C    22100001 A            LI,1     1
      556   01 0051D    35100414              STW,1    ITHTEST       STORE TEST NUMBER
      557   01 0051E    22400400              LI,R4    ITHDLR        FETCH TRAP HANNDLER
      558   01 0051F    3540030F              STW,R4   :PIT15        STOER INTO PIT15
      559   01 00520    22400519              LI,R4    TST1B         FETCH RESTART ADDRESS
      560   01 00521    35400416              STW,R4   ITHRST         STORE TO RESTART ADDREES PARA,ETER
      561   01 00522    32400538              LW,R4    TST1PRES          PRESENT TEST = INDEX
      562   01 00523    35400415              STW,R4   ITHSUBT       STORE SUBTEST NO. IN PARAMETER
      563   01 00524    68080524              B        %,R4

      565   01 00525    6800053A              B        TST11             TST1,1
      566   01 00526    68000619              B        TST12
      567   01 00527    68000718              B        TST13
      568   01 00528    680007EA              B        TST14
      569   01 00529    6800088A              B        TST15
      570   01 0052A    680008D8              B        TST16
      571   01 0052B    68000934              B        TST17
      572   01 0052C    68000987              B        TST18
      573   01 0052D    68000A67              B        TST19
      574   01 0052E    68000ABF              B        TST110
      575   01 0052F    68000B01              B        TST111
      576   01 00530    68000BAB              B        TST112            TST1,12
      577   01 00531    68000C82              B        TST113            TST1,13

      579   01 00532    33100538     TST1C    MTW,1    TST1PRES          PRESENT TEST +1
      580   01 00533    32400538              LW,R4    TST1PRES
      581   01 00534    31400539              CW,R4    TST1LAST
      582   01 00535    68200519              BCR,2    TST1B             PRESENT TEST =< LAST TEST
      583   01 00536    E8000537              B        *TST1RTN          EXIT
      584                            *
      585   01 00537    00000000 A   TST1RTN  DATA     0
      586   01 00538    00000000 A   TST1PRES DATA     0
      587   01 00539    00000000 A   TST1LAST DATA     0
      588                            *
      589                            *
      590                            *** TST1 SUBTEST 1 ***
      591                            *
      592                            * THE TST1,1 ROUTINE TESTS THE FOLLOWING FUNCTIONS:
      593                            *    (A) HIO
      594                            *    (B) TDV
      595                            *    (C) TIO
      596                            *
      597   01 0053A    35F00618     TST11    STW,R15  T11RTN            SAVE RETURN ADDRESS
      598   01 0053B    CF200344     T1S1A    HIO,R2   *:DEVADDR         ISSUE HIO
      599   01 0053C    74000004 A            STCF     R4                CC1,2
      600   01 0053D    72400004 A            LB,R4    R4
      601   01 0053E    2540007A A            SLS,R4   -6
      602   01 0053F    21400000 A            CI,R4    0
      603   01 00540    68300550              BE       T1S1C             CC1,2=00
      604   01 00541    21400001 A            CI,R4    1
      605   01 00542    68300550              BE       T1S1C             CC1,2=01 (BUSY STATE POSSIBLE)
      606   01 00543    21400002 A            CI,R4    2
      607   01 00544    6930054B              BNE      T1S1B             CC1,2=11
      608                            *ERR 101      (CC1,2=10)
      609   01 00545    6AF00F55     T1S1A1   BAL,R15  ERRMSG            REPORT ERROR
      610   01 00546    00000065 A            DATA     101               #101
      611   01 00547    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      612   01 00548    2E000000 A            WAIT
      613   01 00549    6800053B              B        T1S1A             LOOP
      614   01 0054A    68000550              B        T1S1C
      615                            *ERR 102    (CC1,2 =11)
      616   01 0054B    6AF00F55     T1S1B    BAL,R15  ERRMSG
      617   01 0054C    00000066 A            DATA     102               #102
      618   01 0054D    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      619   01 0054E    2E000000 A            WAIT
      620   01 0054F    6800053B              B        T1S1A             LOOP
      621                            *
      622   01 00550    72400003 A   T1S1C    LB,R4    R3                HIO STATUS
      623   01 00551    4B401689              AND,R4   =X'60'            MASK
      624   01 00552    21400020 A            CI,R4    X'20'
      625   01 00553    69300563              BNE      T1S1E             DEVICE OPERATIONAL
      626   01 00554    72400003 A            LB,R4    R3                STATUS BITS 1,2 =01
      627   01 00555    4B40168A              AND,R4   =6                MASK
      628   01 00556    21400002 A            CI,R4    2
      629   01 00557    6930055E              BNE      T1S1D             STATUS BITS 5,6 NOT 01
      630                            *ERR 103    (DEVICE, CONTR NOT OPER)
      631   01 00558    6AF00F55              BAL,R15  ERRMSG
      632   01 00559    00000067 A            DATA     103               #103
      633   01 0055A    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      634   01 0055B    2E000000 A            WAIT
      635   01 0055C    6800053B              B        T1S1A             LOOP
      636   01 0055D    68000563              B        T1S1E
      637                            *ERR 104    (DEV, CONTR STATUS NOT AGREE)
      638   01 0055E    6AF00F55     T1S1D    BAL,R15  ERRMSG
      639   01 0055F    00000068 A            DATA     104               #104
      640   01 00560    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      641   01 00561    2E000000 A            WAIT
      642   01 00562    6800053B              B        T1S1A             LOOP
      643                            *
      644   01 00563    72400003 A   T1S1E    LB,R4    R3                HIO STATUS
      645   01 00564    4B40168B              AND,R4   =X'10'            MASK
      646   01 00565    6930056B              BNE      T1S1F             DEVICE AUTO
      647                            *ERR 105      (DEV MANUAL)
      648   01 00566    6AF00F55              BAL,R15  ERRMSG
      649   01 00567    00000069 A            DATA     105               #105
      650   01 00568    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      651   01 00569    2E000000 A            WAIT
      652   01 0056A    6800053B              B        T1S1A             LOOP
      653                            *
      654   01 0056B    72400003 A   T1S1F    LB,R4    R3                HIO STATUS
      655   01 0056C    4B401689              AND,R4   =X'60'            MASK
      656   01 0056D    21400040 A            CI,R4    X'40'
      657   01 0056E    69300574              BNE      T1S1G             DEVICE AVAILABLE
      658                            *ERR 106      (DEV UNAVAILABLE)
      659   01 0056F    6AF00F55              BAL,R15  ERRMSG
      660   01 00570    0000006A A            DATA     106               #106
      661   01 00571    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      662   01 00572    2E000000 A            WAIT
      663   01 00573    6800053B              B        T1S1A             LOOP
      664                            *
      665   01 00574    72400003 A   T1S1G    LB,R4    R3                HIO STATUS
      666   01 00575    4B40168A              AND,R4   =6                MASK
      667   01 00576    21400004 A            CI,R4    4
      668   01 00577    6930057D              BNE      T1S1H             CONTROLLER AVAILABLE
      669                            *ERR 107      (DEV,CONTR STATUS NOT AGREE)
      670   01 00578    6AF00F55              BAL,R15  ERRMSG
      671   01 00579    0000006B A            DATA     107               #107
      672   01 0057A    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      673   01 0057B    2E000000 A            WAIT
      674   01 0057C    6800053B              B        T1S1A             LOOP
      675                            *
      676   01 0057D    CF200344     T1S1H    HIO,R2   *:DEVADDR         ISSUE SECOND HIO
      677   01 0057E    74000004 A            STCF     R4                CC1,2
      678   01 0057F    72400004 A            LB,R4    R4
      679   01 00580    2540007A A            SLS,R4   -6
      680   01 00581    21400003 A            CI,R4    3
      681   01 00582    6830058D              BE       T1S1J1            CC1,2=11
      682   01 00583    21400002 A            CI,R4    2
      683   01 00584    68300593              BE       T1S1J2            CC1,2=10
      684   01 00585    21400000 A            CI,R4    0
      685   01 00586    68300598              BE       T1S1J             CC1,2=00
      686                            *ERR 108     (CC1,2=01)
      687   01 00587    6AF00F55              BAL,R15  ERRMSG
      688   01 00588    0000006C A            DATA     108               #108
      689   01 00589    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      690   01 0058A    2E000000 A            WAIT
      691   01 0058B    6800057D              B        T1S1H             LOOP
      692   01 0058C    68000598              B        T1S1J             CONTINUE
      693                            *
      694                            *ERR 102    (CC1,2=11)
      695   01 0058D    6AF00F55     T1S1J1   BAL,R15  ERRMSG
      696   01 0058E    00000066 A            DATA     102               #102
      697   01 0058F    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      698   01 00590    2E000000 A            WAIT
      699   01 00591    6800057D              B        T1S1H             LOOP
      700   01 00592    68000598              B        T1S1J             CONTINUE
      701                            *
      702                            *ERR 101    (CC1,2=10)
      703   01 00593    6AF00F55     T1S1J2   BAL,R15  ERRMSG
      704   01 00594    00000065 A            DATA     101               #101
      705   01 00595    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      706   01 00596    2E000000 A            WAIT
      707   01 00597    6800057D              B        T1S1H             LOOP
      708                            *
      709   01 00598    72400003 A   T1S1J    LB,R4    R3                HIO STATUS
      710   01 00599    4B401689              AND,R4   =X'60'            MASK
      711   01 0059A    21400060 A            CI,R4    X'60'
      712   01 0059B    693005A1              BNE      T1S1K             DEVICE NOT BUSY
      713                            *ERR 109      (DEV BUSY)
      714   01 0059C    6AF00F55              BAL,R15  ERRMSG
      715   01 0059D    0000006D A            DATA     109               #109
      716   01 0059E    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      717   01 0059F    2E000000 A            WAIT
      718   01 005A0    6800057D              B        T1S1H             LOOP
      719                            *
      720   01 005A1    72400003 A   T1S1K    LB,R4    R3                HIO STATUS
      721   01 005A2    4B40168A              AND,R4   =6                MASK
      722   01 005A3    21400006 A            CI,R4    6
      723   01 005A4    693005AA              BNE      T1S1L             CONTROLLER NOT BUSY
      724                            *ERR 110      (CONTR BUSY)
      725   01 005A5    6AF00F55              BAL,R15  ERRMSG
      726   01 005A6    0000006E A            DATA     110               #110
      727   01 005A7    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      728   01 005A8    2E000000 A            WAIT
      729   01 005A9    6800057D              B        T1S1H             LOOP
      730                            *
      731   01 005AA    72400003 A   T1S1L    LB,R4    R3                HIO STATUS
      732   01 005AB    25400079 A            SLS,R4   -7
      733   01 005AC    21400001 A            CI,R4    1
      734   01 005AD    693005B3              BNE      T1S1M             IP BIT0 =0
      735                            *ERR 111      (INTER PENDING)
      736   01 005AE    6AF00F55              BAL,R15  ERRMSG
      737   01 005AF    0000006F A            DATA     111               #111
      738   01 005B0    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      739   01 005B1    2E000000 A            WAIT
      740   01 005B2    6800057D              B        T1S1H             LOOP
      741                            *
      742   01 005B3    72400003 A   T1S1M    LB,R4    R3                HIO STATUS
      743   01 005B4    4B40168C              AND,R4   =8                MASK
      744   01 005B5    683005BB              BEZ      T1S1N             UE BIT 4 = 0
      745                            *ERR 112      (UE )
      746   01 005B6    6AF00F55              BAL,R15  ERRMSG
      747   01 005B7    00000070 A            DATA     112               #112
      748   01 005B8    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      749   01 005B9    2E000000 A            WAIT
      750   01 005BA    6800057D              B        T1S1H             LOOP
      751                            *
      752   01 005BB    72400003 A   T1S1N    LB,R4    R3                HIO STATUS
      753   01 005BC    4B40168D              AND,R4   =1                MASK
      754   01 005BD    683005C3              BEZ      T1S1K1            STATUS BIT 7 = 0
      755                            *ERR 113      (STATUS BIT 7 SET)
      756   01 005BE    6AF00F55              BAL,R15  ERRMSG
      757   01 005BF    00000071 A            DATA     113               #113
      758   01 005C0    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      759   01 005C1    2E000000 A            WAIT
      760   01 005C2    6800057D              B        T1S1H             LOOP
      761                            *
      762   01 005C3    CE200344     T1S1K1   TDV,R2   *:DEVADDR         ISSUE TDV
      763   01 005C4    74000004 A            STCF     R4                CC1,2
      764   01 005C5    72400004 A            LB,R4    R4
      765   01 005C6    2540007A A            SLS,R4   -6
      766   01 005C7    21400000 A            CI,R4    0
      767   01 005C8    683005DD              BE       T1S1N1            CC1,2 =00
      768   01 005C9    21400003 A            CI,R4    3
      769   01 005CA    693005D0              BNE      T1S1L1            CC1,2 NOT 11
      770                            *ERR 121      (CC1,2=11)
      771   01 005CB    6AF00F55              BAL,R15  ERRMSG
      772   01 005CC    00000079 A            DATA     121               #121
      773   01 005CD    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      774   01 005CE    2E000000 A            WAIT
      775   01 005CF    680005C3              B        T1S1K1            LOOP
      776                            *
      777   01 005D0    21400001 A   T1S1L1   CI,R4    1
      778   01 005D1    693005D8              BNE      T1S1M1            CC1,2 NOT 01
      779                            *ERR 122      (CC1,2=01)
      780   01 005D2    6AF00F55              BAL,R15  ERRMSG
      781   01 005D3    0000007A A            DATA     122               #122
      782   01 005D4    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      783   01 005D5    2E000000 A            WAIT
      784   01 005D6    680005C3              B        T1S1K1            LOOP
      785   01 005D7    680005DD              B        T1S1N1
      786                            *ERR 123      (CC1,2=10)
      787   01 005D8    6AF00F55     T1S1M1   BAL,R15  ERRMSG
      788   01 005D9    0000007B A            DATA     123               #123
      789   01 005DA    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      790   01 005DB    2E000000 A            WAIT
      791   01 005DC    680005C3              B        T1S1K1            LOOP
      792                            *
      793   01 005DD    72400003 A   T1S1N1   LB,R4    R3                TIO STATUS
      794   01 005DE    4B40168E              AND,R4   =X'E7'            MASK
      795   01 005DF    683005E5              BEZ      T1S1P             STATUS BITS 0-2,5-7 =0
      796                            *ERR 124      (STATUS BIT(S) 0-2,5-7 SET)
      797   01 005E0    6AF00F55              BAL,R15  ERRMSG
      798   01 005E1    0000007C A            DATA     124               #124
      799   01 005E2    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      800   01 005E3    2E000000 A            WAIT
      801   01 005E4    680005C3              B        T1S1K1            LOOP
      802                            *
      803   01 005E5    72400003 A   T1S1P    LB,R4    R3                TDV STATUS
      804   01 005E6    4B40168C              AND,R4   =X'8'             MASK
      805   01 005E7    683005ED              BEZ      T1S1Q
      806                            *ERR 125      (DEV OFFLINE)
      807   01 005E8    6AF00F55              BAL,R15  ERRMSG
      808   01 005E9    0000007D A            DATA     125               #125
      809   01 005EA    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      810   01 005EB    2E000000 A            WAIT
      811   01 005EC    680005C3              B        T1S1K1            LOOP
      812                            *
      813   01 005ED    72400003 A   T1S1Q    LB,R4    R3                TDV STATUS
      814   01 005EE    4B40168B              AND,R4   =X'10'            MASK
      815   01 005EF    683005F5              BEZ      T1S1U             DEVICE AUTO
      816                            *
      817                            *ERR 126      (DEVICE MANUAL )
      818   01 005F0    6AF00F55              BAL,R15  ERRMSG
      819   01 005F1    0000007E A            DATA     126               #126
      820   01 005F2    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      821   01 005F3    2E000000 A            WAIT
      822   01 005F4    680005C3              B        T1S1K1            LOOP
      823                            *
      824                            *
      825   01 005F5    CD200344     T1S1U    TIO,R2   *:DEVADDR         ISSUE TIO
      826   01 005F6    74000004 A            STCF     R4                CC1,2
      827   01 005F7    72400004 A            LB,R4    R4
      828   01 005F8    2540007A A            SLS,R4   -6
      829   01 005F9    21400000 A            CI,R4    0
      830   01 005FA    6830060F              BE       T1S1X             CC1,2=00
      831   01 005FB    21400003 A            CI,R4    3
      832   01 005FC    69300602              BNE      T1S1V             CC1,2 NOT 11
      833                            *ERR 131      (CC1,2=11)
      834   01 005FD    6AF00F55              BAL,R15  ERRMSG
      835   01 005FE    00000083 A            DATA     131               #131
      836   01 005FF    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      837   01 00600    2E000000 A            WAIT
      838   01 00601    680005F5              B        T1S1U             LOOP
      839                            *
      840   01 00602    21400002 A   T1S1V    CI,R4    2
      841   01 00603    6930060A              BNE      T1S1W             CC1,2 NOT 10
      842                            *ERR 132      (CC1,2=10)
      843   01 00604    6AF00F55              BAL,R15  ERRMSG
      844   01 00605    00000084 A            DATA     132               #132
      845   01 00606    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      846   01 00607    2E000000 A            WAIT
      847   01 00608    680005F5              B        T1S1U             LOOP
      848   01 00609    6800060F              B        T1S1X
      849                            *
      850                            *ERR 133     (CC1,2=01)
      851   01 0060A    6AF00F55     T1S1W    BAL,R15  ERRMSG
      852   01 0060B    00000085 A            DATA     133               #133
      853   01 0060C    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      854   01 0060D    2E000000 A            WAIT
      855   01 0060E    680005F5              B        T1S1U             LOOP
      856                            *
      857   01 0060F    72400003 A   T1S1X    LB,R4    R3                TIO STATUS
      858   01 00610    4B40168F              AND,R4   =X'EF'            MASK
      859   01 00611    E8300618              BEZ      *T11RTN           STATUS BITS CORRECT-EXIT
      860                            *ERR 134     (STATUS BIT(S) SET)
      861   01 00612    6AF00F55              BAL,R15  ERRMSG
      862   01 00613    00000086 A            DATA     134               #134
      863   01 00614    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      864   01 00615    2E000000 A            WAIT
      865   01 00616    680005F5              B        T1S1U             LOOP
      866   01 00617    E8000618              B        *T11RTN           EXIT
      867                            *
      868   01 00618    00000000 A   T11RTN   DATA     0
      869                            *
      870                            *
      871                            *  TST1  SUBTEST 2 ***
      872                            *
      873                            * THE TST1,2 ROUTINE CHECKS THE FOLLOWING FUNCTIONS:
      874                            *    (A) SIO-PRINTING OF CHARACTERS
      875                            *    (B) TIO-BUSY INDICATIONS
      876                            *    (C) SIO-CHARACTER INPUT BUSY INDICATIONS
      877                            *
      878   01 00619    35F0070F     TST12    STW,R15  T12RTN            SAVE RETURN ADDRESS
      879   01 0061A    CF200344     T1S2A    HIO,R2   *:DEVADDR         INITIAL HIO
      880   01 0061B    22E000C8 A            LI,R14   200
      881   01 0061C    6AF01173              BAL,R15  :DELAY            DELAY 200 MSEC
      882   01 0061D    6800061E              B        %+1
      883   01 0061E    22000388              LI,R0    DA(T12IOCD1)
      884   01 0061F    CC200344              SIO,R2   *:DEVADDR         PRINT TWO CHARACTERS
      885   01 00620    68C00638              BCR,12   T1S2D             CC1,2=00
      886   01 00621    74000004 A            STCF     R4                CC1,2
      887   01 00622    72400004 A            LB,R4    R4
      888   01 00623    2540007A A            SLS,R4   -6
      889   01 00624    21400003 A            CI,R4    3
      890   01 00625    6930062B              BNE      T1S2B             CC1,2 NOT 11
      891                            *ERR 201      (CC1,2=11)
      892   01 00626    6AF00F55              BAL,R15  ERRMSG
      893   01 00627    000000C9 A            DATA     201               #201
      894   01 00628    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      895   01 00629    2E000000 A            WAIT
      896   01 0062A    6800061A              B        T1S2A             LOOP
      897                            *
      898   01 0062B    21400002 A   T1S2B    CI,R4    2
      899   01 0062C    69300633              BNE      T1S2C             CC1,2 NOT 10
      900                            *ERR 202      (CC1,2=10)
      901   01 0062D    6AF00F55              BAL,R15  ERRMSG
      902   01 0062E    000000CA A            DATA     202               #202
      903   01 0062F    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      904   01 00630    2E000000 A            WAIT
      905   01 00631    6800061A              B        T1S2A             LOOP
      906   01 00632    68000638              B        T1S2D
      907                            *
      908                            *ERR 203     (CC1,2=01)
      909   01 00633    6AF00F55     T1S2C    BAL,R15  ERRMSG
      910   01 00634    000000CB A            DATA     203               #203
      911   01 00635    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      912   01 00636    2E000000 A            WAIT
      913   01 00637    6800061A              B        T1S2A             LOOP
      914                            *
      915   01 00638    72400003 A   T1S2D    LB,R4    R3                SIO STATUS
      916   01 00639    4B40168F              AND,R4   =X'EF'            MASK
      917   01 0063A    68300640              BEZ      T1S2E             STATUS CORRECT
      918                            *ERR 204      (DEVICE,CONTR STATUS ERROR)
      919   01 0063B    6AF00F55              BAL,R15  ERRMSG
      920   01 0063C    000000CC A            DATA     204               #204
      921   01 0063D    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      922   01 0063E    2E000000 A            WAIT
      923   01 0063F    6800061A              B        T1S2A             LOOP

      925   01 00640    32E00476     T1S2E    LW,R14   BYTETIME          DELAY ONE HALF
      926   01 00641    25E0007F A            SLS,R14  -1                 CHARACTER TIME
      927   01 00642    6AF01173              BAL,R15  :DELAY
      928   01 00643    68000644              B        %+1

      930   01 00644    CD200344              TIO,R2   *:DEVADDR         ISSUE TIO
      931   01 00645    74000004 A   T1S2F1   STCF     R4                CC1,2
      932   01 00646    72400004 A            LB,R4    R4
      933   01 00647    2540007A A            SLS,R4   -6
      934   01 00648    21400003 A            CI,R4    3
      935   01 00649    6930064F              BNE      T1S2F             CC1,2 NOT 11
      936                            *ERR 205      (CC1,2=11)
      937   01 0064A    6AF00F55              BAL,R15  ERRMSG
      938   01 0064B    000000CD A            DATA     205               #205
      939   01 0064C    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      940   01 0064D    2E000000 A            WAIT
      941   01 0064E    6800061A              B        T1S2A             LOOP
      942                            *
      943   01 0064F    21400002 A   T1S2F    CI,R4    2
      944   01 00650    69300656              BNE      T1S2G             CC1,2 NOT 10
      945                            *ERR 206     (CC1,2=10)
      946   01 00651    6AF00F55              BAL,R15  ERRMSG
      947   01 00652    000000CE A            DATA     206               #206
      948   01 00653    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      949   01 00654    2E000000 A            WAIT
      950   01 00655    6800061A              B        T1S2A             LOOP
      951                            *
      952   01 00656    72600003 A   T1S2G    LB,R6    R3                TIO STATUS
      953   01 00657    4B601689              AND,R6   =X'60'            MASK
      954   01 00658    21600060 A            CI,R6    X'60'
      955   01 00659    68300675              BE       T1S2K             DEVICE BUSY
      956   01 0065A    21400000 A            CI,R4    0
      957   01 0065B    68300661              BE       T1S2H             CC1,2=00
      958                            *ERR 207     (CC1,2 AND DEV STATUS INCONCISTENT)
      959   01 0065C    6AF00F55              BAL,R15  ERRMSG
      960   01 0065D    000000CF A            DATA     207               #207
      961   01 0065E    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      962   01 0065F    2E000000 A            WAIT
      963   01 00660    6800061A              B        T1S2A             LOOP
      964                            *
      965   01 00661    21600002 A   T1S2H    CI,R6    2
      966   01 00662    69300668              BNE      T1S2I             DEV OPERATIONAL
      967                            *ERR 208     (DEVICE NOT OPERATIONAL)
      968   01 00663    6AF00F55              BAL,R15  ERRMSG
      969   01 00664    000000D0 A            DATA     208               #208
      970   01 00665    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      971   01 00666    2E000000 A            WAIT
      972   01 00667    6800061A              B        T1S2A
      973                            *
      974   01 00668    21600004 A   T1S2I    CI,R6    4
      975   01 00669    69300670              BNE      T1S2J             DEVICE AVAILABLE
      976                            *ERR 209     (DEVICE NOT AVAILABLE)
      977   01 0066A    6AF00F55              BAL,R15  ERRMSG
      978   01 0066B    000000D1 A            DATA     209               #209
      979   01 0066C    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      980   01 0066D    2E000000 A            WAIT
      981   01 0066E    6800061A              B        T1S2A             LOOP
      982   01 0066F    68000675              B        T1S2K
      983                            *
      984                            *ERR 210     (DEV NOT BUSY)
      985   01 00670    6AF00F55     T1S2J    BAL,R15  ERRMSG
      986   01 00671    000000D2 A            DATA     210               #210
      987   01 00672    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      988   01 00673    2E000000 A            WAIT
      989   01 00674    6800061A              B        T1S2A             LOOP
      990                            *
      991   01 00675    21400001 A   T1S2K    CI,R4    1
      992   01 00676    6830067C              BE       T1S2L             CC1,2=01
      993                            *ERR 211      (CC1,2 AND STATUS INCONSISTANT)
      994   01 00677    6AF00F55              BAL,R15  ERRMSG
      995   01 00678    000000D3 A            DATA     211               #211
      996   01 00679    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
      997   01 0067A    2E000000 A            WAIT
      998   01 0067B    6800061A              B        T1S2A             LOOP
      999                            *
     1000   01 0067C    72500003 A   T1S2L    LB,R5    R3                CONTROLLER STATUS
     1001   01 0067D    4B50168A              AND,R5   =6                MASK
     1002   01 0067E    21500006 A            CI,R5    6
     1003   01 0067F    68300685              BE       T1S2M             CONTROLLER BUSY
     1004                            *ERR 212     (DEV,CONTR STATUS INCONSISTENT)
     1005   01 00680    6AF00F55              BAL,R15  ERRMSG
     1006   01 00681    000000D4 A            DATA     212               #212
     1007   01 00682    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1008   01 00683    2E000000 A            WAIT
     1009   01 00684    6800061A              B        T1S2A             LOOP
     1010                            *
     1011   01 00685    22600001 A   T1S2M    LI,R6    1
     1012   01 00686    724C0003 A            LB,R4    R3,R6             TIO OPERATIONAL STATUS
     1013   01 00687    6830068D              BEZ      T1S2N             CORRECT OPERATIONAL STATUS
     1014                            *ERR 213     (OPERATIONAL STATUS ERROR)
     1015   01 00688    6AF00F55              BAL,R15  ERRMSG
     1016   01 00689    000000D5 A            DATA     213               #213
     1017   01 0068A    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1018   01 0068B    2E000000 A            WAIT
     1019   01 0068C    6800061A              B        T1S2A             LOOP
     1020                            *
     1021   01 0068D    72400003 A   T1S2N    LB,R4    R3                TIO STATUS
     1022   01 0068E    4B401687              AND,R4   =X'80'            MASK
     1023   01 0068F    68300695              BEZ      T1S2N1            NO IP STATUS
     1024                            *ERR 214     (INTERRUPT PENDING STATUS BIT)
     1025   01 00690    6AF00F55              BAL,R15  ERRMSG
     1026   01 00691    000000D6 A            DATA     214               #214
     1027   01 00692    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1028   01 00693    2E000000 A            WAIT
     1029   01 00694    6800061A              B        T1S2A             LOOP
     1030                            *
     1031   01 00695    72400003 A   T1S2N1   LB,R4    R3                TIO STATUS
     1032   01 00696    4B40168C              AND,R4   =8                MASK
     1033   01 00697    6830069D              BEZ      T1S2N2            NO UE STATUS
     1034                            *ERR 215     (UE STATUS BIT)
     1035   01 00698    6AF00F55              BAL,R15  ERRMSG
     1036   01 00699    000000D7 A            DATA     215               #215
     1037   01 0069A    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1038   01 0069B    2E000000 A            WAIT
     1039   01 0069C    6800061A              B        T1S2A             LOOP
     1040                            *
     1041   01 0069D    22400001 A   T1S2N2   LI,R4    1
     1042   01 0069E    52480003 A            LH,R4    R3,R4             BYTE COUNT
     1043   01 0069F    21400001 A            CI,R4    1
        1*  01 006A0    682006A6              BLE      T1S2N3            BYTE COUNT AT MOST 1, IF NOT 0  *H00
     1045                            *ERR 227     (TIO BYTE COUNT NOT 1)
     1046   01 006A1    6AF00F55              BAL,R15  ERRMSG
     1047   01 006A2    000000E3 A            DATA     227               #227
     1048   01 006A3    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1049   01 006A4    2E000000 A            WAIT
     1050   01 006A5    6800061A              B        T1S2A             LOOP

     1052   01 006A6    32E00476     T1S2N3   LW,R14   BYTETIME          DELAY ONE
     1053   01 006A7    6AF01173     T1S2O    BAL,R15  :DELAY             CHARACTER TIME
     1054   01 006A8    680006A9              B        %+1

     1056   01 006A9    CD200344              TIO,R2   *:DEVADDR         ISSUE TIO

     1069   01 006AA    22400001 A   T1S2P    LI,R4    1
     1070   01 006AB    52480003 A            LH,R4    R3,R4             TIO BYTE COUNT
     1071   01 006AC    21400000 A            CI,R4    0
     1072   01 006AD    683006B3              BE       T1S2Q             BYTE COUNT =0
     1073                            *ERR  228  (BYTE COUNT NOT REDUCED)
     1074   01 006AE    6AF00F55              BAL,R15  ERRMSG
     1075   01 006AF    000000E4 A            DATA     228               #228
     1076   01 006B0    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1077   01 006B1    2E000000 A            WAIT
     1078   01 006B2    6800061A              B        T1S2A             LOOP

     1080   01 006B3    32E00476     T1S2Q    LW,R14   BYTETIME          DELAY ONE
     1081   01 006B4    6AF01173              BAL,R15  :DELAY             CHARACTER TIME
     1082   01 006B5    680006B6              B        %+1

     1084   01 006B6    CD200344     T1S2Q1   TIO,R2   *:DEVADDR         ISSUE TIO
     1085   01 006B7    68C006BD              BCR,12   T1S2R             CC1,2=00
     1086                            *ERR 217     (CC1,2=01)
     1087   01 006B8    6AF00F55              BAL,R15  ERRMSG
     1088   01 006B9    000000D9 A            DATA     217               #217
     1089   01 006BA    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1090   01 006BB    2E000000 A            WAIT
     1091   01 006BC    6800061A              B        T1S2A             LOOP
     1092                            *
     1093   01 006BD    52400003 A   T1S2R    LH,R4    R3                TIO STATUS
     1094   01 006BE    4B401690              AND,R4   =X'EFFF'          MASK
     1095   01 006BF    683006C5              BEZ      T1S2S             STATUS CORRECT
     1096                            *ERR 218     (STATUS ERROR)
     1097   01 006C0    6AF00F55              BAL,R15  ERRMSG
     1098   01 006C1    000000DA A            DATA     218               #218
     1099   01 006C2    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1100   01 006C3    2E000000 A            WAIT
     1101   01 006C4    6800061A              B        T1S2A             LOOP
     1102                            *
     1103   01 006C5    CF200344     T1S2S    HIO,R2   *:DEVADDR
     1104   01 006C6    22E000C8 A            LI,R14   200
     1105   01 006C7    6AF01173              BAL,R15  :DELAY            DELAY 200 MSEC
     1106   01 006C8    680006C9              B        %+1
     1107   01 006C9    22000389              LI,R0    DA(T12IOCD2)
     1108   01 006CA    CC200344     T1S2S1   SIO,R2   *:DEVADDR         READ TWO CHARACTERS
     1109   01 006CB    68C006D1              BCR,12   T1S2T             CC1,2=00
     1110                            *ERR 219     (SIO NOT ACCEPTED)
     1111   01 006CC    6AF00F55              BAL,R15  ERRMSG
     1112   01 006CD    000000DB A            DATA     219               #219
     1113   01 006CE    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1114   01 006CF    2E000000 A            WAIT
     1115   01 006D0    680006C5              B        T1S2S             LOOP
     1116                            *
     1117   01 006D1    52400003 A   T1S2T    LH,R4    R3                SIO STATUS
     1118   01 006D2    4B401690              AND,R4   =X'EFFF'          MASK
     1119   01 006D3    683006D9              BEZ      T1S2U             STATUS CORRECT
     1120                            *ERR 220     (STATUS ERROR)
     1121   01 006D4    6AF00F55              BAL,R15  ERRMSG
     1122   01 006D5    000000DC A            DATA     220               #220
     1123   01 006D6    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1124   01 006D7    2E000000 A            WAIT
     1125   01 006D8    680006C5              B        T1S2S             LOOP
     1126                            *
     1127   01 006D9    22E000FA A   T1S2U    LI,R14   250
     1128   01 006DA    6AF01173              BAL,R15  :DELAY            DELAY 250 MSEC
     1129   01 006DB    680006DC              B        %+1
     1130   01 006DC    CD200344              TIO,R2   *:DEVADDR         ISSUE TIO
     1131   01 006DD    69C006E3              BCS,12   T1S2V             CC1,2=01
     1132                            *ERR 221     (CC1,2 ERROR)
     1133   01 006DE    6AF00F55              BAL,R15  ERRMSG
     1134   01 006DF    000000DD A            DATA     221               #221
     1135   01 006E0    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1136   01 006E1    2E000000 A            WAIT
     1137   01 006E2    680006C5              B        T1S2S             LOOP
     1138                            *
     1139   01 006E3    22400001 A   T1S2V    LI,R4    1
     1140   01 006E4    52480003 A            LH,R4    R3,R4             TIO BYTE COUNT
     1141   01 006E5    21400002 A            CI,R4    2
     1142   01 006E6    683006EC              BE       T1S2W             BYTE COUNT NOT REDUCED
     1143                            *ERR 222      (BYTE COUNT REDUCED)
     1144   01 006E7    6AF00F55              BAL,R15  ERRMSG
     1145   01 006E8    000000DE A            DATA     222               #222
     1146   01 006E9    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1147   01 006EA    2E000000 A            WAIT
     1148   01 006EB    680006C5              B        T1S2S             LOOP
     1149                            *
     1150   01 006EC    72400003 A   T1S2W    LB,R4    R3                TIO STATUS
     1151   01 006ED    2540007C A            SLS,R4   -4                SEPARATE DEV,CONTR STATUS
     1152   01 006EE    21400007 A            CI,R4    7
     1153   01 006EF    683006F5              BE       T1S2X             DEV BUSY
     1154                            *ERR 223     (DEV STATUS ERROR)
     1155   01 006F0    6AF00F55              BAL,R15  ERRMSG
     1156   01 006F1    000000DF A            DATA     223               #223
     1157   01 006F2    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1158   01 006F3    2E000000 A            WAIT
     1159   01 006F4    680006C5              B        T1S2S             LOOP
     1160                            *
     1161   01 006F5    72400003 A   T1S2X    LB,R4    R3                CONTROLLER STATUS
     1162   01 006F6    21400076 A            CI,R4    X'76'
     1163   01 006F7    683006FD              BE       T1S2Y             CONTR BUSY
     1164                            *ERR 224     (CONTR STATUS ERROR)
     1165   01 006F8    6AF00F55              BAL,R15  ERRMSG
     1166   01 006F9    000000E0 A            DATA     224               #224
     1167   01 006FA    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1168   01 006FB    2E000000 A            WAIT
     1169   01 006FC    680006C5              B        T1S2S             LOOP
     1170                            *
     1171   01 006FD    CF200344     T1S2Y    HIO,R2   *:DEVADDR         ISSUE HIO
     1172   01 006FE    69400704              BCS,4    T1S2Z             CC1,2=01
     1173                            *ERR 225     (CC1,2=00)
     1174   01 006FF    6AF00F55              BAL,R15  ERRMSG
     1175   01 00700    000000E1 A            DATA     225               #225
     1176   01 00701    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1177   01 00702    2E000000 A            WAIT
     1178   01 00703    680006C5              B        T1S2S             LOOP
     1179                            *
     1180   01 00704    CD200344     T1S2Z    TIO,R2   *:DEVADDR         ISSUE TIO
     1181   01 00705    68C0070B              BCR,12   T1S2AA            CC1,2=00
     1182                            *ERR 226      (DEVICE BUSY AFTER HIO)
     1183   01 00706    6AF00F55              BAL,R15  ERRMSG
     1184   01 00707    000000E2 A            DATA     226               #226
     1185   01 00708    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1186   01 00709    2E000000 A            WAIT
     1187   01 0070A    680006C5              B        T1S2S             LOOP
     1188                            *
     1189   01 0070B    21200389     T1S2AA   CI,R2    DA(T12IOCD2)
     1190   01 0070C    E9300618              BNE      *T11RTN           EXIT
     1191   01 0070D    2200038A              LI,R0    DA(T12IOCD3)      INPUT TWO CHARACTERS (M) IOCD
     1192   01 0070E    680006CA              B        T1S2S1            LOOP TO TEST READ KEYBOARD
     1193                            *
     1194   01 0070F    00000000 A   T12RTN   DATA     0
     1195                                     BOUND    8
     1196   01 00710    05001C58     T12IOCD1 GEN,8,24 5,BA(T12BFR1)
     1197   01 00711    00000002 A            GEN,8,24 0,2
     1198   01 00712    06001C5C     T12IOCD2 GEN,8,24 6,BA(T12BFR2)
     1199   01 00713    00000002 A            GEN,8,24 0,2
     1200   01 00714    86001C5C     T12IOCD3 GEN,8,24 X'86',BA(T12BFR2)
     1201   01 00715    00000002 A            GEN,8,24 0,2
     1202   01 00716    E6E74040 A   T12BFR1  TEXT     'WX'
     1203   01 00717    00000000 A   T12BFR2  DATA     0

     1205                            ***  TST 1 SUBTEST 3  ***
     1206                            *
     1207                            * THE TST1,3 ROUTINE CHECKS THE FOLLOWING FUNCTIONS:
     1208                            *    (A) AIO-ADDRESS RECOGNITION AND STATUS
     1209                            *    (B) INTERRUPTS-ZBC AND CE
     1210                            *    (C) HIO-CLEARING OF IP
     1211                            *
     1212   01 00718    35F007E9     TST13    STW,R15  T13RTN            SAVE RETURN ADDRESS
     1213   01 00719    CF200344     T1S3A    HIO,R2   *:DEVADDR         INITIAL HALT
     1214   01 0071A    22E000C8 A            LI,R14   200
     1215   01 0071B    6AF01173              BAL,R15  :DELAY            DELAY 200 MSEC
     1216   01 0071C    6800071D              B        %+1
     1217   01 0071D    6AF01003              BAL,R15  IOAE              ARM/ENABLE IO INTERRUPT
     1218   01 0071E    220003F2              LI,R0    DA(T13IOCD1)      PRINT 2 CHARACTERS (CE INTERRUPT)
     1219   01 0071F    CC200344              SIO,R2   *:DEVADDR         ISSUE SIO
     1220   01 00720    68C00726              BCR,12   T1S3B             CC1,2=00
     1221                            *ERR 301     (SIO NOT ACCEPTED)
     1222   01 00721    6AF00F55              BAL,R15  ERRMSG
     1223   01 00722    0000012D A            DATA     301               #301
     1224   01 00723    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1225   01 00724    2E000000 A            WAIT
     1226   01 00725    68000719              B        T1S3A             LOOP
     1227                            *
     1228   01 00726    22E00100 A   T1S3B    LI,R14   X'100'
     1229   01 00727    6AF01173              BAL,R15  :DELAY            DELAY 225 MSEC FOR INTERRUPT
     1230   01 00728    68000747              B        T1S3F             INTERRUPT REC'D
     1231   01 00729    6AF0100A              BAL,R15  IOD               DISARM IO INTERRUPT
     1232   01 0072A    CD200344              TIO,R2   *:DEVADDR         ISSUE TIO
     1233   01 0072B    69C0073A              BCS,12   T1S3D             CC1,2 NOT 00
     1234   01 0072C    32400003 A            LW,R4    R3                TEST FOR IP
     1235   01 0072D    69100734              BCS,1    T1S3C             IP STATUS BIT PRESENT
     1236                            *ERR 302      (NO CE INTERRUPT)
     1237   01 0072E    6AF00F55              BAL,R15  ERRMSG
     1238   01 0072F    0000012E A            DATA     302               #302
     1239   01 00730    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1240   01 00731    2E000000 A            WAIT
     1241   01 00732    68000719              B        T1S3A             LOOP
     1242   01 00733    68000747              B        T1S3F             CONTINUE
     1243                            *
     1244                            *ERR 303     (NO CE INTERRUPT)
     1245   01 00734    6AF00F55     T1S3C    BAL,R15  ERRMSG
     1246   01 00735    0000012F A            DATA     303               #303
     1247   01 00736    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1248   01 00737    2E000000 A            WAIT
     1249   01 00738    68000719              B        T1S3A             LOOP
     1250   01 00739    68000747              B        T1S3F             CONTINUE
     1251                            *
     1252   01 0073A    32400003 A   T1S3D    LW,R4    R3                TIO STATUS
     1253   01 0073B    69100742              BCS,1    T1S3E             IP STATUS BIT PRESENT
     1254                            *ERR 304     (NO CE INTERRUPT)
     1255   01 0073C    6AF00F55              BAL,R15  ERRMSG
     1256   01 0073D    00000130 A            DATA     304               #304
     1257   01 0073E    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1258   01 0073F    2E000000 A            WAIT
     1259   01 00740    68000719              B        T1S3A             LOOP
     1260   01 00741    68000747              B        T1S3F
     1261                            *
     1262                            *ERR 305     (NO CE INTERRUPT)
     1263   01 00742    6AF00F55     T1S3E    BAL,R15  ERRMSG
     1264   01 00743    00000131 A            DATA     305               #305
     1265   01 00744    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1266   01 00745    2E000000 A            WAIT
     1267   01 00746    68000719              B        T1S3A             LOOP
     1268                            *
     1269   01 00747    6AF0100A     T1S3F    BAL,R15  IOD               DISARM IO INTERRUPT
     1270   01 00748    72400002 A            LB,R4    R2                AIO STATUS
     1271   01 00749    4B401691              AND,R4   =X'7F'            MASK
     1272   01 0074A    68300750              BEZ      T1S3G             AIO STATUS BITS 1-7 RESET
     1273                            *ERR 306     (AIO STATUS ERROR)
     1274   01 0074B    6AF00F55              BAL,R15  ERRMSG
     1275   01 0074C    00000132 A            DATA     306               #306
     1276   01 0074D    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1277   01 0074E    2E000000 A            WAIT
     1278   01 0074F    68000719              B        T1S3A             LOOP
     1279                            *
     1280   01 00750    72400002 A   T1S3G    LB,R4    R2                AIO STATUS
     1281   01 00751    4B401687              AND,R4   =X'80'            MASK
     1282   01 00752    68300758              BEZ      T1S3H             NO DATA OVERRUN
     1283                            *ERR 307     (AIO DATA OVERRUN)
     1284   01 00753    6AF00F55              BAL,R15  ERRMSG
     1285   01 00754    00000133 A            DATA     307               #307
     1286   01 00755    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1287   01 00756    2E000000 A            WAIT
     1288   01 00757    68000719              B        T1S3A             LOOP
     1289                            *
     1290   01 00758    52400002 A   T1S3H    LH,R4    R2                AIO STATUS
     1291   01 00759    4B40168F              AND,R4   =X'EF'            MASK
     1292   01 0075A    68300760              BEZ      T1S3J             OPERATIONAL STATUS CORRECT
     1293                            *ERR 308     (AIO OPERATIONAL STATUS ERROR)
     1294   01 0075B    6AF00F55              BAL,R15  ERRMSG
     1295   01 0075C    00000134 A            DATA     308               #308
     1296   01 0075D    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1297   01 0075E    2E000000 A            WAIT
     1298   01 0075F    68000719              B        T1S3A             LOOP
     1299                            *
     1300   01 00760    52400002 A   T1S3J    LH,R4    R2                AIO STATUS
     1301   01 00761    4B40168B              AND,R4   =X'10'            MASK
     1302   01 00762    69300768              BNEZ     T1S3K             CE INTERRUPT STATUS BIT PRESENT
     1303                            *ERR 309     (AIO NO CE STATUS)
     1304   01 00763    6AF00F55              BAL,R15  ERRMSG
     1305   01 00764    00000135 A            DATA     309               #309
     1306   01 00765    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1307   01 00766    2E000000 A            WAIT
     1308   01 00767    68000719              B        T1S3A             LOOP
     1309                            *
     1310   01 00768    CD200344     T1S3K    TIO,R2   *:DEVADDR         ISSUE TIO
     1311   01 00769    68400777              BCR,4    T1S3M             DEVICE READY
     1312   01 0076A    32400003 A            LW,R4    R3                TIO STATUS
     1313   01 0076B    68100772              BCR,1    T1S3L             IP STATUS BIT NOT PRESENT
     1314                            *ERR 310     (TIO CE INTERRUPT BIT NOT CLEARED)
     1315   01 0076C    6AF00F55              BAL,R15  ERRMSG
     1316   01 0076D    00000136 A            DATA     310               #310
     1317   01 0076E    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1318   01 0076F    2E000000 A            WAIT
     1319   01 00770    68000719              B        T1S3A             LOOP
     1320   01 00771    68000777              B        T1S3M
     1321                            *
     1322                            *ERR 311     (TIO DEVICE BUSY)
     1323   01 00772    6AF00F55     T1S3L    BAL,R15  ERRMSG
     1324   01 00773    00000137 A            DATA     311               #311
     1325   01 00774    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1326   01 00775    2E000000 A            WAIT
     1327   01 00776    68000719              B        T1S3A             LOOP
     1328                            *
     1329   01 00777    32400003 A   T1S3M    LW,R4    R3                TIO STATUS
     1330   01 00778    6810077E              BCR,1    T1S3N             IP STATUS BIT CLEARED
     1331                            *ERR 312     (TIO CE STATUS NOT CLEARED)
     1332   01 00779    6AF00F55              BAL,R15  ERRMSG
     1333   01 0077A    00000138 A            DATA     312               #312
     1334   01 0077B    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1335   01 0077C    2E000000 A            WAIT
     1336   01 0077D    68000719              B        T1S3A             LOOP
     1337                            *
     1338   01 0077E    CF200344     T1S3N    HIO,R2   *:DEVADDR         ISSUE HIO
     1339   01 0077F    22E000C8 A            LI,R14   200
     1340   01 00780    6AF01173              BAL,R15  :DELAY            DELAY 200 MSEC
     1341   01 00781    68000782              B        %+1
     1342   01 00782    6AF01003              BAL,R15  IOAE              ARM/ENABLE IO INTERRUPT
     1343   01 00783    220003F3              LI,R0    DA(T13IOCD2)
     1344   01 00784    CC200344              SIO,R2   *:DEVADDR         PRINT TWO CHARACTERS (ZBC INTERRUPT)
     1345   01 00785    22E000E1 A            LI,R14   225
     1346   01 00786    6AF01173              BAL,R15  :DELAY            DELAY 225 MSEC
     1347   01 00787    6800078E              B        T1S3P             INTERRUPT REC'D
     1348   01 00788    6AF0100A              BAL,R15  IOD               DISARM IO INTERRUPT
     1349                            *ERR 313     (NO ZBC INTERRUPT)
     1350   01 00789    6AF00F55              BAL,R15  ERRMSG
     1351   01 0078A    00000139 A            DATA     313               #313
     1352   01 0078B    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1353   01 0078C    2E000000 A            WAIT
     1354   01 0078D    6800077E              B        T1S3N             LOOP
     1355                            *
     1356   01 0078E    52400002 A   T1S3P    LH,R4    R2                AIO STATUS
     1357   01 0078F    4B401692              AND,R4   =X'FFDF'          MASK
     1358   01 00790    68300796              BEZ      T1S3Q             AIO STATUS (LESS ZBC) CORRECT
     1359                            *ERR 314     (AIO STATUS ERROR)
     1360   01 00791    6AF00F55              BAL,R15  ERRMSG
     1361   01 00792    0000013A A            DATA     314               #314
     1362   01 00793    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1363   01 00794    2E000000 A            WAIT
     1364   01 00795    6800077E              B        T1S3N             LOOP
     1365                            *
     1366   01 00796    52400002 A   T1S3Q    LH,R4    R2                AIO STATUS
     1367   01 00797    4B401693              AND,R4   =X'20'            MASK
     1368   01 00798    6930079E              BNEZ     T1S3R             ZBC STATUS BIT PRESENT
     1369                            *ERR 315     (AIO NO ZBC STATUS)
     1370   01 00799    6AF00F55              BAL,R15  ERRMSG
     1371   01 0079A    0000013B A            DATA     315               #315
     1372   01 0079B    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1373   01 0079C    2E000000 A            WAIT
     1374   01 0079D    6800077E              B        T1S3N             LOOP
     1375                            *
     1376   01 0079E    6AF0100A     T1S3R    BAL,R15  IOD               DISARM IO INTERRUPT
     1377   01 0079F    22E00064 A            LI,R14   100
     1378   01 007A0    6AF01173              BAL,R15  :DELAY            DELAY 100 MSEC
     1379   01 007A1    680007A3              B        %+2
     1380   01 007A2    6E200000 A   T1S3R1   AIO,R2   0                 RESET IOP INTERRUPT
     1381   01 007A3    CF200344              HIO,R2   *:DEVADDR         ISSUE HIO
     1382   01 007A4    22E000C8 A            LI,R14   200
     1383   01 007A5    6AF01173              BAL,R15  :DELAY            DELAY 200 MSEC
     1384   01 007A6    680007A7              B        %+1
     1385   01 007A7    22400020 A            LI,R4    X'20'
     1386   01 007A8    6D401300 A            WD,R4    X'1300'           ARM/DISABLE IO INTERRUPT
     1387   01 007A9    220003F2              LI,R0    DA(T13IOCD1)
     1388   01 007AA    CC200344              SIO,R2   *:DEVADDR         PRINT 2 CHARACTERS (CE INTER)
     1389   01 007AB    22E00145 A            LI,R14   325
     1390   01 007AC    6AF01173              BAL,R15  :DELAY            DELAY 325 MSEC
     1391   01 007AD    680007AF              B        %+2               INTERRUPT REC'D
     1392   01 007AE    680007B5              B        T1S3S
     1393                            *ERR 316     (DISABLED CE INTERRUPT REC'D)
     1394   01 007AF    6AF0100A              BAL,R15  IOD               DISARM IO INTERRUPT
     1395   01 007B0    6AF00F55              BAL,R15  ERRMSG
     1396   01 007B1    0000013C A            DATA     316               #316
     1397   01 007B2    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1398   01 007B3    2E000000 A            WAIT
     1399   01 007B4    680007A2              B        T1S3R1            LOOP
     1400                            *
     1401   01 007B5    CD200344     T1S3S    TIO,R2   *:DEVADDR         ISSUE TIO
     1402   01 007B6    69C007BC              BCS,12   T1S3T             TIO CC1,2 =01
     1403                            *ERR 317     (TIO CC1,2 ERROR)
     1404   01 007B7    6AF00F55              BAL,R15  ERRMSG
     1405   01 007B8    0000013D A            DATA     317               #317
     1406   01 007B9    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1407   01 007BA    2E000000 A            WAIT
     1408   01 007BB    680007A2              B        T1S3R1            LOOP
     1409                            *
     1410   01 007BC    32400003 A   T1S3T    LW,R4    R3                TIO STATUS
     1411   01 007BD    691007C3              BCS,1    T1S3U             IP STATUS
     1412                            *ERR 318     (TIO NO IP STATUS)
     1413   01 007BE    6AF00F55              BAL,R15  ERRMSG
     1414   01 007BF    0000013E A            DATA     318               #318
     1415   01 007C0    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1416   01 007C1    2E000000 A            WAIT
     1417   01 007C2    680007A2              B        T1S3R1            LOOP
     1418                            *
     1419   01 007C3    CF200344     T1S3U    HIO,R2   *:DEVADDR         ISSUE HIO
     1420   01 007C4    68C007CA              BCR,12   T1S3V             CC1,2 =00
     1421                            *ERR 319     (HIO CC1,2 ERROR)
     1422   01 007C5    6AF00F55              BAL,R15  ERRMSG
     1423   01 007C6    0000013F A            DATA     319               #319
     1424   01 007C7    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1425   01 007C8    2E000000 A            WAIT
     1426   01 007C9    680007A2              B        T1S3R1            LOOP
     1427                            *
     1428   01 007CA    CD200344     T1S3V    TIO,R2   *:DEVADDR         ISSUE TIO
     1429   01 007CB    68C007D9              BCR,12   T1S3X             CC1,2 =00
     1430   01 007CC    32400003 A            LW,R4    R3                TIO STATUS
     1431   01 007CD    691007D4              BCS,1    T1S3W             IP STATUS BIT SET
     1432                            *ERR 320     (TIO DEVICE NOT READY)
     1433   01 007CE    6AF00F55              BAL,R15  ERRMSG
     1434   01 007CF    00000140 A            DATA     320               #320
     1435   01 007D0    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1436   01 007D1    2E000000 A            WAIT
     1437   01 007D2    680007A2              B        T1S3R1            LOOP
     1438   01 007D3    680007D9              B        T1S3X
     1439                            *
     1440                            *ERR 321     (TIO CE INTERRUPT NOT CLEARED)
     1441   01 007D4    6AF00F55     T1S3W    BAL,R15  ERRMSG
     1442   01 007D5    00000141 A            DATA     321               #321
     1443   01 007D6    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1444   01 007D7    2E000000 A            WAIT
     1445   01 007D8    680007A2              B        T1S3R1            LOOP
     1446                            *
     1447   01 007D9    32400003 A   T1S3X    LW,R4    R3                TIO STATUS
     1448   01 007DA    681007E0              BCR,1    T1S3Y             IP STATUS BIT RESET-EXIT
     1449                            *ERR 322     (TIO CE INTERRUPT STATUS NOT RESET)
     1450   01 007DB    6AF00F55              BAL,R15  ERRMSG
     1451   01 007DC    00000142 A            DATA     322               #322
     1452   01 007DD    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1453   01 007DE    2E000000 A            WAIT
     1454   01 007DF    680007A2              B        T1S3R1            LOOP
     1455   01 007E0    6AF0100A     T1S3Y    BAL,R15  IOD               DISARM IO INTERRUPT
     1456   01 007E1    6E200000 A            AIO,R2   0                 CLEAR IOP INTERRUPT
     1457   01 007E2    E80007E9              B        *T13RTN           EXIT
     1458                            *
     1459                                     BOUND    8
     1460   01 007E4    05001FA0     T13IOCD1 GEN,8,24 5,BA(T13BFR)
     1461   01 007E5    10000002 A            GEN,8,24 X'10',2
     1462   01 007E6    05001FA0     T13IOCD2 GEN,8,24 5,BA(T13BFR)
     1463   01 007E7    40000002 A            GEN,8,24 X'40',2
     1464   01 007E8    C3F04040 A   T13BFR   TEXT     'C0'
     1465   01 007E9    00000000 A   T13RTN   DATA     0
     1466                            *
     1467                            *
     1468                            ***  TST 1 SUBTEST 4 ***
     1469                            *
     1470                            * THE TST1,4 ROUTINE CHECKS THE FOLLOWING FUNCTIONS:
     1471                            *    (A) PRINTING OF ALL ALPHANUMERICS
     1472                            *    (B) PRINTING OF SPECIFIED FAILING CHARACTER
     1473                            *
     1474   01 007EA    35F0085D     TST14    STW,R15  T14RTN            SAVE RETURN ADDRESS
     1475   01 007EB    22500000 A            LI,R5    0
     1476   01 007EC    15500862              STD,R5   T14F1             CLEAR FLAGS
     1477   01 007ED    22600025 A            LI,R6    37                INITIALIZE CHARACTER COUNT
     1478   01 007EE    22402190              LI,R4    BA(T14CS)
     1479   01 007EF    22500001 A            LI,R5    1
     1480   01 007F0    554A0860              STH,R4   T14IOCD2,R5       INITIALIZE CHARACTER ADDRESS
     1481   01 007F1    35500861              STW,R5   T14IOCD2+1        INITIALIZE BYTE COUNT
     1482                            *
     1483   01 007F2    CF200344     T1S4A    HIO,R2   *:DEVADDR         ISSUE HIO
     1484   01 007F3    32E01694              LW,R14   =X'EFFFC000'      MASK
     1485   01 007F4    6AF0107A              BAL,R15  :HIO              ISSUE HIO
     1486   01 007F5    680007FC              B        T1S4B
     1487                            *ERR 401     (HIO STATUS ERROR)
     1488   01 007F6    1220000C A            LD,R2    R12               MOVE STATUS
     1489   01 007F7    6AF00F55              BAL,R15  ERRMSG
     1490   01 007F8    00000191 A            DATA     401               #401
     1491   01 007F9    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1492   01 007FA    2E000000 A            WAIT
     1493   01 007FB    680007F2              B        T1S4A             LOOP
     1494                            *
     1495   01 007FC    22E000C8 A   T1S4B    LI,R14   200
     1496   01 007FD    6AF01173              BAL,R15  :DELAY            DELAY 200 MSEC
     1497   01 007FE    680007FF              B        %+1
     1498   01 007FF    2200042F              LI,R0    DA(T14IOCD1)
     1499   01 00800    32E01694              LW,R14   =X'EFFFC000'      MASK
     1500   01 00801    6AF01064              BAL,R15  :SIO              PRINT NL
     1501   01 00802    68000809              B        T1S4C
     1502                            *ERR 402     (SIO STATUS ERROR)
     1503   01 00803    1220000C A            LD,R2    R12               MOVE STATUS
     1504   01 00804    6AF00F55              BAL,R15  ERRMSG
     1505   01 00805    00000192 A            DATA     402               #402
     1506   01 00806    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1507   01 00807    2E000000 A            WAIT
     1508   01 00808    680007F2              B        T1S4A             LOOP
     1509                            *
     1510   01 00809    22E00190 A   T1S4C    LI,R14   400
     1511   01 0080A    6AF01173              BAL,R15  :DELAY            DELAY 400 MSEC
     1512   01 0080B    6800080C              B        %+1
     1513   01 0080C    32E01695     T1S4D    LW,R14   =X'C000'          MASK
     1514   01 0080D    6AF0106F              BAL,R15  :TIO              ISSUE TIO
     1515   01 0080E    68000815              B        T1S4E
     1516                            *ERR 403     (DEVICE BUSY)
     1517   01 0080F    1220000C A            LD,R2    R12               MOVE STATUS
     1518   01 00810    6AF00F55              BAL,R15  ERRMSG
     1519   01 00811    00000193 A            DATA     403               #403
     1520   01 00812    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1521   01 00813    2E000000 A            WAIT
     1522   01 00814    680007F2              B        T1S4A             LOOP
     1523                            *
     1524   01 00815    32E01694     T1S4E    LW,R14   =X'EFFFC000'      MASK
     1525   01 00816    6AF0106F              BAL,R15  :TIO              ISSUE TIO
     1526   01 00817    6800081E              B        T1S4G
     1527                            *ERR 404     (TIO DEV, OPER STATUS ERROR)
     1528   01 00818    1220000C A            LD,R2    R12               MOVE STATUS
     1529   01 00819    6AF00F55              BAL,R15  ERRMSG
     1530   01 0081A    00000194 A            DATA     404               #404
     1531   01 0081B    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1532   01 0081C    2E000000 A            WAIT
     1533   01 0081D    680007F2              B        T1S4A
     1534                            *
     1535   01 0081E    CF200344     T1S4G    HIO,R2   *:DEVADDR         ISSUE HIO
     1536   01 0081F    22E000C8 A            LI,R14   200
     1537   01 00820    6AF01173              BAL,R15  :DELAY            DELAY 200 MSEC
     1538   01 00821    68000822              B        %+1
     1539   01 00822    68000823              B        %+1
     1540   01 00823    22000430     T1S4G1   LI,R0    DA(T14IOCD2)
     1541   01 00824    32E01696              LW,R14   =X'EF00C000'      MASK
     1542   01 00825    6AF01064              BAL,R15  :SIO              PRINT ONE CHARACTER
     1543   01 00826    6800082D              B        T1S4H
     1544                            *ERR 405     (SIO ERROR)
     1545   01 00827    1220000C A            LD,R2    R12               MOVE STATUS
     1546   01 00828    6AF00F55              BAL,R15  ERRMSG
     1547   01 00829    00000195 A            DATA     405               #405
     1548   01 0082A    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1549   01 0082B    2E000000 A            WAIT
     1550   01 0082C    6800081E              B        T1S4G             LOOP
     1551                            *
     1552   01 0082D    22E00087 A   T1S4H    LI,R14   X'87'
     1553   01 0082E    6AF01173              BAL,R15  :DELAY            DELAY 120 MSEC
     1554   01 0082F    68000830              B        %+1
     1555   01 00830    32E01694              LW,R14   =X'EFFFC000'      MASK
     1556   01 00831    6AF0106F              BAL,R15  :TIO              ISSUE TIO
     1557   01 00832    68000839              B        T1S4J
     1558                            *ERR 406     (TIO STATUS,CC ERROR)
     1559   01 00833    1220000C A            LD,R2    R12               MOVE STATUS
     1560   01 00834    6AF00F55              BAL,R15  ERRMSG
     1561   01 00835    00000196 A            DATA     406               #406
     1562   01 00836    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1563   01 00837    2E000000 A            WAIT
     1564   01 00838    6800081E              B        T1S4G             LOOP
     1565                            *
     1566   01 00839    33100860     T1S4J    MTW,1    T14IOCD2          UPDATE CHARACTER ADDRESS
     1567   01 0083A    64600823              BDR,R6   T1S4G1            CHARACTER COUNT NOT 0 -LOOP

     1569   01 0083B    2200042F              LI,R0    DA(T14IOCD1)
     1570   01 0083C    CC200344              SIO,R2   *:DEVADDR         NL
     1571   01 0083D    CD200344              TIO,R2   *:DEVADDR         TEST FOR BUSY
     1572   01 0083E    69C0083D              BCS,12   %-1               DEVICE BUSY
     1573   01 0083F    33000345              MTW,0    IODEV             TEST FOR IO DEVICE
     1574   01 00840    68300847              BEZ      T1S4L             NONE
     1575   01 00841    EAF00F6A              BAL,R15  *:PRINT
     1576   01 00842    0000086F              DATA     T14MSG1           'INPUT FAILING CHARACTER(S)'
     1577   01 00843    EAF00F6A              BAL,R15  *:PRINT
     1578   01 00844    00000879              DATA     T14MSG2
     1579   01 00845    EAF00F6A              BAL,R15  *:PRINT
     1580   01 00846    00000883              DATA     T14MSG3

     1582   01 00847    32001697     T1S4L    LW,R0    =X'80000003'      MSG #003
     1583   01 00848    2E000000 A   T1S4M    WAIT
     1584   01 00849    6800084B              B        %+2               BIPASS EXIT
     1585   01 0084A    E800085D              B        *T14RTN           EXIT

     1587   01 0084B    31001697              CW,R0    =X'80000003'      CHECK FOR NO CHANGE
     1588   01 0084C    E830085D              BE       *T14RTN            AND RETURN IF TRUE

     1590   01 0084D    22400001 A            LI,R4    1
     1591   01 0084E    22500002 A            LI,R5    2
     1592   01 0084F    726A0000 A            LB,R6    R0,R5             BYTE 2 OF REG 0
     1593   01 00850    68300855              BEZ      T1S4N             NOT SPECIFIED
     1594   01 00851    7568086D              STB,R6   T14CS+9,R4        ENTER BYTE 2 INTO DW
     1595   01 00852    750A086D              STB,R0   T14CS+9,R5        ENTER BYTE 3 INTO DW
     1596   01 00853    33100861              MTW,1    T14IOCD2+1        SET BYTE COUNT TO 2
     1597   01 00854    68000856              B        %+2
     1598   01 00855    7508086D     T1S4N    STB,R0   T14CS+9,R4        ENTER BYTE 3 INTO DW
     1599   01 00856    22000430              LI,R0    DA(T14IOCD2)
     1600   01 00857    CC200344     T1S4P    SIO,R2   *:DEVADDR         ISSUE SIO (PRINT)
     1601   01 00858    CD200344              TIO,R2   *:DEVADDR
     1602   01 00859    69C00858              BCS,12   %-1               BUSY
     1603   01 0085A    6C000000 A            RD,0     0                 TEST SENSE SWITCH 1 FOR LOOPING
     1604   01 0085B    E880085D              BCR,8    *T14RTN           RESET-EXIT
     1605   01 0085C    68000857              B        T1S4P             SET-LOOP TO PRINT
     1606                            *
     1607   01 0085D    00000000 A   T14RTN   DATA     0
     1608                                     BOUND    8
     1609   01 0085E    050021B8     T14IOCD1 GEN,8,24 5,BA(T14BFR)
     1610   01 0085F    00000001 A            GEN,8,24 0,1
     1611   01 00860    05002190     T14IOCD2 GEN,8,24 5,BA(T14CS)
     1612   01 00861    00000001 A            GEN,8,24 0,1
     1613   01 00862    00000000 A   T14F1    DATA     0
     1614   01 00863    00000000 A   T14F2    DATA     0
     1615   01 00864    C1C2C3C4 A   T14CS    TEXT     'ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890'
            01 00865    C5C6C7C8 A
            01 00866    C9D1D2D3 A
            01 00867    D4D5D6D7 A
            01 00868    D8D9E2E3 A
            01 00869    E4E5E6E7 A
            01 0086A    E8E940F1 A
            01 0086B    F2F3F4F5 A
            01 0086C    F6F7F8F9 A
            01 0086D    F0404040 A
     1616   01 0086E    15000000 A   T14BFR   DATA     X'15000000'

     1618   01 0086F    26C9D5E2 A   T14MSG1  TEXTC    'INSERT EBCDIC FAILING CHARACTERS INTO '
            01 00870    C5D9E340 A
            01 00871    C5C2C3C4 A
            01 00872    C9C340C6 A
            01 00873    C1C9D3C9 A
            01 00874    D5C740C3 A
            01 00875    C8C1D9C1 A
            01 00876    C3E3C5D9 A
            01 00877    E240C9D5 A
            01 00878    E3D64040 A
     1619   01 00879    26D9C5C7 A   T14MSG2  TEXTC    'REGISTER 0 (BYTE 3, OR BYTES 2 AND 3) '
            01 0087A    C9E2E3C5 A
            01 0087B    D940F040 A
            01 0087C    4DC2E8E3 A
            01 0087D    C540F36B A
            01 0087E    40D6D940 A
            01 0087F    C2E8E3C5 A
            01 00880    E240F240 A
            01 00881    C1D5C440 A
            01 00882    F35D4040 A
     1620   01 00883    18C3D3C5 A   T14MSG3  TEXTC    'CLEAR WAIT WHEN READY...'
            01 00884    C1D940E6 A
            01 00885    C1C9E340 A
            01 00886    E6C8C5D5 A
            01 00887    40D9C5C1 A
            01 00888    C4E84B4B A
            01 00889    4B404040 A

     1622                            *** TST1 SUBTEST 5  ***
     1623                            *
     1624                            * THE TST1,5 ROUTINE CHECKS THE PRINTING USING VARIABLE LENGTH RECORDS
     1625                            *
     1626   01 0088A    35F008C6     TST15    STW,R15  T15RTN            SAVE RETURN ADDRESS
     1627   01 0088B    22402334              LI,R4    BA(T15CS)         CHARACTER STRING ADDRESS
     1628   01 0088C    22500001 A            LI,R5    1
     1629   01 0088D    554A08CA              STH,R4   T15IOCD2,R5       ENTER INTO IOCD
     1630   01 0088E    22600000 A            LI,R6    0                 BYTE COUNT POINTER
     1631   01 0088F    2280000F A            LI,R8    15
     1632   01 00890    CF200344     T1S5A    HIO,R2   *:DEVADDR         INITIAL HIO
     1633   01 00891    22000464              LI,R0    DA(T15IOCD1)
     1634   01 00892    32E01696              LW,R14   =X'EF00C000'      MASK
     1635   01 00893    6AF01064              BAL,R15  :SIO              ISSUE SIO (PRINT NL)
     1636   01 00894    6800089B              B        T1S5B
     1637                            *ERR 501     (SIO CC, STATUS ERROR)
     1638   01 00895    1220000C A            LD,R2    R12               MOVE STATUS
     1639   01 00896    6AF00F55              BAL,R15  ERRMSG
     1640   01 00897    000001F5 A            DATA     501               #501
     1641   01 00898    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1642   01 00899    2E000000 A            WAIT
     1643   01 0089A    68000890              B        T1S5A             LOOP
     1644                            *
     1645   01 0089B    22E00258 A   T1S5B    LI,R14   600
     1646   01 0089C    6AF01173              BAL,R15  :DELAY            DELAY 600 MSEC
     1647   01 0089D    6800089E              B        %+1
     1648   01 0089E    32E01694              LW,R14   =X'EFFFC000'      MASK
     1649   01 0089F    6AF0106F              BAL,R15  :TIO              ISSUE TIO
     1650   01 008A0    680008A7              B        T1S5C
     1651                            *ERR 502     (TIO CC, STATUS ERROR)
     1652   01 008A1    1220000C A            LD,R2    R12               MOVE STATUS
     1653   01 008A2    6AF00F55              BAL,R15  ERRMSG
     1654   01 008A3    000001F6 A            DATA     502               #502
     1655   01 008A4    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1656   01 008A5    2E000000 A            WAIT
     1657   01 008A6    68000890              B        T1S5A             LOOP
     1658                            *
     1659   01 008A7    CF200344     T1S5C    HIO,R2   *:DEVADDR         ISSUE HIO
     1660   01 008A8    22E0006E A            LI,R14   110
     1661   01 008A9    6AF01173              BAL,R15  :DELAY            DELAY 110 MSEC
     1662   01 008AA    680008AB              B        %+1
     1663   01 008AB    724C08D4     T1S5D    LB,R4    T15BC,R6          BYTE COUNT
     1664   01 008AC    354008CB              STW,R4   T15IOCD2+1        ENTER INTO IOCD
     1665   01 008AD    22000465              LI,R0    DA(T15IOCD2)
     1666   01 008AE    32E01694              LW,R14   =X'EFFFC000'      MASK
     1667   01 008AF    6AF01064              BAL,R15  :SIO              ISSUE SIO
     1668   01 008B0    680008B7              B        T1S5E
     1669                            *ERR 501    (SIO ERROR)
     1670   01 008B1    1220000C A            LD,R2    R12               MOVE STATUS
     1671   01 008B2    6AF00F55              BAL,R15  ERRMSG
     1672   01 008B3    000001F5 A            DATA     501               #501
     1673   01 008B4    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1674   01 008B5    2E000000 A            WAIT
     1675   01 008B6    680008A7              B        T1S5C             LOOP
     1676                            *
     1677   01 008B7    CD200344     T1S5E    TIO,R2   *:DEVADDR         ISSUE TIO
     1678   01 008B8    69C008B7              BCS,12   %-1               DEVICE BUSY-LOOP
     1679   01 008B9    32E01694              LW,R14   =X'EFFFC000'      MASK
     1680   01 008BA    6AF0106F              BAL,R15  :TIO              ISSUE TIO
     1681   01 008BB    680008C2              B        T1S5F
     1682                            *ERR 503    (TIO ERROR)
     1683   01 008BC    1220000C A            LD,R2    R12               MOVE STATUS
     1684   01 008BD    6AF00F55              BAL,R15  ERRMSG
     1685   01 008BE    000001F7 A            DATA     503               #503
     1686   01 008BF    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1687   01 008C0    2E000000 A            WAIT
     1688   01 008C1    680008A7              B        T1S5C             LOOP
     1689                            *
     1690   01 008C2    331008CA     T1S5F    MTW,1    T15IOCD2          UPDATE ADDRESS
     1691   01 008C3    33100006 A            MTW,1    R6                UPDATE BYTE COUNT POINTER
     1692   01 008C4    648008AB              BDR,R8   T1S5D             COUNT NOT 0
     1693   01 008C5    E80008C6              B        *T15RTN           EXIT
     1694                            *
     1695   01 008C6    00000000 A   T15RTN   DATA     0
     1696                                     BOUND    8
     1697   01 008C8    05002330     T15IOCD1 GEN,8,24 5,BA(T15BFR)
     1698   01 008C9    00000001 A            GEN,8,24 0,1
     1699   01 008CA    05002334     T15IOCD2 GEN,8,24 5,BA(T15CS)
     1700   01 008CB    00000000 A            GEN,8,24 0,0
     1701   01 008CC    15       A   T15BFR   DATA,1   X'15'
     1702   01 008CD    C1C2C3C4 A   T15CS    TEXT     'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
            01 008CE    C5C6C7C8 A
            01 008CF    C9D1D2D3 A
            01 008D0    D4D5D6D7 A
            01 008D1    D8D9E2E3 A
            01 008D2    E4E5E6E7 A
            01 008D3    E8E94040 A
     1703   01 008D4    0107030A A   T15BC    DATA     X'0107030A'
     1704   01 008D5    08040403 A            DATA     X'08040403'
     1705   01 008D6    01010A09 A            DATA     X'01010A09'
     1706   01 008D7    01090100 A            DATA     X'01090100'
     1707                            *
     1708                            *
     1709                            ***   TST 1  SUBTEST 6  ***
     1710                            *
     1711                            * THE TST1,6 ROUTINE CHECKS THE DATA CHAINING FUNCTION
     1712                            *
     1713   01 008D8    35F00928     TST16    STW,R15  T16RTN            SAVE RETURN ADDRESS
     1714   01 008D9    CF200344     T1S6A    HIO,R2   *:DEVADDR         ISSUE HIO
     1715   01 008DA    22000497              LI,R0    DA(T16IOCD3)
     1716   01 008DB    CC200344              SIO,R2   *:DEVADDR         NL
     1717   01 008DC    CD200344              TIO,R2   *:DEVADDR
     1718   01 008DD    69C008DC              BCS,12   %-1               DEVICE BUSY

     1720   01 008DE    CF200344     T1S6A1   HIO,R2   *:DEVADDR         ISSUE HIO
     1721   01 008DF    22E000C8 A            LI,R14   200
     1722   01 008E0    6AF01173              BAL,R15  :DELAY            DELAY 200 MSEC
     1723   01 008E1    680008E2              B        %+1

     1725   01 008E2    22000495              LI,R0    DA(T16IOCD1)
     1726   01 008E3    32E01696              LW,R14   =X'EF00C000'      MASK
     1727   01 008E4    6AF01064              BAL,R15  :SIO              PRINT WITH DATA CHAINING
     1728   01 008E5    680008EC              B        T1S6B

     1730                            *ERR 601     (SIO CC, STATUS ERROR)
     1731   01 008E6    1220000C A            LD,R2    R12               MOVE STATUS
     1732   01 008E7    6AF00F55              BAL,R15  ERRMSG
     1733   01 008E8    00000259 A            DATA     601               #601
     1734   01 008E9    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1735   01 008EA    2E000000 A            WAIT
     1736   01 008EB    680008D9              B        T1S6A             LOOP

     1738   01 008EC    32E00476     T1S6B    LW,R14   BYTETIME          DELAY 4
     1739   01 008ED    25E00002 A            SLS,R14  2                  CHARACTER TIMES
     1740   01 008EE    6AF01173              BAL,R15  :DELAY
     1741   01 008EF    680008F0              B        %+1

     1743   01 008F0    32E01698              LW,R14   =X'C001'          MASK
     1744   01 008F1    6AF0106F              BAL,R15  :TIO              ISSUE TIO
     1745   01 008F2    680008F4              B        %+2               ERROR
     1746   01 008F3    680008FA              B        T1S6C             DEVICE BUSY

     1748                            *ERR 602     (DEVICE NOT BUSY)
     1749   01 008F4    1220000C A            LD,R2    R12               MOVE STATUS
     1750   01 008F5    6AF00F55              BAL,R15  ERRMSG
     1751   01 008F6    0000025A A            DATA     602               #602
     1752   01 008F7    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1753   01 008F8    2E000000 A            WAIT
     1754   01 008F9    680008DE              B        T1S6A1            LOOP

     1756   01 008FA    21C00495     T1S6C    CI,R12   DA(T16IOCD1)
        1*  01 008FB    68100902              BGE      T1S6D             IOCD1 OR IOCD2                  *H00

     1759                            *ERR 603     (COMMAND ADDRESS ERROR)
     1760   01 008FC    1220000C A            LD,R2    R12               MOVE STATUS
     1761   01 008FD    6AF00F55              BAL,R15  ERRMSG
     1762   01 008FE    0000025B A            DATA     603               #603
     1763   01 008FF    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1764   01 00900    2E000000 A            WAIT
     1765   01 00901    680008DE              B        T1S6A1            LOOP

     1767   01 00902    32E00476     T1S6D    LW,R14   BYTETIME          DELAY 3
     1768   01 00903    25E00001 A            SLS,R14  1                  CHARACTER TIMES
     1769   01 00904    30E00476              AW,R14   BYTETIME
     1770   01 00905    6AF01173              BAL,R15  :DELAY
     1771   01 00906    68000907              B        %+1

     1773   01 00907    22E0C001 A            LI,R14   X'C001'           MASK
     1774   01 00908    6AF0106F              BAL,R15  :TIO              ISSUE TIO
     1775   01 00909    6800090B              B        %+2               ERROR
     1776   01 0090A    68000911              B        T1S6E             DEVICE BUSY

     1778                            *ERR 605     (TIO CC, STATUS ERROR)
     1779   01 0090B    1220000C A            LD,R2    R12               MOVE STATUS
     1780   01 0090C    6AF00F55              BAL,R15  ERRMSG
     1781   01 0090D    0000025D A            DATA     605               #602
     1782   01 0090E    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1783   01 0090F    2E000000 A            WAIT
     1784   01 00910    680008DE              B        T1S6A1            LOOP

     1786   01 00911    21C00496     T1S6E    CI,R12   DA(T16IOCD2)
     1787   01 00912    68300919              BE       T1S6F             IOCD2

     1789                            *ERR 606      (COMMAND ADDRESS ERROR)
     1790   01 00913    1220000C A            LD,R2    R12               MOVE STATUS
     1791   01 00914    6AF00F55              BAL,R15  ERRMSG
     1792   01 00915    0000025E A            DATA     606               #606
     1793   01 00916    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1794   01 00917    2E000000 A            WAIT
     1795   01 00918    680008DE              B        T1S6A1            LOOP

     1797   01 00919    32E00476     T1S6F    LW,R14   BYTETIME          DELAY 5
     1798   01 0091A    25E00002 A            SLS,R14  2                  CHARACTER TIMES
     1799   01 0091B    30E00476              AW,R14   BYTETIME
     1800   01 0091C    6AF01173              BAL,R15  :DELAY
     1801   01 0091D    6800091E              B        %+1

     1803   01 0091E    32E01694              LW,R14   =X'EFFFC000'      MASK
     1804   01 0091F    6AF0106F              BAL,R15  :TIO              ISSUE TIO
     1805   01 00920    E8000928              B        *T16RTN           EXIT

     1807                            *ERR 604
     1808   01 00921    1220000C A            LD,R2    R12               MOVE STATUS
     1809   01 00922    6AF00F55              BAL,R15  ERRMSG
     1810   01 00923    0000025C A            DATA     604               #604
     1811   01 00924    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1812   01 00925    2E000000 A            WAIT
     1813   01 00926    680008DE              B        T1S6A1            LOOP
     1814   01 00927    E8000928              B        *T16RTN           EXIT
     1815                            *
     1816   01 00928    00000000 A   T16RTN   DATA     0
     1817                                     BOUND    8
     1818   01 0092A    050024C0     T16IOCD1 GEN,8,24 5,BA(T16CS)
     1819   01 0092B    80000006 A            GEN,8,24 X'80',6
     1820   01 0092C    050024C6     T16IOCD2 GEN,8,24 5,BA(T16CS)+6
     1821   01 0092D    00000004 A            GEN,8,24 0,4
     1822   01 0092E    050024CE     T16IOCD3 GEN,8,24 5,BA(T16NL)+2
     1823   01 0092F    00000001 A            GEN,8,24 0,1

     1825   01 00930    5CE3C5D3 A   T16CS    TEXT     '*TELEFILE*'
            01 00931    C5C6C9D3 A
            01 00932    C55C4040 A
     1826   01 00933    00001500 A   T16NL    DATA     X'00001500'
     1827                            *
     1828                            *
     1829                            ***  TST 1 SUBTEST 7
     1830                            *
     1831                            * THE TST1,7 ROUTINE CHECKS THE COMMAND CHAINING FUNCTION
     1832                            *
     1833   01 00934    35F0097F     TST17    STW,R15  T17RTN            SAVE RETURN ADDRESS
     1834   01 00935    CF200344     T1S7A    HIO,R2   *:DEVADDR         ISSUE HIO
     1835   01 00936    22E000C8 A            LI,R14   200
     1836   01 00937    6AF01173              BAL,R15  :DELAY            DELAY 200 MSEC
     1837   01 00938    68000939              B        %+1
     1838   01 00939    220004C0              LI,R0    DA(T17IOCD1)
     1839   01 0093A    32E01696              LW,R14   =X'EF00C000'      MASK
     1840   01 0093B    6AF01064              BAL,R15  :SIO              ISSUE SIO
     1841   01 0093C    68000943              B        T1S7B
     1842                            *ERR 701     (SIO CC, STATUS ERROR)
     1843   01 0093D    1220000C A            LD,R2    R12               MOVE STATUS
     1844   01 0093E    6AF00F55              BAL,R15  ERRMSG
     1845   01 0093F    000002BD A            DATA     701               #701
     1846   01 00940    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1847   01 00941    2E000000 A            WAIT
     1848   01 00942    68000935              B        T1S7A             LOOP

     1850   01 00943    32E00476     T1S7B    LW,R14   BYTETIME          DELAY 5
     1851   01 00944    25E00002 A            SLS,R14  2                  CHARACTER TIMES
     1852   01 00945    30E00476              AW,R14   BYTETIME
     1853   01 00946    6AF01173              BAL,R15  :DELAY
     1854   01 00947    68000948              B        %+1

     1856   01 00948    22E0C001 A            LI,R14   X'C001'           MASK
     1857   01 00949    6AF0106F              BAL,R15  :TIO              ISSUE TIO
     1858   01 0094A    6800094C              B        %+2               DEVICE NOT BUSY
     1859   01 0094B    68000952              B        T1S7C
     1860                            *ERR 702     (DEVICE NOT BUSY)
     1861   01 0094C    1220000C A            LD,R2    R12               MOVE STATUS
     1862   01 0094D    6AF00F55              BAL,R15  ERRMSG
     1863   01 0094E    000002BE A            DATA     702               #702
     1864   01 0094F    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1865   01 00950    2E000000 A            WAIT
     1866   01 00951    68000935              B        T1S7A             LOOP
     1867                            *
     1868   01 00952    21C004C0     T1S7C    CI,R12   DA(T17IOCD1)
     1869   01 00953    6830095A              BE       T1S7D             IOCD1
     1870                            *ERR 703     (IOCD ERROR)
     1871   01 00954    1220000C A            LD,R2    R12               MOVE STATUS
     1872   01 00955    6AF00F55              BAL,R15  ERRMSG
     1873   01 00956    000002BF A            DATA     703               #703
     1874   01 00957    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1875   01 00958    2E000000 A            WAIT
     1876   01 00959    68000935              B        T1S7A             LOOP

     1878   01 0095A    32E00476     T1S7D    LW,R14   BYTETIME          DELAY 5
     1879   01 0095B    25E00002 A            SLS,R14  2                  CHARACTER TIMES
     1880   01 0095C    30E00476              AW,R14   BYTETIME
     1881   01 0095D    6AF01173              BAL,R15  :DELAY
     1882   01 0095E    6800095F              B        %+1

     1884   01 0095F    22E0C001 A            LI,R14   X'C001'           MASK
     1885   01 00960    6AF0106F              BAL,R15  :TIO              ISSUE TIO
     1886   01 00961    68000963              B        %+2               DEVICE NOT BUSY
     1887   01 00962    68000969              B        T1S7E
     1888                            *ERR 704     (DEVICE NOT BUSY)
     1889   01 00963    1220000C A            LD,R2    R12               MOVE STATUS
     1890   01 00964    6AF00F55              BAL,R15  ERRMSG
     1891   01 00965    000002C0 A            DATA     704               #704
     1892   01 00966    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1893   01 00967    2E000000 A            WAIT
     1894   01 00968    68000935              B        T1S7A             LOOP
     1895                            *
     1896   01 00969    21C004C1     T1S7E    CI,R12   DA(T17IOCD2)
     1897   01 0096A    68300971              BE       T1S7F             IOCD2
     1898                            *ERR 705     (IOCD ERROR)
     1899   01 0096B    1220000C A            LD,R2    R12               MOVE STATUS
     1900   01 0096C    6AF00F55              BAL,R15  ERRMSG
     1901   01 0096D    000002C1 A            DATA     705               #705
     1902   01 0096E    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1903   01 0096F    2E000000 A            WAIT
     1904   01 00970    68000935              B        T1S7A             LOOP

     1906   01 00971    32E00476     T1S7F    LW,R14   BYTETIME          DELAY 4
     1907   01 00972    25E00002 A            SLS,R14  2                  CHARACTER TIMES
     1908   01 00973    6AF01173              BAL,R15  :DELAY
     1909   01 00974    68000975              B        %+1

     1911   01 00975    32E01694              LW,R14   =X'EFFFC000'      MASK
     1912   01 00976    6AF0106F              BAL,R15  :TIO              ISSUE TIO
     1913   01 00977    E800097F              B        *T17RTN           EXIT
     1914                            *ERR 706     (TIO CC, STATUS ERROR)
     1915   01 00978    1220000C A            LD,R2    R12               MOVE STATUS
     1916   01 00979    6AF00F55              BAL,R15  ERRMSG
     1917   01 0097A    000002C2 A            DATA     706               #706
     1918   01 0097B    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1919   01 0097C    2E000000 A            WAIT
     1920   01 0097D    68000935              B        T1S7A             LOOP
     1921   01 0097E    E800097F              B        *T17RTN           EXIT
     1922                            *
     1923   01 0097F    00000000 A   T17RTN   DATA     0
     1924                                     BOUND    8
     1925   01 00980    05002610     T17IOCD1 GEN,8,24 5,BA(T17BFR)
     1926   01 00981    20000006 A            GEN,8,24 X'20',6
     1927   01 00982    05002616     T17IOCD2 GEN,8,24 5,BA(T17BFR)+6
     1928   01 00983    00000006 A            GEN,8,24 0,6
     1929   01 00984    F1F2F3F4 A   T17BFR   TEXT     '123456789012'
            01 00985    F5F6F7F8 A
            01 00986    F9F0F1F2 A
     1930                            *
     1931                            *
     1932                            ***  TST 1 SUBTEST 8 ***
     1933                            *
     1934                            * THE TST1,8 ROUTINE IS ECHO TEST 1.  THE ROUTINE REQUIRES THAT THE
     1935                            * FIRST TWO CHARACTERS INPUT TO BE 'HT' AND 'NL'. IF NO CHARACTER IS
     1936                            * INPUT WITHIN 15 SECONDS, TIMEOUT OCCURS.  AFTER THESE TWO CHARACTERS
     1937                            * HAVE BEEN INPUT, THE OPERATOR INPUTS ANY CHARACTER AND THE PROGRAM
     1938                            * ECHOS THE RECIEVED CHARACTER.  THIS OPERATION CONTINUES UNTIL THE
     1939                            * 'EOM' CHARACTER IS RECEIVED.
     1940                            *
     1941                            * ALL ECHO CHARACTERS ARE SAVED AND UP TO 80 CHARACTERS WILL BE OUTPUT
     1942                            * ON THE NEXT 10 LINES.
     1943   01 00987    35F00A55     TST18    STW,R15  T18RTN            SAVE RETURN ADDRESS
     1944   01 00988    224FFFB0 A            LI,4     -80
     1945   01 00989    35400A60              STW,4    T18INDEX          SAVE INDEX
     1946   01 0098A    CF200344              HIO,R2   *:DEVADDR         ISSUE HIO
     1947   01 0098B    33000345              MTW,0    IODEV             TEST FOR IO DEVICE
     1948   01 0098C    69300990              BCS,3    T1S8A             IO DEVICE PRESENT
     1949   01 0098D    32001699              LW,R0    =X'80000004'      MSG #004
     1950   01 0098E    2E000000 A            WAIT
     1951   01 0098F    68000992              B        T1S8A1
     1952   01 00990    EAF00F6A     T1S8A    BAL,R15  *:PRINT
     1953   01 00991    00000A64              DATA     T18MSG            'ECHO TEST 1'
     1954   01 00992    2200052E     T1S8A1   LI,R0    DA(T18IOCD4)
     1955   01 00993    CC200344              SIO,R2   *:DEVADDR         NL
     1956   01 00994    69C00993              BCS,12   %-1
     1957   01 00995    CD200344              TIO,R2   *:DEVADDR         ISSUE TIO
     1958   01 00996    69C00995              BCS,12   %-1               DEVICE BUSY
     1959   01 00997    CF200344     T1S8B    HIO,R2   *:DEVADDR         ISSUE HIO
     1960   01 00998    22400000 A            LI,R4    0
     1961   01 00999    35400A61              STW,R4   T18BFR            CLEAR BUFFER
     1962   01 0099A    6AF01003              BAL,R15  IOAE              ARM/ENABLE IO INTERRUPT
     1963   01 0099B    2200052B              LI,R0    DA(T18IOCD1)
     1964   01 0099C    32E01696              LW,R14   =X'EF00C000'      MASK
     1965   01 0099D    6AF01064              BAL,R15  :SIO              INPUT 'HT' CHARACTER
     1966   01 0099E    680009A5              B        T1S8C
     1967                            *ERR 801     (SIO ERROR)
     1968   01 0099F    1220000C A            LD,R2    R12               MOVE STATUS
     1969   01 009A0    6AF00F55              BAL,R15  ERRMSG
     1970   01 009A1    00000321 A            DATA     801               #801
     1971   01 009A2    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1972   01 009A3    2E000000 A            WAIT
     1973   01 009A4    68000997              B        T1S8B             LOOP
     1974                            *
     1975   01 009A5    22E03A98 A   T1S8C    LI,R14   15000
     1976   01 009A6    6AF01173              BAL,R15  :DELAY            DELAY 15 SECONDS
     1977   01 009A7    680009AF              B        T1S8D             INTERRUPT REC'D
     1978   01 009A8    6AF0100A              BAL,R15  IOD               DISARM IO INTERRUPT
     1979   01 009A9    CF200344              HIO,R2   *:DEVADDR         ISSUE HIO
     1980                            *ERR 802     (NO CE INTERRUPT)
     1981   01 009AA    6AF00F55              BAL,R15  ERRMSG
     1982   01 009AB    00000322 A            DATA     802               #802
     1983   01 009AC    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1984   01 009AD    2E000000 A            WAIT
     1985   01 009AE    68000997              B        T1S8B             LOOP
     1986   01 009AF    32E01694     T1S8D    LW,R14   =X'EFFFC000'      MASK
     1987   01 009B0    6AF0106F              BAL,R15  :TIO              ISSUE TIO
     1988   01 009B1    680009B8              B        T1S8E             DEVICE READY
     1989                            *ERR  803    (TIO ERROR)
     1990   01 009B2    1220000C A            LD,R2    R12               MOVE STATUS
     1991   01 009B3    6AF00F55              BAL,R15  ERRMSG
     1992   01 009B4    00000323 A            DATA     803               #803
     1993   01 009B5    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     1994   01 009B6    2E000000 A            WAIT
     1995   01 009B7    68000997              B        T1S8B             LOOP
     1996                            *
     1997   01 009B8    72200A61     T1S8E    LB,R2    T18BFR            INPUT BYTE
     1998   01 009B9    21200005 A            CI,R2    5                 TEST FOR 'HT'
     1999   01 009BA    683009CC              BE       T1S8G
     2000   01 009BB    22200001 A            LI,R2    1
     2001   01 009BC    72280A61              LB,R2    T18BFR,R4         SECOND BYTE
     2002   01 009BD    21200005 A            CI,R2    5
     2003   01 009BE    683009C6              BE       T1S8F             CHARACTER 'HT'
     2004                            *ERR 804     (CHARACTER NOT 'HT')
     2005   01 009BF    52200A61              LH,R2    T18BFR            MOVE DATA
     2006   01 009C0    6AF00F55              BAL,R15  ERRMSG
     2007   01 009C1    00000324 A            DATA     804               #804
     2008   01 009C2    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2009   01 009C3    2E000000 A            WAIT
     2010   01 009C4    68000997              B        T1S8B             LOOP
     2011   01 009C5    680009CC              B        T1S8G             CONTINUE
     2012                            *
     2013                            *ERR 805     (FIRST CHARACTER NOT 'HT')
     2014   01 009C6    52200A61     T1S8F    LH,R2    T18BFR            FETCH BYTE
     2015   01 009C7    6AF00F55              BAL,R15  ERRMSG
     2016   01 009C8    00000325 A            DATA     805               #805
     2017   01 009C9    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2018   01 009CA    2E000000 A            WAIT
     2019   01 009CB    68000997              B        T1S8B             LOOP
     2020                            *
     2021   01 009CC    22400001 A   T1S8G    LI,R4    1
     2022   01 009CD    5248000D A            LH,R4    R13,R4            TIO BYTE COUNT
     2023   01 009CE    21400001 A            CI,R4    1                 TEST BYTE COUNT
     2024   01 009CF    683009D6              BE       T1S8H
     2025                            *ERR 806     (BYTE COUNT NOT 1)
     2026   01 009D0    1220000C A            LD,R2    R12               MOVE STATUS
     2027   01 009D1    6AF00F55              BAL,R15  ERRMSG
     2028   01 009D2    00000326 A            DATA     806               #806
     2029   01 009D3    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2030   01 009D4    2E000000 A            WAIT
     2031   01 009D5    68000997              B        T1S8B             LOOP
     2032                            *
     2033   01 009D6    CF200344     T1S8H    HIO,R2   *:DEVADDR         ISSUE HIO
     2034   01 009D7    2221FFFF A            LI,2     X'1FFFF'
     2035   01 009D8    642009D8              BDR,2    %                 DELAY
     2036   01 009D9    6AF01003              BAL,R15  IOAE              ARM/ENABLE IO INTERRUPT
     2037   01 009DA    22400000 A            LI,R4    0
     2038   01 009DB    35400A61              STW,R4   T18BFR            CLEAR BUFFER
     2039   01 009DC    2200052B              LI,R0    DA(T18IOCD1)
     2040   01 009DD    32E01694              LW,R14   =X'EFFFC000'      MASK
     2041   01 009DE    6AF01064              BAL,R15  :SIO              INPUT 'NL' CHARACTER
     2042   01 009DF    680009E0              B        %+1
     2043   01 009E0    22E03A98 A            LI,R14   15000
     2044   01 009E1    6AF01173              BAL,R15  :DELAY            DELAY 15 SECONDS
     2045   01 009E2    680009EA              B        T1S8J             INTERRUPT REC'D
     2046   01 009E3    6AF0100A              BAL,R15  IOD               DISARM IO INTERRUPT
     2047   01 009E4    CF200344              HIO,R2   *:DEVADDR         ISSUE HIO
     2048                            *ERR 802    (NO CE INTERRUPT)
     2049   01 009E5    6AF00F55              BAL,R15  ERRMSG
     2050   01 009E6    00000322 A            DATA     802               #802
     2051   01 009E7    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2052   01 009E8    2E000000 A            WAIT
     2053   01 009E9    680009D6              B        T1S8H             LOOP
     2054                            *
     2055   01 009EA    72200A61     T1S8J    LB,R2    T18BFR            INPUT BYTE
     2056   01 009EB    21200015 A            CI,R2    X'15'             TEST FOR 'NL' CHARACTER
     2057   01 009EC    683009FE              BE       T1S8L
     2058   01 009ED    22200001 A            LI,R2    1
     2059   01 009EE    72240A61              LB,R2    T18BFR,R2         SECOND INPUT CHARACTER
     2060   01 009EF    21200015 A            CI,R2    X'15'             TEST FOR 'NL' CHARACTER
     2061   01 009F0    683009F8              BE       T1S8K
     2062                            *ERR 807     (CHARACTER NOT 'NL')
     2063   01 009F1    52200A61              LH,R2    T18BFR            FETCH BYTE
     2064   01 009F2    6AF00F55              BAL,R15  ERRMSG
     2065   01 009F3    00000327 A            DATA     807               #807
     2066   01 009F4    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2067   01 009F5    2E000000 A            WAIT
     2068   01 009F6    680009D6              B        T1S8H             LOOP
     2069   01 009F7    680009FE              B        T1S8L             CONTINUE
     2070                            *
     2071                            *ERR 808     (FIRST CHARACTER NOT 'NL')
     2072   01 009F8    52200A61     T1S8K    LH,R2    T18BFR            FETCH BYTE
     2073   01 009F9    6AF00F55              BAL,R15  ERRMSG
     2074   01 009FA    00000328 A            DATA     808               #808
     2075   01 009FB    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2076   01 009FC    2E000000 A            WAIT
     2077   01 009FD    680009D6              B        T1S8H             LOOP
     2078                            *
     2079   01 009FE    32E01694     T1S8L    LW,R14   =X'EFFFC000'      MASK
     2080   01 009FF    6AF0106F              BAL,R15  :TIO              ISSUE TIO
     2081   01 00A00    68000A07              B        T1S8L1
     2082                            *ERR 812  (TIO ERROR)
     2083   01 00A01    1220000C A            LD,R2    R12               MOVE STATUS
     2084   01 00A02    6AF00F55              BAL,R15  ERRMSG
     2085   01 00A03    0000032C A            DATA     812               #812
     2086   01 00A04    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2087   01 00A05    2E000000 A            WAIT
     2088   01 00A06    680009D6              B        T1S8H             LOOP
     2089                            *
     2090   01 00A07    22400001 A   T1S8L1   LI,R4    1
     2091   01 00A08    5248000D A            LH,R4    R13,R4            TIO BYTE COUNT
     2092   01 00A09    21400001 A            CI,R4    1
     2093   01 00A0A    68300A11              BE       T1S8M
     2094                            *ERR 809   (BYTE COUNT NOT 1)
     2095   01 00A0B    1220000C A            LD,R2    R12               MOVE STATUS
     2096   01 00A0C    6AF00F55              BAL,R15  ERRMSG
     2097   01 00A0D    00000329 A            DATA     809               #809
     2098   01 00A0E    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2099   01 00A0F    2E000000 A            WAIT
     2100   01 00A10    680009D6              B        T1S8H             LOOP
     2101                            *
     2102   01 00A11    CF200344     T1S8M    HIO,R2   *:DEVADDR         ISSUE HIO
     2103   01 00A12    2221FFFF A            LI,2     X'1FFFF'
     2104   01 00A13    64200A13              BDR,2    %                 DELAY
     2105   01 00A14    22400000 A            LI,R4    0
     2106   01 00A15    35400A61              STW,R4   T18BFR            CLEAR BUFFER
     2107   01 00A16    2200052C              LI,R0    DA(T18IOCD2)
     2108   01 00A17    32E01694              LW,R14   =X'EFFFC000'      MASK
     2109   01 00A18    6AF01064              BAL,R15  :SIO              INPUT ONE CHARACTER
     2110   01 00A19    68000A20              B        T1S8N
     2111                            *ERR 801   (SIO ERROR)
     2112   01 00A1A    1220000C A            LD,R2    R12               MOVE STATUS
     2113   01 00A1B    6AF00F55              BAL,R15  ERRMSG
     2114   01 00A1C    00000321 A            DATA     801               #801
     2115   01 00A1D    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2116   01 00A1E    2E000000 A            WAIT
     2117   01 00A1F    68000A11              B        T1S8M             LOOP
     2118                            *
     2119   01 00A20    22E0C001 A   T1S8N    LI,R14   X'C001'           MASK
     2120   01 00A21    6AF0106F              BAL,R15  :TIO              ISSUE TIO
     2121   01 00A22    68000A24              B        %+2               DEVICE READY
     2122   01 00A23    68000A21              B        %-2               DEVICE BUSY
     2123   01 00A24    32E01694              LW,R14   =X'EFFFC000'      MASK
     2124   01 00A25    6AF0106F              BAL,R15  :TIO              ISSUE TIO
     2125   01 00A26    68000A2D              B        T1S8P
     2126                            *ERR 810   (TIO ERROR)
     2127   01 00A27    1220000C A            LD,R2    R12               MOVE STATUS
     2128   01 00A28    6AF00F55              BAL,R15  ERRMSG
     2129   01 00A29    0000032A A            DATA     810               #810
     2130   01 00A2A    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2131   01 00A2B    2E000000 A            WAIT
     2132   01 00A2C    68000A11              B        T1S8M             LOOP
     2133                            *
     2134   01 00A2D    22400001 A   T1S8P    LI,R4    1
     2135   01 00A2E    5248000D A            LH,R4    R13,R4            TIO BYTE COUNT
     2136   01 00A2F    68300A36              BEZ      T1S8Q
     2137                            *ERR 811    (BYTE COUNT NOT 0)
     2138   01 00A30    1220000C A            LD,R2    R12               MOVE STATUS
     2139   01 00A31    6AF00F55              BAL,R15  ERRMSG
     2140   01 00A32    0000032B A            DATA     811               #811
     2141   01 00A33    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2142   01 00A34    2E000000 A            WAIT
     2143   01 00A35    68000A11              B        T1S8M             LOOP
     2144                            *
     2145   01 00A36    72400A61     T1S8Q    LB,R4    T18BFR            INPUT BYTE
     2146   01 00A37    21400008 A            CI,R4    8                 TEST FOR 'EOM' CHARACTER
     2147   01 00A38    68300A47              BE       T1S8PNT1          PRINT ALL CHARACTERS
     2148   01 00A39    32500A60              LW,5     T18INDEX          FETCH INDEX
     2149   01 00A3A    69200A3E              BGZ      %+4               B: MORE THAN 80 BYTES
     2150   01 00A3B    754A1686              STB,4    ECHOBUF+21,5      SAVE BYTE
     2151   01 00A3C    33100005 A            MTW,1    5                 INCR
     2152   01 00A3D    35500A60              STW,5    T18INDEX          SAVE INDEX
     2153   01 00A3E    75400A63              STB,R4   T18BFA            INPUT CHARACTER TO OUTPUT
     2154   01 00A3F    2200052D              LI,R0    DA(T18IOCD3)
     2155   01 00A40    32E01694              LW,R14   =X'EFFFC000'      MASK
     2156   01 00A41    6AF01064              BAL,R15  :SIO              PRINT REC'D CHARACTER
     2157   01 00A42    68000A43              B        %+1
     2158   01 00A43    22E0C001 A            LI,R14   X'C001'           MASK
     2159   01 00A44    6AF0106F              BAL,R15  :TIO              ISSUE TIO
     2160   01 00A45    68000A11              B        T1S8M
     2161   01 00A46    68000A44              B        %-2               DEVICE BUSY
     2162                            *
     2163   01 00A47    32400A60     T1S8PNT1 LW,4     T18INDEX          GET INDEX
     2164   01 00A48    20400051 A            AI,4     81                COMPUTE BYTE COUNT
     2165   01 00A49    35400A5F              STW,4    T18IOCD5+1        BUILD IOCD
     2166   01 00A4A    227FFFF6 A            LI,7     -10               INDEX
     2167   01 00A4B    2200052F     T1S8PNT2 LI,R0    DA(T18IOCD5)
     2168   01 00A4C    32E01694              LW,14    =X'EFFFC000'      MASK
     2169   01 00A4D    6AF01064              BAL,15   :SIO              PRINT ALL CHARACTERS
     2170   01 00A4E    68000A4F              B        %+1
     2171   01 00A4F    22E0C001 A            LI,14    X'C001'
     2172   01 00A50    6AF0106F              BAL,15   :TIO
     2173   01 00A51    68000A53              B        %+2
     2174   01 00A52    68000A50              B        %-2               BUSY
     2175   01 00A53    65700A4B              BIR,7    T1S8PNT2          NEXT LINE
     2176   01 00A54    E8000A55              B        *T18RTN           EXIT
     2177   01 00A55    00000000 A   T18RTN   DATA     0
     2178                                     BOUND    8
     2179   01 00A56    86002984     T18IOCD1 GEN,8,24 X'86',BA(T18BFR)
     2180   01 00A57    10000002 A            GEN,8,24 X'10',2
     2181   01 00A58    06002984     T18IOCD2 GEN,8,24 6,BA(T18BFR)
     2182   01 00A59    00000001 A            GEN,8,24 0,1
     2183   01 00A5A    0500298C     T18IOCD3 GEN,8,24 5,BA(T18BFA)
     2184   01 00A5B    00000002 A            GEN,8,24 0,2
     2185   01 00A5C    05002988     T18IOCD4 GEN,8,24 5,BA(T18NL)
     2186   01 00A5D    00000001 A            GEN,8,24 0,1
     2187   01 00A5E    050059C7     T18IOCD5 GEN,8,24 5,BA(ECHOBUF)+3
     2188   01 00A5F    00000000 A            DATA
     2189   01 00A60    00000000 A   T18INDEX DATA     0
     2190   01 00A61    00000000 A   T18BFR   DATA     0
     2191   01 00A62    15000000 A   T18NL    DATA     X'15000000'
     2192   01 00A63    00150000 A   T18BFA   DATA     X'00150000'
     2193   01 00A64    0BC5C3C8 A   T18MSG   TEXTC    'ECHO TEST 1'
            01 00A65    D640E3C5 A
            01 00A66    E2E340F1 A
     2194                            *
     2195                            *
     2196                            ***  TST 1  SUBTEST 9  ***
     2197                            *
     2198                            * THE TST1,9 ROUTINE IS ECHO TEST 2.  THE ROUTINE PRINTS 16 CHARACTERS
     2199                            * AND REQUIRES THE OPERATOR TO INPUT EACH CHARACTER AFTER IT IS PRINTED.
     2200                            *
     2201   01 00A67    35F00AAB     TST19    STW,R15  T19RTN            SAVE RETURN ADDRESS
     2202   01 00A68    6AF0100A              BAL,R15  IOD               INITIAL DISARM IO INTERRUPT
     2203   01 00A69    22700000 A            LI,R7    0                 COUNT = 0
     2204   01 00A6A    33000345              MTW,0    IODEV             TEST FOR IO DEVICE
     2205   01 00A6B    68300A6F              BEZ      T1S9A             NO IO DEVICE
     2206   01 00A6C    EAF00F6A              BAL,R15  *:PRINT
     2207   01 00A6D    00000AB2              DATA     T19MSG            'ECHO TST 2'
     2208   01 00A6E    68000A71              B        T1S9B
     2209   01 00A6F    3200169A     T1S9A    LW,R0    =X'80000005'      MSG #005
     2210   01 00A70    2E000000 A            WAIT
     2211   01 00A71    22402AD4     T1S9B    LI,R4    BA(T19CS)
     2212   01 00A72    22500001 A            LI,R5    1
     2213   01 00A73    554A0AAE              STH,R4   T19IOCD2,R5       INITIALIZE CHARACTER IOCD
     2214   01 00A74    CF200344     T1S9B1   HIO,R2   *:DEVADDR         ISSUE HIO
     2215   01 00A75    22E000C8 A            LI,R14   200
     2216   01 00A76    6AF01173              BAL,R15  :DELAY            DELAY 200 MSEC
     2217   01 00A77    68000A78              B        %+1
     2218   01 00A78    22000556     T1S9B2   LI,R0    DA(T19IOCD1)
     2219   01 00A79    32E01696              LW,R14   =X'EF00C000'      MASK
     2220   01 00A7A    6AF01064              BAL,R15  :SIO              ISSUE SIO (PRINT NL, 1 CHARACTER)
     2221   01 00A7B    68000A82              B        T1S9C
     2222                            *ERR 901     (SIO CC, STATUS ERROR)
     2223   01 00A7C    1220000C A            LD,R2    R12               MOVE STATUS
     2224   01 00A7D    6AF00F55              BAL,R15  ERRMSG
     2225   01 00A7E    00000385 A            DATA     901               #901
     2226   01 00A7F    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2227   01 00A80    2E000000 A            WAIT
     2228   01 00A81    68000A74              B        T1S9B1            LOOP
     2229                            *
     2230   01 00A82    22E001A9 A   T1S9C    LI,R14   425
     2231   01 00A83    6AF01173              BAL,R15  :DELAY            DELAY 425 MSEC
     2232   01 00A84    68000A85              B        %+1
     2233   01 00A85    32E01694              LW,R14   =X'EFFFC000'      MASK
     2234   01 00A86    6AF0106F              BAL,R15  :TIO              ISSUE TIO
     2235   01 00A87    68000A8E              B        T1S9D
     2236                            *ERR 902     (TIO CC, STATUS ERROR)
     2237   01 00A88    1220000C A            LD,R2    R12               MOVE STATUS
     2238   01 00A89    6AF00F55              BAL,R15  ERRMSG
     2239   01 00A8A    00000386 A            DATA     902               #902
     2240   01 00A8B    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2241   01 00A8C    2E000000 A            WAIT
     2242   01 00A8D    68000A74              B        T1S9B1            LOOP
     2243                            *
     2244   01 00A8E    CF200344     T1S9D    HIO,R2   *:DEVADDR         ISSUE HIO
     2245   01 00A8F    22000558              LI,R0    DA(T19IOCD3)
     2246   01 00A90    32E01696              LW,R14   =X'EF00C000'      MASK
     2247   01 00A91    6AF01064              BAL,R15  :SIO              INPUT ONE CHARACTER
     2248   01 00A92    68000A99              B        T1S9E
     2249                            *ERR 903    (SIO CC, STATUS ERROR)
     2250   01 00A93    1220000C A            LD,R2    R12               MOVE STATUS
     2251   01 00A94    6AF00F55              BAL,R15  ERRMSG
     2252   01 00A95    00000387 A            DATA     903               #903
     2253   01 00A96    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2254   01 00A97    2E000000 A            WAIT
     2255   01 00A98    68000A8E              B        T1S9D             LOOP
     2256                            *
     2257   01 00A99    22E0C001 A   T1S9E    LI,R14   X'C001'           MASK
     2258   01 00A9A    6AF0106F              BAL,R15  :TIO              ISSUE TIO
     2259   01 00A9B    68000A9D              B        T1S9F
     2260   01 00A9C    68000A9A              B        %-2
     2261   01 00A9D    721E0AB5     T1S9F    LB,R1    T19CS,R7          EXPECTED BYTE
     2262   01 00A9E    72200AB9              LB,R2    T19BFR            OBSERVED BYTE
     2263   01 00A9F    31100002 A            CW,R1    R2
     2264   01 00AA0    68300AA6              BE       T1S9H             INPUT=OUTPUT
     2265                            *ERR 904     (INPUT NOT EQUAL OUTPUT)
     2266   01 00AA1    6AF00F55              BAL,R15  ERRMSG
     2267   01 00AA2    00000388 A            DATA     904               #904
     2268   01 00AA3    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2269   01 00AA4    2E000000 A            WAIT
     2270   01 00AA5    68000A74              B        T1S9B1
     2271                            *
     2272   01 00AA6    33100AAE     T1S9H    MTW,1    T19IOCD2          UPDATE CHAR IOCD
     2273   01 00AA7    33100007 A            MTW,1    R7                COUNT +1
     2274   01 00AA8    21700010 A            CI,R7    16
     2275   01 00AA9    69300A78              BNE      T1S9B2            COUNT NOT MAX
     2276   01 00AAA    E8000AAB              B        *T19RTN           EXIT
     2277                            *
     2278   01 00AAB    00000000 A   T19RTN   DATA     0
     2279                                     BOUND    8
     2280   01 00AAC    05002AFB     T19IOCD1 GEN,8,24 5,BA(T19NL)+3
     2281   01 00AAD    80000001 A            GEN,8,24 X'80',1
     2282   01 00AAE    05002AD4     T19IOCD2 GEN,8,24 5,BA(T19CS)
     2283   01 00AAF    00000001 A            GEN,8,24 0,1
     2284   01 00AB0    06002AE4     T19IOCD3 GEN,8,24 6,BA(T19BFR)
     2285   01 00AB1    00000001 A            GEN,8,24 0,1
     2286   01 00AB2    0BC5C3C8 A   T19MSG   TEXTC    'ECHO TEST 2'
            01 00AB3    D640E3C5 A
            01 00AB4    E2E340F2 A
     2287   01 00AB5    F0C1C2C3 A   T19CS    TEXT     '0ABCDEFGHI:#@(?+'
            01 00AB6    C4C5C6C7 A
            01 00AB7    C8C97A7B A
            01 00AB8    7C4D6F4E A
     2288   01 00AB9    00000000 A   T19BFR   DATA     0,0,0,0,0
            01 00ABA    00000000 A
            01 00ABB    00000000 A
            01 00ABC    00000000 A
            01 00ABD    00000000 A
     2289   01 00ABE    00000015 A   T19NL    DATA     X'00000015'
     2290                            *
     2291                            *
     2292                            *** TST 1  SUBTEST 10  ***
     2293                            *
     2294                            * THE TST1,10 ROUTINE IS ECHO TEST 3.  THE ROUTINE PRINTS AN 8-CHARACTER
     2295                            * STRING AND REQUIRES THE OPERATOR TO INPUT THE STRING .  CHARACTER
     2296                            * STRING IS VERIFIED AFTER 8 CHARACTERS ARE INPUT.
     2297                            *
     2298   01 00ABF    35F00AF3     TST110   STW,R15  T110RTN           SAVE RETURN ADDRESS
     2299   01 00AC0    33000345              MTW,0    IODEV             TEST FOR IO DEVICE
     2300   01 00AC1    68300AC5              BEZ      T1S10A            NO IO DEVICE
     2301   01 00AC2    EAF00F6A              BAL,R15  *:PRINT
     2302   01 00AC3    00000AFE              DATA     T110MSG           'ECHO TEST 3'
     2303   01 00AC4    68000AC7              B        T1S10B
     2304   01 00AC5    3200169B     T1S10A   LW,R0    =X'80000006'      MSG #006
     2305   01 00AC6    2E000000 A            WAIT
     2306   01 00AC7    CF200344     T1S10B   HIO,R2   *:DEVADDR         ISSUE HIO
     2307   01 00AC8    2200057A              LI,R0    DA(T110CDW1)
     2308   01 00AC9    32E01696              LW,R14   =X'EF00C000'      MASK
     2309   01 00ACA    6AF01064              BAL,R15  :SIO              PRINT CHARACTER STRING
     2310   01 00ACB    68000AD2              B        T1S10C
     2311                            *ERR 1001   (SIO CC, STATUS ERROR)
     2312   01 00ACC    1220000C A            LD,R2    R12               MOVE STATUS
     2313   01 00ACD    6AF00F55              BAL,R15  ERRMSG
     2314   01 00ACE    000003E9 A            DATA     1001              #1001
     2315   01 00ACF    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2316   01 00AD0    2E000000 A            WAIT
     2317   01 00AD1    68000AC7              B        T1S10B            LOOP
     2318                            *
     2319   01 00AD2    22E0C001 A   T1S10C   LI,R14   X'C001'           MASK
     2320   01 00AD3    6AF0106F              BAL,R15  :TIO              TEST FOR BUSY
     2321   01 00AD4    68000AD6              B        T1S10D
     2322   01 00AD5    68000AD2              B        %-3               DEVICE BUSY-LOOP TO TEST
     2323   01 00AD6    CF200344     T1S10D   HIO,R2   *:DEVADDR         ISSUE HIO
     2324   01 00AD7    2200057B              LI,R0    DA(T110CDW2)
     2325   01 00AD8    32E01696              LW,R14   =X'EF00C000'      MASK
     2326   01 00AD9    6AF01064              BAL,R15  :SIO              INPUT CHARACTER STRING
     2327   01 00ADA    68000AE1              B        T1S10E
     2328                            *ERR 1001   (SIO CC, STATUS ERROR)
     2329   01 00ADB    1220000C A            LD,R2    R12               MOVE STATUS
     2330   01 00ADC    6AF00F55              BAL,R15  ERRMSG
     2331   01 00ADD    000003E9 A            DATA     1001              #1001
     2332   01 00ADE    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2333   01 00ADF    2E000000 A            WAIT
     2334   01 00AE0    68000AD6              B        T1S10D            LOOP
     2335                            *
     2336   01 00AE1    22E0C001 A   T1S10E   LI,R14   X'C001'           MASK
     2337   01 00AE2    6AF0106F              BAL,R15  :TIO              TEST FOR DEVICE BUSY
     2338   01 00AE3    68000AE5              B        T1S10F
     2339   01 00AE4    68000AE1              B        %-3               DEVICE BUSY-LOOP
     2340   01 00AE5    32100AF9     T1S10F   LW,R1    T110BFA           EXPECTED WORD
     2341   01 00AE6    32200AFC              LW,R2    T110BFB           OBSERVED WORD
     2342   01 00AE7    31100002 A            CW,R1    R2
     2343   01 00AE8    69300AED              BNE      T1S10G            WORDS NOT EQUAL
     2344   01 00AE9    32100AFA              LW,R1    T110BFA+1         EXPECTED WORD
     2345   01 00AEA    32200AFD              LW,R2    T110BFB+1         OBSERVED WORD
     2346   01 00AEB    31100002 A            CW,R1    R2
     2347   01 00AEC    E8300AF3              BE       *T110RTN          WORDS EQUAL-EXIT
     2348                            *ERR 1003   (INPUT-OUTPUT UNEQUAL)
     2349   01 00AED    6AF00F55     T1S10G   BAL,R15  ERRMSG
     2350   01 00AEE    000003EB A            DATA     1003              #1003
     2351   01 00AEF    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2352   01 00AF0    2E000000 A            WAIT
     2353   01 00AF1    68000AC7              B        T1S10B            LOOP
     2354   01 00AF2    E8000AF3              B        *T110RTN          EXIT
     2355                            *
     2356                            *
     2357   01 00AF3    00000000 A   T110RTN  DATA     0
     2358                                     BOUND    8
     2359   01 00AF4    05002BE3     T110CDW1 GEN,8,24 5,BA(T110BFA)-1
     2360   01 00AF5    0000000A A            GEN,8,24 0,10
     2361   01 00AF6    06002BF0     T110CDW2 GEN,8,24 6,BA(T110BFB)
     2362   01 00AF7    00000008 A            GEN,8,24 0,8
     2363   01 00AF8    00000015 A            DATA     X'15'
     2364   01 00AF9    F5E4D3C2 A   T110BFA  TEXT     '5ULB=/&.'
            01 00AFA    7E61504B A
     2365   01 00AFB    15000000 A            DATA     X'15000000'
     2366   01 00AFC    00000000 A   T110BFB  DATA     0,0
            01 00AFD    00000000 A
     2367   01 00AFE    0BC5C3C8 A   T110MSG  TEXTC    'ECHO TEST 3'
            01 00AFF    D640E3C5 A
            01 00B00    E2E340F3 A
     2368                            *
     2369                            *
     2370                            ***  TST 1 SUBTEST 11 ***
     2371                            *
     2372                            * THE TST1,11 ROUTINE CHECKS THE PAPER TAPE PUNCH FUNCTION.  A 20-BYTE
     2373                            * LEADER AND 288-BYTE RANDOM PATTERN TAPE IS PUNCHED.
     2374                            *
     2375   01 00B01    35F00B59     TST111   STW,R15  T111RTN           SAVE RETURN ADDRESS
     2376   01 00B02    330004A7              MTW,0    KSRASR            TEST FOR ASR
     2377   01 00B03    E830000F A            BCR,3    *R15              KSR-EXIT
     2378   01 00B04    22700032 A            LI,R7    50                COUNT =50
     2379   01 00B05    32C0169C              LW,R12   =314159265
     2380   01 00B06    32D0169D              LW,R13   =271828183
     2381   01 00B07    32E0169E              LW,R14   =1414215562
     2382   01 00B08    6AF01227              BAL,R15  :RANDOMY          INITIALIZE RANDOM GEN
     2383   01 00B09    6AF0122A              BAL,R15  :RANDOMX          RANDOM NUMBER
     2384   01 00B0A    35EE0B78              STW,R14  T111BFC-1,R7      FILL  RANDOM PORTION OF PATTERN
     2385   01 00B0B    64700B09              BDR,R7   %-2               COUNT NOT 0
     2386   01 00B0C    6AF01044     T1S11A   BAL,15   HIODELY           ISSUE HIO AND DELAY
     2387   01 00B0D    220005AD              LI,R0    DA(T111CDW1)
     2388   01 00B0E    32E01696              LW,R14   =X'EF00C000'      MASK
     2389   01 00B0F    6AF01064              BAL,R15  :SIO              PUNCH LEADER
     2390   01 00B10    68000B17              B        T1S11B
     2391                            *ERR  1101   (SIO CC, STATUS ERROR)
     2392   01 00B11    1220000C A            LD,R2    R12               MOVE STATUS
     2393   01 00B12    6AF00F55              BAL,R15  ERRMSG
     2394   01 00B13    0000044D A            DATA     1101              #1101
     2395   01 00B14    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2396   01 00B15    2E000000 A            WAIT
     2397   01 00B16    68000B0C              B        T1S11A            LOOP
     2398                            *
     2399   01 00B17    22E00960 A   T1S11B   LI,14    2400
     2400   01 00B18    6AF01173              BAL,15   :DELAY            DELAY 2.4 SEC
     2401   01 00B19    68000B1A              B        %+1
     2402   01 00B1A    22E0C001 A            LI,R14   X'C001'           MASK
     2403   01 00B1B    6AF0106F              BAL,R15  :TIO              TEST FOR DEVICE READY
     2404   01 00B1C    68000B2E              B        T1S11D            DEVICE READY
     2405   01 00B1D    22400001 A            LI,R4    1
     2406   01 00B1E    52480003 A            LH,R4    R3,R4             BYTE COUNT
     2407   01 00B1F    21400013 A            CI,R4    19
     2408   01 00B20    68300B28              BE       T1S11C            ONLY REDUCED BY ONE
     2409                            *ERR 1102    (DEVICE BUSY)
     2410   01 00B21    1220000C A            LD,R2    R12               MOVE STATUS
     2411   01 00B22    6AF00F55              BAL,R15  ERRMSG
     2412   01 00B23    0000044E A            DATA     1102              #1102
     2413   01 00B24    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2414   01 00B25    2E000000 A            WAIT
     2415   01 00B26    68000B0C              B        T1S11A            LOOP
     2416   01 00B27    68000B2E              B        T1S11D
     2417                            *
     2418                            *ERR 1103   (BYTE COUNT NOT REDUCED)
     2419   01 00B28    1220000C A   T1S11C   LD,R2    R12               MOVE STATUS
     2420   01 00B29    6AF00F55              BAL,R15  ERRMSG
     2421   01 00B2A    0000044F A            DATA     1103              #1103
     2422   01 00B2B    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2423   01 00B2C    2E000000 A            WAIT
     2424   01 00B2D    68000B0C              B        T1S11A            LOOP
     2425                            *
     2426   01 00B2E    32E01694     T1S11D   LW,R14   =X'EFFFC000'      MASK
     2427   01 00B2F    6AF0106F              BAL,R15  :TIO              TEST STATUS
     2428   01 00B30    68000B37              B        T1S11E
     2429                            *ERR 1104   (TIO STATUS ERROR)
     2430   01 00B31    1220000C A            LD,R2    R12               MOVE STATUS
     2431   01 00B32    6AF00F55              BAL,R15  ERRMSG
     2432   01 00B33    00000450 A            DATA     1104              #1104
     2433   01 00B34    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2434   01 00B35    2E000000 A            WAIT
     2435   01 00B36    68000B0C              B        T1S11A            LOOP
     2436                            *
     2437   01 00B37    6AF01044     T1S11E   BAL,15   HIODELY           ISSUE HIO AND DELAY
     2438   01 00B38    220005AE              LI,R0    DA(T111CDW2)
     2439   01 00B39    32E01696              LW,R14   =X'EF00C000'      MASK
     2440   01 00B3A    6AF01064              BAL,R15  :SIO              PUNCH PATTERN
     2441   01 00B3B    68000B42              B        T1S11F
     2442                            *ERR 1101    (SIO CC, STATUS ERROR)
     2443   01 00B3C    1220000C A            LD,R2    R12               MOVE STATUS
     2444   01 00B3D    6AF00F55              BAL,R15  ERRMSG
     2445   01 00B3E    0000044D A            DATA     1101              #1101
     2446   01 00B3F    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2447   01 00B40    2E000000 A            WAIT
     2448   01 00B41    68000B0C              B        T1S11A            LOOP
     2449                            *
     2450   01 00B42    22E0C001 A   T1S11F   LI,R14   X'C001'           MASK
     2451   01 00B43    6AF0106F              BAL,R15  :TIO              TEST FOR DEVICE BUSY
     2452   01 00B44    68000B46              B        T1S11G
     2453   01 00B45    68000B43              B        %-2               DEVICE BUSY-LOOP
     2454   01 00B46    32E01694     T1S11G   LW,R14   =X'EFFFC000'      MASK
     2455   01 00B47    6AF0106F              BAL,R15  :TIO              TEST STATUS
     2456   01 00B48    68000B50              B        T1S11T1           PUNCH TRAILER
     2457                            *ERR  1105    (TIO CC, STATUS ERROR)
     2458   01 00B49    1220000C A            LD,R2    R12               MOVE STATUS
     2459   01 00B4A    6AF00F55              BAL,R15  ERRMSG
     2460   01 00B4B    00000451 A            DATA     1105              #1105
     2461   01 00B4C    EAF0021D              BAL,15   *:SENSE           TEST SENSE SWITCHES 1,3
     2462   01 00B4D    2E000000 A            WAIT
     2463   01 00B4E    68000B0C              B        T1S11A            LOOP TO PUNCH LEADER
     2464   01 00B4F    E8000B59              B        *T111RTN          EXIT
     2465                            *
     2466   01 00B50    6AF0104B     T1S11T1  BAL,15   TRAILER           PUNCH 80 BYTE TRAILER
     2467   01 00B51    68000B53              B        %+2               ERROR
     2468   01 00B52    E8000B59              B        *T111RTN          EXIT
     2469   01 00B53    6AF00F55              BAL,15   ERRMSG
     2470   01 00B54    00000452 A            DATA     1106              #1106
     2471   01 00B55    EAF0021D              BAL,15   *:SENSE
     2472   01 00B56    2E000000 A            WAIT
     2473   01 00B57    68000B0C              B        T1S11A            LOOP
     2474   01 00B58    E8000B59              B        *T111RTN          EXIT
     2475   01 00B59    00000000 A   T111RTN  DATA     0
     2476                                     BOUND    8
     2477   01 00B5A    01002D78     T111CDW1 GEN,8,24 1,BA(T111BFA)
     2478   01 00B5B    00000014 A            GEN,8,24 0,20
     2479   01 00B5C    01002D8C     T111CDW2 GEN,8,24 1,BA(T111BFB)
     2480   01 00B5D    00000120 A            GEN,8,24 0,288
     2481   01 00B5E    00000000 A   T111BFA  DATA     0,0,0,0,0
            01 00B5F    00000000 A
            01 00B60    00000000 A
            01 00B61    00000000 A
            01 00B62    00000000 A
     2482   01 00B63    FFFFFFFF A   T111BFB  DATA     X'FFFFFFFF'
     2483   01 00B64    00000000 A            DATA     0
     2484         00000001           I        SET      1
     2485         00000008                    DO       8
     2486   01 00B65    01010101 A            GEN,8,8,8,8 I,I,I,I
     2487   01 00B66    01010101 A            GEN,8,8,8,8 I,I,I,I
     2488         00000002           I        SET      I**1
     2489                                     FIN
            01 00B67    02020202 A
            01 00B68    02020202 A
                  00000004
            01 00B69    04040404 A
            01 00B6A    04040404 A
                  00000008
            01 00B6B    08080808 A
            01 00B6C    08080808 A
                  00000010
            01 00B6D    10101010 A
            01 00B6E    10101010 A
                  00000020
            01 00B6F    20202020 A
            01 00B70    20202020 A
                  00000040
            01 00B71    40404040 A
            01 00B72    40404040 A
                  00000080
            01 00B73    80808080 A
            01 00B74    80808080 A
                  00000100
     2490   01 00B75    00FF00FF A            DATA     X'00FF00FF'
     2491   01 00B76    00FF00FF A            DATA     X'00FF00FF'
     2492   01 00B77    55AA55AA A            DATA     X'55AA55AA'
     2493   01 00B78    55AA55AA A            DATA     X'55AA55AA'
     2494   01 00B79                 T111BFC  RES      50
     2495                            *
     2496                            *
     2497                            *** TST 1 SUBTEST 12 ***
     2498                            *
     2499                            * THE TST1,12 ROUTINE CHECKS THE PAPER TAPE READ FUNCTION. THE TAPE
     2500                            * PUNCHED DURING TST1,11 IS VERIFIED.
     2501                            *
     2502   01 00BAB    35F00C2D     TST112   STW,R15  T112RTN           SAVE RETURN ADDRESS
     2503   01 00BAC    330004A7              MTW,0    KSRASR            TEST FOR KSRASR
     2504   01 00BAD    E830000F A            BCR,3    *R15              KSR-EXIT
     2505   01 00BAE    33000345              MTW,0    IODEV             TEST FOR IO DEVICE
     2506   01 00BAF    EAF00F6A              BAL,R15  *:PRINT
     2507   01 00BB0    00000C7A              DATA     T112MSG           'INSERT PUNCHED TAPE INTO READER'
     2508   01 00BB1    68000BB3              B        %+2
     2509   01 00BB2    3200169F     T1S12A   LW,R0    =X'80000007'
     2510   01 00BB3    2E000000 A            WAIT
     2511   01 00BB4    22400000 A            LI,R4    0
     2512   01 00BB5    22500047 A            LI,R5    71
     2513   01 00BB6    354A0C31              STW,R4   T112BFA-1,R5      CLEAR BUFFER
     2514   01 00BB7    64500BB6              BDR,R5   %-1               COUNT NOT 0
     2515   01 00BB8    6AF01044     T1S12A1  BAL,15   HIODELY           ISSUE HIO
     2516   01 00BB9    22000617              LI,R0    DA(T112CDW1)
     2517   01 00BBA    32E01696              LW,R14   =X'EF00C000'      MASK
     2518   01 00BBB    6AF01064              BAL,R15  :SIO              READ PT (IGNORING LEADER)
     2519   01 00BBC    68000BC3              B        T1S12B
     2520                            *ERR 1201   (SIO CC, STATUS ERROR)
     2521   01 00BBD    1220000C A            LD,R2    R12               MOVE STATUS
     2522   01 00BBE    6AF00F55              BAL,R15  ERRMSG
     2523   01 00BBF    000004B1 A            DATA     1201              #1201
     2524   01 00BC0    EAF0021D              BAL,15   *:SENSE           TEST SENSE SWITCHES 1,3
     2525   01 00BC1    2E000000 A            WAIT
     2526   01 00BC2    68000BB8              B        T1S12A1           LOOP
     2527                            *
     2528   01 00BC3    227FFFF1 A   T1S12B   LI,7     -15
     2529   01 00BC4    22E003E8 A            LI,14    1000
     2530   01 00BC5    6AF01173              BAL,15   :DELAY            DELAY 1 SECOND
     2531   01 00BC6    68000BC7              B        %+1
     2532   01 00BC7    22E0C001 A            LI,14    X'C001'           MASK
     2533   01 00BC8    6AF0106F              BAL,15   :TIO              TEST FOR DEVICE READY
     2534   01 00BC9    68000BD4              B        T1S12C
     2535   01 00BCA    65700BC4              BIR,7    T1S12B+1          LOOP (15 SECONDS)
     2536   01 00BCB    22E0C000 A            LI,R14   X'C000'           MASK
     2537   01 00BCC    6AF0106F              BAL,R15  :TIO              TEST FOR DEVICE BUSY
     2538   01 00BCD    68000BD4              B        T1S12C
     2539                            *ERR 1202    (DEVICE BUSY)
     2540   01 00BCE    1220000C A            LD,R2    R12               MOVE STATUS
     2541   01 00BCF    6AF00F55              BAL,15   ERRMSG
     2542   01 00BD0    000004B2 A            DATA     1202              #1202
     2543   01 00BD1    EAF0021D              BAL,15   *:SENSE           TEST RENSE SWITCHES 1,3
     2544   01 00BD2    2E000000 A            WAIT
     2545   01 00BD3    68000BB8              B        T1S12A1           LOOP
     2546                            *
     2547   01 00BD4    32E01694     T1S12C   LW,R14   =X'EFFFC000'      MASK
     2548   01 00BD5    6AF0106F              BAL,R15  :TIO              TEST STATUS
     2549   01 00BD6    68000BDD              B        T1S12D
     2550                            *ERR 1203    (TIO STATUS ERROR)
     2551   01 00BD7    1220000C A            LD,R2    R12               MOVE STATUS
     2552   01 00BD8    6AF00F55              BAL,R15  ERRMSG
     2553   01 00BD9    000004B3 A            DATA     1203              #1203
     2554   01 00BDA    EAF0021D              BAL,15   *:SENSE           TEST SENSE SWITCHES 1,3
     2555   01 00BDB    2E000000 A            WAIT
     2556   01 00BDC    68000BB8              B        T1S12A1           LOOP
     2557                            *
     2558   01 00BDD    22400001 A   T1S12D   LI,R4    1
     2559   01 00BDE    5248000D A            LH,R4    R13,R4            TIO-BYTE COUNT
     2560   01 00BDF    21400000 A            CI,R4    0
     2561   01 00BE0    68300BE7              BE       T1S12E            BYTE COUNT =0
     2562                            *ERR 1204   (BYTE COUNT NOT 0)
     2563   01 00BE1    1220000C A            LD,R2    R12               MOVE STATUS
     2564   01 00BE2    6AF00F55              BAL,R15  ERRMSG
     2565   01 00BE3    000004B4 A            DATA     1204              #1204
     2566   01 00BE4    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2567   01 00BE5    2E000000 A            WAIT
     2568   01 00BE6    68000BB8              B        T1S12A1           LOOP
     2569                            *
     2570   01 00BE7    32100B63     T1S12E   LW,R1    T111BFB           FIRST EXPECTED 4 BYTES
     2571   01 00BE8    32200C32              LW,R2    T112BFA           FIRST OBSERVED 4 BYTES
     2572   01 00BE9    31100002 A            CW,R1    R2
     2573   01 00BEA    68300BF0              BE       T1S12F
     2574                            *ERR 1205    (FIRST 4 BYTES UNEQUAL X'FF')
     2575   01 00BEB    6AF00F55              BAL,R15  ERRMSG
     2576   01 00BEC    000004B5 A            DATA     1205              #1205
     2577   01 00BED    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2578   01 00BEE    2E000000 A            WAIT
     2579   01 00BEF    68000BE7              B        T1S12E            LOOP
     2580                            *
     2581   01 00BF0    22000618     T1S12F   LI,R0    DA(T112CDW2)
     2582   01 00BF1    32E01696              LW,R14   =X'EF00C000'      MASK
     2583   01 00BF2    6AF01064              BAL,R15  :SIO              READ PT IMMEDIATE
     2584   01 00BF3    68000BFA              B        T1S12G
     2585                            *ERR 1206  (SIO CC, STATUS ERROR)
     2586   01 00BF4    1220000C A            LD,R2    R12               MOVE STATUS
     2587   01 00BF5    6AF00F55              BAL,R15  ERRMSG
     2588   01 00BF6    000004B6 A            DATA     1206              #1206
     2589   01 00BF7    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2590   01 00BF8    2E000000 A            WAIT
     2591   01 00BF9    68000BF0              B        T1S12F            LOOP
     2592                            *
     2593   01 00BFA    22E0012C A   T1S12G   LI,R14   300
     2594   01 00BFB    6AF01173              BAL,R15  :DELAY            DELAY 300 MSEC
     2595   01 00BFC    68000BFD              B        %+1
     2596   01 00BFD    22E0C001 A            LI,R14   X'C001'           MASK
     2597   01 00BFE    6AF0106F              BAL,R15  :TIO              TEST DEVICE FOR BUSY
     2598   01 00BFF    68000C01              B        %+2               DEVICE READY
     2599   01 00C00    68000C07              B        T1S12H            DEVICE BUSY
     2600                            *ERR 1207  (TIO DEVICE NOT BUSY)
     2601   01 00C01    1220000C A            LD,R2    R12               MOVE STATUS
     2602   01 00C02    6AF00F55              BAL,R15  ERRMSG
     2603   01 00C03    000004B7 A            DATA     1207              #1207
     2604   01 00C04    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2605   01 00C05    2E000000 A            WAIT
     2606   01 00C06    68000BF0              B        T1S12F            LOOP
     2607                            *
     2608   01 00C07    22400001 A   T1S12H   LI,R4    1
     2609   01 00C08    5248000D A            LH,R4    R13,R4            TIO BYTE COUNT
     2610   01 00C09    2140011A A            CI,R4    282
     2611   01 00C0A    69100C11              BL       T1S12J            BYTE COUNT REDUCING
     2612                            *ERR 1208   (TIO BYTE COUNT NOT REDUCED)
     2613   01 00C0B    1220000C A            LD,R2    R12               MOVE STATUS
     2614   01 00C0C    6AF00F55              BAL,R15  ERRMSG
     2615   01 00C0D    000004B8 A            DATA     1208              #1208
     2616   01 00C0E    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2617   01 00C0F    2E000000 A            WAIT
     2618   01 00C10    68000BF0              B        T1S12F            LOOP
     2619                            *
     2620   01 00C11    22E0C001 A   T1S12J   LI,R14   X'C001'           MASK
     2621   01 00C12    6AF0106F              BAL,R15  :TIO              TEST DEVICE FOR BUSY
     2622   01 00C13    68000C15              B        T1S12K            DEVICE READY
     2623   01 00C14    68000C12              B        %-2               DEVICE BUSY-LOOP
     2624   01 00C15    22400001 A   T1S12K   LI,R4    1
     2625   01 00C16    5248000D A            LH,R4    R13,R4            TIO BYTE COUNT
     2626   01 00C17    21400000 A            CI,R4    0
     2627   01 00C18    68300C1F              BE       T1S12L            BYTE COUNT =0
     2628                            *ERR 1209  (BYTE COUNT NOT 0)
     2629   01 00C19    1220000C A            LD,R2    R12               MOVE STATUS
     2630   01 00C1A    6AF00F55              BAL,R15  ERRMSG
     2631   01 00C1B    000004B9 A            DATA     1209              #1209
     2632   01 00C1C    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2633   01 00C1D    2E000000 A            WAIT
     2634   01 00C1E    68000BF0              B        T1S12F            LOOP
     2635                            *
     2636   01 00C1F    22700000 A   T1S12L   LI,R7    0
     2637   01 00C20    721E0B63              LB,R1    T111BFB,R7        EXPECTED BYTE
     2638   01 00C21    722E0C32              LB,R2    T112BFA,R7        OBSERVED BYTE
     2639   01 00C22    31100002 A            CW,R1    R2
     2640   01 00C23    68300C29              BE       T1S12M            EQUAL
     2641                            *ERR 1210    (UNEQUAL DATA BYTES)
     2642   01 00C24    6AF00F55              BAL,R15  ERRMSG
     2643   01 00C25    000004BA A            DATA     1210              #1210
     2644   01 00C26    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2645   01 00C27    2E000000 A            WAIT
     2646   01 00C28    68000C1F              B        T1S12L            LOOP
     2647                            *
     2648   01 00C29    33100007 A   T1S12M   MTW,1    R7
     2649   01 00C2A    2170011F A            CI,R7    287
     2650   01 00C2B    69300C20              BNE      T1S12L+1          BYTE COUNT NOT 0
     2651   01 00C2C    E8000C2D              B        *T112RTN          EXIT
     2652                            *
     2653   01 00C2D    00000000 A   T112RTN  DATA     0
     2654                                     BOUND    8
     2655   01 00C2E    020030C8     T112CDW1 GEN,8,24 2,BA(T112BFA)
     2656   01 00C2F    00000004 A            GEN,8,24 0,4
     2657   01 00C30    820030CC     T112CDW2 GEN,8,24 X'82',BA(T112BFA)+4
     2658   01 00C31    0000011C A            GEN,8,24 0,284
     2659   01 00C32                 T112BFA  RES      72
     2660   01 00C7A    1FC9D5E2 A   T112MSG  TEXTC    'INSERT PUNCHED TAPE INTO READER'
            01 00C7B    C5D9E340 A
            01 00C7C    D7E4D5C3 A
            01 00C7D    C8C5C440 A
            01 00C7E    E3C1D7C5 A
            01 00C7F    40C9D5E3 A
            01 00C80    D640D9C5 A
            01 00C81    C1C4C5D9 A
     2661                            *
     2662                            *
     2663                            *** TST 1 SUBTEST 13 ***
     2664                            *
     2665                            *
     2666                            * TST1,13 CHECKS FOR CHANNEL END AND UNUSUAL END INTERRUPT
     2667                            * WHEN THE BREAK KEY IS DEPRESSED.
     2668                            *
     2669   01 00C82    35F00CC6     TST113   STW,R15  T113RTN   SAVE RETURN ADDRESS
     2670   01 00C83    33000345              MTW,0     IODEV    DEVICE OPERATIONAL ? MODE 1 ?
     2671   01 00C84    E8300CC6              BEZ       *T113RTN   BRANCH OUT IF MODE 0

     2673   01 00C85    22000000 A            LI,R0     0
     2674   01 00C86    35001009              STW,R0    :INTRECF    CLEAR INTERRUPT REC'D FLAG

     2676   01 00C87    22000660              LI,R0    DA(T113CDW)-1     FETCH COMMAND DOUBLEWORD
     2677   01 00C88    CC500344              SIO,R5   *:DEVADDR   ISSUE SIO.   'PRESS BREAK KEY'
     2678   01 00C89    68C00C8D              BCR,12   TST13GO    SIO ACCEPTED, DEVICE RECOGNIZED

     2680   01 00C8A    6AF00F55              BAL,R15  ERRMSG
     2681   01 00C8B    00000514 A            DATA     1300      ERROR   1300
     2682   01 00C8C    68000CAC              B        TST13SS   BRANCH TO SENSE ROUTINE

     2684   01 00C8D    6AF01003     TST13GO  BAL,R15   IOAE   ARM AND ENABLE IO INTERRUPT
     2685   01 00C8E    22E07530 A            LI,R14    30000
     2686   01 00C8F    6AF01173              BAL,R15  :DELAY    DELAY 30 SECS
     2687   01 00C90    68000C9A              B        TST13OK   IO INTERRUPT CAME. OK

     2689   01 00C91    6AF0100A              BAL,R15   IOD    DISARM IO INTERRUPT
     2690   01 00C92    CF000344              HIO,R0   *:DEVADDR  ISSUE HIO HALT DEVICE.
     2691   01 00C93    22E0012C A            LI,R14   300
     2692   01 00C94    6AF01173              BAL,R15  :DELAY     DELAY 300 MILLI SEC
     2693   01 00C95    68000C96              B        %+1

     2695   01 00C96    6E000000 A            AIO,R0   0                 CLEAR PENDING INTERRUPT
     2696   01 00C97    6AF00F55              BAL,R15  ERRMSG
     2697   01 00C98    00000515 A            DATA     1301       INTERRUPT DID NOT COME.
     2698   01 00C99    68000CAC              B        TST13SS    SENSE ROUTINE

     2700   01 00C9A    6AF0100A     TST13OK  BAL,R15   IOD      DISARM IO INTERRUPT
     2701   01 00C9B    32200FF9              LW,R2     FLAGBIT     ANY ERRORS OCCUR.
     2702   01 00C9C    69300CAC              BNEZ      TST13SS     BRANCH IF ERRORS.

     2704   01 00C9D    32200FFA              LW,R2     AIOSTAT   FETCH AIO STATUS
     2705   01 00C9E    4B2016A0              AND,R2    L(X'180000')    MASK BITS 11,12
     2706   01 00C9F    312016A0              CW,R2     L(X'180000')   CHECK FOR CEI,UEI BITS SET
     2707   01 00CA0    68300CA5              BE      %+5      BRANCH IF OK.

     2709   01 00CA1    32200FFA              LW,R2    AIOSTAT      FETCH AIO STATUS
     2710   01 00CA2    6AF00F55              BAL,R15  ERRMSG
     2711   01 00CA3    00000516 A            DATA     1302        ERROR  1302
     2712   01 00CA4    68000CAC              B        TST13SS     SENSE ROUTINE

     2714   01 00CA5    32200FFB              LW,R2     TIOSTAT     FETCH TIO STATUS
     2715   01 00CA6    4B2016A1              AND,R2    L(X'6E000000')   MASK BITS 1,2,4,5,6
     2716   01 00CA7    312016A2              CW,R2     L(X'8000000')   UE,DEV-CONTR READY BITS SET?
     2717   01 00CA8    68300CB0              BE       %+8       BRANCH IF OK.

     2719   01 00CA9    32200FFB              LW,R2    TIOSTAT      FETCH TIO STATUS
     2720   01 00CAA    6AF00F55              BAL,R15  ERRMSG
     2721   01 00CAB    00000517 A            DATA     1303         ERROR 1303

     2723   01 00CAC    EAF0021D     TST13SS  BAL,R15  *:SENSE      SENSE ROUTINE
     2724   01 00CAD    2E000000 A            WAIT
     2725   01 00CAE    68000C83              B         TST113+1   LOOP
     2726   01 00CAF    68000CB2              B         %+3         ERROR EXIT

     2728   01 00CB0    EAF00F6A              BAL,R15   *:PRINT      PRINT SUCCESS TEST 13
     2729   01 00CB1    00000CB9               DATA     T13SUSS      TEST 13 SUCESS.

     2731   01 00CB2    6E000000 A   TST13XX  AIO,R0     0     ISSUE AIO TO CLEAR PENDING INTERRUPTS
     2732   01 00CB3    E8000CC6              B         *T113RTN    RETURN

     2734   01 00CB4    D7D9C5E2 A   T113TXT  TEXT        'PRESS BREAK KEY '
            01 00CB5    E240C2D9 A
            01 00CB6    C5C1D240 A
            01 00CB7    D2C5E840 A
     2735   01 00CB8    15404040 A   T113TXS  DATA        X'15404040'

     2737   01 00CB9    1440E3C5 A   T13SUSS  TEXTC     ' TEST 13**SUCCESS** '
            01 00CBA    E2E340F1 A
            01 00CBB    F35C5CE2 A
            01 00CBC    E4C3C3C5 A
            01 00CBD    E2E25C5C A
            01 00CBE    40404040 A
     2738                                     BOUND    8
     2739   01 00CC0    050032E0              GEN,8,24 X'05',BA(T113TXS) START BY RETURNING CARRIAGE
     2740   01 00CC1    94000004 A            GEN,8,24 X'94',4
     2741   01 00CC2    050032D0     T113CDW  GEN,8,24 X'05',BA(T113TXT) COMMAND DOUBLE WORD
     2742   01 00CC3    94000014 A            GEN,8,24 X'94',20          DATA CHAIN,CEI,UEI
     2743   01 00CC4    08000661              GEN,8,24 X'08',DA(T113CDW) TRANSFER IN CHANNEL
     2744   01 00CC5    00000000 A            DATA     0

     2746   01 00CC6    00000000 A   T113RTN  DATA     0             SAVE LOCATION FOR RETURN

     2748                            ***  TST2 DIRECTIVE ACCEPTOR ***
     2749                            *
     2750                            * THE TST2 DIRECTIVE ROUTINE ACCEPTS TST2 DIRECTIVE, CHECKS THE
     2751                            * PARAMETERS, AND CALLS TST2,X,X
     2752                            *
     2753   01 00CC7    22500000 A   TST2DR   LI,5     0
     2754   01 00CC8    35500DEF              STW,5    TST2LOOP          SET LOOP FLAG
     2755   01 00CC9    22400001 A            LI,R4    1
     2756   01 00CCA    22400001 A            LI,R4    1
     2757   01 00CCB    35400D0C              STW,R4   :PASSCUR
     2758   01 00CCC    35400538              STW,R4   TST1PRES
     2759   01 00CCD    32500201              LW,R5    :P1               PARAMETER P1
     2760   01 00CCE    69300CD6              BCS,3    TST2DRA           P1>0
     2761   01 00CCF    22400002 A            LI,R4    2
     2762   01 00CD0    32500202              LW,R5    :P2               PARAMETER P2
     2763   01 00CD1    69300F44              BCS,3    PERROR            ERROR (P1=0,P2>0)
     2764   01 00CD2    35400202              STW,R4   :P2               SPECIFY TEST 1 AND 2
     2765   01 00CD3    22400001 A            LI,R4    1
     2766   01 00CD4    35400201              STW,R4   :P1
     2767   01 00CD5    68000CDC              B        TST2DRB
     2768   01 00CD6    31500202     TST2DRA  CW,R5    :P2
     2769   01 00CD7    69200F44              BCS,2    PERROR            ERROR (P1>P2)
     2770   01 00CD8    22400002 A            LI,R4    2
     2771   01 00CD9    32500202              LW,R5    :P2               P2
     2772   01 00CDA    21500002 A            CI,R5    2
     2773   01 00CDB    69200F44              BCS,2    PERROR            ERROR (P2>2)
     2774   01 00CDC    6AF00D15     TST2DRB  BAL,R15  TST2
     2775   01 00CDD    6AF00CF2              BAL,15   :PASSC            TEST PASS CNT
     2776   01 00CDE    68000CCC              B        TST2DR+5          LOOP
     2777   01 00CDF    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     2778   01 00CE0    2E000000 A            WAIT
     2779   01 00CE1    68000CDC              B        TST2DRB           LOOP
     2780   01 00CE2    33000345              MTW,0    IODEV             TEST FOR IO DEVICE
     2781   01 00CE3    68300FAA              BCR,3    INPTDR            NO IO DEVICE-GO TO REGISTER INPUT
     2782   01 00CE4    E8000214              B        *:MONITOR         EXIT TO MONITOR
     2783                            *
     2784                            *
     2785   01 00CE5    22400001 A   LIMT     LI,4     1                 PARAMETER 1
     2786   01 00CE6    32500201              LW,5     :P1
     2787   01 00CE7    21500002 A            CI,5     2                 IS P1 A TWO
     2788   01 00CE8    69300F44              BCS,3    PERROR            NO - ERROR
     2789   01 00CE9    22400002 A            LI,4     2                 PARAMETER 2
     2790   01 00CEA    32500202              LW,5     :P2
     2791   01 00CEB    69100F44              BCS,1    PERROR            NEG. PARAM.
     2792   01 00CEC    35500D0A              STW,5    :PASSPFL          SET PRINT FLAG
     2793   01 00CED    22400003 A            LI,4     3                 PARAMETER 3
     2794   01 00CEE    32500203              LW,5     :P3
     2795   01 00CEF    69100F44              BCS,1    PERROR            NEG. PARAM.
     2796   01 00CF0    35500D0B              STW,5    :PASSCNT          SET PASS COUNT
     2797   01 00CF1    E8000214              B        *:MONITOR         EXIT
     2798                            *
     2799                            *        *** PASS CONTROL HANDLER ***
     2800                            *
     2801   01 00CF2    35F00D0D     :PASSC   STW,15   :PASSRTN          SAVE EXIT ADR
     2802   01 00CF3    33000D0A              MTW,0    :PASSPFL          TEST PRINT FLAG
     2803   01 00CF4    68200D04              BLEZ     :PASSC1           B: BYPASS PRINTING
     2804   01 00CF5    22C00000 A            LI,12    0
     2805   01 00CF6    32D00D0C              LW,13    :PASSCUR          IS CURRENT PASS A MULTIPLE
     2806   01 00CF7    36C00D0A              DW,12    :PASSPFL            OF PRINT REQUEST.
     2807   01 00CF8    21C00000 A            CI,12    0                 CHECK REMAINDER
     2808   01 00CF9    69300D04              BCS,3    :PASSC1           B: BYPASS PRINTING
     2809   01 00CFA    32C00414              LW,12    ITHTEST           FETCH TEST ID
     2810   01 00CFB    EAF00218              BAL,15   *:HEXC
     2811   01 00CFC    75F00D0F              STB,15   :PASSMSG+1
     2812   01 00CFD    32C00D0C              LW,12    :PASSCUR          FETCH PASS COUNT
     2813   01 00CFE    EAF00217              BAL,15   *:DECC
     2814   01 00CFF    35F00D14              STW,15   :PASSMSG+6
     2815   01 00D00    EAF00217              BAL,15   *:DECC
     2816   01 00D01    35F00D13              STW,15   :PASSMSG+5
     2817   01 00D02    EAF00F6A              BAL,15   *:PRINT
     2818   01 00D03    00000D0E              DATA     :PASSMSG          PASS COUNT MSG
     2819   01 00D04    32C00D0C     :PASSC1  LW,12    :PASSCUR          FETCH PASS COUNT
     2820   01 00D05    22100001 A            LI,1     1
     2821   01 00D06    31C00D0B              CW,12    :PASSCNT          TEST FOR LAST COUNT
     2822   01 00D07    E8120D0D              BGE      *:PASSRTN,1       END OF PASSES
     2823   01 00D08    33100D0C              MTW,1    :PASSCUR          INCR PASS CNT
     2824   01 00D09    E8000D0D              B        *:PASSRTN
     2825                            *
     2826   01 00D0A    00000000 A   :PASSPFL DATA     0                 PRINT IF POSITIVE
     2827   01 00D0B    00000000 A   :PASSCNT DATA     0                 NO. OF REQ. PASSES
     2828   01 00D0C    00000000 A   :PASSCUR DATA     0                 CURRENT PASS COUNT
     2829   01 00D0D    00000000 A   :PASSRTN DATA     0                 RETURN ADR
     2830   01 00D0E    1BE3E2E3 A   :PASSMSG TEXTC    'TSTX - PASS COUNT  XXXXXXXX'
            01 00D0F    E7406040 A
            01 00D10    D7C1E2E2 A
            01 00D11    40C3D6E4 A
            01 00D12    D5E34040 A
            01 00D13    E7E7E7E7 A
            01 00D14    E7E7E7E7 A
     2831                            *
     2832                            *
     2833                            ***  TST2 DIRECTIVE HANDLER ***
     2834                            *
     2835                            * THE TST2 HANDLER ROUTINE CALLS THE P1, P2-SPECIFIED TST2 SUBTESTS
     2836                            * IN NUMERICAL SEQUENCE
     2837                            *
     2838   01 00D15    35F00D30     TST2     STW,R15  TST2RTN           SAVE RETURN ADDRESS
     2839   01 00D16    22200002 A            LI,2     2
     2840   01 00D17    35200414              STW,2    ITHTEST       STORE TEST NUMBER
     2841   01 00D18    22F00400              LI,R15   ITHDLR        FETCH TRAP HANNDLER
     2842   01 00D19    35F0030F              STW,R15  :PIT15        STOER INTO PIT15
     2843   01 00D1A    22F00D16              LI,R15   TST2+1        FETCH RESTART ADDRESS
     2844   01 00D1B    35F00416              STW,R15  ITHRST        SORE TO RESTART ADDRESS PARAMETER R
     2845   01 00D1C    33000345              MTW,0    IODEV             TEST FOR IO DEVICE
     2846   01 00D1D    69300D21              BCS,3    TST2A             IO DEVICE PRESENT
     2847                            * TARGET DEVICE ADDRESS TO MESSAGE DEVICE ADDRESS
     2848   01 00D1E    22400001 A            LI,R4    1
     2849   01 00D1F    35400345              STW,R4   IODEV             SET IO MESSAGE DEVICE FLAG
     2850   01 00D20    35400D31              STW,R4   TST2XF            SET EXCHANGE FLAG
     2851                            *
     2852   01 00D21    32400201     TST2A    LW,R4    :P1               PARAMETER P1
     2853   01 00D22    31400202              CW,R4    :P2               PARAMETER P2
     2854   01 00D23    68300D2C              BCR,3    TST2D             P1=P2
     2855   01 00D24    6AF00D32              BAL,R15  TST21             TST2,1
     2856   01 00D25    6AF00DBC     TST2B    BAL,R15  TST22             TST2,2
     2857   01 00D26    33000D31     TST2C    MTW,0    TST2XF            TEST EXCHANGE FLAG
     2858   01 00D27    E8300D30              BCR,3    *TST2RTN          NOT SET-ECIT
     2859   01 00D28    22400000 A            LI,R4    0
     2860   01 00D29    35400345              STW,R4   IODEV             RESET IO DEVICE FLAG
     2861   01 00D2A    35400D31              STW,R4   TST2XF            RESET EXCHANGE FLAG
     2862   01 00D2B    E8000D30              B        *TST2RTN          EXIT
     2863   01 00D2C    21400002 A   TST2D    CI,R4    2                 P1:2
     2864   01 00D2D    68300D25              BCR,3    TST2B             P1=2
     2865   01 00D2E    6AF00D32              BAL,R15  TST21             TST2,1
     2866   01 00D2F    68000D26              B        TST2C             GO TO TEST EXCHANGE FLAG
     2867                            *
     2868   01 00D30    00000000 A   TST2RTN  DATA     0
     2869   01 00D31    00000000 A   TST2XF   DATA     0
     2870                            *
     2871                            *
     2872                            ***  TST2,1  PATTERN PRINT/SHIFT AND RANDOM PUNCH ***
     2873                            *
     2874                            * THE TST2,1 ROUTINE PRINTS A RIPPLE PATTERN CONSISTING OF ALL KSR
     2875                            * CHARACTERS. ALSO, A RANDOM PATTERN TAPE IS PUNCHED .  RANDOM BYTE
     2876                            * COUNTS ARE USED DURING BOTH OPERATIONS.
     2877                            *
     2878   01 00D32    35F00DAC     TST21    STW,R15  T21RTN            SAVE RETURN ADDRESS
     2879   01 00D33    CF800344              HIO,R8   *:DEVADDR         INITIAL HALT
     2880   01 00D34    22500001 A            LI,R5    1
     2881   01 00D35    22404A14              LI,R4    BA(TSTBFA)        RANDOM PATN ADDR
     2882   01 00D36    554A0DB0              STH,R4   T2IOCD2,R5
     2883   01 00D37    22A0505C              LI,R10   BA(TSTBFB)        PRINT PATN ADDR
     2884   01 00D38    55AA0DB2              STH,R10  T2IOCD3,R5
     2885   01 00D39    2280000C A            LI,R8    12                LINE COUNT
     2886   01 00D3A    22900055 A            LI,R9    85                CHARACTER/LINE COUNT = 85
     2887   01 00D3B    22400000 A            LI,R4    0
     2888   01 00D3C    35400DAD              STW,R4   T2PUNCNT          PUNCH BYTE COUNT =0
     2889                            *  GENERATE PRINT PATTERN
     2890   01 00D3D    224FFFC0 A            LI,R4    -64
     2891   01 00D3E    22500040 A            LI,R5    X'40'
     2892   01 00D3F    75581427              STB,R5   TSTBFB+16,R4
     2893   01 00D40    33100005 A            MTW,1    R5
     2894   01 00D41    65400D3F              BIR,R4   %-2
     2895   01 00D42    224FFFC0 A            LI,R4    -64
     2896   01 00D43    22500040 A            LI,R5    X'40'
     2897   01 00D44    75581437              STB,R5   TSTBFB+32,R4
     2898   01 00D45    33100005 A            MTW,1    R5
     2899   01 00D46    65400D44              BIR,R4   %-2
     2900                            * NEW LINE
     2901   01 00D47    220006DA              LI,R0    DA(T2IOCD4)
     2902   01 00D48    32E01696              LW,R14   =X'EF00C000'      MASK
     2903   01 00D49    6AF01064              BAL,R15  :SIO              NL
     2904   01 00D4A    68000D4B              B        %+1
     2905   01 00D4B    22E0C001 A            LI,R14   X'C001'           MASK
     2906   01 00D4C    6AF0106F              BAL,R15  :TIO              TEST FOR READY
     2907   01 00D4D    68000D4F              B        %+2               READY
     2908   01 00D4E    68000D4C              B        %-2               BUSY
     2909                            *  BUILD RANDOM PATTERN
     2910   01 00D4F    224000FF A            LI,R4    255               PATTERN WORD COUNT
     2911   01 00D50    6AF0122A              BAL,R15  :RANDOMX          RANDOM GENERATOR
     2912   01 00D51    35E81284              STW,R14  TSTBFA-1,R4       PATTERN TO BFR
     2913   01 00D52    64400D50              BDR,R4   %-2               COUNT NOT 0
     2914   01 00D53    75501285              STB,R5   TSTBFA            INSURE 1ST BYTE NOT ZERO
     2915                            *  PUNCH 20-BYTE LEADER
     2916   01 00D54    330004A7              MTW,0    KSRASR            TEST FOR ASR
     2917   01 00D55    68300D61              BCR,3    T2S1A             KSR-BIPASS PUNCH LEADER
     2918   01 00D56    220006D7              LI,R0    DA(T2IOCD1)
     2919   01 00D57    32E01696              LW,R14   =X'EF00C000'      MASK
     2920   01 00D58    6AF01064              BAL,R15  :SIO              PUNCH LEADER
     2921   01 00D59    68000D5A              B        %+1
     2922   01 00D5A    22E0C001 A            LI,R14   X'C001'           MASK
     2923   01 00D5B    6AF0106F              BAL,R15  :TIO              TEST FOR READY
     2924   01 00D5C    68000D5E              B        %+2               READY
     2925   01 00D5D    68000D5B              B        %-2               BUSY
     2926   01 00D5E    32E01694              LW,R14   =X'EFFFC000'      MASK
     2927   01 00D5F    6AF0106F              BAL,R15  :TIO              TEST FOR ERROR
     2928   01 00D60    68000D61              B        %+1
     2929                            *  FETCH RANDOM BYTE COUNT
     2930   01 00D61    6AF0122A     T2S1A    BAL,R15  :RANDOMX          RANDOM NUMBER
     2931   01 00D62    4BE016A3              AND,R14  =X'F'             MASK
     2932   01 00D63    3250000E A            LW,R5    R14
     2933   01 00D64    33200005 A            MTW,2    R5                2<=RANDOM NUM<=17
     2934                            *  PUNCH RANDOM PATTERN
     2935   01 00D65    330004A7              MTW,0    KSRASR            TEST FOR ASR
     2936   01 00D66    68300D75              BCR,3    T2S1B             KSR-BIPASS PUNCH
     2937   01 00D67    35500DB1              STW,R5   T2IOCD2+1         BYTE COUNT TO IOCD
     2938   01 00D68    66500DAD              AWM,R5   T2PUNCNT          UPDATE PUNCH BYTE COUNT
     2939   01 00D69    220006D8              LI,R0    DA(T2IOCD2)
     2940   01 00D6A    32E01696              LW,R14   =X'EF00C000'      MASK
     2941   01 00D6B    6AF01064              BAL,R15  :SIO              PUNCH PATTERN
     2942   01 00D6C    68000D6D              B        %+1
     2943   01 00D6D    22E0C001 A            LI,R14   X'C001'           MASK
     2944   01 00D6E    6AF0106F              BAL,R15  :TIO              TEST FOR READY
     2945   01 00D6F    68000D71              B        %+2               READY
     2946   01 00D70    68000D6E              B        %-2               BUSY
     2947   01 00D71    32E01694              LW,R14   =X'EFFFC000'      MASK
     2948   01 00D72    6AF0106F              BAL,R15  :TIO              TEST FOR ERROR
     2949   01 00D73    68000D74              B        %+1
     2950   01 00D74    66500DB0              AWM,R5   T2IOCD2           BYTE COUNT + BFR ADDR
     2951                            *  PRINT CHARACTERS
     2952   01 00D75    31500009 A   T2S1B    CW,R5    R9
     2953   01 00D76    68100D86              BCR,1    T2S1C             BYTE COUNT=> REMAINING CHAR/LINE
     2954   01 00D77    35500DB3              STW,R5   T2IOCD3+1         BYTE COUNT TO IOCD
     2955   01 00D78    220006D9              LI,R0    DA(T2IOCD3)
     2956   01 00D79    32E01696              LW,R14   =X'EF00C000'      MASK
     2957   01 00D7A    6AF01064              BAL,R15  :SIO              PRINT PATTERN
     2958   01 00D7B    68000D7C              B        %+1
     2959   01 00D7C    22E0C001 A            LI,R14   X'C001'           MASK
     2960   01 00D7D    6AF0106F              BAL,R15  :TIO              TEST FOR READY
     2961   01 00D7E    68000D80              B        %+2               READY
     2962   01 00D7F    68000D7D              B        %-2               BUSY
     2963   01 00D80    32E01694              LW,R14   =X'EFFFC000'      MASK
     2964   01 00D81    6AF0106F              BAL,R15  :TIO              TEST FOR ERROR
     2965   01 00D82    68000D83              B        %+1
     2966   01 00D83    66500DB2              AWM,R5   T2IOCD3           BYTE COUNT + PATTERN ADDR
     2967   01 00D84    38900005 A            SW,R9    R5                CHAR/LINE - BYTE COUNT
     2968   01 00D85    68000D61              B        T2S1A             LOOP
     2969   01 00D86    35900DB3     T2S1C    STW,R9   T2IOCD3+1         CHAR/LINE TO IOCD BYTE COUNT
     2970   01 00D87    220006D9              LI,R0    DA(T2IOCD3)
     2971   01 00D88    32E01696              LW,R14   =X'EF00C000'      MASK
     2972   01 00D89    6AF01064              BAL,R15  :SIO              PRINT PATTERN
     2973   01 00D8A    68000D8B              B        %+1
     2974   01 00D8B    22E0C001 A            LI,R14   X'C001'           MASK
     2975   01 00D8C    6AF0106F              BAL,R15  :TIO              TEST FOR READY
     2976   01 00D8D    68000D8F              B        %+2               READY
     2977   01 00D8E    68000D8C              B        %-2               BUSY
     2978   01 00D8F    32E01694              LW,R14   =X'EFFFC000'      MASK
     2979   01 00D90    6AF0106F              BAL,R15  :TIO              TEST FOR ERROR
     2980   01 00D91    68000D92              B        %+1
     2981                            * NEW LINE
     2982   01 00D92    220006DA              LI,R0    DA(T2IOCD4)
     2983   01 00D93    32E01696              LW,R14   =X'EF00C000'      MASK
     2984   01 00D94    6AF01064              BAL,R15  :SIO              NL
     2985   01 00D95    68000D96              B        %+1
     2986   01 00D96    22E0C001 A            LI,R14   X'C001'           MASK
     2987   01 00D97    6AF0106F              BAL,R15  :TIO              TEST FOR READY
     2988   01 00D98    68000D9A              B        %+2               READY
     2989   01 00D99    68000D97              B        %-2               BUSY
     2990   01 00D9A    32E01694              LW,R14   =X'EFFFC000'      MASK
     2991   01 00D9B    6AF0106F              BAL,R15  :TIO              TEST FOR ERROR
     2992   01 00D9C    68000D9D              B        %+1
     2993                            * UPDATE VALUES
     2994   01 00D9D    3310000A A            MTW,1    R10               SHIFT PATTERN
     2995   01 00D9E    22600001 A            LI,R6    1
     2996   01 00D9F    55AC0DB2              STH,R10  T2IOCD3,R6        PATTERN ADDR TO IOCD
     2997   01 00DA0    38500009 A            SW,R5    R9                BYTE COUNT - CHAR/LINE
     2998   01 00DA1    22900055 A            LI,R9    85                CHAR/LINE =85
     2999   01 00DA2    64800DA4              BDR,R8   %+2               LINE COUNT NOT 0
     3000   01 00DA3    68000DA7              B        T2TRAIL           PUNCH A TRAILER (80 BYTES)
     3001   01 00DA4    32500005 A            LW,R5    R5                TEST REMAINING BYTE COUNT
     3002   01 00DA5    69300D75              BCS,3    T2S1B             REMAINING BYTE COUNT >0
     3003   01 00DA6    68000D61              B        T2S1A             BYTE COUNT = 0
     3004                            *
     3005   01 00DA7    330004A7     T2TRAIL  MTW,0    KSRASR            TEST FOR ASR
     3006   01 00DA8    E8300DAC              BCR,3    *T21RTN           TYPE KSR-EXIT
     3007   01 00DA9    6AF0104B              BAL,15   TRAILER           PUNCH A 80 BYTE TRAILER
     3008   01 00DAA    68000DAB              B        %+1
     3009   01 00DAB    E8000DAC              B        *T21RTN           EXIT
     3010   01 00DAC    00000000 A   T21RTN   DATA     0
     3011   01 00DAD    00000000 A   T2PUNCNT DATA     0
     3012                                     BOUND    8
     3013   01 00DAE    010036DC     T2IOCD1  GEN,8,24 1,BA(T2BFR)
     3014   01 00DAF    00000014 A            GEN,8,24 0,20
     3015   01 00DB0    01004A14     T2IOCD2  GEN,8,24 1,BA(TSTBFA)
     3016   01 00DB1    00000000 A            GEN,8,24 0,0
     3017   01 00DB2    0500505C     T2IOCD3  GEN,8,24 5,BA(TSTBFB)
     3018   01 00DB3    00000000 A            GEN,8,24 0,0
     3019   01 00DB4    050036D8     T2IOCD4  GEN,8,24 5,BA(T2NL)
     3020   01 00DB5    00000001 A            GEN,8,24 0,1
     3021   01 00DB6    15000000 A   T2NL     DATA     X'15000000'
     3022   01 00DB7    00000000 A   T2BFR    DATA     0,0,0,0,0
            01 00DB8    00000000 A
            01 00DB9    00000000 A
            01 00DBA    00000000 A
            01 00DBB    00000000 A
     3023                            *
     3024                            *
     3025                            *** TST2,2 READ PAPER TAPE AND VERIFY ***
     3026                            *
     3027                            * THE TST2,2 ROUTINE VERIFIES THE PAPER TAPE PUNCHED DURING TST2,1.
     3028                            *
     3029   01 00DBC    35F00DEE     TST22    STW,R15  T22RTN            SAVE RETURN ADDRESS
     3030   01 00DBD    CF200344              HIO,R2   *:DEVADDR         INITIAL HALT
     3031   01 00DBE    330004A7              MTW,0    KSRASR            TEST FOR ASR
     3032   01 00DBF    E8300DEE              BCR,3    *T22RTN           TYPE KSR-EXIT
     3033                            *   INSERT TAPE MSG
     3034   01 00DC0    33000DEF              MTW,0    TST2LOOP          TEST LOOP FLAG
     3035   01 00DC1    69300DC6              BNEZ     %+5
     3036   01 00DC2    33100DEF              MTW,1    TST2LOOP          SET FLAG
     3037   01 00DC3    EAF00F6A              BAL,R15  *:PRINT
     3038   01 00DC4    00000DF4              DATA     T2MSG             'INSERT PUNCHED TAPE INTO READER'
     3039   01 00DC5    2E000000 A            WAIT
     3040                            *  READ FIRST NON-BLANK 4 BYTES
     3041   01 00DC6    220006F8              LI,R0    DA(T2IOCD5)
     3042   01 00DC7    32E01694              LW,R14   =X'EFFFC000'      MASK
     3043   01 00DC8    6AF01064              BAL,R15  :SIO              READ IGNORING LEADER 4 BYTES
     3044   01 00DC9    68000DCA              B        %+1
     3045   01 00DCA    22E0C001 A            LI,R14   X'C001'           MASK
     3046   01 00DCB    6AF0106F              BAL,R15  :TIO              TEST FOR READY
     3047   01 00DCC    68000DCE              B        %+2               READY
     3048   01 00DCD    68000DCB              B        %-2               BUSY
     3049   01 00DCE    32F01694              LW,R15   =X'EFFFC000'      MASK
     3050   01 00DCF    6AF0106F              BAL,R15  :TIO              TEST FOR ERROR
     3051   01 00DD0    68000DD1              B        %+1
     3052                            * INITIALIZE COMPARE ROUTINE
     3053   01 00DD1    22401285              LI,R4    TSTBFA
     3054   01 00DD2    354011EB              STW,R4   :COMBFRA          EXPECTED BFR
     3055   01 00DD3    22401417              LI,R4    TSTBFB
     3056   01 00DD4    354011EC              STW,R4   :COMBFRB          OBSERVED BFR
     3057   01 00DD5    22400001 A            LI,R4    1
     3058   01 00DD6    354011EA              STW,R4   :COMWCNT          WORD COUNT
     3059                            * COMPARE FIRST WORD WITH FIRST PATTERN WORD
     3060   01 00DD7    6AF01192     T2S2A    BAL,R15  :COMPARE          COMPARE ONE WORD
     3061   01 00DD8    68000DD9              B        %+1
     3062                            *  READ REMAINDER OF PAPER TAPE
     3063   01 00DD9    6AF01003     T2S2B    BAL,R15  IOAE              ARM/ENABLE IO INTERRUPT
     3064   01 00DDA    32400DAD              LW,R4    T2PUNCNT          PUNCH BYTE COUNT
     3065   01 00DDB    33C00004 A            MTW,-4   R4                BYTE COUNT -4
     3066   01 00DDC    22500001 A            LI,R5    1
     3067   01 00DDD    554A0DF3              STH,R4   T2IOCD6+1,R5      BYTE COUNT TO IOCD
     3068   01 00DDE    220006F9              LI,R0    DA(T2IOCD6)
     3069   01 00DDF    32E01696              LW,R14   =X'EF00C000'      MASK
     3070   01 00DE0    6AF01064              BAL,R15  :SIO              READ IMMEDIATE
     3071   01 00DE1    68000DE2              B        %+1
     3072                            * DELAY FOR INTERRUPT
     3073   01 00DE2    32401009              LW,R4    :INTRECF          DELAY FOR INTER REC'D FLAG
     3074   01 00DE3    68300DE2              BCR,3    %-1
     3075                            * TEST FOR ERROR
     3076   01 00DE4    32E01694              LW,R14   =X'EFFFC000'      MASK
     3077   01 00DE5    6AF0106F              BAL,R15  :TIO              TEST FOR ERROR
     3078   01 00DE6    68000DE7              B        %+1
     3079   01 00DE7    6AF0100A              BAL,R15  IOD               DISARM IO INTERRUPT
     3080                            *  COMPARE ALL PATTERN WORDS
     3081   01 00DE8    32400DAD              LW,R4    T2PUNCNT          BYTE COUNT
     3082   01 00DE9    2540007E A            SLS,R4   -2                BYTE COUNT/4
     3083   01 00DEA    354011EA              STW,R4   :COMWCNT          WORD COUNT
     3084   01 00DEB    6AF01192              BAL,R15  :COMPARE          COMPARE
     3085   01 00DEC    E8000DEE              B        *T22RTN           EXIT
     3086   01 00DED    E8000DEE              B        *T22RTN           ERROR-EXIT
     3087                            *
     3088   01 00DEE    00000000 A   T22RTN   DATA     0
     3089   01 00DEF    00000000 A   TST2LOOP DATA     0
     3090                                     BOUND    8
     3091   01 00DF0    0200505C     T2IOCD5  GEN,8,24 2,BA(TSTBFB)
     3092   01 00DF1    00000004 A            GEN,8,24 0,4
     3093   01 00DF2    82005060     T2IOCD6  GEN,8,24 X'82',BA(TSTBFB+1)
     3094   01 00DF3    10000000 A            GEN,8,24 X'10',0
     3095   01 00DF4    1FC9D5E2 A   T2MSG    TEXTC    'INSERT PUNCHED TAPE INTO READER'
            01 00DF5    C5D9E340 A
            01 00DF6    D7E4D5C3 A
            01 00DF7    C8C5C440 A
            01 00DF8    E3C1D7C5 A
            01 00DF9    40C9D5E3 A
            01 00DFA    D640D9C5 A
            01 00DFB    C1C4C5D9 A
     3096                            *
     3097                            *
     3098                            *** TST3 DIRECTIVE ACCEPTOR ***
     3099                            *
     3100                            * THE TST3 DIRECTIVE ROUTINE ACCEPTS TST3 DIRECTIVE, CHECKS THE
     3101                            * PARAMETERS, AND CALLS TST3,X,X
     3102                            *
     3103   01 00DFC    35100D0C     TST3DR   STW,1    :PASSCUR          INIT PASS CNT
     3104   01 00DFD    22400001 A            LI,R4    1
     3105   01 00DFE    35400538              STW,4    TST1PRES
     3106   01 00DFF    35300414              STW,3    ITHTEST       STORE TEST NUMBER
     3107   01 00E00    22F00400              LI,R15   ITHDLR        FETCH TRAP HANNDLER
     3108   01 00E01    35F0030F              STW,R15  :PIT15        STOER INTO PIT15
     3109   01 00E02    22F00DFC              LI,R15   TST3DR        FETCH RESTART ADDRESS
     3110   01 00E03    35F00416              STW,R15  ITHRST        SORE TO RESTART ADDRESS PARAMETER R
     3111   01 00E04    32500201              LW,R5    :P1               PARAMETER P1
     3112   01 00E05    21500002 A            CI,R5    2
     3113   01 00E06    68300E13              BCR,3    TST3DRB           P1=2
     3114   01 00E07    21500001 A            CI,R5    1
     3115   01 00E08    69300E1F              BCS,3    TST3DRD           P1 NOT EQUAL 1
     3116   01 00E09    22400002 A            LI,R4    2
     3117   01 00E0A    32500202              LW,R5    :P2               PARAMETER P2
     3118   01 00E0B    69300F44              BCS,3    PERROR            ERROR (P2>0)
     3119   01 00E0C    6AF00E2B     TST3DRA  BAL,R15  TST31             TST3,1
     3120   01 00E0D    6AF00CF2              BAL,15   :PASSC            TEST PASS CNT
     3121   01 00E0E    68000E0C              B        TST3DRA           LOOP
     3122   01 00E0F    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     3123   01 00E10    2E000000 A            WAIT
     3124   01 00E11    68000E0C              B        TST3DRA           LOOP
     3125   01 00E12    E8000214              B        *:MONITOR         EXIT TO MONITOR
     3126   01 00E13    22400002 A   TST3DRB  LI,R4    2
     3127   01 00E14    32500202              LW,R5    :P2               PARAMETER P2
     3128   01 00E15    68300F44              BCR,3    PERROR            ERROR (P2=0)
     3129   01 00E16    21500006 A            CI,R5    6
     3130   01 00E17    69200F44              BCS,2    PERROR            ERROR (P2>6)
     3131   01 00E18    6AF00E6E     TST3DRC  BAL,R15  TST32             TST3,2
     3132   01 00E19    6AF00CF2              BAL,15   :PASSC            TEST PASS CNT
     3133   01 00E1A    68000E18              B        TST3DRC           LOOP
     3134   01 00E1B    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     3135   01 00E1C    2E000000 A            WAIT
     3136   01 00E1D    68000E18              B        TST3DRC           LOOP
     3137   01 00E1E    E8000214              B        *:MONITOR         EXIT TO MONITOR
     3138   01 00E1F    21500003 A   TST3DRD  CI,R5    3
     3139   01 00E20    69300F44              BCS,3    PERROR            ERROR (P1 NOT 1,2,OR3)
     3140   01 00E21    22400002 A            LI,R4    2
     3141   01 00E22    32500202              LW,R5    :P2               PARAMETER P2
     3142   01 00E23    69300F44              BCS,3    PERROR            ERROR (P270)
     3143   01 00E24    6AF00F09     TST3DRE  BAL,15   TST33             TST3,3
     3144   01 00E25    6AF00CF2              BAL,15   :PASSC            TEST PASS CNT
     3145   01 00E26    68000E24              B        TST3DRE           LOOP
     3146   01 00E27    EAF0021D              BAL,15   *:SENSE           TEST SENSE SW.
     3147   01 00E28    2E000000 A            WAIT
     3148   01 00E29    68000E26              B        %-3               LOOP
     3149   01 00E2A    E8000214              B        *:MONITOR
     3150                            *
     3151                            *
     3152                            ***  TST3,1 PRINTER CHARACTER SPACING ***
     3153                            *
     3154                            * THE TST3,1 UTILITY ROUTINE PRINTS CHARACTER STRINGS THAT AID IN
     3155                            * CHARACTER SPACING ADJUSTMENTS AND CHECKS RIBBON SHIFTS. 1ST 6
     3156                            * CHARACTER LINES SHOULD BE PRINTED IN RED, AND 2ND 6 , IN BLACK
     3157                            *
     3158   01 00E2B    35F00E49     TST31    STW,R15  T31RTN            SAVE RETURN ADDRESS
     3159   01 00E2C    CF800344              HIO,R8   *:DEVADDR         INITIAL HALT
     3160   01 00E2D    22700000 A            LI,R7   0
     3161   01 00E2E    35700E47              STW,R7  T31FLAG   CLEAR T31FLAG. RIBBON FLAG
     3162   01 00E2F    227FFFF4 A            LI,R7    -12               LINE COUNT
     3163   01 00E30    35700E48              STW,R7    T3:RIBN   STORE ALSO TO RIBBON FLAG
     3164   01 00E31    324E0E6E     TST31A   LW,R4    T3SPCHAR+12,R7    FIXED CHARACTER
     3165   01 00E32    22500015 A            LI,R5    21                INDEX=21
     3166   01 00E33    354A0E4C              STW,R4   T3BFR-1,R5        BUILD PATTERN
     3167   01 00E34    64500E33              BDR,R5   %-1               COUNT NOT 0
     3168   01 00E35    31700E48              CW,R7  T3:RIBN    IS IT THE FIRST SHIFT OUT?
     3169   01 00E36    69300E3F              BNE    T3CONT:    BRANCH IF NOT EQUAL
     3170   01 00E37    220FFFFA A            LI,R0  -6         SET UP FOR NEXT RIBBON SHIFT
     3171   01 00E38    35000E48              STW,R0  T3:RIBN
     3172   01 00E39    33000E47              MTW,0  T31FLAG     FIRST SHIFT OUT?
     3173   01 00E3A    68300E3D              BEZ    T311ST      BRANCH IF ZERO
     3174   01 00E3B    22000F00 A            LI,R0   X'F00'     SET UP SHIFT IN CHARACTER
     3175   01 00E3C    68000E3E              B      %+2
     3176   01 00E3D    22000E00 A   T311ST   LI,R0   X'E00'     SET UP SHIFT OUT CHARACTER
     3177   01 00E3E    55000E4D              STH,R0  T3BFR      STORE IT TO BUFFER.
     3178   01 00E3F    22000725     T3CONT:  LI,R0    DA(T3IOCD1)     FETCH DOUBLE WORD ADDRESS.
     3179   01 00E40    6AF0100F              BAL,R15  :IOEXEC           NL, PRINT ONE LINE
     3180   01 00E41    22E0C001 A            LI,R14   X'C001'           MASK
     3181   01 00E42    6AF0106F              BAL,R15  :TIO              TEST FOR READY
     3182   01 00E43    68000E45              B        %+2               READY
     3183   01 00E44    68000E42              B        %-2               BUSY
     3184   01 00E45    65700E31              BIR,R7   TST31A            LINE COUNT >0 -LOOP
     3185   01 00E46    E8000E49              B        *T31RTN           EXIT
     3186                            *
     3187   01 00E47    00000000 A   T31FLAG DATA  0
     3188   01 00E48    00000000 A   T3:RIBN DATA  0
     3189   01 00E49    00000000 A   T31RTN   DATA     0
     3190                                     BOUND    8
     3191   01 00E4A    05003933     T3IOCD1  GEN,8,24 5,BA(T3BFR)-1
     3192   01 00E4B    00000055 A            GEN,8,24 0,85
     3193   01 00E4C    00000015 A            DATA     X'15'
     3194   01 00E4D                 T3BFR    RES      21
     3195   01 00E62    C4C3C4C3 A   T3SPCHAR TEXT  'DCDC'   SHIFT OUT CHARACTER PRECEDES 1ST CHARACTER
     3196   01 00E63    E6C5E6C5 A            TEXT     'WEWE'
     3197   01 00E64    E6D8E6D8 A            TEXT     'WQWQ'
     3198   01 00E65    C7C8C7C8 A            TEXT     'GHGH'
     3199   01 00E66    D5D4D5D4 A            TEXT     'NMNM'
     3200   01 00E67    E2C4E2C4 A            TEXT     'SDSD'
     3201   01 00E68    D1D2D1D2 A            TEXT   'JKJK'    SHIFT IN CHARACTER PRECEDES 1ST CHAR.
     3202   01 00E69    F6C3F6C3 A            TEXT     '6C6C'
     3203   01 00E6A    D7D3D7D3 A            TEXT     'PLPL'
     3204   01 00E6B    C6C7C6C7 A            TEXT     'FGFG'
     3205   01 00E6C    E4D5E4D5 A            TEXT     'UNUN'
     3206   01 00E6D    C1E2C1E2 A            TEXT     'ASAS'
     3207                            *
     3208                            *
     3209                            *** TST3,2  PAPER TAPE READ/PUNCH/VERIFY ***
     3210                            *
     3211                            * THE TST3,2,X UTILITY ROUTINE PERFORMS THE FOLLOWING FUNCTIONS:
     3212                            *    (A) PUNCH THE PRE-SELECTED PATTERN (WITH 20-BYTE LEADER)
     3213                            *    (B) PUNCH THE PRE-SELECTED PATTERN (WITHOUT LEADER)
     3214                            *    (C) READ PAPER TAPE, IGNORING THE LEADER
     3215                            *    (D) READ PAPER TAPE IMMEDIATE
     3216                            *    (E) READ PAPER TAPE (IGNORING LEADER) AND VERIFY WITH PRE-SELECTED
     3217                            *        PATTERN
     3218                            *    (F) READ PAPER TAPE (IMMEDIATE) AND VERIFY WITH PRE-SELECTED
     3219                            *        PATTERN
     3220                            *
     3221   01 00E6E    35F00EF9     TST32    STW,R15  T32RTN
     3222   01 00E6F    CF200344              HIO,R2   *:DEVADDR         ISSUE HIO
     3223                            *  INITIALIZE PATTERN ROUTINE
     3224   01 00E70    32700F40              LW,R7    LENGTH            PATTERN BYTE COUNT
     3225   01 00E71    2570007E A            SLS,R7   -2                FORM WORD COUNT
     3226   01 00E72    22801285              LI,R8    TSTBFA            EXPECTED BUFFER ADDRESS
     3227   01 00E73    02200030 A            LCI      3
     3228   01 00E74    2A400F36              LM,R4    DATAP1            DATA INFO
     3229   01 00E75    02200050 A            LCI      5
     3230   01 00E76    2B401276              STM,R4   :PATID
     3231                            *  INITIALIZE COMPARE ROUTINE
     3232   01 00E77    22901417              LI,R9    TSTBFB            OBSERVED BUFFER ADDRESS
     3233   01 00E78    02200030 A            LCI      3
     3234   01 00E79    2B7011EA              STM,R7   :COMWCNT
     3235                            *  GENERATE PATTERN
     3236   01 00E7A    21400004 A            CI,R4    4                 TEST FOR STATDARD PATTERN
     3237   01 00E7B    69300E81              BCS,3    TST32A
     3238   01 00E7C    6AF00EC5              BAL,R15  T32STPG           GENERATE STANDARD TEST TAPE PATTERN
     3239   01 00E7D    2240018B A            LI,R4    395
     3240   01 00E7E    354011EA              STW,R4   :COMWCNT          WORD COUNT
     3241   01 00E7F    2240062C A            LI,R4    1580              BYTE COUNT
     3242   01 00E80    68000E83              B        TST32B
     3243   01 00E81    6AF01238     TST32A   BAL,R15  :PATTERN          GENERATE PATTERN
     3244   01 00E82    32400F40              LW,R4    LENGTH            BYTE COUNT
     3245   01 00E83    35400EFF     TST32B   STW,R4   T3IOCD3+1         ENTER BYTE COUNT INTO IOCD'S
     3246   01 00E84    35400F01              STW,R4   T3IOCD4+1
     3247   01 00E85    35400F03              STW,R4   T3IOCD5+1
     3248                            * GO TO SPECIFIED ROUTINE
     3249   01 00E86    32400202              LW,R4    :P2               TYPE ROUTINE
     3250   01 00E87    68080E87              B        %,R4
     3251   01 00E88    68000E8E              B        TST321            TST3,2,1
     3252   01 00E89    68000E97              B        TST322
     3253   01 00E8A    68000EA3              B        TST323
     3254   01 00E8B    68000EAD              B        TST324
     3255   01 00E8C    68000EB7              B        TST325
     3256   01 00E8D    68000EC3              B        TST326            TST3,2,6
     3257                            *  TST3,2,1  PUNCH LEADER
     3258   01 00E8E    2200077E     TST321   LI,R0    DA(T3IOCD2)
     3259   01 00E8F    6AF0100F              BAL,R15  :IOEXEC           PUNCH 20-BYTE LEADER
     3260   01 00E90    22E0C001 A            LI,R14   X'C001'           MASK
     3261   01 00E91    6AF0106F              BAL,R15  :TIO              TEST FOR READY
     3262   01 00E92    68000E94              B        %+2               READY
     3263   01 00E93    68000E91              B        %-2               BUSY
     3264   01 00E94    32E01694              LW,R14   =X'EFFFC000'      MASK
     3265   01 00E95    6AF0106F              BAL,R15  :TIO              TEST FOR ERROR
     3266   01 00E96    68000E97              B        %+1
     3267                            * TST3,2,2  PUNCH PATTERN
     3268   01 00E97    2200077F     TST322   LI,R0    DA(T3IOCD3)
     3269   01 00E98    6AF0100F              BAL,R15  :IOEXEC           PUNCH PATTERN
     3270   01 00E99    22E0C001 A            LI,R14   X'C001'           MASK
     3271   01 00E9A    6AF0106F              BAL,R15  :TIO              TEST FOR READY
     3272   01 00E9B    68000E9D              B        %+2               READY
     3273   01 00E9C    68000E9A              B        %-2               BUSY
     3274   01 00E9D    32E01694              LW,R14   =X'EFFFC000'      MASK
     3275   01 00E9E    6AF0106F              BAL,R15  :TIO              TEST FOR ERROR
     3276   01 00E9F    68000EA0              B        %+1               EXIT
     3277   01 00EA0    6AF0104B              BAL,15   TRAILER           PUNCH A 80 BYTE TRAILER
     3278   01 00EA1    68000EA2              B        %+1
     3279   01 00EA2    E8000EF9              B        *T32RTN           ERROR-EXIT
     3280                            *  TST3,2,3 READ IGNORING LEADER
     3281   01 00EA3    22000780     TST323   LI,R0    DA(T3IOCD4)
     3282   01 00EA4    6AF0100F              BAL,R15  :IOEXEC           READ IGNORING LEADER
     3283   01 00EA5    22E0C001 A            LI,R14   X'C001'           MASK
     3284   01 00EA6    6AF0106F              BAL,R15  :TIO              TEST FOR READY
     3285   01 00EA7    68000EA9              B        %+2               READY
     3286   01 00EA8    68000EA6              B        %-2               BUSY
     3287   01 00EA9    32E01694              LW,R14   =X'EFFFC000'      MASK
     3288   01 00EAA    6AF0106F              BAL,R15  :TIO              TEST FOR ERROR
     3289   01 00EAB    E8000EF9              B        *T32RTN           EXIT
     3290   01 00EAC    E8000EF9              B        *T32RTN           ERROR-EXIT
     3291                            *  TST3,2,4  READ IMMEDIATE
     3292   01 00EAD    22000781     TST324   LI,R0    DA(T3IOCD5)
     3293   01 00EAE    6AF0100F              BAL,R15  :IOEXEC           READ IMMEDIATE
     3294   01 00EAF    22E0C001 A            LI,R14   X'C001'           MASK
     3295   01 00EB0    6AF0106F              BAL,R15  :TIO              TEST FOR READY
     3296   01 00EB1    68000EB3              B        %+2               READY
     3297   01 00EB2    68000EB0              B        %-2               BUSY
     3298   01 00EB3    32E01694              LW,R14   =X'EFFFC000'      MASK
     3299   01 00EB4    6AF0106F              BAL,R15  :TIO              TEST FOR ERROR
     3300   01 00EB5    E8000EF9              B        *T32RTN           EXIT
     3301   01 00EB6    E8000EF9              B        *T32RTN           ERROR-EXIT
     3302                            * TST3,2,5  READ (IGNORING LEADER) AND VERIFY
     3303   01 00EB7    22000780     TST325   LI,R0    DA(T3IOCD4)
     3304   01 00EB8    6AF0100F              BAL,R15  :IOEXEC           READ IGNORING LEADER
     3305   01 00EB9    22E0C001 A            LI,R14   X'C001'           MASK
     3306   01 00EBA    6AF0106F              BAL,R15  :TIO              TEST FOR READY
     3307   01 00EBB    68000EBD              B        %+2               READY
     3308   01 00EBC    68000EBA              B        %-2               BUSY
     3309   01 00EBD    32E01694              LW,R14   =X'EFFFC000'      MASK
     3310   01 00EBE    6AF0106F              BAL,R15  :TIO              TEST FOR ERROR
     3311   01 00EBF    68000EC0              B        %+1
     3312   01 00EC0    6AF01192              BAL,R15  :COMPARE          COMPARE
     3313   01 00EC1    E8000EF9              B        *T32RTN           EXIT
     3314   01 00EC2    E8000EF9              B        *T32RTN           COMPARE ERROR-EXIT
     3315                            * TST3,2,6  READ IMMEDIATE AND VERIFY
     3316   01 00EC3    22000781     TST326   LI,R0    DA(T3IOCD5)       READ IMMEDIATE IOCD
     3317   01 00EC4    68000EB8              B        TST325+1          GO TO EXECUTE AND VERIFY OF TST3,2,5
     3318                            * GENERATE STANDARD TEST TAPE PATTERN
     3319   01 00EC5    35F00EFA     T32STPG  STW,R15  T32RTN1           SAVE RETURN ADDRESS
     3320   01 00EC6    22000000 A            LI,R0    0
     3321   01 00EC7    22100001 A            LI,R1    1
     3322   01 00EC8    22200002 A            LI,R2    2
     3323   01 00EC9    22300003 A            LI,R3    3
     3324   01 00ECA    224FFE70 A            LI,R4    -400
     3325   01 00ECB    35081415              STW,R0   TSTBFA+400,R4
     3326   01 00ECC    65400ECB              BIR,R4   %-1
     3327   01 00ECD    22400001 A            LI,R4    1
     3328   01 00ECE    22500000 A            LI,R5    0
     3329   01 00ECF    226FFF01 A            LI,R6    -255
     3330   01 00ED0    754A1285              STB,R4   TSTBFA,R5
     3331   01 00ED1    33100004 A            MTW,1    R4
     3332   01 00ED2    33100005 A            MTW,1    R5
     3333   01 00ED3    65600ED0              BIR,R6   %-3
     3334   01 00ED4    751612C4              STB,R1   TSTBFA+63,R3
     3335   01 00ED5    2240FF00 A            LI,R4    X'FF00'
     3336   01 00ED6    554212C7              STH,R4   TSTBFA+66,R1
     3337   01 00ED7    226FFF81 A            LI,R6    -127
     3338   01 00ED8    22500000 A            LI,R5    0
     3339   01 00ED9    554A12C8              STH,R4   TSTBFA+67,R5
     3340   01 00EDA    33100005 A            MTW,1    R5
     3341   01 00EDB    65600ED9              BIR,R6   %-2
     3342   01 00EDC    75141307              STB,R1   TSTBFA+130,R2
     3343   01 00EDD    224000AA A            LI,R4    X'AA'
     3344   01 00EDE    7542130A              STB,R4   TSTBFA+133,R1
     3345   01 00EDF    224055AA A            LI,R4    X'55AA'
     3346   01 00EE0    22500001 A            LI,R5    1
     3347   01 00EE1    226FFF81 A            LI,R6    -127
     3348   01 00EE2    554A130A              STH,R4   TSTBFA+133,R5
     3349   01 00EE3    33100005 A            MTW,1    R5
     3350   01 00EE4    65600EE2              BIR,R6   %-2
     3351   01 00EE5    22400055 A            LI,R4    X'55'
     3352   01 00EE6    7540134A              STB,R4   TSTBFA+197
     3353   01 00EE7    7512134A              STB,R1   TSTBFA+197,R1
     3354   01 00EE8    324016A4              LW,R4    =X'90099009'
     3355   01 00EE9    225FFFC0 A            LI,R5    -64
     3356   01 00EEA    354A138D              STW,R4   TSTBFA+264,R5
     3357   01 00EEB    65500EEA              BIR,R5   %-1
     3358   01 00EEC    7510138D              STB,R1   TSTBFA+264
     3359   01 00EED    226FFF80 A            LI,R6    -128
     3360   01 00EEE    32C0169C              LW,R12   =314159265
     3361   01 00EEF    32D0169D              LW,R13   =271828183
     3362   01 00EF0    32E016A5              LW,R14   =1414213562
     3363   01 00EF1    6AF01227              BAL,R15  :RANDOMY
     3364   01 00EF2    68000EF4              B        %+2
     3365   01 00EF3    6AF0122A              BAL,R15  :RANDOMX
     3366   01 00EF4    35EC1410              STW,R14  TSTBFA+395,R6
     3367   01 00EF5    65600EF3              BIR,R6   %-2
     3368   01 00EF6    75E6138F              STB,R14  TSTBFA+266,R3
     3369   01 00EF7    7516140F              STB,R1   TSTBFA+394,R3
     3370   01 00EF8    E8000EFA              B        *T32RTN1          EXIT
     3371                            *
     3372   01 00EF9    00000000 A   T32RTN   DATA     0
     3373   01 00EFA    00000000 A   T32RTN1  DATA     0
     3374                                     BOUND    8
     3375   01 00EFC    01003C10     T3IOCD2  GEN,8,24 1,BA(T32BFR)
     3376   01 00EFD    00000014 A            GEN,8,24 0,20
     3377   01 00EFE    01004A14     T3IOCD3  GEN,8,24 1,BA(TSTBFA)
     3378   01 00EFF    00000000 A            GEN,8,24 0,0
     3379   01 00F00    0200505C     T3IOCD4  GEN,8,24 2,BA(TSTBFB)
     3380   01 00F01    00000000 A            GEN,8,24 0,0
     3381   01 00F02    8200505C     T3IOCD5  GEN,8,24 X'82',BA(TSTBFB)
     3382   01 00F03    00000000 A            GEN,8,24 0,0
     3383   01 00F04    00000000 A   T32BFR   DATA     0,0,0,0,0
            01 00F05    00000000 A
            01 00F06    00000000 A
            01 00F07    00000000 A
            01 00F08    00000000 A
     3384                            *
     3385                            *** TST3,3 MECHANICAL PRINT CHECK TEST
     3386                            *
     3387                            *  THE TST3,3 UTILITY TESTS PRINTS A WORST CASE PATTERN TO CHECK
     3388                            *  MECHANICAL ALIGNMENTS.
     3389                            *
     3390   01 00F09    35F00F1A     TST33    STW,15   T33RTN            SAVE EXIT
     3391   01 00F0A    CF800344              HIO,8    *:DEVADDR         INITIAL HALT
     3392   01 00F0B    228FFFF6 A            LI,8     -10               MAJOR INDEX
     3393   01 00F0C    220056A4              LI,0     BA(T33P1)         PATTERN BYTE ADR
     3394   01 00F0D    35000F1E              STW,0    T33IOCD2          SAVE ADR
     3395   01 00F0E    227FFFFC A            LI,7     -4                MINOR INDEX
     3396   01 00F0F    2200078E     TST33A   LI,0     DA(T33IOCD1)
     3397   01 00F10    6AF0100F              BAL,15   :IOEXEC           NL, PRINT ONE LINE
     3398   01 00F11    22E0C001 A            LI,14    X'C001'           MASK
     3399   01 00F12    6AF0106F              BAL,15   :TIO              TEST FOR READY
     3400   01 00F13    68000F15              B        %+2               READY
     3401   01 00F14    68000F12              B        %-2               BUSY
     3402   01 00F15    65700F0F              BIR,7    TST33A            LOOP (MINOR)
     3403   01 00F16    32000F1E              LW,0     T33IOCD2
     3404   01 00F17    20000050 A            AI,0     80                UPDATE PATTERN ADR
     3405   01 00F18    65800F0D              BIR,8    TST33A-2          LOOP (MAJOR)
     3406   01 00F19    E8000F1A              B        *T33RTN
     3407                            *
     3408   01 00F1A    00000000 A   T33RTN   DATA     0
     3409                            *
     3410                                     BOUND    8
     3411   01 00F1C    05003933     T33IOCD1 GEN,8,24 X'05',BA(T3BFR)-1    NL
     3412   01 00F1D    80000001 A            GEN,8,24 X'80',1           DATA CHAIN
     3413   01 00F1E    00000000 A   T33IOCD2 DATA     0
     3414   01 00F1F    00000050 A            GEN,8,24 0,80
     3415                            *
     3416                            *
     3417                            *
     3418                            *** DATA DIRECTIVE ACCEPTOR ***
     3419                            *
     3420                            * THE DATA DIRECTIVE ROUTINE ACCEPTS THE DATA INFORMATION USED IN THE
     3421                            * UTILITY PROGRAMS
     3422                            *
     3423   01 00F20    22400001 A   DATADR   LI,R4    1
     3424   01 00F21    32500201              LW,R5    :P1               PARAMETER P1
     3425   01 00F22    69300F27              BCS,3    DATADRB           P1>0
     3426   01 00F23    22400003 A   DATADRA  LI,R4    3
     3427   01 00F24    32500203              LW,R5    :P3               PARAMETER P3
     3428   01 00F25    69300F44              BCS,3    PERROR            ERROR(P3 SPECIFIED)
     3429   01 00F26    68000F31              B        DATADRC
     3430   01 00F27    21500001 A   DATADRB  CI,R5    1
     3431   01 00F28    68300F31              BCR,3    DATADRC           P1=1
     3432   01 00F29    21500002 A            CI,R5    2
     3433   01 00F2A    68300F23              BCR,3    DATADRA           P1=2
     3434   01 00F2B    21500004 A            CI,R5    4
     3435   01 00F2C    69300F44              BCS,3    PERROR            ERROR (P1 INVALID)
     3436   01 00F2D    22400002 A            LI,R4    2
     3437   01 00F2E    32500202              LW,R5    :P2               PARAMETER P2
     3438   01 00F2F    69300F44              BCS,3    PERROR            ERROR (P2 SPECIFIED)
     3439   01 00F30    68000F23              B        DATADRA
     3440   01 00F31    02200030 A   DATADRC  LCI      3
     3441   01 00F32    2A400201              LM,R4    :P1
     3442   01 00F33    2B400F36              STM,R4   DATAP1            SAVE PARAMETERS
     3443   01 00F34    E8000214              B        *:MONITOR         EXIT TO MONITOR
     3444                            *
     3445                                     BOUND    8
     3446   01 00F36    00000000 A   DATAP1   DATA     0
     3447   01 00F37    00000000 A   DATAP2   DATA     0
     3448   01 00F38    00000000 A   DATAP3   DATA     0
     3449                            *
     3450                            *
     3451                            *** LEN DIRECTIVE HANDLER ***
     3452                            *
     3453                            * THE LEN DIRECTIVE ROUTINE ACCEPTS THE LEN DIRECTIVE, CHECKS FOR
     3454                            * 0<PARAMETER 1<=1600
     3455                            *
     3456   01 00F39    22400001 A   LENDR    LI,R4    1
     3457   01 00F3A    32500201              LW,R5    :P1               PARAMETER P1
     3458   01 00F3B    68300F44              BCR,3    PERROR            ERROR (P1=0)
     3459   01 00F3C    21500640 A            CI,R5    1600              MAX BYTE COUNT
     3460   01 00F3D    69200F44              BCS,2    PERROR            ERROR (BYTE COUNT >MAX ALLOWABLE)
     3461   01 00F3E    35500F40              STW,R5   LENGTH
     3462   01 00F3F    E8000214              B        *:MONITOR         EXIT TO MONITOR
     3463                            *
     3464   01 00F40    00000014 A   LENGTH   DATA     20
     3465                            *
     3466                            *
     3467                            ***  RSET DIRECTIVE ACCEPTOR ***
     3468                            *
     3469                            *  THE RSET DIRECTIVE ROUTINE ACCEPTS THE RSET DIRECTIVE AND INVOKES
     3470                            *  AN IO RESET OPERATION WHEN A WATCHDOG TIMER TRAP OCCURS.
     3471                            *
     3472   01 00F41    33100F43     RSETDR   MTW,1    RSETFLAG          SET FLAG
     3473   01 00F42    E8000214              B        *:MONITOR         EXIT TO MONITOR
     3474                            *
     3475   01 00F43    00000000 A   RSETFLAG DATA     0                 IO RESET FLAG (HIO=0, IO RESET >0)
     3476                            *
     3477                            *
     3478                            ***  INVALID PARAMETER REPORTING ***
     3479                            *
     3480                            * THE PARAMETER REPORTING ROUTINE REPORTS AN INVALID PARAMETER ENTRY
     3481                            * EITHER BY MSG PRINTOUT OR BY REGISTER 0 DISPLAY
     3482                            *
     3483   01 00F44    33000345     PERROR   MTW,0    IODEV             TEST FOR IO DEVICE
     3484   01 00F45    68300F4D              BCR,3    PERRORA           NO IO DEVICE
     3485   01 00F46    32C00004 A            LW,R12   R4                INDEX SPECIFYING PARAMETER NUMBER
     3486   01 00F47    EAF00217              BAL,R15  *:DECC      CONVERT TO DECIMAL IN EBCDIC
     3487   01 00F48    22400003 A            LI,R4    3
     3488   01 00F49    75F80F52              STB,R15  PERRORM+2,R4    ENTER INTO MSG.
     3489   01 00F4A    EAF00F6A              BAL,R15  *:PRINT     PRINT
     3490   01 00F4B    00000F50              DATA     PERRORM     'PARAMETER X INVALID'
     3491   01 00F4C    E8000214              B        *:MONITOR         EXIT TO MONITOR
     3492   01 00F4D    32000004 A   PERRORA  LW,R0    R4
     3493   01 00F4E    480016A6              EOR,R0   =X'C0000000'      FORM ERROR MSG
     3494   01 00F4F    68000FAB              B        INPTDR+1          GO TO DIRECTIVE INPUT VIA REGISTER 0
     3495                            *
     3496   01 00F50    13D7C1D9 A   PERRORM  TEXTC    'PARAMETER X INVALID'
            01 00F51    C1D4C5E3 A
            01 00F52    C5D940E7 A
            01 00F53    40C9D5E5 A
            01 00F54    C1D3C9C4 A
     3497                            *
     3498                            *
     3499                            ***  ERROR MESSAGE HANDLER ***
     3500                            *
     3501                            * THE ERROR REPORTING ROUTINE REPORTS AN ERROR NUMBER,LOCATION MSG
     3502                            * EITHER BY MSG PRINTOUT OR BY REGISTER 0 DISPLAY
     3503                            *
     3504   01 00F55    33000345     ERRMSG   MTW,0    IODEV             TEST FOR IO DEVICE
     3505   01 00F56    E930021B              BCS,3    *:ERROR           MONITOR ERROR NUM, LOC PRINT
     3506   01 00F57    02200040 A            LCI      4
     3507   01 00F58    2BC00F66              STM,R12  ERRMSG1           SAVE REGISTERS
     3508   01 00F59    B2C0000F A            LW,R12   *R15
     3509   01 00F5A    EAF00217              BAL,R15  *:DECC            CONVERT ERROR NUMBER TO DECIMAL
     3510   01 00F5B    22D00004 A            LI,R13   4
     3511   01 00F5C    25F00004 A            SLS,R15  4                 SPRIP EBCDIC
     3512   01 00F5D    25E00104 A            SLD,R14  4
     3513   01 00F5E    64D00F5C              BDR,R13  %-2
     3514   01 00F5F    55E00000 A            STH,R14  R0
     3515   01 00F60    25000070 A            SLS,R0   -16               ADJUST ERROR NUMBER
     3516   01 00F61    490016A6              OR,R0    =X'C0000000'      FORMAT REG 0 ERROR DISPLAY
     3517   01 00F62    02200040 A            LCI      4
     3518   01 00F63    2AC00F66              LM,R12   ERRMSG1           RESTORE REGISTERS
     3519   01 00F64    3310000F A            MTW,1    R15               RETURN ADDRESS + 1
     3520   01 00F65    E800000F A            B        *R15              EXIT
     3521                            *
     3522   01 00F66    00000000 A   ERRMSG1  DATA     0,0,0,0
            01 00F67    00000000 A
            01 00F68    00000000 A
            01 00F69    00000000 A
     3523                            *
     3524                            *
     3525                            ***  PRINT MESSAGE HANDLER ***
     3526                            *
     3527                            * THE PRINT ROUTINE BIPASSES PRINTOUT WHEN REGISTER OPERATION EXISTS
     3528                            *
     3529   01 00F6A    00000F6B     :PRINT   DATA     %+1
     3530   01 00F6B    33000345              MTW,0    IODEV             TEST FOR IO DEVICE
     3531   01 00F6C    E930021C              BCS,3    *:MLT+28          MONITOR PRINT
     3532   01 00F6D    3310000F A            MTW,1    R15               RETURN ADDRESS +1
     3533   01 00F6E    E800000F A            B        *R15              NO PRINT-RETURN
     3534                            *
     3535                            *
     3536                            *** CONTROL PANEL INTERRUPT ***
     3537                            *
     3538                            * THE CONTROL PANEL ROUTINE ACCEPTS THE PCP INTERRUPT AND RETURNS
     3539                            * CONTROL TO THE DIRECTIVE INPUT VIA REG 0 ROUTINE (RECOVERY WITHIN
     3540                            * REGISTER OPERATION)
     3541                            *
     3542   01 00F6F    33000D31     CPINTER  MTW,0    TST2XF            TEST EXCHANGE FLAG
     3543   01 00F70    68300F74              BCR,3    CPINTA            FLAG RESET
     3544   01 00F71    22400000 A            LI,R4    0
     3545   01 00F72    35400345              STW,R4   IODEV             CLEAR IO DEVICE FLAG
     3546   01 00F73    35400D31              STW,R4   TST2XF            RESET EXCHANGE FLAG
     3547   01 00F74    22400FAA     CPINTA   LI,R4    INPTDR            INPUT DIRECTIVE ADDRESS
     3548   01 00F75    35400F78              STW,R4   CPINT
     3549   01 00F76    6AF01184              BAL,R15   :DELAYD  DISARM COUNTER INTERRUPTS                A02
     3550   01 00F77    0E300F78              LPSD,3   CPINT             GO TO DIRECTIVE INPUT
     3551                            *
     3552                                     BOUND    8
     3553   01 00F78    00000000 A   CPINT    DATA     0,0
            01 00F79    00000000 A
     3554   01 00F7A    00000F6F     CPINT1   DATA     CPINTER,0
            01 00F7B    00000000 A
     3555   01 00F7C    0F000F78     CPINT2   XPSD,0   CPINT
     3556                            *
     3557                            *
     3558                            ***  SPURIOUS INTERRUPT HANDLER ***
     3559                            *
     3560                            * THE SPURIOUS INTERRUPT ROUTINE REPORTS ALL SPURIOUS INTERRUPTS
     3561                            * (BOTH IO AND SYSTEM INTERRUPTS)
     3562                            *
     3563   01 00F7D    6AF00F55     SPURINT  BAL,R15  ERRMSG            REPORT ERROR
     3564   01 00F7E    00000007 A            DATA     007               #007
     3565   01 00F7F    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     3566   01 00F80    2E000000 A            WAIT
     3567   01 00F81    0E000F84              LPSD,0   INTXPSD1          RETURN
     3568   01 00F82    0E000F84              LPSD,0   INTXPSD1          RETURN
     3569                            *
     3570   01 00F83    0F000F84     INTXPSD  XPSD,0   INTXPSD1
     3571                                     BOUND    8
     3572   01 00F84    00000000 A   INTXPSD1 DATA     0,0
            01 00F85    00000000 A
     3573   01 00F86    00000F7D              DATA     SPURINT,0
            01 00F87    00000000 A
     3574                            *
     3575                            *
     3576                            *** WATCHDOG TIMER TRAP HANDLER ***
     3577                            *
     3578                            * THE WATCHDOG TIMER ROUTINE ISSUES AN IO RESET AND REPORTS THE
     3579                            * WATCHDOG TIMER TRAP CONDITION
     3580                            *
     3581   01 00F88    33000F43     WDTOUT   MTW,0    RSETFLAG          TEST FOR IO RESET INVOKE
     3582   01 00F89    68300F8D              BCR,3    WDTOUTA           NO IO RESET
     3583   01 00F8A    6D000040 A            WD,0     X'40'             IO RESET
     3584   01 00F8B    6D000040 A            WD,0     X'40'
     3585   01 00F8C    68000F8E              B        %+2
     3586   01 00F8D    CF200344     WDTOUTA  HIO,R2   *:DEVADDR         ISSUE HIO
     3587   01 00F8E    32100F98              LW,R1    WDTOUT1           TRAP ADDRESS TO R1
     3588   01 00F8F    4B1016A7              AND,R1   =X'FFFF'          MASK
     3589   01 00F90    6AF00F55              BAL,R15  ERRMSG            REPORT ERROR
     3590   01 00F91    00000005 A            DATA     005               #005
     3591   01 00F92    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     3592   01 00F93    2E000000 A            WAIT
     3593   01 00F94    0E000F98              LPSD,0   WDTOUT1           EXIT TO TRAPPED INSTRUCTION
     3594   01 00F95    0E000F98              LPSD,0   WDTOUT1           EXIT TO TRAPPED INSTRUCTION
     3595                            *
     3596   01 00F96    0F000F98     WDTXPSD  XPSD,0   WDTOUT1
     3597                                     BOUND    8
     3598   01 00F98    00000000 A   WDTOUT1  DATA     0,0
            01 00F99    00000000 A
     3599   01 00F9A    00000F88              DATA     WDTOUT,0
            01 00F9B    00000000 A
     3600                            *
     3601                            *
     3602                            ***  TRAP HANDLER ***
     3603                            *
     3604                            * THE TRAP ROUTINE REPORTS THE UNEXPECTED TRAP
     3605                            *
     3606   01 00F9C    32100FA6     TRAP     LW,R1    TRPXPSD1          TRAP ADDRESS TO REG 1
     3607   01 00F9D    4B1016A7              AND,R1   =X'FFFF'          MASK
     3608   01 00F9E    6AF00F55              BAL,R15  ERRMSG            REPORT ERROR
     3609   01 00F9F    00000006 A            DATA     006               #006
     3610   01 00FA0    EAF0021D              BAL,R15  *:SENSE           TEST SENSE SWITCHES 1,3
     3611   01 00FA1    2E000000 A            WAIT
     3612   01 00FA2    0E000FA6              LPSD,0   TRPXPSD1          RETURN
     3613   01 00FA3    0E000FA6              LPSD,0   TRPXPSD1          RETURN
     3614                            *
     3615   01 00FA4    0F000FA6     TRAPXPSD XPSD,0   TRPXPSD1
     3616                                     BOUND    8
     3617   01 00FA6    00000000 A   TRPXPSD1 DATA     0,0
            01 00FA7    00000000 A
     3618   01 00FA8    00000F9C              DATA     TRAP,0
            01 00FA9    00000000 A
     3619                            *
     3620                            *
     3621                            *** DIRECTIVE INPUT VIA REGISTER 0 ***
     3622                            *
     3623                            * THE DIRECTIVE INPUT VIA REG 0 ROUTINE ACCEPTS AND CHECKS TST0 TST1 AND
     3624                            * TST2 DIRECTIVES DURING REGISTER OPERATION
     3625                            *    (A) BYTE 0 = TST NUMBER
     3626                            *    (B) BYTE 2 = BEGINNING SUBTEST NUMBER
     3627                            *    (C) BYTE 3 = ENDING SUBTEST NUMBER
     3628                            *
     3629   01 00FAA    320016A8     INPTDR   LW,R0    =X'80000001'      'INPUT DIRECTIVE'
     3630   01 00FAB    2E000000 A            WAIT
     3631   01 00FAC    72400000 A            LB,R4    R0
     3632   01 00FAD    21400002 A            CI,R4    2
     3633   01 00FAE    68300FB0              BCR,3    INPTA             TST0
     3634   01 00FAF    69200FBB              BCS,2    INPTERR
     3635                            *  SAVE PARAMETERS
     3636   01 00FB0    22400002 A   INPTA    LI,R4    2
     3637   01 00FB1    72480000 A            LB,R4    R0,R4
     3638   01 00FB2    35400201              STW,R4   :P1               PARAMETER P1
     3639   01 00FB3    22400003 A            LI,R4    3
     3640   01 00FB4    72480000 A            LB,R4    R0,R4
     3641   01 00FB5    35400202              STW,R4   :P2               PARAMETER P2
     3642                            *  GO TO SPECIFIED DIRECTIVE ACCEPTOR
     3643   01 00FB6    72400000 A            LB,R4    R0
     3644   01 00FB7    68080FB8              B        %+1,R4
     3645   01 00FB8    680004DD              B        TST0DR
     3646   01 00FB9    680004F0              B        TST1DR
     3647   01 00FBA    68000CC7              B        TST2DR
     3648                            *  TEST PARAMETER ERROR
     3649   01 00FBB    320016A9     INPTERR  LW,R0    =X'C0000004'      'INVALID PARAMETER'
     3650   01 00FBC    68000FAB              B        INPTDR+1          GO TO WAIT
     3651                            *
     3652                            *
     3653                            ***  IO INTERRUPT HANDLER ***
     3654                            *
     3655                            * THE IO INTERRUPT ROUTINE ACCEPTS THE IO INTERRUPT, ISSUES AN AIO, AND
     3656                            * CHECKS THE COMMON RETURNED AIO STATUS LINES.
     3657                            *
     3658   01 00FBD    35F00FFD     IOINTER  STW,R15   SAVE15    SAVE R15 CONTENTS.
     3659   01 00FBE    6E200000 A            AIO,R2    0         ISSUE AIO
     3660   01 00FBF    74000FFC              STCF      T13CC     SAVE AIO CONDITION CODES
     3661   01 00FC0    35200FFA              STW,R2    AIOSTAT   SAVE AIO STATUS
     3662   01 00FC1    22F00000 A            LI,R15    0
     3663   01 00FC2    35F00FF9              STW,R15   FLAGBIT    CLEAR FLAGBIT CELL.
     3664   01 00FC3    22400001 A            LI,R4     1
     3665   01 00FC4    52480FFA              LH,R4     AIOSTAT,R4   FETCH DEVICE ADDRESS FROM AIO
     3666   01 00FC5    31400344              CW,R4     :DEVADDR     IS IT THE RIGHT ADDRESS
     3667   01 00FC6    68300FCA              BE        IOCONT       YES. BRANCH TO CONTINUE.
     3668                            * ERR 12   (DEVICE ADDRESS NOT THE RIGHT ONE)
     3669   01 00FC7    6AF00F55              BAL,R15   ERRMSG
     3670   01 00FC8    0000000C A            DATA      12
     3671   01 00FC9    68000FEF              B         IOSENSE      BRANCH TO SENSE ROUTINE
     3672   01 00FCA    2240000D A   IOCONT   LI,R4     13
     3673   01 00FCB    31400538              CW,R4     TST1PRES     IS THIS SUBTEST 13
     3674   01 00FCC    69300FD0              BNE       IOAN         BRANCH IF NOT
     3675   01 00FCD    CD500344              TIO,R5    *:DEVADDR   ISSUE TIO TO DEVADDR
     3676   01 00FCE    69C00FCD              BCS,12    %-1         NOT READY YET
     3677   01 00FCF    35500FFB              STW,R5   TIOSTAT       SAVE TIO STATUS
     3678   01 00FD0    72400FFC     IOAN     LB,R4     T13CC       FETCH AIO CONDITION CODES
     3679   01 00FD1    2540007A A            SLS,R4    -6          SHIFT TO POSITION
     3680   01 00FD2    21400003 A            CI,R4    3
     3681   01 00FD3    69300FD7              BNE      IOA               CC1,2 NOT 11
     3682                            *ERR 008    (CC1,2=11)
     3683   01 00FD4    6AF00F55              BAL,R15  ERRMSG
     3684   01 00FD5    00000008 A            DATA     008               #008
     3685   01 00FD6    68000FEF              B       IOSENSE      BRANCH TO SENSE ROUTINE
     3686                            *
     3687   01 00FD7    21400002 A   IOA      CI,R4    2
     3688   01 00FD8    69300FDC              BNE      IOB               CC1,2 NOT 10
     3689                            *ERR 009    (CC1,2=10)
     3690   01 00FD9    6AF00F55              BAL,R15  ERRMSG
     3691   01 00FDA    00000009 A            DATA     009               #009
     3692   01 00FDB    68000FEF              B        IOSENSE      BRANCH TO SENSE ROUTINE.
     3693                            *
     3694   01 00FDC    21400001 A   IOB      CI,R4    1    IS CC1,2=00
     3695   01 00FDD    69300FE4              BNE      IOD1      BRANCH IF CC1,2=00
     3696   01 00FDE    32400538              LW,R4    TST1PRES    FETCH CURRENT SUBTEST NUMBER
     3697   01 00FDF    2140000D A            CI,R4     13          IS THIS SUBTEST 13
     3698   01 00FE0    68300FEA              BE       IOC           BRANCH IF THIS IS.
     3699                            *  ERR 10   (CC1,2=01)
     3700   01 00FE1    6AF00F55              BAL,R15    ERRMSG
     3701   01 00FE2    0000000A A            DATA       10
     3702   01 00FE3    68000FEF              B          IOSENSE     BRANCH TO SENSE ROUTINE
     3703   01 00FE4    32400538     IOD1     LW,R4       TST1PRES        FETCH SURRENT SUBTEST NO.
     3704   01 00FE5    2140000D A            CI,R4       13        IS THIS TEST 13
     3705   01 00FE6    69300FEA               BNE        IOC             BRANCH IF NOT EQUAL
     3706                            *  ERR 1304  (EXPECTED CONDITION CODE NOT SET TO XPECTED VALUE)
     3707                            *                    (AFTER AN AIO)-----XPECTED CC=01
     3708   01 00FE7    6AF00F55               BAL,R15     ERRMSG
     3709   01 00FE8    00000518 A             DATA        1304
     3710   01 00FE9    68000FEF               B           IOSENSE      BRANCH TO SENSE ROUTINE
     3711   01 00FEA    52400FFA     IOC      LH,R4       AIOSTAT     FETCH DEVICE STATUS - AIO
     3712   01 00FEB    4B4016AA              AND,R4      L(X'FF00')
     3713   01 00FEC    68300FF6              BEZ         IOE        BRANCH IF DEVICE STATUS OK
     3714                            * ERR  11  (STATUS ERROR)
     3715   01 00FED    6AF00F55              BAL,R15   ERRMSG
     3716   01 00FEE    0000000B A            DATA    11
     3717   01 00FEF    EAF0021D     IOSENSE  BAL,R15     *:SENSE     BRANCH TO SENSE ROUTINE
     3718   01 00FF0    2E000000 A            WAIT
     3719   01 00FF1    68000FF2              B           %+1
     3720   01 00FF2    22F0000D A            LI,R15      13
     3721   01 00FF3    31F00538              CW,R15     TST1PRES    IS THIS SUBTEST 13
     3722   01 00FF4    69300FF7              BNE        IOE+1        BRANCH IF NOT
     3723   01 00FF5    33100FF9               MTW,1    FLAGBIT     SET FLAG BIT FOR ERROR INDICATOR
     3724   01 00FF6    33101009     IOE      MTW,1  :INTRECF       INCREMENT INTERRUPT REC'D FLAG
     3725   01 00FF7    32F00FFD              LW,R15     SAVE15      RESTORE R15
     3726   01 00FF8    0E200FFE               LPSD,2     IOXPSD1
     3727                            *
     3728   01 00FF9    00000000 A   FLAGBIT  DATA     0
     3729   01 00FFA    00000000 A   AIOSTAT  DATA     0
     3730   01 00FFB    00000000 A   TIOSTAT  DATA   0
     3731   01 00FFC    00000000 A   T13CC    DATA     0
     3732   01 00FFD    00000000 A   SAVE15   DATA    0
     3733                                     BOUND    8
     3734   01 00FFE    00000000 A   IOXPSD1  DATA     0,0
            01 00FFF    00000000 A
     3735   01 01000    00000FBD              DATA     IOINTER,0
            01 01001    00000000 A
     3736   01 01002    0F000FFE     IOXPSD   XPSD,0   IOXPSD1
     3737                            *
     3738                            *
     3739                            *** ARM/ENABLE IO INTERRUPT ***
     3740                            *
     3741                            * THE ARM/ENABLE ROUTINE ARMS AND ENABLES THE IO INTERRUPT AND RESETS
     3742                            * THE INTERRUPT RECEIVED FLAG.
     3743                            *
     3744   01 01003    22400000 A   IOAE     LI,R4    0
     3745   01 01004    35401009              STW,R4   :INTRECF          CLEAR INTER REC'D FLAG
     3746   01 01005    22400020 A            LI,R4    X'20'
     3747   01 01006    6D401100 A            WD,R4    X'1100'           DISARM IO INTERRUPT
     3748   01 01007    6D401200 A            WD,R4    X'1200'           ARM AND ENABLE IO INTERRUPT
     3749   01 01008    E800000F A            B        *R15              EXIT
     3750                            *
     3751   01 01009    00000000 A   :INTRECF DATA     0
     3752                            *
     3753                            *
     3754                            *** DISARM IO INTERRUPT ***
     3755                            *
     3756                            * THE DISARM ROUTINE DISARMS THE IO INTERRUPT AND RESETS THE
     3757                            * INTERRUPT RECEIVED FLAG.
     3758                            *
     3759   01 0100A    22400020 A   IOD      LI,R4    X'20'
     3760   01 0100B    6D401100 A            WD,R4    X'1100'           DISARM IO INTERRUPT
     3761   01 0100C    22400000 A            LI,R4    0
     3762   01 0100D    35401009              STW,R4   :INTRECF          RESET INTERRUPT REC'D FLAG
     3763   01 0100E    E800000F A            B        *R15              EXIT
     3764                            *
     3765                            *
     3766                            *               *** IO EXECUTE ***
     3767                            *
     3768                            * THE IO EXECUTE SUBROUTINE ISSUES A TIO, SIO TO SPECIFIED DEVICE.
     3769                            *  THE SUBROUTINE LOOPS UPON DETECTION OF STATUS OR CC ERROR.
     3770                            *
     3771                            *       INPUT PARAMETERS:
     3772                            *
     3773                            *         REG 0   -DA(IOCD)
     3774                            *         REG 15  -RETURN ADDRESS
     3775                            *         :DEVADDR-DEVICE ADDRESS
     3776                            *
     3777                            *       REGISTERS DISTURBED:
     3778                            *
     3779                            *         (NONE)
     3780                            *
     3781                            *       OUTPUT PARAMETERS:
     3782                            *
     3783                            *         REG 12-SIO COMMAND ADDRESS
     3784                            *         REG 13-SIO DEVICE STATUS, BYTE COUNT
     3785                            *
     3786                            *       WAIT CONDITION-PROGRAM ENTERS WAIT STATE (1) AFTER UNSUCCESSFUL
     3787                            *                      HIO, IO RESET, TIO SEQUENCE OR (2) IF DEVICE
     3788                            *                      MANUAL CONDITION IS DETECTED.
     3789                            *
     3790   01 0100F    35401034     :IOEXEC  STW,R4   :IOSAVE           SAVE REGISTERS 4,11,14,15
     3791   01 01010    35B01035              STW,R11  :IOSAVE+1
     3792   01 01011    15E01036              STD,R14  :IOSAVE+2
     3793   01 01012    32E016AB     :IOEXEC1 LW,R14   =X'E600C000'      STATUS MASK
     3794   01 01013    6AF0106F              BAL,R15  :TIO              ISSUE TIO
     3795   01 01014    68001016              B        %+2
     3796   01 01015    6800101F              B        :IOERR1           TIO STATUS ERROR
     3797   01 01016    4BD016AC              AND,R13  =X'10000000'      MASK DEV STATUS FOR AUTO TEST
     3798   01 01017    6830102E              BCR,3    :IOERR2           DEVICE MANUAL ERROR
     3799   01 01018    6AF01064              BAL,R15  :SIO              ISSUE SIO
     3800   01 01019    6800101B              B        %+2
     3801   01 0101A    68001012              B        :IOEXEC1          SIO STATUS ERROR-LOOP TO ISSUE TIO
     3802   01 0101B    32401034              LW,R4    :IOSAVE           RESTORE REGISTERS 4,11,14,15
     3803   01 0101C    32B01035              LW,R11   :IOSAVE+1
     3804   01 0101D    12E01036              LD,R14   :IOSAVE+2
     3805   01 0101E    E800000F A            B        *R15              EXIT
     3806                            *                                   TIO STATUS ERROR
     3807   01 0101F    22E0C000 A   :IOERR1  LI,R14   X'C000'           STATUS MASK
     3808   01 01020    6AF0107A              BAL,R15  :HIO              ISSUE HIO
     3809   01 01021    68001022              B        %+1
     3810   01 01022    32E016AB              LW,R14   =X'E600C000'      STATUS MASK
     3811   01 01023    6AF0106F              BAL,R15  :TIO              ISSUE TIO
     3812   01 01024    68001012              B        :IOEXEC1          NO ERROR
     3813   01 01025    6D000042 A            WD,0     X'42'             IO RESET
     3814   01 01026    6D000042 A            WD,0     X'42'
     3815   01 01027    32E016AB              LW,R14   =X'E600C000'      STATUS MASK
     3816   01 01028    6AF0106F              BAL,R15  :TIO              ISSUE TIO
     3817   01 01029    68001012              B        :IOEXEC1          LOOP TO ISSUE TIO
     3818                            *                                   ENTER WAIT STATE
     3819   01 0102A    EAF00F6A     :IOERR1A BAL,R15  *:PRINT           'CLEAR WAIT TO CONTINUE'
     3820   01 0102B    00001038              DATA     :IOERM1
     3821   01 0102C    2E000000 A            WAIT
     3822   01 0102D    68001012              B        :IOEXEC1          LOOP TO ISSUE TIO
     3823                            *                                   DEVICE MANUAL ERROR
     3824   01 0102E    32C00344     :IOERR2  LW,R12   :DEVADDR          DEVICE ADDRESS
     3825   01 0102F    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     3826   01 01030    35F01040              STW,R15  :IOERM2+2     STORE INTO MSG
     3827   01 01031    EAF00F6A              BAL,R15  *:PRINT           PRINT ERROR MSG
     3828   01 01032    0000103E              DATA     :IOERM2
     3829   01 01033    6800102A              B        :IOERR1A          GO TO WAIT
     3830                            *
     3831                                     BOUND    8
     3832   01 01034                 :IOSAVE  RES      4                 REGISTERS 4,11,14,15
     3833   01 01038    16C3D3C5 A   :IOERM1  TEXTC    'CLEAR WAIT TO CONTINUE'
            01 01039    C1D940E6 A
            01 0103A    C1C9E340 A
            01 0103B    E3D640C3 A
            01 0103C    D6D5E3C9 A
            01 0103D    D5E4C540 A
     3834   01 0103E    12404040 A   :IOERM2  TEXTC    '   DEV XXXX MANUAL'
            01 0103F    C4C5E540 A
            01 01040    E7E7E7E7 A
            01 01041    40D4C1D5 A
            01 01042    E4C1D340 A
     3835                            *
     3836                            *        *** ISSUE HIO, THEN DELAY ***
     3837                            *
     3838   01 01043    00000000 A            DATA     0
     3839   01 01044    35F01043     HIODELY  STW,15   %-1
     3840   01 01045    CF000344              HIO,0    *:DEVADDR         HIO
     3841   01 01046    22E0006E A            LI,14    110
     3842   01 01047    6AF01173              BAL,15   :DELAY            DELAY 110 MSEC
     3843   01 01048    68001049              B        %+1
     3844   01 01049    E8001043              B        *HIODELY-1        EXIT
     3845                            *
     3846                            *        *** PUNCH 80 BYTES TRAILER ***
     3847                            *
     3848   01 0104A    00000000 A            DATA     0
     3849   01 0104B    35F0104A     TRAILER  STW,15   %-1               SAVE EXIT
     3850   01 0104C    2200082E              LI,0     DA(TRAILERD)
     3851   01 0104D    32E01696              LW,14    =X'EF00C000'      MASK
     3852   01 0104E    6AF01064              BAL,15   :SIO              PUNCH 80 BYTE TRAILER
     3853   01 0104F    68001051              B        TRAILER1          OK
     3854   01 01050    E800104A              B        *TRAILER-1        ERROR EXIT
     3855   01 01051    22E0C001 A   TRAILER1 LI,14    X'C001'
     3856   01 01052    6AF0106F              BAL,15   :TIO              TEST FOR DEV. READY
     3857   01 01053    68001055              B        %+2               READY
     3858   01 01054    68001052              B        %-2               BUSY
     3859   01 01055    32E01694              LW,14    =X'EFFFC000'      MASK
     3860   01 01056    6AF0106F              BAL,15   :TIO              TEST STATUS
     3861   01 01057    68001059              B        %+2               OK
     3862   01 01058    E800104A              B        *TRAILER-1        ERROR EXIT
     3863   01 01059    3310104A              MTW,1    TRAILER-1         L
     3864   01 0105A    E800104A              B        *TRAILER-1        NORMAL EXIT
     3865                            *
     3866                                     BOUND    8
     3867   01 0105C    01002D78 N   TRAILERD GEN,8,24,8,24    1,BA(T111BFA),X'80',20
                        80000014
     3868   01 0105E    01002D78 N            GEN,8,24,8,24    1,BA(T111BFA),X'80',20
                        80000014
     3869   01 01060    01002D78 N            GEN,8,24,8,24    1,BA(T111BFA),X'80',20
                        80000014
     3870   01 01062    01002D78 N            GEN,8,24,8,24    1,BA(T111BFA),0,20
                        00000014
     3871                            *
     3872                            *
     3873                            *                *** ISSUE SIO, TIO, HIO, TDV, AIO ***
     3874                            *
     3875                            * THE ISSUE SUBROUTINE ISSUES AN SIO, TIO, HIO, TDV, OR AIO TO
     3876                            *  SPECIFIED DEVICE.  STATUS MASK IS COMPARED WITH RETURNED DEVICE
     3877                            *   STATUS, CONDITION CODES.  ERROR CONDITIONS ARE PRINTED.
     3878                            *
     3879                            *       INPUT PARAMETERS:
     3880                            *
     3881                            *         REG 0 -DA(IOCD)-FOR SIO ONLY
     3882                            *         REG 14-STATUS MASK
     3883                            *                  BITS  0-15: DEVICE STATUS MASK
     3884                            *                  BITS 16,17: CONDITION CODES 1,2 MASK
     3885                            *                  BITS 18-23: ZEROS
     3886                            *                  BITS 24-31: PRINT INHIBIT (INHIBIT IF <>0)
     3887                            *
     3888                            *                   (NOTE: ERROR CONDITION EXISTS IF
     3889                            *                     A MASK BIT LOGICALLY AND'D WITH
     3890                            *                     A CORRESPONDING DEVICE STATUS OR
     3891                            *                     CC1,2 BIT EQUALS 1)
     3892                            *         REG 15-RETURN ADDRESS
     3893                            *
     3894                            *       REGISTERS DISTURBED:
     3895                            *
     3896                            *         4,11
     3897                            *
     3898                            *       OUTPUT PARAMETERS:
     3899                            *
     3900                            *         NORMAL EXIT-RETURN ADDRESS
     3901                            *         ERROR EXIT -RETURN ADDRESS+1
     3902                            *         REG 12     -COMMAND ADDRESS
     3903                            *         REG 13     -DEVICE STATUS, BYTE COUNT
     3904                            *         :CC12      -RETURNED CONDITION CODES 1,2 (BIT POSITIONS 30,31)
     3905                            *
     3906                            *          ISSUE SIO
     3907                            *
     3908   01 01064    CCC00344     :SIO     SIO,R12  *:DEVADDR         ISSUE SIO
     3909   01 01065    32B0000D A            LW,R11   R13               DEVICE STATUS, BYTE COUNT
     3910   01 01066    22400002 A            LI,R4    2                 INDEX=2
     3911   01 01067    7408000B A            STCF     R11,R4            ENTER COND CODES 1-4 AND FLOAT CTR
     3912   01 01068    22400001 A            LI,R4    1                 INDEX=1
     3913   01 01069    4BB0000E A            AND,R11  R14               (DEV STATUS).(STATUS MASK)
     3914   01 0106A    4BB016AD              AND,R11  =X'FFFFC000'      REMOVE BYTE CNT, CC3,4 AND FLT CTR
     3915   01 0106B    E830000F A            BCR,3    *R15              NO 1-BITS COMPARE-EXIT NORMAL
     3916   01 0106C    22400000 A            LI,R4    0
     3917   01 0106D    354010E9              STW,R4   :TYPE             ISSUE TYPE=0
     3918   01 0106E    6800109B              B        :STATEST          REPORT SIO STATUS ERROR
     3919                            *
     3920                            *          ISSUE TIO
     3921                            *
     3922   01 0106F    CDC00344     :TIO     TIO,R12  *:DEVADDR         ISSUE TIO
     3923   01 01070    32B0000D A            LW,R11   R13               DEVICE STATUS, BYTE COUNT
     3924   01 01071    22400002 A            LI,R4    2                 INDEX=2
     3925   01 01072    7408000B A            STCF     R11,R4            ENTER COND CODES 1-4 AND FLOAT CTR
     3926   01 01073    22400001 A            LI,R4    1                 INDEX=1
     3927   01 01074    4BB0000E A            AND,R11  R14               (DEV STATUS).(STATUS MASK)
     3928   01 01075    4BB016AD              AND,R11  =X'FFFFC000'      REMOVE BYTE CNT, CC3,4 AND FLT CTR
     3929   01 01076    E830000F A            BCR,3    *R15              NO 1-BITS COMPARE-EXIT NORMAL
     3930   01 01077    22400001 A            LI,R4    1
     3931   01 01078    354010E9              STW,R4   :TYPE             ISSUE TYPE=1
     3932   01 01079    6800109B              B        :STATEST          REPORT TIO STATUS ERROR
     3933                            *
     3934                            *          ISSUE HIO
     3935                            *
     3936   01 0107A    CFC00344     :HIO     HIO,R12  *:DEVADDR         ISSUE HIO
     3937   01 0107B    32B0000D A            LW,R11   R13               DEVICE STATUS, BYTE COUNT
     3938   01 0107C    22400002 A            LI,R4    2                 INDEX=2
     3939   01 0107D    7408000B A            STCF     R11,R4            ENTER COND CODES 1-4 AND FLOAT CTR
     3940   01 0107E    22400001 A            LI,R4    1                 INDEX=1
     3941   01 0107F    4BB0000E A            AND,R11  R14               (DEV STATUS).(STATUS MASK)
     3942   01 01080    4BB016AD              AND,R11  =X'FFFFC000'      REMOVE BYTE CNT, CC3,4 AND FLT CTR
     3943   01 01081    E830000F A            BCR,3    *R15              NO 1-BITS COMPARE-EXIT NORMAL
     3944   01 01082    22400002 A            LI,R4    2
     3945   01 01083    354010E9              STW,R4   :TYPE             ISSUE TYPE=2
     3946   01 01084    6800109B              B        :STATEST          REPORT HIO STATUS ERROR
     3947                            *
     3948                            *          ISSUE TDV
     3949                            *
     3950   01 01085    CEC00344     :TDV     TDV,R12  *:DEVADDR         ISSUE TDV
     3951   01 01086    32B0000D A            LW,R11   R13               DEVICE STATUS, BYTE COUNT
     3952   01 01087    22400002 A            LI,R4    2                 INDEX=2
     3953   01 01088    7408000B A            STCF     R11,R4            ENTER COND CODES 1-4 AND FLOAT CTR
     3954   01 01089    22400001 A            LI,R4    1                 INDEX=1
     3955   01 0108A    4BB0000E A            AND,R11  R14               (DEV STATUS).(STATUS MASK)
     3956   01 0108B    4BB016AD              AND,R11  =X'FFFFC000'      REMOVE BYTE CNT, CC3,4 AND FLT CTR
     3957   01 0108C    E830000F A            BCR,3    *R15              NO 1-BITS COMPARE-EXIT NORMAL
     3958   01 0108D    22400003 A            LI,R4    3
     3959   01 0108E    354010E9              STW,R4   :TYPE             ISSUE TYPE=3
     3960   01 0108F    6800109B              B        :STATEST          REPORT TDV STATUS ERROR
     3961                            *
     3962                            *          ISSUE AIO
     3963                            *
     3964   01 01090    6ED00000 A   :AIO     AIO,R13  0                 ISSUE AIO
     3965   01 01091    32B0000D A            LW,R11   R13               DEVICE STATUS, BYTE COUNT
     3966   01 01092    22400002 A            LI,R4    2                 INDEX=2
     3967   01 01093    7408000B A            STCF     R11,R4            ENTER COND CODES 1-4 AND FLOAT CTR
     3968   01 01094    22400001 A            LI,R4    1                 INDEX=1
     3969   01 01095    4BB0000E A            AND,R11  R14               (DEV STATUS).(STATUS MASK)
     3970   01 01096    4BB016AD              AND,R11  =X'FFFFC000'      REMOVE BYTE CNT, CC3,4 AND FLT CTR
     3971   01 01097    E830000F A            BCR,3    *R15              NO 1-BITS COMPARE-EXIT NORMAL
     3972   01 01098    22400004 A            LI,R4    4
     3973   01 01099    354010E9              STW,R4   :TYPE             ISSUE TYPE=4
     3974   01 0109A    6800109B              B        :STATEST          REPORT AIO STATUS ERROR
     3975                            *
     3976                            *                                   PROCESS CC, STATUS ERRORS
     3977   01 0109B    74000004 A   :STATEST STCF     R4                COND CODES 1-4, FLOAT CTRL
     3978   01 0109C    72400004 A            LB,R4    R4                MOVE CC1,2 TO BIT POSITIONS 30,31
     3979   01 0109D    2540007A A            SLS,R4   -6
     3980   01 0109E    354010E8              STW,R4   :CC12             SAVE CC1,2
     3981   01 0109F    3310000F A            MTW,1    R15               RETURN ADDRESS +1
     3982   01 010A0    22400003 A            LI,R4    3                 INDEX=3
     3983   01 010A1    7248000E A            LB,R4    R14,R4            STATUS MASK PRINT INHIBIT
     3984   01 010A2    E920000F A            BCS,2    *R15              PRINT INHIBIT <>0 -ERROR EXIT
     3985   01 010A3    02200000 A            LCI      0
     3986   01 010A4    2B0010EA              STM,R0   :REGSAVE          SAVE ALL REGISTERS
     3987   01 010A5    22400002 A            LI,R4    2                 INDEX=2
     3988   01 010A6    7248000B A            LB,R4    R11,R4            MASKED CC1,2
     3989   01 010A7    683010CC              BCR,3    :STATERR          NO CC ERROR-GO TO STATUS ERROR TEST
     3990   01 010A8    324010E8              LW,R4    :CC12             CC1,2
     3991   01 010A9    21400003 A            CI,R4    3
     3992   01 010AA    683010BE              BCR,3    :CCERR3           CC1,2=11
     3993   01 010AB    21400002 A            CI,R4    2
     3994   01 010AC    683010B8              BCR,3    :CCERR2           CC1,2=10
     3995                            *                                   CC1,2=01
     3996   01 010AD    324010E9     :CCERR1  LW,R4    :TYPE             ISSUE TYPE
     3997   01 010AE    21400003 A            CI,R4    3
     3998   01 010AF    693010B3              BCS,3    %+4               TYPE NOT 3
     3999   01 010B0    32C010E8              LW,R12   :CC12             COND CODES 1,2
     4000   01 010B1    EAF00216              BAL,R15  *:BINC            CONVERT TO BINARY IN EBCDIC
     4001   01 010B2    55F01123              STH,R15  :CCERM4+9         ENTER INTO TDV MSG
     4002   01 010B3    324810FA              LW,R4    :ERRADR1,R4       ERROR MSG ADDRESS
     4003   01 010B4    354010B6              STW,R4   %+2
     4004   01 010B5    EAF00F6A              BAL,R15  *:PRINT           PRINT ERROR MSG
     4005   01 010B6    00000000 A            DATA     0
     4006   01 010B7    680010CC              B        :STATERR          GO TO STATUS ERROR TEST
     4007                            *                                   CC1,2=10
     4008   01 010B8    324010E9     :CCERR2  LW,R4    :TYPE             ISSUE TYPE
     4009   01 010B9    324810FF              LW,R4    :ERRADR2,R4       ERROR MSG ADDRESS
     4010   01 010BA    354010BC              STW,R4   %+2
     4011   01 010BB    EAF00F6A              BAL,R15  *:PRINT           PRINT ERROR MSG
     4012   01 010BC    00000000 A            DATA     0
     4013   01 010BD    680010CC              B        :STATERR          GO TO STATUS ERROR TEST
     4014                            *                                   CC1,2=11
     4015   01 010BE    325010E9     :CCERR3  LW,R5    :TYPE             ISSUE TYPE
     4016   01 010BF    324A1104              LW,R4    :ERRADR3,R5       ERROR MSG ADDRESS
     4017   01 010C0    21500004 A            CI,R5    4
     4018   01 010C1    683010C6              BCR,3    %+5               ISSUE TYPE 4-NO DEV ADDR REQ'D
     4019   01 010C2    32C00344              LW,R12   :DEVADDR          DEVICE ADDRESS
     4020   01 010C3    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     4021   01 010C4    22500004 A            LI,R5    4                 INDEX=4
     4022   01 010C5    B5FA0004 A            STW,R15  *R4,R5            DEV ADDR TO ERROR MSG
     4023   01 010C6    354010C8              STW,R4   %+2
     4024   01 010C7    EAF00F6A              BAL,R15  *:PRINT           PRINT ERROR MSG
     4025   01 010C8    00000000 A            DATA     0
     4026   01 010C9    02200000 A            LCI      0
     4027   01 010CA    2A0010EA              LM,R0    :REGSAVE          RESTORE ALL REGISTERS
     4028   01 010CB    E800000F A            B        *R15              ERROR EXIT
     4029                            *                                   TEST MASKED STATUS
     4030   01 010CC    5240000B A   :STATERR LH,R4    R11               MASKED STATUS
     4031   01 010CD    683010C9              BCR,3    %-4               NO STATUS ERROR-ERROR EXIT
     4032   01 010CE    EAF00F6A              BAL,R15  *:PRINT           PRINT STATUS ERROR HEADER MSG
     4033   01 010CF    00001157              DATA     :STATEM1
     4034   01 010D0    324010E9              LW,R4    :TYPE             ISSUE TYPE
     4035   01 010D1    3248116E              LW,R4    :STATTYP,R4       ENTER TYPE INTO STATUS ERROR MSG
     4036   01 010D2    72501163              LB,R5    :STATEM2          SAVE ERROR MSG BYTE COUNT
     4037   01 010D3    35401163              STW,R4   :STATEM2
     4038   01 010D4    75501163              STB,R5   :STATEM2          RESTORE BYTE COUNT
     4039   01 010D5    22500012 A            LI,R5    18                MSG BYTE INDEX=18
     4040   01 010D6    52C0000D A            LH,R12   R13               DEV STATUS
     4041   01 010D7    22400004 A            LI,R4    4                 MINOR INDEX=4
     4042   01 010D8    EAF00216              BAL,R15  *:BINC            CONVERT TO BINARY IN EBCDIC
     4043   01 010D9    75FA1166              STB,R15  :STATEM2+3,R5     STATUS BIT TO ERROR MSG
     4044   01 010DA    33F00005 A            MTW,-1   R5                BYTE INDEX-1
     4045   01 010DB    25F00078 A            SLS,R15  -8                ADJUST CONVERTED STATUS BITS
     4046   01 010DC    644010D9              BDR,R4   %-3               MINOR INDEX-1 NOT ZERO
     4047   01 010DD    645010D7              BDR,R5   %-6               BYTE INDEX-1 NOT ZERO
     4048   01 010DE    32C010E8              LW,R12   :CC12             COND CODES 1,2
     4049   01 010DF    EAF00216              BAL,R15  *:BINC            CONVERT TO BINARY IN EBCDIC
     4050   01 010E0    22400001 A            LI,R4    1                 INDEX=1
     4051   01 010E1    55F8116B              STH,R15  :STATEM2+8,R4     COND CODES 1,2 TO ERROR MSG
     4052   01 010E2    32C00344              LW,R12   :DEVADDR          DEVICE ADDRESS
     4053   01 010E3    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     4054   01 010E4    35F0116D              STW,R15  :STATEM2+10       DEV ADDR TO ERROR MSG
     4055   01 010E5    EAF00F6A              BAL,R15  *:PRINT           PRINT STATUS MSG
     4056   01 010E6    00001163              DATA     :STATEM2
     4057   01 010E7    680010C9              B        :STATERR-3        GO TO ERROR EXIT
     4058                            *
     4059   01 010E8    00000000 A   :CC12    DATA     0                 CC1,2
     4060   01 010E9    00000000 A   :TYPE    DATA     0                 ISSUE TYPE
     4061   01 010EA                 :REGSAVE RES      16                REGISTERS 0-15
     4062   01 010FA    00001109     :ERRADR1 DATA     :CCERM1           ERROR ADDRESS 1-F
     4063   01 010FB    0000110E              DATA     :CCERM2
     4064   01 010FC    00001114              DATA     :CCERM3
     4065   01 010FD    0000111A              DATA     :CCERM4
     4066   01 010FE    00001124              DATA     :CCERM5
     4067   01 010FF    00001129     :ERRADR2 DATA     :CCERM6
     4068   01 01100    0000112D              DATA     :CCERM7
     4069   01 01101    00001131              DATA     :CCERM8
     4070   01 01102    00001135              DATA     :CCERM9
     4071   01 01103    00001139              DATA     :CCERMA
     4072   01 01104    0000113D     :ERRADR3 DATA     :CCERMB
     4073   01 01105    00001142              DATA     :CCERMC
     4074   01 01106    00001147              DATA     :CCERMD
     4075   01 01107    0000114C              DATA     :CCERME
     4076   01 01108    00001151              DATA     :CCERMF
     4077   01 01109    10E2C9D6 A   :CCERM1  TEXTC    'SIO-NOT ACCEPTED'
            01 0110A    60D5D6E3 A
            01 0110B    40C1C3C3 A
            01 0110C    C5D7E3C5 A
            01 0110D    C4404040 A
     4078   01 0110E    14E3C9D6 A   :CCERM2  TEXTC    'TIO-SIO NOT POSSIBLE'
            01 0110F    60E2C9D6 A
            01 01110    40D5D6E3 A
            01 01111    40D7D6E2 A
            01 01112    E2C9C2D3 A
            01 01113    C5404040 A
     4079   01 01114    14C8C9D6 A   :CCERM3  TEXTC    'HIO-DEV BUSY AT HALT'
            01 01115    60C4C5E5 A
            01 01116    40C2E4E2 A
            01 01117    E840C1E3 A
            01 01118    40C8C1D3 A
            01 01119    E3404040 A
     4080   01 0111A    25E3C4E5 A   :CCERM4  TEXTC    'TDV-DEV DEPENDENT CONDITION CC1,2=   '
            01 0111B    60C4C5E5 A
            01 0111C    40C4C5D7 A
            01 0111D    C5D5C4C5 A
            01 0111E    D5E340C3 A
            01 0111F    D6D5C4C9 A
            01 01120    E3C9D6D5 A
            01 01121    40C3C3F1 A
            01 01122    6BF27E40 A
            01 01123    40404040 A
     4081   01 01124    10C1C9D6 A   :CCERM5  TEXTC    'AIO-UE INTERRUPT'
            01 01125    60E4C540 A
            01 01126    C9D5E3C5 A
            01 01127    D9D9E4D7 A
            01 01128    E3404040 A
     4082   01 01129    0DE2C9D6 A   :CCERM6  TEXTC    'SIO-BUSY SIOP'
            01 0112A    60C2E4E2 A
            01 0112B    E840E2C9 A
            01 0112C    D6D74040 A
     4083   01 0112D    0DE3C9D6 A   :CCERM7  TEXTC    'TIO-BUSY SIOP'
            01 0112E    60C2E4E2 A
            01 0112F    E840E2C9 A
            01 01130    D6D74040 A
     4084   01 01131    0CC8C9D6 A   :CCERM8  TEXTC    'HIO-CC1,2=10'
            01 01132    60C3C3F1 A
            01 01133    6BF27EF1 A
            01 01134    F0404040 A
     4085   01 01135    0DE3C4E5 A   :CCERM9  TEXTC    'TDV-BUSY SIOP'
            01 01136    60C2E4E2 A
            01 01137    E840E2C9 A
            01 01138    D6D74040 A
     4086   01 01139    0CC1C9D6 A   :CCERMA  TEXTC    'AIO-CC1,2=10'
            01 0113A    60C3C3F1 A
            01 0113B    6BF27EF1 A
            01 0113C    F0404040 A
     4087   01 0113D    13E2C9D6 A   :CCERMB  TEXTC    'SIO-NO AR-DEV  XXXX'
            01 0113E    60D5D640 A
            01 0113F    C1D960C4 A
            01 01140    C5E54040 A
            01 01141    E7E7E7E7 A
     4088   01 01142    13E3C9D6 A   :CCERMC  TEXTC    'TIO-NO AR-DEV  XXXX'
            01 01143    60D5D640 A
            01 01144    C1D960C4 A
            01 01145    C5E54040 A
            01 01146    E7E7E7E7 A
     4089   01 01147    13C8C9D6 A   :CCERMD  TEXTC    'HIO-NO AR-DEV  XXXX'
            01 01148    60D5D640 A
            01 01149    C1D960C4 A
            01 0114A    C5E54040 A
            01 0114B    E7E7E7E7 A
     4090   01 0114C    13E3C4E5 A   :CCERME  TEXTC    'TDV-NO AR-DEV  XXXX'
            01 0114D    60D5D640 A
            01 0114E    C1D960C4 A
            01 0114F    C5E54040 A
            01 01150    E7E7E7E7 A
     4091   01 01151    16C1C9D6 A   :CCERMF  TEXTC    'AIO-NO INTERRUPT RECOG'
            01 01152    60D5D640 A
            01 01153    C9D5E3C5 A
            01 01154    D9D9E4D7 A
            01 01155    E340D9C5 A
            01 01156    C3D6C740 A
     4092   01 01157    2D404040 A   :STATEM1 TEXTC    '           0123 4567 8901 2345 CC1,2 DEV ADDR'
            01 01158    40404040 A
            01 01159    40404040 A
            01 0115A    F0F1F2F3 A
            01 0115B    40F4F5F6 A
            01 0115C    F740F8F9 A
            01 0115D    F0F140F2 A
            01 0115E    F3F4F540 A
            01 0115F    C3C3F16B A
            01 01160    F240C4C5 A
            01 01161    E540C1C4 A
            01 01162    C4D94040 A
     4093   01 01163    2B404040 A   :STATEM2 TEXTC    '    STATUS XXXX XXXX XXXX XXXX   XX    XXXX'
            01 01164    40E2E3C1 A
            01 01165    E3E4E240 A
            01 01166    E7E7E7E7 A
            01 01167    40E7E7E7 A
            01 01168    E740E7E7 A
            01 01169    E7E740E7 A
            01 0116A    E7E7E740 A
            01 0116B    4040E7E7 A
            01 0116C    40404040 A
            01 0116D    E7E7E7E7 A
     4094   01 0116E    40E2C9D6 A   :STATTYP TEXT     ' SIO',' TIO',' HIO',' TDV',' AIO'
            01 0116F    40E3C9D6 A
            01 01170    40C8C9D6 A
            01 01171    40E3C4E5 A
            01 01172    40C1C9D6 A
     4095                            *
     4096                            *
     4097                            *                *** DELAY FOR I/O INTERRUPT ***
     4098                            *
     4099                            * THE DELAY SUBROUTINE DELAYS TO AWAIT THE I/O INTERRUPT. TIMEOUT OCCURS
     4100                            *  WHEN SPECIFIED MAXIMUM DELAY TIME IS REACHED.
     4101                            *
     4102                            *       INPUT PARAMETERS:
     4103                            *
     4104                            *         REG 14- MAX DELAY TIME (DELAY =  (R14) MILLISECONDS)
     4105                            *         REG 15- RETURN ADDRESS
     4106                            *
     4107                            *       REGISTERS DISTURBED:
     4108                            *
     4109                            *         (NONE)
     4110                            *
     4111                            *       OUTPUT PARAMETERS:
     4112                            *
     4113                            *         INTERRUPT REC'D EXIT-RETURN ADDRESS
     4114                            *         DELAY TIMEOUT EXIT  -RETURN ADDRESS +1
     4115                            *                             (INTERRUPTS ARMED, ENABLED IF FLAG <>0)
     4116                            *
     4117   01 01173    35F01189     :DELAY   STW,R15  :DELSAVE          SAVE REGISTER 15
     4118   01 01174    25E0007F A            SLS,R14  -1                DELAY TIME /2
     4119   01 01175    3310000E A            MTW,1    R14               COMPENSATE FOR IMMEDIATE CTR4 INTER
     4120   01 01176    35E01188              STW,R14  :DELTIME          TIME TO CTR 4 DECR POSITION
     4121   01 01177    6AF01180              BAL,R15  :DELAYAE          ARM AND ENABLE COUNTER 4 INTERRUPTS
     4122   01 01178    32F01009              LW,R15   :INTRECF          I/O INTERRUPT RECEIVED FLAG
     4123   01 01179    68301178              BCR,3    %-1               FLAG=0,I/O INTERRUPT NOT RECEIVED
     4124   01 0117A    6AF01184              BAL,R15  :DELAYD           DISARM COUNTER 4 INTERRUPTS
     4125   01 0117B    32F01189     :DELEXIT LW,R15   :DELSAVE          RESTORE REGISTER 15
     4126   01 0117C    E800000F A            B        *R15              EXIT
     4127                            *                                   DELAY TIMEOUT
     4128   01 0117D    6AF01184     :DELTO   BAL,R15  :DELAYD           DISARM COUNTER 4 INTERRUPTS
     4129   01 0117E    33101189              MTW,1    :DELSAVE          RETURN ADDRESS +1
     4130   01 0117F    6800117B              B        :DELEXIT          GO TO DELAY TIMEOUT EXIT
     4131                            *                                   ARM/ENABLE COUNTER 4 INTERRUPTS
     4132   01 01180    35F0118A     :DELAYAE STW,R15  :DELSAVE+1        SAVE REGISTER 15
     4133   01 01181    22F01040 A            LI,R15   X'1040'           BITS 19,25
     4134   01 01182    6DF01200 A            WD,R15   X'1200'           ARM AND ENABLE CTR 4 INTERRUPTS
     4135   01 01183    E800118A              B        *:DELSAVE+1       EXIT
     4136                            *                                   DISARM COUNTER 4 INTERRUPTS
     4137   01 01184    35F0118A     :DELAYD  STW,R15  :DELSAVE+1        SAVE REGISTER 15
     4138   01 01185    22F01040 A            LI,R15   X'1040'           BITS 19,25
     4139   01 01186    6DF01100 A            WD,R15   X'1100'           DISARM COUNTER 4 INTERRUPTS
     4140   01 01187    E800118A              B        *:DELSAVE+1       EXIT
     4141                            *
     4142   01 01188    00000000 A   :DELTIME DATA     0                 DELAY TIME CTR 4 DECREMENT POSITION
     4143   01 01189    00000000 A   :DELSAVE DATA     0,0               REGISTER 15
            01 0118A    00000000 A
     4144                                     BOUND    8
     4145   01 0118C    00000000 A   :DELAYTO DATA     0,0
            01 0118D    00000000 A
     4146   01 0118E    0000117D              DATA     :DELTO,0
            01 0118F    00000000 A
     4147   01 01190    0F00118C     :DELXPSD XPSD,0   :DELAYTO
     4148   01 01191    33F01188     :DELMTW  MTW,-1   :DELTIME
     4149                            *
     4150                            *
     4151                            *                   *** C O M P A R E ***
     4152                            *
     4153                            * THE COMPARE SUBROUTINE COMPARES TWO BUFFER AREAS A WORD AT A
     4154                            *  TIME. AN ERROR COUNT IS GENERATED WHEN UNEQUAL COMPARES ARE
     4155                            *   SENSED. UNEQUAL WORDS ARE PRINTED. ERROR EXIT IF ONE OR MORE
     4156                            *    UNEQUAL COMPARES SENSED.
     4157                            *
     4158                            *       INPUT PARAMETERS:
     4159                            *
     4160                            *           REG 15  -RETURN ADDRESS
     4161                            *           :COMWCNT-NUMBER OF WORDS TO BE COMPARED
     4162                            *           :COMBFRA-EXPECTED BUFFER ADDRESS
     4163                            *           :COMBFRB-OBSERVED BUFFER ADDRESS
     4164                            *           :COMFLAG-ERROR PRINTOUT INHIBIT FLAG (INHIBIT IF <>0)
     4165                            *                    (REGISTERS 8 THRU 11 CAN BE USED AS BUFFERS)
     4166                            *
     4167                            *       REGISTERS DISTURBED:
     4168                            *
     4169                            *           (NONE)
     4170                            *
     4171                            *       OUTPUT PARAMETERS:
     4172                            *
     4173                            *           NORMAL EXIT-RETURN ADDRESS
     4174                            *           ERROR EXIT -RETURN ADDRESS +1
     4175                            *           :COMERRT   -COUNT OF COMPARE ERRORS
     4176                            *
     4177   01 01192    02200000 A   :COMPARE LCI      0
     4178   01 01193    2B0011D5              STM,R0   :COMTEM1          SAVE REGISTERS 0-15
     4179   01 01194    22500000 A            LI,R5    0
     4180   01 01195    155011E8              STD,R5   :COMERRT          CLEAR ERROR TOTAL, HDR FLAG
     4181   01 01196    324011EB              LW,R4    :COMBFRA          EXPECTED BUFFER ADDRESS A
     4182   01 01197    325011EC              LW,R5    :COMBFRB          OBSERVED BUFFER ADDRESS B
     4183   01 01198    304011EA              AW,R4    :COMWCNT          BUFFER A + WORD COUNT
     4184   01 01199    305011EA              AW,R5    :COMWCNT          BUFFER B + WORD COUNT
     4185   01 0119A    154011E6              STD,R4   :COMTEM2          SAVE FINAL BFR ADDRESSES
     4186   01 0119B    3A4011EA              LCW,R4   :COMWCNT          -(WORD COUNT)
     4187   01 0119C    B25811E6     :COM1    LW,R5    *:COMTEM2,R4      BUFFER A WORD
     4188   01 0119D    B15811E7              CW,R5    *:COMTEM2+1,R4    BUFFER A WORD:BUFFER B WORD
     4189   01 0119E    693011A6              BCS,3    :COM2             UNEQUAL COMPARISON
     4190   01 0119F    6540119C              BIR,R4   :COM1             WORD COUNT NOT 0
     4191   01 011A0    324011E8              LW,R4    :COMERRT          ERROR TOTAL
     4192   01 011A1    683011A3              BCR,3    %+2               NO ERROR
     4193   01 011A2    331011E4              MTW,1    :COMTEM1+15       ERROR-RETURN ADDRESS +1
     4194   01 011A3    02200000 A            LCI      0
     4195   01 011A4    2A0011D5              LM,R0    :COMTEM1          RESTORE REGISTERS 0-15
     4196   01 011A5    E800000F A            B        *R15              EXIT
     4197                            *                                   COMPARE ERROR
     4198   01 011A6    331011E8     :COM2    MTW,1    :COMERRT          ERROR TOTAL +1
     4199   01 011A7    326011ED              LW,R6    :COMFLAG          PRINT INHIBIT FLAG
     4200   01 011A8    6930119F              BCS,3    :COM1+3           PRINT INHIBIT <>0 -RETURN TO COMPARE
     4201   01 011A9    326011E9              LW,R6    :COMTEM3          HEADER FLAG
     4202   01 011AA    693011BB              BCS,3    :COM3             FLAG NOT 0 -NO ERR MSG HDR REQ'D
     4203                            *                                   PRINT ERROR MSG HEADER
     4204   01 011AB    331011E9              MTW,1    :COMTEM3          SET HDR FLAG
     4205   01 011AC    EAF00F6A              BAL,R15  *:PRINT           PRINT ERROR MSG HEADER
     4206   01 011AD    000011EE              DATA     :COMERM1
     4207   01 011AE    32C011EB              LW,R12   :COMBFRA          EXPECTED BUFFER ADDRESS
     4208   01 011AF    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     4209   01 011B0    22600001 A            LI,R6    1                 INDEX=1
     4210   01 011B1    55F011F7              STH,R15  :COMERM2+4        BFR ADDR TO MSG
     4211   01 011B2    52F0000F A            LH,R15   R15
     4212   01 011B3    55FC11F6              STH,R15  :COMERM2+3,R6
     4213   01 011B4    32C011EC              LW,R12   :COMBFRB          OBSERVED BUFFER ADDRESS
     4214   01 011B5    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     4215   01 011B6    35F011FB              STW,R15  :COMERM2+8        BFR ADDR TO MSG
     4216   01 011B7    EAF00F6A              BAL,R15  *:PRINT           PRINT ERROR MSG HEADER
     4217   01 011B8    000011F3              DATA     :COMERM2
     4218   01 011B9    EAF00F6A              BAL,R15  *:PRINT           PRINT ERROR MSG HEADER
     4219   01 011BA    000011FC              DATA     :COMERM3
     4220                            *                                   PRINT EXPECTED, OBSERVED WORDS
     4221   01 011BB    32C011EA     :COM3    LW,R12   :COMWCNT          NUMBER OF WORDS
     4222   01 011BC    30C00004 A            AW,R12   R4                WRD CNT=NUM WORDS + WRD CNT INDEX
     4223   01 011BD    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     4224   01 011BE    35F01218              STW,R15  :COMERM4+13       WRD CNT TO MSG
     4225   01 011BF    B2C811E6              LW,R12   *:COMTEM2,R4      EXPECTED WORD
     4226   01 011C0    22D0120B              LI,R13   :COMERM4          ERROR MSG ADDR
     4227   01 011C1    6AE011CA              BAL,R14  :COM4             ENTER EXP WRD INTO MSG
     4228   01 011C2    EAF00F6A              BAL,R15  *:PRINT           PRINT EXPECTED WORD MSG
     4229   01 011C3    0000120B              DATA     :COMERM4
     4230   01 011C4    B2C811E7              LW,R12   *:COMTEM2+1,R4    OBSERVED WORD
     4231   01 011C5    22D01219              LI,R13   :COMERM5          ERROR MSG ADDR
     4232   01 011C6    6AE011CA              BAL,R14  :COM4             ENTER OBS WRD INTO MSG
     4233   01 011C7    EAF00F6A              BAL,R15  *:PRINT           PRINT OBSERVED WORD MSG
     4234   01 011C8    00001219              DATA     :COMERM5
     4235   01 011C9    6800119F              B        :COM1+3           RETURN TO COMPARISON
     4236                            *                                   ENTER STATUS BITS INTO MESSAGE
     4237   01 011CA    22600030 A   :COM4    LI,R6    48                BYTE INDEX=48
     4238   01 011CB    22700004 A            LI,R7    4                 MINOR INDEX=4
     4239   01 011CC    EAF00216              BAL,R15  *:BINC            CONVERT TO BINARY IN EBCDIC
     4240   01 011CD    F5FC000D A            STB,R15  *R13,R6           BIT TO MSG
     4241   01 011CE    33F00006 A            MTW,-1   R6                BYTE INDEX -1
     4242   01 011CF    25F00078 A            SLS,R15  -8                ADJUST EBCDIC BITS
     4243   01 011D0    647011CD              BDR,R7   %-3               MINOR LOOP INDEX NOT 0
     4244   01 011D1    33F00006 A            MTW,-1   R6                BYTE INDEX -1
     4245   01 011D2    21600009 A            CI,R6    9                 BYTE INDEX:9
     4246   01 011D3    692011CB              BCS,2    :COM4+1           BYTE INDEX NOT MINIMUM
     4247   01 011D4    E800000E A            B        *R14              ENTER COMPLETE-EXIT
     4248                            *
     4249   01 011D5                 :COMTEM1 RES      16                REGISTERS 0-15
     4250                                     BOUND    8
     4251   01 011E6    00000000 A   :COMTEM2 DATA     0,0               BUFFER A ADDR, BUFFER B ADDR
            01 011E7    00000000 A
     4252   01 011E8    00000000 A   :COMERRT DATA     0                 COMPARE ERROR TOTAL
     4253   01 011E9    00000000 A   :COMTEM3 DATA     0                 MESSAGE HEADER FLAG
     4254   01 011EA    00000000 A   :COMWCNT DATA     0                 BUFFER WORD COUNT
     4255   01 011EB    00000000 A   :COMBFRA DATA     0                 EXPECTED BUFFER A
     4256   01 011EC    00000000 A   :COMBFRB DATA     0                 OBSERVED BUFFER B
     4257   01 011ED    00000000 A   :COMFLAG DATA     0                 PRINT INHIBIT FLAG
     4258   01 011EE    12D9C5C1 A   :COMERM1 TEXTC    'READ COMPARE ERROR'
            01 011EF    C440C3D6 A
            01 011F0    D4D7C1D9 A
            01 011F1    C540C5D9 A
            01 011F2    D9D6D940 A
     4259   01 011F3    23C5E7D7 A   :COMERM2 TEXTC    'EXP BFR ADDR XXXX OBS BFR ADDR XXXX'
            01 011F4    40C2C6D9 A
            01 011F5    40C1C4C4 A
            01 011F6    D940E7E7 A
            01 011F7    E7E740D6 A
            01 011F8    C2E240C2 A
            01 011F9    C6D940C1 A
            01 011FA    C4C4D940 A
            01 011FB    E7E7E7E7 A
     4260                            :COMERM3 TEXTC    ;
     4261   01 011FC    38404040 A    '         0123 4567 8901 2345 6789 0123 4567 8901  WD CNT'
            01 011FD    40404040 A
            01 011FE    4040F0F1 A
            01 011FF    F2F340F4 A
            01 01200    F5F6F740 A
            01 01201    F8F9F0F1 A
            01 01202    40F2F3F4 A
            01 01203    F540F6F7 A
            01 01204    F8F940F0 A
            01 01205    F1F2F340 A
            01 01206    F4F5F6F7 A
            01 01207    40F8F9F0 A
            01 01208    F14040E6 A
            01 01209    C440C3D5 A
            01 0120A    E3404040 A
     4262   01 0120B    37C5E7D7 A   :COMERM4 TEXT     ' EXPECTED   '
            01 0120C    C5C3E3C5 A
            01 0120D    C4404040 A
     4263         0000000B                    DO       11
     4264   01 0120E    40404040 A            DATA     X'40404040'       SPACES
     4265                                     FIN
            01 0120F    40404040 A
            01 01210    40404040 A
            01 01211    40404040 A
            01 01212    40404040 A
            01 01213    40404040 A
            01 01214    40404040 A
            01 01215    40404040 A
            01 01216    40404040 A
            01 01217    40404040 A
            01 01218    40404040 A
     4266   01 01219    34D6C2E2 A   :COMERM5 TEXT     ' OBSERVED   '
            01 0121A    C5D9E5C5 A
            01 0121B    C4404040 A
     4267         0000000B                    DO       11
     4268   01 0121C    40404040 A            DATA     X'40404040'       SPACES
     4269                                     FIN
            01 0121D    40404040 A
            01 0121E    40404040 A
            01 0121F    40404040 A
            01 01220    40404040 A
            01 01221    40404040 A
            01 01222    40404040 A
            01 01223    40404040 A
            01 01224    40404040 A
            01 01225    40404040 A
            01 01226    40404040 A
     4270                            *
     4271                            *
     4272                            *        MODIFIED PSEUDORANDOM NUMBER GENERATOR
     4273                            *
     4274                            *                 THE ALGORITHM
     4275                            *
     4276                            *        THE CALCULATION OF THE NEXT NUMBER X(N+1) DEPENDS ON THE
     4277                            *                 PREVIOUS NUMBER X(N) AND THE VALUE OF TWO INTERNAL
     4278                            *                 COUNTERS M1 AND M2.  THE TWO COUNTERS ARE CHANGED
     4279                            *                 BY UNITY EACH TIME A RANDOM NUMBER IS GENERATED, THE
     4280                            *                 ONE COUNTER INCREASING AND THE OTHER DECREASING.
     4281                            *
     4282                            *                 THE PROCEDURE
     4283                            *
     4284                            *        X(N+1) = M1 (+) M2 (+) M(X(N)), WHERE (+)=EXCLUSIVE OR
     4285                            *
     4286                            *        OPTION-1, USES INTERNAL VALUES OF M1, M2 AND X.  RESULTS
     4287                            *                 FOUND IN REGISTER-14.
     4288                            *
     4289                            *        OPTION-1 CALLING SEQUENCE
     4290                            *
     4291                            *        BAL,15   :RANDOMX
     4292                            *
     4293                            *        OPTION-2, USES INTERNAL VALUES OF M1 AND M2.  USER PROVIDES
     4294                            *                 SEED IN REGISTER-14.  RESULT IN REGISTER-14.
     4295                            *
     4296                            *        OPTION-2 CALLING SEQUENCE
     4297                            *
     4298                            *        LW,14    :SEED             SEED IN REGISTER-14.
     4299                            *        BAL,15   :RANDOM
     4300                            *
     4301                            *        OPTION-3, USER PROVIDES M1,M2 AND X.  RESULT IN REGISTER-14.
     4302                            *
     4303                            *        OPTION-3 CALLING SEQUENCE
     4304                            *
     4305                            *        LW,12    :M1               M1 = VALUE OF COUNTER 1
     4306                            *        LW,13    :M2               M2 = VALUE OF COUNTER 2
     4307                            *        LW,14    :SEED             SEED = RANDOM NUMBER SEED
     4308                            *        BAL,15   :RANDOMY
     4309                            *
     4310                            *
     4311   01 01227    35C01234     :RANDOMY STW,12   :M1               OPTION-3 ENTRY
     4312   01 01228    35D01235              STW,13   :M2               SAVE PARAMETERS
     4313                            *
     4314   01 01229    35E01236     :RANDOM  STW,14   :SEED             OPTION-2 ENTRY
     4315                            *
     4316   01 0122A    33101234     :RANDOMX MTW,1    :M1               OPTION-1 ENTRY
     4317   01 0122B    6830122D              BCR,3    %+2               TEST, M1 + 1 = 0
     4318   01 0122C    33F01235              MTW,-1   :M2               NO, M2 = M2 - 1
     4319   01 0122D    32E01236              LW,14    :SEED
     4320   01 0122E    25E0020D A            SCS,14   13                GENERATE M(SEED) BY ARITHMETIC MEANS
     4321   01 0122F    30E01237              AW,14    :K                ADD CONSTANT :K
     4322   01 01230    48E01234              EOR,14   :M1               M(SEED) (+) M1, WHERE (+) = EOR
     4323   01 01231    48E01235              EOR,14   :M2               M(SEED) (+) M1 (+) M2
     4324   01 01232    35E01236              STW,14   :SEED             SEED = M(SEED) (+) M1 (+) M2
     4325   01 01233    E800000F A            B        *15
     4326                            *
     4327   01 01234    12B9B0A1 A   :M1      DATA     314159265         PI - PRE-SET M1 VALUE
     4328   01 01235    1033C4D7 A   :M2      DATA     271828183         E - PRE-SET M2 VALUE
     4329   01 01236    544B2FBA A   :SEED    DATA     1414213562        SQRT(2) - PRE-SET SEED VALUE
     4330   01 01237    22679CB1 A   :K       DATA     577215665         GAMMA - CONSTANT
     4331                            *
     4332                            *
     4333                            *                *** PATTERN SPREAD ***
     4334                            *
     4335                            * THE PATTERN SPREAD SUBROUTINE SPREADS A WORD PATTERN ACCORDING TO
     4336                            *  THE TYPE SPECIFIED.
     4337                            *
     4338                            *             TYPE 0 - SPREAD WORD PATTERN
     4339                            *             TYPE 1 - SPREAD AND INCREMENT WORD PATTERN
     4340                            *             TYPE 2 - SPREAD RANDOM PATTERN
     4341                            *             TYPE 3 - SPREAD CONTENTS OF SPECIFIED ADDRESS
     4342                            *             TYPE 4 - SPREAD 3-WORD PATTERN
     4343                            *
     4344                            *       INPUT PARAMETERS:
     4345                            *
     4346                            *           :PATID  - PATTERN IDENTIFICATION (3 WORDS)
     4347                            *                     WORD 1 - TYPE (0-4)
     4348                            *                     WORD 2 - PATTERN (TYPE 0,1)
     4349                            *                              RANDOM GENERATOR SEED (TYPE 2)
     4350                            *                              WA(PATTERN) (TYPE 3,4)
     4351                            *                     WORD 3 - UNUSED (TYPE 0,2,3,4)
     4352                            *                              INCREMENT (TYPE 1)
     4353                            *
     4354                            *           :PATWC  - PATTERN WORD COUNT
     4355                            *           :PATBFR - WA(BUFFER)
     4356                            *
     4357                            *       REGISTERS DISTURBED:
     4358                            *
     4359                            *           (NONE)
     4360                            *
     4361                            *       OUTPUT PARAMETERS:
     4362                            *
     4363                            *           (NONE)
     4364                            *
     4365   01 01238    02200050 A   :PATTERN LCI      5
     4366   01 01239    2B60127B              STM,R6   :PATSAVE          SAVE REGISTERS 6-10
     4367   01 0123A    32701276              LW,R7    :PATID            PATTERN ID-TYPE
     4368   01 0123B    680E123C              B        %+1,R7            GO TO SPECIFIED SPREAD TYPE
     4369   01 0123C    68001241              B        :PAT0
     4370   01 0123D    6800124A              B        :PAT1
     4371   01 0123E    68001252              B        :PAT2
     4372   01 0123F    68001263              B        :PAT3
     4373   01 01240    6800126A              B        :PAT4
     4374                            *                                   SPREAD FIXED PATTERN
     4375   01 01241    32801279     :PAT0    LW,R8    :PATWC            WORD COUNT
     4376   01 01242    3080127A              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     4377   01 01243    3A701279              LCW,R7   :PATWC            -(WORD COUNT)
     4378   01 01244    32901277              LW,R9    :PATID+1          PATTERN
     4379   01 01245    B59E0008 A            STW,R9   *R8,R7            ENTER PATTERN
     4380   01 01246    65701245              BIR,R7   %-1               WORD COUNT NOT 0
     4381   01 01247    02200050 A   :PATEXIT LCI      5
     4382   01 01248    2A60127B              LM,R6    :PATSAVE          RESTORE REGISTERS 6-10
     4383   01 01249    E800000F A            B        *R15              EXIT
     4384                            *                                   SPREAD AND INCREMENT FIXED PATTERN
     4385   01 0124A    32801279     :PAT1    LW,R8    :PATWC            WORD COUNT
     4386   01 0124B    3080127A              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     4387   01 0124C    3A701279              LCW,R7   :PATWC            -(WORD COUNT)
     4388   01 0124D    32901277              LW,R9    :PATID+1          PATTERN
     4389   01 0124E    B59E0008 A            STW,R9   *R8,R7            ENTER PATTERN
     4390   01 0124F    30901278              AW,R9    :PATID+2          INCR PATTERN
     4391   01 01250    6570124E              BIR,R7   %-2               WORD COUNT NOT 0
     4392   01 01251    68001247              B        :PATEXIT          GO TO EXIT
     4393                            *                                   SPREAD RANDOM PATTERN
     4394   01 01252    02200050 A   :PAT2    LCI      5
     4395   01 01253    2BB01280              STM,R11  :PATSAVE+5        SAVE REGISTERS 11-15
     4396   01 01254    32801279              LW,R8    :PATWC            WORD COUNT
     4397   01 01255    3080127A              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     4398   01 01256    3A701279              LCW,R7   :PATWC            -(WORD COUNT)
     4399   01 01257    32E01277              LW,R14   :PATID+1          RANDOM NUM GEN SEED
     4400   01 01258    B5EE0008 A            STW,R14  *R8,R7            SEED TO PATTERN FIRST WORD
     4401   01 01259    6570125B              BIR,R7   %+2               WORD COUNT NOT 0
     4402   01 0125A    68001260              B        :PAT2A            GO TO EXIT
     4403   01 0125B    32C0169C              LW,R12   =314159265        ESTABLISH :M1
     4404   01 0125C    32D0169D              LW,R13   =271828183        ESTABLISH :M2
     4405   01 0125D    6AF01227              BAL,R15  :RANDOMY          RANDOM NUMBER GENERATOR
     4406   01 0125E    B5EE0008 A            STW,R14  *R8,R7            ENTER NUMBER
     4407   01 0125F    6570125D              BIR,R7   %-2               WORD COUNT NOT 0
     4408   01 01260    02200050 A   :PAT2A   LCI      5
     4409   01 01261    2AB01280              LM,R11   :PATSAVE+5        RESTORE REGISTERS 11-15
     4410   01 01262    68001247              B        :PATEXIT          GO TO EXIT
     4411                            *                                   SPREAD ADDRESS-SPECIFIED PATTERN
     4412   01 01263    32801279     :PAT3    LW,R8    :PATWC            WORD COUNT
     4413   01 01264    3080127A              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     4414   01 01265    3A701279              LCW,R7   :PATWC            -(WORD COUNT)
     4415   01 01266    B2901277              LW,R9    *:PATID+1         PATTERN
     4416   01 01267    B59E0008 A            STW,R9   *R8,R7            ENTER PATTERN
     4417   01 01268    65701267              BIR,R7   %-1               WRD CNT NOT 0
     4418   01 01269    68001247              B        :PATEXIT          GO TO EXIT
     4419                            *                                   SPREAD 3-WORD,ADDR-SPECIFIED PATTERN
     4420   01 0126A    32801279     :PAT4    LW,R8    :PATWC            WORD COUNT
     4421   01 0126B    3080127A              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     4422   01 0126C    3A701279              LCW,R7   :PATWC            -(WORD COUNT)
     4423   01 0126D    32A01277              LW,R10   :PATID+1          PATTERN ADDR
     4424   01 0126E    20A00003 A            AI,R10   3                 PATTERN ADDRESS +3
     4425   01 0126F    226FFFFD A            LI,R6    -3
     4426   01 01270    B29C000A A            LW,R9    *R10,R6           PATTERN
     4427   01 01271    B59E0008 A            STW,R9   *R8,R7            ENTER PATTERN
     4428   01 01272    33100007 A            MTW,1    R7                -(WORD COUNT) +1
     4429   01 01273    68101247              BCR,1    :PATEXIT          WORD COUNT = 0, EXIT
     4430   01 01274    65601270              BIR,R6   %-4               3 WORDS NOT ENTERED
     4431   01 01275    6800126F              B        %-6
     4432                            *
     4433                                     BOUND    8
     4434   01 01276    00000000 A   :PATID   DATA     0,0,0             PATTERN IDENTIFICATION
            01 01277    00000000 A
            01 01278    00000000 A
     4435   01 01279    00000000 A   :PATWC   DATA     0                 WORD COUNT
     4436   01 0127A    00000000 A   :PATBFR  DATA     0                 BUFFER ADDRESS
     4437   01 0127B                 :PATSAVE RES      10                REGISTERS 6-15
     4438                            *
     4439   01 01285                 TSTBFA   RES      402
     4440   01 01417                 TSTBFB   RES      402
     4441                            T33P1    TEXT     '1234567890       ABCDEFGHIJKLMNOPQRSTUVW',;
     4442   01 015A9    F1F2F3F4 A                     'XYZ       :#@''="->(%~;<+|!%&?`)*,./    '
            01 015AA    F5F6F7F8 A
            01 015AB    F9F04040 A
            01 015AC    40404040 A
            01 015AD    40C1C2C3 A
            01 015AE    C4C5C6C7 A
            01 015AF    C8C9D1D2 A
            01 015B0    D3D4D5D6 A
            01 015B1    D7D8D9E2 A
            01 015B2    E3E4E5E6 A
            01 015B3    E7E8E940 A
            01 015B4    40404040 A
            01 015B5    40407A7B A
            01 015B6    7C7D7E7F A
            01 015B7    606E4D6C A
            01 015B8    5F5E4C4E A
            01 015B9    4F5A5B50 A
            01 015BA    6F6D4A5D A
            01 015BB    5C6B4B61 A
            01 015BC    40404040 A
     4443                            T33P2    TEXT     'GC;%GC;%GC;%GC;%GC; XT":XT":XT":XT":XT" ',;
     4444   01 015BD    C7C35E5B A                     'CX"%CX"%CX"%CX"%CX" G:;TG:;TG:;TG:;TG:;T'
            01 015BE    C7C35E5B A
            01 015BF    C7C35E5B A
            01 015C0    C7C35E5B A
            01 015C1    C7C35E40 A
            01 015C2    E7E37F7A A
            01 015C3    E7E37F7A A
            01 015C4    E7E37F7A A
            01 015C5    E7E37F7A A
            01 015C6    E7E37F40 A
            01 015C7    C3E77F5B A
            01 015C8    C3E77F5B A
            01 015C9    C3E77F5B A
            01 015CA    C3E77F5B A
            01 015CB    C3E77F40 A
            01 015CC    C77A5EE3 A
            01 015CD    C77A5EE3 A
            01 015CE    C77A5EE3 A
            01 015CF    C77A5EE3 A
            01 015D0    C77A5EE3 A
     4445                            T33P3    TEXT     'U8-=U8-=U8-=U8-=U8- DQA*DQA*DQA*DQA*DQA ',;
     4446   01 015D1    E4F8607E A                     '40MH40MH40MH40MH40M 67L67L67L67L67L67L67'
            01 015D2    E4F8607E A
            01 015D3    E4F8607E A
            01 015D4    E4F8607E A
            01 015D5    E4F86040 A
            01 015D6    C4D8C15C A
            01 015D7    C4D8C15C A
            01 015D8    C4D8C15C A
            01 015D9    C4D8C15C A
            01 015DA    C4D8C140 A
            01 015DB    F4F0D4C8 A
            01 015DC    F4F0D4C8 A
            01 015DD    F4F0D4C8 A
            01 015DE    F4F0D4C8 A
            01 015DF    F4F0D440 A
            01 015E0    F6F7D3F6 A
            01 015E1    F7D3F6F7 A
            01 015E2    D3F6F7D3 A
            01 015E3    F6F7D3F6 A
            01 015E4    F7D3F6F7 A
     4447                            T33P4    TEXT     'KL7KL7KL7KL7KL7KL7K ;*;*;*;*;*;*;*;*;*; ',;
     4448   01 015E5    D2D3F7D2 A                     'Q%Q%Q%Q%Q%Q%Q%Q%Q%Q ;%;%;%;%;%;%;%;%;%;%'
            01 015E6    D3F7D2D3 A
            01 015E7    F7D2D3F7 A
            01 015E8    D2D3F7D2 A
            01 015E9    D3F7D240 A
            01 015EA    5E5C5E5C A
            01 015EB    5E5C5E5C A
            01 015EC    5E5C5E5C A
            01 015ED    5E5C5E5C A
            01 015EE    5E5C5E40 A
            01 015EF    D85BD85B A
            01 015F0    D85BD85B A
            01 015F1    D85BD85B A
            01 015F2    D85BD85B A
            01 015F3    D85BD840 A
            01 015F4    5E5B5E5B A
            01 015F5    5E5B5E5B A
            01 015F6    5E5B5E5B A
            01 015F7    5E5B5E5B A
            01 015F8    5E5B5E5B A
     4449                            T33P5    TEXT     '*Q*Q*Q*Q*Q*Q*Q*Q*Q* "="="="="="="="="=" ',;
     4450   01 015F9    5CD85CD8 A                     '=8=8=8=8=8=8=8=8=8= 8:8:8:8:8:8:8:8:8:8:'
            01 015FA    5CD85CD8 A
            01 015FB    5CD85CD8 A
            01 015FC    5CD85CD8 A
            01 015FD    5CD85C40 A
            01 015FE    7F7E7F7E A
            01 015FF    7F7E7F7E A
            01 01600    7F7E7F7E A
            01 01601    7F7E7F7E A
            01 01602    7F7E7F40 A
            01 01603    7EF87EF8 A
            01 01604    7EF87EF8 A
            01 01605    7EF87EF8 A
            01 01606    7EF87EF8 A
            01 01607    7EF87E40 A
            01 01608    F87AF87A A
            01 01609    F87AF87A A
            01 0160A    F87AF87A A
            01 0160B    F87AF87A A
            01 0160C    F87AF87A A
     4451                            T33P6    TEXT     '":":":":":":":":":" T:T:T:T:T:T:T:T:T:T ',;
     4452   01 0160D    7F7A7F7A A                     'G;G;G;G;G;G;G;G;G;G C%C%C%C%C%C%C%C%C%C%'
            01 0160E    7F7A7F7A A
            01 0160F    7F7A7F7A A
            01 01610    7F7A7F7A A
            01 01611    7F7A7F40 A
            01 01612    E37AE37A A
            01 01613    E37AE37A A
            01 01614    E37AE37A A
            01 01615    E37AE37A A
            01 01616    E37AE340 A
            01 01617    C75EC75E A
            01 01618    C75EC75E A
            01 01619    C75EC75E A
            01 0161A    C75EC75E A
            01 0161B    C75EC740 A
            01 0161C    C35BC35B A
            01 0161D    C35BC35B A
            01 0161E    C35BC35B A
            01 0161F    C35BC35B A
            01 01620    C35BC35B A
     4453                            T33P7    TEXT     'X"X"X"X"X"X"X"X"X"X %"%"%"%"%"%"%"%"%"% ',;
     4454   01 01621    E77FE77F A                     '%:%:%:%:%:%:%:%:%:% CXCXCXCXCXCXCXCXCXCX'
            01 01622    E77FE77F A
            01 01623    E77FE77F A
            01 01624    E77FE77F A
            01 01625    E77FE740 A
            01 01626    5B7F5B7F A
            01 01627    5B7F5B7F A
            01 01628    5B7F5B7F A
            01 01629    5B7F5B7F A
            01 0162A    5B7F5B40 A
            01 0162B    5B7A5B7A A
            01 0162C    5B7A5B7A A
            01 0162D    5B7A5B7A A
            01 0162E    5B7A5B7A A
            01 0162F    5B7A5B40 A
            01 01630    C3E7C3E7 A
            01 01631    C3E7C3E7 A
            01 01632    C3E7C3E7 A
            01 01633    C3E7C3E7 A
            01 01634    C3E7C3E7 A
     4455                            T33P8    TEXT     '%X%X%X%X%X%X%X%X%X% GCGCGCGCGCGCGCGCGCG ',;
     4456   01 01635    5BE75BE7 A                     'CTCTCTCTCTCTCTCTCTC ARARARARARARARARARAR'
            01 01636    5BE75BE7 A
            01 01637    5BE75BE7 A
            01 01638    5BE75BE7 A
            01 01639    5BE75B40 A
            01 0163A    C7C3C7C3 A
            01 0163B    C7C3C7C3 A
            01 0163C    C7C3C7C3 A
            01 0163D    C7C3C7C3 A
            01 0163E    C7C3C740 A
            01 0163F    C3E3C3E3 A
            01 01640    C3E3C3E3 A
            01 01641    C3E3C3E3 A
            01 01642    C3E3C3E3 A
            01 01643    C3E3C340 A
            01 01644    C1D9C1D9 A
            01 01645    C1D9C1D9 A
            01 01646    C1D9C1D9 A
            01 01647    C1D9C1D9 A
            01 01648    C1D9C1D9 A
     4457                            T33P9    TEXT     '    ;    ;    ;    ;    B    B    B    B',;
     4458   01 01649    40404040 A                     '    !    !    !    !    W    W    W    W'
            01 0164A    5E404040 A
            01 0164B    405E4040 A
            01 0164C    40405E40 A
            01 0164D    4040405E A
            01 0164E    40404040 A
            01 0164F    C2404040 A
            01 01650    40C24040 A
            01 01651    4040C240 A
            01 01652    404040C2 A
            01 01653    40404040 A
            01 01654    5A404040 A
            01 01655    405A4040 A
            01 01656    40405A40 A
            01 01657    4040405A A
            01 01658    40404040 A
            01 01659    E6404040 A
            01 0165A    40E64040 A
            01 0165B    4040E640 A
            01 0165C    404040E6 A
     4459                            T33P10   TEXT     '    =    =    =    =    S    S    S    S',;
     4460   01 0165D    40404040 A                     '    :    :    :    :    F    F    F    F'
            01 0165E    7E404040 A
            01 0165F    407E4040 A
            01 01660    40407E40 A
            01 01661    4040407E A
            01 01662    40404040 A
            01 01663    E2404040 A
            01 01664    40E24040 A
            01 01665    4040E240 A
            01 01666    404040E2 A
            01 01667    40404040 A
            01 01668    7A404040 A
            01 01669    407A4040 A
            01 0166A    40407A40 A
            01 0166B    4040407A A
            01 0166C    40404040 A
            01 0166D    C6404040 A
            01 0166E    40C64040 A
            01 0166F    4040C640 A
            01 01670    404040C6 A
     4461                            *
     4462   01 01671    00000015 A   ECHOBUF  DATA     X'00000015'
     4463   01 01672                          RES      20
     4464                                     END
            01 01686    00002001
            01 01687    00000080 A
            01 01688    C0000013 A
            01 01689    00000060 A
            01 0168A    00000006 A
            01 0168B    00000010 A
            01 0168C    00000008 A
            01 0168D    00000001 A
            01 0168E    000000E7 A
            01 0168F    000000EF A
            01 01690    0000EFFF A
            01 01691    0000007F A
            01 01692    0000FFDF A
            01 01693    00000020 A
            01 01694    EFFFC000 A
            01 01695    0000C000 A
            01 01696    EF00C000 A
            01 01697    80000003 A
            01 01698    0000C001 A
            01 01699    80000004 A
            01 0169A    80000005 A
            01 0169B    80000006 A
            01 0169C    12B9B0A1 A
            01 0169D    1033C4D7 A
            01 0169E    544B378A A
            01 0169F    80000007 A
            01 016A0    00180000 A
            01 016A1    6E000000 A
            01 016A2    08000000 A
            01 016A3    0000000F A
            01 016A4    90099009 A
            01 016A5    544B2FBA A
            01 016A6    C0000000 A
            01 016A7    0000FFFF A
            01 016A8    80000001 A
            01 016A9    C0000004 A
            01 016AA    0000FF00 A
            01 016AB    E600C000 A
            01 016AC    10000000 A
            01 016AD    FFFFC000 A

  CONTROL SECTION SUMMARY: 01 0204C   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   19:30 JUN 20,'83                                                                          PAGE    6
A  AIOSTAT         2704/LW      2709/LW      3661/STW     3665/LH      3711/LH      3729-DATA
   BAUDBYT          370-DATA     375/GEN
   BAUDMODE       169.1-DATA   318.2/MTW
   BAUDMSG          362/STW      365/DATA     369-TEXTC
   BAUDPRG          333/LI       375-GEN
   BYTETIME         352/STW    371.1-DATA     925/LW      1052/LW      1080/LW      1738/LW      1767/LW
      1769/AW      1797/LW      1799/AW      1850/LW      1852/AW      1878/LW      1880/AW      1906/LW
   CATALOG            2-EQU      2.1/EQU
   CODE             197-CNAME
   CPINT           3548/STW     3550/LPSD    3553-DATA    3555/XPSD
   CPINTA          3543/BCR     3547-LI
   CPINTER         3542-MTW     3554/DATA
   CPINT1          3554-DATA
   CPINT2           410/LW      3555-XPSD
   DATADR           123/:PROCDIC             3423-LI
   DATADRA         3426-LI      3433/BCR     3439/B
   DATADRB         3425/BCS     3430-CI
   DATADRC         3429/B       3431/BCR     3440-LCI
   DATAP1          3228/LM      3442/STM     3446-DATA
   DATAP2          3447-DATA
   DATAP3          3448-DATA
   ECHOBUF         2150/STB     2187/GEN     4462-DATA
   ERRMSG           609/BAL      616/BAL      631/BAL      638/BAL      648/BAL      659/BAL      670/BAL
       687/BAL      695/BAL      703/BAL      714/BAL      725/BAL      736/BAL      746/BAL      756/BAL
       771/BAL      780/BAL      787/BAL      797/BAL      807/BAL      818/BAL      834/BAL      843/BAL
       851/BAL      861/BAL      892/BAL      901/BAL      909/BAL      919/BAL      937/BAL      946/BAL
       959/BAL      968/BAL      977/BAL      985/BAL      994/BAL     1005/BAL     1015/BAL     1025/BAL
      1035/BAL     1046/BAL     1074/BAL     1087/BAL     1097/BAL     1111/BAL     1121/BAL     1133/BAL
      1144/BAL     1155/BAL     1165/BAL     1174/BAL     1183/BAL     1222/BAL     1237/BAL     1245/BAL
      1255/BAL     1263/BAL     1274/BAL     1284/BAL     1294/BAL     1304/BAL     1315/BAL     1323/BAL
      1332/BAL     1350/BAL     1360/BAL     1370/BAL     1395/BAL     1404/BAL     1413/BAL     1422/BAL
      1433/BAL     1441/BAL     1450/BAL     1489/BAL     1504/BAL     1518/BAL     1529/BAL     1546/BAL
      1560/BAL     1639/BAL     1653/BAL     1671/BAL     1684/BAL     1732/BAL     1750/BAL     1761/BAL
      1780/BAL     1791/BAL     1809/BAL     1844/BAL     1862/BAL     1872/BAL     1890/BAL     1900/BAL
      1916/BAL     1969/BAL     1981/BAL     1991/BAL     2006/BAL     2015/BAL     2027/BAL     2049/BAL
      2064/BAL     2073/BAL     2084/BAL     2096/BAL     2113/BAL     2128/BAL     2139/BAL     2224/BAL
      2238/BAL     2251/BAL     2266/BAL     2313/BAL     2330/BAL     2349/BAL     2393/BAL     2411/BAL
      2420/BAL     2431/BAL     2444/BAL     2459/BAL     2469/BAL     2522/BAL     2541/BAL     2552/BAL
      2564/BAL     2575/BAL     2587/BAL     2602/BAL     2614/BAL     2630/BAL     2642/BAL     2680/BAL
      2696/BAL     2710/BAL     2720/BAL     3504-MTW     3563/BAL     3589/BAL     3608/BAL     3669/BAL
      3683/BAL     3690/BAL     3700/BAL     3708/BAL     3715/BAL
   ERRMSG1         3507/STM     3518/LM      3522-DATA
   FLAGBIT         2701/LW      3663/STW     3723/MTW     3728-DATA
   HIODELY         2386/BAL     2437/BAL     2515/BAL     3839-STW     3844/B*
   I               2484-SET     2486/GEN     2486/GEN     2486/GEN     2486/GEN     2487/GEN     2487/GEN
      2487/GEN     2487/GEN     2488-SET     2488/SET
   INITIALC         301/BEZ      307/B        381-LI
   INITIALE         297/BG       299/BNEZ     419-MTW
   INITIALF         421-STW      427/B
   INITIALG         420/BEZ      425-LW
   INITRTN          278/STW      367/B*       371-DATA
   INIT0            328/LI       337-BCS
   INIT1          318.3/BNEZ   349.1-LI
   INPTA           3633/BCR     3636-LI
   INPTDR           415/B        532/BCR     2781/BCR     3494/B       3547/LI      3629-LW      3650/B
   INPTERR         3634/BCS     3649-LW
   INTPOOL          386/STW      390/STW      431-RES      442/LW       448/LW
   INTXPSD          384/LW      3570-XPSD
   INTXPSD1        3567/LPSD    3568/LPSD    3570/XPSD    3572-DATA
   IOA             3681/BNE     3687-CI
   IOAE            1217/BAL     1342/BAL     1962/BAL     2036/BAL     2684/BAL     3063/BAL     3744-LI
   IOAN            3674/BNE     3678-LB
   IOB             3688/BNE     3694-CI
   IOC             3698/BE      3705/BNE     3711-LH
   IOCONT          3667/BE      3672-LI
   IOD             1231/BAL     1269/BAL     1348/BAL     1376/BAL     1394/BAL     1455/BAL     1978/BAL
      2046/BAL     2202/BAL     2689/BAL     2700/BAL     3079/BAL     3759-LI
   IODEV            172-DATA     300/LW       306/STW      419/MTW      461/STW      492/MTW      531/MTW
      1573/MTW     1947/MTW     2204/MTW     2299/MTW     2505/MTW     2670/MTW     2780/MTW     2845/MTW
      2849/STW     2860/STW     3483/MTW     3504/MTW     3530/MTW     3545/STW
   IOD1            3695/BNE     3703-LW
   IOE             3713/BEZ     3722/BNE     3724-MTW
   IOINTER         3658-STW     3735/DATA
   IOSENSE         3671/B       3685/B       3692/B       3702/B       3710/B       3717-BAL
   IOXPSD           311/LW       404/LW      3736-XPSD
   IOXPSD1         3726/LPSD    3734-DATA    3736/XPSD
   ITHDLR           239-STW      557/LI      2841/LI      3107/LI
   ITHM2            242/STB      244/DATA     264-TEXTC
   ITHM3            249/STH      251/DATA     265-TEXTC
   ITHM4            254/STW      256/DATA     266-TEXTC
   ITHRST           257/LW       262-DATA     560/STW     2844/STW     3110/STW
   ITHSAVE          239/STW      258/B*       263-DATA
   ITHSUBT          247/LW       261-DATA     562/STW
   ITHTEST          240/LW       245/CW       260-DATA     486/STW      556/STW     2809/LW      2840/STW
      3106/STW
   KSRASR           285/STW      290/STW      430-DATA    2376/MTW     2503/MTW     2916/MTW     2935/MTW
      3005/MTW     3031/MTW
   L               2705/AND     2706/CW      2715/AND     2716/CW      3712/AND
   LENDR            124/:PROCDIC             3456-LI
   LENGTH          3224/LW      3244/LW      3461/STW     3464-DATA
   LIMT             126/:PROCDIC             2785-LI
   MODEL            169-DATA     287/LH
   MOD1             407/STW      429-DATA     445/LW
   NOP              209/LW       212-NOP
   PERROR           507/BCS      514/BCS      521/BCS      524/BCR      526/BCS     2763/BCS     2769/BCS
      2773/BCS     2788/BCS     2791/BCS     2795/BCS     3118/BCS     3128/BCR     3130/BCS     3139/BCS
      3142/BCS     3428/BCS     3435/BCS     3438/BCS     3458/BCR     3460/BCS     3483-MTW
   PERRORA         3484/BCR     3492-LW
   PERRORM         3488/STB     3490/DATA    3496-TEXTC
   PRINT            202-BAL      208/BDR
   REV              180-CNAME
   REVBRNCH         210/STW    365.2-BAL
   REVCOUNT         177-SET      182/DO       186-SET      186/SET      191/GEN
   REVEND           187/DO       228-REV
   REVISION         199/LW       200/LW       216-REV
   REVPRINT         199-LW     365.2/BAL
   REVSTART         178-SET      183-SET      190/ORG
   RSETDR           125/:PROCDIC             3472-MTW
   RSETFLAG        3472/MTW     3475-DATA    3581/MTW
   S:PT             2.1/EQU
   SAVE15          3658/STW     3725/LW      3732-DATA
   SPURINT         3563-BAL     3573/DATA
   SYSRST           441-LI       467/B        494/B
   SYSRSTA           79/DATA     464-EQU
   SYSRST1          413/XW       456/XW       467-B
   TEXTADR          201/STW      203-DATA
   TIOSTAT         2714/LW      2719/LW      3677/STW     3730-DATA
   TITLE            2.1-EQU      149/TEXTC
   TRAILER         2466/BAL     3007/BAL     3277/BAL     3849-STW     3854/B*      3862/B*      3863/MTW
      3864/B*
   TRAILERD        3850/LI      3867-GEN
   TRAILER1        3853/B       3855-LI
   TRAP            3606-LW      3618/DATA
   TRAPOOL          397/STW      432-RES      452/LW
   TRAPXPSD         395/LW      3615-XPSD
   TRPXPSD1        3606/LW      3612/LPSD    3613/LPSD    3615/XPSD    3617-DATA
   TSTBFA          2881/LI      2912/STW     2914/STB     3015/GEN     3053/LI      3226/LI      3325/STW
      3330/STB     3334/STB     3336/STH     3339/STH     3342/STB     3344/STB     3348/STH     3352/STB
      3353/STB     3356/STW     3358/STB     3366/STW     3368/STB     3369/STB     3377/GEN     4439-RES
   TSTBFB          2883/LI      2892/STB     2897/STB     3017/GEN     3055/LI      3091/GEN     3093/GEN
      3232/LI      3379/GEN     3381/GEN     4440-RES
   TST0DR           119/:PROCDIC 476-LI       488/B        491/B       3645/B
   TST1             481/BAL      527/BAL      541-STW
   TST1A            543/BCS      549-STW
   TST1B            548/B        552-LI       559/LI       582/BCR
   TST1C            552/LI       579-MTW
   TST1DR           120/:PROCDIC 502-LI      3646/B
   TST1DRA          504/BCS      513-CI
   TST1DRB          512/B        527-BAL      530/B
   TST1LAST         547/STW      551/STW      581/CW       587-DATA
   TST1PRES         545/STW      549/STW      561/LW       579/MTW      580/LW       586-DATA    2758/STW
      3105/STW     3673/CW      3696/LW      3703/LW      3721/CW
   TST1RTN          541/STW      583/B*       585-DATA
   TST11            565/B        597-STW
   TST110           574/B       2298-STW
   TST111           575/B       2375-STW
   TST112           576/B       2502-STW
   TST113           577/B       2669-STW     2725/B
   TST12            566/B        878-STW
   TST13            567/B       1212-STW
   TST13GO         2678/BCR     2684-BAL
   TST13OK         2687/B       2700-BAL
   TST13SS         2682/B       2698/B       2702/BNEZ    2712/B       2723-BAL
   TST13XX         2731-AIO
   TST14            568/B       1474-STW
   TST15            569/B       1626-STW
   TST16            570/B       1713-STW
   TST17            571/B       1833-STW
   TST18            572/B       1943-STW
   TST19            573/B       2201-STW
   TST2             484/BAL     2774/BAL     2838-STW     2843/LI
   TST2A           2846/BCS     2852-LW
   TST2B           2856-BAL     2864/BCR
   TST2C           2857-MTW     2866/B
   TST2D           2854/BCR     2863-CI
   TST2DR           121/:PROCDIC             2753-LI      2776/B       3647/B
   TST2DRA         2760/BCS     2768-CW
   TST2DRB         2767/B       2774-BAL     2779/B
   TST2LOOP        2754/STW     3034/MTW     3036/MTW     3089-DATA
   TST2RTN         2838/STW     2858/BCR*    2862/B*      2868-DATA
   TST2XF           458/MTW      462/STW     2850/STW     2857/MTW     2861/STW     2869-DATA    3542/MTW
      3546/STW
   TST21           2855/BAL     2865/BAL     2878-STW
   TST22           2856/BAL     3029-STW
   TST3DR           122/:PROCDIC             3103-STW     3109/LI
   TST3DRA         3119-BAL     3121/B       3124/B
   TST3DRB         3113/BCR     3126-LI
   TST3DRC         3131-BAL     3133/B       3136/B
   TST3DRD         3115/BCS     3138-CI
   TST3DRE         3143-BAL     3145/B
   TST31           3119/BAL     3158-STW
   TST31A          3164-LW      3184/BIR
   TST32           3131/BAL     3221-STW
   TST32A          3237/BCS     3243-BAL
   TST32B          3242/B       3245-STW
   TST321          3251/B       3258-LI
   TST322          3252/B       3268-LI
   TST323          3253/B       3281-LI
   TST324          3254/B       3292-LI
   TST325          3255/B       3303-LI      3317/B
   TST326          3256/B       3316-LI
   TST33           3143/BAL     3390-STW
   TST33A          3396-LI      3402/BIR     3405/BIR
   T1S1A            598-HIO      613/B        620/B        635/B        642/B        652/B        663/B
       674/B
   T1S1A1           609-BAL
   T1S1B            607/BNE      616-BAL
   T1S1C            603/BE       605/BE       614/B        622-LB
   T1S1D            629/BNE      638-BAL
   T1S1E            625/BNE      636/B        644-LB
   T1S1F            646/BNE      654-LB
   T1S1G            657/BNE      665-LB
   T1S1H            668/BNE      676-HIO      691/B        699/B        707/B        718/B        729/B
       740/B        750/B        760/B
   T1S1J            685/BE       692/B        700/B        709-LB
   T1S1J1           681/BE       695-BAL
   T1S1J2           683/BE       703-BAL
   T1S1K            712/BNE      720-LB
   T1S1K1           754/BEZ      762-TDV      775/B        784/B        791/B        801/B        811/B
       822/B
   T1S1L            723/BNE      731-LB
   T1S1L1           769/BNE      777-CI
   T1S1M            734/BNE      742-LB
   T1S1M1           778/BNE      787-BAL
   T1S1N            744/BEZ      752-LB
   T1S1N1           767/BE       785/B        793-LB
   T1S1P            795/BEZ      803-LB
   T1S1Q            805/BEZ      813-LB
   T1S1U            815/BEZ      825-TIO      838/B        847/B        855/B        865/B
   T1S1V            832/BNE      840-CI
   T1S1W            841/BNE      851-BAL
   T1S1X            830/BE       848/B        857-LB
   T1S10A          2300/BEZ     2304-LW
   T1S10B          2303/B       2306-HIO     2317/B       2353/B
   T1S10C          2310/B       2319-LI
   T1S10D          2321/B       2323-HIO     2334/B
   T1S10E          2327/B       2336-LI
   T1S10F          2338/B       2340-LW
   T1S10G          2343/BNE     2349-BAL
   T1S11A          2386-BAL     2397/B       2415/B       2424/B       2435/B       2448/B       2463/B
      2473/B
   T1S11B          2390/B       2399-LI
   T1S11C          2408/BE      2419-LD
   T1S11D          2404/B       2416/B       2426-LW
   T1S11E          2428/B       2437-BAL
   T1S11F          2441/B       2450-LI
   T1S11G          2452/B       2454-LW
   T1S11T1         2456/B       2466-BAL
   T1S12A          2509-LW
   T1S12A1         2515-BAL     2526/B       2545/B       2556/B       2568/B
   T1S12B          2519/B       2528-LI      2535/BIR
   T1S12C          2534/B       2538/B       2547-LW
   T1S12D          2549/B       2558-LI
   T1S12E          2561/BE      2570-LW      2579/B
   T1S12F          2573/BE      2581-LI      2591/B       2606/B       2618/B       2634/B
   T1S12G          2584/B       2593-LI
   T1S12H          2599/B       2608-LI
   T1S12J          2611/BL      2620-LI
   T1S12K          2622/B       2624-LI
   T1S12L          2627/BE      2636-LI      2646/B       2650/BNE
   T1S12M          2640/BE      2648-MTW
   T1S2A            879-HIO      896/B        905/B        913/B        923/B        941/B        950/B
       963/B        972/B        981/B        989/B        998/B       1009/B       1019/B       1029/B
      1039/B       1050/B       1078/B       1091/B       1101/B
   T1S2AA          1181/BCR     1189-CI
   T1S2B            890/BNE      898-CI
   T1S2C            899/BNE      909-BAL
   T1S2D            885/BCR      906/B        915-LB
   T1S2E            917/BEZ      925-LW
   T1S2F            935/BNE      943-CI
   T1S2F1           931-STCF
   T1S2G            944/BNE      952-LB
   T1S2H            957/BE       965-CI
   T1S2I            966/BNE      974-CI
   T1S2J            975/BNE      985-BAL
   T1S2K            955/BE       982/B        991-CI
   T1S2L            992/BE      1000-LB
   T1S2M           1003/BE      1011-LI
   T1S2N           1013/BEZ     1021-LB
   T1S2N1          1023/BEZ     1031-LB
   T1S2N2          1033/BEZ     1041-LI
   T1S2N3        1043.1/BLE     1052-LW
   T1S2O           1053-BAL
   T1S2P           1069-LI
   T1S2Q           1072/BE      1080-LW
   T1S2Q1          1084-TIO
   T1S2R           1085/BCR     1093-LH
   T1S2S           1095/BEZ     1103-HIO     1115/B       1125/B       1137/B       1148/B       1159/B
      1169/B       1178/B       1187/B
   T1S2S1          1108-SIO     1192/B
   T1S2T           1109/BCR     1117-LH
   T1S2U           1119/BEZ     1127-LI
   T1S2V           1131/BCS     1139-LI
   T1S2W           1142/BE      1150-LB
   T1S2X           1153/BE      1161-LB
   T1S2Y           1163/BE      1171-HIO
   T1S2Z           1172/BCS     1180-TIO
   T1S3A           1213-HIO     1226/B       1241/B       1249/B       1259/B       1267/B       1278/B
      1288/B       1298/B       1308/B       1319/B       1327/B       1336/B
   T1S3B           1220/BCR     1228-LI
   T1S3C           1235/BCS     1245-BAL
   T1S3D           1233/BCS     1252-LW
   T1S3E           1253/BCS     1263-BAL
   T1S3F           1230/B       1242/B       1250/B       1260/B       1269-BAL
   T1S3G           1272/BEZ     1280-LB
   T1S3H           1282/BEZ     1290-LH
   T1S3J           1292/BEZ     1300-LH
   T1S3K           1302/BNEZ    1310-TIO
   T1S3L           1313/BCR     1323-BAL
   T1S3M           1311/BCR     1320/B       1329-LW
   T1S3N           1330/BCR     1338-HIO     1354/B       1364/B       1374/B
   T1S3P           1347/B       1356-LH
   T1S3Q           1358/BEZ     1366-LH
   T1S3R           1368/BNEZ    1376-BAL
   T1S3R1          1380-AIO     1399/B       1408/B       1417/B       1426/B       1437/B       1445/B
      1454/B
   T1S3S           1392/B       1401-TIO
   T1S3T           1402/BCS     1410-LW
   T1S3U           1411/BCS     1419-HIO
   T1S3V           1420/BCR     1428-TIO
   T1S3W           1431/BCS     1441-BAL
   T1S3X           1429/BCR     1438/B       1447-LW
   T1S3Y           1448/BCR     1455-BAL
   T1S4A           1483-HIO     1493/B       1508/B       1522/B       1533/B
   T1S4B           1486/B       1495-LI
   T1S4C           1501/B       1510-LI
   T1S4D           1513-LW
   T1S4E           1515/B       1524-LW
   T1S4G           1526/B       1535-HIO     1550/B       1564/B
   T1S4G1          1540-LI      1567/BDR
   T1S4H           1543/B       1552-LI
   T1S4J           1557/B       1566-MTW
   T1S4L           1574/BEZ     1582-LW
   T1S4M           1583-WAIT
   T1S4N           1593/BEZ     1598-STB
   T1S4P           1600-SIO     1605/B
   T1S5A           1632-HIO     1643/B       1657/B
   T1S5B           1636/B       1645-LI
   T1S5C           1650/B       1659-HIO     1675/B       1688/B
   T1S5D           1663-LB      1692/BDR
   T1S5E           1668/B       1677-TIO
   T1S5F           1681/B       1690-MTW
   T1S6A           1714-HIO     1736/B
   T1S6A1          1720-HIO     1754/B       1765/B       1784/B       1795/B       1813/B
   T1S6B           1728/B       1738-LW
   T1S6C           1746/B       1756-CI
   T1S6D         1756.1/BGE     1767-LW
   T1S6E           1776/B       1786-CI
   T1S6F           1787/BE      1797-LW
   T1S7A           1834-HIO     1848/B       1866/B       1876/B       1894/B       1904/B       1920/B
   T1S7B           1841/B       1850-LW
   T1S7C           1859/B       1868-CI
   T1S7D           1869/BE      1878-LW
   T1S7E           1887/B       1896-CI
   T1S7F           1897/BE      1906-LW
   T1S8A           1948/BCS     1952-BAL
   T1S8A1          1951/B       1954-LI
   T1S8B           1959-HIO     1973/B       1985/B       1995/B       2010/B       2019/B       2031/B
   T1S8C           1966/B       1975-LI
   T1S8D           1977/B       1986-LW
   T1S8E           1988/B       1997-LB
   T1S8F           2003/BE      2014-LH
   T1S8G           1999/BE      2011/B       2021-LI
   T1S8H           2024/BE      2033-HIO     2053/B       2068/B       2077/B       2088/B       2100/B
   T1S8J           2045/B       2055-LB
   T1S8K           2061/BE      2072-LH
   T1S8L           2057/BE      2069/B       2079-LW
   T1S8L1          2081/B       2090-LI
   T1S8M           2093/BE      2102-HIO     2117/B       2132/B       2143/B       2160/B
   T1S8N           2110/B       2119-LI
   T1S8P           2125/B       2134-LI
   T1S8PNT1        2147/BE      2163-LW
   T1S8PNT2        2167-LI      2175/BIR
   T1S8Q           2136/BEZ     2145-LB
   T1S9A           2205/BEZ     2209-LW
   T1S9B           2208/B       2211-LI
   T1S9B1          2214-HIO     2228/B       2242/B       2270/B
   T1S9B2          2218-LI      2275/BNE
   T1S9C           2221/B       2230-LI
   T1S9D           2235/B       2244-HIO     2255/B
   T1S9E           2248/B       2257-LI
   T1S9F           2259/B       2261-LB
   T1S9H           2264/BE      2272-MTW
   T11RTN           597/STW      859/BEZ*     866/B*       868-DATA    1190/BNE*
   T110BFA         2340/LW      2344/LW      2359/GEN     2364-TEXT
   T110BFB         2341/LW      2345/LW      2361/GEN     2366-DATA
   T110CDW1        2307/LI      2359-GEN
   T110CDW2        2324/LI      2361-GEN
   T110MSG         2302/DATA    2367-TEXTC
   T110RTN         2298/STW     2347/BE*     2354/B*      2357-DATA
   T111BFA         2477/GEN     2481-DATA    3867/GEN     3868/GEN     3869/GEN     3870/GEN
   T111BFB         2479/GEN     2482-DATA    2570/LW      2637/LB
   T111BFC         2384/STW     2494-RES
   T111CDW1        2387/LI      2477-GEN
   T111CDW2        2438/LI      2479-GEN
   T111RTN         2375/STW     2464/B*      2468/B*      2474/B*      2475-DATA
   T112BFA         2513/STW     2571/LW      2638/LB      2655/GEN     2657/GEN     2659-RES
   T112CDW1        2516/LI      2655-GEN
   T112CDW2        2581/LI      2657-GEN
   T112MSG         2507/DATA    2660-TEXTC
   T112RTN         2502/STW     2651/B*      2653-DATA
   T113CDW         2676/LI      2741-GEN     2743/GEN
   T113RTN         2669/STW     2671/BEZ*    2732/B*      2746-DATA
   T113TXS         2735-DATA    2739/GEN
   T113TXT         2734-TEXT    2741/GEN
   T12BFR1         1196/GEN     1202-TEXT
   T12BFR2         1198/GEN     1200/GEN     1203-DATA
   T12IOCD1         883/LI      1196-GEN
   T12IOCD2        1107/LI      1189/CI      1198-GEN
   T12IOCD3        1191/LI      1200-GEN
   T12RTN           878/STW     1194-DATA
   T13BFR          1460/GEN     1462/GEN     1464-TEXT
   T13CC           3660/STCF    3678/LB      3731-DATA
   T13IOCD1        1218/LI      1387/LI      1460-GEN
   T13IOCD2        1343/LI      1462-GEN
   T13RTN          1212/STW     1457/B*      1465-DATA
   T13SUSS         2729/DATA    2737-TEXTC
   T14BFR          1609/GEN     1616-DATA
   T14CS           1478/LI      1594/STB     1595/STB     1598/STB     1611/GEN     1615-TEXT
   T14F1           1476/STD     1613-DATA
   T14F2           1614-DATA
   T14IOCD1        1498/LI      1569/LI      1609-GEN
   T14IOCD2        1480/STH     1481/STW     1540/LI      1566/MTW     1596/MTW     1599/LI      1611-GEN
   T14MSG1         1576/DATA    1618-TEXTC
   T14MSG2         1578/DATA    1619-TEXTC
   T14MSG3         1580/DATA    1620-TEXTC
   T14RTN          1474/STW     1585/B*      1588/BE*     1604/BCR*    1607-DATA
   T15BC           1663/LB      1703-DATA
   T15BFR          1697/GEN     1701-DATA
   T15CS           1627/LI      1699/GEN     1702-TEXT
   T15IOCD1        1633/LI      1697-GEN
   T15IOCD2        1629/STH     1664/STW     1665/LI      1690/MTW     1699-GEN
   T15RTN          1626/STW     1693/B*      1695-DATA
   T16CS           1818/GEN     1820/GEN     1825-TEXT
   T16IOCD1        1725/LI      1756/CI      1818-GEN
   T16IOCD2        1786/CI      1820-GEN
   T16IOCD3        1715/LI      1822-GEN
   T16NL           1822/GEN     1826-DATA
   T16RTN          1713/STW     1805/B*      1814/B*      1816-DATA
   T17BFR          1925/GEN     1927/GEN     1929-TEXT
   T17IOCD1        1838/LI      1868/CI      1925-GEN
   T17IOCD2        1896/CI      1927-GEN
   T17RTN          1833/STW     1913/B*      1921/B*      1923-DATA
   T18BFA          2153/STB     2183/GEN     2192-DATA
   T18BFR          1961/STW     1997/LB      2001/LB      2005/LH      2014/LH      2038/STW     2055/LB
      2059/LB      2063/LH      2072/LH      2106/STW     2145/LB      2179/GEN     2181/GEN     2190-DATA
   T18INDEX        1945/STW     2148/LW      2152/STW     2163/LW      2189-DATA
   T18IOCD1        1963/LI      2039/LI      2179-GEN
   T18IOCD2        2107/LI      2181-GEN
   T18IOCD3        2154/LI      2183-GEN
   T18IOCD4        1954/LI      2185-GEN
   T18IOCD5        2165/STW     2167/LI      2187-GEN
   T18MSG          1953/DATA    2193-TEXTC
   T18NL           2185/GEN     2191-DATA
   T18RTN          1943/STW     2176/B*      2177-DATA
   T19BFR          2262/LB      2284/GEN     2288-DATA
   T19CS           2211/LI      2261/LB      2282/GEN     2287-TEXT
   T19IOCD1        2218/LI      2280-GEN
   T19IOCD2        2213/STH     2272/MTW     2282-GEN
   T19IOCD3        2245/LI      2284-GEN
   T19MSG          2207/DATA    2286-TEXTC
   T19NL           2280/GEN     2289-DATA
   T19RTN          2201/STW     2276/B*      2278-DATA
   T2BFR           3013/GEN     3022-DATA
   T2IOCD1         2918/LI      3013-GEN
   T2IOCD2         2882/STH     2937/STW     2939/LI      2950/AWM     3015-GEN
   T2IOCD3         2884/STH     2954/STW     2955/LI      2966/AWM     2969/STW     2970/LI      2996/STH
      3017-GEN
   T2IOCD4         2901/LI      2982/LI      3019-GEN
   T2IOCD5         3041/LI      3091-GEN
   T2IOCD6         3067/STH     3068/LI      3093-GEN
   T2MSG           3038/DATA    3095-TEXTC
   T2NL            3019/GEN     3021-DATA
   T2PUNCNT        2888/STW     2938/AWM     3011-DATA    3064/LW      3081/LW
   T2S1A           2917/BCR     2930-BAL     2968/B       3003/B
   T2S1B           2936/BCR     2952-CW      3002/BCS
   T2S1C           2953/BCR     2969-STW
   T2S2A           3060-BAL
   T2S2B           3063-BAL
   T2TRAIL         3000/B       3005-MTW
   T21RTN          2878/STW     3006/BCR*    3009/B*      3010-DATA
   T22RTN          3029/STW     3032/BCR*    3085/B*      3086/B*      3088-DATA
   T3:RIBN         3163/STW     3168/CW      3171/STW     3188-DATA
   T3BFR           3166/STW     3177/STH     3191/GEN     3194-RES     3411/GEN
   T3CONT:         3169/BNE     3178-LI
   T3IOCD1         3178/LI      3191-GEN
   T3IOCD2         3258/LI      3375-GEN
   T3IOCD3         3245/STW     3268/LI      3377-GEN
   T3IOCD4         3246/STW     3281/LI      3303/LI      3379-GEN
   T3IOCD5         3247/STW     3292/LI      3316/LI      3381-GEN
   T3SPCHAR        3164/LW      3195-TEXT
   T31FLAG         3161/STW     3172/MTW     3187-DATA
   T31RTN          3158/STW     3185/B*      3189-DATA
   T311ST          3173/BEZ     3176-LI
   T32BFR          3375/GEN     3383-DATA
   T32RTN          3221/STW     3279/B*      3289/B*      3290/B*      3300/B*      3301/B*      3313/B*
      3314/B*      3372-DATA
   T32RTN1         3319/STW     3370/B*      3373-DATA
   T32STPG         3238/BAL     3319-STW
   T33IOCD1        3396/LI      3411-GEN
   T33IOCD2        3394/STW     3403/LW      3413-DATA
   T33P1           3393/LI      4441-TEXT
   T33P10          4459-TEXT
   T33P2           4443-TEXT
   T33P3           4445-TEXT
   T33P4           4447-TEXT
   T33P5           4449-TEXT
   T33P6           4451-TEXT
   T33P7           4453-TEXT
   T33P8           4455-TEXT
   T33P9           4457-TEXT
   T33RTN          3390/STW     3406/B*      3408-DATA
   VERSION          0.2-EQU      2.1/EQU
   WDTOUT          3581-MTW     3599/DATA
   WDTOUTA         3582/BCR     3586-HIO
   WDTOUT1         3587/LW      3593/LPSD    3594/LPSD    3596/XPSD    3598-DATA
   WDTXPSD          408/LW      3596-XPSD
   :AIO            3964-AIO
   :BINC             52-EQU     4000/BAL*    4042/BAL*    4049/BAL*    4239/BAL*
   :CATALOG          75/DATA     148-DATA
   :CCERMA         4071/DATA    4086-TEXTC
   :CCERMB         4072/DATA    4087-TEXTC
   :CCERMC         4073/DATA    4088-TEXTC
   :CCERMD         4074/DATA    4089-TEXTC
   :CCERME         4075/DATA    4090-TEXTC
   :CCERMF         4076/DATA    4091-TEXTC
   :CCERM1         4062/DATA    4077-TEXTC
   :CCERM2         4063/DATA    4078-TEXTC
   :CCERM3         4064/DATA    4079-TEXTC
   :CCERM4         4001/STH     4065/DATA    4080-TEXTC
   :CCERM5         4066/DATA    4081-TEXTC
   :CCERM6         4067/DATA    4082-TEXTC
   :CCERM7         4068/DATA    4083-TEXTC
   :CCERM8         4069/DATA    4084-TEXTC
   :CCERM9         4070/DATA    4085-TEXTC
   :CCERR1         3996-LW
   :CCERR2         3994/BCR     4008-LW
   :CCERR3         3992/BCR     4015-LW
   :CC12           3980/STW     3990/LW      3999/LW      4048/LW      4059-DATA
   :CDB             145/GEN      145/GEN      164-EQU
   :CDBEND          145/GEN      175-EQU
   :CDBM            145/GEN      155-EQU
   :CDBMEND         145/GEN      162-EQU
   :CDT              80/DATA      81/DATA     144-EQU
   :CDTEND           81/DATA     146-EQU
   :COMBFRA        3054/STW     4181/LW      4207/LW      4255-DATA
   :COMBFRB        3056/STW     4182/LW      4213/LW      4256-DATA
   :COMERM1        4206/DATA    4258-TEXTC
   :COMERM2        4210/STH     4212/STH     4215/STW     4217/DATA    4259-TEXTC
   :COMERM3        4219/DATA    4260-TEXTC
   :COMERM4        4224/STW     4226/LI      4229/DATA    4262-TEXT
   :COMERM5        4231/LI      4234/DATA    4266-TEXT
   :COMERRT        4180/STD     4191/LW      4198/MTW     4252-DATA
   :COMFLAG        4199/LW      4257-DATA
   :COMPARE        3060/BAL     3084/BAL     3312/BAL     4177-LCI
   :COMTEM1        4178/STM     4193/MTW     4195/LM      4249-RES
   :COMTEM2        4185/STD     4187/LW*     4188/CW*     4225/LW*     4230/LW*     4251-DATA
   :COMTEM3        4201/LW      4204/MTW     4253-DATA
   :COMWCNT        3058/STW     3083/STW     3234/STM     3240/STW     4183/AW      4184/AW      4186/LCW
      4221/LW      4254-DATA
   :COM1           4187-LW      4190/BIR     4200/BCS     4235/B
   :COM2           4189/BCS     4198-MTW
   :COM3           4202/BCS     4221-LW
   :COM4           4227/BAL     4232/BAL     4237-LI      4246/BCS
   :DECC             53-EQU      248/BAL*     361/BAL*    2813/BAL*    2815/BAL*    3486/BAL*    3509/BAL*
   :DELAY           323/BAL      881/BAL      927/BAL     1053/BAL     1081/BAL     1105/BAL     1128/BAL
      1215/BAL     1229/BAL     1340/BAL     1346/BAL     1378/BAL     1383/BAL     1390/BAL     1496/BAL
      1511/BAL     1537/BAL     1553/BAL     1646/BAL     1661/BAL     1722/BAL     1740/BAL     1770/BAL
      1800/BAL     1836/BAL     1853/BAL     1881/BAL     1908/BAL     1976/BAL     2044/BAL     2216/BAL
      2231/BAL     2400/BAL     2530/BAL     2594/BAL     2686/BAL     2692/BAL     3842/BAL     4117-STW
   :DELAYAE         331/BAL     4121/BAL     4132-STW
   :DELAYD          339/BAL     3549/BAL     4124/BAL     4128/BAL     4137-STW
   :DELAYTO        4145-DATA    4147/XPSD
   :DELEXIT        4125-LW      4130/B
   :DELMTW          313/LW       400/LW      4148-MTW
   :DELSAVE         329/STW     4117/STW     4125/LW      4129/MTW     4132/STW     4135/B*      4137/STW
      4140/B*      4143-DATA
   :DELTIME         327/STW      342/SW      4120/STW     4142-DATA    4148/MTW
   :DELTO          4128-BAL     4146/DATA
   :DELXPSD         315/LW       402/LW      4147-XPSD
   :DEVADDR         171-DATA     252/LW       295/LW       320/HIO*     334/SIO*     336/TIO*     598/HIO*
       676/HIO*     762/TDV*     825/TIO*     879/HIO*     884/SIO*     930/TIO*    1056/TIO*    1084/TIO*
      1103/HIO*    1108/SIO*    1130/TIO*    1171/HIO*    1180/TIO*    1213/HIO*    1219/SIO*    1232/TIO*
      1310/TIO*    1338/HIO*    1344/SIO*    1381/HIO*    1388/SIO*    1401/TIO*    1419/HIO*    1428/TIO*
      1483/HIO*    1535/HIO*    1570/SIO*    1571/TIO*    1600/SIO*    1601/TIO*    1632/HIO*    1659/HIO*
      1677/TIO*    1714/HIO*    1716/SIO*    1717/TIO*    1720/HIO*    1834/HIO*    1946/HIO*    1955/SIO*
      1957/TIO*    1959/HIO*    1979/HIO*    2033/HIO*    2047/HIO*    2102/HIO*    2214/HIO*    2244/HIO*
      2306/HIO*    2323/HIO*    2677/SIO*    2690/HIO*    2879/HIO*    3030/HIO*    3159/HIO*    3222/HIO*
      3391/HIO*    3586/HIO*    3666/CW      3675/TIO*    3824/LW      3840/HIO*    3908/SIO*    3922/TIO*
      3936/HIO*    3950/TDV*    4019/LW      4052/LW
   :DIC              77/DATA      78/DATA     118-EQU
   :DICEND           78/DATA     128-EQU      144/EQU
   :DTLFLAG          62-EQU
   :ERRADR1        4002/LW      4062-DATA
   :ERRADR2        4009/LW      4067-DATA
   :ERRADR3        4016/LW      4072-DATA
   :ERROR            55-EQU     3505/BCS*
   :HEXC             54-EQU      241/BAL*     253/BAL*    2810/BAL*    3825/BAL*    4020/BAL*    4053/BAL*
      4208/BAL*    4214/BAL*    4223/BAL*
   :HIO            1485/BAL     3808/BAL     3936-HIO
   :INITIAL          83/DATA     275-LI
   :INTRECF         554/STW     2674/STW     3073/LW      3724/MTW     3745/STW     3751-DATA    3762/STW
      4122/LW
   :IOERM1         3820/DATA    3833-TEXTC
   :IOERM2         3826/STW     3828/DATA    3834-TEXTC
   :IOERR1         3796/B       3807-LI
   :IOERR1A        3819-BAL     3829/B
   :IOERR2         3798/BCR     3824-LW
   :IOEXEC         3179/BAL     3259/BAL     3269/BAL     3282/BAL     3293/BAL     3304/BAL     3397/BAL
      3790-STW
   :IOEXEC1        3793-LW      3801/B       3812/B       3817/B       3822/B
   :IOSAVE         3790/STW     3791/STW     3792/STD     3802/LW      3803/LW      3804/LD      3832-RES
   :K              4321/AW      4330-DATA
   :KSRADR           61-EQU
   :LOADIN           59-EQU
   :MEMLAST          65-EQU
   :MEMSIZE          64-EQU
   :MLT              44-EQU       45/EQU       46/EQU       47/EQU       48/EQU       49/EQU       50/EQU
        51/EQU       52/EQU       53/EQU       54/EQU       55/EQU       56/EQU       57/EQU       58/EQU
        59/EQU       60/EQU       61/EQU       62/EQU       63/EQU       64/EQU       65/EQU       66/EQU
      3531/BCS*
   :MLTEND           66-EQU
   :MODE             49-EQU      302/LW       310/STW      383/STW
   :MONITOR          51-EQU      459/BCR*     465/B*       493/BCS*     533/B*      2782/B*      2797/B*
      3125/B*      3137/B*      3149/B*      3443/B*      3462/B*      3473/B*      3491/B*
   :MSGIN            58-EQU
   :MSGOUT           57-EQU
   :M1             4311/STW     4316/MTW     4322/EOR     4327-DATA
   :M2             4312/STW     4318/MTW     4323/EOR     4328-DATA
   :PARERR           63-EQU
   :PASSC           487/BAL     2775/BAL     2801-STW     3120/BAL     3132/BAL     3144/BAL
   :PASSCNT        2796/STW     2821/CW      2827-DATA
   :PASSCUR         477/STW     2757/STW     2805/LW      2812/LW      2819/LW      2823/MTW     2828-DATA
      3103/STW
   :PASSC1         2803/BLEZ    2808/BCS     2819-LW
   :PASSMSG        2811/STB     2814/STW     2816/STW     2818/DATA    2830-TEXTC
   :PASSPFL        2792/STW     2802/MTW     2806/DW      2826-DATA
   :PASSRTN        2801/STW     2822/BGE*    2824/B*      2829-DATA
   :PATBFR         4376/AW      4386/AW      4397/AW      4413/AW      4421/AW      4436-DATA
   :PATEXIT        4381-LCI     4392/B       4410/B       4418/B       4429/BCR
   :PATID          3230/STM     4367/LW      4378/LW      4388/LW      4390/AW      4399/LW      4415/LW*
      4423/LW      4434-DATA
   :PATSAVE        4366/STM     4382/LM      4395/STM     4409/LM      4437-RES
   :PATTERN        3243/BAL     4365-LCI
   :PATWC          4375/LW      4377/LCW     4385/LW      4387/LCW     4396/LW      4398/LCW     4412/LW
      4414/LCW     4420/LW      4422/LCW     4435-DATA
   :PAT0           4369/B       4375-LW
   :PAT1           4370/B       4385-LW
   :PAT2           4371/B       4394-LCI
   :PAT2A          4402/B       4408-LCI
   :PAT3           4372/B       4412-LW
   :PAT4           4373/B       4420-LW
   :PITEND           92-EQU       93/DO
   :PITLAST          91-EQU       93/DO
   :PIT0             75-DATA      92/EQU
   :PIT1             76-DATA
   :PIT10            85-DATA     421/STW
   :PIT11            86-DATA
   :PIT12            87-DATA     318/STW      423/STW
   :PIT13            88-DATA
   :PIT14            89-DATA
   :PIT15            90-DATA     558/STW     2842/STW     3108/STW
   :PIT2             77-DATA
   :PIT3             78-DATA
   :PIT4             79-DATA
   :PIT5             80-DATA
   :PIT6             81-DATA
   :PIT7             82-DATA
   :PIT8             83-DATA
   :PIT9             84-DATA
   :PRINT           202/BAL*     243/BAL*     250/BAL*     255/BAL*     364/BAL*    1575/BAL*    1577/BAL*
      1579/BAL*    1952/BAL*    2206/BAL*    2301/BAL*    2506/BAL*    2728/BAL*    2817/BAL*    3037/BAL*
      3489/BAL*    3529-DATA    3819/BAL*    3827/BAL*    4004/BAL*    4011/BAL*    4024/BAL*    4032/BAL*
      4055/BAL*    4205/BAL*    4216/BAL*    4218/BAL*    4228/BAL*    4233/BAL*
   :PROCDIC          30-CNAME
   :PROGID           76/DATA     149-TEXTC
   :PSW              50-EQU
   :P1               45-EQU      478/STW      503/LW       509/STW      542/LW      2759/LW      2766/STW
      2786/LW      2852/LW      3111/LW      3424/LW      3441/LM      3457/LW      3638/STW
   :P2               46-EQU      480/STW      483/STW      506/LW       511/STW      516/MTW      518/STW
       520/CW       523/LW       550/LW      2762/LW      2764/STW     2768/CW      2771/LW      2790/LW
      2853/CW      3117/LW      3127/LW      3141/LW      3249/LW      3437/LW      3641/STW
   :P3               47-EQU     2794/LW      3427/LW
   :P4               48-EQU
   :RANDOM         4314-STW
   :RANDOMX        2383/BAL     2911/BAL     2930/BAL     3365/BAL     4316-MTW
   :RANDOMY        2382/BAL     3363/BAL     4311-STW     4405/BAL
   :REGSAVE        3986/STM     4027/LM      4061-RES
   :SEED           4314/STW     4319/LW      4324/STW     4329-DATA
   :SENSE            56-EQU      489/BAL*     528/BAL*     611/BAL*     618/BAL*     633/BAL*     640/BAL*
       650/BAL*     661/BAL*     672/BAL*     689/BAL*     697/BAL*     705/BAL*     716/BAL*     727/BAL*
       738/BAL*     748/BAL*     758/BAL*     773/BAL*     782/BAL*     789/BAL*     799/BAL*     809/BAL*
       820/BAL*     836/BAL*     845/BAL*     853/BAL*     863/BAL*     894/BAL*     903/BAL*     911/BAL*
       921/BAL*     939/BAL*     948/BAL*     961/BAL*     970/BAL*     979/BAL*     987/BAL*     996/BAL*
      1007/BAL*    1017/BAL*    1027/BAL*    1037/BAL*    1048/BAL*    1076/BAL*    1089/BAL*    1099/BAL*
      1113/BAL*    1123/BAL*    1135/BAL*    1146/BAL*    1157/BAL*    1167/BAL*    1176/BAL*    1185/BAL*
      1224/BAL*    1239/BAL*    1247/BAL*    1257/BAL*    1265/BAL*    1276/BAL*    1286/BAL*    1296/BAL*
      1306/BAL*    1317/BAL*    1325/BAL*    1334/BAL*    1352/BAL*    1362/BAL*    1372/BAL*    1397/BAL*
      1406/BAL*    1415/BAL*    1424/BAL*    1435/BAL*    1443/BAL*    1452/BAL*    1491/BAL*    1506/BAL*
      1520/BAL*    1531/BAL*    1548/BAL*    1562/BAL*    1641/BAL*    1655/BAL*    1673/BAL*    1686/BAL*
      1734/BAL*    1752/BAL*    1763/BAL*    1782/BAL*    1793/BAL*    1811/BAL*    1846/BAL*    1864/BAL*
      1874/BAL*    1892/BAL*    1902/BAL*    1918/BAL*    1971/BAL*    1983/BAL*    1993/BAL*    2008/BAL*
      2017/BAL*    2029/BAL*    2051/BAL*    2066/BAL*    2075/BAL*    2086/BAL*    2098/BAL*    2115/BAL*
      2130/BAL*    2141/BAL*    2226/BAL*    2240/BAL*    2253/BAL*    2268/BAL*    2315/BAL*    2332/BAL*
      2351/BAL*    2395/BAL*    2413/BAL*    2422/BAL*    2433/BAL*    2446/BAL*    2461/BAL*    2471/BAL*
      2524/BAL*    2543/BAL*    2554/BAL*    2566/BAL*    2577/BAL*    2589/BAL*    2604/BAL*    2616/BAL*
      2632/BAL*    2644/BAL*    2723/BAL*    2777/BAL*    3122/BAL*    3134/BAL*    3146/BAL*    3565/BAL*
      3591/BAL*    3610/BAL*    3717/BAL*
   :SIO            1500/BAL     1542/BAL     1635/BAL     1667/BAL     1727/BAL     1840/BAL     1965/BAL
      2041/BAL     2109/BAL     2156/BAL     2169/BAL     2220/BAL     2247/BAL     2309/BAL     2326/BAL
      2389/BAL     2440/BAL     2518/BAL     2583/BAL     2903/BAL     2920/BAL     2941/BAL     2957/BAL
      2972/BAL     2984/BAL     3043/BAL     3070/BAL     3799/BAL     3852/BAL     3908-SIO
   :STATEM1        4033/DATA    4092-TEXTC
   :STATEM2        4036/LB      4037/STW     4038/STB     4043/STB     4051/STH     4054/STW     4056/DATA
      4093-TEXTC
   :STATERR        3989/BCR     4006/B       4013/B       4030-LH      4057/B
   :STATEST        3918/B       3932/B       3946/B       3960/B       3974/B       3977-STCF
   :STATTYP        4035/LW      4094-TEXT
   :TDV            3950-TDV
   :TIO            1514/BAL     1525/BAL     1556/BAL     1649/BAL     1680/BAL     1744/BAL     1774/BAL
      1804/BAL     1857/BAL     1885/BAL     1912/BAL     1987/BAL     2080/BAL     2120/BAL     2124/BAL
      2159/BAL     2172/BAL     2234/BAL     2258/BAL     2320/BAL     2337/BAL     2403/BAL     2427/BAL
      2451/BAL     2455/BAL     2533/BAL     2537/BAL     2548/BAL     2597/BAL     2621/BAL     2906/BAL
      2923/BAL     2927/BAL     2944/BAL     2948/BAL     2960/BAL     2964/BAL     2975/BAL     2979/BAL
      2987/BAL     2991/BAL     3046/BAL     3050/BAL     3077/BAL     3181/BAL     3261/BAL     3265/BAL
      3271/BAL     3275/BAL     3284/BAL     3288/BAL     3295/BAL     3299/BAL     3306/BAL     3310/BAL
      3399/BAL     3794/BAL     3811/BAL     3816/BAL     3856/BAL     3860/BAL     3922-TIO
   :TYPE           3917/STW     3931/STW     3945/STW     3959/STW     3973/STW     3996/LW      4008/LW
      4015/LW      4034/LW      4060-DATA
   :TYPRINT          60-EQU
