1 C00   19:40 JUN 20,'83                                                                          PAGE    1
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   19:40 JUN 20,'83    SIGMA 5-9 CIU TEST 960-0049-1A 08-04-81                               PAGE    2
A       1                                     TITLE    'SIGMA 5-9 CIU TEST 960-0049-1A 08-04-81'
        2                            *
        3                            *
        4                            *
        5                            * WHEN THIS PROOGRAM REQUIRES MODIFICATIONS,THE COMMENT,TITLE,REV,
        6                            *  AND TEXTOO MUST BE MODIFIED TO REFLECT THE CHANGE ALSO
        7                            *
        8                            *  REVISION  1A
        9                            *
       10                            *
       11                            *
       12                            *
       13                            *                 CIU SWITCH SETTINGS AND LOCATIONS
       14                            *
       15                            *        ON LINE SWITCH             23B              UP = ON LINE
       16                            *        SUBCONTROLLER TEST MODE    22B              UP = NORMAL
       17                            *        DEVICE ADDRESS BIT 0       24B,SWITCH S4-2, UP = 1
       18                            *        DEVICE ADDRESS BIT 1       24B,SWITCH S3-2, UP = 1
       19                            *        DEVICE ADDRESS BIT 2       24B,SWITCH S2-2, UP = 1
       20                            *        DEVICE ADDRESS BIT 3       24B,SWITCH S1-2, UP = 1
       21                            *        DEVICE ADDRESS BIT 4       24B,SWITCH S4-1, UP = 1
       22                            *        DEVICE ADDRESS BIT 5       24B,S%ITCH S3-1, UP = 1
       23                            *        DEVICE ADDRESS BIT 6       24B,SWITCH S2-1, UP = 1
       24                            *        DEVICE ADDRESS BIT 7       24B,SWITCH S1-1, UP = 1
       25                            *        PRIORITY SWITCH            03A,SWITCH S1-5, UP = HI PRIORITY
       26                            *        PARITY SWITCH              03A,SWITCH S1-4, UP = CHECK PARITY
       27                            *        TEST MODE 1                03A,SWITCH S1-3, UP = NORMAL
       28                            *        TEST MODE 2                03A,SWITCH S1-2, UP = NORMAL
       29                            *        WRITE ORDER ENABLE         03A,SWITCH S1-10,UP = ALLOW WRITING
       30                            *        READ ORDER ENABLE          03A,SWITCH 51-9, UP = ALLOW READING
       31                            *        DATA RATE SWITCH 1         03A,SWITCH S1-8, UP = HI SPEED
       32                            *        DATA RATE SWITCH 2         03A,SWITCH S1-7, UP = HI SPEED
       33                            *
       34                            *                 C O N D I T I O N   C O D E S  R E T U R N
       35                            *                 F O R  S I O ,  H I O ,  T I O
       36                            *
       37                            *                 CC1     CC2       CONDITION CODES
       38                            *
       39                            *
       40                            *                  0       0        I/O ADDRESS RECOGNIZED & SIO POSSIBL
       41                            *
       42                            *                  0       1        I/O ADDRESS RECD BUT SIO NOT POSSIBL
       43                            *
       44                            *                  1       0        CIU ATTACHED TO 'BUSY' SELECTOR IOP
       45                            *
       46                            *                  1       1        I/O ADDRESS NOT RECOGNIZED
       47                            *
       48                            *
       49                            *
       50                            *
       51                            *                 C O N D I T I O N  C O D E S  R E T U R N  F O R  TDV
       52                            *
       53                            *
       54                            *                 CC1     CC2       CONDITION CODES
       55                            *
       56                            *
       57                            *                  0       0        I/O ADDRESS RECOGNIZED
       58                            *
       59                            *                  0       1        CIU IS IN TEST MODE
       60                            *
       61                            *                  1       0        CIU ATTACHED TO 'BUSY' SELECTOR IOP
       62                            *
       63                            *                  1       1        I/O ADDRESS NOT RECOGNIZED
       64                            *
       65                            *                 C O N D I T I O N  C O D E S  R E T U R N  F O R  AIO
       66                            *
       67                            *
       68                            *                 CC1     CC2       CONDITION CODES
       69                            *
       70                            *                  0       0        NORMAL INTERRUPT RECOGNITION
       71                            *
       72                            *                  0       1        UNUSUAL END INTERRUPT RECOGNITION
       73                            *
       74                            *                  1       X        NO INTERRUPT RECOGNITION
       75                            *
       76                            *
       77                            *
       78                            *                 S T A T U S  R E T U R N  F O R  S I O , H I O , T I O
       79                            *
       80                            *
       81                            *
       82                            *                 0  1  2  3  4  5  6  7    DEVICE STATUS BYTE
       83                            *
       84                            *                 1  X  X  X  X  X  X  X    INTERRUPT PENDING
       85                            *
       86                            *                 X  0  0  X  X  X  X  X    REMOTE CIU READY
       87                            *
       88                            *                 X  0  1  X  X  X  X  X    REMOTE CIU NOT OPERATIONAL
       89                            *
       90                            *                 X  1  1  X  X  X  X  X    REMOTE CIU BUSY
       91                            *
       92                            *                 X  X  X  1  X  X  X  X    AUTOMATIC MODE (ALWAYS TRUE)
       93                            *
       94                            *                 X  X  X  X  1  X  X  X    UNUSUAL END
       95                            *
       96                            *                 X  X  X  X  X  0  0  X    LOCAL CIU READY
       97                            *
       98                            *                 X  X  X  X  X  1  1  X    LOCAL CIU BUSY
       99                            *
      100                            *                 X  X  X  X  X  X  X  0    UNASSIGNED (ALWAYS FALSE)
      101                            *
      102                            *
      103                            *                 S T A T U S  R E T U R N  F O R  T D V ,  A I O
      104                            *
      105                            *                 0  1  2  3  4  5  6  7    DEVICE STATUS BYTE
      106                            *
      107                            *                 0  X  X  X  X  X  X  X    DATA OVERRUN (ALWAYS FALSE)
      108                            *
      109                            *                 X  1  X  X  X  X  X  X    CIU IS RESPONDENT
      110                            *
      111                            *                 X  X  1  X  X  X  X  X    ORDER NOT GOOD
      112                            *
      113                            *                 X  X  X  1  X  X  X  X    INCORRECT LENGTH
      114                            *
      115                            *                 X  X  X  X  -  X  X  X    BIT 2 OF ORDER IN INITIATOR
      116                            *
      117                            *                 X  X  X  X  X  -  X  X    BIT 3 OF ORDER IN INITIATOR
      118                            *
      119                            *                 X  X  X  X  X  X  -  X    BIT 4 OF ORDER IN INITIATOR
      120                            *
      121                            *                 X  X  X  X  X  X  X  -    BIT 7 OF ORDER IN INITIATOR
      122                            *
      123                                     SYSTEM   SIG9P
      124   01 00040                          ORG      64
            01 00040
      125                            *
      126         01 00040           ZDCP     EQU      %
      127                            *
      128                            *
      129                            * ASSIGN MNEMONIC NAMES TO INDEX REGISTERS
      130                            *
      131         00000001           X1       EQU      1
      132         00000002           X2       EQU      2
      133         00000003           X3       EQU      3
      134         00000004           X4       EQU      4
      135         00000005           X5       EQU      5
      136         00000006           X6       EQU      6
      137         00000007           X7       EQU      7
      138                            *
      139                            * ASSIGN MNEMONIC NAMES TO GENERAL REGISTERS
      140                            *
      141         00000000           R0       EQU      0
      142         00000001           R1       EQU      1
      143         00000002           R2       EQU      2
      144         00000003           R3       EQU      3
      145         00000004           R4       EQU      4
      146         00000005           R5       EQU      5
      147         00000006           R6       EQU      6
      148         00000007           R7       EQU      7
      149         00000008           R8       EQU      8
      150         00000009           R9       EQU      9
      151         0000000A           R10      EQU      X'A'
      152         0000000B           R11      EQU      X'B'
      153         0000000C           R12      EQU      X'C'
      154         0000000D           R13      EQU      X'D'
      155         0000000E           R14      EQU      X'E'
      156         0000000F           R15      EQU      X'F'
      157                            *
      158                            * EQUATE STATEMENTS TO UTILIZE UNASSIGNED MEMORY LOCATIONS
      159                            *
      160         00000010           ZML10    EQU      X'10'             LOCATIONS 10-IF UTILIZED
      161         00000014           ZML14    EQU      X'14'             BY COMMON TYPE/PRINT ROUTINE
      162         0000001E           ZML1E    EQU      X'1E'
      163         0000001F           ZML1F    EQU      X'1F'
      164         00000022           ZCLLNK   EQU      X'22'             TEMPORARY
      165         00000023           ZEQLNK   EQU      X'23'             LINK STORAGE
      166         00000024           ZMSLNK   EQU      X'24'             FOR TRANSLATOR
      167         00000025           ZLPLNK   EQU      X'25'             SUBROUTINES
      168         00000025           ZRPLNK   EQU      X'25'
      169                            * CPU RESET RECOVERY LOCATION
      170         00000027           ZPDLNK   EQU      X'27'
      171         00000028           ZASLNK   EQU      X'28'
      172         00000029           ZPMLNK   EQU      X'29'
      173         0000002A           ZCOLNK   EQU      X'2A'
      174         0000002B           ZFSLNK   EQU      X'2B'
      175         0000002C           ZPLLNK   EQU      X'2C'
      176         0000002D           ZUDFPM   EQU      X'2D'
      177         0000002E           ZPTY     EQU      X'2E'
      178         0000002F           ZPCNT    EQU      X'2F'
      179         00000030           ZPCHK    EQU      X'30'
      180         00000031           ZPCHK1   EQU      X'31'
      181         00000032           ZDSLNK   EQU      X'32'
      182         00000033           ZDSPTR   EQU      X'33'
      183         00000034           ZCFRLNK  EQU      X'34'
      184         00000035           ZCFRCA   EQU      X'35'
      185         00000036           ZPC7LNK  EQU      X'36'
      186         00000037           ZMFRLNK  EQU      X'37'
      187         00000038           ZTSTLNK  EQU      X'38'
      188         00000039           ZCHAR    EQU      X'39'
      189         0000003A           ZLSTCH   EQU      X'3A'
      190         0000003C           ZFTF     EQU      X'3C'
      191         0000003D           ZDSFLG   EQU      X'3D'
      192         0000003E           ZSIG9    EQU      X'3E'             SIGMA 9 FLAG, 1=SIGMA 9
      193         0000003F           ZINTFLG  EQU      X'3F'             INTERRUPT FLAG (COUNTER)
      194                            *
      195                            *
      196                            *
      197                            * FORM DIRECTIVES FOR FORMATTED WORDS
      198                            *
      199         00000004           ZFCP     COM,8,24 AF                ORDER,BYTE ADDRESS/COUNT
      200         00000004           ZFOT     COM,8,7,17 AF              OPERATOR,UNASSIGNED,ADDRESS
      201                            *
      202                            * PROCEDURE FOR GENERATION OF FORMATTED MESSAGE WORDS
      203                            *
      204         00000000           ZFMW     CNAME
      205                                     PROC
      206                            LF       GEN,4,4,8,16 ABSVAL(AF(1)),ABSVAL(AF(2)),ABSVAL(AF(3)),;
      207                             ABSVAL(AF(4))
      208                                     PEND
      209                            *
      210                            * PROCEDURE FOR GENERATION OF FORMATTED SUBROUTINE CONTROL TABLE
      211                            *
      212         00000000           ZFST2    CNAME
      213                                     PROC
      214                            LF       GEN,4,2,9,17 ABSVAL(AF(1)),ABSVAL(AF(2)),ABSVAL(AF(3)),;
      215                             ABSVAL(AF(4))
      216                                     PEND
      217                            *
      218                            * PROCEDURE FOR GENERATION OF FORMATTED PARAMETER WORDS
      219                            *
      220         00000000           ZFSAT    CNAME
      221                                     PROC
      222                            LF       GEN,4,2,2,7,17 ABSVAL(AF(1)),ABSVAL(AF(2)),;
      223                             ABSVAL(AF(3)),ABSVAL(AF(4)),ABSVAL(AF(5))
      224                                     PEND
      225                            *
      226                            * PROCEDURE FOR GENERATION OF FORMATTED HALF-WORDS
      227                            *
      228                        *S* ZAP1     CNAME
      229                        *S*          PROC
      230                        *S* LF       GEN,16,16 ABSVAL(AF(1)),ABSVAL(AF(2))
      231                        *S*          PEND
      232                            ** ***************************************************************
      233                            ** ***************************************************************
      234                            ** *     TO FACILITATE THE TYPING OUT OF CHANGES MADE TO
      235                            ** *     THIS PROGRAM A PROCEDURE CALLED BY 'REV' IS USED.
      236                            ** *
      237                            ** *
      238                            ** *     METHOD:
      239                            ** *              1. USE 'REV' AS A COMMAND, IT OPERATES
      240                            ** *               SIMILAR TO A TEXTC DIRECTIVE.
      241                            ** *              2. A LABEL OF '' REVISION'' MUST BE USED
      242                            ** *               WITH THE FIRST CALL OF '' REV''.
      243                            ** *              3. A LABEL OF ''REVEND'' MUST BE USED WITH
      244                            ** *               THE LAST CALL OF ''REV''.
      245                            ** *
      246                            ** *
      247                            ** *
      248                            ** *
      249                            ** *     WHEN USED CORRECTLY '' REV'' WILL GENERATE ALL OF THE
      250                            ** *     NECCESSARY CODE TO TYPE THE REVISIONS MADE.
      251                            ** AN EXAMPLE OF USE WOULD BE:
      252                            **          CSECT
      253                            **          ORG    X'(A LOCATION PAST THE LAST LITERAL)'
      254                            ** REVISION REV   'REVISION XXX'
      255                            ** REVEND   REV   'NO CHANGES TO THE OPERATING PROCEDURES'
      256                            ** *        USECT     (PREVIOUSLY DEFINED LABEL)
      257                            ** NOTE!!! THIS PROCEDURE GENERATES 2 MORE LITERALS.
      258                            ** **************************************************************
      259                            ** **************************************************************
      260         00000000           REVCOUNT SET      0
      261         00000000           REVSTART SET      0
      262         00000000           REVHERE  SET      0
      263         00000000           REVTHERE SET      0
      264                            *
      265                            *
      266         00000000           REV      CNAME
      267                                     PROC
      268                                     DO       REVCOUNT=0
      269                            REVSTART SET      %
      270                            LF       RES      1
      271                                     FIN
      272                            REVCOUNT SET      REVCOUNT+1
      273                                     DO       SCOR(LF,REVEND)
      274                            REVHERE  SET      %
      275                                     RES      1
      276                                     TEXT     AF
      277                            REVTHERE SET      %
      278                                     ORG      REVHERE
      279                                     GEN,4,4,8,16  2,0,(4*(REVTHERE-REVHERE))-4,BA(REVHERE)+4
      280                                     ORG      REVSTART
      281                                     GEN,32   REVCOUNT
      282                                     ORG      REVTHERE
      283                                     CODE
      284                                     ELSE
      285                            REVHERE  SET      %
      286                                     RES      1
      287                                     TEXT     AF
      288                            REVTHERE SET      %
      289                                     ORG      REVHERE
      290                                     GEN,4,4,8,16 2,0,(4*(REVTHERE-REVHERE))-4,BA(REVHERE)+4
      291                                     ORG      REVTHERE
      292                                     FIN
      293                                     PEND
      294                            *
      295                            *
      296         00000000           CODE     CNAME
      297                                     PROC
      298                            REVPRINT LW,12    *REVADR
      299                                     LCI      X'F'
      300                                     BAL,15   ZTWLP
      301                                     LH,4     *REVADR
      302                                     AND,4    =X'FF'
      303                                     SLS,4    -2
      304                                     AI,4     1
      305                                     AW,4     REVADR
      306                                     STW,4    REVADR
      307                                     MTW,-1   REVISION
      308                                     BNEZ     REVPRINT
      309                                     LW,4     NOP
      310                                     STW,4    REVBRNCH
      311                                     B        REVBRNCH
      312                            REVADR   DATA     REVISION+1
      313                            NOP      NOP
      314                                     PEND
      315                            *
      316   02 00000                          CSECT
      317   02 012D0                          ORG      X'12D0'
            02 012D0
      318                            *
      319                            *
      320   02 012D2    E3D640E2 A   REVISION REV      'TO SUPPRESS THIS MESSAGE, SET SSW 4.'
            02 012D3    E4D7D7D9 A
            02 012D4    C5E2E240 A
            02 012D5    E3C8C9E2 A
            02 012D6    40D4C5E2 A
            02 012D7    E2C1C7C5 A
            02 012D8    6B40E2C5 A
            02 012D9    E340E2E2 A
            02 012DA    E640F44B A
            02 012D1    20244B48 N
      321   02 012DC    D9C5E5C9 A    REV 'REVISION 1A'
            02 012DD    E2C9D6D5 A
            02 012DE    40F1C140 A
            02 012DB    200C4B70 N
      322   02 012E0    C9D5C9E3 A    REV 'INITIALIZER ROUTINE MODIFIED TO ALLOW OPERATION WITH A'
            02 012E1    C9C1D3C9 A
            02 012E2    E9C5D940 A
            02 012E3    D9D6E4E3 A
            02 012E4    C9D5C540 A
            02 012E5    D4D6C4C9 A
            02 012E6    C6C9C5C4 A
            02 012E7    40E3D640 A
            02 012E8    C1D3D3D6 A
            02 012E9    E640D6D7 A
            02 012EA    C5D9C1E3 A
            02 012EB    C9D6D540 A
            02 012EC    E6C9E3C8 A
            02 012ED    40C14040 A
            02 012DF    20384B80 N
      323   02 012EF    D2E2D961 A    REV 'KSR/ASR ON ANY VALID SINGLE DEVICE ADDRESS.'
            02 012F0    C1E2D940 A
            02 012F1    D6D540C1 A
            02 012F2    D5E840E5 A
            02 012F3    C1D3C9C4 A
            02 012F4    40E2C9D5 A
            02 012F5    C7D3C540 A
            02 012F6    C4C5E5C9 A
            02 012F7    C3C540C1 A
            02 012F8    C4C4D9C5 A
            02 012F9    E2E24B40 A
            02 012EE    202C4BBC N
      324   02 012FB    40404040 A    REV ' '
            02 012FA    20044BEC N
      325   02 012FD    D5D6E3C5 A    REV 'NOTE: IF THE KSR/ASR IS NOT AT DEVICE ADDRESS ONE, THE'
            02 012FE    7A40C9C6 A
            02 012FF    40E3C8C5 A
            02 01300    40D2E2D9 A
            02 01301    61C1E2D9 A
            02 01302    40C9E240 A
            02 01303    D5D6E340 A
            02 01304    C1E340C4 A
            02 01305    C5E5C9C3 A
            02 01306    C540C1C4 A
            02 01307    C4D9C5E2 A
            02 01308    E240D6D5 A
            02 01309    C56B40E3 A
            02 0130A    C8C54040 A
            02 012FC    20384BF4 N
      326   02 0130C    40404040 A    REV '      PROGRAM WILL COME TO A WAIT.  ENTER THE CORRECT'
            02 0130D    4040D7D9 A
            02 0130E    D6C7D9C1 A
            02 0130F    D440E6C9 A
            02 01310    D3D340C3 A
            02 01311    D6D4C540 A
            02 01312    E3D640C1 A
            02 01313    40E6C1C9 A
            02 01314    E34B4040 A
            02 01315    C5D5E3C5 A
            02 01316    D940E3C8 A
            02 01317    C540C3D6 A
            02 01318    D9D9C5C3 A
            02 01319    E3404040 A
            02 0130B    20384C30 N
      327   02 0131B    40404040 A   REVEND REV '      ADDRESS INTO REGISTER 4 AND CLEAR THE WAIT'
            02 0131C    4040C1C4 A
            02 0131D    C4D9C5E2 A
            02 0131E    E240C9D5 A
            02 0131F    E3D640D9 A
            02 01320    C5C7C9E2 A
            02 01321    E3C5D940 A
            02 01322    F440C1D5 A
            02 01323    C440C3D3 A
            02 01324    C5C1D940 A
            02 01325    E3C8C540 A
            02 01326    E6C1C9E3 A
            02 0131A    20304C6C N
            02 012D0    00000008 A
            02 01327    B2C01335
            02 01328    022000F0 A
            02 01329    6AF005CA 01
            02 0132A    D2401335
            02 0132B    4B4012AB 01
            02 0132C    2540007E A
            02 0132D    20400001 A
            02 0132E    30401335
            02 0132F    35401335
            02 01330    33F012D0
            02 01331    69301327
            02 01332    32401336
            02 01333    354006C7 01
            02 01334    680006C7 01
            02 01335    000012D1
            02 01336    02000000 A
      328                            *
      329   02 01337                          USECT    ZDCP
      330                            *
      331                            *
      332                            *
      333                            * SYNTAX ERROR CODE MESSAGES
      334                            *      NO.     MEANING
      335                            *      ---     -------
      336                            *      001    UNDEFINED SPECIAL CHARACTER
      337                            *      010    COMMENTS LINE INITIATOR (ASTERISK) NOT PRECEDED
      338                            *              BY NEW LINE CHARACTER
      339                            *      020    DECIMAL RE-ITERATION COUNT AND/OR PLACE MARKER
      340                            *              IDENTIFIER SUB-FIELD GREATER OR LESS THAN AND/OR
      341                            *               NOT PERMITTED BY DIRECTIVE
      342                            *      021    ALPHABETIC CHARACTERS ENCOUNTERED IN DECIMAL SUB-
      343                            *              FIELD OR ABSENCE OF FIELD SEPARATOR
      344                            *      030    PLACE MARKER IDENTIFIER TABLE OVERFLOW
      345                            *      031    DOUBLY DEFINED PLACE MARKER IDENTIFIERS
      346                            *      032    UNDEFINED PLACE MARKER IDENTIFIERS AT EXECUTE TIME
      347                            *      040    CLOSE LOOP OPERATION WITHOUT PRIOR OPEN LOOP OPER.
      348                            *      041    OPEN LOOP OPERATIONS EXIST AT EXECUTE TIME
      349                            *      050    UNDEFINED MNEMONIC DIRECTIVE
      350                            *      051    DIRECTIVE NON-EXECUTABLE IN CONTROL LINE MODE
      351                            *      052    DIRECTIVE NON-EXECUTABLE IN IMMEDIATE MODE
      352                            *      053    UNDEFINED AND/OR DOUBLY DEFINED MNEMONIC DIRECTIVE
      353                            *              NAME FOR MNEMONIC NAME RE-DEFINITION
      354                            *      054    ILLEGAL FIELD SEPARATOR FOLLOWING DIRECTIVE
      355                            *      055    FIELD SEPARATOR ENTERED PRIOR TO REQUIRED PARAMETER
      356                            *      100    EXECUTE TABLE OVERFLOW-UNCONDITIONAL ABORT
      357                            *      101    EXECUTE TABLE UNDERFLOW-UNCONDITIONAL ABORT
      358                            *      105    GO ERROR UNCONDITIONAL ABORT
      359                            *      110    LINK TABLE OVERFLOW-UNCONDITIONAL ABORT
      360                            *      111    LINK TABLE UNDERFLOW-UNCONDITIONAL ABORT
      361                            *      120    SYMBOLIC INPUT OVERFLOW-UNCONDITIONAL ABORT
      362                            *
      363                            * PRE-INITIALIZATION OF CPU TRAP LOCATIONS
      364                            *
      365                            *
      366   01 00040    0F0006CC              XPSD,0   ZCMST40    40 NON-ALLOWED OPERATION
      367   01 00041    0F000154              XPSD,0   ZT41       41 UNIMPLEMENTED INSTRUCTION
      368   01 00042    0F00017C              XPSD,0   ZCTL       42 PUSHDOWN STACK LIMIT
      369   01 00043    0F00017C              XPSD,0   ZCTL       43 FIXED POINT OVERFLOW
      370   01 00044    0F00017C              XPSD,0   ZCTL       44 FLOATING POINT FAULT
      371   01 00045    0F00017C              XPSD,0   ZCTL       45 DECIMAL ARITHMETIC FAULT
      372   01 00046    0F000158              XPSD,0   ZT46       46 WATCHDOG TIMER RUNOUT
      373   01 00047    0F00017C              XPSD,0   ZCTL       47 UNASSIGNED
      374   01 00048    0F00017C              XPSD,0   ZCTL       48 CALL1
      375   01 00049    0F00017C              XPSD,0   ZCTL       49 CALL2
      376   01 0004A    0F00017C              XPSD,0   ZCTL       4A CALL3
      377   01 0004B    0F00017C              XPSD,0   ZCTL       4B CALL4
      378   01 0004C    0F00015C              XPSD,0   ZT4C       4C SIGMA 9 MEMORY PARITY ERROR
      379   01 0004D    0F000160              XPSD,0   ZT4D       4D SIGMA 9 SEQUENCE CHANGE FAULT
      380   01 0004E    0F00017C              XPSD,0   ZCTL       4E UNASSIGNED
      381   01 0004F    0F00017C              XPSD,0   ZCTL       4F  TRAP LOCATIONS
      382                            *
      383                            *
      384                            * PRE-INITIALIZATION OF INTERRUPT LOCATIONS
      385                            *
      386   01 00050    0F000164              XPSD,0   ZI50       50 OPTIONAL POWER ON
      387   01 00051    0F000168              XPSD,0   ZI51       51  POWER OFF INTERRUPTS
      388   01 00052    0F00017C              XPSD,0   ZCTL       52 REAL-TIME CLOCKS
      389   01 00053    0F00017C              XPSD,0   ZCTL       53  COUNTER 1-3
      390   01 00054    0F00017C              XPSD,0   ZCTL       54   COUNT PULSES
      391   01 00055    0F00017C              XPSD,0   ZCTL       55 STANDARD COUNTER 4 PULSE
      392   01 00056    0F00016C              XPSD,0   ZI56       56 SIGMA 5/7 MEMORY PARITY ERROR
      393                            *                               SIGMA 9   SYSTEM FAULT
      394   01 00057    0F000170              XPSD,0   ZI57       57 SIGMA 9   MEMORY FAULT
      395   01 00058    0F00017C              XPSD,0   ZCTL       58 REAL-TIME CLOCKS
      396   01 00059    0F00017C              XPSD,0   ZCTL       59  COUNTER EQUALS ZERO
      397   01 0005A    0F00017C              XPSD,0   ZCTL       5A   1-4 INTERRUPT
      398   01 0005B    0F00017C              XPSD,0   ZCTL       5B    LOCATIONS
      399   01 0005C    0F000174              XPSD,0   ZI5C       5C INPUT/OUTPUT INTERRUPT
      400   01 0005D    0F000178              XPSD,0   ZI5D       5D CONSOLE INTERRUPT
      401   01 0005E    0F00017C              XPSD,0   ZCTL       5E UNASSIGNED
      402   01 0005F    0F00017C     ZIL5F    XPSD,0   ZCTL       5F  INTERRUPTS
      403                            *
      404                            *
      405                            * INTERRUPT LOCATIONS INITIALIZED   60 OPTIONAL EXTERNAL GROUPS
      406                            *  AT LOAD TIME TO XPSD,0 ZCTL      61  2-15 LOCATIONS 60-13F
      407                            *
      408                            *
      409                            * COMMON INTERRUPT ROUTINE SAVES REGISTER PAGE AT THIS LOCATION
      410                            *
      411   01 00140                          ORG      X'140'
            01 00140
      412                            *
      413   01 00140    00000000 A   ZPAGESAV DATA,16  0,0,0,0           REGISTER PAGE SAVED HERE
                        00000000
                        00000000
                        00000000
            01 00144    00000000 A
                        00000000
                        00000000
                        00000000
            01 00148    00000000 A
                        00000000
                        00000000
                        00000000
            01 0014C    00000000 A
                        00000000
                        00000000
                        00000000
      414                            *
      415                            *
      416                            * PRE-INITIALIZED CPU TRAP/INTERRUPT ROUTINE
      417                            *
      418   01 00150    00000000 A   ZT40     DATA     0          40 NON-ALLOWED OPERATION
      419   01 00151    00000000 A            DATA     0
      420   01 00152    00000180              DATA     ZTL40
      421   01 00153    00000000 A            DATA     0
      422   01 00154    00000000 A   ZT41     DATA     0          41 UNIMPLEMENTED INSTRUCTION
      423   01 00155    00000000 A            DATA     0
      424   01 00156    00000182              DATA     ZTL41
      425   01 00157    00000000 A            DATA     0
      426   01 00158    00000000 A   ZT46     DATA     0          46 WATCHDOG TIMER RUNOUT
      427   01 00159    00000000 A            DATA     0
      428   01 0015A    00000184              DATA     ZTL46
      429   01 0015B    00000000 A            DATA     0
      430   01 0015C    00000000 A   ZT4C     DATA     0          4C SIGMA 9 MEMORY PARITY ERROR
      431   01 0015D    00000000 A            DATA     0
      432   01 0015E    00000186              DATA     ZTL4C
      433   01 0015F    00000000 A            DATA     0
      434   01 00160    00000000 A   ZT4D     DATA     0          4D SIGMA 9 SEQUENCE CHANGE FAULT
      435   01 00161    00000000 A            DATA     0
      436   01 00162    00000188              DATA     ZTL4D
      437   01 00163    00000000 A            DATA     0
      438   01 00164    00000000 A   ZI50     DATA     0          50 POWER ON INTERRUPT
      439   01 00165    00000000 A            DATA     0
      440   01 00166    0000018A              DATA     ZIL50
      441   01 00167    00000000 A            DATA     0
      442   01 00168    00000000 A   ZI51     DATA     0          51 POWER OFF INTERRUPT
      443   01 00169    00000000 A            DATA     0
      444   01 0016A    0000018C              DATA     ZIL51
      445   01 0016B    00000000 A            DATA     0
      446   01 0016C    00000000 A   ZI56     DATA     0          56 SIGMA 5/7 MEMORY PARITY ERROR
      447   01 0016D    00000000 A            DATA     0             SIGMA 9   SYSTEM FAULT
      448   01 0016E    0000018E              DATA     ZIL56
      449   01 0016F    00000000 A            DATA     0
      450   01 00170    00000000 A   ZI57     DATA     0          57 SIGMA 9 MEMORY FAULT
      451   01 00171    00000000 A            DATA     0
      452   01 00172    00000190              DATA     ZIL57
      453   01 00173    00000000 A            DATA     0
      454   01 00174    00000000 A   ZI5C     DATA     0          5C INPUT/OUTPUT INTERRUPT
      455   01 00175    00000000 A            DATA     0
      456   01 00176    00000192              DATA     ZIL5C
      457   01 00177    00000000 A            DATA     0
      458   01 00178    00000000 A   ZI5D     DATA     0          5D CONSOLE INTERRUPT
      459   01 00179    00000000 A            DATA     0
      460   01 0017A    00000656              DATA     ZCONINT
      461   01 0017B    00000000 A            DATA     0
      462   01 0017C    00000000 A   ZCTL     DATA     0
      463   01 0017D    00000000 A            DATA     0
      464   01 0017E    00000194              DATA     ZCTL1      60 - 13F EXTERNAL INTERRUPTS
      465   01 0017F    00000000 A            DATA     0
      466   01 00180    35F0014F     ZTL40    STW,R15  ZPAGESAV+15       SAVE (R15)
      467   01 00181    6AF00196              BAL,R15  ZTLCMN              MARK INT/TRAP ADDR
      468   01 00182    35F0014F     ZTL41    STW,R15  ZPAGESAV+15
      469   01 00183    6AF00196              BAL,R15  ZTLCMN
      470   01 00184    35F0014F     ZTL46    STW,R15  ZPAGESAV+15
      471   01 00185    6AF00196              BAL,R15  ZTLCMN
      472   01 00186    35F0014F     ZTL4C    STW,R15  ZPAGESAV+15
      473   01 00187    6AF00196              BAL,R15  ZTLCMN
      474   01 00188    35F0014F     ZTL4D    STW,R15  ZPAGESAV+15
      475   01 00189    6AF00196              BAL,R15  ZTLCMN
      476   01 0018A    35F0014F     ZIL50    STW,R15  ZPAGESAV+15
      477   01 0018B    6AF00196              BAL,R15  ZTLCMN
      478   01 0018C    35F0014F     ZIL51    STW,R15  ZPAGESAV+15
      479   01 0018D    6AF00196              BAL,R15  ZTLCMN
      480   01 0018E    35F0014F     ZIL56    STW,R15  ZPAGESAV+15
      481   01 0018F    6AF00196              BAL,R15  ZTLCMN
      482   01 00190    35F0014F     ZIL57    STW,R15  ZPAGESAV+15
      483   01 00191    6AF00196              BAL,R15  ZTLCMN
      484   01 00192    35F0014F     ZIL5C    STW,R15  ZPAGESAV+15
      485   01 00193    6AF00196              BAL,R15  ZTLCMN
      486   01 00194    35F0014F     ZCTL1    STW,R15  ZPAGESAV+15       EXTERNAL INTERRUPT
      487   01 00195    22F00000 A            LI,R15   0
      488                            *
      489                            * COMMON TRAP/INTERRUPT ROUTINE.  (R15) INDICATE LOCATION
      490                            * TRAP/INTERRUPT OCCURED IN AND THEREFORE THE TYPE OF UNEXPECTED
      491                            * TRAP/INTERRUPT.
      492                            *
      493   01 00196    7400024B     ZTLCMN   STCF     ZCSS              SAVE TRAP CONDITION CODES
      494   01 00197    3310003F A            MTW,1    ZINTFLG           INCREMENT INTERRUPT FLAG
      495   01 00198    022000F0 A            LCI      15                SAVE REGISTERS 0-14
      496   01 00199    2B000140              STM,R0   ZPAGESAV
      497   01 0019A    3210003F A            LW,R1    ZINTFLG           CHECK FOR MULTIPLE INTERRUPTS
      498   01 0019B    21100001 A            CI,R1    1
      499   01 0019C    693001CB              BCS,3    ZTLHLT              MULTI-INTERRUPTS
      500   01 0019D    21F00000 A            CI,R15   0                 COMPUTE TRAP/INT INDEX
      501   01 0019E    683001CF              BCR,3    ZTLCMN3
      502   01 0019F    20FFFE7E N            AI,R15   -ZTL41              REMOVE BIAS FROM INDEX
      503   01 001A0    36F012AC              DW,R15   L(2)
      504   01 001A1    3210000F A            LW,X1    R15                 DETERMINE LOCATION
      505   01 001A2    72420285              LB,R4    ZTLOC,X1
      506   01 001A3    25400018 A            SLS,R4   24                CONVERT & STORE LOCATION
      507   01 001A4    22700955              LI,X7    BA(ZTLMSG1)+13
      508   01 001A5    6AE0023C              BAL,R14  ZIMSGSTR
      509   01 001A6    6AE0023C              BAL,R14  ZIMSGSTR
      510   01 001A7    3240024B              LW,R4    ZCSS              CONVERT & STORE CONDITION CODE
      511   01 001A8    20700005 A            AI,X7    5
      512   01 001A9    6AE0023C              BAL,R14  ZIMSGSTR
      513   01 001AA    3210000F A   ZTLCMN1  LW,R1    R15               CONVERT & STORE PSW1
      514   01 001AB    23100004 A            MI,R1    4
      515   01 001AC    20100150              AI,R1    ZT40
      516   01 001AD    B2400001 A            LW,R4    *R1
      517   01 001AE    222FFFF8 A            LI,X2    -8
      518   01 001AF    20700006 A            AI,X7    6
      519   01 001B0    6AE0023C              BAL,R14  ZIMSGSTR
      520   01 001B1    652001B0              BIR,X2   %-1
      521   01 001B2    20100001 A            AI,R1    1                 CONVERT & STORE PSW2
      522   01 001B3    B2400001 A            LW,R4    *R1
      523   01 001B4    222FFFF8 A            LI,X2    -8
      524   01 001B5    20700006 A            AI,X7    6
      525   01 001B6    6AE0023C              BAL,R14  ZIMSGSTR
      526   01 001B7    652001B6              BIR,X2   %-1
      527   01 001B8    35F0024C              STW,R15  ZINTINDX
      528   01 001B9    21F0000B A            CI,R15   11                CHECK FOR EXTERNAL INTERRUPT
      529   01 001BA    692001D3              BCS,2    ZTLCMN4             EXTERNAL
      530   01 001BB    32C0027E              LW,R12   ZTLMSG1F          PRINT MESSAGE NO. 1
      531   01 001BC    CF00052B     ZTLCMN2  HIO,0    *ZDKB+1           HALT/CLEAR KSR
      532   01 001BD    6AF005C9              BAL,R15  ZSML40              PRINT
      533   01 001BE    3300003E A            MTW,0    ZSIG9             SIGMA 9 TEST
      534   01 001BF    683001CB              BCR,3    ZTLHLT              NO
      535   01 001C0    32F0024C              LW,R15   ZINTINDX          TEST FOR PROCESSOR FAULT INT
      536   01 001C1    21F00007 A            CI,R15   7
      537   01 001C2    683001D5              BCR,3    ZTLCMN5
      538   01 001C3    21F00008 A            CI,R15   8               TEST FOR MEMORY FAULT INTERRUPT
      539   01 001C4    683001FA              BCR,3    ZTLCMN10
      540   01 001C5    21F00003 A            CI,R15   3                 TEST FOR MEMORY PARITY TRAP
      541   01 001C6    683001F8              BCR,3    ZTLCMN9
      542   01 001C7    21F00002 A            CI,R15   2                 TEST FOR WATCHDOG TIMER TRAP
      543   01 001C8    68300229              BCR,3    ZTLCMN13
      544   01 001C9    21F00004 A            CI,R15   4                 TEST FOR INSTRUCTION EXCEPTION
      545   01 001CA    68300236              BCR,3    ZTLCMN14            TRAP
      546   01 001CB    22000000 A   ZTLHLT   LI,0     0                 CLEAR INT FLG
      547   01 001CC    3500003F A            STW,0    ZINTFLG
      548   01 001CD    2E000000 A            WAIT                       HALT
      549   01 001CE    68000288              B        ZPC010            REINITIALIZE
      550                            *
      551   01 001CF    32C00282     ZTLCMN3  LW,R12   ZTLMSG4F          EXTERNAL INTERRUPT
      552   01 001D0    6AF005C9              BAL,R15  ZSML40            PRINT MESSAGE NO. 4
      553   01 001D1    22F0000C A            LI,R15   12                SET INDEX FOR PSW1 & PSW2
      554   01 001D2    680001AA              B        ZTLCMN1
      555                            *
      556   01 001D3    32C0027F     ZTLCMN4  LW,R12   ZTLMSG1G          PRINT PSW1 & PSW2 ONLY
      557   01 001D4    680001BC              B        ZTLCMN2
      558                            *
      559   01 001D5    22300000 A   ZTLCMN5  LI,R3    0                 PROCESSOR FAULT INTERRUPT
      560   01 001D6    221FFFE0 A            LI,X1    -32               POLL ALL POSSIBLE PROCESSORS
      561   01 001D7    22208000 A            LI,R2    X'8000'
      562   01 001D8    CF600002 A   ZTLCMN6  HIO,R6   *R2                 ** POLP ** COMMAND
      563   01 001D9    698001DB              BCS,8    ZTLCMN7               ADDR NOT RECOGNIZED
      564   01 001DA    694001E2              BCS,4    ZTLCMN8               PFI PULLED BY THIS PROCESSOR
      565   01 001DB    20200100 A   ZTLCMN7  AI,R2    X'100'            INCREMENT PROCESSOR ADDRESS
      566   01 001DC    651001D8              BIR,X1   ZTLCMN6
      567   01 001DD    21300000 A            CI,R3    0                 ANY PFI'S FOUND
      568   01 001DE    693001CB              BCS,3    ZTLHLT              YES-EXIT
      569   01 001DF    32C00283              LW,R12   ZTLMSG5F          OUTPUT MESSAGE NO. 5
      570   01 001E0    6AF005C9              BAL,R15  ZSML40
      571   01 001E1    680001CB              B        ZTLHLT            EXIT
      572                            *
      573   01 001E2    35200004 A   ZTLCMN8  STW,R2   R4                PFI PULLED
      574   01 001E3    20404000 A            AI,R4    X'4000'           ISSUE POLR TO RESET PROCESSOR
      575   01 001E4    CF600004 A            HIO,R6   *R4                 ** POLR ** COMMAND
      576   01 001E5    204F4000 A            AI,R4    -X'C000'          CONVERT & STORE PROCESSOR NO.
      577   01 001E6    25400010 A            SLS,R4   16
      578   01 001E7    22700995              LI,X7    BA(ZTLMSG2)+9
      579   01 001E8    6AE0023C              BAL,14   ZIMSGSTR
      580   01 001E9    6AE0023C              BAL,14   ZIMSGSTR
      581   01 001EA    32400006 A            LW,R4    R6                CONVERT & STORE FAULT STATUS
      582   01 001EB    4B40024E              AND,R4   ZPFIMSK
      583   01 001EC    25400016 A            SLS,R4   22
      584   01 001ED    20700009 A            AI,X7    9
      585   01 001EE    6AE0023C              BAL,14   ZIMSGSTR
      586   01 001EF    6AE0023C              BAL,14   ZIMSGSTR
      587   01 001F0    02200030 A            LCI      3                 PRINT MESSAGE NO. 2
      588   01 001F1    2B10024F              STM,R1   ZPFISTR
      589   01 001F2    32C00280              LW,R12   ZTLMSG2F
      590   01 001F3    6AF005C9              BAL,R15  ZSML40
      591   01 001F4    02200030 A            LCI      3
      592   01 001F5    2A10024F              LM,R1    ZPFISTR
      593   01 001F6    20300001 A            AI,R3    1                 SET FAULT FOUND
      594   01 001F7    680001DB              B        ZTLCMN7
      595                            *
      596   01 001F8    7020024B     ZTLCMN9  LC       ZCSS              MEMORY PARITY TRAP
      597   01 001F9    69F00236              BCS,15   ZTLCMN14          CHECK FOR MEMORY DETERMINED TRAP
      598                            *
      599   01 001FA    22103FF0 A   ZTLCMN10 LI,1     X'3FF0'           MEMORY DETERMINED TRAP/INTERR.
      600   01 001FB    226FFFFC A            LI,6     -4
      601   01 001FC    02200080 A            LCI      8                 READOUT MSW0
      602   01 001FD    AD400001 A            LMS,R4   *R1
      603   01 001FE    32F0003E A            LW,15    ZSIG9
      604   01 001FF    21F000E3 A            CI,15    'T'      IS IT SIGMA
      605   01 00200    69300203              BNE      ZTLCMN16       B: YES
      606   01 00201    4B4012AD              AND,4    =X'7F0003FF'   CHECK FOR ERROR
      607   01 00202    68000204              B        %+2
      608   01 00203    4B40024D     ZTLCMN16 AND,4    ZMPMSK         CHECK FOR ERROR
      609   01 00204    69300210              BCS,3    ZTLCMN12              ERROR
      610   01 00205    20100001 A            AI,1     1                   HANDLE INTERLEVE
      611   01 00206    656001FC              BIR,6    ZTLCMN10+2
      612   01 00207    20103FFC A            AI,1     X'3FFC'           INCREMENT MEMORY BANK
      613   01 00208    31100688              CW,R1    ZEMS              CHECK FOR END OF MEMORY
      614   01 00209    691001FB              BCS,1    ZTLCMN10+1
      615   01 0020A    32C00284              LW,R12   ZTLMSG6F          NO ERROR FOUND
      616   01 0020B    6AF005C9     ZTLCMN11 BAL,R15  ZSML40            PRINT MESSAGE NO. 6
      617   01 0020C    32F0024C              LW,R15   ZINTINDX          IS THIS A TRAP                   CP1
      618   01 0020D    21F00003 A            CI,R15   3
      619   01 0020E    68300236              BCR,3    ZTLCMN14            YES
      620   01 0020F    680001CB              B        ZTLHLT            EXIT
      621                            *
      622   01 00210    227009A9     ZTLCMN12 LI,X7    BA(ZTLMSG3)+5     MEMORY INDICATES ERROR
      623   01 00211    02200080 A            LCI      8                 CONVERT & STORE MSW0
      624   01 00212    6AD00246              BAL,R13  ZLMSTR
      625   01 00213    20700007 A            AI,X7    7                 CONVERT & STORE MSW1
      626   01 00214    32F0003E A            LW,15    ZSIG9
      627   01 00215    21F000E3 A            CI,15    'T'         IS IT A SIGMA
      628   01 00216    69300222              BNE      ZTLCMN18    B:YES
      629   01 00217    022000A0 A            LCI      10
      630   01 00218    6AD00246              BAL,13   ZLMSTR   CONVERT AND STORE IT
      631   01 00219    32F012AE              LW,15    ='UNUS'
      632   01 0021A    35F00272              STW,15   ZTLMSG3+9
      633   01 0021B    32F012AF              LW,15    =X'C5C44015'
      634   01 0021C    35F00273              STW,15   ZTLMSG3+10
      635   01 0021D    32F012B0              LW,15    =X'E6F27E40'
      636   01 0021E    35F00271              STW,15   ZTLMSG3+8
      637   01 0021F    022000C0 A            LCI      12
      638   01 00220    AD400001 A            LMS,4    *1          CLEAR MSW0 AND MSW1
      639   01 00221    68000227              B        ZTLCMN17
      640   01 00222    02200090 A   ZTLCMN18 LCI      9
      641   01 00223    6AD00246              BAL,R13  ZLMSTR
      642   01 00224    20700007 A            AI,X7    7           CONVERT AND STORE MSW2
      643   01 00225    022000E0 A            LCI      14          CLEAR  SNAPSHOT
      644   01 00226    6AD00246              BAL,R13  ZLMSTR
      645   01 00227    32C00281     ZTLCMN17 LW,12    ZTLMSG3F    PRINT MSG NO.3
      646   01 00228    6800020B              B        ZTLCMN11
      647                            *
      648   01 00229    7020024B     ZTLCMN13 LC       ZCSS        WATCH DOG TIMER TRAP
      649   01 0022A    68400236              BCR,4    ZTLCMN14    CHECK FOR PROCESSOR TIMEOUT
      650   01 0022B    68800236              BCR,8    ZTLCMN14    CHECK FOR NO OTHER TRAP PENDING
      651   01 0022C    32F0003E A            LW,15    ZSIG9
      652   01 0022D    21F000E3 A            CI,15    'T'         IS IT A  SIGMA
      653   01 0022E    69300231              BNE      %+3         YES
      654   01 0022F    221FFFC0 A            LI,X1    -64
      655   01 00230    68000232              B        %+2
      656   01 00231    221FFFE4 A            LI,X1    -28               SEND AN RIO TO ALL IOP'S
      657   01 00232    22204000 A            LI,R2    X'4000'
      658   01 00233    CF000002 A            HIO,0    *R2                 ** RIO **  COMMAND
      659   01 00234    20200100 A            AI,R2    X'100'
      660   01 00235    65100233              BIR,X1   %-2
      661                            *
      662   01 00236    22000000 A   ZTLCMN14 LI,0     0                 PDF F/F SET BY CURRENT TRAP
      663   01 00237    3500003F A            STW,0    ZINTFLG
      664   01 00238    0E10023A              LPSD,1   ZTLCMN15          RESET PDF
      665                                     BOUND    8
      666   01 0023A    000001CB     ZTLCMN15 DATA     ZTLHLT              CLEAR PDF & WAIT
      667   01 0023B    00000000 A            DATA     0
      668                            *
      669                            * CONVERT HEXADECIMAL DATA IN R4 TO EBCIDIC AND STORE BYTE BY (X7).
      670                            * MOST SIGNIFICANT CHARACTER CONVERTED, ONE CHARACTER PER ENTRY TO
      671                            * ROUTINE.  CALL: BAL,R14.
      672                            *
      673   01 0023C    22500000 A   ZIMSGSTR LI,R5    0                 PLACE CHARACTER IN R5
      674   01 0023D    25400304 A            SCD,R4   4
      675   01 0023E    21500009 A            CI,R5    9                 CHARACTER = 0-9
      676   01 0023F    69200244              BCS,2    ZIMSGST2            NO, A-F
      677   01 00240    205000F0 A            AI,R5    X'F0'             EBCIDIC 0-9
      678   01 00241    755E0000 A   ZIMSGST1 STB,R5   0,X7              STORE CODED CHARACTER
      679   01 00242    20700001 A            AI,X7    1                 INCREMENT STORAGE ADDRESS
      680   01 00243    E800000E A            B        *R14              EXIT
      681                            *
      682   01 00244    205000B7 A   ZIMSGST2 AI,R5    X'B7'             EBCIDIC A-F
      683   01 00245    68000241              B        ZIMSGST1
      684                            *
      685                            * PREFORM LMS INSTRUCTION & STORE MEMORY FAULT DATA.
      686                            * CALL: BAL,R13
      687                            *
      688   01 00246    AD400001 A   ZLMSTR   LMS,R4   *R1               LOAD MEMORY STATUS
      689   01 00247    222FFFF8 A            LI,X2    -8                CONVERT & STORE STATUS
      690   01 00248    6AE0023C              BAL,R14  ZIMSGSTR
      691   01 00249    65200248              BIR,X2   %-1
      692   01 0024A    E800000D A            B        *R13              EXIT
      693                            *
      694   01 0024B    00000000 A   ZCSS     DATA     0                 TRAP-INTERRUPT CONDITION CODES
      695   01 0024C    00000000 A   ZINTINDX DATA     0
      696   01 0024D    FFF00000 A   ZMPMSK   DATA     X'FFF00000'
      697   01 0024E    000000FC A   ZPFIMSK  DATA     X'FC'
      698   01 0024F                 ZPFISTR  RES      3
      699   01 00252    E3D9C1D7 A   ZTLMSG1  TEXT     'TRAP/INTER = XX TCC=X PSW1=XXXXXXXX '
            01 00253    61C9D5E3 A
            01 00254    C5D9407E A
            01 00255    40E7E740 A
            01 00256    E3C3C37E A
            01 00257    E740D7E2 A
            01 00258    E6F17EE7 A
            01 00259    E7E7E7E7 A
            01 0025A    E7E7E740 A
      700   01 0025B    D7E2E6F2 A            TEXT     'PSW2=XXXXXXXX  REGSAVE=000140
'
            01 0025C    7EE7E7E7 A
            01 0025D    E7E7E7E7 A
            01 0025E    E74040D9 A
            01 0025F    C5C7E2C1 A
            01 00260    E5C57EF0 A
            01 00261    F0F0F1F4 A
            01 00262    F0154040 A
      701   01 00263    D7D9D6C3 A   ZTLMSG2  TEXT     'PROC.NO.=XX  F/STAT=XX'
            01 00264    4BD5D64B A
            01 00265    7EE7E740 A
            01 00266    40C661E2 A
            01 00267    E3C1E37E A
            01 00268    E7E74040 A
      702   01 00269    D4E2E6F0 A   ZTLMSG3  TEXT     'MSW0=XXXXXXXX  MSW1=XXXXXXXX  MSW2=XXXXXXXX
'
            01 0026A    7EE7E7E7 A
            01 0026B    E7E7E7E7 A
            01 0026C    E74040D4 A
            01 0026D    E2E6F17E A
            01 0026E    E7E7E7E7 A
            01 0026F    E7E7E7E7 A
            01 00270    4040D4E2 A
            01 00271    E6F27EE7 A
            01 00272    E7E7E7E7 A
            01 00273    E7E7E715 A
      703   01 00274    E4D5C4C5 A   ZTLMSG4  TEXT     'UNDEF INTER
','NO PROC FAULT
','NO MEM FAULT
'
            01 00275    C640C9D5 A
            01 00276    E3C5D915 A
            01 00277    D5D640D7 A
            01 00278    D9D6C340 A
            01 00279    C6C1E4D3 A
            01 0027A    E315D5D6 A
            01 0027B    40D4C5D4 A
            01 0027C    40C6C1E4 A
            01 0027D    D3E31540 A
      704   01 0027E    20420948 A   ZTLMSG1F ZFMW     2,0,66,BA(ZTLMSG1)
      705   01 0027F    202C095E A   ZTLMSG1G ZFMW     2,0,44,BA(ZTLMSG1)+22
      706   01 00280    2016098C A   ZTLMSG2F ZFMW     2,0,22,BA(ZTLMSG2)
      707   01 00281    202C09A4 A   ZTLMSG3F ZFMW     2,0,44,BA(ZTLMSG3)
      708   01 00282    200C09D0 A   ZTLMSG4F ZFMW     2,0,12,BA(ZTLMSG4)
      709   01 00283    200E09DC A   ZTLMSG5F ZFMW     2,0,14,BA(ZTLMSG4)+12
      710   01 00284    200D09EA A   ZTLMSG6F ZFMW     2,0,13,BA(ZTLMSG4)+26
      711   01 00285    40       A   ZTLOC    DATA,1   64,65,70,76,77,80,81,86,87,92   INTERRUPT LOCATION
            01 00285 1  41       A
            01 00285 2  46       A
            01 00285 3  4C       A
            01 00286    4D       A
            01 00286 1  50       A
            01 00286 2  51       A
            01 00286 3  56       A
            01 00287    57       A
            01 00287 1  5C       A
      712                            *
      713                            *
      714                            *
      715                            * INITIALIZATION FOR MAIN-LINE TRANSLATOR
      716                            *
      717   01 00288    6AF00523     ZPC010   BAL,R15  ZSCIR
      718   01 00289    32F002A0              LW,R15   ZRECOV
      719   01 0028A    35F00026 A            STW,R15  X'26'
      720   01 0028B    3500003F A            STW,R0   ZINTFLG           CLEAR INTERRUPT FLAG
      721   01 0028C    6D000023 A            WD,0     X'23'             RESET INTERRUPT INHIBITS
      722   01 0028D    22F00C10 A            LI,R15   X'C10'  ARM AND ENABLE  GROUP 0  INTERRUPTS
      723   01 0028E    6DF01200 A            WD,R15   X'1200'
      724   01 0028F    32F00690              LW,R15   ZMFRIOAD
      725   01 00290    25F00402 A            SAS,R15  2
      726   01 00291    55F2045C              STH,R15  ZMFRX7,X1
      727   01 00292    55F2045D              STH,R15  ZMFRNBA,X1
      728   01 00293    52F2052B              LH,R15   ZDKB+1,X1
      729   01 00294    55F20471              STH,R15  ZMFRDA,X1
      730   01 00295    32C0029F     ZPC020   LW,R12   ZPC050
      731   01 00296    6AF005C6              BAL,R15  ZTMNCR
      732   01 00297    22900000 A            LI,R9    0
      733   01 00298    6AF002E1              BAL,R15  ZDSTRN
      734   01 00299    6800029A              B        %+1
      735   01 0029A    22F0029D              LI,R15   ZPC030
      736   01 0029B    55F202C8              STH,R15  ZTRN60,X1
      737   01 0029C    680002B1              B        ZPC210
      738   01 0029D    6AF002EE     ZPC030   BAL,R15  ZDSSET
      739   01 0029E    68000295              B        ZPC020
      740   01 0029F    10010B48 A   ZPC050   ZFMW     1,0,1,BA(ZDS)
      741   01 002A0    68000288     ZRECOV   B        ZPC010
      742                            *
      743                            * CLEAR EXISTENT EXECUTE TABLE AND CONSTRUCT NEW TABLE
      744                            *
      745   01 002A1    6AF00523     ZPC200   BAL,R15  ZSCIR
      746   01 002A2    3500002D A            STW,R0   ZUDFPM
      747   01 002A3    3500003D A            STW,R0   ZDSFLG
      748   01 002A4    55020667              STH,R0   ZGOPTR,X1
      749   01 002A5    22B002B3              LI,R11   ZTRN10
      750   01 002A6    55B202C8              STH,R11  ZTRN60,X1
      751   01 002A7    32B0068E              LW,R11   ZPMADR
      752   01 002A8    35B0068F              STW,R11  ZPMPTR
      753   01 002A9    32B0068C              LW,R11   ZLKADR
      754   01 002AA    35B0068D              STW,R11  ZLKPTR
      755   01 002AB    32B012AA              LW,R11   ZEXADR
      756   01 002AC    6AF00498              BAL,R15  ZSTPTR
      757   01 002AD    32B0068A              LW,R11   ZLBADR
      758   01 002AE    35B0068B              STW,R11  ZLBPTR
      759   01 002AF    32C002CA              LW,R12   ZTRN100
      760   01 002B0    6AF005C6              BAL,R15  ZTMNCR
      761   01 002B1    72A002CE     ZPC210   LB,R10   ZNL
      762   01 002B2    35A00039 A            STW,R10  ZCHAR
      763                            *
      764                            * MAIN-LINE TRANSLATOR
      765                            *
      766   01 002B3    22800000 A   ZTRN10   LI,R8    0
      767   01 002B4    6AF00436              BAL,R15  ZFNDTB
      768   01 002B5    227FFFEA A            LI,X7    -ZOPLEN
      769   01 002B6    32BE02E1              LW,R11   ZOPTBL,X7
      770   01 002B7    71A0000B A            CB,R10   R11
      771   01 002B8    683002C7              BCR,3    ZTRN50
      772   01 002B9    657002B6              BIR,X7   %-3
      773   01 002BA    21A000C1 A            CI,R10   X'C1'
      774   01 002BB    691002C5              BCS,1    ZTRN40
      775   01 002BC    21A000E9 A            CI,R10   X'E9'
      776   01 002BD    692002C5              BCS,2    ZTRN40
      777   01 002BE    3280000A A            LW,R8    R10
      778   01 002BF    6AF00446              BAL,R15  ZFA+1
      779   01 002C0    227FFFEA A            LI,X7    -ZOPLEN
      780   01 002C1    32BE02E1              LW,R11   ZOPTBL,X7
      781   01 002C2    71A0000B A            CB,R10   R11
      782   01 002C3    683002C7              BCR,3    ZTRN50
      783   01 002C4    657002C1              BIR,X7   %-3
      784   01 002C5    22C00001 A   ZTRN40   LI,R12   X'01'
      785   01 002C6    6800047F              B        ZSNER
      786   01 002C7    EAF0000B A   ZTRN50   BAL,R15  *R11
      787   01 002C8    6AF002B3     ZTRN60   BAL,R15  ZTRN10
      788   01 002C9    680002B3              B        ZTRN10
      789   01 002CA    00010B38 A   ZTRN100  ZFMW     0,0,1,BA(ZNL)
      790                            *
      791                            * SYNTAX TEST LANGUAGE TABLE CONTAINING ALL SPECIAL CHARACTERS
      792                            *  ONE WORD PER SYNTAX OR SPECIAL CHARACTER
      793                            *   BITS 0-7      SYNTAX OR SPECIAL CHARACTER
      794                            *   BITS 8-14     RESERVED
      795                            *   BITS 15-31    SYNTAX PROCESSOR SUBROUTINE ADDRESS
      796                            *
      797         01 002CB           ZOPBEG   EQU      %
      798   01 002CB    5D000333     ZRP      ZFOT     X'5D',0,ZRPTRN    ) CLOSE LOOP
      799   01 002CC    610003F8     ZFS      ZFOT     X'61',0,ZFSTRN    / RELEASE TO EXECUTE
      800   01 002CD    4000038B     ZSP      ZFOT     X'40',0,ZPLTRN    FIELD SEPARATORS
      801   01 002CE    1500038B     ZNL      ZFOT     X'15',0,ZPLTRN    NL
      802   01 002CF    4E00038B     ZPL      ZFOT     X'4E',0,ZPLTRN    +
      803   01 002D0    5000038B              ZFOT     X'50',0,ZPLTRN    +
      804   01 002D1    60000308     ZMS      ZFOT     X'60',0,ZMSTRN    - FIELD DELETOR
      805         01 002D2           ZOPTB2   EQU      %
      806         00000007           ZOPLN2   EQU      %-ZOPBEG
      807   01 002D2    5B0002E1     ZDS      ZFOT     X'5B',0,ZDSTRN    % IMMEDIATE EXECUTION
      808   01 002D3    4D000324     ZLP      ZFOT     X'4D',0,ZLPTRN    ( OPEN LOOP
      809   01 002D4    7C000347     ZAS      ZFOT     X'7C',0,ZASTRN    ' TRANSFER OR LINK
      810   01 002D5    6B00038B     ZCO      ZFOT     X'6B',0,ZPLTRN    , PARAMETER SEPARATOR
      811   01 002D6    4B000342     ZPD      ZFOT     X'4B',0,ZPDTRN    . PLACE MARKER
      812   01 002D7    5C0002FF     ZCL      ZFOT     X'5C',0,ZCLTRN    * COMMENTS LINE
      813   01 002D8    7E000310     ZEQ      ZFOT     X'7E',0,ZEQTRN    = MNEMONIC REDEFINITION
      814   01 002D9    7A0002C5              ZFOT     X'7A',0,ZTRN40    0 CURRENTLY
      815   01 002DA    7B0002C5              ZFOT     X'7B',0,ZTRN40    =  UNDEFINED
      816   01 002DB    4C0002C5              ZFOT     X'4C',0,ZTRN40    <   SPECIAL
      817   01 002DC    6C0002C5              ZFOT     X'6C',0,ZTRN40    (   CHARACTERS
      818   01 002DD    5E0002C5              ZFOT     X'5E',0,ZTRN40    ;
      819   01 002DE    6E0002C5              ZFOT     X'6E',0,ZTRN40    >
      820   01 002DF    4F0002C5              ZFOT     X'4F',0,ZTRN40    1
      821   01 002E0    7D0002C5              ZFOT     X'7D',0,ZTRN40    '
      822         01 002E1           ZOPTBL   EQU      %
      823         00000016           ZOPLEN   EQU      %-ZOPBEG
      824                            *
      825                            * DOLLAR SIGN TRANSLATOR PROCESSOR TO INITIALIZE TRANSLATOR
      826                            *
      827   01 002E1    35F00032 A   ZDSTRN   STW,R15  ZDSLNK
      828   01 002E2    6AF004C9              BAL,R15  ZTST3
      829   01 002E3    35900697              STW,R9   P0
      830   01 002E4    3300003D A            MTW,0    ZDSFLG
      831   01 002E5    693002E8              BCS,3    %+3
      832   01 002E6    32F00693              LW,R15   ZEXPT0
      833   01 002E7    35F00033 A            STW,R15  ZDSPTR
      834   01 002E8    22B00697              LI,R11   P0
      835   01 002E9    6AF00498              BAL,R15  ZSTPTR
      836   01 002EA    35B0003D A            STW,R11  ZDSFLG
      837   01 002EB    22B002EE              LI,R11   ZDSSET
      838   01 002EC    55B202C8              STH,R11  ZTRN60,X1
      839   01 002ED    E8020032 A            B        *ZDSLNK,X1
      840                            *
      841                            * IMMEDIATE EXECUTION OF DIRECTIVE
      842                            *
      843   01 002EE    35F00032 A   ZDSSET   STW,R15  ZDSLNK
      844   01 002EF    6AF00523              BAL,R15  ZSCIR
      845   01 002F0    33000697              MTW,0    P0
      846   01 002F1    683002F9              BCR,3    ZDSSET10
      847   01 002F2    22B00697              LI,R11   P0
      848   01 002F3    6AF00498              BAL,R15  ZSTPTR
      849   01 002F4    6AF0062E              BAL,R15  ZMPTWA
      850   01 002F5    B2B00693              LW,R11   *ZEXPT0
      851   01 002F6    EAF0000B A            BAL,R15  *R11
      852   01 002F7    680002F8              B        %+1
      853   01 002F8    6AF00523              BAL,R15  ZSCIR
      854   01 002F9    3500003D A   ZDSSET10 STW,R0   ZDSFLG
      855   01 002FA    22B002B3              LI,R11   ZTRN10
      856   01 002FB    55B202C8              STH,R11  ZTRN60,X1
      857   01 002FC    32B00033 A            LW,R11   ZDSPTR
      858   01 002FD    6AF00498              BAL,R15  ZSTPTR
      859   01 002FE    E8000032 A            B        *ZDSLNK
      860                            *
      861                            * ASTERISK TRANSLATOR PROCESSOR, VERIFIES LEGAL COMMENTS LINE
      862                            *  OR AN ERRONEOUS ENTRY, IF LEGAL WAIT FOR NL TO TERMINATE
      863                            *   COMMENTS LINE AND RETURN TO MAIN-LINE TRANSLATOR, IF ILLEGAL
      864                            *    DELETE CURRENT FIELD AND OUTPUT ERROR MESSAGE AND RETURN TO
      865                            *     MAIN-LINE TRANSLATOR FOR RE-ENTRY OF SAME FIELD
      866                            *      NO EXECUTE TABLE ENTRY
      867                            *
      868   01 002FF    35F00022 A   ZCLTRN   STW,R15  ZCLLNK
      869   01 00300    22C00010 A            LI,R12   X'10'
      870   01 00301    32F0003A A            LW,R15   ZLSTCH
      871   01 00302    71F002CE              CB,R15   ZNL
      872   01 00303    6930047F              BCS,3    ZSNER
      873   01 00304    6AF00459              BAL,R15  ZFOC
      874   01 00305    71A002CE              CB,R10   ZNL
      875   01 00306    69300304              BCS,3    %-2
      876   01 00307    E8000022 A            B        *ZCLLNK
      877                            *
      878                            * MINUS SIGN TRANSLATOR PROCESSOR
      879                            *  DELETES CURRENT FIELD FOR RE-ENTRY
      880                            *   NO EXECUTE TABLE ENTRY
      881                            *
      882   01 00308    35F00024 A   ZMSTRN   STW,R15  ZMSLNK
      883   01 00309    32B00693              LW,R11   ZEXPT0
      884   01 0030A    6AF00498              BAL,R15  ZSTPTR
      885   01 0030B    22C00000 A            LI,R12   0
      886   01 0030C    B5C00693              STW,R12  *ZEXPT0
      887   01 0030D    32C002CA              LW,R12   ZTRN100
      888   01 0030E    6AF005C6              BAL,R15  ZTMNCR
      889   01 0030F    E8000024 A            B        *ZMSLNK
      890                            *
      891                            * EQUAL TRANSLATOR PROCESSOR, NO EXECUTE TABLE ENTRY
      892                            *  RE-ASSIGN MNEMONIC SUB-ROUTINE, ALPHA CHARACTERS ONLY
      893                            *   VERIFIES MNEMONIC EXISTS AND RE-ASSIGN MNEMONIC NON-EXISTENT
      894                            *    REPLACES (DELETES) CURRENT MNEMONIC NAME
      895                            *     INSERTS NEW MNEMONIC INTO SUBROUTINE DICTIONARY
      896                            *
      897   01 00310    35F00023 A   ZEQTRN   STW,R15  ZEQLNK
      898   01 00311    6AF004C9              BAL,R15  ZTST3
      899   01 00312    32900008 A            LW,R9    R8
      900   01 00313    6AF00445              BAL,R15  ZFA
      901   01 00314    33000008 A            MTW,0    R8
      902   01 00315    6830031D              BCR,3    ZEQTRN10
      903   01 00316    227FFFE8 A            LI,X7    -ZSRLEN
      904   01 00317    35700006 A            STW,X7   X6
      905   01 00318    318E06FE              CW,R8    ZSRTBL,X7
      906   01 00319    6830031D              BCR,3    ZEQTRN10
      907   01 0031A    319E06FE              CW,R9    ZSRTBL,X7
      908   01 0031B    68300321              BCR,3    ZEQTRN20
      909   01 0031C    65700317              BIR,X7   %-5
      910   01 0031D    22C00053 A   ZEQTRN10 LI,R12   X'53'
      911   01 0031E    6800047F              B        ZSNER
      912   01 0031F    319E06FE              CW,R9    ZSRTBL,X7
      913   01 00320    6830031D              BCR,3    ZEQTRN10
      914   01 00321    6570031F     ZEQTRN20 BIR,X7   %-2
      915   01 00322    358C06FE              STW,R8   ZSRTBL,X6
      916   01 00323    E8000023 A            B        *ZEQLNK
      917                            *
      918                            * LEFT PARAN TRANSLATOR PROCESSOR FOR OPEN LOOP
      919                            *  EXECUTE TABLE ENTRY EQUALS TWO WORDS FOR REITERATION COUNT
      920                            *   GREATER THAN ONE, NON-EXISTENT FOR 0 AND 1
      921                            *
      922   01 00324    35F00025 A   ZLPTRN   STW,R15  ZLPLNK
      923   01 00325    6AF004D0              BAL,R15  ZTST7
      924   01 00326    32F0065B              LW,R15   ZLPPRO
      925   01 00327    B5F00693              STW,R15  *ZEXPT0
      926   01 00328    6AF004AD              BAL,R15  ZTST1
      927   01 00329    22F00000 A            LI,R15   0
      928   01 0032A    33000009 A            MTW,0    R9
      929   01 0032B    6820032D              BCR,2    %+2
      930   01 0032C    32F00693              LW,R15   ZEXPT0
      931   01 0032D    B5F0068B              STW,R15  *ZLBPTR
      932   01 0032E    3310068B              MTW,1    ZLBPTR
      933   01 0032F    33000009 A            MTW,0    R9
      934   01 00330    E8200025 A            BCR,2    *ZLPLNK
      935   01 00331    6AF00494              BAL,R15  ZADPTR
      936   01 00332    E8000025 A            B        *ZLPLNK
      937                            *
      938                            * RIGHT PARAN TRANSLATOR PROCESSOR FOR CLOSE LOOP
      939                            *  EXECUTE TABLE ENTRY EQUALS TWO WORDS
      940                            *   SECOND WORD CONTAINS ADDRESS OF BASE WORD FOR START OF LOOP
      941                            *
      942   01 00333    35F00025 A   ZRPTRN   STW,R15  ZRPLNK
      943   01 00334    6AF0038B              BAL,R15  ZPLTRN
      944   01 00335    6AF004D0              BAL,R15  ZTST7
      945   01 00336    22C00040 A            LI,R12   X'40'
      946   01 00337    32F0068B              LW,R15   ZLBPTR
      947   01 00338    31F0068A              CW,R15   ZLBADR
      948   01 00339    6830047F              BCR,3    ZSNER
      949   01 0033A    32F0065C              LW,R15   ZRPPRO-1
      950   01 0033B    B5F00693              STW,R15  *ZEXPT0
      951   01 0033C    33F0068B              MTW,-1   ZLBPTR
      952   01 0033D    B2F0068B              LW,R15   *ZLBPTR
      953   01 0033E    E8200025 A            BCR,2    *ZRPLNK
      954   01 0033F    B5F00694              STW,R15  *ZEXPT1
      955   01 00340    6AF00494              BAL,R15  ZADPTR
      956   01 00341    E8000025 A            B        *ZRPLNK
      957                            *
      958                            * PERIOD , PLACE MARKER, TRANSLATOR PROCESSOR
      959                            *  LEGAL IF NON-ZERO PLACE MARKER, MARK PLACE IN CONTROL LINE
      960                            *   ILLEGAL IF ZERO PLACE MARKER AND/OR PREVIOUSLY DEFINED
      961                            *     NO EXECUTE TABLE ENTRY, ENTRY TO PLACE MARKER TABLE
      962                            *
      963   01 00342    35F00027 A   ZPDTRN   STW,R15  ZPDLNK
      964   01 00343    6AF004D0              BAL,R15  ZTST7
      965   01 00344    6AF004C3              BAL,R15  ZTST2
      966   01 00345    6AF00354              BAL,R15  ZPMEN
      967   01 00346    E8000027 A            B        *ZPDLNK
      968                            *
      969                            * DELTA TRANSLATOR PROCESSOR
      970                            *  ABSOLUTE TRANSFER REFERENCE TO NON-ZERO PLACE MARKER
      971                            *   LINK RETURN TRANSFER REFERENCE TO ZERO PLACE MARKER
      972                            *     ABSOLUTE TRANSFER EQUALS TWO WORD ENTRY TO EXECUTE TABLE
      973                            *      LINK TRANSFER EQUALS ONE WORD ENTRY TO EXECUTE TABLE
      974                            *
      975   01 00347    35F00028 A   ZASTRN   STW,R15  ZASLNK
      976   01 00348    6AF004D0              BAL,R15  ZTST7
      977   01 00349    22F00670              LI,R15   ZLKAS
      978   01 0034A    B5F00693              STW,R15  *ZEXPT0
      979   01 0034B    33000009 A            MTW,0    R9
      980   01 0034C    68300351              BCR,3    ZASTRN10
      981   01 0034D    32F0066E              LW,R15   ZASPRO-1
      982   01 0034E    B5F00693              STW,R15  *ZEXPT0
      983   01 0034F    6AF004C3              BAL,R15  ZTST2
      984   01 00350    6AF00353              BAL,R15  ZPMRQ
      985   01 00351    6AF00494     ZASTRN10 BAL,R15  ZADPTR
      986   01 00352    E8000028 A            B        *ZASLNK
      987                            *
      988                            * PLACE MARKER PROCESSOR FOR PLACE MARKER TABLE
      989                            *  PROCESSES PLACE MARKER ENTRIES AND REQUESTS
      990                            *   ASSUMES R9 CONTAINS BINARY VALUE FOR PLACE MARKER
      991                            *
      992   01 00353    20900800 A   ZPMRQ    AI,R9    X'800'
      993   01 00354    35F00029 A   ZPMEN    STW,R15  ZPMLNK
      994   01 00355    3270068E              LW,X7    ZPMADR
      995   01 00356    3870068F              SW,X7    ZPMPTR
      996   01 00357    6830037A              BCR,3    ZPMEN40
      997   01 00358    B2BE068F     ZPMEN10  LW,R11   *ZPMPTR,X7
      998   01 00359    25B0046F A            SAS,R11  -17
      999   01 0035A    21900800 A            CI,R9    X'800'
     1000   01 0035B    69400362              BCS,4    ZPMEN20
     1001   01 0035C    21B00800 A            CI,R11   X'800'
     1002   01 0035D    6940036C              BCS,4    ZPMEN30
     1003   01 0035E    3190000B A            CW,R9    R11
     1004   01 0035F    69300379              BCS,3    ZPMEN40-1
     1005   01 00360    22C00031 A            LI,R12   X'31'
     1006   01 00361    6800047F              B        ZSNER
     1007   01 00362    21B00800 A   ZPMEN20  CI,R11   X'800'
     1008   01 00363    69400379              BCS,4    ZPMEN40-1
     1009   01 00364    20B00800 A            AI,R11   X'800'
     1010   01 00365    3190000B A            CW,R9    R11
     1011   01 00366    69300379              BCS,3    ZPMEN40-1
     1012   01 00367    22B1FFFF A            LI,R11   X'1FFFF'
     1013   01 00368    CBBE068F              AND,R11  *ZPMPTR,X7
     1014   01 00369    B5B00694              STW,R11  *ZEXPT1
     1015   01 0036A    6AF0049A              BAL,R15  ZTST4
     1016   01 0036B    E8000029 A            B        *ZPMLNK
     1017   01 0036C    22F003FF A   ZPMEN30  LI,R15   X'3FF'
     1018   01 0036D    4BB0000F A            AND,R11  R15
     1019   01 0036E    3190000B A            CW,R9    R11
     1020   01 0036F    69300379              BCS,3    ZPMEN40-1
     1021   01 00370    33F0002D A            MTW,-1   ZUDFPM
     1022   01 00371    B2FE068F              LW,R15   *ZPMPTR,X7
     1023   01 00372    32B00693              LW,R11   ZEXPT0
     1024   01 00373    B5B0000F A            STW,R11  *R15
     1025   01 00374    33F0068F              MTW,-1   ZPMPTR
     1026   01 00375    B2B0068F              LW,R11   *ZPMPTR
     1027   01 00376    33100007 A            MTW,1    X7
     1028   01 00377    B5BE068F              STW,R11  *ZPMPTR,X7
     1029   01 00378    68000355              B        ZPMEN+1
     1030   01 00379    65700358              BIR,X7   ZPMEN10
     1031   01 0037A    21900800 A   ZPMEN40  CI,R9    X'800'
     1032   01 0037B    6940037F              BCS,4    %+4
     1033   01 0037C    25900411 A            SAS,R9   17
     1034   01 0037D    49900693              OR,R9    ZEXPT0
     1035   01 0037E    68000383              B        %+5
     1036   01 0037F    3310002D A            MTW,1    ZUDFPM
     1037   01 00380    25900411 A            SAS,R9   17
     1038   01 00381    49900694              OR,R9    ZEXPT1
     1039   01 00382    6AF0049A              BAL,R15  ZTST4
     1040   01 00383    B590068F              STW,R9   *ZPMPTR
     1041   01 00384    22C00030 A            LI,R12   X'30'
     1042   01 00385    32B0068F              LW,R11   ZPMPTR
     1043   01 00386    3310000B A            MTW,1    R11
     1044   01 00387    31B00690              CW,R11   ZMFRIOAD
     1045   01 00388    6920047F              BCS,2    ZSNER
     1046   01 00389    35B0068F              STW,R11  ZPMPTR
     1047   01 0038A    E8000029 A            B        *ZPMLNK
     1048                            *
     1049                            * FIELD SEPARATORS,SPACE,PLUS,NEW LINE,ETC.
     1050                            *  PROCESSES LEADING DECIMAL RE-ITERATION COUNT OR PLACE MARKER
     1051                            *   IDENTIFIER FIELD FOR CALLED SUB-ROUTINE
     1052                            *    PROCESSES TRAILING PARAMETERS FOR SUB-ROUTINES
     1053                            *
     1054   01 0038B    33000008 A   ZPLTRN   MTW,0    R8
     1055   01 0038C    683004C9              BCR,3    ZTST3
     1056   01 0038D    35F0002C A            STW,R15  ZPLLNK
     1057   01 0038E    227FFFE8 A            LI,X7    -ZSRLEN
     1058   01 0038F    318E06FE              CW,R8    ZSRTBL,X7
     1059   01 00390    68300394              BCR,3    ZPLTRN20
     1060   01 00391    6570038F              BIR,X7   %-2
     1061   01 00392    22C00050 A            LI,R12   X'50'
     1062   01 00393    6800047F              B        ZSNER
     1063   01 00394    32BE0716     ZPLTRN20 LW,R11   ZSRADR,X7
     1064   01 00395    B5B00693              STW,R11  *ZEXPT0
     1065   01 00396    F2C00693              LB,R12   *ZEXPT0
     1066   01 00397    4BC00003 A            AND,R12  R3
     1067   01 00398    683002C7              BCR,3    ZTRN50
     1068   01 00399    3300003D A            MTW,0    ZDSFLG
     1069   01 0039A    693003AF              BCS,3    ZPLTRN30
     1070   01 0039B    22C00051 A            LI,R12   X'51'
     1071   01 0039C    7110000B A            CB,R1    R11
     1072   01 0039D    6840047F              BCR,4    ZSNER
     1073   01 0039E    25B00206 A            SCS,R11  6
     1074   01 0039F    25B00402 A            SAS,R11  2
     1075   01 003A0    F5B00693              STB,R11  *ZEXPT0
     1076   01 003A1    6AF004AD              BAL,R15  ZTST1
     1077   01 003A2    6AF003BB              BAL,R15  ZCOTRN
     1078   01 003A3    22F002C8              LI,R15   ZTRN60
     1079   01 003A4    71A002D1              CB,R10   ZMS
     1080   01 003A5    E83002D1              BCR,3    *ZMS
     1081   01 003A6    6AF00494              BAL,R15  ZADPTR
     1082   01 003A7    22800000 A            LI,R8    0
     1083   01 003A8    22900000 A            LI,R9    0
     1084   01 003A9    22F002C8              LI,R15   ZTRN60
     1085   01 003AA    71A002CC              CB,R10   ZFS
     1086   01 003AB    E83002CC              BCR,3    *ZFS
     1087   01 003AC    71A002CB              CB,R10   ZRP
     1088   01 003AD    E83002CB              BCR,3    *ZRP
     1089   01 003AE    E800002C A            B        *ZPLLNK
     1090   01 003AF    22C00052 A   ZPLTRN30 LI,R12   X'52'
     1091   01 003B0    7120000B A            CB,R2    R11
     1092   01 003B1    6840047F              BCR,4    ZSNER
     1093   01 003B2    25B00204 A            SCS,R11  4
     1094   01 003B3    25B00404 A            SAS,R11  4
     1095   01 003B4    F5B00693              STB,R11  *ZEXPT0
     1096   01 003B5    6AF004C9              BAL,R15  ZTST3
     1097   01 003B6    6AF003BB              BAL,R15  ZCOTRN
     1098   01 003B7    22F002C8              LI,R15   ZTRN60
     1099   01 003B8    71A002D1              CB,R10   ZMS
     1100   01 003B9    E83002D1              BCR,3    *ZMS
     1101   01 003BA    680002C8              B        ZTRN60
     1102                            *
     1103                            * COMMA TRANSLATOR PROCESSOR
     1104                            *  CALLED ONLY BY FIELD SEPARATOR TRANSLATOR PROCESSOR
     1105                            *   PROCESSES ALL SUB-ROUTINE TRAILING PARAMETERS
     1106                            *
     1107   01 003BB    35F0002A A   ZCOTRN   STW,R15  ZCOLNK
     1108   01 003BC    32B00694              LW,R11   ZEXPT1
     1109   01 003BD    35B00030 A            STW,R11  ZPCHK
     1110   01 003BE    35B00031 A            STW,R11  ZPCHK1
     1111   01 003BF    F2B00693              LB,R11   *ZEXPT0
     1112   01 003C0    25B0047C A            SAS,R11  -4
     1113   01 003C1    35B0002F A            STW,R11  ZPCNT
     1114   01 003C2    75B60455              STB,R11  ZPC7M,X3
     1115   01 003C3    D2B20693              LH,R11   *ZEXPT0,X1
     1116   01 003C4    38B0002F A            SW,R11   ZPCNT
     1117   01 003C5    35B0002E A            STW,R11  ZPTY
     1118   01 003C6    22800000 A   ZCOTRN10 LI,R8    0
     1119   01 003C7    22900000 A            LI,R9    0
     1120   01 003C8    B5800694              STW,R8   *ZEXPT1
     1121   01 003C9    F270002E A            LB,R7    *ZPTY
     1122   01 003CA    33F0002F A            MTW,-1   ZPCNT
     1123   01 003CB    691003DD              BCS,1    ZCOTRN50
     1124   01 003CC    71A002D5              CB,R10   ZCO
     1125   01 003CD    683003D4              BCR,3    ZCOTRN30
     1126   01 003CE    71A60455              CB,R10   ZPC7M,X3
     1127   01 003CF    683003D4              BCR,3    ZCOTRN30
     1128   01 003D0    21700008 A            CI,R7    8
     1129   01 003D1    684003D7              BCR,4    ZCOTRN40
     1130   01 003D2    22C00055 A            LI,R12   X'55'
     1131   01 003D3    6800047F              B        ZSNER
     1132   01 003D4    2570047C A   ZCOTRN30 SAS,R7   -4
     1133   01 003D5    670E03F0              EXU      ZPRTYP,X7
     1134   01 003D6    B5900694              STW,R9   *ZEXPT1
     1135   01 003D7    3310002E A   ZCOTRN40 MTW,1    ZPTY
     1136   01 003D8    6AF0049A              BAL,R15  ZTST4
     1137   01 003D9    33000009 A            MTW,0    R9
     1138   01 003DA    683003C6              BCR,3    ZCOTRN10
     1139   01 003DB    35B00031 A            STW,R11  ZPCHK1
     1140   01 003DC    680003C6              B        ZCOTRN10
     1141   01 003DD    71A60455     ZCOTRN50 CB,R10   ZPC7M,X3
     1142   01 003DE    693003E0              BCS,3    %+2
     1143   01 003DF    22A00040 A            LI,R10   X'40'
     1144   01 003E0    227FFFF9 A            LI,X7    -ZOPLN2
     1145   01 003E1    32BE02D2              LW,R11   ZOPTB2,X7
     1146   01 003E2    71A0000B A            CB,R10   R11
     1147   01 003E3    683003E7              BCR,3    ZCOTRN60
     1148   01 003E4    657003E1              BIR,X7   %-3
     1149   01 003E5    22C00054 A            LI,R12   X'54'
     1150   01 003E6    6800047F              B        ZSNER
     1151   01 003E7    32B00031 A   ZCOTRN60 LW,R11   ZPCHK1
     1152   01 003E8    38B00030 A            SW,R11   ZPCHK
     1153   01 003E9    25B00404 A            SAS,R11  4
     1154   01 003EA    22F0000F A            LI,R15   X'F'
     1155   01 003EB    F2700693              LB,R7    *ZEXPT0
     1156   01 003EC    4B70000F A            AND,R7   R15
     1157   01 003ED    49B00007 A            OR,R11   R7
     1158   01 003EE    F5B00693              STB,R11  *ZEXPT0
     1159   01 003EF    E800002A A            B        *ZCOLNK
     1160                            *
     1161                            * VARIABLE ENTRY TABLE TO PARAMETER PROCESSORS
     1162                            *
     1163   01 003F0    6AF00430     ZPRTYP   BAL,R15  ZFNUP
     1164   01 003F1    6AF00433              BAL,R15  ZFN
     1165   01 003F2    6AF00436              BAL,R15  ZFNDTB
     1166   01 003F3    6AF0043C              BAL,R15  ZFOCT
     1167   01 003F4    6AF0043F              BAL,R15  ZFH
     1168   01 003F5    6AF00442              BAL,R15  ZPC5
     1169   01 003F6    6AF00448              BAL,R15  ZPC6
     1170   01 003F7    6AF0044E              BAL,R15  ZPC7
     1171                            *
     1172                            * PARAMETER INFORMATION
     1173                            *  PARAMETER DECODE WORD FORMAT
     1174                            *   BIT 0-3    CODE TYPE
     1175                            *       4      ON-PARAMETER REQUIRED
     1176                            *              OFF-PARAMETER NOT REQUIRED
     1177                            *
     1178                            *  CODE TYPE
     1179                            *      0       NUMERIC 0-9 ONLY; STORE WITH ZONE BITS
     1180                            *      1       NUMERIC 0-9 ONLY; STORE WITHOUT ZONE BITS
     1181                            *      2       NUMERIC 0-9 ONLY; CONVERT TO BINARY
     1182                            *      3       NUMERIC 0-7 ONLY, OCTAL
     1183                            *      4       HEXADECIMAL 0-9 A-F; STORE AS BINARY VALUE
     1184                            *      5       ALPHABETIC ONLY A-Z
     1185                            *      6       ALPHA-NUMERIC ONLY A-Z 0-9
     1186                            *      7       ANY CHARACTER; FIRST CHARACTER REPRESENTS
     1187                            *               TERMINATOR, BOTH NOT PUTAWAY
     1188                            *
     1189                            *
     1190                            * FORWARD SLASH TRANSLATOR PROCESSOR, TERMINATE CONTROL
     1191                            *  EXECUTE TABLE ENTRY EQUALS TWO WORDS
     1192                            *   VERFIES ALL LOOPS AND PLACE MARKER REQUESTS PROCESSED
     1193                            *    VERFIES LAST DIRECTIVE PROCESSED
     1194                            *     SAVES THIS ENTRY LOCATION FOR POSSIBLE EXTEND OR PATCH
     1195                            *
     1196   01 003F8    35F0002B A   ZFSTRN   STW,R15  ZFSLNK
     1197   01 003F9    6AF0038B              BAL,R15  ZPLTRN
     1198   01 003FA    3300003D A            MTW,0    ZDSFLG
     1199   01 003FB    E930002B A            BCS,3    *ZFSLNK
     1200   01 003FC    32B0066A              LW,R11   ZFSPRO-1
     1201   01 003FD    B5B00693              STW,R11  *ZEXPT0
     1202   01 003FE    22C00101 A            LI,R12   X'101'
     1203   01 003FF    32B012AA              LW,R11   ZEXADR
     1204   01 00400    31B00693              CW,R11   ZEXPT0
     1205   01 00401    6830047F              BCR,3    ZSNER
     1206   01 00402    B5B00694              STW,R11  *ZEXPT1
     1207   01 00403    22C00041 A            LI,R12   X'41'
     1208   01 00404    32B0068B              LW,R11   ZLBPTR
     1209   01 00405    31B0068A              CW,R11   ZLBADR
     1210   01 00406    6920047F              BCS,2    ZSNER
     1211   01 00407    33000009 A            MTW,0    R9
     1212   01 00408    6830040B              BCR,3    %+3
     1213   01 00409    6AF004C3              BAL,R15  ZTST2
     1214   01 0040A    6AF00353              BAL,R15  ZPMRQ
     1215   01 0040B    22C00032 A            LI,R12   X'32'
     1216   01 0040C    3300002D A            MTW,0    ZUDFPM
     1217   01 0040D    6920047F              BCS,2    ZSNER
     1218   01 0040E    32B00693              LW,R11   ZEXPT0
     1219   01 0040F    6AF00498              BAL,R15  ZSTPTR
     1220   01 00410    B2B0000B A            LW,R11   *R11
     1221   01 00411    55B20667              STH,R11  ZGOPTR,X1
     1222   01 00412    52C2045C              LH,R12   ZMFRX7,X1
     1223   01 00413    55C2045D              STH,R12  ZMFRNBA,X1
     1224   01 00414    32C002CA              LW,R12   ZTRN100
     1225   01 00415    6AF005C6              BAL,R15  ZTMNCR
     1226   01 00416    68000620              B        ZEX00
     1227                            *
     1228                            * COMMON FETCH ROUTINE PARAMETERIZED BY ONE WORD FOLLOWING CALL
     1229                            *  LINK IN R14 AND LINK RETURN IN R15 TO FETCH WITHIN LIMITS
     1230                            *   REGISTER-MINIMUM-MAXIMUM-SHIFT
     1231                            *
     1232   01 00417    35E00035 A   ZCFR     STW,R14  ZCFRCA
     1233   01 00418    35F00034 A            STW,R15  ZCFRLNK
     1234   01 00419    6AF00459              BAL,R15  ZFOC
     1235   01 0041A    F1A20035 A            CB,R10   *ZCFRCA,X1
     1236   01 0041B    E9100034 A            BCS,1    *ZCFRLNK
     1237   01 0041C    F1A40035 A            CB,R10   *ZCFRCA,X2
     1238   01 0041D    E9200034 A            BCS,2    *ZCFRLNK
     1239   01 0041E    22F00441              LI,R15   ZFH+2
     1240   01 0041F    31F00035 A            CW,R15   ZCFRCA
     1241   01 00420    69300426              BCS,3    %+6
     1242   01 00421    21A000E9 A            CI,R10   X'E9'
     1243   01 00422    69200426              BCS,2    %+4
     1244   01 00423    21A000C6 A            CI,R10   X'C6'
     1245   01 00424    E9200034 A            BCS,2    *ZCFRLNK
     1246   01 00425    20A00009 A            AI,R10   X'9'
     1247   01 00426    32F0000A A            LW,R15   R10
     1248   01 00427    BA700035 A            LCW,X7   *ZCFRCA
     1249   01 00428    F2E00035 A            LB,R14   *ZCFRCA
     1250   01 00429    B2E0000E A            LW,R14   *R14
     1251   01 0042A    25FE0200 A            SCS,R15  0,X7
     1252   01 0042B    B2700035 A            LW,X7    *ZCFRCA
     1253   01 0042C    25EE0500 A            SAD,R14  0,X7
     1254   01 0042D    F2F00035 A            LB,R15   *ZCFRCA
     1255   01 0042E    B5E0000F A            STW,R14  *R15
     1256   01 0042F    68000419              B        ZCFR+2
     1257                            *
     1258                            * FETCH NUMERIC 0-9 UNPACKED ZONE BITS PRESENT
     1259                            *
     1260   01 00430    22900000 A   ZFNUP    LI,R9    0
     1261   01 00431    6AE00417              BAL,R14  ZCFR
     1262   01 00432    09F0F908 A            DATA     X'09F0F908'
     1263                            *
     1264                            * FETCH NUMERIC 0-9 PACKED ZONE BITS NOT PRESENT
     1265                            *
     1266   01 00433    22900000 A   ZFN      LI,R9    0
     1267   01 00434    6AE00417              BAL,R14  ZCFR
     1268   01 00435    09F0F904 A            DATA     X'09F0F904'
     1269                            *
     1270                            * FETCH NUMERIC 0-9 CONVERTED TO BINARY
     1271                            *
     1272   01 00436    35F00528     ZFNDTB   STW,R15  ZCSRL
     1273   01 00437    6AF00433              BAL,R15  ZFN
     1274   01 00438    46C00009 A            XW,R12   R9
     1275   01 00439    6AF004D4              BAL,R15  ZDTB
     1276   01 0043A    46C00009 A            XW,R12   R9
     1277   01 0043B    E8000528              B        *ZCSRL
     1278                            *
     1279                            * FETCH OCTAL 0-7 BINARY VALUE
     1280                            *
     1281   01 0043C    22900000 A   ZFOCT    LI,R9    0
     1282   01 0043D    6AE00417              BAL,R14  ZCFR
     1283   01 0043E    09F0F703 A            DATA     X'09F0F703'
     1284                            *
     1285                            * FETCH HEXADECIMAL 0-F BINARY VALUE
     1286                            *
     1287   01 0043F    22900000 A   ZFH      LI,R9    0
     1288   01 00440    6AE00417              BAL,R14  ZCFR
     1289   01 00441    09C1F904 A            DATA     X'09C1F904'
     1290                            *
     1291                            * FETCH ALPHABETIC A-Z UNPACKED ZONE BITS PRESENT
     1292                            *
     1293   01 00442    22900000 A   ZPC5     LI,R9    0
     1294   01 00443    6AE00417              BAL,R14  ZCFR
     1295   01 00444    09C1E908 A            DATA     X'09C1E908'
     1296   01 00445    22800000 A   ZFA      LI,R8    0
     1297   01 00446    6AE00417              BAL,R14  ZCFR
     1298   01 00447    08C1E908 A            DATA     X'08C1E908'
     1299                            *
     1300                            * FETCH ALPHA -NUMERIC 0-9 A-Z UNPACKED ZONE BITS PRESENT
     1301                            *
     1302   01 00448    22900000 A   ZPC6     LI,R9    0
     1303   01 00449    6AE00417              BAL,R14  ZCFR
     1304   01 0044A    09C1F908 A            DATA     X'09C1F908'
     1305   01 0044B    22800000 A   ZFAN     LI,R8    0
     1306   01 0044C    6AE00417              BAL,R14  ZCFR
     1307   01 0044D    08C1F908 A            DATA     X'08C1F908'
     1308                            *
     1309                            * FETCH ANY CHARACTER *SPECIAL APPLICATIONS*
     1310                            *  FIRST CHARACTER REPRESENTS TERMINATOR WITH FIRST AND
     1311                            *   LAST CHARACTER NOT INCLUDED IN BYTE COUNT
     1312                            *
     1313   01 0044E    35F00036 A   ZPC7     STW,R15  ZPC7LNK
     1314   01 0044F    6AF00459              BAL,R15  ZFOC
     1315   01 00450    75A60455              STB,R10  ZPC7M,X3
     1316   01 00451    52F2045C              LH,R15   ZMFRX7,X1
     1317   01 00452    B5F00694              STW,R15  *ZEXPT1
     1318   01 00453    6AF00459              BAL,R15  ZFOC
     1319   01 00454    B2900694              LW,R9    *ZEXPT1
     1320   01 00455    21A00000 A   ZPC7M    CI,R10   0
     1321   01 00456    E8300036 A            BCR,3    *ZPC7LNK
     1322   01 00457    F3100694              MTB,1    *ZEXPT1
     1323   01 00458    68000453              B        %-5
     1324                            *
     1325                            * MAINLINE FETCH ROUTINE VIA TYPEWRITER OR CARD READER
     1326                            *  INPUT CONTROL LINE SYNTAX TO INPUT/OUTPUT AREA
     1327                            *
     1328   01 00459    35F00037 A   ZFOC     STW,R15  ZMFRLNK
     1329   01 0045A    32A00039 A            LW,R10   ZCHAR
     1330   01 0045B    35A0003A A            STW,R10  ZLSTCH
     1331   01 0045C    22700000 A   ZMFRX7   LI,R7    0
     1332   01 0045D    21700000 A   ZMFRNBA  CI,R7    0
     1333   01 0045E    69100477              BCS,1    ZMFRTCBA
     1334   01 0045F    5572047C              STH,R7   ZMFRCW0,X1
     1335   01 00460    32A00691              LW,R10   ZIOADR
     1336   01 00461    25A00402 A            SAS,R10  2
     1337   01 00462    58A2045D              SH,R10   ZMFRNBA,X1
     1338   01 00463    6830047E              BCR,3    ZMFRIOF
     1339   01 00464    21A00050 A            CI,R10   80
     1340   01 00465    69100467              BCS,1    %+2
     1341   01 00466    22A00050 A            LI,R10   80
     1342   01 00467    52F2052B              LH,R15   ZDKB+1,X1
     1343   01 00468    51F20471              CH,R15   ZMFRDA,X1
     1344   01 00469    6930046B              BCS,3    %+2
     1345   01 0046A    22A00001 A            LI,R10   1
     1346   01 0046B    55A2047D              STH,R10  ZMFRCW1,X1
     1347   01 0046C    50A2045C              AH,R10   ZMFRX7,X1
     1348   01 0046D    55A2045D              STH,R10  ZMFRNBA,X1
     1349   01 0046E    CDC00471              TIO,R12  *ZMFRDA
     1350   01 0046F    69C0046E              BCS,12   %-1
     1351   01 00470    2200023E              LI,R0    DA(ZMFRCW0)
     1352   01 00471    4CC00001 A   ZMFRDA   SIO,R12  1
     1353   01 00472    69C00471              BCS,12   %-1
     1354   01 00473    CDC00471              TIO,R12  *ZMFRDA
     1355   01 00474    72D0000D A            LB,R13   R13
     1356   01 00475    21D00060 A            CI,R13   X'60'
     1357   01 00476    69400473              BCS,4    %-3
     1358   01 00477    72AE0000 A   ZMFRTCBA LB,R10   0,X7
     1359   01 00478    35A00039 A            STW,R10  ZCHAR
     1360   01 00479    3310045C              MTW,1    ZMFRX7
     1361   01 0047A    E8000037 A            B        *ZMFRLNK
     1362                                     BOUND 8
     1363   01 0047C    0E0011F0     ZMFRCW0  ZFCP     X'E',BA(%)
     1364   01 0047D    02000001 A   ZMFRCW1  ZFCP     2,1
     1365                            *
     1366                            * SYNTAX ERROR REPORTER
     1367                            *
     1368   01 0047E    22C00120 A   ZMFRIOF  LI,R12   X'120'
     1369   01 0047F    6AF004FD     ZSNER    BAL,R15  ZBTH
     1370   01 00480    25D00208 A            SCS,R13  8
     1371   01 00481    35D00493              STW,R13  ZSNMSG+2
     1372   01 00482    22F00015 A            LI,R15   X'15'
     1373   01 00483    75F60493              STB,R15  ZSNMSG+2,X3
     1374   01 00484    52C2045C              LH,R12   ZMFRX7,X1
     1375   01 00485    55C2045D              STH,R12  ZMFRNBA,X1
     1376   01 00486    32C00490              LW,R12   ZSNERMW
     1377   01 00487    6AF005C9              BAL,R15  ZSML40
     1378   01 00488    72F00493              LB,R15   ZSNMSG+2
     1379   01 00489    21F000F0 A            CI,R15   X'F0'
     1380   01 0048A    69200288              BCS,2    ZPC010
     1381   01 0048B    52F2052E              LH,R15   ZDCR+1,X1
     1382   01 0048C    51F20471              CH,R15   ZMFRDA,X1
     1383   01 0048D    68300288              BCR,3    ZPC010
     1384   01 0048E    22F002C8              LI,R15   ZTRN60
     1385   01 0048F    E80002D1              B        *ZMS
     1386   01 00490    100C1244 A   ZSNERMW  ZFMW     1,0,12,BA(ZSNMSG)
     1387   01 00491    E2E8D540 A   ZSNMSG   TEXT     'SYN ERR     '
            01 00492    C5D9D940 A
            01 00493    40404040 A
     1388                            *
     1389                            * UPDATE EXECUTE TABLE POINTERS TO NEXT ENTRY
     1390                            *  BASED UPON PARAMETER COUNT AND/OR RE-ITERATION COUNT OR
     1391                            *   IDENTIFIER FIELD
     1392                            *
     1393   01 00494    F2B00693     ZADPTR   LB,R11   *ZEXPT0
     1394   01 00495    20B0001C A            AI,R11   X'1C'
     1395   01 00496    25B0047C A            SAS,R11  -4
     1396   01 00497    30B00693              AW,R11   ZEXPT0
     1397                            *
     1398                            * SET EXECUTE TABLE POINTERS FOR BASE WORD AND POSSIBLE
     1399                            *  RE-ITERATION COUNT OR PLACE MARKER ADDRESS FIELD
     1400                            *
     1401   01 00498    35B00693     ZSTPTR   STW,R11  ZEXPT0
     1402   01 00499    35B00694              STW,R11  ZEXPT1
     1403                            *
     1404                            * VERIFY EXECUTE TABLE NON-OVERFLOW
     1405                            *
     1406   01 0049A    33100694     ZTST4    MTW,1    ZEXPT1
     1407   01 0049B    32B00694              LW,R11   ZEXPT1
     1408   01 0049C    31B0068C              CW,R11   ZLKADR
     1409   01 0049D    E910000F A            BCS,1    *R15
     1410   01 0049E    22C00100 A            LI,R12   X'100'
     1411   01 0049F    6800047F              B        ZSNER
     1412                            *
     1413                            * ADVANCE POINTERS AND CLEAR RE-ITERATION COUNT FIELD
     1414                            *  IF EXISTENT IN EXECUTE TABLE ENTRY
     1415                            *
     1416   01 004A0    35F0000E A   ZADCRC   STW,R15  R14
     1417   01 004A1    6AF00494              BAL,R15  ZADPTR
     1418   01 004A2    680004A5              B        %+3
     1419                            *
     1420                            * SET POINTERS AND CLEAR RE-ITERATION COUNT FIELD
     1421                            *  (R11) CONTAINS BASE WORD VALUE
     1422                            *
     1423   01 004A3    35F0000E A   ZSTCRC   STW,R15  R14
     1424   01 004A4    6AF00498              BAL,R15  ZSTPTR
     1425   01 004A5    32F0000E A            LW,R15   R14
     1426                            *
     1427                            * CLEAR OR RESET RE-ITERATION COUNT FIELD IN EXECUTE TABLE
     1428                            *  ONLY IF RC FIELD IS EXISTENT
     1429                            *
     1430   01 004A6    F2B00693     ZCRC     LB,R11   *ZEXPT0
     1431   01 004A7    21B00008 A            CI,R11   8
     1432   01 004A8    E840000F A            BCR,4    *R15
     1433   01 004A9    D2B00694              LH,R11   *ZEXPT1
     1434   01 004AA    25B00410 A            SAS,R11  16
     1435   01 004AB    B5B00694              STW,R11  *ZEXPT1
     1436   01 004AC    E800000F A            B        *R15
     1437                            *
     1438                            * PROCESS LEADING DECIMAL SUB-FIELD ASSUMED BINARY IN R9
     1439                            *  RE-ITERATION COUNT LESS THAN 10K AND GREATER THAN 1
     1440                            *   PLACE MARKER IDENTIFIER LESS THAN 512
     1441                            *
     1442   01 004AD    F2B00693     ZTST1    LB,R11   *ZEXPT0
     1443   01 004AE    21B0000C A            CI,R11   X'C'
     1444   01 004AF    684004C9              BCR,4    ZTST3
     1445   01 004B0    21B00008 A            CI,R11   8
     1446   01 004B1    694004B7              BCS,4    ZTST1A
     1447   01 004B2    33000009 A            MTW,0    R9
     1448   01 004B3    683004B9              BCR,3    ZTST1AA
     1449   01 004B4    219001FF A            CI,R9    511
     1450   01 004B5    692004C7              BCS,2    ZTST2A
     1451   01 004B6    68000353              B        ZPMRQ
     1452   01 004B7    33F00009 A   ZTST1A   MTW,-1   R9
     1453   01 004B8    692004BD              BCS,2    ZTST1B
     1454   01 004B9    22C000F3 A   ZTST1AA  LI,R12   X'F3'
     1455   01 004BA    4BB0000C A            AND,R11  R12
     1456   01 004BB    F5B00693              STB,R11  *ZEXPT0
     1457   01 004BC    E800000F A            B        *R15
     1458   01 004BD    2190270F A   ZTST1B   CI,R9    9999
     1459   01 004BE    692004C7              BCS,2    ZTST2A
     1460   01 004BF    32C00009 A            LW,R12   R9
     1461   01 004C0    25C00410 A            SAS,R12  16
     1462   01 004C1    B5C00694     ZTST1C   STW,R12  *ZEXPT1
     1463   01 004C2    6800049A              B        ZTST4
     1464                            *
     1465                            * VERIFIES PLACE MARKER VALUE GREATER THAN ONE
     1466                            *  AND LESS THAN 512 DECIMAL
     1467                            *
     1468   01 004C3    33000009 A   ZTST2    MTW,0    R9
     1469   01 004C4    683004C7              BCR,3    ZTST2A
     1470   01 004C5    21900200 A            CI,R9    X'200'
     1471   01 004C6    E910000F A            BCS,1    *R15
     1472   01 004C7    22C00020 A   ZTST2A   LI,R12   X'20'
     1473   01 004C8    6800047F              B        ZSNER
     1474                            *
     1475                            * VERIFY NUMERIC ACCUMULATOR IS EMPTY (ZERO)
     1476                            *
     1477   01 004C9    33000009 A   ZTST3    MTW,0    R9
     1478   01 004CA    E830000F A            BCR,3    *R15
     1479   01 004CB    680004C7              B        ZTST2A
     1480                            *
     1481                            * VERIFY ALPHA ACCUMULATOR EMPTY (ZERO)
     1482                            *
     1483   01 004CC    33000008 A   ZTST6    MTW,0    R8
     1484   01 004CD    E830000F A            BCR,3    *R15
     1485   01 004CE    22C00021 A            LI,R12   X'21'
     1486   01 004CF    6800047F              B        ZSNER
     1487                            *
     1488                            * VERIFY TRANSLATOR NOT IN IMMEDIATE MODE
     1489                            *
     1490   01 004D0    3300003D A   ZTST7    MTW,0    ZDSFLG
     1491   01 004D1    E830000F A            BCR,3    *R15
     1492   01 004D2    22C00052 A            LI,R12   X'52'
     1493   01 004D3    6800047F              B        ZSNER
     1494                            *
     1495                            * DECIMAL TO BINARY CONVERTER FOUR BITS PER DIGIT
     1496                            *  (R12) VALUE TO CONVERT TO R12 AND ZTEMP
     1497                            *   (R15) LINK RETURN VALUE
     1498                            *
     1499   01 004D4    46C0000F A   ZDTB     XW,R12   R15
     1500   01 004D5    35F00695              STW,R15  ZTEMP
     1501   01 004D6    4BF004E6              AND,R15  ZDTB10
     1502   01 004D7    25F0027C A            SCS,R15  -4
     1503   01 004D8    23FFFFFA A            MI,R15   -6
     1504   01 004D9    30F00695              AW,R15   ZTEMP
     1505   01 004DA    35F00695              STW,R15  ZTEMP
     1506   01 004DB    4BF004E7              AND,R15  ZDTB20
     1507   01 004DC    25F00278 A            SCS,R15  -8
     1508   01 004DD    23FFFF64 A            MI,R15   -156
     1509   01 004DE    30F00695              AW,R15   ZTEMP
     1510   01 004DF    35F00695              STW,R15  ZTEMP
     1511   01 004E0    52F0000F A            LH,R15   R15
     1512   01 004E1    23FF2710 A            MI,R15   -55536
     1513   01 004E2    30F00695              AW,R15   ZTEMP
     1514   01 004E3    35F00695              STW,R15  ZTEMP
     1515   01 004E4    46C0000F A            XW,R12   R15
     1516   01 004E5    E800000F A            B        *R15
     1517   01 004E6    F0F0F0F0 A   ZDTB10   DATA     X'F0F0F0F0'
     1518   01 004E7    FF00FF00 A   ZDTB20   DATA     X'FF00FF00'
     1519                            *
     1520                            * BINARY TO DECIMAL CONVERTER FOUR BITS PER DIGIT
     1521                            *  (R12) VALUE TO CONVERT TO R12 AND ZTEMP
     1522                            *   (R15) LINK RETURN VALUE
     1523                            *
     1524   01 004E8    35D00528     ZBTD     STW,R13  ZCSRL
     1525   01 004E9    22D00400 A            LI,R13   X'400'
     1526   01 004EA    46C0000D A            XW,R12   R13
     1527   01 004EB    35C006A7              STW,R12  PX
     1528   01 004EC    22C00000 A            LI,R12   0
     1529   01 004ED    35C00695              STW,R12  ZTEMP
     1530   01 004EE    22C00000 A   ZBTD10   LI,R12   0
     1531   01 004EF    21D0000A A            CI,R13   10
     1532   01 004F0    691004F6              BCS,1    ZBTD20
     1533   01 004F1    36C004FC              DW,R12   ZBTD30
     1534   01 004F2    A5C006A7              S,R12    *PX
     1535   01 004F3    334006A7              MTW,4    PX
     1536   01 004F4    66C00695              AWM,R12  ZTEMP
     1537   01 004F5    680004EE              B        ZBTD10
     1538   01 004F6    32C00528     ZBTD20   LW,R12   ZCSRL
     1539   01 004F7    46C0000D A            XW,R12   R13
     1540   01 004F8    A5C006A7              S,R12    *PX
     1541   01 004F9    49C00695              OR,R12   ZTEMP
     1542   01 004FA    35C00695              STW,R12  ZTEMP
     1543   01 004FB    E800000F A            B        *R15
     1544   01 004FC    0000000A A   ZBTD30   DATA     10
     1545                            *
     1546                            * BINARY TO HEXADECIMAL CONVERTER
     1547                            *  (R12) VALUE TO CONVERT TO R12-R13 AND ZTEMP-ZTEMP1
     1548                            *   (R15) LINK RETURN VALUE
     1549                            *
     1550   01 004FD    35100528     ZBTH     STW,R1   ZCSRL
     1551   01 004FE    221FFFF8 A            LI,X1    -8
     1552   01 004FF    22D0000F A            LI,R13   X'F'
     1553   01 00500    25C00304 A            SCD,R12  4
     1554   01 00501    21D000FA A            CI,R13   X'FA'
     1555   01 00502    69100504              BCS,1    %+2
     1556   01 00503    20D000C7 A            AI,R13   X'C7'
     1557   01 00504    75D20697              STB,R13  ZTEMP1+1,X1
     1558   01 00505    651004FF              BIR,X1   ZBTH+2
     1559   01 00506    32C00695              LW,R12   ZTEMP
     1560   01 00507    32D00696              LW,R13   ZTEMP1
     1561   01 00508    32100528              LW,R1    ZCSRL
     1562   01 00509    E800000F A            B        *R15
     1563                            *
     1564                            * LEADING ZERO SUPPRESSION ON UNPACKED VALUE
     1565                            *  (R12) CONTAINS VALUE TO SUPPRESS
     1566                            *   (R15) CONTAINS LINK RETURN ADDRESS
     1567                            *
     1568   01 0050A    35F00528     ZSUP     STW,R15  ZCSRL
     1569   01 0050B    35100695              STW,X1   ZTEMP
     1570   01 0050C    221FFFFC A            LI,X1    -X'4'
     1571   01 0050D    22F000F0 A            LI,R15   X'F0'
     1572   01 0050E    71F2000D A            CB,R15   R12+1,X1
     1573   01 0050F    69300513              BCS,3    %+4
     1574   01 00510    22F00040 A            LI,R15   X'40'
     1575   01 00511    75F2000D A            STB,R15  R12+1,X1
     1576   01 00512    6510050D              BIR,X1   ZSUP+3
     1577   01 00513    32100695              LW,R1    ZTEMP
     1578   01 00514    35C00695              STW,R12  ZTEMP
     1579   01 00515    E8000528              B        *ZCSRL
     1580                            *
     1581                            * DECIMAL ADDER FOUR BITS PER DIGIT
     1582                            *  (R12) CURRENT DECIMAL ADDER VALUE
     1583                            *   (R15) LINK RETURN VALUE
     1584                            *
     1585   01 00516    35100695     ZDECADER STW,R1   ZTEMP
     1586   01 00517    221FFFF8 A            LI,X1    -8
     1587   01 00518    3310000C A            MTW,1    R12
     1588   01 00519    21C00008 A            CI,R12   X'8'
     1589   01 0051A    6840051E              BCR,4    %+4
     1590   01 0051B    21C00002 A            CI,R12   X'2'
     1591   01 0051C    6840051E              BCR,4    %+2
     1592   01 0051D    3360000C A            MTW,6    R12
     1593   01 0051E    25C0027C A            SCS,R12  -4
     1594   01 0051F    65100519              BIR,X1   %-6
     1595   01 00520    3210000C A            LW,R1    R12
     1596   01 00521    46100695              XW,R1    ZTEMP
     1597   01 00522    E800000F A            B        *R15
     1598                            *
     1599                            * INITIALIZE COMMON INDEX REGISTERS
     1600                            *
     1601   01 00523    22000000 A   ZSCIR    LI,R0    0
     1602   01 00524    22100001 A            LI,X1    1
     1603   01 00525    22200002 A            LI,X2    2
     1604   01 00526    22300003 A            LI,X3    3
     1605   01 00527    E800000F A            B        *R15
     1606   01 00528    00000000 A   ZCSRL    PZE
     1607                            *
     1608                            * DKB DIRECTIVE ASSIGNING DIRECTIVE INPUT VIA TYPEWRITER
     1609                            *
     1610   01 00529    40000000 A            DATA     X'40000000'
     1611   01 0052A    6AE0052F     ZDKB     BAL,R14  ZKBCRIOA
     1612   01 0052B    00000001 A            DATA     1
     1613                            *
     1614                            * DCR DIRECTIVE ASSIGNING DIRECTIVE INPUT VIA CARD READER
     1615                            *
     1616   01 0052C    40000000 A            DATA     X'40000000'
     1617   01 0052D    6AE0052F     ZDCR     BAL,R14  ZKBCRIOA
     1618   01 0052E    00000003 A            DATA     3
     1619                            *
     1620                            * PRESERVE TYPEWRITER/CARD READER INPUT/OUTPUT ADDRESS
     1621                            *
     1622   01 0052F    22001F7F A   ZKBCRIOA LI,R0    X'1F7F'
     1623   01 00530    4B000698              AND,R0   P1
     1624   01 00531    B500000E A            STW,R0   *R14
     1625   01 00532    55020471              STH,R0   ZMFRDA,X1
     1626   01 00533    5202045C              LH,R0    ZMFRX7,X1
     1627   01 00534    5502045D              STH,R0   ZMFRNBA,X1
     1628   01 00535    E800000F A            B        *R15
     1629                            *
     1630                            * SML DIRECTIVE ASSIGNING MESSAGE LEVELS TO BE REPORTED
     1631                            *
     1632   01 00536    10000000 A            DATA     X'10000000'
     1633   01 00537    32000698     ZSML     LW,R0    P1
     1634   01 00538    4B000003 A            AND,R0   R3
     1635   01 00539    550205D4              STH,R0   ZMSGKEY,X1
     1636   01 0053A    E800000F A            B        *R15
     1637                            *
     1638                            * SMD DIRECTIVE ASSIGNING MESSAGES TO TYPEWRITER OR LINE PRINTER
     1639                            *
     1640   01 0053B    40000000 A            DATA     X'40000000'
     1641   01 0053C    22001F7F A   ZSMD     LI,R0    X'1F7F'
     1642   01 0053D    4B000698              AND,R0   P1
     1643   01 0053E    550205EC              STH,R0   ZTWLPO,X1
     1644   01 0053F    E800000F A            B        *R15
     1645                            *
     1646                            * HLT DIRECTIVE TO IDENTIFY LOCATION IN CONTROL LINE
     1647                            *
     1648   01 00540    10000000 A            DATA     X'10000000'       P1 DECIMAL IDENTIFIER
     1649   01 00541    35F006A6     ZHLT     STW,R15  P15
     1650   01 00542    32C00698              LW,R12   P1
     1651   01 00543    6AF004FD              BAL,R15  ZBTH
     1652   01 00544    35D0054F              STW,R13  ZHLTMSG+1
     1653   01 00545    32C0054D              LW,R12   ZHLTMSG-1
     1654   01 00546    02300070 A            LCFI     7
     1655   01 00547    6AF005CA              BAL,R15  ZTWLP
     1656   01 00548    22F00001 A            LI,R15   1
     1657   01 00549    4BF00698              AND,R15  P1
     1658   01 0054A    E82206A6              BCR,2    *P15,X1
     1659   01 0054B    2E000000 A            WAIT
     1660   01 0054C    E80206A6              B        *P15,X1
     1661   01 0054D    10081538 A            ZFMW     1,0,8,BA(ZHLTMSG)
     1662   01 0054E    C8D3E340 A   ZHLTMSG  TEXT     'HLT XXXX'
            01 0054F    E7E7E7E7 A
     1663                            *
     1664                            * ALT DIRECTIVE TO ALTER CONTIGUOUS MAIN MEMORY LOCATIONS
     1665                            *
     1666   01 00550    35F00528     ZALT     STW,R15  ZCSRL
     1667   01 00551    6AF0055F              BAL,R15  ZALT10
     1668   01 00552    6AF0043F              BAL,R15  ZFH
     1669   01 00553    6AF0055F              BAL,R15  ZALT10
     1670   01 00554    22F1FFFF A            LI,R15   X'1FFFF'
     1671   01 00555    4B90000F A            AND,R9   R15
     1672   01 00556    31900688     ZALT05   CW,R9    ZEMS
     1673   01 00557    E9200528              BCS,2    *ZCSRL
     1674   01 00558    35900695              STW,R9   ZTEMP
     1675   01 00559    6AF0043F              BAL,R15  ZFH
     1676   01 0055A    6AF0055F              BAL,R15  ZALT10
     1677   01 0055B    B5900695              STW,R9   *ZTEMP
     1678   01 0055C    33100695              MTW,1    ZTEMP
     1679   01 0055D    32900695              LW,R9    ZTEMP
     1680   01 0055E    68000556              B        ZALT05
     1681   01 0055F    21A0006B A   ZALT10   CI,R10   X'6B'
     1682   01 00560    E830000F A            BCR,3    *R15
     1683   01 00561    E8000528              B        *ZCSRL
     1684                            *
     1685                            * DMP DIRECTIVE TO DUMP CONTIGUOUS MAIN MEMORY LOCATIONS
     1686                            *
     1687   01 00562    40000000 A            DATA     X'40000000'
     1688   01 00563    40000000 A            DATA     X'40000000'
     1689   01 00564    40000000 A            DATA     X'40000000'
     1690   01 00565    02300070 A   ZTYP     LCFI     7
     1691   01 00566    6800056B              B        ZDMP+1
     1692   01 00567    40000000 A            DATA     X'40000000'       P1 FIRST
     1693   01 00568    40000000 A            DATA     X'40000000'       P2  LAST
     1694   01 00569    40000000 A            DATA     X'40000000'       P3   RELATIVE
     1695   01 0056A    023000F0 A   ZDMP     LCFI     X'F'
     1696   01 0056B    740605A3              STCF     ZDMP24+2,X3
     1697   01 0056C    35F006A6              STW,R15  P15
     1698   01 0056D    227FFFFD A            LI,X7    -3                TRUNCATE
     1699   01 0056E    32CE069B              LW,R12   P3+1,X7
     1700   01 0056F    4BC012B1              AND,R12  =X'1FFFF'
     1701   01 00570    31C00688              CW,R12   ZEMS
     1702   01 00571    68200573              BCR,2    %+2
     1703   01 00572    32C00688              LW,R12   ZEMS
     1704   01 00573    35CE069B              STW,R12  P3+1,X7
     1705   01 00574    6570056E              BIR,X7   %-6
     1706   01 00575    6AF00523              BAL,R15  ZSCIR
     1707   01 00576    32D00699              LW,R13   P2
     1708   01 00577    3310000D A            MTW,1    R13
     1709   01 00578    31D00688              CW,R13   ZEMS
     1710   01 00579    6820057B              BCR,2    %+2
     1711   01 0057A    33F00699              MTW,-1   P2
     1712   01 0057B    32C0069A              LW,R12   P3
     1713   01 0057C    6830057F              BCR,3    %+3
     1714   01 0057D    32000698              LW,R0    P1
     1715   01 0057E    3800069A              SW,R0    P3
     1716   01 0057F    3500069A              STW,R0   P3
     1717   01 00580    32C00698     ZDMP10   LW,R12   P1
     1718   01 00581    38C0069A              SW,R12   P3
     1719   01 00582    6AF004FD              BAL,R15  ZBTH
     1720   01 00583    22F04040 A            LI,R15   X'4040'
     1721   01 00584    55F0000C A            STH,R15  R12
     1722   01 00585    25C00310 A            SCD,R12  16
     1723   01 00586    35C006A8              STW,R12  ZDMPA
     1724   01 00587    35D006A9              STW,R13  ZDMPA+1
     1725   01 00588    75F006A8              STB,R15  ZDMPA
     1726   01 00589    22700007 A            LI,X7    7                 RESET INDEX
     1727   01 0058A    22F00000 A            LI,R15   0                 DUPLICATE
     1728   01 0058B    35F006A5              STW,R15  P14               COUNTER
     1729   01 0058C    B2C00698     ZDMP20   LW,R12   *P1               DUPLICATE
     1730   01 0058D    B1C20698              CW,R12   *P1,X1            WORDS ?
     1731   01 0058E    683005A8              BCR,3    ZDMP30
     1732   01 0058F    330006A5              MTW,0    P14               DUPLICATE
     1733   01 00590    683005B3              BCR,3    ZDMP40            BLOCK ?
     1734   01 00591    22C00060 A            LI,R12   X'60'
     1735   01 00592    75CE06A8              STB,R12  ZDMPA,X7
     1736   01 00593    32C00698     ZDMP22   LW,R12   P1
     1737   01 00594    38C0069A              SW,R12   P3
     1738   01 00595    6AF004FD              BAL,R15  ZBTH
     1739   01 00596    22F04040 A            LI,R15   X'4040'
     1740   01 00597    55F0000C A            STH,R15  R12
     1741   01 00598    25C00310 A            SCD,R12  16
     1742   01 00599    35C006AA              STW,R12  ZDMPA+2
     1743   01 0059A    35D006AB              STW,R13  ZDMPA+3
     1744   01 0059B    75F006AA              STB,R15  ZDMPA+2
     1745   01 0059C    B2C00698              LW,R12   *P1               SET DUPLICATE
     1746   01 0059D    6AF004FD              BAL,R15  ZBTH              KEY FOR OUTPUT
     1747   01 0059E    35C006AC              STW,R12  ZDMPA+4
     1748   01 0059F    35D006AD              STW,R13  ZDMPA+5
     1749   01 005A0    22700018 A            LI,R7    24
     1750   01 005A1    757205C5     ZDMP24   STB,R7   ZDMP70,X1
     1751   01 005A2    32C005C5              LW,R12   ZDMP70
     1752   01 005A3    023000F0 A            LCFI     X'F'
     1753   01 005A4    6AF005CA              BAL,R15  ZTWLP
     1754   01 005A5    6AF005C1              BAL,R15  ZDMP50
     1755   01 005A6    69100580              BCS,1    ZDMP10            DUMP
     1756   01 005A7    E80006A6              B        *P15              COMPLETE ?
     1757   01 005A8    21700007 A   ZDMP30   CI,X7    7
     1758   01 005A9    682005AC              BCR,2    %+3
     1759   01 005AA    33F00698              MTW,-1   P1
     1760   01 005AB    680005A1              B        ZDMP24
     1761   01 005AC    331006A5              MTW,1    P14
     1762   01 005AD    6AF005C1              BAL,R15  ZDMP50
     1763   01 005AE    6910058C              BCS,1    ZDMP20
     1764   01 005AF    33F00698              MTW,-1   P1
     1765   01 005B0    33F006A5              MTW,-1   P14
     1766   01 005B1    69200593              BCS,2    ZDMP22
     1767   01 005B2    B2C00698              LW,R12   *P1
     1768   01 005B3    6AF004FD     ZDMP40   BAL,R15  ZBTH              SET NON-DUPLICATE
     1769   01 005B4    33100007 A            MTW,1    X7                WORD FOR OUTPUT
     1770   01 005B5    226FFFF8 A            LI,X6    -8
     1771   01 005B6    25C00308 A            SCD,R12  8
     1772   01 005B7    75DE06A8              STB,R13  ZDMPA,X7
     1773   01 005B8    33100007 A            MTW,1    X7
     1774   01 005B9    656005B6              BIR,X6   %-3
     1775   01 005BA    22F00040 A            LI,R15   X'40'
     1776   01 005BB    75FE06A8              STB,R15  ZDMPA,X7
     1777   01 005BC    2170004E A            CI,X7    78
     1778   01 005BD    692005A1              BCS,2    ZDMP24
     1779   01 005BE    6AF005C1              BAL,R15  ZDMP50
     1780   01 005BF    6910058C              BCS,1    ZDMP20
     1781   01 005C0    680005A1              B        ZDMP24
     1782   01 005C1    32C00698     ZDMP50   LW,R12   P1
     1783   01 005C2    33100698              MTW,1    P1
     1784   01 005C3    31C00699              CW,R12   P2
     1785   01 005C4    E800000F A            B        *R15
     1786   01 005C5    10001AA0 A   ZDMP70   ZFMW     1,0,0,BA(ZDMPA)
     1787                            *
     1788                            * TRANSMIT MESSAGE ONLY IF KEYBOARD INPUT DEVICE
     1789                            *
     1790   01 005C6    52D2052E     ZTMNCR   LH,R13   ZDCR+1,X1
     1791   01 005C7    51D20471              CH,R13   ZMFRDA,X1
     1792   01 005C8    E830000F A            BCR,3    *R15
     1793                            *
     1794                            * LOAD CONDITIONS FOR TYPEWRITER ONLY MESSAGE LEVEL 0
     1795                            *
     1796   01 005C9    02300040 A   ZSML40   LCFI     4
     1797                            *
     1798                            * COMMON TYPEWRITER/LINE PRINTER OUTPUT ROUTINE
     1799                            *
     1800   01 005CA    E8C0000F A   ZTWLP    BCR,12   *R15
     1801   01 005CB    7400000F A            STCF     R15
     1802   01 005CC    35F00528              STW,R15  ZCSRL
     1803   01 005CD    6AF00523              BAL,R15  ZSCIR
     1804   01 005CE    72F00528              LB,R15   ZCSRL
     1805   01 005CF    25F0047C A            SAS,R15  -4
     1806   01 005D0    4BF00003 A            AND,R15  R3
     1807   01 005D1    683005D6              BCR,3    ZTWLP01
     1808   01 005D2    6C000000 A            RD,0     0
     1809   01 005D3    E9100528              BCS,1    *ZCSRL
     1810   01 005D4    21F00004 A   ZMSGKEY  CI,R15   4
     1811   01 005D5    E9200528              BCS,2    *ZCSRL            SUPPRESSED ?
     1812   01 005D6    55C2061E     ZTWLP01  STH,R12  ZTWLP12,X1
     1813   01 005D7    52C0000C A            LH,R12   R12
     1814   01 005D8    75C6061F              STB,R12  ZTWLP12+1,X3
     1815   01 005D9    72C4000C A            LB,R12   R12,X2
     1816   01 005DA    22D0000F A            LI,R13   15
     1817   01 005DB    4BD0000C A            AND,R13  R12
     1818   01 005DC    25C0047C A            SAS,R12  -4
     1819   01 005DD    75C6061B              STB,R12  ZTWLP10+1,X3
     1820   01 005DE    32C0000C A            LW,R12   R12
     1821   01 005DF    683005E1              BCR,3    %+2
     1822   01 005E0    5502061D              STH,R0   ZTWLP11+1,X1
     1823   01 005E1    50D2061D              AH,R13   ZTWLP11+1,X1
     1824   01 005E2    55D2061D              STH,R13  ZTWLP11+1,X1
     1825   01 005E3    7510061C              STB,R1   ZTWLP11
     1826   01 005E4    32F0052B              LW,R15   ZDKB+1
     1827   01 005E5    72C00528              LB,R12   ZCSRL
     1828   01 005E6    25C0047A A            SAS,R12  -6
     1829   01 005E7    33F0000C A            MTW,-1   R12
     1830   01 005E8    683005FE              BCR,3    ZTW
     1831   01 005E9    22F00002 A            LI,R15   2
     1832   01 005EA    33F0000C A            MTW,-1   R12
     1833   01 005EB    683005EF              BCR,3    ZLPD
     1834   01 005EC    22F00002 A   ZTWLPO   LI,R15   2
     1835   01 005ED    31F0052B              CW,R15   ZDKB+1
     1836   01 005EE    683005FE              BCR,3    ZTW
     1837   01 005EF    55F20612     ZLPD     STH,R15  ZTWLPA,X1
     1838   01 005F0    2200030E              LI,R0    DA(ZTWLP11)
     1839   01 005F1    72C6061B              LB,R12   ZTWLP10+1,X3
     1840   01 005F2    693005F4              BCS,3    %+2
     1841   01 005F3    22C000A0 A            LI,R12   X'A0'
     1842   01 005F4    33F0000C A            MTW,-1   R12
     1843   01 005F5    683005FA              BCR,3    ZLPD10
     1844   01 005F6    20C000C1 A            AI,R12   X'C1'
     1845   01 005F7    75C00010 A            STB,R12  ZML10
     1846   01 005F8    7516061B              STB,R1   ZTWLP10+1,X3
     1847   01 005F9    2200030D              LI,R0    DA(ZTWLP10)
     1848   01 005FA    72C6061D     ZLPD10   LB,R12   ZTWLP11+1,X3
     1849   01 005FB    693005FD              BCS,3    %+2
     1850   01 005FC    7370061C              MTB,7    ZTWLP11
     1851   01 005FD    68000612              B        ZTWLPA
     1852   01 005FE    55F20612     ZTW      STH,R15  ZTWLPA,X1
     1853   01 005FF    2200030F              LI,R0    DA(ZTWLP12)
     1854   01 00600    72C6061B              LB,R12   ZTWLP10+1,X3
     1855   01 00601    68300612              BCR,3    ZTWLPA
     1856   01 00602    7370061C              MTB,7    ZTWLP11
     1857   01 00603    22F00015 A            LI,R15   X'15'
     1858   01 00604    22100000 A            LI,R1    0
     1859   01 00605    75F20010 A            STB,R15  ZML10,X1
     1860   01 00606    33100001 A            MTW,1    R1
     1861   01 00607    64C00605              BDR,R12  %-2
     1862   01 00608    22F00040 A            LI,R15   X'40'
     1863   01 00609    72C6061D              LB,R12   ZTWLP11+1,X3
     1864   01 0060A    68300610              BCR,3    ZTW10
     1865   01 0060B    4BC005CA              AND,R12  ZTWLP
     1866   01 0060C    7316061B              MTB,1    ZTWLP10+1,X3
     1867   01 0060D    75F20010 A            STB,R15  ZML10,X1
     1868   01 0060E    33100001 A            MTW,1    R1
     1869   01 0060F    64C0060C              BDR,R12  %-3
     1870   01 00610    22100001 A   ZTW10    LI,R1    1
     1871   01 00611    2200030D              LI,R0    DA(ZTWLP10)
     1872   01 00612    4CC00001 A   ZTWLPA   SIO,R12  1
     1873   01 00613    69C00612              BCS,12   %-1
     1874   01 00614    CDC00612              TIO,R12  *ZTWLPA
     1875   01 00615    69C00614              BCS,12   %-1
     1876   01 00616    5202061F              LH,R0    ZTWLP12+1,X1
     1877   01 00617    5002061D              AH,R0    ZTWLP11+1,X1
     1878   01 00618    5502061D              STH,R0   ZTWLP11+1,X1
     1879   01 00619    E8000528              B        *ZCSRL
     1880                                     BOUND 8
     1881   01 0061A    05000040 A   ZTWLP10  ZFCP     5,X'40'
     1882   01 0061B    80000000 A            ZFCP     X'80',0
     1883   01 0061C    0000030F     ZTWLP11  DATA     DA(ZTWLP12)
     1884   01 0061D    81000000 A            ZFCP     X'81',0
     1885   01 0061E    01000000 A   ZTWLP12  ZFCP     1,0
     1886   01 0061F    00000000 A            DATA     0
     1887                            *
     1888                            * THIS SECTION OF CODE COMPRISES THE EXECUTIVE PROGRAM
     1889                            *  EXECUTION OF SPECIFIED SUB-ROUTINES WHICH EXIST IN EXTBL
     1890                            *
     1891   01 00620    B2B00694     ZEX00    LW,R11   *ZEXPT1
     1892   01 00621    6AF004A3              BAL,R15  ZSTCRC
     1893   01 00622    6AF00523     ZEX01    BAL,R15  ZSCIR
     1894   01 00623    6AF0062E              BAL,R15  ZMPTWA
     1895   01 00624    22F00020 A            LI,R15   X'20'
     1896   01 00625    6DF01100 A            WD,R15   X'1100'
     1897   01 00626    6DF01500 A            WD,R15   X'1500'
     1898   01 00627    22F00010 A            LI,R15   X'10'
     1899   01 00628    6DF01200 A            WD,R15   X'1200'
     1900   01 00629    6D000022 A            WD,0     X'22'
     1901   01 0062A    B2F00693              LW,R15   *ZEXPT0
     1902   01 0062B    EAF0000F A            BAL,R15  *R15
     1903                            *
     1904                            * SUBROUTINES RETURN CONTROL HERE
     1905                            *
     1906   01 0062C    68000642              B        ZRETN1            NORMAL
     1907   01 0062D    6800064D              B        ZRETN2            ABORT/CONDITIONAL
     1908                            *
     1909                            * MOVE PARAMETERS TO LABELED WORK AREA P1-P15
     1910                            *
     1911   01 0062E    F2B00693     ZMPTWA   LB,R11   *ZEXPT0
     1912   01 0062F    22C00000 A            LI,R12   0
     1913   01 00630    21B00008 A            CI,R11   8
     1914   01 00631    68400633              BCR,4    %+2
     1915   01 00632    D2C20694              LH,R12   *ZEXPT1,X1
     1916   01 00633    35C0003C A            STW,R12  ZFTF
     1917   01 00634    32E00694              LW,R14   ZEXPT1
     1918   01 00635    21B0000C A            CI,R11   X'C'
     1919   01 00636    68400638              BCR,4    %+2
     1920   01 00637    3310000E A            MTW,1    R14
     1921   01 00638    25B0047C A            SAS,R11  -4
     1922   01 00639    227FFFF1 A            LI,X7    -15
     1923   01 0063A    22C00000 A            LI,R12   0
     1924   01 0063B    33F0000B A            MTW,-1   R11
     1925   01 0063C    6910063F              BCS,1    %+3
     1926   01 0063D    B2C0000E A            LW,R12   *R14
     1927   01 0063E    3310000E A            MTW,1    R14
     1928   01 0063F    35CE06A7              STW,R12  P15+1,X7
     1929   01 00640    6570063A              BIR,X7   %-6
     1930   01 00641    E800000F A            B        *R15
     1931                            *
     1932                            * NORMAL RETURN ONE
     1933                            *
     1934   01 00642    6AF00523     ZRETN1   BAL,R15  ZSCIR
     1935   01 00643    6AF00654              BAL,R15  ZBPT1
     1936   01 00644    F2B00693              LB,R11   *ZEXPT0
     1937   01 00645    21B00008 A            CI,R11   8
     1938   01 00646    6840064B              BCR,4    ZRETN1A
     1939   01 00647    B3100694              MTW,1    *ZEXPT1
     1940   01 00648    D2B20694              LH,R11   *ZEXPT1,X1
     1941   01 00649    D1B00694              CH,R11   *ZEXPT1
     1942   01 0064A    68200622              BCR,2    ZEX01
     1943   01 0064B    6AF004A0     ZRETN1A  BAL,R15  ZADCRC
     1944   01 0064C    68000622              B        ZEX01
     1945                            *
     1946                            * ABORT AND/OR CONDITIONAL RETURN
     1947                            *
     1948   01 0064D    6AF00523     ZRETN2   BAL,R15  ZSCIR
     1949   01 0064E    6AF00654              BAL,R15  ZBPT1
     1950   01 0064F    F2B00693              LB,R11   *ZEXPT0
     1951   01 00650    21B00004 A            CI,R11   4
     1952   01 00651    6840064B              BCR,4    ZRETN1A
     1953   01 00652    22F00620              LI,R15   ZEX00
     1954   01 00653    68000678              B        ZLKSET
     1955                            *
     1956                            * CHECK BREAKPOINT NO. 1
     1957                            *  RESET CONTINUE EXECUTION OF DIRECTIVES IN CONTROL LINE
     1958                            *  SET   STOP EXECUTION OF DIRECTIVES RETURN FOR DIRECTIVE INPUT
     1959                            *
     1960   01 00654    6C000000 A   ZBPT1    RD,0     0
     1961   01 00655    E880000F A            BCR,8    *R15
     1962                            *
     1963                            * CONSOLE INTERRUPT INITIATED BY OPERATOR
     1964                            *  STOP EXECUTION OF DIRECTIVES RETURN FOR DIRECTIVE INPUT
     1965                            *
     1966   01 00656    22F00030 A   ZCONINT  LI,R15   X'30'
     1967   01 00657    6DF01300 A            WD,R15   X'1300'
     1968   01 00658    6DF01100 A            WD,R15   X'1100'
     1969   01 00659    CF000612              HIO,R0   *ZTWLPA
     1970   01 0065A    68000288              B        ZPC010
     1971                            *
     1972                            * OPEN LOOP PROCESSOR
     1973                            *  CLEARS CURRENT LOOP RE-ITERATION COUNT
     1974                            *   ADVANCES TO NEXT OPERATION
     1975                            *
     1976   01 0065B    0800064B A   ZLPPRO   ZFST2    0,2,0,ZRETN1A
     1977                            *
     1978                            * CLOSE LOOP PROCESSOR
     1979                            *  CHECKS IF OPEN LOOP RE-ITERATION COUNT COMPLETE
     1980                            *   IF COMPLETE ADVANCE TO NEXT OPERATION
     1981                            *    IF NOT UPDATE COUNT AND RESTART LOOP
     1982                            *
     1983   01 0065C    0400065D A            ZFST2    0,1,0,ZRPPRO
     1984   01 0065D    B2C00694     ZRPPRO   LW,R12   *ZEXPT1
     1985   01 0065E    3310000C A            MTW,1    R12
     1986   01 0065F    B310000C A            MTW,1    *R12
     1987   01 00660    D2B2000C A            LH,R11   *R12,X1
     1988   01 00661    D1B0000C A            CH,R11   *R12
     1989   01 00662    6920064B              BCS,2    ZRETN1A
     1990   01 00663    B2B00694              LW,R11   *ZEXPT1
     1991   01 00664    35B00693              STW,R11  ZEXPT0
     1992   01 00665    6800064B              B        ZRETN1A
     1993                            *
     1994                            * GO DIRECTIVE PROCESSOR TO CONTINUE EXECUTION OF DIRECTIVES
     1995                            *
     1996   01 00666    22C00105 A   ZGOPRO   LI,R12   X'105'
     1997   01 00667    22B00000 A   ZGOPTR   LI,R11   0
     1998   01 00668    6830047F              BCR,3    ZSNER
     1999   01 00669    68000621              B        ZEX00+1
     2000                            *
     2001                            * END OF LINE PROCESSOR FOR FORWARD SLASH
     2002                            *
     2003   01 0066A    0400066B A            ZFST2    0,1,0,ZFSPRO
     2004   01 0066B    6AF00654     ZFSPRO   BAL,R15  ZBPT1
     2005   01 0066C    6AF00678              BAL,R15  ZLKSET
     2006   01 0066D    68000620              B        ZEX00
     2007                            *
     2008                            * ABSOLUTE TRANSFER PROCESSOR
     2009                            *  SAVES CURRENT EXECUTE TABLE POINTER VALUE AS LINK
     2010                            *    RESETS POINTERS TO TRANSFER LOCATION
     2011                            *
     2012   01 0066E    0400066F A            ZFST2    0,1,0,ZASPRO
     2013   01 0066F    6800066C     ZASPRO   B        ZFSPRO+1
     2014                            *
     2015                            * LINK RETURN TRANSFER PROCESSOR
     2016                            *  CHECK IF LINK TABLE EMPTY;IF SO ABORT WITH ERROR MESSAGE
     2017                            *   IF NOT REMOVE LAST LINK ENTRY, REDUCE LINK POINTER BY ONE
     2018                            *    TRANSFER TO NEW OPERATION
     2019                            *
     2020   01 00670    22C00111 A   ZLKAS    LI,R12   X'111'
     2021   01 00671    32B0068D              LW,R11   ZLKPTR
     2022   01 00672    31B0068C              CW,R11   ZLKADR
     2023   01 00673    6820047F              BCR,2    ZSNER
     2024   01 00674    33F0068D              MTW,-1   ZLKPTR
     2025   01 00675    B2B0068D              LW,R11   *ZLKPTR
     2026   01 00676    35B00693              STW,R11  ZEXPT0
     2027   01 00677    6800064B              B        ZRETN1A
     2028                            *
     2029                            * PURGE AND/OR INSERT EXECUTE TABLE POINTER AS LINK ADDRESS TO
     2030                            *  LINK TABLE, CHECK IF TABLE FULL; IF SO ABORT WITH ERROR MSG
     2031                            *
     2032   01 00678    32C0068D     ZLKSET   LW,R12   ZLKPTR
     2033   01 00679    32B00693              LW,R11   ZEXPT0
     2034   01 0067A    33F0000C A            MTW,-1   R12
     2035   01 0067B    31C0068C              CW,R12   ZLKADR
     2036   01 0067C    69100680              BCS,1    %+4
     2037   01 0067D    B1B0000C A            CW,R11   *R12
     2038   01 0067E    6930067A              BCS,3    %-4
     2039   01 0067F    35C0068D              STW,R12  ZLKPTR
     2040   01 00680    22C00110 A            LI,R12   X'110'
     2041   01 00681    32D0068D              LW,R13   ZLKPTR
     2042   01 00682    3310000D A            MTW,1    R13
     2043   01 00683    31D0068E              CW,R13   ZPMADR
     2044   01 00684    6920047F              BCS,2    ZSNER
     2045   01 00685    B5B0068D              STW,R11  *ZLKPTR
     2046   01 00686    3310068D              MTW,1    ZLKPTR
     2047   01 00687    E800000F A            B        *R15
     2048                            *
     2049                            * COMPUTE MEMORY SIZE AND ASSIGN TABLE LENGTHS AND I/O ADDRESS
     2050                            *  EXECUTE TABLE LENGTH = MS/4.96
     2051                            *   LINK TABLE LENGTH = MS/4.16
     2052                            *    PLACE MARKER TABLE LENGTH = MS/4.16
     2053                            *     THIS CODE IS THEN OVERLAYED BY TRANSLATOR
     2054                            *      REMAINDER OF AREA AVAILABLE AS INPUT/OUTPUT AREA
     2055                            *
     2056   01 00688    00020FFF A   ZEMS     DATA     X'20FFF'          LAST MEMORY LOCATION
     2057                                     BOUND 8
     2058   01 0068A    0E0006CE     ZCMS     LPSD,0   ZCMST40+2
     2059   01 0068B    32A00688              LW,R10   ZEMS
     2060   01 0068C    38A006CA              SW,R10   ZCMS6
     2061   01 0068D    35A00688              STW,R10  ZEMS
     2062   01 0068E    B5A0000A A            STW,R10  *R10
     2063   01 0068F    3310000A A            MTW,1    R10
     2064   01 00690    25A00478 A            SAS,R10  -8
     2065   01 00691    35A0000B A            STW,R10  R11
     2066   01 00692    25A00403 A            SAS,R10  3
     2067   01 00693    35A00691              STW,R10  ZIOADR
     2068   01 00694    30A012AA              AW,R10   ZEXADR
     2069   01 00695    35A00690              STW,R10  ZMFRIOAD
     2070   01 00696    66A00691              AWM,R10  ZIOADR
     2071   01 00697    38A0000B A            SW,R10   R11
     2072   01 00698    35A0068E              STW,R10  ZPMADR
     2073   01 00699    35A0068F              STW,R10  ZPMPTR
     2074   01 0069A    38A0000B A            SW,R10   R11
     2075   01 0069B    35A0068C              STW,R10  ZLKADR
     2076   01 0069C    35A0068D              STW,R10  ZLKPTR
     2077   01 0069D    32A00688              LW,R10   ZEMS
     2078   01 0069E    38A00691              SW,R10   ZIOADR
     2079   01 0069F    35A00692              STW,R10  ZIOWDS
     2080   01 006A0    22B00040 A            LI,R11   X'40'
     2081   01 006A1    32A00688              LW,R10   ZEMS
     2082   01 006A2    38A0000B A            SW,R10   R11
     2083   01 006A3    35A0068A              STW,R10  ZLBADR
     2084   01 006A4    35A0068B              STW,R10  ZLBPTR
     2085   01 006A5    227FFF20 A            LI,X7    -224
     2086   01 006A6    32A0005F              LW,R10   ZIL5F
     2087   01 006A7    35AE0140              STW,R10  ZIL5F+225,X7
     2088   01 006A8    657006A7              BIR,X7   %-1
     2089   01 006A9    6AF00523              BAL,R15  ZSCIR
     2090   01 006AA    3500003D A            STW,0    ZDSFLG
     2091   01 006AB    22400001 A            LI,R4    1                 CHECK FOR ASR/KSR ADDRESS
     2092   01 006AC    3540052B              STW,R4   ZDKB+1              SET UP ASR/KSR ADDRESS
     2093   01 006AD    554205EC              STH,R4   ZTWLPO,X1
     2094   01 006AE    55420471              STH,R4   ZMFRDA,X1
     2095   01 006AF    CF00052B              HIO,0    *ZDKB+1             CHECK FOR ADDRESS RECOGNITION
     2096   01 006B0    688006B4              BCR,8    %+4                   VALID ADDRESS
     2097   01 006B1    2E000000 A            WAIT                         INVALID ADDRESS
     2098                            *                                       WAIT FOR OPERATOR TO ENTER
     2099                            *                                       R4 WITH CORRECT ADDRESS
     2100   01 006B2    4B4012B2              AND,R4   =X'1FFF'          MASK ADDRESS
     2101   01 006B3    680006AC              B        %-7
     2102   01 006B4    32B012AA              LW,R11   ZEXADR
     2103   01 006B5    6AF00498              BAL,R15  ZSTPTR
     2104   01 006B6    32F006D6              LW,15    LBRXPSD       SET TRAP LOCATION
     2105   01 006B7    35F00040 A            STW,15   X'40'         FOR NON-SIGMA TEST
     2106   01 006B8    27AE06CC              GEN,8,4,3,17 X'27',10,7,ZCMST40 THIS IS A LBR,10 ZCMS8 IN
     2107   01 006B9    22A000E3 A            LI,10    'T'            1=NON-SIGMA
     2108   01 006BA    680006C1              B        ZCMS4
     2109   01 006BB    32F006D0     ZCMS2    LW,15    LRAXPSD       SET TRAP LOCATION
     2110   01 006BC    35F00040 A            STW,15   X'40'         FOR SIG 9 TEST
     2111   01 006BD    20A0068A              GEN,8,4,20 X'20',10,ZCMS  THIS IS A LRA,10 ZCMX  INST
     2112   01 006BE    22A00001 A            LI,10    1
     2113   01 006BF    680006C1              B        ZCMS4
     2114   01 006C0    22A00000 A   ZCMS3    LI,10    0           0=SIG  5-7
     2115   01 006C1    35A0003E A   ZCMS4    STW,10   ZSIG9       SET MACHINE TYPE INDICATOR
     2116                            *                                   SIGMA 9 FLAG = 1 FOR SIGMA 9
     2117                            *                                   SIGMA 9 FLAG = 0 FOR SIGMA 5/7
     2118   01 006C2    6D000040 A            WD,R0    X'40'             RESET ALARM INDICATOR
     2119   01 006C3    32A006C9              LW,R10   ZCMS5
     2120   01 006C4    35A00040 A            STW,R10  64
     2121   01 006C5    32C00DFA              LW,12    MW00
     2122   01 006C6    6AF005C9              BAL,R15  ZSML40
     2123         01 006C7           REVBRNCH EQU      %                 PRINT REVISION MESSAGE
     2124         00000000                    DO       REVCOUNT=0
     2125                        *S*          NOP
     2126                                     ELSE
     2127   01 006C7    6AF01327 02           BAL,15   REVPRINT
     2128                                     FIN
     2129                            *
     2130   01 006C8    68000723              B        INIT00
     2131   01 006C9    0F000150     ZCMS5    XPSD,0   ZT40
     2132   01 006CA    00001000 A   ZCMS6    DATA     X'1000'
     2133   01 006CB    00800000 A   ZCMS7    DATA     X'00800000'       MASK FOR MODE ALTERED BIT
     2134                                     BOUND    8
     2135   01 006CC    00000000 A   ZCMST40  DATA     0
     2136   01 006CD    00000000 A            DATA     0
     2137   01 006CE    0000068B              DATA     ZCMS+1
     2138   01 006CF    00000000 A            DATA     0
     2139   01 006D0    0F0006D2     LRAXPSD  XPSD,0   LRAXPSD1
     2140                                     BOUND    8
     2141   01 006D2                 LRAXPSD1 RES      2
     2142   01 006D4    000006C0              DATA     ZCMS3
     2143   01 006D5    00000000 A            DATA     0
     2144   01 006D6    0F0006D8     LBRXPSD  XPSD,0   LBRXPSD1
     2145                                     BOUND    8
     2146   01 006D8                 LBRXPSD1 RES      2
     2147   01 006DA    000006BB              DATA     ZCMS2
     2148   01 006DB    00000000 A            DATA     0
     2149                            *
     2150                            * EQUATE STATEMENTS TO OVERLAY CODE FOR COMPUTING MEMORY SIZE
     2151                            *  AND ASSIGNING LENGTH AND BASE ADDRESSES FOR TABLES ETC
     2152                            *
     2153         01 0068A           ZLBADR   EQU      ZCMS              OPEN LOOP ADDRESS
     2154         01 0068B           ZLBPTR   EQU      ZLBADR+1          AND POINTER
     2155         01 0068C           ZLKADR   EQU      ZLBPTR+1          LINK TABLE ADDRESS
     2156         01 0068D           ZLKPTR   EQU      ZLKADR+1          AND POINTER
     2157         01 0068E           ZPMADR   EQU      ZLKPTR+1          PLACE MARKER ADDRESS
     2158         01 0068F           ZPMPTR   EQU      ZPMADR+1          AND POINTER
     2159         01 00690           ZMFRIOAD EQU      ZPMPTR+1          MAIN FETCH INPUT/OUTPUT ADDRESS
     2160         01 00691           ZIOADR   EQU      ZMFRIOAD+1        INPUT/OUTPUT BASE ADDRESS
     2161         01 00692           ZIOWDS   EQU      ZIOADR+1          AND NUMBER OF WORDS
     2162         01 00693           ZEXPT0   EQU      ZIOWDS+1          EXECUTE TABLE BASE
     2163         01 00694           ZEXPT1   EQU      ZEXPT0+1          AND VARIABLE POINTERS
     2164         01 00695           ZTEMP    EQU      ZEXPT1+1          TEMPORARY
     2165         01 00696           ZTEMP1   EQU      ZTEMP+1           LOCATIONS
     2166         01 00697           P0       EQU      ZTEMP1+1
     2167         01 00698           P1       EQU      P0+1              LABELED
     2168         01 00699           P2       EQU      P1+1              PARAMETER
     2169         01 0069A           P3       EQU      P2+1              AREA FOR
     2170         01 0069B           P4       EQU      P3+1              SUBROUTINES
     2171         01 0069C           P5       EQU      P4+1
     2172         01 0069D           P6       EQU      P5+1
     2173         01 0069E           P7       EQU      P6+1
     2174         01 0069F           P8       EQU      P7+1
     2175         01 006A0           P9       EQU      P8+1
     2176         01 006A1           P10      EQU      P9+1
     2177         01 006A2           P11      EQU      P10+1
     2178         01 006A3           P12      EQU      P11+1
     2179         01 006A4           P13      EQU      P12+1
     2180         01 006A5           P14      EQU      P13+1
     2181         01 006A6           P15      EQU      P14+1
     2182         01 006A7           PX       EQU      P15+1
     2183         01 006A8           ZDMPA    EQU      PX+1                DUMP
     2184   01 006DC                          RES      10                 AREA
     2185                            *
     2186                            * SUB-ROUTINE TABLE WITH FORM DIRECTIVE
     2187                            *  TWO WORDS PER SUB-ROUTINE DIVIDED AS FOLLOWS0
     2188                            *   FIRST WORD = MNEMONIC NAME,FOUR ALPHA CHARACTERS MAXIMUM
     2189                            *   SECOND WORD = SUB-ROUTINE INFO AND ENTRY ADDRESS
     2190                            *
     2191         01 006E6           ZSRBEG   EQU      %
     2192   01 006E6    00C3D3D9 A            DATA     X'C3D3D9'         CLR
     2193   01 006E7    D9C5E3D5 A            DATA     X'D9C5E3D5'       RETN
     2194   01 006E8    0000C7D6 A            DATA     X'C7D6'           GO
     2195   01 006E9    00C4D2C2 A            DATA     X'C4D2C2'         DKB
     2196   01 006EA    00C4C3D9 A            DATA     X'C4C3D9'         DCR
     2197   01 006EB    00E2D4D3 A            DATA     X'E2D4D3'         SML
     2198   01 006EC    00E2D4C4 A            DATA     X'E2D4C4'         SMD
     2199   01 006ED    00C1D3E3 A            DATA     X'C1D3E3'         ALT
     2200   01 006EE    00C4D4D7 A            DATA     X'C4D4D7'         DMP
     2201   01 006EF    00E3E8D7 A            DATA     X'E3E8D7'         TYP
     2202   01 006F0    00C8D3E3 A            DATA     X'C8D3E3'         HLT
     2203   01 006F1    00C4C4C1 A            DATA     'DDA'             DECLARE IOP-DEVICE ADDRESS
     2204   01 006F2    C4D3C1E8 A            DATA     'DLAY'            TIME DELAY
     2205   01 006F3    C4C9E2D7 A            DATA     'DISP'            DISPLAY RECEIVED PATTERN
     2206   01 006F4    00E2C9D6 A            DATA     'SIO'             START INPUT/OUTPUT
     2207   01 006F5    00E3C9D6 A            DATA     'TIO'             TEST INPUT/OUTPUT
     2208   01 006F6    00C8C9D6 A            DATA     'HIO'             HALT INPUT/OUTPUT
     2209   01 006F7    00E3C4E5 A            DATA     'TDV'             TEST DEVICE
     2210   01 006F8    00C1C9D6 A            DATA     'AIO'             ACKNOWLEDGE INPUT/OUTPUT
     2211   01 006F9    E3D6D5C5 A            DATA     'TONE'            TEST LOOP 1
     2212   01 006FA    E3E3E6D6 A            DATA     'TTWO'            TEST LOOP 2
     2213   01 006FB    E3D9C5C5 A            DATA     'TREE'            TEST LOOP 3
     2214   01 006FC    C1E4E3D6 A            DATA     'AUTO'            AUTOMATIC TEST AND VERIFY
     2215   01 006FD    D9E2C5E3 A            DATA     'RSET'            RESET THE I/O
     2216         01 006FE           ZSRTBL   EQU      %
     2217         00000018           ZSRLEN   EQU      %-ZSRBEG
     2218                            *
     2219                            * SUBROUTINE ADDRESS TABLE WITH CONTROL INFORMATION
     2220                            *
     2221                            *  BITS 0-3       PARAMETER COUNT
     2222                            *  BITS 4-5       RE-ITERATION/IDENTIFIER CODE
     2223                            *                 00  NO LEADING DECIMAL SUBFIELD PERMITTED
     2224                            *                 01  PLACE MARKER IDENTIFIER REQUEST
     2225                            *                 10  REITERATION COUNT
     2226                            *                 11  ILLEGAL
     2227                            *  BITS 6-7       EXECUTION MODE KEYS
     2228                            *                 00  UNCONDITIONAL
     2229                            *                 01  CONTROL LINE MODE ONLY
     2230                            *                 10  IMMEDIATE MODE ONLY
     2231                            *                 11  OPTIONAL CONTROL OR IMMEDIATE MODE
     2232                            *  BITS 8-14      RESERVED
     2233                            *  BITS 15-31     SUBROUTINE ADDRESS
     2234                            *
     2235   01 006FE    000002A1 A            ZFSAT    0,0,0,0,ZPC200    CLR
     2236   01 006FF    03000656 A            ZFSAT    0,0,3,0,ZCONINT   RETN
     2237   01 00700    02000666 A            ZFSAT    0,0,2,0,ZGOPRO    GO
     2238   01 00701    1200052A A            ZFSAT    1,0,2,0,ZDKB      DKB
     2239   01 00702    1200052D A            ZFSAT    1,0,2,0,ZDCR      DCR
     2240   01 00703    13000537 A            ZFSAT    1,0,3,0,ZSML      SML
     2241   01 00704    1300053C A            ZFSAT    1,0,3,0,ZSMD      SMD
     2242   01 00705    00000550 A            ZFSAT    0,0,0,0,ZALT      ALT
     2243   01 00706    3300056A A            ZFSAT    3,0,3,0,ZDMP      DMP
     2244   01 00707    33000565 A            ZFSAT    3,0,3,0,ZTYP      TYP
     2245   01 00708    17000541 A            ZFSAT    1,1,3,0,ZHLT      HLT
     2246   01 00709    13000747 A            ZFSAT    1,0,3,0,DDA       DECLARE IOP-DEVICE ADDRESS
     2247   01 0070A    1B000754 A            ZFSAT    1,2,3,0,DLAY00     TIME DELAY
     2248   01 0070B    17000770 A            ZFSAT    1,1,3,0,DISP      DISPLAY RECEIVED PATTERN
     2249   01 0070C    4700079E A            ZFSAT    4,1,3,0,SIOTEST   START INPUT/OUTPUT
     2250   01 0070D    170007CF A            ZFSAT    1,1,3,0,TIOTEST   TEST INPUT/OUTPUT
     2251   01 0070E    170007D5 A            ZFSAT    1,1,3,0,HIOTEST   HALT INPUT/OUTPUT
     2252   01 0070F    170007DB A            ZFSAT    1,1,3,0,TDVTEST   TEST DEVICE
     2253   01 00710    170007E1 A            ZFSAT    1,1,3,0,AIOTEST   ACKNOWLEDGE INPUT/OUTPUT
     2254   01 00711    0700080C A            ZFSAT    0,1,3,0,TONE      TEST LOOP 1
     2255   01 00712    070009D3 A            ZFSAT    0,1,3,0,TTWO      TEST LOOP 2
     2256   01 00713    17000A36 A            ZFSAT    1,1,3,0,TREE      TEST LOOP 3
     2257   01 00714    07000A47 A            ZFSAT    0,1,3,0,AUTO      AUTOMATIC TEST AND VERIFY
     2258   01 00715    03000BBD A            ZFSAT    0,0,3,0,RSET      RESET THE I/O
     2259         01 00716           ZSRADR   EQU      %
     2260                            *
     2261                            *
     2262                            *                 PROCEDURE FOR GENERATING CALL 4 WORD
     2263                            *
     2264                            *
     2265         00000000           REPORTER CNAME
     2266                                     PROC
     2267                            LF       CAL4,0    0                CALL 4 INSTRUCTION
     2268                                     PEND     REPORTER
     2269                            *
     2270                            *                 I N I T I A L I Z E R
     2271                            *
     2272                            *
     2273                            *
     2274                                     BOUND    8
     2275   01 00716    00000000 A   CONSOLE  DATA     0,0
            01 00717    00000000 A
     2276   01 00718    0000071A              DATA     %+2,7**24
            01 00719    07000000 A
     2277   01 0071A    22F00287              LI,15    ZPC010-1
     2278   01 0071B    35F00D1C              STW,15   RETURN
     2279   01 0071C    22400000 A            LI,4     0
     2280   01 0071D    35400D25              STW,4    WATCHFLG
     2281   01 0071E    354006A1              STW,4     AUTOFLAG
     2282                            *                                   HALT ALL I/O DEVICES **
     2283   01 0071F    22401BFF A            LI,4     X'1BFF'
     2284   01 00720    CF000004 A            HIO,0    *4
     2285   01 00721    64400720              BDR,4    %-1
     2286   01 00722    4F000000 A            HIO,0    0
     2287                            *
     2288                            *
     2289                            *                 INITIALIZE THE IOP DEVICE ADDRESS LOCATIONS
     2290                            *
     2291                            INIT00 ;
     2292   01 00723    22000000 A            LI,0     0
     2293   01 00724    35000CE0              STW,0    IOPBYTE
     2294   01 00725    35000D1B              STW,0    IOPDEVCE
     2295   01 00726    35000D1D              STW,0    IOPOINT
     2296   01 00727    35000D25              STW,0    WATCHFLG
     2297   01 00728    350006A1              STW,0    AUTOFLAG
     2298   01 00729    22100001 A            LI,1     1
     2299   01 0072A    35100CE1              STW,1    IOPBYTE+1
     2300                            *
     2301                            *                 INITIALIZE THE CONSOLE INTERRUPT
     2302                            *
     2303   01 0072B    32400D30              LW,4     XPSDCONS
     2304   01 0072C    3540005D A            STW,4    X'5D'
     2305                            *
     2306                            *                 LOAD PATTERN INTO TRANSMIT PATTERN TABLE
     2307                            *
     2308                            INITIAL ;
     2309   01 0072D    224FFE00 A            LI,4     -512              LOAD WORD LENGTH OF XMIT PATTERN TBL
     2310   01 0072E    225FFFF8 A   INIT01   LI,5     -8                LOAD WORD LENGTH OF XMIT PATTERN TBL
     2311   01 0072F    326A0EA2     INIT02   LW,6     XPATTER+8,5       FETCH WORD FROM PATTERN TABLE
     2312   01 00730    356810A2              STW,6    XPATTERN+512,4    STORE WORD IN XMIT PATTERN TABLE
     2313   01 00731    65400733              BIR,4    %+2               ADD 1 TO XMIT PATTERN TABLE POINTER
     2314   01 00732    68000735              B        %+3               EXIT ROUTINE
     2315   01 00733    6550072F              BIR,5    INIT02            ADD 1 TO PATTERN TABLE POINTER
     2316   01 00734    6800072E              B        INIT01            RETURN TO RELOAD PATTERN TABLE POINT
     2317   01 00735    22F001CB              LI,15    ZTLHLT
     2318   01 00736    35F00D1C              STW,15   RETURN
     2319                            *
     2320                            *                 INITIALIZE THE CALL 4 LOCATION
     2321                            *
     2322   01 00737    32400D2C              LW,4     ERRORSTATUSXPSD
     2323   01 00738    3540004B A            STW,4    X'4B'
     2324                            *
     2325                            *                 INITIALIZE THE WATCHDOG TRAP LOCATION
     2326                            *
     2327   01 00739    32400D32              LW,4     XPSDWDTT
     2328   01 0073A    35400046 A            STW,4    X'46'
     2329                            *
     2330                            *                 LOAD A BRANCH TO INITIALIZE INSTRUCTION
     2331                            *
     2332   01 0073B    32400745              LW,4     RESETSW
     2333   01 0073C    354002A0              STW,4    ZRECOV
     2334                            *
     2335                            *                 INITIALIZE THE REAL TIME CLOCK 4
     2336                            *
     2337   01 0073D    33100D26     MTWORD   MTW,1    TIME
     2338   01 0073E    3240073D              LW,4     MTWORD            FETCH THE MTW INSTRUCTION
     2339   01 0073F    35400055 A            STW,4    X'55'             LOAD IT TO COUNTER 4 PULSE LOCATION
     2340                            *
     2341                            *                 INITIALIZE THE CONTROL PANEL INTERRUPT
     2342                            *
     2343   01 00740    22400010 A            LI,4     X'10'             ARM AND ENABLE
     2344   01 00741    6D401200 A            WD,4     X'1200'               CONTROL PANEL INTERRUPTS
     2345   01 00742    6D401600 A            WD,4     X'1600'
     2346   01 00743    6D000022 A            WD,0     X'22'             RESET INTERRUPT INHIBITS
     2347   01 00744    68000288              B        ZPC010
     2348   01 00745    6800072D     RESETSW  B        INITIAL
     2349                            *
     2350                            *
     2351                            *                 D E C L A R E  I O P - D E V I C E  A D D R E S S
     2352                            *
     2353                            *
     2354                            *                 THIS ROUTINE SAVES THE IOP AND DEVICE ADDRESS
     2355                            *                 FOR CIUA.
     2356                            *
     2357   01 00746    40000000 A            DATA     4**28             IOP AND DEVICE ADDRESS
     2358                            *
     2359                            *
     2360   01 00747    35F00D1C     DDA      STW,15   RETURN
     2361   01 00748    32400698              LW,4     P1                FETCH IOP AND DEVICE ADDRESS
     2362   01 00749    4B4012B2              AND,4    L(X'1FFF')        MASK TO SAVE IOP & DEV ADDR
     2363   01 0074A    31400CD4              CW,4     IOPCIUA           IS IT THE SAME AS THE LAST ONE
     2364   01 0074B    E8300D1C              BE       *RETURN           IF SO RETURN DCP
     2365   01 0074C    32500D1D              LW,5     IOPOINT           FETCH I/O ADDRESS POINTER
     2366   01 0074D    20500001 A            AI,5     1                 ADD 1 TO IT
     2367   01 0074E    4B5012B3              AND,5    L(1)              MASK OFF ALL BUT LSB
     2368   01 0074F    35500D1D              STW,5    IOPOINT           SAVE POINTER
     2369   01 00750    35400D1B              STW,4    IOPDEVCE          SAVE IOP-DEVICE ADDRESS
     2370   01 00751    35400CD4              STW,4    IOPCIUA           SAVE IOP-DEVICE ADDRESS
     2371   01 00752    E8000D1C              B        *RETURN           RETURN DCP
     2372                            *
     2373                            *
     2374                            *                 T I M E  D E L A Y  R O U T I N E
     2375                            *
     2376                            *
     2377                            *                 THIS DIRECTIVE CAUSES THE PROGRAM TO DELAY FOR
     2378                            *                 THE NUMBER OF MILLISECONDS SPECIFIED BY P1.
     2379   01 00753    20000000 A            DATA     2**28             TIME DELAY IN MILLISECONDS
     2380                            *
     2381                            *
     2382   01 00754    35F00D1C     DLAY00   STW,15   RETURN            SAVE RETURN ADDRESS
     2383   01 00755    3A500698              LCW,5    P1                FETCH THE DELAY
     2384   01 00756    2550047F A            SAS,5    -1                DIVIDE BY 2
     2385   01 00757    35500D26              STW,5    TIME              SAVE THE RESULT
     2386   01 00758    E8300D1C              BEZ      *RETURN           IF ZERO RETURN
     2387                            *
     2388                            *
     2389                            *
     2390                            REALTIME ;
     2391   01 00759    32400D2D              LW,4     REALXPSD          LOAD XPSD FOR THE REAL TIME ROUTINE
     2392   01 0075A    3540005B A            STW,4    X'5B'             LOAD XPSD INTO THE COUNTER 4 LOCATN
     2393   01 0075B    22501040 A            LI,5     X'1040'           ARM & ENABLE
     2394   01 0075C    6D501200 A            WD,5     X'1200'              COUNTER 4 INTERRUPT
     2395   01 0075D    6D000024 A            WD,0     X'24'             RESET INTERRUPT INHIBIT
     2396   01 0075E    330006A1              MTW,0    AUTOFLAG          IF AUTO FLAG SET
     2397   01 0075F    E930000E A            BNEZ     *14                   RETURN TO CALLING ROUTINE
     2398   01 00760    6C000000 A            RD,0     0                 READ SENSE SWITCHES
     2399   01 00761    68800760              BCR,8    %-1               IF SENSE SWITCH 1 NOT SET LOOP
     2400   01 00762    6D501700 A            WD,5     X'1700'           TRIGGER A COUNTER 4 INTERRUPT
     2401                            *
     2402                            *
     2403                            *                 COUNTER 4 INTERRUPT SERVICE
     2404                            *
     2405                            *
     2406                                     BOUND    8
     2407   01 00764    00000000 A   REALREPT DATA     0,0
            01 00765    00000000 A
     2408   01 00766    00000768              DATA     %+2,7**24
            01 00767    07000000 A
     2409                            *
     2410                            *
     2411   01 00768    329006A1              LW,9     AUTOFLAG          FETCH AUTO TYPE DIRECTIVE FLAG
     2412   01 00769    6830076E              BEZ      REALOUT           IF NOT SET LEAVE ROUTINE
     2413   01 0076A    22900002 A            LI,9     2                 LOAD FLAG POINTER
     2414   01 0076B    33100D1C              MTW,1    RETURN            BECAUSE OF TIME OUT, SET UP TO BRANH
     2415   01 0076C    22400E54              LI,4     MW14              LOAD: 'REMOTE CIU HAS
     2416   01 0076D    35400D21              STW,4    MESSAGE                      ABORTED TESTING' MESSAGE
     2417   01 0076E    68000C9F     REALOUT  B        EXITROUT          GO TO ERROR-STATUS REPORTER EXIT RTN
     2418                            *
     2419                            *
     2420                            *                 D I S P L A Y  R E C E I V E D  P A T T E R N
     2421                            *
     2422                            *
     2423                            *                 THIS DIRECTIVE ALLOWS THE USER TO DISPLAY,
     2424                            *                 ON THE OUTPUT MESSAGE DEVICE, THE LAST
     2425                            *                 DATA BLOCK RECEIVED DURING A READ STO.
     2426                            *                 IF THE LAST SIO WAS NOT A READ,THE MESSAGE WILL NOT
     2427                            *                 BE OUTPUT AND PLACEMARK BRANCH WILL BE
     2428                            *                 TAKEN.
     2429                            *                 IN A NORMAL MODE OR IN TEST MODE 1, AN ASTERISK
     2430                            *                 WILL PRECEDE THE TWO DIGIT TYPEOUT IF AN ERROR
     2431                            *                 WAS DETECTED.  IF THE REMOTE CIU WAS IN TEST MODE 2
     2432                            *                 THE RECEIVED PATTERN IS A FUNCTION OF THE TRANSMITTED
     2433                            *                 BYTE COUNT AND THE RECEIVED BYTE COUNT; THEREFORE
     2434                            *                 IT IS ADVISABLE TO ENTER (P1)=2 TO SUPPRESS THE
     2435                            *                 ASTERISK CAUSED BY SKEW IN THE RECEIVED PATTEN.
     2436   01 0076F    20000000 A            DATA     2**28             THE TEST MODE THE CIU/CIU'S ARE IN
     2437                            *                                      * A 0 = NO TEST MODE
     2438                            *                                      * A 1 = TEST MODE 1
     2439                            *                                      * A 2 = TEST MODE 2
     2440                            *
     2441   01 00770    35F00D1C     DISP     STW,15   RETURN            SAVE DCP RETURN ADDRESS
     2442   01 00771    3310000F A            MTW,1    15                MAKE AVAILABLE A PLACEMARK BRANCH RT
     2443   01 00772    33000D1F              MTW,0    READFLAG          TEST TO SEE IF LAST SIO WAS A READ
     2444   01 00773    E830000F A            BEZ      *15               IF NOT TAKE PLACEMARK BRANCH
     2445                            *
     2446                            *
     2447   01 00774    331006A1              MTW,1    AUTOFLAG          FAKE THE AUTO FLAG
     2448   01 00775    22B00D94              LI,11    FLGTAB05          LOAD ADDRESS OF THE PARAMETER WORD
     2449   01 00776    6AE007D2              BAL,14   TIOTEST1          DO A TIO TO GET BYTE COUNT
     2450   01 00777    32C00D20              LW,12    BYTCOUNT          FETCH BYTE COUNT
     2451   01 00778    6AF004E8              BAL,15   ZBTD              CONVERT BYTE COUNT TO DECIMAL
     2452   01 00779    6AF004FD              BAL,15   ZBTH
     2453   01 0077A    55D00E6F              STH,13   TEXT17+5          STORE BYTE COUNT IN MESSAGE
     2454   01 0077B    25D00270 A            SCS,13   -16               FETCH SECOND HALF OF BYTE COUNT
     2455   01 0077C    55D20E6E              STH,13   TEXT17+4,1        STORE BYTE COUNT IN MESSAGE
     2456   01 0077D    32C00E69              LW,12    MW17              LOAD ADDRESS OF THE MESSAGE
     2457   01 0077E    022000D0 A            LCI      13                SET MESSAGE LEVEL 1
     2458   01 0077F    6AF005CA              BAL,15   ZTWLP             OUTPUT BYTE COUNT MESSAGE
     2459   01 00780    22400000 A            LI,4     0                 LOAD BYTE POINTER
     2460   01 00781    225FFFF0 A   ROWCOUNT LI,5     -16               LOAD WORDS PER ROW POINTER
     2461   01 00782    32F00D1C     TESTBYTE LW,15    RETURN            LOAD DCP RETURN ADDRESS
     2462   01 00783    31400D20              CW,4     BYTCOUNT          COMPARE BYTE POINTER TO BYTE COUNT
     2463   01 00784    6910078C              BL       LOADBYTE          IF LESS, GO TO LOAD BYTE
     2464   01 00785    20500010 A   SENDMESS AI,5     16                FIND WORD COUNT
     2465   01 00786    25500202 A            SCS,5    2                 MULTIPLY BY 4
     2466   01 00787    75520E71              STB,5    MW18,1            STORE BYTE COUNT FOR THIS MESSAGE
     2467   01 00788    E8300D1C              BEZ      *RETURN
     2468   01 00789    32C00E71              LW,12    MW18              LOAD ADDRESS OF OUPUT AREA
     2469   01 0078A    022000D0 A            LCI      13                LOAD MESSAGE LEVEL 1
     2470   01 0078B    680005CA              B        ZTWLP             GO TO OUTPUT MESSAGE ROUTINE
     2471   01 0078C    327012B4     LOADBYTE LW,7     L(X'40404040')    LOAD 'BLANK' WORD
     2472   01 0078D    72C810A2              LB,12    RPATTERN,4        FETCH RECEIVED BYTE
     2473   01 0078E    31200698              CW,2     P1                TEST FOR TEST MODE 2
     2474   01 0078F    68300793              BE       %+4               IF TEST MODE DON'T DO THE COMPARISON
     2475   01 00790    71C80EA2              CB,12    XPATTERN,4        COMPARE WITH XMITTED BYTE
     2476   01 00791    68300793              BE       %+2               IF EQUAL, GOOD
     2477   01 00792    327012B5              LW,7     L(X'405C4040')    BYTES DIDN'T COMPARE,LOAD ASTERISK
     2478   01 00793    6AF004FD              BAL,15   ZBTH              CONVERT BINARY TO HEX
     2479   01 00794    55D20007 A            STH,13   7,1
     2480   01 00795    357A0E82              STW,7    TEXT18+16,5       STORE TRANSLATED BYTE IN MESSAGE
     2481   01 00796    33100004 A            MTW,1    4                 INCREMENT BYTE POINTER
     2482   01 00797    65500782              BIR,5    TESTBYTE          INCREMENT & TEST ROW POINTER
     2483   01 00798    6AF00785              BAL,15   SENDMESS          IF POINTER =0,OUTPUT MESSAGE
     2484   01 00799    68000781              B        ROWCOUNT          GO BACK TO LOAD -16 TO  ROW POINTER
     2485                            *
     2486                            *                 S T A R T  I N P U T  / O U T P U T  R O U T I N E
     2487                            *
     2488                            *                 THIS ROUTINE CAUSES A SIO INSTRUCTION TO BE
     2489                            *                 ISSUED TO THE CIU SPECIFIED BY THE IOP-DEVICE
     2490                            *                 ADDRESS DIRECTIVE (DDA) THE ORDER, COMMAND DOUBLEWORD
     2491                            *                 FLAGS AND NUMBER OF BYTES TO BE TRANSFERRED
     2492                            *                 ARE SPECIFIED BY PARAMETERS (X1,X2,D3).
     2493                            *                 AT COMPLETION,THIS ROUTINE WILL CALL THE
     2494                            *                 ERROR/STATUS REPORTER ROUTINE.
     2495   01 0079A    40000000 A            DATA     4**28             ORDER BYTE
     2496   01 0079B    40000000 A            DATA     4**28             COMMAND DOUBLEWORD FLAGS
     2497   01 0079C    20000000 A            DATA     2**28             NUMBER OF BYTES TO BE TRANSFERRED
     2498   01 0079D    40000000 A            DATA     4**28             STATUS COMPARE BITS
     2499                            *
     2500                            *
     2501                            SIOTEST ;
     2502   01 0079E    327012B6              LW,7     L('SIO ')         LOAD TYPE OF I/O OPERATION
     2503   01 0079F    7266069B              LB,6     P4,3              LOAD COMPARE STATUS BYTE
     2504   01 007A0    6AE007FE              BAL,14   FORMATIO          BRANCH TO ROUTINE FOR FORMATTING I/O
     2505   01 007A1    22A00000 A            LI,10    0                 LOAD ZERO WORD
     2506   01 007A2    35A00D3F              STW,10   CDW+1             ZERO FLAGS AND BYTE COUNT WORD
     2507   01 007A3    326012C3              LW,6     =BA(XPATTERN)     LOAD BYTE ADDRESS OF XMIT PATTERN
     2508   01 007A4    72560698              LB,5     P1,3              LOAD THE ORDER BYTE
     2509   01 007A5    45500001 A            CS,5     1                 TEST THE READ/WRITE BIT
     2510   01 007A6    683007A8              BE       %+2               IF NOT SET LOAD RECEIVED PATTERN
     2511   01 007A7    326012C4              LW,6     =BA(RPATTERN)     LOAD BYTE ADDRESS OF RECEIVED PATTN
     2512   01 007A8    35600D3E              STW,6    CDW               STORE BYTE ADDRESS OF PATTERN TABLE
     2513   01 007A9    75500D3E              STB,5    CDW               STORE THE ORDER BYTE
     2514   01 007AA    72560699              LB,5     P2,3              FETCH FLAG BYTE
     2515   01 007AB    75500D3F              STB,5    CDW+1             STORE FLAG BYTE
     2516   01 007AC    5252069A              LH,5     P3,1              FETCH BYTE COUNT
     2517   01 007AD    693007AF              BNEZ     %+2               IF BYTE COUNT IS NON ZERO BRANCH
     2518   01 007AE    22500001 A            LI,5     1                 MAKE SURE BYTE COUNT IS NOT ZERO
     2519   01 007AF    21500800 A            CI,5     2048              TEST FOR MAXIMUM ALLOWED BYTE COUNT
     2520   01 007B0    682007B2              BLE      %+2               IF LESS BRANCH
     2521   01 007B1    22500800 A            LI,5     2048              LOAD LARGEST ALLOWED BYTE COUNT
     2522   01 007B2    55520D3F              STH,5    CDW+1,1           STORE BYTE COUNT
     2523   01 007B3    2200069F              LI,0     DA(CDW)
     2524   01 007B4    22B00D8C              LI,11    FLGTAB00
     2525   01 007B5    32600D1D              LW,6     IOPOINT           FETCH IOP-ADDRESS POINTER
     2526   01 007B6    35600D1E              STW,6    POINTER           SAVE IOP-ADDRESS  POINTER
     2527                            *
     2528                            *
     2529                            SIOTEST1 ;
     2530   01 007B7    32600D1E              LW,6     POINTER           FETCH IOP-ADDRESS POINTER
     2531   01 007B8    32700000 A            LW,7     0                 FETCH THE CDW ADDRESS
     2532   01 007B9    25700401 A            SAS,7    1                 FIND WORD ADDRESS
     2533   01 007BA    22A00000 A            LI,10    0                 ZERO REGISTER 10
     2534   01 007BB    35A00D1F              STW,10   READFLAG          ZERO THE READ FLAG
     2535   01 007BC    B2900007 A            LW,9     *7                FETCH THE ORDER
     2536   01 007BD    4B9012B7              AND,9    L(X'01000000')    MASK AND SAVE THE READ/WRITE BIT
     2537   01 007BE    693007C0              BNEZ     %+2               IF WRITE BRANCH
     2538   01 007BF    35100D1F              STW,1    READFLAG          SET THE READ BIT
     2539   01 007C0    B2920007 A            LW,9     *7,1              FETCH CDW FLAGS
     2540   01 007C1    4B9012B8              AND,9    L(X'5E00FFFF')    MASK OUT DATA, COMMAND & SKIP BITS
     2541   01 007C2    B5920007 A            STW,9    *7,1              RESTORE CDW FLAGS
     2542   01 007C3    52520009 A            LH,5     9,1               FETCH THE BYTE COUNT
     2543   01 007C4    355C0CE0              STW,5    IOPBYTE,6         SAVE
     2544   01 007C5    33000D1F              MTW,0    READFLAG
     2545   01 007C6    683007CA              BEZ      %+4
     2546   01 007C7    225FFE00 A            LI,5     -512
     2547   01 007C8    35AA12A2              STW,10   RPATTERN+512,5    STORE ZEROS IN RECEIVED PATTERN TABL
     2548   01 007C9    655007C8              BIR,5    %-1               DO UNTIL DONE
     2549   01 007CA    22600000 A            LI,6     0                 ZERO STATUS INPUT AREA
     2550   01 007CB    22700000 A            LI,7     0                 ZERO STATUS INPUT AREA
     2551   01 007CC    CC600D1B              SIO,6    *IOPDEVCE         START INPUT OR OUTPUT
     2552   01 007CD    07000000 A            REPORTER                   CALL ERROR/STATUS REPORTER ROUTINE
     2553                            *
     2554                            *
     2555                            *                 T E S T  I N P U T  / O U T P U T  R O U T I N E
     2556                            *
     2557                            *
     2558                            *                 THIS ROUTINE CAUSES A TIO INSTRUCTION TO BE
     2559                            *                 ISSUED TO THE CIU SPECIFIED BY THE IOP-DEVICE
     2560                            *                 ADDRESS DIRECTIVE (DDA)
     2561                            *
     2562   01 007CE    40000000 A            DATA     4**28             STATUS COMPARE BITS
     2563                            *
     2564                            *
     2565                            TIOTEST ;
     2566   01 007CF    327012B9              LW,7     L('TIO ')
     2567   01 007D0    72660698              LB,6     P1,3              LOAD COMPARE STATUS BYTE
     2568   01 007D1    6AE007FE              BAL,14   FORMATIO          BRANCH TO ROUTINE FOR I/O FORMATTING
     2569                            *
     2570                            *
     2571   01 007D2    CD600D1B     TIOTEST1 TIO,6    *IOPDEVCE         TEST I/O
     2572   01 007D3    07000000 A            REPORTER                   CALL ERROR/STATUS REPORTER ROUTINE
     2573                            *
     2574                            *
     2575                            *                 H A L T  I N P U T  / O U T P U T  R O U T I N E
     2576                            *
     2577                            *
     2578                            *                 THIS ROUTINE CAUSES A HIO INSTRUCTION TO BE
     2579                            *                 ISSUED TO THE CIU SPECIFIED BY THE IOP-DEVICE
     2580                            *                 ADDRESS DIRECTIVE (DDA).
     2581   01 007D4    40000000 A            DATA     4**28             STATUS COMPARE BITS
     2582                            *
     2583                            *
     2584                            HIOTEST ;
     2585   01 007D5    327012BA              LW,7     L('HIO ')
     2586   01 007D6    72660698              LB,6     P1,3              LOAD COMPARE STATUS BYTE
     2587   01 007D7    6AE007FE              BAL,14   FORMATIO          BRANCH TO ROUTINE FOR I/O FORMATTING
     2588                            *
     2589                            *
     2590   01 007D8    CF600D1B     HIOTEST1 HIO,6    *IOPDEVCE         HALT I/O
     2591   01 007D9    07000000 A            REPORTER                   CALL ERROR STATUS REPORTER ROUTINE
     2592                            *
     2593                            *
     2594                            *                 T E S T  D E V I C E  R O U T I N E
     2595                            *
     2596                            *
     2597                            *                 THIS ROUTINE CAUSES A TDV INSTRUCTION TO BE
     2598                            *                 ISSUED TO THE CIU SPECIFIED BY THE IOP-DEVICE
     2599                            *                 ADDRESS DIRECTIVE (DDA).
     2600   01 007DA    40000000 A            DATA     4**28             STATUS COMPARE BITS
     2601                            *
     2602                            *
     2603   01 007DB    327012BB     TDVTEST  LW,7     L('TDV ')
     2604   01 007DC    72660698              LB,6     P1,3              LOAD COMPARE STATUS BYTE
     2605   01 007DD    6AE007FE              BAL,14   FORMATIO          BRANCH TO ROUTINE FOR I/O FORMATTING
     2606                            *
     2607                            *
     2608   01 007DE    CE600D1B     TDVTEST1 TDV,6    *IOPDEVCE         TEST DEVICE STATUS
     2609   01 007DF    07000000 A            REPORTER                   CALL ERROR-STATUS REPORTER ROUTINE
     2610                            *
     2611                            *
     2612                            *                 A C K N O W L E D G E  I / O  R O U T I N E
     2613                            *
     2614                            *
     2615                            *                 THIS DIRECTIVE WILL ACKNOWLEDGE AN I/O INTERRUPT
     2616                            *                 IF ONE IS PENDING, IF NO INTERRUPT IS PENDING THE
     2617                            *                 AIO INSTRUCTION WILL STILL BE EXECUTED.
     2618                            *
     2619   01 007E0    40000000 A            DATA     4**28             STATUS COMPARE BITS
     2620                            *
     2621                            *
     2622                            AIOTEST ;
     2623   01 007E1    35F00D1C              STW,15   RETURN            SAVE THE DCP RETURN ADDRESS
     2624   01 007E2    327012BC              LW,7     L('AIO ')         LOAD TYPE OF OPERATION
     2625   01 007E3    35700E0B              STW,7    TEXT01            SAVE TYPE OF OPERATION
     2626   01 007E4    22600E0A              LI,6     MW01              LOAD ADDRESS OF I?O MESSAGE
     2627   01 007E5    35600D21              STW,6    MESSAGE           SAVE ADDRESS OF I?O MESSAGE
     2628   01 007E6    72660698              LB,6     P1,3              FETCH COMPARE STATUS
     2629   01 007E7    75600D8E              STB,6    FLGTAB01          SAVE COMPARE STATUS
     2630   01 007E8    75600D90              STB,6    FLGTAB02          SAVE COMPARE STATUS
     2631   01 007E9    22B00D8E              LI,11    FLGTAB01          LOAD ADDRESS OF FLAG WORD
     2632   01 007EA    22700000 A            LI,7     0                 ZERO RECEIVED STATUS AREA
     2633                            *
     2634                            *
     2635                            *
     2636   01 007EB    32600D31     AIOTEST1 LW,6     XPSDAIO           FETCH XPSD
     2637   01 007EC    3560005C A            STW,6    X'5C'             STORE XPSD IN I/O INTERRUPT LOCATION
     2638                            *
     2639                            *
     2640   01 007ED    22500020 A            LI,5     X'20'             LOAD I/O INTERRUPT BIT
     2641   01 007EE    6D501200 A            WD,5     X'1200'           ARM AND ENABLE I/O INTERRUPT
     2642   01 007EF    6D000022 A            WD,0     X'22'             RESET INTERNAL  INTERRUPT INHIBIT
     2643   01 007F0    22400032 A            LI,4     50                LOAD A DELAY
     2644   01 007F1    644007F1              BDR,4    %                 DELAY 100 MIRCOSECONDS
     2645                            *
     2646                            *
     2647   01 007F2    6D000032 A            WD,0     X'32'
     2648   01 007F3    6E700000 A            AIO,7    0                 ACKNOWLEDGE INTERRUPT
     2649   01 007F4    07000000 A            REPORTER                   CALL TO ERROR STATUS REPORTER
     2650                            *
     2651                            *
     2652                            *                 I / O  I N T E R R U P T  S E R V I C E  R O U T I N E
     2653                            *
     2654                            *
     2655                                     BOUND    8
     2656                            *
     2657   01 007F6    00000000 A   AIOINTRT DATA     0,0
            01 007F7    00000000 A
     2658   01 007F8    000007FA              DATA     %+2,7**24
            01 007F9    07000000 A
     2659   01 007FA    330006A1              MTW,0    AUTOFLAG
     2660   01 007FB    693007FD              BNEZ     %+2
     2661   01 007FC    22B00D90              LI,11    FLGTAB02
     2662   01 007FD    0E2007F6              LPSD,2   AIOINTRT
     2663                            *
     2664                            *
     2665                            *
     2666                            *                 I /  O  F O R M A T T I N G  R O U T I N E
     2667                            *
     2668   01 007FE    35F00D1C     FORMATIO STW,15   RETURN            SAVE DCP RETURN ADDRESS
     2669   01 007FF    32400CD4              LW,4     IOPCIUA           FETCH IOP-DEVICE ADDRESS
     2670   01 00800    35400D1B              STW,4    IOPDEVCE          SAVE THE IOP-DEVICE ADDRESS
     2671   01 00801    75600D92              STB,6    FLGTAB04
     2672   01 00802    75600D8C              STB,6    FLGTAB00,0        SAVE STATUS
     2673   01 00803    35700E0B              STW,7    TEXT01            SAVE TYPE OF I/O OPERATION
     2674   01 00804    22600E0A              LI,6     MW01              LOAD ADDRESS OF I/O MESSAGE
     2675   01 00805    35600D21              STW,6    MESSAGE           SAVE ADDRESS OF I/O MESSAGE
     2676   01 00806    22B00D92              LI,11    FLGTAB04
     2677   01 00807    32400020 A            LW,4     X'20'             ARM I/O
     2678   01 00808    6D401300 A            WD,4     X'1300'                INTERRUPT
     2679   01 00809    22600000 A            LI,6     0                 ZERO STATUS INPUT AREA
     2680   01 0080A    22700000 A            LI,7     0                 ZERO STATUS INPUT AREA
     2681   01 0080B    E800000E A            B        *14               BRANCH TO MAIN I/O ROUTINE
     2682                            *
     2683                            *                 THIS PROCEDURE GENERATES SUB-TEST NUMBERS
     2684                            *                 FOR TEST LOOP 1
     2685                            *
     2686         00000000           TNONE    SET      0
     2687         00000000           TESTONE  FNAME
     2688                                     PROC
     2689                            TNONE    SET      TNONE+1
     2690                                     PEND     TNONE
     2691                            *
     2692                            *                 THIS PROCEDURE GENERATES SUB-TEST NUMBERS
     2693                            *                 FOR TEST LOOP 2
     2694                            *
     2695         00000000           TNTWO    SET      0
     2696         00000000           TESTTWO  FNAME
     2697                                     PROC
     2698                            TNTWO    SET      TNTWO+1
     2699                                     PEND     TNTWO
     2700                            *
     2701                            *                 THIS PROCEDURE GENERATES SUB-TEST NUMBERS
     2702                            *                 FOR TEST LOOP 3 AND AUTO
     2703                            *
     2704         00000000           TNAUTO   SET      0
     2705         00000000           AUTONO   FNAME
     2706                                     PROC
     2707                            TNAUTO   SET      TNAUTO+1
     2708                                     PEND     TNAUTO
     2709                            *
     2710                            *                 THIS PROCEDURE-GNERATES A SUB-TEST NUMBER
     2711                            *                 FOR EVERY SUB-TEST IN THE PROGRAM
     2712                            *
     2713         00000000           TNTOTAL  SET      0
     2714         00000000           TOTALNUM FNAME
     2715                                     PROC
     2716                            TNTOTAL  SET      TNTOTAL+1
     2717                                     PEND     TNTOTAL
     2718                            *
     2719                            *
     2720                            *                 T E S T  L O O P 1
     2721                            *
     2722                            *
     2723                            *                 THIS DIRECTIVE WILL AUTOMATICALLY TEST AN EXTENSIVE
     2724                            *                 PORTION OF A CIU'S LOGIC, WITHOUT INVOLDING ANOTHER
     2725                            *                 COMPUTER AND ITS CIU. FOR THIS DIRECTIVE, TEST MODE 1
     2726                            *                 SWITCH MUST BE SET & THE PARITY SWITCH MUST BE SET.
     2727                            *                 THIS DIRECTIVE WILL AUTOMATICALLY SEQUENCE THROUGH
     2728                            *                 A SET OF SUB-TEST, IF AN ERROR IS DETECTED,
     2729                            *                 TESTING IS HALTED, THE ERROR IS REPORTED AND
     2730                            *                 A PLACEMARK BRANCH IS TAKEN. IF NO ERRORS ARE
     2731                            *                 DETECTED 'SUCCESS-TEST LOOP 1' IS OUTPUT
     2732                            *
     2733                            *
     2734                            *
     2735   01 0080C    35F00D1C     TONE     STW,15   RETURN
     2736   01 0080D    351006A1              STW,1    AUTOFLAG
     2737   01 0080E    22600E0C              LI,6     MW02
     2738   01 0080F    35600D21              STW,6    MESSAGE
     2739   01 00810    226000F1 A            LI,6     '1'
     2740   01 00811    75640E0F              STB,6    TEXT02+2,2
     2741   01 00812    75640E63              STB,6    TEXT15+4,2        SAVE DIRECTIVE NUMBER FOR SUCCESS MG
     2742   01 00813    32400CD4              LW,4     IOPCIUA           FETCH THE IOP-DEVICE ADDRESS
     2743   01 00814    35400D1B              STW,4    IOPDEVCE          SAVE THE IOP-DEVICE ADDRESS
     2744   01 00815    32600D1D              LW,6     IOPOINT           FETCH IOP-ADDRESS POINTER
     2745   01 00816    35600D1E              STW,6    POINTER           SAVE IOP-ADDRESS POINTER
     2746   01 00817    22400020 A            LI,4     X'20'             ARM AND DISABLE
     2747   01 00818    6D401300 A            WD,4     X'1300'               I/O INTERRUPTS
     2748                            *                 T E S T  I N I T I A L  C O N D I T I O N S
     2749                            *
     2750                            *                 S U B - T E S T  1
     2751                            *                 RESET THE CIU
     2752                            *
     2753   01 00819    22600001 A            LI,6     TESTONE           GENERATE SUB-TEST NUMBER
     2754   01 0081A    22700001 A            LI,7     TOTALNUM          GENERATE PROGRAM TEST NUMBER
     2755   01 0081B    15600CD6              STD,6    SUBTEST           SAVE THEM IN WORK AREA
     2756   01 0081C    22B00D96              LI,11    TONEPA01          LOAD ADDRESS POINTER TO FLAG WORD
     2757   01 0081D    6AE007D8              BAL,14   HIOTEST1          GO DO HIO THEN COMPARE R TO E STATUS
     2758                            *
     2759                            *                 S U B - T E S T  2
     2760                            *                 TEST FOR DEVICE READY AND AUTOMATIC MODE
     2761                            *
     2762   01 0081E    22600002 A            LI,6     TESTONE
     2763   01 0081F    22700002 A            LI,7     TOTALNUM
     2764   01 00820    15600CD6              STD,6    SUBTEST
     2765   01 00821    22B00D98              LI,11    TONEPA02
     2766   01 00822    6AE007D2              BAL,14   TIOTEST1
     2767                            *
     2768                            *                 S U B - T E S T  3
     2769                            *                 TEST FOR 4 MOST SIGNIFICANT STATUS BITS RESET
     2770                            *
     2771   01 00823    22600003 A            LI,6     TESTONE
     2772   01 00824    22700003 A            LI,7     TOTALNUM
     2773   01 00825    15600CD6              STD,6    SUBTEST
     2774   01 00826    22B00D9A              LI,11    TONEPA03
     2775   01 00827    6AE007DE              BAL,14   TDVTEST1
     2776                            *
     2777                            *
     2778                            *                 S U B - T E S T  4
     2779                            *                 A STOP SIO, WITH INTERRUPT ON UE SET CDW
     2780                            *
     2781   01 00828    22600004 A            LI,6     TESTONE
     2782   01 00829    22700004 A            LI,7     TOTALNUM
     2783   01 0082A    15600CD6              STD,6    SUBTEST
     2784   01 0082B    22B00D98              LI,11    TONEPA02
     2785   01 0082C    220006A0              LI,0     DA(ONE04)
     2786   01 0082D    6AE007B7              BAL,14   SIOTEST1
     2787                            *
     2788                            *
     2789                            *                 S U B - T E S T  5
     2790                            *                 TEST FOR INTERRUPT PENDING
     2791                            *
     2792   01 0082E    22600005 A            LI,6     TESTONE
     2793   01 0082F    22700005 A            LI,7     TOTALNUM
     2794   01 00830    15600CD6              STD,6    SUBTEST
     2795   01 00831    22B00D9C              LI,11    TONEPA05
     2796   01 00832    6AE007D2              BAL,14   TIOTEST1
     2797                            *
     2798                            *
     2799                            *                 S U B - T E S T  6
     2800                            *                 TEST NO DEVICE STATUS
     2801                            *
     2802   01 00833    22600006 A            LI,6     TESTONE
     2803   01 00834    22700006 A            LI,7     TOTALNUM
     2804   01 00835    15600CD6              STD,6    SUBTEST
     2805   01 00836    22B00D9E              LI,11    TONEPA06
     2806   01 00837    6AE007DE              BAL,14   TDVTEST1
     2807                            *
     2808                            *
     2809                            *                 S U B - T E S T  7
     2810                            *                 ACKNOWLEDGE PENDING INTERRUPT
     2811                            *
     2812   01 00838    22600007 A            LI,6     TESTONE
     2813   01 00839    22700007 A            LI,7     TOTALNUM
     2814   01 0083A    15600CD6              STD,6    SUBTEST
     2815   01 0083B    22B00D9E              LI,11    TONEPA06
     2816   01 0083C    6AE007EB              BAL,14   AIOTEST1
     2817                            *
     2818                            *
     2819                            *                 S U B - T E S T  8
     2820                            *                 TEST FOR NO INTERRUPT PENDING
     2821                            *
     2822   01 0083D    22600008 A            LI,6     TESTONE
     2823   01 0083E    22700008 A            LI,7     TOTALNUM
     2824   01 0083F    15600CD6              STD,6    SUBTEST
     2825   01 00840    22B00DA0              LI,11    TONEPA08
     2826   01 00841    6AE007D2              BAL,14   TIOTEST1
     2827                            *
     2828                            *
     2829                            *                 S U B - T E S T  9
     2830                            *                 RESET CIU
     2831                            *
     2832   01 00842    22600009 A            LI,6     TESTONE
     2833   01 00843    22700009 A            LI,7     TOTALNUM
     2834   01 00844    15600CD6              STD,6    SUBTEST
     2835   01 00845    22B00DA0              LI,11    TONEPA08
     2836   01 00846    6AE007D8              BAL,14   HIOTEST1
     2837                            *
     2838                            *
     2839                            *
     2840                            *                 S U B - T E S T  1 0
     2841                            *                 TEST FOR NOT UNUSUAL END
     2842                            *
     2843   01 00847    2260000A A            LI,6     TESTONE
     2844   01 00848    2270000A A            LI,7     TOTALNUM
     2845   01 00849    15600CD6              STD,6    SUBTEST
     2846   01 0084A    22B00D98              LI,11    TONEPA02
     2847   01 0084B    6AE007D2              BAL,14   TIOTEST1
     2848                            *                 I L L E G A L  R E S P O N D  T E S T
     2849                            *
     2850                            *                 S U B - T E S T  1 1
     2851                            *                 A RESPOND WRITE SIO
     2852                            *
     2853   01 0084C    2260000B A            LI,6     TESTONE
     2854   01 0084D    2270000B A            LI,7     TOTALNUM
     2855   01 0084E    15600CD6              STD,6    SUBTEST
     2856   01 0084F    22B00D98              LI,11    TONEPA02
     2857   01 00850    220006A1              LI,0     DA(ONE11)
     2858   01 00851    6AE007B7              BAL,14   SIOTEST1
     2859                            *
     2860                            *
     2861                            *                 S U B - T E S T  1 2
     2862                            *                 TEST FOR INTERRUPT PENDING
     2863                            *
     2864   01 00852    2260000C A            LI,6     TESTONE
     2865   01 00853    2270000C A            LI,7     TOTALNUM
     2866   01 00854    15600CD6              STD,6    SUBTEST
     2867   01 00855    22B00DA2              LI,11    TONEPA12
     2868   01 00856    6AE007D2              BAL,14   TIOTEST1
     2869                            *
     2870                            *
     2871                            *                 S U B - T E S T  1 3
     2872                            *                 TEST FOR NOT RESPONDENT AND ORDER NOT GOOD
     2873                            *
     2874   01 00857    2260000D A            LI,6     TESTONE
     2875   01 00858    2270000D A            LI,7     TOTALNUM
     2876   01 00859    15600CD6              STD,6    SUBTEST
     2877   01 0085A    22B00DA4              LI,11    TONEPA13
     2878   01 0085B    6AE007DE              BAL,14   TDVTEST1
     2879                            *
     2880                            *
     2881                            *                 S U B - T E S T  1 4
     2882                            *                 ACKNOWLEDGE PENDING INTERRUPT
     2883                            *
     2884   01 0085C    2260000E A            LI,6     TESTONE
     2885   01 0085D    2270000E A            LI,7     TOTALNUM
     2886   01 0085E    15600CD6              STD,6    SUBTEST
     2887   01 0085F    22B00DA4              LI,11    TONEPA13
     2888   01 00860    6AE007EB              BAL,14   AIOTEST1
     2889                            *
     2890                            *
     2891                            *                 S U B - T E S T  1 5
     2892                            *                 TEST FOR INTERRUPT NOT PENDING
     2893                            *
     2894   01 00861    2260000F A            LI,6     TESTONE
     2895   01 00862    2270000F A            LI,7     TOTALNUM
     2896   01 00863    15600CD6              STD,6    SUBTEST
     2897   01 00864    22B00DA0              LI,11    TONEPA08
     2898   01 00865    6AE007D2              BAL,14   TIOTEST1
     2899                            *
     2900                            *
     2901                            *                 S U B - T E S T  1 6
     2902                            *                 RESET CIU
     2903                            *
     2904   01 00866    22600010 A            LI,6     TESTONE
     2905   01 00867    22700010 A            LI,7     TOTALNUM
     2906   01 00868    15600CD6              STD,6    SUBTEST
     2907   01 00869    22B00DA0              LI,11    TONEPA08
     2908   01 0086A    6AE007D8              BAL,14   HIOTEST1
     2909                            *
     2910                            *
     2911                            *                 S U B - T E S T  1 7
     2912                            *                 TEST FOR CIU RESET
     2913                            *
     2914   01 0086B    22600011 A            LI,6     TESTONE
     2915   01 0086C    22700011 A            LI,7     TOTALNUM
     2916   01 0086D    15600CD6              STD,6    SUBTEST
     2917   01 0086E    22B00D9A              LI,11    TONEPA03
     2918   01 0086F    6AE007DE              BAL,14   TDVTEST1
     2919                            *                 T W O  I N I T I A T O R  T E S T
     2920                            *
     2921                            *                 S U B - T E S T  1 8
     2922                            *                 AN INITIATE READ SIO WITH THE 'INTERRUPT ON UE'
     2923                            *                 FLAG SET
     2924                            *
     2925   01 00870    22600012 A            LI,6     TESTONE
     2926   01 00871    22700012 A            LI,7     TOTALNUM
     2927   01 00872    15600CD6              STD,6    SUBTEST
     2928   01 00873    22B00D98              LI,11    TONEPA02
     2929   01 00874    220006A2              LI,0     DA(ONE18)
     2930   01 00875    6AE007B7              BAL,14   SIOTEST1
     2931                            *
     2932                            *
     2933                            *                 S U B - T E S T  1 9
     2934                            *                 TEST FOR INTERRUPT PENDING AND UNUSUAL END
     2935                            *
     2936   01 00876    22600013 A            LI,6     TESTONE
     2937   01 00877    22700013 A            LI,7     TOTALNUM
     2938   01 00878    15600CD6              STD,6    SUBTEST
     2939   01 00879    22B00DA2              LI,11    TONEPA12
     2940   01 0087A    6AE007D2              BAL,14   TIOTEST1
     2941                            *
     2942                            *
     2943                            *                 S U B - T E S T  2 0
     2944                            *                 ACKNOWLEDGE INTERRUPT, TEST FOR RESPONDENT & NOT
     2945                            *                 ORDER NOT GOOD
     2946   01 0087B    22600014 A            LI,6     TESTONE
     2947   01 0087C    22700014 A            LI,7     TOTALNUM
     2948   01 0087D    15600CD6              STD,6    SUBTEST
     2949   01 0087E    22B00DA6              LI,11    TONEPA20
     2950   01 0087F    6AE007EB              BAL,14   AIOTEST1
     2951                            *
     2952                            *
     2953                            *                 S U B - T E S T  2 1
     2954                            *                 AN INITIATE WRITE SIO WITH THE 'INTERRUPT ON UE'
     2955                            *                 FLAG SET
     2956                            *
     2957   01 00880    22600015 A            LI,6     TESTONE
     2958   01 00881    22700015 A            LI,7     TOTALNUM
     2959   01 00882    15600CD6              STD,6    SUBTEST
     2960   01 00883    22B00DA8              LI,11    TONEPA22
     2961   01 00884    220006A3              LI,0     DA(ONE21)
     2962   01 00885    6AE007B7              BAL,14   SIOTEST1
     2963                            *
     2964                            *
     2965                            *                 S U B - T E S T  2 2
     2966                            *                 TEST FOR NOT RESPONDENT AND ORDER NOT GOOD
     2967                            *
     2968   01 00886    22600016 A            LI,6     TESTONE
     2969   01 00887    22700016 A            LI,7     TOTALNUM
     2970   01 00888    15600CD6              STD,6    SUBTEST
     2971   01 00889    22B00DA4              LI,11    TONEPA13
     2972   01 0088A    6AE007DE              BAL,14   TDVTEST1
     2973                            *
     2974                            *
     2975                            *                 S U B - T E S T  2 3
     2976                            *                 RESET CIU
     2977                            *
     2978   01 0088B    22600017 A            LI,6     TESTONE
     2979   01 0088C    22700017 A            LI,7     TOTALNUM
     2980   01 0088D    15600CD6              STD,6    SUBTEST
     2981   01 0088E    22B00DAA              LI,11    TONEPA23
     2982   01 0088F    6AE007D8              BAL,14   HIOTEST1
     2983                            *                 I N CO M P A T I B L E  R E A D  O R D E R  T E S T
     2984                            *
     2985                            *                 S U B - T E S T  2 4
     2986                            *                 A INITIATE READ SIO
     2987                            *
     2988   01 00890    22600018 A            LI,6     TESTONE
     2989   01 00891    22700018 A            LI,7     TOTALNUM
     2990   01 00892    15600CD6              STD,6    SUBTEST
     2991   01 00893    22B00D98              LI,11    TONEPA02
     2992   01 00894    220006A4              LI,0     DA(ONE24)
     2993   01 00895    6AE007B7              BAL,14   SIOTEST1
     2994                            *
     2995                            *
     2996                            *                 S U B - T E S T  2 5
     2997                            *                 ACKNOWLEDGE PENDING INTERRUPT
     2998                            *
     2999   01 00896    22600019 A            LI,6     TESTONE
     3000   01 00897    22700019 A            LI,7     TOTALNUM
     3001   01 00898    15600CD6              STD,6    SUBTEST
     3002   01 00899    22B00DAC              LI,11    TONEPA25
     3003   01 0089A    6AE007EB              BAL,14   AIOTEST1
     3004                            *
     3005                            *
     3006                            *                 S U B - T E S T  2 6
     3007                            *                 A RESPOND READ SIO WITH THE 'INTERRUPT ON UE' FLAG SET
     3008                            *
     3009   01 0089B    2260001A A            LI,6     TESTONE
     3010   01 0089C    2270001A A            LI,7     TOTALNUM
     3011   01 0089D    15600CD6              STD,6    SUBTEST
     3012   01 0089E    22B00DA8              LI,11    TONEPA22
     3013   01 0089F    220006A5              LI,0     DA(ONE26)
     3014   01 008A0    6AE007B7              BAL,14   SIOTEST1
     3015                            *
     3016                            *
     3017                            *                 S U B - T E S T  2 7
     3018                            *                 TEST FOR INTERRUPT PENDING AND UE
     3019                            *
     3020   01 008A1    2260001B A            LI,6     TESTONE
     3021   01 008A2    2270001B A            LI,7     TOTALNUM
     3022   01 008A3    15600CD6              STD,6    SUBTEST
     3023   01 008A4    22B00DA2              LI,11    TONEPA12
     3024   01 008A5    6AE007D2              BAL,14   TIOTEST1
     3025                            *
     3026                            *
     3027                            *                 S U B - T E S T  2 8
     3028                            *                 TEST FOR NOT RESPONDENT AND ORDER NOT GOOD
     3029                            *
     3030   01 008A6    2260001C A            LI,6     TESTONE
     3031   01 008A7    2270001C A            LI,7     TOTALNUM
     3032   01 008A8    15600CD6              STD,6    SUBTEST
     3033   01 008A9    22B00DAE              LI,11    TONEPA28
     3034   01 008AA    6AE007EB              BAL,14   AIOTEST1
     3035                            *
     3036                            *
     3037                            *                 S U B - T E S T  2 9
     3038                            *                 RESET CIU
     3039                            *
     3040   01 008AB    2260001D A            LI,6     TESTONE
     3041   01 008AC    2270001D A            LI,7     TOTALNUM
     3042   01 008AD    15600CD6              STD,6    SUBTEST
     3043   01 008AE    22B00DB0              LI,11    TONEPA29
     3044   01 008AF    6AE007D8              BAL,14   HIOTEST1
     3045                            *                 I N C O M P A T I B L E  W R I T E  O R D E R  T E S T
     3046                            *
     3047                            *                 S U B - T E S T  3 0
     3048                            *                 A INITIATE WRITE SIO
     3049                            *
     3050   01 008B0    2260001E A            LI,6     TESTONE
     3051   01 008B1    2270001E A            LI,7     TOTALNUM
     3052   01 008B2    15600CD6              STD,6    SUBTEST
     3053   01 008B3    22B00D98              LI,11    TONEPA02
     3054   01 008B4    220006A6              LI,0     DA(ONE30)
     3055   01 008B5    6AE007B7              BAL,14   SIOTEST1
     3056                            *
     3057                            *
     3058                            *                 S U B - T E S T  3 1
     3059                            *                 ACKNOWLEDGE PENDING INTERRUPT
     3060                            *
     3061   01 008B6    2260001F A            LI,6     TESTONE
     3062   01 008B7    2270001F A            LI,7     TOTALNUM
     3063   01 008B8    15600CD6              STD,6    SUBTEST
     3064   01 008B9    22B00DB2              LI,11    TONEPA31
     3065   01 008BA    6AE007EB              BAL,14   AIOTEST1
     3066                            *
     3067                            *
     3068                            *                 S U B - T E S T  3 2
     3069                            *                 A RESPOND WRITE SIO WITH THE 'INTERRUPT ON UE'
     3070                            *                 FLAG SET
     3071                            *
     3072   01 008BB    22600020 A            LI,6     TESTONE
     3073   01 008BC    22700020 A            LI,7     TOTALNUM
     3074   01 008BD    15600CD6              STD,6    SUBTEST
     3075   01 008BE    22B00DB0              LI,11    TONEPA29
     3076   01 008BF    220006A7              LI,0     DA(ONE32)
     3077   01 008C0    6AE007B7              BAL,14   SIOTEST1
     3078                            *
     3079                            *
     3080                            *                 S U B - T E S T  3 3
     3081                            *                 ACKNOWLEDGE PENDING INTERRUPT
     3082                            *
     3083   01 008C1    22600021 A            LI,6     TESTONE
     3084   01 008C2    22700021 A            LI,7     TOTALNUM
     3085   01 008C3    15600CD6              STD,6    SUBTEST
     3086   01 008C4    22B00DB4              LI,11    TONEPA33
     3087   01 008C5    6AE007EB              BAL,14   AIOTEST1
     3088                            *
     3089                            *
     3090                            *                 S U B - T E S T  3 4
     3091                            *                 RESET CIU
     3092                            *
     3093   01 008C6    22600022 A            LI,6     TESTONE
     3094   01 008C7    22700022 A            LI,7     TOTALNUM
     3095   01 008C8    15600CD6              STD,6    SUBTEST
     3096   01 008C9    22B00DB0              LI,11    TONEPA29
     3097   01 008CA    6AE007D8              BAL,14   HIOTEST1
     3098                            *                 D A T A  L I N E  T E S T
     3099                            *
     3100                            *        INITIALIZE TO TEST DATA PATHS
     3101                            *
     3102   01 008CB    226FFFE0 A            LI,6     -32
     3103   01 008CC    35600D16              STW,6    WORK1
     3104   01 008CD    22600010 A            LI,6     16
     3105   01 008CE    35600D2A              STW,6    NUMBYTES
     3106   01 008CF    22603A88              LI,6     BA(XPATTERN)
     3107   01 008D0    35600D29              STW,6    TEMPATTN
     3108   01 008D1    680008D3              B        LOOP2
     3109   01 008D2    33100D29     LOOP1    MTW,1    TEMPATTN
     3110                            LOOP2 ;
     3111   01 008D3    6AE00BEA              BAL,14   GENPATTN
     3112                            *
     3113                            *
     3114                            *                 S U B - T E S T  3 5
     3115                            *                 A INITIATE READ SIO
     3116                            *
     3117   01 008D4    22600023 A            LI,6     TESTONE
     3118   01 008D5    22700023 A            LI,7     TOTALNUM
     3119   01 008D6    15600CD6              STD,6    SUBTEST
     3120   01 008D7    22B00D98              LI,11    TONEPA02
     3121   01 008D8    220006A8              LI,0     DA(ONE35)
     3122   01 008D9    6AE007B7              BAL,14   SIOTEST1
     3123                            *
     3124                            *
     3125                            *                 S U B - T E S T  3 6
     3126                            *                 A INITIATE READ SIO, TEST FOR BUSY
     3127                            *
     3128   01 008DA    22600024 A            LI,6     TESTONE
     3129   01 008DB    22700024 A            LI,7     TOTALNUM
     3130   01 008DC    15600CD6              STD,6    SUBTEST
     3131   01 008DD    22B00DA2              LI,11    TONEPA12
     3132   01 008DE    220006A9              LI,0     DA(ONE36)
     3133   01 008DF    6AE007B7              BAL,14   SIOTEST1
     3134                            *
     3135                            *
     3136                            *                 S U B - T E S T  3 7
     3137                            *                 ACKNOWLEDGE PENDING INTERRUPT, TEST FOR RESPONDENT
     3138                            *
     3139   01 008E0    22600025 A            LI,6     TESTONE
     3140   01 008E1    22700025 A            LI,7     TOTALNUM
     3141   01 008E2    15600CD6              STD,6    SUBTEST
     3142   01 008E3    22B00DB8              LI,11    TONEPA37
     3143   01 008E4    6AE007EB              BAL,14   AIOTEST1
     3144                            *
     3145                            *
     3146                            *                 S U B - T E S T  3 8
     3147                            *                 A RESPOND WRITE SIO
     3148                            *
     3149   01 008E5    22600026 A            LI,6     TESTONE
     3150   01 008E6    22700026 A            LI,7     TOTALNUM
     3151   01 008E7    15600CD6              STD,6    SUBTEST
     3152   01 008E8    22B00DB0              LI,11    TONEPA29
     3153   01 008E9    220006AA              LI,0     DA(ONE38)
     3154   01 008EA    6AE007B7              BAL,14   SIOTEST1
     3155                            *
     3156                            *
     3157                            *                 DELAY FOR 150 USECS
     3158                            *
     3159   01 008EB    22400064 A            LI,4     100
     3160   01 008EC    12600CD2              LD,6     DLAYPROG
     3161   01 008ED    6AF00006 A            BAL,15   6
     3162                            *
     3163                            *
     3164                            *                 S U B - T E S T  3 9
     3165                            *                 TEST FOR 16 BYTES TRANSFERRED
     3166                            *
     3167   01 008EE    22600027 A            LI,6     TESTONE
     3168   01 008EF    22700027 A            LI,7     TOTALNUM
     3169   01 008F0    15600CD6              STD,6    SUBTEST
     3170   01 008F1    22B00DBA              LI,11    TONEPA42
     3171   01 008F2    6AE007D2              BAL,14   TIOTEST1
     3172                            *
     3173                            *
     3174                            *                 S U B - T E S T  4 0
     3175                            *                 A INITIATE WRITE SIO
     3176                            *
     3177   01 008F3    22600028 A            LI,6     TESTONE
     3178   01 008F4    22700028 A            LI,7     TOTALNUM
     3179   01 008F5    15600CD6              STD,6    SUBTEST
     3180   01 008F6    22B00D98              LI,11    TONEPA02
     3181   01 008F7    220006AB              LI,0     DA(ONE40)
     3182   01 008F8    6AE007B7              BAL,14   SIOTEST1
     3183                            *
     3184                            *                 DELAY FOR 150 USEC
     3185                            *
     3186   01 008F9    22400064 A            LI,4     100
     3187   01 008FA    12600CD2              LD,6     DLAYPROG
     3188   01 008FB    6AF00006 A            BAL,15   6
     3189                            *
     3190                            *
     3191                            *                 S U B - T E S T  4 1
     3192                            *                 ACKNOWLEDGE PENDING INTERRUPT
     3193                            *
     3194   01 008FC    22600029 A            LI,6     TESTONE
     3195   01 008FD    22700029 A            LI,7     TOTALNUM
     3196   01 008FE    15600CD6              STD,6    SUBTEST
     3197   01 008FF    22B00DB2              LI,11    TONEPA31
     3198   01 00900    6AE007EB              BAL,14   AIOTEST1
     3199                            *
     3200                            *
     3201                            *                 S U B - T E S T  4 2
     3202                            *                 A RESPOND READ SIO
     3203                            *
     3204   01 00901    2260002A A            LI,6     TESTONE
     3205   01 00902    2270002A A            LI,7     TOTALNUM
     3206   01 00903    15600CD6              STD,6    SUBTEST
     3207   01 00904    22B00DB0              LI,11    TONEPA29
     3208   01 00905    220006AC              LI,0     DA(ONE42)
     3209   01 00906    6AE007B7              BAL,14   SIOTEST1
     3210                            *
     3211                            *                 DELAY FOR 150 USECS
     3212                            *
     3213   01 00907    22400064 A            LI,4     100               LOAD 150 USECS DELAY
     3214   01 00908    12600CD2              LD,6     DLAYPROG          LOAD DELAY ROUTINE
     3215   01 00909    6AF00006 A            BAL,15   6                 GO TO DELAY ROUTINE
     3216                            *
     3217                            *
     3218                            *                 S U B - T E S T  43
     3219                            *                 TEST FOR 16 BYTES TRANSFERRED
     3220                            *
     3221   01 0090A    2260002B A            LI,6     TESTONE
     3222   01 0090B    2270002B A            LI,7     TOTALNUM
     3223   01 0090C    15600CD6              STD,6    SUBTEST
     3224   01 0090D    22B00DBA              LI,11    TONEPA42
     3225   01 0090E    6AE007D2              BAL,14   TIOTEST1
     3226                            *
     3227                            *
     3228                            *                 S U B - T E S T  4 4  T H R U  5 1
     3229                            *                 TEST DATA PATHS
     3230                            *
     3231   01 0090F    22800010 A            LI,8     16
     3232   01 00910    22904A88              LI,9     BA(WPATTERN)
     3233   01 00911    22B00DBC              LI,11    TONEPA44
     3234   01 00912    6AE00BCC              BAL,14   COMPARE1
     3235                            *
     3236                            *
     3237                            *
     3238         00000033           TNONE    SET      TNONE+8
     3239         00000033           TNTOTAL  SET      TNTOTAL+8
     3240                            *
     3241                            *                 S U B - T E S T  5 2
     3242                            *                 RESET CIU
     3243                            *
     3244   01 00913    22600034 A            LI,6     TESTONE
     3245   01 00914    22700034 A            LI,7     TOTALNUM
     3246   01 00915    15600CD6              STD,6    SUBTEST
     3247   01 00916    22B00D98              LI,11    TONEPA02
     3248   01 00917    6AE007D8              BAL,14   HIOTEST1
     3249                            *
     3250                            *
     3251   01 00918    33100D16              MTW,1    WORK1
     3252   01 00919    693008D2              BNEZ     LOOP1
     3253                            *                 P A R I T Y  T E S T
     3254                            *
     3255                            *                 INITIALIZE FOR PARITY TEST LOOP
     3256                            *
     3257   01 0091A    226FFFE0 A            LI,6     -32
     3258   01 0091B    35600D16              STW,6    WORK1
     3259   01 0091C    22600010 A            LI,6     16
     3260   01 0091D    35600D2A              STW,6    NUMBYTES
     3261   01 0091E    22603A88              LI,6     BA(XPATTERN)
     3262   01 0091F    35600D29              STW,6    TEMPATTN
     3263   01 00920    68000922              B        LOOP4
     3264                            *
     3265                            *                 AN INITIATE READ SIO
     3266                            *
     3267   01 00921    33100D29     LOOP3    MTW,1    TEMPATTN
     3268                            LOOP4 ;
     3269   01 00922    6AE00BEA              BAL,14   GENPATTN
     3270   01 00923    22B00DBE              LI,11    TONEPA55
     3271   01 00924    220006B0              LI,0     DA(ONE60)
     3272   01 00925    6AE007B7              BAL,14   SIOTEST1
     3273                            *
     3274                            *                 ACKNOWLEDGE PENDING INTERRUPT
     3275                            *
     3276   01 00926    22B00DBE              LI,11    TONEPA55
     3277   01 00927    6AE007EB              BAL,14   AIOTEST1
     3278                            *
     3279                            *                 A RESPOND WRITE SIO
     3280                            *
     3281   01 00928    22B00DBE              LI,11    TONEPA55
     3282   01 00929    220006AE              LI,0     DA(ONE5XA)
     3283   01 0092A    6AE007B7              BAL,14   SIOTEST1
     3284                            *
     3285                            *                 DELAY FOR 150 USECS
     3286                            *
     3287   01 0092B    22400064 A            LI,4     100
     3288   01 0092C    12600CD2              LD,6     DLAYPROG
     3289   01 0092D    6AF00006 A            BAL,15   6
     3290                            *
     3291                            *                 S U B - T E S T  5 3
     3292                            *                 AN INITIATE WRITE SIO
     3293                            *
     3294   01 0092E    22600035 A            LI,6     TESTONE
     3295   01 0092F    22700035 A            LI,7     TOTALNUM
     3296   01 00930    15600CD6              STD,6    SUBTEST
     3297   01 00931    22B00D98              LI,11    TONEPA02
     3298   01 00932    220006AD              LI,0     DA(ONE53)
     3299   01 00933    6AE007B7              BAL,14   SIOTEST1
     3300                            *
     3301                            *
     3302                            *                 S U B - T E S T  5 4
     3303                            *                 ACKNOWLEDGE PENDING INTERRUPT
     3304                            *
     3305   01 00934    22600036 A            LI,6     TESTONE
     3306   01 00935    22700036 A            LI,7     TOTALNUM
     3307   01 00936    15600CD6              STD,6    SUBTEST
     3308   01 00937    22B00DB2              LI,11    TONEPA31
     3309   01 00938    6AE007EB              BAL,14   AIOTEST1
     3310                            *
     3311                            *
     3312                            *                 S U B - T E S T  5 5
     3313                            *                 A RESPOND SIO, TRANSFERS 16 BYTES
     3314                            *
     3315   01 00939    22600037 A            LI,6     TESTONE
     3316   01 0093A    22700037 A            LI,7     TOTALNUM
     3317   01 0093B    15600CD6              STD,6    SUBTEST
     3318   01 0093C    22B00DA8              LI,11    TONEPA22
     3319   01 0093D    220006AF              LI,0     DA(ONE55)
     3320   01 0093E    6AE007B7              BAL,14   SIOTEST1
     3321                            *
     3322                            *
     3323                            *                 DELAY FOR 150 USECS
     3324                            *
     3325   01 0093F    22400064 A            LI,4     100
     3326   01 00940    12600CD2              LD,6     DLAYPROG
     3327   01 00941    6AF00006 A            BAL,15   6
     3328                            *
     3329                            *
     3330                            *                 S U B - T E S T  5 6
     3331                            *                 TEST FOR 16 BYTES
     3332                            *
     3333   01 00942    22600038 A            LI,6     TESTONE
     3334   01 00943    22700038 A            LI,7     TOTALNUM
     3335   01 00944    15600CD6              STD,6    SUBTEST
     3336   01 00945    22B00DC0              LI,11    TONEPA56
     3337   01 00946    6AE007D2              BAL,14   TIOTEST1
     3338                            *
     3339                            *
     3340                            *
     3341                            *
     3342                            *
     3343                            *
     3344                            *                 S U B - T E S T  5 7
     3345                            *                 A RESPOND READ SIO TRANSFERS 16 BYTES IF NO HALT ON
     3346                            *                 TRANSMISSION ERROR
     3347                            *
     3348   01 00947    22600039 A            LI,6     TESTONE
     3349   01 00948    22700039 A            LI,7     TOTALNUM
     3350   01 00949    15600CD6              STD,6    SUBTEST
     3351   01 0094A    22B00DC2              LI,11    TONEPA57
     3352   01 0094B    6AE007DE              BAL,14   TDVTEST1
     3353                            *
     3354                            *                 DELAY 150 USECS
     3355                            *
     3356   01 0094C    22400064 A            LI,4     100
     3357   01 0094D    12600CD2              LD,6     DLAYPROG
     3358   01 0094E    6AF00006 A            BAL,15   6
     3359                            *
     3360                            *
     3361                            *                 S U B - T E S T  5 8
     3362                            *                 TEST FOR INTERRUPT PENDING
     3363                            *
     3364   01 0094F    2260003A A            LI,6     TESTONE
     3365   01 00950    2270003A A            LI,7     TOTALNUM
     3366   01 00951    15600CD6              STD,6    SUBTEST
     3367   01 00952    22604A88              LI,6     BA(WPATTERN)
     3368   01 00953    22B00DBC              LI,11    TONEPA44
     3369   01 00954    6AE00BF5              BAL,14   PARITYTEST
     3370                            *
     3371                            *
     3372                            *                 S U B - T E S T  5 9
     3373                            *                 RESET CIU
     3374                            *
     3375   01 00955    2260003B A            LI,6     TESTONE
     3376   01 00956    2270003B A            LI,7     TOTALNUM
     3377   01 00957    15600CD6              STD,6    SUBTEST
     3378   01 00958    22B00D98              LI,11    TONEPA02
     3379   01 00959    6AE007D8              BAL,14   HIOTEST1
     3380   01 0095A    33100D16              MTW,1    WORK1
     3381   01 0095B    69300921              BNEZ     LOOP3
     3382                            *                 T E S T  F O R  B U S Y
     3383                            *
     3384                            *                 S U B - T E S T  6 0
     3385                            *                 AN INITIATE READ SIO
     3386                            *
     3387   01 0095C    2260003C A            LI,6     TESTONE
     3388   01 0095D    2270003C A            LI,7     TOTALNUM
     3389   01 0095E    15600CD6              STD,6    SUBTEST
     3390   01 0095F    22B00D98              LI,11    TONEPA02
     3391   01 00960    220006B0              LI,0     DA(ONE60)
     3392   01 00961    6AE007B7              BAL,14   SIOTEST1
     3393                            *
     3394                            *
     3395                            *                 S U B - T E S T  6 1
     3396                            *                 ACKNOWLEDGE PENDING INTERRUPT, TEST FOR RESPONDENT
     3397                            *
     3398   01 00962    2260003D A            LI,6     TESTONE
     3399   01 00963    2270003D A            LI,7     TOTALNUM
     3400   01 00964    15600CD6              STD,6    SUBTEST
     3401   01 00965    22B00DB8              LI,11    TONEPA37
     3402   01 00966    6AE007EB              BAL,14   AIOTEST1
     3403                            *
     3404                            *
     3405                            *                 S U B - T E S T  6 2
     3406                            *                 A RESPOND WRITE ORDER WITH BYTE COUNT = 18
     3407                            *
     3408   01 00967    2260003E A            LI,6     TESTONE
     3409   01 00968    2270003E A            LI,7     TOTALNUM
     3410   01 00969    15600CD6              STD,6    SUBTEST
     3411   01 0096A    22B00DA8              LI,11    TONEPA22
     3412   01 0096B    220006B1              LI,0     DA(ONE62)
     3413   01 0096C    6AE007B7              BAL,14   SIOTEST1
     3414                            *
     3415                            *
     3416                            *                 DELAY FOR 150 USECS
     3417                            *
     3418   01 0096D    22400064 A            LI,4     100
     3419   01 0096E    12600CD2              LD,6     DLAYPROG
     3420   01 0096F    6AF00006 A            BAL,15   6
     3421                            *
     3422                            *
     3423                            *
     3424                            *                 S U B - T E S T  6 3
     3425                            *                 HALT I/O AND TEST FOR 16 BYTES TRANSFERRED
     3426   01 00970    2260003F A            LI,6     TESTONE
     3427   01 00971    2270003F A            LI,7     TOTALNUM
     3428   01 00972    15600CD6              STD,6    SUBTEST
     3429   01 00973    22B00DC4              LI,11    TONEPA63
     3430   01 00974    6AE007D8              BAL,14   HIOTEST1
     3431                            *                 I N C O R R E C T  L E N G T H  T E S T
     3432                            *
     3433                            *                 S U B - T E S T  6 4
     3434                            *                 A INITIATE READ SIO
     3435                            *
     3436   01 00975    22600040 A            LI,6     TESTONE
     3437   01 00976    22700040 A            LI,7     TOTALNUM
     3438   01 00977    15600CD6              STD,6    SUBTEST
     3439   01 00978    22B00D98              LI,11    TONEPA02
     3440   01 00979    220006B2              LI,0     DA(ONE64)
     3441   01 0097A    6AE007B7              BAL,14   SIOTEST1
     3442                            *
     3443                            *
     3444                            *                 S U B - T E S T  6 5
     3445                            *                 ACKNOWLEDGE PENDING INTERRUPT, TEST FOR RESPONDENT
     3446                            *
     3447   01 0097B    22600041 A            LI,6     TESTONE
     3448   01 0097C    22700041 A            LI,7     TOTALNUM
     3449   01 0097D    15600CD6              STD,6    SUBTEST
     3450   01 0097E    22B00DB8              LI,11    TONEPA37
     3451   01 0097F    6AE007EB              BAL,14   AIOTEST1
     3452                            *
     3453                            *
     3454                            *                 S U B - T E S T  6 6
     3455                            *                 A RESPOND WRITE SIO WITH BYTE COUNT =16
     3456                            *
     3457   01 00980    22600042 A            LI,6     TESTONE
     3458   01 00981    22700042 A            LI,7     TOTALNUM
     3459   01 00982    15600CD6              STD,6    SUBTEST
     3460   01 00983    22B00DB0              LI,11    TONEPA29
     3461   01 00984    220006B3              LI,0     DA(ONE66)
     3462   01 00985    6AE007B7              BAL,14   SIOTEST1
     3463                            *
     3464                            *
     3465                            *                 DELAY FOR 150 USECS
     3466                            *
     3467   01 00986    22400064 A            LI,4     100
     3468   01 00987    12600CD2              LD,6     DLAYPROG
     3469   01 00988    6AF00006 A            BAL,15   6
     3470                            *
     3471                            *
     3472                            *                 S U B - T E S T  6 7
     3473                            *                 AN INITIATE WRITE SIO
     3474                            *
     3475   01 00989    22600043 A            LI,6     TESTONE
     3476   01 0098A    22700043 A            LI,7     TOTALNUM
     3477   01 0098B    15600CD6              STD,6    SUBTEST
     3478   01 0098C    22B00D98              LI,11    TONEPA02
     3479   01 0098D    220006B4              LI,0     DA(ONE67)
     3480   01 0098E    6AE007B7              BAL,14   SIOTEST1
     3481                            *
     3482                            *
     3483                            *                 S U B - T E S T  6 8
     3484                            *                 ACKNOWLEDGE PENDING INTERRUPT, TEST FOR RESPONDENT
     3485                            *
     3486   01 0098F    22600044 A            LI,6     TESTONE
     3487   01 00990    22700044 A            LI,7     TOTALNUM
     3488   01 00991    15600CD6              STD,6    SUBTEST
     3489   01 00992    22B00DB2              LI,11    TONEPA31
     3490   01 00993    6AE007EB              BAL,14   AIOTEST1
     3491                            *
     3492                            *
     3493                            *                 S U B - T E S T  6 9
     3494                            *                 A RESPOND READ SIO BYTE COUNT = 8
     3495                            *
     3496   01 00994    22600045 A            LI,6     TESTONE
     3497   01 00995    22700045 A            LI,7     TOTALNUM
     3498   01 00996    15600CD6              STD,6    SUBTEST
     3499   01 00997    22B00DA8              LI,11    TONEPA22
     3500   01 00998    220006B5              LI,0     DA(ONE69)
     3501   01 00999    6AE007B7              BAL,14   SIOTEST1
     3502                            *
     3503                            *                 DELAY FOR 75 USECS
     3504                            *
     3505   01 0099A    22400032 A            LI,4     50
     3506   01 0099B    12600CD2              LD,6     DLAYPROG
     3507   01 0099C    6AF00006 A            BAL,15   6
     3508                            *
     3509                            *
     3510                            *                 S U B - T E S T  7 0
     3511                            *                 TEST FOR AN INTERRUPT PENDING
     3512                            *
     3513   01 0099D    22600046 A            LI,6     TESTONE
     3514   01 0099E    22700046 A            LI,7     TOTALNUM
     3515   01 0099F    15600CD6              STD,6    SUBTEST
     3516   01 009A0    22B00DC6              LI,11    TONEPA70
     3517   01 009A1    6AE007D2              BAL,14   TIOTEST1
     3518                            *
     3519                            *
     3520                            *                 S U B - T E S T  7 1
     3521                            *                 TEST FOR INCORRECT LENGTH
     3522                            *
     3523   01 009A2    22600047 A            LI,6     TESTONE
     3524   01 009A3    22700047 A            LI,7     TOTALNUM
     3525   01 009A4    15600CD6              STD,6    SUBTEST
     3526   01 009A5    22B00DC8              LI,11    TONEPA71
     3527   01 009A6    6AE007EB              BAL,14   AIOTEST1
     3528                            *
     3529                            *
     3530                            *                 S U B - T E S T  7 2
     3531                            *                 TEST FOR INCORRECT LENGTH
     3532                            *
     3533   01 009A7    22600048 A            LI,6     TESTONE
     3534   01 009A8    22700048 A            LI,7     TOTALNUM
     3535   01 009A9    15600CD6              STD,6    SUBTEST
     3536   01 009AA    22B00DC8              LI,11    TONEPA71
     3537   01 009AB    6AE007DE              BAL,14   TDVTEST1
     3538                            *
     3539                            *
     3540                            *                 S U B - T E S T  7 3
     3541                            *                 RESET THE CIU
     3542                            *
     3543   01 009AC    22600049 A            LI,6     TESTONE
     3544   01 009AD    22700049 A            LI,7     TOTALNUM
     3545   01 009AE    15600CD6              STD,6    SUBTEST
     3546   01 009AF    22B00DA8              LI,11    TONEPA22
     3547   01 009B0    6AE007D8              BAL,14   HIOTEST1
     3548                            *
     3549                            *
     3550                            *                 S U B - T E S T  7 4
     3551                            *                 AN INITIATE READ SIO
     3552                            *
     3553   01 009B1    2260004A A            LI,6     TESTONE
     3554   01 009B2    2270004A A            LI,7     TOTALNUM
     3555   01 009B3    15600CD6              STD,6    SUBTEST
     3556   01 009B4    22B00D98              LI,11    TONEPA02
     3557   01 009B5    220006B6              LI,0     DA(ONE74)
     3558   01 009B6    6AE007B7              BAL,14   SIOTEST1
     3559                            *
     3560                            *
     3561                            *                 S U B - T E S T  7 5
     3562                            *                 ACKNOWLEDGE PENDING INTERRUPT
     3563                            *
     3564   01 009B7    2260004B A            LI,6     TESTONE
     3565   01 009B8    2270004B A            LI,7     TOTALNUM
     3566   01 009B9    15600CD6              STD,6    SUBTEST
     3567   01 009BA    22B00DB8              LI,11    TONEPA37
     3568   01 009BB    6AE007EB              BAL,14   AIOTEST1
     3569                            *
     3570                            *
     3571                            *                 S U B - T E S T  7 6
     3572                            *                 A RESPOND WRITE SIO BYTE COUNT =8
     3573                            *
     3574   01 009BC    2260004C A            LI,6     TESTONE
     3575   01 009BD    2270004C A            LI,7     TOTALNUM
     3576   01 009BE    15600CD6              STD,6    SUBTEST
     3577   01 009BF    22B00DB0              LI,11    TONEPA29
     3578   01 009C0    220006B7              LI,0     DA(ONE76)
     3579   01 009C1    6AE007B7              BAL,14   SIOTEST1
     3580                            *
     3581                            *                 DELAY FOR 75 USECS
     3582                            *
     3583   01 009C2    22400032 A            LI,4     50
     3584   01 009C3    12600CD2              LD,6     DLAYPROG
     3585   01 009C4    6AF00006 A            BAL,15   6
     3586                            *
     3587                            *
     3588                            *                 S U B - T E S T  7 7
     3589                            *                 TEST FOR INCORRECT LENGTH
     3590                            *
     3591   01 009C5    2260004D A            LI,6     TESTONE
     3592   01 009C6    2270004D A            LI,7     TOTALNUM
     3593   01 009C7    15600CD6              STD,6    SUBTEST
     3594   01 009C8    22B00DCA              LI,11    TONEPA77
     3595   01 009C9    6AE007EB              BAL,14   AIOTEST1
     3596                            *
     3597                            *
     3598                            *                 S U B - T E S T  7 8
     3599                            *                 RESET THE CIU
     3600                            *
     3601   01 009CA    2260004E A            LI,6     TESTONE
     3602   01 009CB    2270004E A            LI,7     TOTALNUM
     3603   01 009CC    15600CD6              STD,6    SUBTEST
     3604   01 009CD    22B00DA8              LI,11    TONEPA22
     3605   01 009CE    6AE007D8              BAL,14   HIOTEST1
     3606                            *
     3607                            *
     3608                            *
     3609   01 009CF    22600E5E              LI,6     MW15              LOAD: 'SUCCESS-TEST
     3610   01 009D0    55620CC4              STH,6    MESUCCES,1                    LOOP 1' MESSAGE
     3611   01 009D1    22900400 A            LI,9     1**10             LOAD FLAG POINTER
     3612   01 009D2    68000C9F              B        EXITROUT          GO TO ERROR-STATUS REPORTER EXIT RTN
     3613                            *
     3614                            *
     3615                            *                 T E S T  L O O P  2
     3616                            *
     3617                            *
     3618                            *                 THIS DIRECTIVE WILL AUTOMATICALLY TEST CIUA TO
     3619                            *                 CIUB INTERFACE WITHOUT USING A SECOND SIGMA COMPUTER.
     3620                            *                 THIS DIRECTIVE WILL AUTOMATICALLY SEQUENCE
     3621                            *                 THROUGH A GROUP OF SUB-TESTS UNTIL AN ERROR
     3622                            *                 IS DETECTED OR UNTIL THE DIRECTIVE COMPLETES.
     3623                            *                 PRIOR TO ATTEMPTING TO EXECUTED THIS DIRECTIVE, THE
     3624                            *                'TEST LOOP1' DIRECTIVE MUST BE SUCCESSFULLY
     3625                            *                 EXECUTED FOR CIUA.
     3626                            *                 THE TEST MODE 2 SWITCH IN THE REMOTE CIU MUST BE SET.
     3627                            *                 THE REMOTE CIU MUST ALSO BE PUT OFF LINE
     3628                            *
     3629                            *
     3630                            *
     3631                            TTWO ;
     3632   01 009D3    35F00D1C              STW,15   RETURN            SAVE DCP RETURN ADDRESS
     3633   01 009D4    351006A1              STW,1    AUTOFLAG          SET FLAG TO TELL PROGRAM,AUTO TYPE
     3634   01 009D5    22600E0C              LI,6     MW02              FETCH ADDRESS OF TITLE MESSAGE
     3635   01 009D6    35600D21              STW,6    MESSAGE           SAVE ADDRESS
     3636   01 009D7    226000F2 A            LI,6     '2'               FETCH '2' FOR 'TEST LOOP 2' MESSAGE
     3637   01 009D8    75640E0F              STB,6    TEXT02+2,2        STORE '2' IN 'TEST LOOP 2' MESSAGE
     3638   01 009D9    75640E63              STB,6    TEXT15+4,2        SAVE DIRECTIVE NUMBER FOR SUCCESS MG
     3639   01 009DA    32400CD4              LW,4     IOPCIUA           FETCH THE IOP-DEVICE ADDRESS
     3640   01 009DB    35400D1B              STW,4    IOPDEVCE          SAVE THE IOP-DEVICE ADDRESS
     3641   01 009DC    32600D1D              LW,6     IOPOINT           FETCH IOP-ADDRESS POINTER
     3642   01 009DD    35600D1E              STW,6    POINTER           SAVE IOP-ADDRESS POINTER
     3643   01 009DE    22400020 A            LI,4     X'20'             ARM AND DISABLE
     3644   01 009DF    6D401300 A            WD,4     X'1300'               I/O INTERRUPTS
     3645                            *
     3646                            *                 S U B - T E S T  1
     3647                            *                 INITIALIZE CIU
     3648                            *
     3649   01 009E0    22600001 A            LI,6     TESTTWO
     3650   01 009E1    2270004F A            LI,7     TOTALNUM
     3651   01 009E2    15600CD6              STD,6    SUBTEST
     3652   01 009E3    22B00DCC              LI,11    TTWOPA01
     3653   01 009E4    6AE007D8              BAL,14   HIOTEST1
     3654                            *
     3655                            *                 S U B - T E S T  2
     3656                            *                 TEST FOR CIUA OPERATIONAL
     3657                            *
     3658   01 009E5    22600002 A            LI,6     TESTTWO
     3659   01 009E6    22700050 A            LI,7     TOTALNUM
     3660   01 009E7    15600CD6              STD,6    SUBTEST
     3661   01 009E8    22B00DCE              LI,11    TTWOPA02
     3662   01 009E9    6AE007D2              BAL,14   TIOTEST1
     3663                            *
     3664                            *                 S U B - T E S T  3
     3665                            *                 TEST FOR CIUB OPERATIONAL
     3666                            *
     3667   01 009EA    22600003 A            LI,6     TESTTWO
     3668   01 009EB    22700051 A            LI,7     TOTALNUM
     3669   01 009EC    15600CD6              STD,6    SUBTEST
     3670   01 009ED    22B00DD0              LI,11    TTWOPA03
     3671   01 009EE    6AE007D2              BAL,14   TIOTEST1
     3672                            *
     3673                            *                 S U B - T E S T  4
     3674                            *                 START A 2048 BYTE TRANSMISSION
     3675                            *
     3676                            *
     3677   01 009EF    22600004 A            LI,6     TESTTWO
     3678   01 009F0    22700052 A            LI,7     TOTALNUM
     3679   01 009F1    15600CD6              STD,6    SUBTEST
     3680   01 009F2    22B00DD0              LI,11    TTWOPA03
     3681   01 009F3    220006B8              LI,0     DA(TWO04)
     3682   01 009F4    6AE007B7              BAL,14   SIOTEST1
     3683                            *
     3684                            *                 DELAY UNTIL CIUB IS BUSY
     3685                            *
     3686   01 009F5    2240000A A            LI,4     10
     3687   01 009F6    12600CD2              LD,6     DLAYPROG          LOAD DELAY ROUTINE INTO FAST MEM.
     3688   01 009F7    6AF00006 A            BAL,15   6                 BRANCH TO DELAY ROUTINE
     3689                            *
     3690                            *                 S U B - T E S T  5
     3691                            *                 TEST FOR CIUA AND CIUB BUSY
     3692                            *
     3693   01 009F8    22600005 A            LI,6     TESTTWO
     3694   01 009F9    22700053 A            LI,7     TOTALNUM
     3695   01 009FA    15600CD6              STD,6    SUBTEST
     3696   01 009FB    22B00DD2              LI,11    TTWOPA05
     3697   01 009FC    6AE007D2              BAL,14   TIOTEST1
     3698                            *
     3699                            *                 DELAY UNTIL TRANSFER IS COMPLETED
     3700                            *
     3701   01 009FD    22401770 A            LI,4     6000
     3702   01 009FE    12600CD2              LD,6     DLAYPROG          LOAD DELAY ROUTINE INTO FAST MEM.
     3703   01 009FF    6AF00006 A            BAL,15   6                 BRANCH TO THE DELAY ROUTINE
     3704                            *
     3705                            *                 S U B - T E S T  6
     3706                            *                 TEST FOR BOTH CIU'S NOT BUSY
     3707                            *
     3708   01 00A00    22600006 A            LI,6     TESTTWO
     3709   01 00A01    22700054 A            LI,7     TOTALNUM
     3710   01 00A02    15600CD6              STD,6    SUBTEST
     3711   01 00A03    22B00DD0              LI,11    TTWOPA03
     3712   01 00A04    6AE007D2              BAL,14   TIOTEST1
     3713                            *
     3714                            *                 S U B - T E S T  7
     3715                            *                 TEST FOR 2048 BYTES TRANSFERRED
     3716                            *
     3717   01 00A05    22600007 A            LI,6     TESTTWO
     3718   01 00A06    22700055 A            LI,7     TOTALNUM
     3719   01 00A07    15600CD6              STD,6    SUBTEST
     3720   01 00A08    22B00DD4              LI,11    TTWOPA07
     3721   01 00A09    6AE007D2              BAL,14   TIOTEST1
     3722                            *
     3723                            *                 S U B - T E S T  8
     3724                            *                 TEST FOR INCORRECT LENGTH
     3725                            *
     3726   01 00A0A    22600008 A            LI,6     TESTTWO
     3727   01 00A0B    22700056 A            LI,7     TOTALNUM
     3728   01 00A0C    15600CD6              STD,6    SUBTEST
     3729   01 00A0D    22B00DD6              LI,11    TTWOPA08
     3730   01 00A0E    6AE007DE              BAL,14   TDVTEST1
     3731                            *
     3732                            *                 S U B - T E S T  9
     3733                            *                 FETCH 2048 BYTES FROM CIUB
     3734                            *
     3735   01 00A0F    22600009 A            LI,6     TESTTWO
     3736   01 00A10    22700057 A            LI,7     TOTALNUM
     3737   01 00A11    15600CD6              STD,6    SUBTEST
     3738   01 00A12    22B00DCE              LI,11    TTWOPA02
     3739   01 00A13    220006B9              LI,0     DA(TWO05)
     3740   01 00A14    6AE007B7              BAL,14   SIOTEST1
     3741                            *
     3742                            *                 DELAY UNTIL DATA IS RECEIVED
     3743                            *
     3744   01 00A15    22401770 A            LI,4     6000              9 MS DELAY
     3745   01 00A16    12600CD2              LD,6     DLAYPROG          LOAD DELAY ROUTINE INTO FAST MEM.
     3746   01 00A17    6AF00006 A            BAL,15   6                 BRANCH TO THE DELAY ROUTINE
     3747                            *
     3748                            *                 S U B - T E S T  1 0
     3749                            *                 TEST FOR 2048 BYTES RECEIVED
     3750                            *
     3751   01 00A18    2260000A A            LI,6     TESTTWO
     3752   01 00A19    22700058 A            LI,7     TOTALNUM
     3753   01 00A1A    15600CD6              STD,6    SUBTEST
     3754   01 00A1B    22B00DD8              LI,11    TTWOPA10
     3755   01 00A1C    6AE007D2              BAL,14   TIOTEST1
     3756                            *
     3757                            *                 S U B - T E S T  1 1  T H R U  1 8
     3758                            *                 TEST DATA LINES 0 THRU 7
     3759                            *
     3760   01 00A1D    22B00DDA              LI,11    TTWOPA11
     3761   01 00A1E    22800010 A            LI,8     16
     3762   01 00A1F    22903A98              LI,9     BA(XPATTERN)+16
     3763   01 00A20    6AE00BC9              BAL,14   COMPAR16
     3764                            *
     3765                            *                 TEST INPUT/OUTPUT PARITY PATH
     3766                            *                 START BY TRANSFERRING 2048 BYTES WITH A HALT ON
     3767                            *                              TRANSMISSION ERROR FLAG SET
     3768                            *
     3769                            *
     3770                            *
     3771         00000012           TNTWO    SET      TNTWO+8
     3772         00000060           TNTOTAL  SET      TNTOTAL+8
     3773                            *
     3774                            *
     3775                            *
     3776                            *                 S U B - T E S T  1 9
     3777                            *                 READ 2048 BYTES FROM CIUB
     3778                            *
     3779   01 00A21    22600013 A            LI,6     TESTTWO
     3780   01 00A22    22700061 A            LI,7     TOTALNUM
     3781   01 00A23    15600CD6              STD,6    SUBTEST
     3782   01 00A24    22B00DCE              LI,11    TTWOPA02
     3783   01 00A25    220006BA              LI,0     DA(TWO21)
     3784   01 00A26    6AE007B7              BAL,14   SIOTEST1
     3785                            *
     3786                            *                 DELAY 9.0 MILLISECONDS
     3787                            *
     3788   01 00A27    22401770 A            LI,4     6000
     3789   01 00A28    12600CD2              LD,6     DLAYPROG          LOAD DELAY ROUTINE INTO FAST MEM.
     3790   01 00A29    6AF00006 A            BAL,15   6                 BRANCH TO THE DELAY ROUTINE
     3791                            *
     3792                            *                 S U B - T E S T  2 0
     3793                            *                 TEST FOR A HALT ON TRANSMISSION ERROR
     3794                            *
     3795   01 00A2A    22600014 A            LI,6     TESTTWO
     3796   01 00A2B    22700062 A            LI,7     TOTALNUM
     3797   01 00A2C    15600CD6              STD,6    SUBTEST
     3798   01 00A2D    22C0000F A            LI,12    X'F'
     3799   01 00A2E    22603A98              LI,6     BA(XPATTERN)+16
     3800   01 00A2F    22B00DDA              LI,11    TTWOPA11
     3801   01 00A30    6AE00BF6              BAL,14   PARITY
     3802                            *
     3803                            *                 EXIT TEST LOOP 2
     3804                            *
     3805   01 00A31    22600E5E              LI,6     MW15              LOAD: 'SUCCESS-TEST
     3806   01 00A32    55620CC4              STH,6    MESUCCES,1                  LOOP 2' MESSAGE
     3807   01 00A33    22900400 A            LI,9     1**10             LOAD FLAG POINTER
     3808   01 00A34    68000C9F              B        EXITROUT          GO TO ERROR-STATUS REPORTER EXIT RTN
     3809                            *
     3810                            *
     3811                            *                 T E S T  L O O P  3
     3812                            *
     3813                            *
     3814                            *                 THIS DIRECTIVE ALLOWS TWO CONNECTED CIU'S TO BE
     3815                            *                 TESTED UNDER SIMULATED OPERATING CONDITIONS
     3816                            *                 BY A SINGLE COMPUTER.  THE CIU'S MAY BE CONNECTED
     3817                            *                 TO THE SAME IOP OR DIFFERENT IOP'S.
     3818                            *                 THIS DIRECTIVE REQUIRES THAT THE TEST MODE SWITCHES
     3819                            *                 IN BOTH CIU'S BE OFF, THE PRIORITY SWITCH
     3820                            *                 IN ONE CIU BE SET TO LOW AND THE OTHER CIU IT MUST BE
     3821                            *                 SET TO HIGH AND THAT THE PARITY SWITCH IN BOTH
     3822                            *                 CIU'S BE ON.
     3823                            *                 THIS DIRECTIVE WILL AUTOMATICALLY SEQUENCE THROUGH
     3824                            *                 A SET OF SUB-TESTS. IF AN ERROR IS DETECTED, TESTING
     3825                            *                 IS HALTED, THE ERROR IS REPORTED AND A PLACEMARK
     3826                            *                 BRANCH IS TAKEN. IF NO ERRORS ARE DETECTED
     3827                            *                 'SUCCESS-TEST LOOP 3' IS OUTPUT.
     3828                            *
     3829                            *                 NOTE:  DIRECTIVES 'TEST LOOP 1' AND 'TEST LOOP 2'
     3830                            *                 MUST HAVE BEEN SUCCESSFULLY EXECUTED FOR BOTH
     3831                            *                 CIU'S, PRIOR TO ATTEMPTING THIS DIRECTIVE.
     3832                            *
     3833                            *
     3834                            *
     3835                            *
     3836   01 00A35    48000000 A            DATA     X'48000000'       IOP-DEVICE ADDRESS OF CIUB
     3837                            *
     3838                            *
     3839                            TREE ;
     3840   01 00A36    35F00D1C              STW,15   RETURN            SAVE DCP RETURN ADDRESS
     3841   01 00A37    22600E0C              LI,6     MW02              FETCH ADDRESS OF TITLE MESSAGE
     3842   01 00A38    35600D21              STW,6    MESSAGE           SAVE THIS ADDRESS
     3843   01 00A39    226000F3 A            LI,6     '3'               FETCH '3' FOR 'TEST LOOP 3' MESSAGE
     3844   01 00A3A    75640E0F              STB,6    TEXT02+2,2        STORE '3', IN 'TEST LOOP X' MESSAGE
     3845   01 00A3B    75640E63              STB,6    TEXT15+4,2        SAVE TEST NUMBER FOR SUCCESS MESSAGE
     3846   01 00A3C    22600E5E              LI,6     MW15              LOAD: 'SUCCESS-TEST
     3847   01 00A3D    55620CC4              STH,6    MESUCCES,1                   LOOP 3' MESSAGE
     3848   01 00A3E    52620698              LH,6     P1,1              FETCH-DEVICE ADDRESS OF CIUB
     3849   01 00A3F    31600CD4              CW,6     IOPCIUA           TEST FOR IDENTIAL ADDRESS
     3850   01 00A40    69300A44              BNE      %+4               IF NOT CONTINUE
     3851   01 00A41    32C00E8F              LW,12    MW20              LOAD MESSAGE ADDRESS
     3852   01 00A42    022000D0 A            LCI      13                SET MESSAGE LEVEL
     3853   01 00A43    680005CA              B        ZTWLP             GO OUTPUT 'ERROR: IDENTIAL IOP-DEV-
     3854                            *                                   ICE ADDRESSES'.
     3855                            *
     3856   01 00A44    35600CD5              STW,6    IOPCIUB
     3857   01 00A45    35200CE2              STW,2    CIUNO             SET TO 2,FOR TEST LOOP 3
     3858   01 00A46    68000A4E              B        AUTOTREE
     3859                            *
     3860                            *
     3861                            *                 A U T O M A T I C  T E S T  A N D  V E R I F Y
     3862                            *
     3863                            *                 THIS DIRECTIVE IS DESIGNED TO ALLOW TWO COMPUTERS
     3864                            *                 TO COMMUNICATE VIA A PAIR OF CIU'S. THE DIRECTIVE
     3865                            *                 REQUIRES THAT BOTH CIU'S ARE NOT IN A TEST MODE
     3866                            *                 AND THAT EACH CIU HAVE IT'S PRIORITY SWITCH
     3867                            *                 SET DIFFERENTLY. ALSO IT REQUIRES THAT THE 'SIGMA 5/7
     3868                            *                 OR THE SIGMA 2 CHANNEL INTERFACE UNIT TEST
     3869                            *                 DIAGNOSTIC PROGRAM' IS IN THE REMOTE COMPUTER.
     3870                            *
     3871                            *                 DIRECTIVE'S 'TEST LOOP 1' AND 'TEST LOOP 2' SHOULD
     3872                            *                 HAVE RUN SUCCESSFULLY, FOR BOTH CIU'S BEFORE THE AUTO
     3873                            *                 DIRECTIVE IS ATTEMPTED.
     3874                            *
     3875                            *                 IF THE DIRECTIVE FINDS THE REMOTE CIU NOT READY
     3876                            *                 TO COMMUNICATE IT WILL OUTPUT 'REMOTE CIU IS NOT
     3877                            *                 READY' UNTIL THE CIU IS READY. WHEN THE REMOTE SYSTEM
     3878                            *                 BECOMES READY, THE DIRECTIVE WILL AUTOMATICALLY
     3879                            *                 SEQUENCE THROUGH A SET OF SUB-TESTS, IF AN ERROR
     3880                            *                 IS DETECTED, TESTING IS HALTED, THE ERROR IS
     3881                            *                 REPORTED AND A PLACEMARK BRANCH IS TAKEN.
     3882                            *
     3883                            *                 IF THE OTHER COMPUTER DID NOT DETECT THIS ERROR,
     3884                            *                 IT WILL WAIT FOR .5 SECONDS THEN ABORT AND TAKE
     3885                            *                 A PLACEMARK BRANCH. IT WILL OUTPUT THE FOLLOWING
     3886                            *                 MESSAGE 'REMOTE CIU HAS ABORTED TESTING'. IF NO
     3887                            *                 ERRORS WERE DETECTED DURING THE EXECUTION OF
     3888                            *                 THIS DIRECTIVE THE FOLLOWING MESSAGE IS OUTPUT
     3889                            *                 'SUCCESS-CIU AUTO'.
     3890                            *
     3891                            *
     3892                            AUTO ;
     3893   01 00A47    35F00D1C              STW,15   RETURN            SAVE THE DCP RETURN ADDRESS
     3894   01 00A48    22600E10              LI,6     MW03               FETCH ADDRESS OF TITLE MESSAGE
     3895   01 00A49    35600D21              STW,6    MESSAGE           SAVE THIS ADDRESS
     3896   01 00A4A    22600E64              LI,6     MW16              LOAD: 'SUCCESS-CIU
     3897   01 00A4B    55620CC4              STH,6    MESUCCES,1                    AUTO' MESSAGE
     3898   01 00A4C    35100CE2              STW,1    CIUNO             EQUALS THE NUMBER OF CIU'S ON THIS
     3899                            *                                    COMPUTER
     3900   01 00A4D    68000A4E              B        AUTOTREE
     3901                            *
     3902                            *                 ADDRESS RECOGNIZATION TEST
     3903                            *
     3904                            AUTOTREE ;
     3905   01 00A4E    12400CD4              LD,4     IOPCIUA           FETCH THE CIU'S NO.
     3906   01 00A4F    15400CE0              STD,4    IOPBYTE           SAVE THEM IN IOPBYTE'S LOCATIONS
     3907   01 00A50    35000D1A              STW,0    COUNTPAS          ZERO PASS COUNTER
     3908   01 00A51    35100CE3              STW,1    INOCCUR           SET INTERRUPT HAS NOT OCCURRED FLAG
     3909   01 00A52    351006A1              STW,1    AUTOFLAG          SET AUTO TYPE DIRECTIVE FLAG
     3910   01 00A53    12600CD4              LD,6     IOPCIUA           FETCH THE DEVICE ADDRESS OF THE CIUS
     3911   01 00A54    15600CDC              STD,6    IOPDEVA           STORE THE DEVICE ADDRESS OF THE CIUS
     3912                            *
     3913                            *                 S U B - T E S T  1
     3914                            *                 RESET CIU AND TEST FOR DEVICE ADDRESS RECOGNIZATION
     3915                            *
     3916   01 00A55    22600001 A            LI,6     AUTONO            FETCH DIRECTIVE'S STEP NUMBER
     3917   01 00A56    22700063 A            LI,7     TOTALNUM          FETCH PROGRAM'S STEP NUMBER
     3918   01 00A57    15600CD6              STD,6    SUBTEST           SAVE THEM
     3919   01 00A58    2240000F A            LI,4     15                LOAD COUNT
     3920   01 00A59    35080D05              STW,0    TESTLOC-1,4       LOAD ZERO INTO TRACE TABLE
     3921   01 00A5A    64400A59              BDR,4    %-1               COUNT UNTIL DONE
     3922   01 00A5B    22B00DDC              LI,11    AUTOPA01          SAVE ADDRESS OF COMPARISON WORD
     3923   01 00A5C    32400CE2              LW,4     CIUNO             FETCH THE NO. OF CIUS ON THIS COMPUT
     3924   01 00A5D    32580CDB     HIOTST1  LW,5     IOPDEVA-1,4       FETCH THE ADDR OF THE DEVC TO BE HLT
     3925   01 00A5E    35500D1B              STW,5    IOPDEVCE          SAVE IT
     3926   01 00A5F    6AE007D8              BAL,14   HIOTEST1          TEST FOR 'NO ADDR RECOGNIZION'
     3927   01 00A60    64400A5D              BDR,4    HIOTST1           IS THERE A SECOND CIU ON THIS COMPUT
     3928                            *
     3929                            *
     3930                            *                 S U B - T E S T  2
     3931                            *                 TEST CIU FOR NOT BEING IN TEST MODE
     3932                            *
     3933   01 00A61    22600002 A            LI,6     AUTONO            FETCH DIRECTIVE'S STEP NUMBER
     3934   01 00A62    22700064 A            LI,7     TOTALNUM          FETCH PROGRAM'S   STEP NUMBER
     3935   01 00A63    15600CD6              STD,6    SUBTEST           SAVE THEM
     3936   01 00A64    22B00DDE              LI,11    AUTOPA02          SAVE ADDRESS OF COMPARISON WORD
     3937   01 00A65    32400CE2              LW,4     CIUNO             FETCH THE NO. OF CIUS ON THIS COMPUT
     3938   01 00A66    32580CDB     TDVTST1  LW,5     IOPDEVA-1,4       FETCH THE ADDR OF THE DEVC TO BE TST
     3939   01 00A67    35500D1B              STW,5    IOPDEVCE          SAVE IT
     3940   01 00A68    6AE007DE              BAL,14   TDVTEST1          TEST FOR 'LOCAL CIU NOT IN TEST MODE
     3941   01 00A69    64400A66              BDR,4    TDVTST1           IS THERE A SECOND CIU ON THES COMPUT
     3942                            *
     3943                            *                 S U B - T E S T  3
     3944                            *                 TEST FOR LOCAL CIU READY & REMOTE CIU OPERATIONAL'
     3945                            *
     3946   01 00A6A    22600003 A            LI,6     AUTONO            FETCH DIRECTIVE'S STEP NUMBER
     3947   01 00A6B    22700065 A            LI,7     TOTALNUM          FETCH PROGRAM'S   STEP NUMBER
     3948   01 00A6C    15600CD6              STD,6    SUBTEST           SAVE THEM
     3949   01 00A6D    22B00DE0              LI,11    AUTOPA03          SAVE ADDRESS OF COMPARISON WORD
     3950   01 00A6E    32400CE2              LW,4     CIUNO             FETCH THE NO OF CIU'S ON THIS COMPUT
     3951   01 00A6F    32580CDB     TIOTST2  LW,5     IOPDEVA-1,4       FETCH THE ADDR OF THE DEVC TO BE TST
     3952   01 00A70    35500D1B              STW,5    IOPDEVCE          SAVE IT
     3953   01 00A71    6AE007D2              BAL,14   TIOTEST1          TEST FOR 'REMOTE CIU OPERATIONAL'
     3954   01 00A72    64400A6F              BDR,4    TIOTST2           IS THERE A SECOND CIU ON THIS COMPUT
     3955                            *
     3956                            *                 DELAY 1 MS
     3957                            *
     3958   01 00A73    22400294 A            LI,4     660
     3959   01 00A74    12600CD2              LD,6     DLAYPROG
     3960   01 00A75    6AF00006 A            BAL,15   6
     3961                            *
     3962                            *                 S U B - T E S T  4
     3963                            *                 ATTEMPT TO START I/O, TEST FOR SIO ACCEPTED
     3964                            *
     3965   01 00A76    32600D2E              LW,6     XPSD01            FETCH XPSD FOR I/O INTERRUPT 1
     3966   01 00A77    3560005C A            STW,6    X'5C'             STORE IN INTERRUPT LOCATION
     3967   01 00A78    32400CE2              LW,4     CIUNO             FETCH THE NO OF CIU'S ON THIS MACHNE
     3968   01 00A79    35400CE4              STW,4    TOTALCIU          SAVE THIS INA PASS COUNTER
     3969   01 00A7A    32400CE4     AUTO3T01 LW,4     TOTALCIU          HOW MANY CIU LEFT TO BE TESTED
     3970   01 00A7B    32680CDB              LW,6     IOPDEVA-1,4       FETCH THE ADDR OF THE DEVC TO BE TST
     3971   01 00A7C    35600D1B              STW,6    IOPDEVCE          SAVE IT
     3972   01 00A7D    22600004 A            LI,6     AUTONO            FETCH DIRECTIVE'S STEP NUMBER
     3973   01 00A7E    22700066 A            LI,7     TOTALNUM          FETCH PROGRAM'S STEP NUMBER
     3974   01 00A7F    15600CD6              STD,6    SUBTEST           SAVE THEM
     3975   01 00A80    22B00DE2              LI,11    AUTOPA04          SAVE ADDRESS OF COMPARSION WORD
     3976   01 00A81    220006BB              LI,0     DA(AUTO3DA1)      FETCH THE ADDRESS OF THE I/O DW
     3977   01 00A82    22600020 A            LI,6     X'20'             LOAD I/O INTERRUPT BIT
     3978   01 00A83    6D601200 A            WD,6     X'1200'           ARM AND ENABLE I/O INTERRUPT
     3979   01 00A84    6D000022 A            WD,0     X'22'             RESET INTERNAL INTERRUPT INHIBIT
     3980   01 00A85    6AE007B7              BAL,14   SIOTEST1          GO DO A SIO
     3981                            *
     3982                            *                 DLAY  FOR 125 MS
     3983                            *
     3984   01 00A86    22413880 A            LI,4     80000
     3985   01 00A87    12600CD2              LD,6     DLAYPROG
     3986   01 00A88    6AF00006 A            BAL,15   6
     3987                            AUTO3T02 ;
     3988   01 00A89    22900000 A            LI,9     0                 ZERO FLAG WORD
     3989   01 00A8A    6C000000 A            RD,0     0                 TEST SENSE SWITCHES
     3990   01 00A8B    69800C9F              BCS,8    EXITROUT          EXIT IF SENSE SWITCH 1 IS SET
     3991   01 00A8C    526205EC              LH,6     ZTWLPO,1          FETCH DEVICE ADDRESS
     3992   01 00A8D    CD600006 A            TIO,6    *6                IF BUSY LOOP
     3993   01 00A8E    69C00A89              BCS,12   AUTO3T02          WAIT UNTIL THE SIO CAN BE ACCEPTED
     3994   01 00A8F    32C00E4D              LW,12    MW13              LOAD: 'REMOTE CIU
     3995   01 00A90    022000F0 A            LCI      15                         IS NOT
     3996   01 00A91    6AF005CA              BAL,15   ZTWLP                         READY' MESSAGE
     3997   01 00A92    68000A89              B        AUTO3T02          RETURN AND WAIT
     3998                            *
     3999                            *                 DELAY FOR 15 MS
     4000                            *
     4001   01 00A93    22402710 A   AUTO3T04 LI,4     10000              LOAD 15 MS DELAY
     4002   01 00A94    12600CD2              LD,6     DLAYPROG          LOAD DELAY ROUTINE
     4003   01 00A95    6AF00006 A            BAL,15   6                 GO TO DELAY ROUTINE
     4004                            *
     4005                            *                 TEST AND LOOP IF THERE IS A SECOND CIU TO BE TESTED
     4006                            *
     4007   01 00A96    33F00CE4              MTW,-1   TOTALCIU          TOTAL NO. OF REMAINING CIU'S
     4008   01 00A97    69300A7A              BNEZ     AUTO3T01          IF TWO CIU'S ON 1 COMPUTER DO AGAIN
     4009   01 00A98    68000ACB              B        AUTO3T05
     4010                            *
     4011                            *                 AUTO/THREE INTERRUPT SERVICE 1
     4012                            *
     4013                            *
     4014                                     BOUND    8
     4015   01 00A9A    00000A93     AUTO3INT DATA     AUTO3T04,3**24
            01 00A9B    03000000 A
     4016   01 00A9C    00000000 A   AUTO3IN1 DATA     0,0
            01 00A9D    00000000 A
     4017   01 00A9E    00000AA0              DATA     %+2,3**24
            01 00A9F    03000000 A
     4018                            *
     4019                            *
     4020   01 00AA0    32A00D1B              LW,10    IOPDEVCE          FETCH DEVICE ADDRESS FOR TEMP STORGE
     4021   01 00AA1    02200000 A            LCI      0                 SAVE ALL 16 REGISTERS
     4022   01 00AA2    2B000CE6              STM,0    SAVEREGS          WHERE THEY ARE TO BE STORED
     4023   01 00AA3    33100D06              MTW,1    TESTLOC
     4024   01 00AA4    32400CE2              LW,4     CIUNO             FETCH NO. OF CIU'S ON THIS COMPUTER
     4025   01 00AA5    6E700000 A            AIO,7                      ACKNOWLEDGE I/O INTERRUPT
     4026   01 00AA6    74000D16              STCF     WORK1             SAVE CONDITION CODES
     4027   01 00AA7    32580CDB     AUTO3IN2 LW,5     IOPDEVA-1,4       FETCH DEVICE ADDRESS
     4028   01 00AA8    51520007 A            CH,5     7,1               COMPARE IT WITH ONE RECEIVED
     4029   01 00AA9    68300AB0              BE       AUTO3IN3          IF EQUAL NEXT STEP
     4030   01 00AAA    64400AA7              BDR,4    AUTO3IN2
     4031   01 00AAB    33100D07              MTW,1    TESTLOC+1
     4032   01 00AAC    02200000 A            LCI      0                 RESTORE ALL REGISTERS
     4033   01 00AAD    2A000CE6              LM,0     SAVEREGS          RESTORE REGISTER
     4034   01 00AAE    35A00D1B              STW,10   IOPDEVCE          RESTORE DEVICE ADDRESS
     4035   01 00AAF    0E300A9C              LPSD,3   AUTO3IN1          RETURN TO INTERRUPTED ROUTINE
     4036                            *
     4037                            *
     4038                            AUTO3IN3 ;
     4039   01 00AB0    55720D1B              STH,7    IOPDEVCE,1
     4040   01 00AB1    33000CE3              MTW,0    INOCCUR           TEST FOR INTERRUPT OCCURRED
     4041   01 00AB2    68300ABA              BEZ      AUTO3IN4          IF OCCURRED BRANCH
     4042   01 00AB3    33100D08              MTW,1    TESTLOC+2
     4043   01 00AB4    3AC00D2B              LCW,12   DELAYPR           LOAD THE LENGTH OF DELAY REQUIRED
     4044   01 00AB5    35C00D26              STW,12   TIME              SAVE IN DELAY ROUTINE LOCATION
     4045   01 00AB6    68300AB8              BEZ      %+2               IS SO DONT START REAL TIME CLOCK
     4046   01 00AB7    6AE00759              BAL,14   REALTIME          GO TO ROUTINE FOR STARTING REAL CLCK
     4047   01 00AB8    22000000 A            LI,0     0                 LOAD ZERO
     4048   01 00AB9    35000CE3              STW,0    INOCCUR           ZERO INTERRUPT HAS NOT OCCURRED FLAG
     4049                            *
     4050                            *                 S U B - T E S T  5
     4051                            *                 NO ADDRESS RECOGNIZATION OF THE INTERRUPT
     4052                            *
     4053                            AUTO3IN4 ;
     4054   01 00ABA    22600005 A            LI,6     AUTONO
     4055   01 00ABB    22700067 A            LI,7     TOTALNUM
     4056   01 00ABC    15600CD6              STD,6    SUBTEST
     4057   01 00ABD    22B00DE4              LI,11    AUTOPA05
     4058   01 00ABE    33100D09              MTW,1    TESTLOC+3
     4059   01 00ABF    22E00AC2              LI,14    %+3
     4060   01 00AC0    70200D16              LC       WORK1
     4061   01 00AC1    07000000 A            REPORTER
     4062                            *
     4063                            *                 DELAY FOR 5 MS
     4064                            *
     4065   01 00AC2    22400D05 A            LI,4     3333              LOAD  5 MS DELAY
     4066   01 00AC3    12600CD2              LD,6     DLAYPROG          LOAD DELAY ROUTINE IN FAST MEMORY
     4067   01 00AC4    6AF00006 A            BAL,15   6                 BRANCH TO IT
     4068                            *
     4069                            *
     4070                            *
     4071   01 00AC5    CF600D1B              HIO,6    *IOPDEVCE
     4072   01 00AC6    33100D0A              MTW,1    TESTLOC+4
     4073   01 00AC7    02200000 A            LCI      0                 LOAD NUMBER OF REGISTERS TO BE RESTD
     4074   01 00AC8    2A000CE6              LM,0     SAVEREGS          RESTORE REGISTER
     4075   01 00AC9    35A00D1B              STW,10   IOPDEVCE          RESTORE DEVICE ADDRESS
     4076   01 00ACA    0E300A9A              LPSD,3   AUTO3INT          RETURN TO MAIN PROGRAM
     4077                            *
     4078                            *
     4079                            *
     4080                            *
     4081                            *
     4082   01 00ACB    32600D2F     AUTO3T05 LW,6     XPSD02            FETCH XPSD I/O INTERRUPT 2
     4083   01 00ACC    3560005C A            STW,6    X'5C'             STORE IN I/O INTERRUPT LOCATION
     4084   01 00ACD    22600020 A            LI,6     X'20'             LOAD I/O INTERRUPT BIT
     4085   01 00ACE    6D601200 A            WD,6     X'1200'           ARM AND ENABLE I/O INTERRUPTS
     4086                            *                 DELAY FOR 60 MS
     4087                            *
     4088   01 00ACF    22409C40 A            LI,4     40000
     4089   01 00AD0    12600CD2              LD,6     DLAYPROG
     4090   01 00AD1    6AF00006 A            BAL,15   6
     4091                            *
     4092                            *                 INITIALIZE FLAGS FOR NEXT PASS, TEST FOR SUCCESS EXIT
     4093                            *
     4094   01 00AD2    35100CD8     AUTO3T06 STW,1    INITA             SET FLAGS
     4095   01 00AD3    35100CD9              STW,1    INITB             SET FLAGS
     4096   01 00AD4    35100CDA              STW,1    RESPA             SET FLAGS
     4097   01 00AD5    35100CDB              STW,1    RESPB             SET FLAGS
     4098   01 00AD6    32500CE2              LW,5     CIUNO             FETCH TOTAL NO. OF CIUS ON COMPUTER
     4099   01 00AD7    35500CE4              STW,5    TOTALCIU          SAVE IT AS AN INDEXER
     4100   01 00AD8    326A0CD3              LW,6     IOPCIUA-1,5       LOAD DEVICE ADDRESS OF FIRST CIU
     4101   01 00AD9    35600D1B              STW,6    IOPDEVCE          SAVE IT
     4102   01 00ADA    35500CE5              STW,5    TOTALRPD          SAVE NUMBER OF CIU'S TO BE TESTED
     4103   01 00ADB    33100D1A              MTW,1    COUNTPAS          UPDATA PASS COUNTER
     4104   01 00ADC    22400005 A            LI,4     5                 LOAD A 5
     4105   01 00ADD    31200CE2              CW,2     CIUNO             TEST FOR TWO CIUS
     4106   01 00ADE    68300AE0              BE       %+2               IF TWO, DO ONLY 5 PASSES
     4107   01 00ADF    22400006 A            LI,4     6                 NOT TWO DO 6 PASSES
     4108   01 00AE0    31400D1A              CW,4     COUNTPAS          TEST FOR EXIT POINT
     4109   01 00AE1    69300B39              BNE      AUTO3T08          GO TO NEXT TEST
     4110   01 00AE2    22900400 A            LI,9     1**10             LOAD FLAG WORD
     4111   01 00AE3    68000C9F              B        EXITROUT          GO TO ERROR-STATUS REPORTER EXIT
     4112                            *
     4113                            *
     4114                            *
     4115                            *
     4116                            *
     4117                            *                 AUTO/THREE INTERRUPT SERVICE #2
     4118                            *
     4119                            *
     4120                                     BOUND    8
     4121   01 00AE4    00000B36     AUTO3INP DATA     AUTO3T07,3**24
            01 00AE5    03000000 A
     4122   01 00AE6    00000000 A   AUTO3I21 DATA     0,0
            01 00AE7    00000000 A
     4123   01 00AE8    00000AEA              DATA     %+2,3**24
            01 00AE9    03000000 A
     4124                            *
     4125                            *
     4126   01 00AEA    32A00D1B              LW,10    IOPDEVCE          FETCH DEVICE ADDRESS FOR TEMP STORGE
     4127   01 00AEB    02200000 A            LCI      0                 SAVE ALL REGISTERS
     4128   01 00AEC    2B000CE6              STM,0    SAVEREGS          SAVE THEM
     4129   01 00AED    33100D0B              MTW,1    TESTLOC+5
     4130   01 00AEE    6E700000 A            AIO,7                      ACKNOWLEDGE I/O INTERRUPT
     4131   01 00AEF    74000D16              STCF     WORK1             SAVE CONDITION CODES
     4132   01 00AF0    69800AF7              BCS,8    AUTO3I30          EXIT IF NO ADDRESS RECOGNITION
     4133   01 00AF1    52520007 A            LH,5     7,1               FETCH DEVICE ADDRESS
     4134   01 00AF2    32400CE2              LW,4     CIUNO             FETCH NO. CIU'S ON THIS MACHINE
     4135   01 00AF3    31580CD3     AUTO3I22 CW,5     IOPCIUA-1,4       COMPARE RECEIVED & EXPECTED DEV ADDR
     4136   01 00AF4    68300AFB              BE       AUTO3I23          IF EQUAL ADDRESS IS GOOD
     4137   01 00AF5    64400AF3              BDR,4    AUTO3I22          IF 2 CIU TRY SECOND DEVICE ADDRESS
     4138   01 00AF6    33F00AE6              MTW,-1   AUTO3I21          SUBTRACT 1 FROM RETURN LOCATION
     4139                            AUTO3I30 ;
     4140   01 00AF7    02200000 A            LCI      0                 RESTORE ALL
     4141   01 00AF8    2B000CE6              STM,0    SAVEREGS               REGISTERS
     4142   01 00AF9    35A00D1B              STW,10   IOPDEVCE          RESTORE IOP-DEVICE ADDRESS
     4143   01 00AFA    0E300AE6              LPSD,3   AUTO3I21          RETURN TO POINT OF INTERRUPT -1
     4144                            *
     4145                            *                 S U B - T E S T  6
     4146                            *                 TEST THE READ/WRITE BIT IN THE STATUS BYTE IF SET ERR
     4147                            *
     4148   01 00AFB    35500D1B     AUTO3I23 STW,5    IOPDEVCE          SAVE INTERRUPTING DEVICE ADDRESS
     4149   01 00AFC    33100D0C              MTW,1    TESTLOC+6
     4150   01 00AFD    72500007 A            LB,5     7,0               LOAD STATUS BIT
     4151   01 00AFE    4B5012B3              AND,5    L(1)              MASK FOR READ/WRITE BIT
     4152   01 00AFF    68300B0D              BEZ      AUTO3I24          IF SET ERROR
     4153   01 00B00    22600006 A            LI,6     AUTONO            FETCH DIRECTIVE'S STEP NUMBER
     4154   01 00B01    22700068 A            LI,7     TOTALNUM          FETCH PROGRAM'S STEP NUMBER
     4155   01 00B02    15600CD6              STD,6    SUBTEST           SAVE THEM
     4156   01 00B03    324012BD              LW,4     L(8**28)          LOAD RECEIVED LINE STATE
     4157   01 00B04    35400D22              STW,4    RECVLINE          SAVE RECEIVED LINE STATE
     4158   01 00B05    22400000 A            LI,4     0                 LOAD EXPECTED LINE STATE
     4159   01 00B06    35400D23              STW,4    EXPTLINE          SAVE EXPECTED LINE STATE
     4160   01 00B07    02200000 A            LCI      0                 RESTORE
     4161   01 00B08    2A000CE6              LM,0     SAVEREGS                ALL REGISTERS
     4162   01 00B09    35A00D1B              STW,10   IOPDEVCE          RESTORE IOP DEVICE ADDRESS
     4163   01 00B0A    22B00DE6              LI,11    AUTOPA06          SAVE ADDRESS OF COMPARISON WORD
     4164   01 00B0B    70200D16              LC       WORK1             RESTORE CONDITION CODES
     4165   01 00B0C    07000000 A            REPORTER                   GO TO ERROR/STATUS REPORTER
     4166                            *
     4167                            *                 S U B - T E S T  7
     4168                            *                 START I/O TO RESPOND TO OTHER CIU'S REQUEST
     4169                            *
     4170   01 00B0D    22600007 A   AUTO3I24 LI,6     AUTONO            FETCH DIRECTIVE'S STEP NUMBER
     4171   01 00B0E    22700069 A            LI,7     TOTALNUM          FETCH PROGRAM'S STEP NUMBER
     4172   01 00B0F    15600CD6              STD,6    SUBTEST           SAVE THEM
     4173   01 00B10    32400D1A              LW,4     COUNTPAS          FETCH THE NUMBER OF PASSES COMPLETED
     4174   01 00B11    67080D37              EXU      DATABLE2-1,4      LOAD I/O DOUBLEWORD ADDRESS
     4175   01 00B12    22B00DE8              LI,11    AUTOPA07          LOAD COMPARISON DOUBLEWORD ADDRESS
     4176   01 00B13    32600D1D              LW,6     IOPOINT           FETCH IOP-ADDRESS POINTER
     4177   01 00B14    35600D1E              STW,6    POINTER           SAVE IOP-ADDRESS POINTER
     4178   01 00B15    33100D0D              MTW,1    TESTLOC+7
     4179   01 00B16    6AE007B7              BAL,14   SIOTEST1          DO AN SIO
     4180                            *
     4181                            *                 IF DIRECTIVE 3 GO AROUND SUB-TEST 8
     4182                            *
     4183   01 00B17    31200CE2              CW,2     CIUNO             IF TWO CIUS
     4184   01 00B18    68300B23              BE       AUTO3I25                DO NOT TEST FOR BUSY
     4185                            *
     4186                            *                 S U B - T E S T  8
     4187                            *                 TEST FOR LOCAL CIU BUSY
     4188                            *
     4189   01 00B19    22600008 A            LI,6     AUTONO            FETCH DIRECTIVE'S STEP NUMBER
     4190   01 00B1A    2270006A A            LI,7     TOTALNUM          FETCH PROGRAM'S STEP NUMBER
     4191   01 00B1B    15600CD6              STD,6    SUBTEST           SAVE THEM
     4192   01 00B1C    22B00DEA              LI,11    AUTOPA08          LOAD COMPARISON DOUBLEWORD ADDRESS
     4193   01 00B1D    6AE007D2              BAL,14   TIOTEST1          TEST I/O
     4194                            *
     4195                            *                 IN PASS 5, HALT I/O TRANSFER TO TEST UNUSUAL END
     4196                            *
     4197   01 00B1E    22500005 A            LI,5     5                 LOAD 5
     4198   01 00B1F    31500D1A              CW,5     COUNTPAS          IS THIS PASS 5
     4199   01 00B20    69300B23              BNE      AUTO3I25          IF NOT NO HIO
     4200   01 00B21    33100D0E              MTW,1    TESTLOC+8
     4201   01 00B22    CF600D1B              HIO,6    *IOPDEVCE         HALT I/O TO TEST UNUSUAL END
     4202                            *
     4203                            *                 DELAY FOR 60 USECS
     4204                            *
     4205                            AUTO3I25 ;
     4206   01 00B23    22400028 A            LI,4     40
     4207   01 00B24    12600CD2              LD,6     DLAYPROG
     4208   01 00B25    6AF00006 A            BAL,15   6
     4209                            *
     4210                            *
     4211   01 00B26    31100CE2     AUTO3I26 CW,1     CIUNO             IS THERE 1 CIU CONNECTED TO THIS CPT
     4212   01 00B27    68300B2A              BE       AUTO3I27          IF SO DON'T WAIT ON I/O COMPLETION
     4213   01 00B28    CD600D1B              TIO,6    *IOPDEVCE         TEST FOR LOCAL CIU BUSY
     4214   01 00B29    69C00B26              BCS,12   AUTO3I26          IF BUSY TEST AGAIN
     4215   01 00B2A    32400CE5     AUTO3I27 LW,4     TOTALRPD          FETCH THE NUMBER OF CIU'S TESTED
     4216   01 00B2B    22000000 A            LI,0     0                 LOAD ZERO
     4217   01 00B2C    35080CD9              STW,0    RESPA-1,4         RESET RESPOND FLAG
     4218   01 00B2D    35100CE5              STW,1    TOTALRPD          LOAD POINTER FOR RESETING RESPOND FG
     4219                            AUTO3I29 ;
     4220   01 00B2E    33100D0F              MTW,1    TESTLOC+9
     4221   01 00B2F    02200000 A            LCI      0                 SAVE ALL REGISTERS
     4222   01 00B30    2A000CE6              LM,0     SAVEREGS          RESTORE ALL REGISTERS
     4223   01 00B31    35A00D1B              STW,10   IOPDEVCE          RESTORE IOP DEVICE ADDRESS
     4224   01 00B32    31200CE2              CW,2     CIUNO             TEST FOR TWO CIU'S
     4225   01 00B33    68300B35              BE       %+2               IF TWO CIU'S USE SECOND PSDW
     4226   01 00B34    0E300AE4              LPSD,3   AUTO3INP          RETURN TO TOP OF TEST ROUTINE
     4227   01 00B35    0E300AE6              LPSD,3   AUTO3I21          RETURN TO INTERRUPTED ROUTINE
     4228                            *
     4229                            *                 DELAY FOR 100 MS
     4230                            *
     4231   01 00B36    22410000 A   AUTO3T07 LI,4     X'10000'
     4232   01 00B37    12600CD2              LD,6     DLAYPROG
     4233   01 00B38    6AF00006 A            BAL,15   6
     4234                            *
     4235                            *
     4236                            *
     4237   01 00B39    32400CE2     AUTO3T08 LW,4     CIUNO             FETCH NUMBER OF CIU ON THIS COMPUTER
     4238   01 00B3A    22500000 A            LI,5     0                 ZERO CIUL
     4239   01 00B3B    30580CD7     AUTO3T09 AW,5     INITA-1,4         ADD INITIATE FLAG FOR CIUA
     4240   01 00B3C    30580CD9              AW,5     RESPA-1,4         ADD RESPOND  FLAG FOR CIUA
     4241   01 00B3D    64400B3B              BDR,4    AUTO3T09          IF MORE THAN 1 CIU FETCH FOR CIUB
     4242   01 00B3E    33000005 A            MTW,0    5                 TEST CIUL
     4243   01 00B3F    68300AD2              BEZ      AUTO3T06          IF ZERO FETCH NEW SET OF PARAMETERS
     4244   01 00B40    22900000 A            LI,9     0                 LOAD ZERO TO FLAGWORD
     4245   01 00B41    6C000000 A            RD,0     0                 TEST SENSES SWITCHES
     4246   01 00B42    69800C9F              BCS,8    EXITROUT          IF SENSE SWITCH 1 IS SET EXIT ROUTNE
     4247   01 00B43    33100D10              MTW,1    TESTLOC+10
     4248   01 00B44    31200CE2              CW,2     CIUNO             CHECK NUMBER OF CIU'S ON THIS COMPUT
     4249   01 00B45    68300B48              BE       %+3               IF 2 CIU'S ON COMPUTER DONT ALLOW IN
     4250   01 00B46    6D000022 A            WD,0     X'22'             RESET INTERRUPT INHIBITS
     4251   01 00B47    6D000032 A            WD,0     X'32'             SET INTERRUPT INHIBITS
     4252   01 00B48    32500CE4              LW,5     TOTALCIU          FETCH TOTAL NUMBER OF UNTEST CIUS
     4253   01 00B49    311A0CD7              CW,1     INITA-1,5         TEST TO SEE IF IT'S INITIATE IS RSET
     4254   01 00B4A    69300B39              BNE      AUTO3T08          RETURN TO A WAIT LOOP IF IT WAS
     4255   01 00B4B    32400D1A              LW,4     COUNTPAS
     4256   01 00B4C    67080D32              EXU      DATABLE1-1,4      LOAD DOUBLEWORD ADDRESS
     4257   01 00B4D    32700000 A            LW,7     0                 FETCH THE IOD
     4258   01 00B4E    25700401 A            SAS,7    1                 FIND WORD ADDRESS
     4259   01 00B4F    B2520007 A            LW,5     *7,1              FETCH THE BYTE COUNT & FLAGS
     4260   01 00B50    52520005 A            LH,5     5,1               SAVE ONLY THE BYTE COUNT
     4261   01 00B51    3A600D1D              LCW,6    IOPOINT           FETCH THE COMPLEMENT BYTE COUNT PNT
     4262   01 00B52    20600001 A            AI,6     1                 GENERATE A POINTER TO THE OTHER BC
     4263   01 00B53    355C0CE0              STW,5    IOPBYTE,6         SAVE THE BYTE COUNT
     4264   01 00B54    35600D1E              STW,6    POINTER           SAVE THE POINTER
     4265   01 00B55    33100D12              MTW,1    TESTLOC+12
     4266   01 00B56    CC600D1B              SIO,6    *IOPDEVCE
     4267   01 00B57    69C00B39              BCS,12   AUTO3T08          BRANCH IF SIO NOT ACCEPTED
     4268                            *
     4269                            *                 DELAY 60 MICROSECONDS
     4270                            *
     4271   01 00B58    22400028 A            LI,4     40
     4272   01 00B59    12600CD2              LD,6     DLAYPROG
     4273   01 00B5A    6AF00006 A            BAL,15   6
     4274                            *
     4275                            *
     4276                            *
     4277   01 00B5B    CD600D1B              TIO,6    *IOPDEVCE         TEST LOCAL CIU BUSY
     4278   01 00B5C    68C00B39              BCR,12   AUTO3T08          BRANCH IF NOT BUSY
     4279   01 00B5D    32500CE4              LW,5     TOTALCIU          FETCH TOTAL NUMBER OF UNTESTED CIUS
     4280   01 00B5E    22400000 A            LI,4     0                 LOAD ZERO
     4281   01 00B5F    354A0CD7              STW,4    INITA-1,5         RESET INITIATE FLAG
     4282                            AUTO3T10 ;
     4283   01 00B60    33100D13              MTW,1    TESTLOC+13
     4284   01 00B61    6D000022 A            WD,0     X'22'             RESET INTERRUPT INHIBIT
     4285   01 00B62    6D000032 A            WD,0     X'32'             SET INTERRUPT INHIBIT
     4286   01 00B63    31200CE2     AUTO3T11 CW,2     CIUNO             IS THERE TWO CIU'S ON THIS COMPUTER
     4287   01 00B64    68300B69              BE       AUTO3T12          IF SO, DON'T TEST I/O
     4288   01 00B65    CD600D1B              TIO,6    *IOPDEVCE         TEST FOR I/O BUSY
     4289   01 00B66    69800B63              BCS,8    AUTO3T11          IF I/O BUSY LOOP
     4290   01 00B67    4B7012BE              AND,7    L(X'60000000')    SAVE REMOTE CIU STATUS
     4291   01 00B68    68300B63              BEZ      AUTO3T11          LOOP UNTIL REMOTE CIU IS BUSY
     4292                            *
     4293                            *                 DELAY 15 MS
     4294                            *
     4295   01 00B69    22402710 A   AUTO3T12 LI,4     10000             LOAD DELAY PARAMETER
     4296   01 00B6A    12600CD0              LD,6     DLAYTIO           LOAD FIRST HALF OF DELAY ROUTINE
     4297   01 00B6B    12800CD2              LD,8     DLAYPROG          LOAD SECOND HALF OF DELAY ROUTINE
     4298   01 00B6C    6AF00006 A            BAL,15   6                 BRANCH TO DELAY ROUTINE
     4299   01 00B6D    22600001 A            LI,6     1
     4300   01 00B6E    35600D1F              STW,6    READFLAG
     4301                            *
     4302                            *                 S U B - T E S T  9
     4303                            *                 TEST FOR 2048 BYTES TRANSFERRED
     4304                            *
     4305                            TESTBC1 ;
     4306   01 00B6F    3A600D1D              LCW,6    IOPOINT           FETCH THE COMPLEMENT BYTE COUNT PNT
     4307   01 00B70    20600001 A            AI,6     1                 GENERATE A POINTER TO THE OTHER BC
     4308   01 00B71    35600D1E              STW,6    POINTER           SAVE THE POINTER
     4309   01 00B72    31100D1A              CW,1     COUNTPAS          IS THIS PASS 1
     4310   01 00B73    69300B79              BNE      TESTLT            IF NOT GO TO TEST FOR LINE TEST
     4311   01 00B74    22600009 A            LI,6     AUTONO            FETCH DIRECTIVE'S STEP NUMBER
     4312   01 00B75    2270006B A            LI,7     TOTALNUM          FETCH PROGRAM'S STEP NUMBER
     4313   01 00B76    15600CD6              STD,6    SUBTEST           SAVE THEM
     4314   01 00B77    22B00DEC              LI,11    AUTOPA09          SAVE ADDRESS OF COMPARISON WORD
     4315   01 00B78    6AE007D2              BAL,14   TIOTEST1          TEST FOR 2048 BYTES XFERRED
     4316                            *
     4317                            *                 S U B - T E S T  1 0  T H R U  1 7
     4318                            *                 TEST FOR CORRECT PATTERN RECEIVED
     4319                            *
     4320   01 00B79    31100D1A     TESTLT   CW,1     COUNTPAS          IS THIS PASS 1
     4321   01 00B7A    69300B80              BNE      TESTTDV1          IF NOT GO TO TEST FOR TDV
     4322   01 00B7B    22600009 A            LI,6     AUTONO-1          FETCH THE DIRECTIVE'S STEP NUMBER
     4323   01 00B7C    2270006B A            LI,7     TOTALNUM-1        FETCH THE PROGRAM'S STEP NUMBER
     4324   01 00B7D    15600CD6              STD,6    SUBTEST           SAVE THEM
     4325   01 00B7E    22B00DEE              LI,11    AUTOPA10          SAVE ADDRESS OF COMPARISON WORD
     4326   01 00B7F    6AE00BC7              BAL,14   COMPARE           TEST FOR CORRECT RECIEVED PATTERN
     4327                            *
     4328                            *                 S U B - T E S T  1 8
     4329                            *                 TEST FOR INCORRECT LENGTH BIT NOT SET
     4330                            *
     4331         00000011           TNAUTO   SET      TNAUTO+7
     4332         00000073           TNTOTAL  SET      TNTOTAL+7
     4333                            *
     4334                            *
     4335   01 00B80    31100D1A     TESTTDV1 CW,1     COUNTPAS          IS THIS PASS 1
     4336   01 00B81    69300B87              BNE      TESTPARY          IF NOT GO TO TEST FOR PARITY
     4337   01 00B82    22600012 A            LI,6     AUTONO            FETCH DIRECTIVE'S STEP NUMBER
     4338   01 00B83    22700074 A            LI,7     TOTALNUM          FETCH PROGRAM'S STEP NUMBER
     4339   01 00B84    15600CD6              STD,6    SUBTEST           SAVE THEM
     4340   01 00B85    22B00DF0              LI,11    AUTOPA18          SAVE ADDRESS OF COMPARISON WORD
     4341   01 00B86    6AE007DE              BAL,14   TDVTEST1          TEST FOR INCORRECT LENGTH NOT SET
     4342                            *
     4343                            *                 S U B - T E S T  1 9
     4344                            *                 TEST FOR GOOD PARITY
     4345                            *
     4346   01 00B87    31200D1A     TESTPARY CW,2     COUNTPAS          IS THIS PASS 2
     4347   01 00B88    69300B8E              BNE      TESTTDV2          IF NOT GO TO TEST FOR INCORRECT LENG
     4348   01 00B89    22600013 A            LI,6     AUTONO            FETCH DIRECTIVE'S STEP NUMBER
     4349   01 00B8A    22700075 A            LI,7     TOTALNUM          FETCH PROGRAM'S STEP NUMBER
     4350   01 00B8B    15600CD6              STD,6    SUBTEST           SAVE THEM
     4351   01 00B8C    22B00DF2              LI,11    AUTOPA19          SAVE ADDRESS OF COMPARISON WORD
     4352   01 00B8D    6AE00BF4              BAL,14   PARITYTESTER      TEST FOR GOOD PARITY
     4353                            *
     4354                            *                 S U B - T E S T  2 0
     4355                            *                 TEST FOR INCORRECT LENGTH
     4356                            *
     4357   01 00B8E    31300D1A     TESTTDV2 CW,3     COUNTPAS          IS THIS PASS 3
     4358   01 00B8F    69300B95              BNE      TESTTDV3          IF NOT GO TO TEST FOR INCORRECT LENG
     4359   01 00B90    22600014 A            LI,6     AUTONO            FETCH DIRECTIVE'S STEP NUMBER
     4360   01 00B91    22700076 A            LI,7     TOTALNUM          FETCH PROGRAM'S STEP NUMBER
     4361   01 00B92    15600CD6              STD,6    SUBTEST           SAVE THEM
     4362   01 00B93    22B00DF4              LI,11    AUTOPA20          SAVE ADDRESS OF COMPARISON WORD
     4363   01 00B94    6AE007DE              BAL,14   TDVTEST1          TEST FOR INCORRECT LENGTH
     4364                            *
     4365                            *                 S U B - T E S T  2 1
     4366                            *                 TEST FOR INCORRECT LENGTH
     4367                            *
     4368   01 00B95    22600004 A   TESTTDV3 LI,6     4                 LOAD A 4
     4369   01 00B96    31600D1A              CW,6     COUNTPAS          IS THIS PASS 4
     4370   01 00B97    69300B9D              BNE      TESTTIO2          IF NOT GO TEST FOR UNUSUAL END
     4371   01 00B98    22600015 A            LI,6     AUTONO            FETCH DIRECTIVE' STEP NUMBER
     4372   01 00B99    22700077 A            LI,7     TOTALNUM          FETCH PROGRAM'S STEP NUMBER
     4373   01 00B9A    15600CD6              STD,6    SUBTEST           SAVE THEM
     4374   01 00B9B    22B00DF6              LI,11    AUTOPA21          SAVE ADDRESS OF COMPARISON WORD
     4375   01 00B9C    6AE007DE              BAL,14   TDVTEST1          TEST FOR INCORRECT LENGTH
     4376                            *
     4377                            *                 S U B - T E S T  2 2
     4378                            *                 TEST FOR UNUSUAL END FLAG SET
     4379                            *
     4380   01 00B9D    22600005 A   TESTTIO2 LI,6     5                 LOAD A 5
     4381   01 00B9E    31600D1A              CW,6     COUNTPAS          IS THIS PASS 5
     4382   01 00B9F    69300BA5               BNE     AUTO3T14           IF SO TEST FOR UNUSUAL END
     4383   01 00BA0    22600016 A            LI,6     AUTONO            FETCH DIRECTIVE'S STEP NUMBER
     4384   01 00BA1    22700078 A            LI,7     TOTALNUM          FETCH PROGRAM'S STEP NUMBER
     4385   01 00BA2    15600CD6              STD,6    SUBTEST           SAVE THEM
     4386   01 00BA3    22B00DF8              LI,11    AUTOPA22          SAVE ADDRESS OF COMPARISON WORD
     4387   01 00BA4    6AE007D2              BAL,14   TIOTEST1          TEST FOR UNUSUAL END CONDITIONS
     4388                            *
     4389                            *
     4390                            *
     4391                            AUTO3T14 ;
     4392   01 00BA5    35100CE4              STW,1    TOTALCIU          LOAD TOTAL NUMBER OF CIU'S REMAINING
     4393   01 00BA6    33100D14              MTW,1    TESTLOC+14
     4394   01 00BA7    32400CD4              LW,4     IOPCIUA           FETCH NEW DEVICE ADDRESS
     4395   01 00BA8    35400D1B              STW,4    IOPDEVCE          STORE IT THE DEVICE ADDRESS LOCATION
     4396   01 00BA9    68000B39     AUTO3T15 B        AUTO3T08          RETURN TO TOP OF THE LOOP
     4397                            *
     4398                            *        W A T C H D O G  T I M E R  T R A P
     4399                            *                        A N D  R E S E T  I / O  R O U T I N E
     4400                            *
     4401                                     BOUND    8
     4402   01 00BAA    00000000 A   WDTTRAP  DATA     0,0
            01 00BAB    00000000 A
     4403   01 00BAC    00000BAE              DATA     %+2,7**24
            01 00BAD    07000000 A
     4404   01 00BAE    33000D25              MTW,0    WATCHFLG          TEST WATCHDOG TIMER TRAP FLAG
     4405   01 00BAF    69300BAF              BNEZ     %                 IF SET, LOOP FOR OPERATOR
     4406                            *
     4407                            *                 TO CONTINUE:
     4408                            *                        PLACE COMPUTE SWITCH TO 'IDLE'
     4409                            *                        PRESS 'RESET'
     4410                            *                        COMPUTE SWITCH TO 'RUN'
     4411                            *
     4412   01 00BB0    33100D25              MTW,1    WATCHFLG          IMCREMENT FLAG IN CASE JUMPER NOT IN
     4413   01 00BB1    12400BAA              LD,4     WDTTRAP           LOAD ADDRESS OF TRAP
     4414   01 00BB2    1540017C              STD,4    ZCTL              SAVE ADDRESS OF TRAP
     4415   01 00BB3    32C00BAA              LW,12    WDTTRAP           FETCH ADDRESS OF WHERE TRAP OCCURRED
     4416   01 00BB4    6AF004FD              BAL,15   ZBTH              CONVERT TO HEX
     4417   01 00BB5    55D00E8E              STH,13   TEXT19+11         SAVE LSB OF THE ADDRESS
     4418   01 00BB6    25D00270 A            SCS,13   -16               POSITION TO GET MSB OF THE ADDRESS
     4419   01 00BB7    55D20E8D              STH,13   TEXT19+10,1       SAVE MSBS  OF THE ADDRESS
     4420   01 00BB8    33100D1C              MTW,1    RETURN            LOAD PLACEMARK BRANCH
     4421   01 00BB9    22900002 A            LI,9     2
     4422   01 00BBA    22600E82              LI,6     MW19              LOAD AND SAVE ADDRESS OF
     4423   01 00BBB    35600D21              STW,6    MESSAGE                'WATCHDOG TIMER TRAP' MESSAGE
     4424   01 00BBC    68000BBF              B        RESETIO
     4425                            *
     4426                            *
     4427   01 00BBD    22900000 A   RSET     LI,9     0
     4428   01 00BBE    35F00D1C              STW,15   RETURN
     4429   01 00BBF    22401388 A   RESETIO  LI,4     5000              LOAD A 7.5 MS DELAY
     4430   01 00BC0    22501388 A            LI,5     5000              LOAD A 7.5 MS DELAY
     4431   01 00BC1    6D000042 A            WD,0     X'42'             SET I/O RESET FLIP FLOP
     4432   01 00BC2    64400BC2              BDR,4    %                 WAIT 7.5 MS
     4433   01 00BC3    6D000042 A            WD,0     X'42'              RESET I/O RESET FLIP FLOP
     4434   01 00BC4    64500BC4              BDR,5    %                 WAIT 7.5 MS
     4435   01 00BC5    355006A1              STW,5    AUTOFLAG          ZERO THE AUTOFLAG
     4436   01 00BC6    68000C9F              B        EXITROUT          GO FINISH THE HOUSE CLEANING
     4437                            *
     4438                            *
     4439                            *                 D A T A  C O M P A R I S O N  R O U T I N E
     4440                            *
     4441                            *
     4442                            *                 THIS ROUTINE COMPARES EXPECTED DATA BYTES
     4443                            *                 TO RECEIVED DATA BYTES, UNTIL ALL  RECEIVED
     4444                            *                 BYTES HAVE BEEN COMPARED, OR UNTIL A
     4445                            *                 MISCOMPARED IS DETECTED.
     4446                            *                 IF A MISCOMPARISON IS DETECTED, THE
     4447                            *                 EXPECTED AND RECEIVED BITS ARE SAVED AND
     4448                            *                 THE SUB-TEST COUNTER IS UPDATED.
     4449                            *
     4450                            COMPARE ;
     4451   01 00BC7    32800D20              LW,8     BYTCOUNT          FETCH BYTE COUNT
     4452   01 00BC8    22903A88              LI,9     BA(XPATTERN)      FETCH STARTING ADDRESS OF PAT TABLE
     4453                            COMPAR16 ;
     4454   01 00BC9    22500000 A            LI,5     0                 ZERO RPATTERN TABLE POINTER
     4455   01 00BCA    33000D20              MTW,0    BYTCOUNT          TEST FOR NEGATIVE OR ZERO BYTE COUNT
     4456   01 00BCB    E820000E A            BLEZ     *14               IF FOUND RETURN
     4457                            COMPARE1 ;
     4458   01 00BCC    22C00000 A            LI,12    0                 ZERO RPATTERN PATTERN LENGTH
     4459   01 00BCD    32400009 A            LW,4     9                 FETCH BYTE ADDRESS OF XPATTERN
     4460                            COMPARE2 ;
     4461   01 00BCE    727A10A2              LB,7     RPATTERN,5        FETCH RECEIVED BYTE
     4462   01 00BCF    72680000 A            LB,6     0,4               FETCH TRANSMITTED BYTE
     4463   01 00BD0    48700006 A            EOR,7    6                 TEST FOR MISCOMPARE
     4464   01 00BD1    69300BDA              BNEZ     COMPERRO          GO TO ERROR ROUTINE
     4465   01 00BD2    33100005 A            MTW,1    5                 INCREMENT BYTE POINTER
     4466   01 00BD3    31500D20              CW,5     BYTCOUNT          COMPARE WITH TOTAL BYTE COUNT
     4467   01 00BD4    E810000E A            BGE      *14               IF EQUAL OR GREATER RETURN
     4468   01 00BD5    33100004 A            MTW,1    4                 INCREMENT XPATTERN TABLE POINTER
     4469   01 00BD6    3310000C A            MTW,1    12                INCREMENT RECEIVED PATTERN COUNTER
     4470   01 00BD7    3180000C A            CW,8     12                TEST FOR GREATER THAN GOOD COUNT
     4471   01 00BD8    68200BCC              BLE      COMPARE1          GO ZERO COUNT
     4472   01 00BD9    68000BCE              B        COMPARE2          GO TEST NEXT BYTE
     4473                            *
     4474                            *
     4475   01 00BDA    725A10A2     COMPERRO LB,5     RPATTERN,5        LOAD RECEIVED BYTE IN ERROR
     4476   01 00BDB    224FFFF8 A            LI,4     -8                LOAD BIT COUNT
     4477   01 00BDC    2550027F A   COMPERR2 SCS,5    -1
     4478   01 00BDD    2560027F A            SCS,6    -1
     4479   01 00BDE    2570027F A            SCS,7    -1
     4480   01 00BDF    33000007 A            MTW,0    7
     4481   01 00BE0    69100BE2              BLZ      %+2
     4482   01 00BE1    65400BDC              BIR,4    COMPERR2          IF NO BIT IN ERROR, TRY NEXT BIT
     4483                            *
     4484                            *
     4485   01 00BE2    3A400004 A            LCW,4    4
     4486   01 00BE3    66400CD6              AWM,4    SUBTEST           SAVE SUB-TEST NUMBER
     4487   01 00BE4    66400CD7              AWM,4    TOTALTST
     4488   01 00BE5    4B5012BD              AND,5    L(8**28)          MASK FOR RECEIVED BIT
     4489   01 00BE6    4B6012BD              AND,6    L(8**28)          MASK FOR EXPECTED BIT
     4490   01 00BE7    35500D22              STW,5    RECVLINE          SAVE THE RECEIVED LINE CONDITION
     4491   01 00BE8    35600D23              STW,6    EXPTLINE          SAVE THE EXPECTED LINE CONDITION
     4492   01 00BE9    07000000 A            REPORTER                   CALL ERROR/STATUS REPORTER
     4493                            *
     4494                            *
     4495                            *                 M O V E  D A T A  R O U T I N E
     4496                            *
     4497                            *
     4498                            GENPATTN ;
     4499   01 00BEA    32500D2A              LW,5     NUMBYTES          FETCH THE SIZE OF PATTERN
     4500   01 00BEB    32600D29              LW,6     TEMPATTN          FETCH THE BYTE ADDL OF PATT TO MOVE
     4501   01 00BEC    33000000 A   GENPAT   MTW,0    0
     4502   01 00BED    22704A88              LI,7     BA(WPATTERN)      FETCH THE BYTE ADDL OF THE WORK PATN
     4503   01 00BEE    728C0000 A            LB,8     0,6               LOAD BYTE FROM XPATTERN
     4504   01 00BEF    758E0000 A            STB,8    0,7               STORE IN WORK PATTERN
     4505   01 00BF0    33100006 A            MTW,1    6                 MODIFY XPATTERN POINTER
     4506   01 00BF1    33100007 A            MTW,1    7                 MODIFY WPATTERN POINTER
     4507   01 00BF2    64500BEC              BDR,5    GENPAT            ALL BYTES XFERRED
     4508   01 00BF3    E800000E A            B        *14               RETURN TO CALLING ROUTINE
     4509                            *
     4510                            *
     4511                            *                 P A R I T Y  T E S T E R
     4512                            *
     4513                            *
     4514                            PARITYTESTER ;
     4515   01 00BF4    22603A88              LI,6     BA(XPATTERN)
     4516                            PARITYTEST ;
     4517   01 00BF5    22CFFFFF A            LI,12    -1
     4518                            PARITY ;
     4519   01 00BF6    CD700D1B              TIO,7    *IOPDEVCE         FETCH CURRENT BYTE COUNT
     4520   01 00BF7    5A420007 A            LCH,4    7,1               COMPLEMENT BYTE COUNT
     4521   01 00BF8    E830000E A            BEZ      *14               IF ZERO NO PARITY ERRORS
     4522   01 00BF9    25000401 A            SAS,0    1                 DETERMINE WORD ADDRESS OF CDW
     4523   01 00BFA    B2520000 A            LW,5     *0,1              FETCH BYTE COUNT
     4524   01 00BFB    50420005 A            AH,4     5,1               ADD BYTE COUNT TO FIND NUMBER XFERRD
     4525   01 00BFC    4B40000C A            AND,4    12                MASK FOR MAXIMUM BYTE COUNT
     4526   01 00BFD    204FFFFF A            AI,4     -1                ADD-1 TO CORRECT BAD BYTE POINTER
     4527   01 00BFE    30400006 A            AW,4     6                 GENERATE THE BYTE ADDRESS
     4528   01 00BFF    72580000 A            LB,5     0,4               FETCH THE BYTE IN ERROR
     4529   01 00C00    22C00000 A            LI,12    0                 LOAD EXPECTED LINE CONDITION
     4530   01 00C01    32D012BD              LW,13    L(8**28)          LOAD RECEIVED LINE CONDITION
     4531   01 00C02    25500420 A            SAS,5    32                TEST FOR PARITY ERROR
     4532   01 00C03    69800C06              BOD      %+3               BRANCH IF ODD NUMBER OF BITS DETECTD
     4533   01 00C04    32C012BD              LW,12    L(8**28)          LOAD EXPECTED LINE CONDITION
     4534   01 00C05    22D00000 A            LI,13    0                 LOAD RECEIVED LINE CONDITION
     4535   01 00C06    35C00D23              STW,12   EXPTLINE          SAVE EXPECTED LINE CONDITION
     4536   01 00C07    35D00D22              STW,13   RECVLINE          SAVE RECEIVED LINE CONDITION
     4537   01 00C08    07000000 A            REPORTER                   CALL ERROR STATUS REPORTER
     4538                            *
     4539                            *
     4540                            *                 B I N A R Y  T O  E B C D I C  C O N V E R T E R
     4541                            *
     4542                            *
     4543                            *                 THIS ROUTINE CONVERTS THE FOUR MOST SIGNIFICANT
     4544                            *                 BINARY BITS IN REGISTER 5 TO FOUR EBCDIC
     4545                            *                 BYTES IN REGISTER 4.
     4546                            *
     4547                            BINARYTOEBCDICMASKED ;
     4548   01 00C09    22E00C14              LI,14    MASKING1
     4549                            BINARYTOEBCDIC ;
     4550   01 00C0A    22400000 A            LI,4     0                 ZERO THE EBCDIC STORAGE REGISTER
     4551   01 00C0B    25400101 A            SLD,4    1                 FETCH THE FIRST BIT
     4552   01 00C0C    25400007 A            SLS,4    7
     4553   01 00C0D    25400101 A            SLD,4    1
     4554   01 00C0E    25400007 A            SLS,4    7
     4555   01 00C0F    25400101 A            SLD,4    1
     4556   01 00C10    25400007 A            SLS,4    7
     4557   01 00C11    25400101 A            SLD,4    1
     4558   01 00C12    494012BF              OR,4     L(X'F0F0F0F0')
     4559   01 00C13    E800000E A            B        *14
     4560   01 00C14    226FFFFC A   MASKING1 LI,6     -4                LOAD COUNTER
     4561   01 00C15    22C000E7 A            LI,12    'X'
     4562   01 00C16    25700401 A   MASKING2 SAS,7    1                 TEST FOR MASK BIT NOT SET
     4563   01 00C17    69800C19              BOD      MASKING3          IF SET DON'T INSERT THE 'X'
     4564   01 00C18    75CC0005 A            STB,12   4+1,6             INSERT X INTO MESSAGE
     4565   01 00C19    65600C16     MASKING3 BIR,6    MASKING2          GO TEST NEXT BIT POSITION
     4566   01 00C1A    E800000D A            B        *13
     4567                            *
     4568                            *
     4569                            *
     4570                            *                 E R R O R  -  S T A T U S  R E P O R T E R
     4571                            *
     4572                            *
     4573                            *                 THIS ROUTINE COMPARES EXPECTED TO RECEIVED
     4574                            *                 STATUS, CONDITION CODES, LINE STATE AND
     4575                            *                 BYTE COUNT.  IF THE AUTO FLAG WAS SET
     4576                            *                 AND THE EXPECTED AND RECEIVED DATA COMPARED
     4577                            *                 CONTROL WILL BE RETURNED TO THE MAIN PROGRAM.
     4578                            *                 FOR ALL OTHER CONDITIONS; MESSAGES WILL BE
     4579                            *                 OUTPUT ACCORDING TO THE FLAGS THAT ARE SET
     4580                            *                 IN THE MESSAGE FLAG WORD.
     4581                            *                 REGISTER 4,5      WORK AREA
     4582                            *                 REGISTER 6,7      RETURNED STATUS
     4583                            *                 REGISTER 8        EXPECTED STATUS
     4584                            *                 REGISTER 9        FLAG MESSAGE
     4585                            *                 REGISTER 10       ZERO WORD
     4586                            *                 REGISTER 11       ADDRESS OF DOUBLEWORD FOR EXPECTED
     4587                            *                                         STATUS AND FLAG MESSAGES
     4588                            *                 REGISTER 12       WORDS TO BE CONVERTED
     4589                            *                 REGISTER 13       BINARY TO EBCDIC LINK ADDRESS
     4590                            *                 REGISTER 14       RETURN ADDRESS TO CALLING PROGRAM
     4591                            *                 REGISTER 15       LINK ADDRESS TO DCP ROUTINES
     4592                            *
     4593                                     BOUND    8
     4594                            *
     4595                            *
     4596                            ERRORSTATUSREPORTER ;
     4597   01 00C1C    00000000 A            DATA     0,0
            01 00C1D    00000000 A
     4598   01 00C1E    00000C20              DATA     %+2,7**24
            01 00C1F    07000000 A
     4599                            *
     4600                            *
     4601   01 00C20    02200000 A            LCI      0                 SAVE THE CONTENTS
     4602   01 00C21    2B000CF6              STM,0    SAVERTER          SAVE THE CONTENTS
     4603   01 00C22    9280000B A            LD,8     *11               FETCH FLAG & EXPECTED STATUS WORDS
     4604   01 00C23    32500007 A            LW,5     7                 FETCH STATUS
     4605   01 00C24    15800CDE              STD,8    EXPTCOND          SAVE THE EXPECTED COMPARE WORD
     4606   01 00C25    72400C1C              LB,4     ERRORSTATUSREPORTER
     4607   01 00C26    75420005 A            STB,4    5,1               STORE CONDITION CODE
     4608   01 00C27    4B5012C0              AND,5    L(X'FFC00000')    MASK OUT ALL BUT STATUS & CC
     4609   01 00C28    35500D24              STW,5    RECVCOND          SAVE THE RECEIVED STATUS AND CC
     4610   01 00C29    4B500009 A            AND,5    9                 MASK STATUS & COND CODE BYTES
     4611   01 00C2A    35500D28              STW,5    RECVWORD          SAVE THE MASKED RECEIVED STATUS & CC
     4612                            *
     4613                            *                 CALCULATE THE NUMBER OF BYTES THAT WERE TRANSFERRED
     4614                            *
     4615                            CALCNUMB ;
     4616   01 00C2B    75460C2C              STB,4    %+1,3             FETCH THE CONDITION CODES
     4617   01 00C2C    02200000 A            LCI      0                 LOAD THE CONDITION CODES
     4618   01 00C2D    69800C32              BCS,8    CALCEXT           IF NO ADDRESS RECOGNITION LOAD ZERO
     4619   01 00C2E    32600D1E              LW,6     POINTER           FETCH BYTE COUNT WORD POINTER
     4620   01 00C2F    32BC0CE0              LW,11    IOPBYTE,6         FETCH BYTE COUNT
     4621   01 00C30    58B20007 A            SH,11    7,1               CALCULATE NUMBER OF BYTES TRANSFERRD
     4622   01 00C31    69200C33              BGZ      LOADBYT           IF LESS THAN ZERO LOAD ZERO
     4623   01 00C32    22B00000 A   CALCEXT  LI,11    0                 LOAD ZERO
     4624                            LOADBYT ;
     4625   01 00C33    35B00D20              STW,11   BYTCOUNT          SAVE BYTE COUNT
     4626                            *
     4627                            *                 COMPARE EXPECTED TO RECEIVED BYTE COUNT
     4628                            *
     4629   01 00C34    52720D20              LH,7     BYTCOUNT,1        FETCH RECEIVED BYTE COUNT
     4630   01 00C35    52620008 A            LH,6     8,1               FETCH EXPECTED BYTE COUNT
     4631   01 00C36    4B6012B2              AND,6    L(X'00001FFF')    SAVE ONLY THE BYTE COUNT
     4632   01 00C37    45100009 A            CS,1     9                 TEST 'BYTECNT' FLAG
     4633   01 00C38    69300C3D              BNE      CRDCODES          IF NOT NEXT COMPARISON
     4634   01 00C39    51620007 A            CH,6     7,1                      COMPARE BYTE COUNTS
     4635   01 00C3A    68300C3D              BE       CRDCODES          IF EQUAL NEXT COMPARISON
     4636   01 00C3B    2590047E A            SAS,9    -2                IF NOT POSITION 'FLIP' FLAG
     4637   01 00C3C    68000C53              B        FLIPFLAG          GO TEST THE FLIP FLAG
     4638                            *
     4639                            *                 COMPARE EXPECTED TO RECEIVED CONDITION CODES
     4640                            *
     4641   01 00C3D    72720D28     CRDCODES LB,7     RECVWORD,1        FETCH RECEIVED CONDITION CODES
     4642   01 00C3E    2590047F A            SAS,9    -1                FETCH 'CONDCODE' FLAG
     4643   01 00C3F    45100009 A            CS,1     9                 TEST 'CONDCODE' FLAG
     4644   01 00C40    69300C45              BNE      CRDSTATS          IF NOT SET NEXT COMPARISON
     4645   01 00C41    71720008 A            CB,7     8,1               COMPARE CONDITION CODES
     4646   01 00C42    68300C45              BE       CRDSTATS          IF EQUAL NEXT TEST
     4647   01 00C43    2590047F A            SAS,9    -1                IF NOT POSITION 'FLIP' FLAG
     4648   01 00C44    68000C53              B        FLIPFLAG            GO TEST FLIP FLAG
     4649                            *
     4650                            *                 COMPARE EXPECTED TO RECEIVED STATUS
     4651                            *
     4652   01 00C45    72700D28     CRDSTATS LB,7     RECVWORD,0        FETCH RECEIVED STATUS
     4653   01 00C46    2590047F A            SAS,9    -1                FETCH 'STATUS' FLAG
     4654   01 00C47    330006A1              MTW,0    AUTOFLAG          TEST FOR AUTO
     4655   01 00C48    69300C4E              BNEZ     CRDSTAT2           IF AUTO GO TO STATUS COMPARE FOR AU
     4656   01 00C49    45100009 A   CRDSTAT1 CS,1     9                 TEST 'STATUS' FLAG
     4657   01 00C4A    69300C57              BNE      FLIPOVER          IF NOT SET NEXT COMPARISON
     4658   01 00C4B    71700CDE              CB,7     EXPTCOND,0        COMPARE FOR ANY BITS COMPARE
     4659   01 00C4C    68400C57              BAZ      FLIPOVER          BRANCH ON NO BITS COMPARE TO TEST FP
     4660   01 00C4D    68000C53              B        FLIPFLAG          GO TEST 'FLIP'
     4661   01 00C4E    45100009 A   CRDSTAT2 CS,1     9                 TEST 'STATUS' FLAG
     4662   01 00C4F    69300C57              BNE      FLIPOVER          IF NOT SET NEXT COMPARISON
     4663   01 00C50    71700CDE              CB,7     EXPTCOND,0        COMPARE RECEIVED & EXPECTED STATUS
     4664   01 00C51    69300C53              BNE      FLIPFLAG          GO TEST FLIP
     4665   01 00C52    68000C57              B        FLIPOVER          GO TEST FLIP
     4666                            *
     4667                            *                 TEST THE FLIP FLAG IF A MISCOMPARISON OCCURRED
     4668                            *
     4669   01 00C53    2590047F A   FLIPFLAG SAS,9    -1
     4670   01 00C54    45100009 A            CS,1     9
     4671   01 00C55    69300C61              BNE      FORMAT1
     4672   01 00C56    68000C5B              B        RESTORE
     4673                            *
     4674                            *                 TEST THE FLIP FLAG IF A COMPARISON OCCURRED
     4675                            *
     4676   01 00C57    2590047F A   FLIPOVER SAS,9    -1
     4677   01 00C58    45100009 A            CS,1     9
     4678   01 00C59    68300C61              BE       FORMAT1
     4679   01 00C5A    68000C5B              B        RESTORE
     4680                            *
     4681                            *                 RESTORE ALL 16 REGISTERS AND RETURN TO CALLING PROGRAM
     4682                            *
     4683   01 00C5B    330006A1     RESTORE  MTW,0    AUTOFLAG          TEST AUTO FLAG
     4684   01 00C5C    68300C62              BEZ      FORMAT            IF NOT SET, GO TO OUPUT MESSAGES
     4685   01 00C5D    02200000 A            LCI      0                 RESTORE REGISTERS
     4686   01 00C5E    2A000CF6              LM,0     SAVERTER          RESTORE REGISTERS
     4687   01 00C5F    55E20C1C              STH,14   ERRORSTATUSREPORTER,1
     4688   01 00C60    0E000C1C              LPSD,0   ERRORSTATUSREPORTER
     4689                            *
     4690                            *
     4691                            *                 FORMAT 'STATUS RECEIVED' MESSAGE
     4692                            *
     4693   01 00C61    33100D1C     FORMAT1  MTW,1    RETURN            LOAD PLACEMARK BRANCH
     4694                            FORMAT ;
     4695   01 00C62    32500D24              LW,5     RECVCOND
     4696   01 00C63    6AE00C0A              BAL,14   BINARYTOEBCDIC
     4697   01 00C64    75400E16              STB,4    TEXT04+3
     4698   01 00C65    25400278 A            SCS,4    -8
     4699   01 00C66    55420E15              STH,4    TEXT04+2,1
     4700   01 00C67    25400270 A            SCS,4    -16
     4701   01 00C68    75420E15              STB,4    TEXT04+2,1
     4702   01 00C69    6AE00C0A              BAL,14   BINARYTOEBCDIC
     4703   01 00C6A    55400E17              STH,4    TEXT04+4          STORE FORMATTED STATUS INFORMATION
     4704   01 00C6B    25400270 A            SCS,4    -16
     4705   01 00C6C    55420E16              STH,4    TEXT04+3,1        STORE FORMATTED STATUS INFORMATION
     4706   01 00C6D    6AE00C0A              BAL,14   BINARYTOEBCDIC
     4707   01 00C6E    25400270 A            SCS,4    -16
     4708   01 00C6F    55420E18              STH,4    TEXT04+5,1        STORE FORMATTED CONDITION CODES
     4709                            *
     4710                            *                 FORMAT 'LINE STATE RECEIVED' MESSAGE
     4711                            *
     4712   01 00C70    32500D22              LW,5     RECVLINE
     4713   01 00C71    6AE00C0A              BAL,14   BINARYTOEBCDIC
     4714   01 00C72    25400268 A            SCS,4    -24
     4715   01 00C73    75420E42              STB,4    TEXT09+9,1        STORE RECEIVED STATE OF THE LINE
     4716                            *
     4717                            *                 FORMAT 'BYTE COUNT  RECEIVED' MESSAGE
     4718                            *
     4719   01 00C74    52C20D20              LH,12    BYTCOUNT,1
     4720   01 00C75    6AF004E8              BAL,15   ZBTD
     4721   01 00C76    6AF004FD              BAL,15   ZBTH
     4722   01 00C77    35D00E26              STW,13   TEXT06+5          STORE BYTE COUNT
     4723   01 00C78    35D00E2E              STW,13   TEXT07+6          STORE BYTE COUNT
     4724                            *
     4725                            *                 FORMAT 'STATUS EXPECTED' MESSAGE
     4726                            *
     4727   01 00C79    32700CDF              LW,7     EXPTCOND+1
     4728   01 00C7A    32500CDE              LW,5     EXPTCOND
     4729   01 00C7B    6AD00C09              BAL,13   BINARYTOEBCDICMASKED
     4730   01 00C7C    75400E1D              STB,4    TEXT05+3
     4731   01 00C7D    25400278 A            SCS,4    -8
     4732   01 00C7E    55420E1C              STH,4    TEXT05+2,1
     4733   01 00C7F    25400270 A            SCS,4    -16
     4734   01 00C80    75420E1C              STB,4    TEXT05+2,1
     4735   01 00C81    6AD00C09              BAL,13   BINARYTOEBCDICMASKED
     4736   01 00C82    55400E1E              STH,4    TEXT05+4          STORE FORMATTED STATUS INFORMATION
     4737   01 00C83    25400270 A            SCS,4    -16
     4738   01 00C84    55420E1D              STH,4    TEXT05+3,1        STORE FORMATTED STATUS INFORMATION
     4739   01 00C85    6AD00C09              BAL,13   BINARYTOEBCDICMASKED
     4740   01 00C86    25400270 A            SCS,4    -16
     4741   01 00C87    55420E1F              STH,4    TEXT05+5,1        STORE CONDITION CODES
     4742                            *
     4743                            *                 FORMAT 'LINE STATE EXPECTED' MESSAGE
     4744                            *
     4745   01 00C88    32500D23              LW,5     EXPTLINE
     4746   01 00C89    6AE00C0A              BAL,14   BINARYTOEBCDIC
     4747   01 00C8A    25400268 A            SCS,4    -24
     4748   01 00C8B    75400E41              STB,4    TEXT09+8          STORE EXPECTED STATE OF THE LINE
     4749                            *
     4750                            *                 FORMAT 'BYTE COUNT EXPECTED' MESSAGE
     4751                            *
     4752   01 00C8C    52C20CDE              LH,12    EXPTCOND,1
     4753   01 00C8D    4BC012B2              AND,12   L(X'00001FFF')
     4754   01 00C8E    6AF004E8              BAL,15   ZBTD              CONVERT TO DECIMAL
     4755   01 00C8F    6AF004FD              BAL,15   ZBTH
     4756   01 00C90    55D00E2C              STH,13   TEXT07+4          STORE EXPECTED BYTE COUNT
     4757   01 00C91    25D00270 A            SCS,13   -16
     4758   01 00C92    55D20E2B              STH,13   TEXT07+3,1        STORE EXPECTED BYTE COUNT
     4759                            *
     4760                            *                 FORMAT'CIU IOP AND DEVICE ADDRESS' MESSAGE
     4761                            *
     4762   01 00C93    32C00D1B              LW,12    IOPDEVCE
     4763   01 00C94    6AF004FD              BAL,15   ZBTH
     4764   01 00C95    35D00E3F              STW,13   TEXT09+6          STORE IOP-DEVICE ADDRESS
     4765                            *
     4766                            *                 FORMAT 'IOP AND DEVICE ADDRESS' MESSAGE
     4767                            *
     4768   01 00C96    52C20CFD              LH,12    SAVERTER+7,1
     4769   01 00C97    6AF004FD              BAL,15   ZBTH
     4770   01 00C98    55D20E36              STH,13   TEXT08+6,1        STORE IOP-DEVICE ADDRESS
     4771   01 00C99    25D00270 A            SCS,13   -16
     4772   01 00C9A    75D20E36              STB,13   TEXT08+6,1        STORE IOP-DEVICE ADDRESS
     4773                            *
     4774                            *                 FORMAT 'SUB-TEST NUMBER' MESSAGE
     4775                            *
     4776   01 00C9B    32C00CD6              LW,12    SUBTEST           FETCH SUB-TEST NUMBER
     4777   01 00C9C    6AF004E8              BAL,15   ZBTD              CONVERT TO DECIMAL
     4778   01 00C9D    6AF004FD              BAL,15   ZBTH              CONVERT TO EBCDIC
     4779   01 00C9E    55D00E3D              STH,13   TEXT09+4          STORE SUB-TEST NUMBER
     4780                            *
     4781                            *                 OUTPUT MESSAGES
     4782         0000000A           COUNT    EQU      10
     4783                            EXITROUT ;
     4784   01 00C9F    2240F3C0 A            LI,4     X'F3C0'            LOAD BITS TO DISARM CLOCKS
     4785   01 00CA0    330006A1              MTW,0    AUTOFLAG
     4786   01 00CA1    68300CA3              BEZ      %+2                IF AUTO DISARM FOLLOWING INTERRUPTS
     4787   01 00CA2    2240F3E0 A            LI,4     X'F3E0'           CLOCKS AND
     4788   01 00CA3    6D401100 A            WD,4     X'1100'            I/O
     4789   01 00CA4    22400010 A            LI,4     X'10'
     4790   01 00CA5    6D401200 A            WD,4     X'1200'
     4791   01 00CA6    6D000035 A            WD,0     X'35'             INHIBIT CLOCK AND EXTERNAL INTERRUPT
     4792   01 00CA7    6D000022 A            WD,0     X'22'             ALOW CONSOLE INTERRUPTS
     4793   01 00CA8    330006A1              MTW,0    AUTOFLAG          TEST AUTOFLAG
     4794   01 00CA9    68300CAC              BEZ      EXITROT           IF SET DO DELAY
     4795   01 00CAA    324012C1              LW,4     L(1000000)        LOAD 1.5 SECOND DELAY
     4796   01 00CAB    64400CAB              BDR,4    %                 DELAY
     4797                            EXITROT ;
     4798   01 00CAC    52420612              LH,4     ZTWLPA,1          FETCH OUTPUT DEVICE'S ADDRESS
     4799   01 00CAD    CDC00004 A            TIO,12   *4                TEST FOR BUSY
     4800   01 00CAE    69C00CAC              BCS,12   %-2
     4801   01 00CAF    224FFFF6 A            LI,4     -COUNT            LOAD NUMBER OF FLAGS TO BE TESTED
     4802   01 00CB0    2590047F A   TESTFLAG SAS,9    -1                FETCH NEW FLAG
     4803   01 00CB1    45100009 A            CS,1     9                 FETCH NEW FLAG
     4804   01 00CB2    69300CB6              BNE      %+4               TEST FLAG
     4805   01 00CB3    67080CC5              EXU      MESSAGEADDRESS+COUNT,4
     4806   01 00CB4    67080CCF              EXU      MESSAGELEVEL+COUNT,4
     4807   01 00CB5    6AF005CA              BAL,15   ZTWLP             GO TO OUTPUT ROUTINE IN DCP
     4808   01 00CB6    65400CB0              BIR,4    TESTFLAG          IF MORE FLAGS,GO AND FETCH THEM
     4809   01 00CB7    22A00000 A            LI,10    0                 LOAD ZERO
     4810   01 00CB8    35A006A1              STW,10   AUTOFLAG          RESET THE AUTOFLAG
     4811   01 00CB9    35A00D25              STW,10   WATCHFLG          RESET THE WATCHDOG TIMER TRAP FLAG
     4812   01 00CBA    E8000D1C              B        *RETURN           RETURN TO DCP
     4813                            *
     4814                            *
     4815                            MESSAGEADDRESS ;
     4816   01 00CBB    B2C00D21              LW,12    *MESSAGE
     4817   01 00CBC    32C00E38              LW,12    MW09
     4818   01 00CBD    32C00E43              LW,12    MW10
     4819   01 00CBE    32C00E44              LW,12    MW11
     4820   01 00CBF    32C00E19              LW,12    MW05
     4821   01 00CC0    32C00E12              LW,12    MW04
     4822   01 00CC1    32C00E2F              LW,12    MW08
     4823   01 00CC2    32C00E27              LW,12    MW07
     4824   01 00CC3    32C00E20              LW,12    MW06
     4825   01 00CC4    32C00000 A   MESUCCES LW,12    0
     4826                            *
     4827                            *
     4828                            MESSAGELEVEL ;
     4829   01 00CC5    022000D0 A            LCI      13
     4830   01 00CC6    022000D0 A            LCI      13
     4831   01 00CC7    022000D0 A            LCI      13
     4832   01 00CC8    022000D0 A            LCI      13
     4833   01 00CC9    022000E0 A            LCI      14
     4834   01 00CCA    022000E0 A            LCI      14
     4835   01 00CCB    022000E0 A            LCI      14
     4836   01 00CCC    022000E0 A            LCI      14
     4837   01 00CCD    022000F0 A            LCI      15
     4838   01 00CCE    022000F0 A            LCI      15
     4839                            *
     4840                            *                 DELAY PROGRAM THAT IS LOADED INTO FAST MEMORY
     4841                            *
     4842                                     BOUND    8
     4843   01 00CD0    CD000D1B     DLAYTIO  TIO,0    *IOPDEVCE         TEST LOCAL CIU FOR BUSY
     4844   01 00CD1    E8C0000F A            BCR,12   *15               IF NOT BUSY RETURN
     4845   01 00CD2    64400006 A   DLAYPROG BDR,4    6                 DECREMENT DELAY COUNTER
     4846   01 00CD3    E800000F A            B        *15               IF DELAY COUNTER EQUAL ZERO RETURN
     4847                            *
     4848                            *
     4849                            *                 WORKING STORAGE DATA TABLE
     4850                            *
     4851                            *
     4852                                     BOUND    8
     4853   01 00CD4    00000000 A   IOPCIUA  DATA     0
     4854   01 00CD5    00000000 A   IOPCIUB  DATA     0
     4855                            *
     4856   01 00CD6    00000000 A   SUBTEST  DATA     0
     4857   01 00CD7    00000000 A   TOTALTST DATA     0
     4858                            *
     4859   01 00CD8    00000000 A   INITA    DATA     0
     4860   01 00CD9    00000000 A   INITB    DATA     0
     4861                            *
     4862   01 00CDA    00000000 A   RESPA    DATA     0
     4863   01 00CDB    00000000 A   RESPB    DATA     0
     4864                            *
     4865                            *
     4866   01 00CDC    00000000 A   IOPDEVA  DATA     0                 CIUA'S IOP-DEVICE ADDRESS
     4867   01 00CDD    00000000 A   IOPDEVB  DATA     0                 CIUB'S IOP-DEVICE ADDRESS
     4868                            *
     4869   01 00CDE    00000000 A   EXPTCOND DATA     0                 TEMPORARY STORAGE FOR EXP COND
     4870   01 00CDF    00000000 A   EXPTCON2 DATA     0
     4871                            *
     4872   01 00CE0    00000000 A   IOPBYTE DATA      0
     4873   01 00CE1    00000000 A   IOPBYTE2 DATA     0
     4874                            *
     4875   01 00CE2    00000000 A   CIUNO    DATA     0
     4876   01 00CE3    00000000 A   INOCCUR  DATA     0
     4877   01 00CE4    00000000 A   TOTALCIU DATA     0
     4878   01 00CE5    00000000 A   TOTALRPD DATA     0
     4879                                     BOUND    8
     4880   01 00CE6                 SAVEREGS RES      16
     4881   01 00CF6                 SAVERTER RES      16
     4882   01 00D06                 TESTLOC  RES      16
     4883   01 00D16    00000000 A   WORK1    DATA     0
     4884   01 00D17    00000000 A   WORK2    DATA     0
     4885   01 00D18    00000000 A   WORK3    DATA     0
     4886   01 00D19    00000000 A   WORK4    DATA     0
     4887   01 00D1A    00000000 A   COUNTPAS DATA     0
     4888   01 00D1B    00000000 A   IOPDEVCE DATA     0                 CURRENT DEVICE ADDRESS
     4889   01 00D1C    00000000 A   RETURN   DATA     0                 RETURN ADDRESS TO DCP
     4890   01 00D1D    00000000 A   IOPOINT  DATA     0                 POINTER FOR DETERMINING LAST DEV ADR
     4891   01 00D1E    00000000 A   POINTER  DATA     0                 BYTE COUNT WORD POINTER
     4892   01 00D1F    00000000 A   READFLAG DATA     0                 LAST SIO WAS A READ =1, WRITE=0
     4893   01 00D20    00000000 A   BYTCOUNT DATA     0                 NO. OF BYTES XFERRED SINCE LAST SIO
     4894   01 00D21    00000000 A   MESSAGE  DATA     0                 STARTING ADDRESS FOR TITLE MESSAGE
     4895   01 00D22    00000000 A   RECVLINE DATA     0                 RECEIVED STATE OF LINE 'BIT 0'
     4896   01 00D23    00000000 A   EXPTLINE DATA     0                 EXPECTED STATE OF LINE 'BIT 0'
     4897   01 00D24    00000000 A   RECVCOND DATA     0                 RECEIVED COND; STATUS,CONDC,BC,LN ST
     4898   01 00D25    00000000 A   WATCHFLG DATA     0
     4899   01 00D26    00000000 A   TIME     DATA     0
     4900   01 00D27    00000000 A   FLAGTABL DATA     0
     4901   01 00D28    00000000 A   RECVWORD DATA     0
     4902   01 00D29    00000000 A   TEMPATTN DATA     0
     4903   01 00D2A    00000000 A   NUMBYTES DATA     0
     4904   01 00D2B    00000514 A   DELAYPR  DATA     1300              520 MS DELAY
     4905         01 006A1           AUTOFLAG EQU      P10
     4906                            ERRORSTATUSXPSD ;
     4907   01 00D2C    0F000C1C              XPSD,0   ERRORSTATUSREPORTER
     4908   01 00D2D    0F000764     REALXPSD XPSD,0   REALREPT
     4909   01 00D2E    0F000A9C     XPSD01   XPSD,0   AUTO3IN1
     4910   01 00D2F    0F000AE6     XPSD02   XPSD,0   AUTO3I21
     4911   01 00D30    0F000716     XPSDCONS XPSD,0   CONSOLE
     4912   01 00D31    0F0007F6     XPSDAIO  XPSD,0   AIOINTRT
     4913   01 00D32    0F000BAA     XPSDWDTT XPSD,0   WDTTRAP
     4914                            *
     4915                            *
     4916                            *
     4917                            DATABLE1 ;
     4918   01 00D33    220006BC              LI,0     DA(AUTO3DR3)
     4919   01 00D34    220006BD              LI,0     DA(AUTO3DR4)
     4920   01 00D35    220006BE              LI,0     DA(AUTO3DR5)
     4921   01 00D36    220006BF              LI,0     DA(AUTO3DR6)
     4922   01 00D37    220006C0              LI,0     DA(AUTO3DR7)
     4923                            *
     4924                            *
     4925                            *
     4926                            DATABLE2 ;
     4927   01 00D38    220006C1              LI,0     DA(AUTO3DW3)
     4928   01 00D39    220006C2              LI,0     DA(AUTO3DW4)
     4929   01 00D3A    220006C3              LI,0     DA(AUTO3DW5)
     4930   01 00D3B    220006C4              LI,0     DA(AUTO3DW6)
     4931   01 00D3C    220006C5              LI,0     DA(AUTO3DW7)
     4932                            *
     4933                            *                 THIS PROCEDURE GENERATES AN I/O COMMAND
     4934                            *                 DOUBLEWORD
     4935                            *
     4936                            *
     4937         00000000           CDWORD   CNAME
     4938                                     PROC
     4939                                     BOUND    8
     4940                            LF       GEN,8,24,8,24 AF(1),AF(2),AF(3),AF(4)
     4941                                     PEND
     4942                            *
     4943                            CDW ;
     4944   01 00D3E    00000000 A             CDWORD  0,0,0,0
                        00000000
     4945                            *
     4946                            ONE04 ;
     4947   01 00D40    00004288 N            CDWORD   X'00',BA(RPATTERN),X'04',16
                        04000010
     4948                            *
     4949                            ONE11 ;
     4950   01 00D42    79003A88 N            CDWORD   X'79',BA(XPATTERN),X'04',16
                        04000010
     4951                            *
     4952                            ONE18 ;
     4953   01 00D44    02004288 N            CDWORD   X'02',BA(RPATTERN),X'04',16
                        04000010
     4954                            *
     4955                            ONE21 ;
     4956   01 00D46    01003A88 N            CDWORD   X'01',BA(XPATTERN),X'04',16
                        04000010
     4957                            *
     4958                            ONE24 ;
     4959   01 00D48    3E004288 N            CDWORD   X'3E',BA(RPATTERN),0,16
                        00000010
     4960                            *
     4961                            ONE26 ;
     4962   01 00D4A    40004288 N            CDWORD   X'40',BA(RPATTERN),X'04',16
                        04000010
     4963                            *
     4964                            ONE30 ;
     4965   01 00D4C    01003A88 N            CDWORD   X'01',BA(XPATTERN),X'00',16
                        00000010
     4966                            *
     4967                            ONE32 ;
     4968   01 00D4E    41003A88 N            CDWORD   X'41',BA(XPATTERN),X'04',16
                        04000010
     4969                            *
     4970                            ONE35 ;
     4971   01 00D50    02004288 N            CDWORD   X'02',BA(RPATTERN),0,16
                        00000010
     4972                            *
     4973                            ONE36 ;
     4974   01 00D52    02004288 N            CDWORD   X'02',BA(RPATTERN),0,16
                        00000010
     4975                            *
     4976                            ONE38 ;
     4977   01 00D54    41004A88 N            CDWORD   X'41',BA(WPATTERN),0,16
                        00000010
     4978                            *
     4979                            ONE40 ;
     4980   01 00D56    01003A88 N            CDWORD   X'01',BA(XPATTERN),0,16
                        00000010
     4981                            *
     4982                            ONE42 ;
     4983   01 00D58    40004288 N            CDWORD   X'40',BA(RPATTERN),0,16
                        00000010
     4984                            *
     4985                            ONE53 ;
     4986   01 00D5A    01003A88 N            CDWORD   X'01',BA(XPATTERN),0,16
                        00000010
     4987                            *
     4988                            ONE5XA ;
     4989   01 00D5C    41004A88 N            CDWORD   X'41',BA(WPATTERN),0,16
                        00000010
     4990                            *
     4991                            ONE55 ;
     4992   01 00D5E    40004288 N            CDWORD   X'40',BA(RPATTERN),8,16
                        08000010
     4993                            *
     4994                            ONE60 ;
     4995   01 00D60    02004288 N            CDWORD   X'02',BA(RPATTERN),0,16
                        00000010
     4996                            *
     4997                            ONE62 ;
     4998   01 00D62    41003A88 N            CDWORD   X'41',BA(XPATTERN),0,18
                        00000012
     4999                            *
     5000                            ONE64 ;
     5001   01 00D64    02004288 N            CDWORD   X'02',BA(RPATTERN),0,16
                        00000010
     5002                            *
     5003                            ONE66 ;
     5004   01 00D66    41003A88 N            CDWORD   X'41',BA(XPATTERN),0,16
                        00000010
     5005                            *
     5006                            ONE67 ;
     5007   01 00D68    01003A88 N            CDWORD   X'01',BA(XPATTERN),X'00',16
                        00000010
     5008                            *
     5009                            *
     5010                            ONE69 ;
     5011   01 00D6A    42004288 N            CDWORD   X'42',BA(RPATTERN),X'0C',8
                        0C000008
     5012                            *
     5013                            ONE74 ;
     5014   01 00D6C    02004288 N            CDWORD   X'02',BA(RPATTERN),X'00',16
                        00000010
     5015                            *
     5016                            ONE76 ;
     5017   01 00D6E    41003A88 N            CDWORD   X'41',BA(XPATTERN),X'0C',8
                        0C000008
     5018                            *
     5019                            *
     5020   01 00D70    01003A88 N   TWO04    CDWORD   X'01',BA(XPATTERN),0,2048
                        00000800
     5021                            *
     5022   01 00D72    02004288 N   TWO05    CDWORD   X'02',BA(RPATTERN),0,2048
                        00000800
     5023                            *
     5024                            TWO21 ;
     5025   01 00D74    02004288 N            CDWORD   X'02',BA(RPATTERN),8,2048
                        08000800
     5026                            *
     5027                            AUTO3DA1 ;
     5028   01 00D76    01003A88 N            CDWORD   1,BA(XPATTERN),X'04',2
                        04000002
     5029                            *
     5030                            AUTO3DR3 ;
     5031   01 00D78    02004288 N            CDWORD   X'02',BA(RPATTERN),0,2048
                        00000800
     5032                            *
     5033                            AUTO3DR4 ;
     5034   01 00D7A    02004288 N            CDWORD   X'02',BA(RPATTERN),X'08',2048
                        08000800
     5035                            *
     5036                            AUTO3DR5 ;
     5037   01 00D7C    02004288 N            CDWORD   X'02',BA(RPATTERN),0,2046
                        000007FE
     5038                            *
     5039                            AUTO3DR6 ;
     5040   01 00D7E    02004288 N            CDWORD   X'02',BA(RPATTERN),0,2048
                        00000800
     5041                            *
     5042                            AUTO3DR7 ;
     5043   01 00D80    02004288 N            CDWORD   X'02',BA(RPATTERN),0,2048
                        00000800
     5044                            *
     5045                            AUTO3DW3 ;
     5046   01 00D82    41003A88 N            CDWORD   X'41',BA(XPATTERN),0,2048
                        00000800
     5047                            *
     5048                            AUTO3DW4 ;
     5049   01 00D84    41003A88 N            CDWORD   X'41',BA(XPATTERN),0,2048
                        00000800
     5050                            *
     5051                            AUTO3DW5 ;
     5052   01 00D86    41003A88 N            CDWORD   X'41',BA(XPATTERN),0,2048
                        00000800
     5053                            *
     5054                            AUTO3DW6 ;
     5055   01 00D88    41003A88 N            CDWORD   X'41',BA(XPATTERN),0,2046
                        000007FE
     5056                            *
     5057                            AUTO3DW7 ;
     5058   01 00D8A    41003A88 N            CDWORD   X'41',BA(XPATTERN),0,2048
                        00000800
     5059                            *
     5060                            *
     5061                            *
     5062                            *
     5063                            *
     5064                            *                 THIS PROCEDURE IS USED TO GENERATE THE WORD
     5065                            *                 THAT CONTAINS THE EXPECTED; STATUS,
     5066                            *                 CONDITION CODE, LINE STATUS AND BYTE COUNT.
     5067                            *
     5068                            *
     5069         00000000           IOSTATUS CNAME    0
     5070                                     PROC
     5071                                     BOUND    8
     5072                            LF       GEN,8,2,6,1,15 AF(1),AF(2),0,AF(3),AF(4)
     5073                                     PEND
     5074                            *
     5075                            *
     5076                            *
     5077                            *
     5078                            *
     5079         00000000           IOFLAGS  CNAME
     5080                                     PROC
     5081                                     OPEN     I,N,P,Q
     5082                            Q        SET      0
     5083                            I        DO       NUM(AF)-1
     5084                            N        SET      SCOR(AF(I+1),BYTECNT,CONDCODE,STATUS,;
     5085                                              FLIP,TITLE,ERROR01,ERROR02,ERROR03,STATUSE,STATUSR,;
     5086                                              IOPADDR,BYTECER,BYTEXFER)
     5087                                     ERROR,1,N=0  'BAD FLAG NAME'
     5088                            P        SET      1**(N-1)
     5089                            Q        SET      Q+P
     5090                                     FIN
     5091                            LF       GEN,16,16  AF(1),Q
     5092                                     CLOSE    I,N,P,Q
     5093                                     PEND
     5094                            *
     5095                            *
     5096                            *
     5097                            *
     5098                            *
     5099                            FLGTAB00 ;
     5100   01 00D8C    00000000 A            IOSTATUS 0,0,0,0
     5101   01 00D8D    FFC00214 A            IOFLAGS  X'FFC0',STATUS,TITLE,STATUSR
     5102                            *
     5103                            FLGTAB01 ;
     5104   01 00D8E    00000000 A            IOSTATUS 0,0,0,0
     5105   01 00D8F    FFC00214 A             IOFLAGS X'FFC0',STATUS,TITLE,STATUSR
     5106                            *
     5107                            FLGTAB02 ;
     5108   01 00D90    00000000 A            IOSTATUS 0,0,0,0
     5109   01 00D91    FFC00614 A             IOFLAGS X'FFC0',STATUS,TITLE,STATUSR,IOPADDR
     5110                            FLGTAB04 ;
     5111   01 00D92    00000000 A            IOSTATUS 0,0,0,0
     5112   01 00D93    FFC01214 A            IOFLAGS  X'FFC0',STATUS,TITLE,STATUSR,BYTEXFER
     5113                            *
     5114                            FLGTAB05 ;
     5115   01 00D94    00000000 A            IOSTATUS 0,0,0,0
     5116   01 00D95    00000000 A            IOFLAGS  X'00'
     5117                            *
     5118                            TONEPA01 ;
     5119   01 00D96    00000000 A            IOSTATUS X'00',0,0,0
     5120   01 00D97    00800352 A            IOFLAGS  X'0080',CONDCODE,TITLE,ERROR02,STATUSE,STATUSR
     5121                            *
     5122                            TONEPA02 ;
     5123   01 00D98    10000000 A            IOSTATUS X'10',0,0,0
     5124   01 00D99    FFC00356 A            IOFLAGS  X'FFC0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5125                            *
     5126                            TONEPA03 ;
     5127   01 00D9A    00400000 A            IOSTATUS X'0',1,0,0
     5128   01 00D9B    F0C00356 A            IOFLAGS  X'F0C0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5129                            *
     5130                            TONEPA05 ;
     5131   01 00D9C    98400000 A            IOSTATUS X'98',1,0,0
     5132   01 00D9D    FFC00356 A            IOFLAGS  X'FFC0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5133                            *
     5134                            TONEPA06 ;
     5135   01 00D9E    20400000 A            IOSTATUS X'20',1,0,0
     5136   01 00D9F    F0C00356 A            IOFLAGS  X'F0C0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5137                            *
     5138                            TONEPA08 ;
     5139   01 00DA0    18000000 A            IOSTATUS X'18',0,0,0
     5140   01 00DA1    FFC00356 A            IOFLAGS  X'FFC0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5141                            *
     5142                            TONEPA12 ;
     5143   01 00DA2    98400000 A            IOSTATUS X'98',1,0,0
     5144   01 00DA3    FFC00356 A            IOFLAGS  X'FFC0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5145                            *
     5146                            TONEPA13 ;
     5147   01 00DA4    20400000 A            IOSTATUS X'20',1,0,0
     5148   01 00DA5    F0C00356 A            IOFLAGS  X'F0C0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5149                            *
     5150                            TONEPA20 ;
     5151   01 00DA6    40400000 A            IOSTATUS X'40',1,0,0
     5152   01 00DA7    FFC00356 A            IOFLAGS  X'FFC0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5153                            *
     5154                            TONEPA22 ;
     5155   01 00DA8    18000000 A            IOSTATUS X'18',0,0,0
     5156   01 00DA9    FFC00356 A            IOFLAGS  X'FFC0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5157                            *
     5158                            TONEPA23 ;
     5159   01 00DAA    98000000 A            IOSTATUS X'98',0,0,0
     5160   01 00DAB    FFC00356 A            IOFLAGS  X'FFC0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5161                            *
     5162                            TONEPA25 ;
     5163   01 00DAC    4E000000 A            IOSTATUS X'4E',0,0,0
     5164   01 00DAD    FFC00356 A            IOFLAGS  X'FFC0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5165                            *
     5166                            TONEPA28 ;
     5167   01 00DAE    2E400000 A            IOSTATUS X'2E',1,0,0
     5168                            *
     5169   01 00DAF    FFC00356 A            IOFLAGS  X'FFC0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5170                            *
     5171                            TONEPA29 ;
     5172   01 00DB0    18000000 A            IOSTATUS X'18',0,0,0
     5173   01 00DB1    FFC00356 A            IOFLAGS  X'FFC0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5174                            *
     5175                            TONEPA31 ;
     5176   01 00DB2    41000000 A            IOSTATUS X'41',0,0,0
     5177   01 00DB3    FFC00356 A            IOFLAGS  X'FFC0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5178                            *
     5179                            TONEPA33 ;
     5180   01 00DB4    21400010 A            IOSTATUS X'21',1,0,16
     5181   01 00DB5    FFC00356 A            IOFLAGS  X'FFC0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5182                            *
     5183                            TONEPA36 ;
     5184   01 00DB6    96400000 A            IOSTATUS X'96',1,0,0
     5185   01 00DB7    FFC00356 A            IOFLAGS  X'FFC0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5186                            *
     5187                            TONEPA37 ;
     5188   01 00DB8    40000000 A            IOSTATUS X'40',0,0,0
     5189   01 00DB9    FFC00356 A            IOFLAGS  X'FFC0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5190                            *
     5191                            TONEPA42 ;
     5192   01 00DBA    10000010 A            IOSTATUS X'10',0,0,16
     5193   01 00DBB    FFC00B51 A            IOFLAGS  X'FFC0',BYTECNT,TITLE,ERROR02,STATUSE,STATUSR,BYTECER
     5194                            *
     5195                            TONEPA44 ;
     5196   01 00DBC    00000000 A            IOSTATUS X'00',0,0,0
     5197   01 00DBD    FFC00038 A            IOFLAGS  X'FFC0',FLIP,TITLE,ERROR01
     5198                            *
     5199                            TONEPA55 ;
     5200   01 00DBE    00000000 A            IOSTATUS 0,0,0,0
     5201   01 00DBF    00000000 A            IOFLAGS  0
     5202                            TONEPA56 ;
     5203   01 00DC0    10000000 A            IOSTATUS X'10',0,0,0
     5204   01 00DC1    77C00356 A            IOFLAGS  X'77C0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5205                            *
     5206                            TONEPA57 ;
     5207   01 00DC2    01400000 A            IOSTATUS X'01',1,0,0
     5208   01 00DC3    EFC00356 A            IOFLAGS  X'EFC0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5209                            *
     5210                            TONEPA63 ;
     5211   01 00DC4    16400010 A            IOSTATUS X'16',1,0,16
     5212                                     IOFLAGS  X'FFC0',BYTECNT,CONDCODE,STATUS,TITLE,ERROR02,;
     5213   01 00DC5    FFC00B57 A                     STATUSR,STATUSE,BYTECER
     5214                            *
     5215                            TONEPA70 ;
     5216   01 00DC6    98400008 A            IOSTATUS X'98',1,0,8
     5217                                     IOFLAGS  X'FFC0',BYTECNT,CONDCODE,STATUS,TITLE,ERROR02,;
     5218   01 00DC7    FFC00B57 A                     STATUSE,STATUSR,BYTECER
     5219                            *
     5220                            *
     5221                            TONEPA71 ;
     5222   01 00DC8    11400000 A            IOSTATUS X'11',1,0,0
     5223   01 00DC9    FFC00356 A            IOFLAGS  X'FFC0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5224                            *
     5225                            TONEPA77 ;
     5226   01 00DCA    10400000 A            IOSTATUS X'10',1,0,0
     5227   01 00DCB    FFC00356 A            IOFLAGS  X'FFC0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5228                            *
     5229                            TTWOPA01 ;
     5230   01 00DCC    10000000 A            IOSTATUS X'10',0,0,0
     5231   01 00DCD    11800356 A            IOFLAGS  X'1180',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5232                            *
     5233   01 00DCE    10000000 A   TTWOPA02 IOSTATUS X'10',0,0,0
     5234   01 00DCF    1FC00356 A            IOFLAGS  X'1FC0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5235                            *
     5236   01 00DD0    10000000 A   TTWOPA03 IOSTATUS X'10',0,0,0
     5237   01 00DD1    FFC00356 A            IOFLAGS  X'FFC0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5238                            *
     5239                            TTWOPA05 ;
     5240   01 00DD2    76400000 A            IOSTATUS X'76',1,0,0
     5241                                     IOFLAGS  X'FFC0',CONDCODE,STATUS,TITLE,ERROR02,;
     5242   01 00DD3    FFC00356 A                     STATUSE,STATUSR
     5243                            *
     5244   01 00DD4    10000800 A   TTWOPA07 IOSTATUS X'10',0,0,2048
     5245   01 00DD5    FFC00851 A            IOFLAGS  X'FFC0',BYTECNT,TITLE,ERROR02,BYTECER
     5246                            *
     5247                            TTWOPA08 ;
     5248   01 00DD6    10000000 A            IOSTATUS X'10',0,0,0
     5249   01 00DD7    F0C00356 A            IOFLAGS  X'F0C0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5250                            *
     5251   01 00DD8    01000800 A   TTWOPA10 IOSTATUS X'01',0,0,2048
     5252   01 00DD9    FFC00851 A            IOFLAGS  X'FFC0',BYTECNT,TITLE,ERROR02,BYTECER
     5253                            *
     5254   01 00DDA    01000800 A   TTWOPA11 IOSTATUS X'01',0,0,2048
     5255   01 00DDB    FFC00038 A            IOFLAGS  X'FFC0',FLIP,TITLE,ERROR01
     5256                            *
     5257                            *
     5258                            AUTOPA01 ;
     5259   01 00DDC    10000000 A            IOSTATUS X'10',0,0,0
     5260   01 00DDD    10800356 A            IOFLAGS  X'1080',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5261                            *
     5262   01 00DDE    00000000 A   AUTOPA02 IOSTATUS X'00',0,0,0
     5263   01 00DDF    00C00352 A            IOFLAGS  X'00C0',CONDCODE,TITLE,ERROR02,STATUSE,STATUSR
     5264                            *
     5265                            AUTOPA03 ;
     5266   01 00DE0    10000000 A            IOSTATUS X'10',0,0,0
     5267   01 00DE1    76C00356 A            IOFLAGS  X'76C0',CONDCODE,STATUS,TITLE,ERROR02,STATUSE,STATUSR
     5268                            *
     5269   01 00DE2    00000000 A   AUTOPA04 IOSTATUS X'00',0,0,0
     5270   01 00DE3    00C00352 A            IOFLAGS  X'00C0',CONDCODE,TITLE,ERROR02,STATUSE,STATUSR
     5271                            *
     5272   01 00DE4    00000800 A   AUTOPA05 IOSTATUS X'00',0,0,2048
     5273   01 00DE5    00800352 A            IOFLAGS  X'0080',CONDCODE,TITLE,ERROR02,STATUSE,STATUSR
     5274                            *
     5275   01 00DE6    00000000 A   AUTOPA06 IOSTATUS X'00',0,0,0
     5276   01 00DE7    00000338 A            IOFLAGS  X'0000',FLIP,TITLE,ERROR01,STATUSE,STATUSR
     5277                            *
     5278                            AUTOPA07 ;
     5279   01 00DE8    00000000 A            IOSTATUS X'00',0,0,0
     5280   01 00DE9    00C00352 A            IOFLAGS  X'00C0',CONDCODE,TITLE,ERROR02,STATUSE,STATUSR
     5281                            *
     5282   01 00DEA    00000000 A   AUTOPA08 IOSTATUS X'00',0,0,0
     5283   01 00DEB    00C0035A A            IOFLAGS  X'00C0',CONDCODE,FLIP,TITLE,ERROR02,STATUSE,STATUSR
     5284                            *
     5285   01 00DEC    00000800 A   AUTOPA09 IOSTATUS X'00',0,0,2048
     5286   01 00DED    00000851 A            IOFLAGS  X'0',BYTECNT,TITLE,ERROR02,BYTECER
     5287                            *
     5288   01 00DEE    00000000 A   AUTOPA10 IOSTATUS X'00',0,0,0
     5289   01 00DEF    00000038 A            IOFLAGS  X'00',FLIP,TITLE,ERROR01
     5290                            *
     5291   01 00DF0    00000000 A   AUTOPA18 IOSTATUS X'00',0,0,0
     5292   01 00DF1    F0C00356 A            IOFLAGS  X'F0C0',CONDCODE,STATUS,TITLE,ERROR02,STATUSR,STATUSE
     5293                            *
     5294   01 00DF2    00000000 A   AUTOPA19 IOSTATUS X'00',0,0,0
     5295   01 00DF3    00000038 A            IOFLAGS  X'00',FLIP,TITLE,ERROR01
     5296                            *
     5297   01 00DF4    10000000 A   AUTOPA20 IOSTATUS X'10',0,0,0
     5298   01 00DF5    F0C00356 A            IOFLAGS  X'F0C0',CONDCODE,STATUS,TITLE,ERROR02,STATUSR,STATUSE
     5299                            *
     5300   01 00DF6    10000000 A   AUTOPA21 IOSTATUS X'10',0,0,0
     5301   01 00DF7    F0C00356 A            IOFLAGS  X'F0C0',CONDCODE,STATUS,TITLE,ERROR02,STATUSR,STATUSE
     5302                            *
     5303   01 00DF8    18000000 A   AUTOPA22 IOSTATUS X'18',0,0,0
     5304   01 00DF9    FFC00356 A            IOFLAGS  X'FFC0',CONDCODE,STATUS,TITLE,ERROR02,STATUSR,STATUSE
     5305   01 00DFA    204B37EC A   MW00     ZFMW     2,0,75,BA(TEXT00) PROGRAM HEADER MESSAGE
     5306                            *
     5307                            TEXT00   TEXT     '
SIGMA 5-9 CHANNEL INTERFACE UNIT TEST
',;
     5308   01 00DFB    15E2C9C7 A                     'PROGRAM 960-0049-1A
'
            01 00DFC    D4C140F5 A
            01 00DFD    60F940C3 A
            01 00DFE    C8C1D5D5 A
            01 00DFF    C5D340C9 A
            01 00E00    D5E3C5D9 A
            01 00E01    C6C1C3C5 A
            01 00E02    40E4D5C9 A
            01 00E03    E340E3C5 A
            01 00E04    E2E315D7 A
            01 00E05    D9D6C7D9 A
            01 00E06    C1D440F9 A
            01 00E07    F6F060F0 A
            01 00E08    F0F4F960 A
            01 00E09    F1C11540 A
     5309                            *
     5310   01 00E0A    1003382C A   MW01     ZFMW     1,0,3,BA(TEXT01)
     5311   01 00E0B    40404040 A   TEXT01   TEXT     '   '
     5312                            *
     5313   01 00E0C    100B3834 A   MW02     ZFMW     1,0,11,BA(TEXT02)
     5314   01 00E0D    E3C5E2E3 A   TEXT02   TEXT     'TEST LOOP X'
            01 00E0E    40D3D6D6 A
            01 00E0F    D740E740 A
     5315                            *
     5316   01 00E10    10043844 A   MW03     ZFMW     1,0,4,BA(TEXT03)
     5317   01 00E11    C1E4E3D6 A   TEXT03   TEXT     'AUTO'
     5318                            *
     5319   01 00E12    1018384C A   MW04     ZFMW     1,0,24,BA(TEXT04)
     5320   01 00E13    E2E3C1E3 A   TEXT04   TEXT     'STATUS R=BBBB BBBB CC=BB'
            01 00E14    E4E240D9 A
            01 00E15    7EC2C2C2 A
            01 00E16    C240C2C2 A
            01 00E17    C2C240C3 A
            01 00E18    C37EC2C2 A
     5321                            *
     5322   01 00E19    10183868 A   MW05     ZFMW     1,0,24,BA(TEXT05)
     5323   01 00E1A    E2E3C1E3 A   TEXT05   TEXT     'STATUS E=BBBB BBBB CC=BB'
            01 00E1B    E4E240C5 A
            01 00E1C    7EC2C2C2 A
            01 00E1D    C240C2C2 A
            01 00E1E    C2C240C3 A
            01 00E1F    C37EC2C2 A
     5324                            *
     5325   01 00E20    10183884 A   MW06     ZFMW     1,0,24,BA(TEXT06)
     5326   01 00E21    C2E8E3C5 A   TEXT06   TEXT     'BYTES TRANSFERRED = DDDD'
            01 00E22    E240E3D9 A
            01 00E23    C1D5E2C6 A
            01 00E24    C5D9D9C5 A
            01 00E25    C4407E40 A
            01 00E26    C4C4C4C4 A
     5327                            *
     5328   01 00E27    101C38A0 A   MW07     ZFMW     1,0,28,BA(TEXT07)
     5329   01 00E28    C2E8E3C5 A   TEXT07   TEXT     'BYTE COUNT E= DDDD   R= DDDD'
            01 00E29    40C3D6E4 A
            01 00E2A    D5E340C5 A
            01 00E2B    7E40C4C4 A
            01 00E2C    C4C44040 A
            01 00E2D    40D97E40 A
            01 00E2E    C4C4C4C4 A
     5330                            *
     5331   01 00E2F    101C38C0 A   MW08     ZFMW     1,0,28,BA(TEXT08)
     5332   01 00E30    C9D6D740 A   TEXT08   TEXT     'IOP AND DEVICE ADDRESS  = XXX'
            01 00E31    C1D5C440 A
            01 00E32    C4C5E5C9 A
            01 00E33    C3C540C1 A
            01 00E34    C4C4D9C5 A
            01 00E35    E2E24040 A
            01 00E36    7E40E7E7 A
            01 00E37    E7404040 A
     5333                            *
     5334   01 00E38    102638E4 A   MW09     ZFMW     1,0,38,BA(TEXT09)
     5335   01 00E39    C5D9D9D6 A   TEXT09   TEXT     'ERROR SUB-TEST  DD  CIU= XXX  E=B  R=B'
            01 00E3A    D940E2E4 A
            01 00E3B    C260E3C5 A
            01 00E3C    E2E34040 A
            01 00E3D    C4C44040 A
            01 00E3E    C3C9E47E A
            01 00E3F    40E7E7E7 A
            01 00E40    4040C57E A
            01 00E41    C24040D9 A
            01 00E42    7EC24040 A
     5336                            *
     5337   01 00E43    101D38E4 A   MW10     ZFMW     1,0,29,BA(TEXT09)
     5338                            *
     5339   01 00E44    101238E4 A   MW11     ZFMW     1,0,18,BA(TEXT09)
     5340                            *
     5341   01 00E45    101C3918 A   MW12     ZFMW     1,0,28,BA(TEXT12)
     5342   01 00E46    D7C1E3E3 A   TEXT12   TEXT     'PATTERN RECEIVED =DDDD BYTES'
            01 00E47    C5D9D540 A
            01 00E48    D9C5C3C5 A
            01 00E49    C9E5C5C4 A
            01 00E4A    407EC4C4 A
            01 00E4B    C4C440C2 A
            01 00E4C    E8E3C5E2 A
     5343                            *
     5344   01 00E4D    10173938 A   MW13     ZFMW     1,0,23,BA(TEXT13)
     5345   01 00E4E    D9C5D4D6 A   TEXT13   TEXT     'REMOTE CIU IS NOT READY'
            01 00E4F    E3C540C3 A
            01 00E50    C9E440C9 A
            01 00E51    E240D5D6 A
            01 00E52    E340D9C5 A
            01 00E53    C1C4E840 A
     5346                            *
     5347   01 00E54    10213954 A   MW14     ZFMW     1,0,33,BA(TEXT14)
     5348   01 00E55    D9C5D4D6 A   TEXT14   TEXT     'REMOTE SYSTEM HAS ABORTED TESTING'
            01 00E56    E3C540E2 A
            01 00E57    E8E2E3C5 A
            01 00E58    D440C8C1 A
            01 00E59    E240C1C2 A
            01 00E5A    D6D9E3C5 A
            01 00E5B    C440E3C5 A
            01 00E5C    E2E3C9D5 A
            01 00E5D    C7404040 A
     5349                            *
     5350   01 00E5E    1013397C A   MW15     ZFMW     1,0,19,BA(TEXT15)
     5351   01 00E5F    E2E4C3C3 A   TEXT15   TEXT     'SUCCESS-TEST LOOP X'
            01 00E60    C5E2E260 A
            01 00E61    E3C5E2E3 A
            01 00E62    40D3D6D6 A
            01 00E63    D740E740 A
     5352                            *
     5353   01 00E64    10103994 A   MW16     ZFMW     1,0,16,BA(TEXT16)
     5354   01 00E65    E2E4C3C3 A   TEXT16   TEXT     'SUCCESS-CIU AUTO'
            01 00E66    C5E2E260 A
            01 00E67    C3C9E440 A
            01 00E68    C1E4E3D6 A
     5355                            *
     5356   01 00E69    101C39A8 A   MW17     ZFMW     1,0,28,BA(TEXT17)
     5357   01 00E6A    D7C1E3E3 A   TEXT17   TEXT     'PATTERN RECEIVED =DDDD BYTES'
            01 00E6B    C5D9D540 A
            01 00E6C    D9C5C3C5 A
            01 00E6D    C9E5C5C4 A
            01 00E6E    407EC4C4 A
            01 00E6F    C4C440C2 A
            01 00E70    E8E3C5E2 A
     5358                            *
     5359   01 00E71    104039C8 A   MW18     ZFMW     1,0,64,BA(TEXT18)
     5360   01 00E72                 TEXT18   RES      16
     5361                            *
     5362   01 00E82    202E3A0C A   MW19     ZFMW     2,0,46,BA(TEXT19)
     5363   01 00E83    E6C1E3C3 A   TEXT19   TEXT     'WATCHDOG TIMER TRAP OCCURRED AT LOCATION  XXXX'
            01 00E84    C8C4D6C7 A
            01 00E85    40E3C9D4 A
            01 00E86    C5D940E3 A
            01 00E87    D9C1D740 A
            01 00E88    D6C3C3E4 A
            01 00E89    D9D9C5C4 A
            01 00E8A    40C1E340 A
            01 00E8B    D3D6C3C1 A
            01 00E8C    E3C9D6D5 A
            01 00E8D    4040E7E7 A
            01 00E8E    E7E74040 A
     5364                            *
     5365   01 00E8F    10243A40 A   MW20     ZFMW     1,0,36,BA(TEXT20)
     5366   01 00E90    C5D9D9D6 A   TEXT20   TEXT     'ERROR: IDENTIAL IOP-DEVICE ADDRESSES'
            01 00E91    D97A40C9 A
            01 00E92    C4C5D5E3 A
            01 00E93    C9C1D340 A
            01 00E94    C9D6D760 A
            01 00E95    C4C5E5C9 A
            01 00E96    C3C540C1 A
            01 00E97    C4C4D9C5 A
            01 00E98    E2E2C5E2 A
     5367                            *
     5368                            *
     5369                            *
     5370                            *
     5371                            *
     5372                            *                 D A T A  P A T T E R N
     5373                            *
     5374                                     BOUND    8
     5375   01 00E9A    00FE00FD A   XPATTER  DATA     X'00FE00FD'
     5376   01 00E9B    00FB00F7 A            DATA     X'00FB00F7'
     5377   01 00E9C    00EF00DF A            DATA     X'00EF00DF'
     5378   01 00E9D    00BF007F A            DATA     X'00BF007F'
     5379   01 00E9E    FF01FF02 A            DATA     X'FF01FF02'
     5380   01 00E9F    FF04FF08 A            DATA     X'FF04FF08'
     5381   01 00EA0    FF10FF20 A            DATA     X'FF10FF20'
     5382   01 00EA1    FF40FF80 A            DATA     X'FF40FF80'
     5383                            *
     5384                            *                 T R A N S M I T  D A T A  T A B L E
     5385                            *
     5386                                     BOUND    8
     5387   01 00EA2                 XPATTERN RES      512
     5388                            *
     5389                            *                 R E C E I V E D  D A T A  T A B L E
     5390                            *
     5391                                     BOUND    8
     5392   01 010A2                 RPATTERN RES      512
     5393                                     BOUND    8
     5394   01 012A2                 WPATTERN RES      8
     5395         01 012AA           ZEXADR   EQU      %                 BASE TABLE ADDRESS
     5396   01 012AA    000012C2              DATA     L(ZEXADR)         BASE TABLE ADDRESS
     5397         01 0068A                    END      ZCMS              TO COMPUTE MEMORY SIZE
            01 012AB    000000FF A
            01 012AC    00000002 A
            01 012AD    7F0003FF A
            01 012AE    E4D5E4E2 A
            01 012AF    C5C44015 A
            01 012B0    E6F27E40 A
            01 012B1    0001FFFF A
            01 012B2    00001FFF A
            01 012B3    00000001 A
            01 012B4    40404040 A
            01 012B5    405C4040 A
            01 012B6    E2C9D640 A
            01 012B7    01000000 A
            01 012B8    5E00FFFF A
            01 012B9    E3C9D640 A
            01 012BA    C8C9D640 A
            01 012BB    E3C4E540 A
            01 012BC    C1C9D640 A
            01 012BD    80000000 A
            01 012BE    60000000 A
            01 012BF    F0F0F0F0 A
            01 012C0    FFC00000 A
            01 012C1    000F4240 A
            01 012C2    000012AA
            01 012C3    00003A88
            01 012C4    00004288

  CONTROL SECTION SUMMARY: 01 012C5   PT 0     02 01337   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   19:40 JUN 20,'83    SIGMA 5-9 CIU TEST 960-0049-1A 08-04-81                               PAGE    3
A  AIOINTRT        2657-DATA    2662/LPSD    4912/XPSD
   AIOTEST         2253/ZFSAT   2622-STW
   AIOTEST1        2636-LW      2816/BAL     2888/BAL     2950/BAL     3003/BAL     3034/BAL     3065/BAL
      3087/BAL     3143/BAL     3198/BAL     3277/BAL     3309/BAL     3402/BAL     3451/BAL     3490/BAL
      3527/BAL     3568/BAL     3595/BAL
   AUTO            2257/ZFSAT   3892-STW
   AUTOFLAG        2281/STW     2297/STW     2396/MTW     2411/LW      2447/MTW     2659/MTW     2736/STW
      3633/STW     3909/STW     4435/STW     4654/MTW     4683/MTW     4785/MTW     4793/MTW     4810/STW
      4905-EQU
   AUTONO          2705-FNAME   3916/LI      3933/LI      3946/LI      3972/LI      4053/LI      4153/LI
      4170/LI      4189/LI      4311/LI      4322/LI      4337/LI      4348/LI      4359/LI      4371/LI
      4383/LI
   AUTOPA01        3922/LI      5258-IOSTATUS
   AUTOPA02        3936/LI      5262-IOSTATUS
   AUTOPA03        3949/LI      5265-IOSTATUS
   AUTOPA04        3975/LI      5269-IOSTATUS
   AUTOPA05        4057/LI      5272-IOSTATUS
   AUTOPA06        4163/LI      5275-IOSTATUS
   AUTOPA07        4175/LI      5278-IOSTATUS
   AUTOPA08        4192/LI      5282-IOSTATUS
   AUTOPA09        4314/LI      5285-IOSTATUS
   AUTOPA10        4325/LI      5288-IOSTATUS
   AUTOPA18        4340/LI      5291-IOSTATUS
   AUTOPA19        4351/LI      5294-IOSTATUS
   AUTOPA20        4362/LI      5297-IOSTATUS
   AUTOPA21        4374/LI      5300-IOSTATUS
   AUTOPA22        4386/LI      5303-IOSTATUS
   AUTOTREE        3858/B       3900/B       3904-LD
   AUTO3DA1        3976/LI      5027-CDWORD
   AUTO3DR3        4917/LI      5030-CDWORD
   AUTO3DR4        4919/LI      5033-CDWORD
   AUTO3DR5        4920/LI      5036-CDWORD
   AUTO3DR6        4921/LI      5039-CDWORD
   AUTO3DR7        4922/LI      5042-CDWORD
   AUTO3DW3        4926/LI      5045-CDWORD
   AUTO3DW4        4928/LI      5048-CDWORD
   AUTO3DW5        4929/LI      5051-CDWORD
   AUTO3DW6        4930/LI      5054-CDWORD
   AUTO3DW7        4931/LI      5057-CDWORD
   AUTO3INP        4121-DATA    4226/LPSD
   AUTO3INT        4015-DATA    4076/LPSD
   AUTO3IN1        4016-DATA    4035/LPSD    4909/XPSD
   AUTO3IN2        4027-LW      4030/BDR
   AUTO3IN3        4029/BE      4038-STH
   AUTO3IN4        4041/BEZ     4053-LI
   AUTO3I21        4122-DATA    4138/MTW     4143/LPSD    4227/LPSD    4910/XPSD
   AUTO3I22        4135-CW      4137/BDR
   AUTO3I23        4136/BE      4148-STW
   AUTO3I24        4152/BEZ     4170-LI
   AUTO3I25        4184/BE      4199/BNE     4205-LI
   AUTO3I26        4211-CW      4214/BCS
   AUTO3I27        4212/BE      4215-LW
   AUTO3I29        4219-MTW
   AUTO3I30        4132/BCS     4139-LCI
   AUTO3T01        3969-LW      4008/BNEZ
   AUTO3T02        3987-LI      3993/BCS     3997/B
   AUTO3T04        4001-LI      4015/DATA
   AUTO3T05        4009/B       4082-LW
   AUTO3T06        4094-STW     4243/BEZ
   AUTO3T07        4121/DATA    4231-LI
   AUTO3T08        4109/BNE     4237-LW      4254/BNE     4267/BCS     4278/BCR     4396/B
   AUTO3T09        4239-AW      4241/BDR
   AUTO3T10        4282-MTW
   AUTO3T11        4286-CW      4289/BCS     4291/BEZ
   AUTO3T12        4287/BE      4295-LI
   AUTO3T14        4382/BNE     4391-STW
   AUTO3T15        4396-B
   BINARYTOEBCDIC  4549-LI      4696/BAL     4702/BAL     4706/BAL     4713/BAL     4746/BAL
   BINARYTOEBCDICMASKED         4547-LI      4729/BAL     4735/BAL     4739/BAL
   BYTCOUNT        2450/LW      2462/CW      4450/LW      4455/MTW     4466/CW      4624/STW     4629/LH
      4719/LH      4893-DATA
   BYTECER         5084/SET     5193/IOFLAGS 5212/IOFLAGS 5217/IOFLAGS 5245/IOFLAGS 5252/IOFLAGS
      5286/IOFLAGS
   BYTECNT         5084/SET     5193/IOFLAGS 5212/IOFLAGS 5217/IOFLAGS 5245/IOFLAGS 5252/IOFLAGS
      5286/IOFLAGS
   BYTEXFER        5084/SET     5112/IOFLAGS
   CALCEXT         4618/BCS     4623-LI
   CALCNUMB        4615-STB
   CDW             2506/STW     2512/STW     2513/STB     2515/STB     2522/STH     2523/LI
      4943-CDWORD
   CDWORD          4937-CNAME
   CIUNO           3857/STW     3898/STW     3923/LW      3937/LW      3950/LW      3967/LW      4024/LW
      4098/LW      4105/CW      4134/LW      4183/CW      4211/CW      4224/CW      4237/LW      4248/CW
      4286/CW      4875-DATA
   CODE             296-CNAME
   COMPARE         4326/BAL     4450-LW
   COMPARE1        3234/BAL     4457-LI      4471/BLE
   COMPARE2        4460-LB      4472/B
   COMPAR16        3763/BAL     4453-LI
   COMPERRO        4464/BNEZ    4475-LB
   COMPERR2        4477-SCS     4482/BIR
   CONDCODE        5084/SET     5120/IOFLAGS 5124/IOFLAGS 5128/IOFLAGS 5132/IOFLAGS 5136/IOFLAGS
      5140/IOFLAGS 5144/IOFLAGS 5148/IOFLAGS 5152/IOFLAGS 5156/IOFLAGS 5160/IOFLAGS 5164/IOFLAGS
      5169/IOFLAGS 5173/IOFLAGS 5177/IOFLAGS 5181/IOFLAGS 5185/IOFLAGS 5189/IOFLAGS 5204/IOFLAGS
      5208/IOFLAGS 5212/IOFLAGS 5217/IOFLAGS 5223/IOFLAGS 5227/IOFLAGS 5231/IOFLAGS 5234/IOFLAGS
      5237/IOFLAGS 5241/IOFLAGS 5249/IOFLAGS 5260/IOFLAGS 5263/IOFLAGS 5267/IOFLAGS 5270/IOFLAGS
      5273/IOFLAGS 5280/IOFLAGS 5283/IOFLAGS 5292/IOFLAGS 5298/IOFLAGS 5301/IOFLAGS 5304/IOFLAGS
   CONSOLE         2275-DATA    4911/XPSD
   COUNT           4782-EQU     4801/LI      4805/EXU     4806/EXU
   COUNTPAS        3907/STW     4103/MTW     4108/CW      4173/LW      4198/CW      4255/LW      4309/CW
      4320/CW      4335/CW      4346/CW      4357/CW      4369/CW      4381/CW      4887-DATA
   CRDCODES        4633/BNE     4635/BE      4641-LB
   CRDSTATS        4644/BNE     4646/BE      4652-LB
   CRDSTAT1        4656-CS
   CRDSTAT2        4655/BNEZ    4661-CS
   DATABLE1        4256/EXU     4917-LI
   DATABLE2        4174/EXU     4926-LI
   DDA             2246/ZFSAT   2360-STW
   DELAYPR         4043/LCW     4904-DATA
   DISP            2248/ZFSAT   2441-STW
   DLAYPROG        3160/LD      3187/LD      3214/LD      3288/LD      3326/LD      3357/LD      3419/LD
      3468/LD      3506/LD      3584/LD      3687/LD      3702/LD      3745/LD      3789/LD      3959/LD
      3985/LD      4002/LD      4066/LD      4089/LD      4207/LD      4232/LD      4272/LD      4297/LD
      4845-BDR
   DLAYTIO         4296/LD      4843-TIO
   DLAY00          2247/ZFSAT   2382-STW
   ERRORSTATUSREPORTER          4596-DATA    4606/LB      4687/STH     4688/LPSD    4906/XPSD
   ERRORSTATUSXPSD              2322/LW      4906-XPSD
   ERROR01         5084/SET     5197/IOFLAGS 5255/IOFLAGS 5276/IOFLAGS 5289/IOFLAGS 5295/IOFLAGS
   ERROR02         5084/SET     5120/IOFLAGS 5124/IOFLAGS 5128/IOFLAGS 5132/IOFLAGS 5136/IOFLAGS
      5140/IOFLAGS 5144/IOFLAGS 5148/IOFLAGS 5152/IOFLAGS 5156/IOFLAGS 5160/IOFLAGS 5164/IOFLAGS
      5169/IOFLAGS 5173/IOFLAGS 5177/IOFLAGS 5181/IOFLAGS 5185/IOFLAGS 5189/IOFLAGS 5193/IOFLAGS
      5204/IOFLAGS 5208/IOFLAGS 5212/IOFLAGS 5217/IOFLAGS 5223/IOFLAGS 5227/IOFLAGS 5231/IOFLAGS
      5234/IOFLAGS 5237/IOFLAGS 5241/IOFLAGS 5245/IOFLAGS 5249/IOFLAGS 5252/IOFLAGS 5260/IOFLAGS
      5263/IOFLAGS 5267/IOFLAGS 5270/IOFLAGS 5273/IOFLAGS 5280/IOFLAGS 5283/IOFLAGS 5286/IOFLAGS
      5292/IOFLAGS 5298/IOFLAGS 5301/IOFLAGS 5304/IOFLAGS
   ERROR03         5084/SET
   EXITROT         4794/BEZ     4797-LH
   EXITROUT        2417/B       3612/B       3808/B       3990/BCS     4111/B       4246/BCS     4436/B
      4783-LI
   EXPTCOND        4605/STD     4658/CB      4663/CB      4727/LW      4728/LW      4752/LH      4869-DATA
   EXPTCON2        4870-DATA
   EXPTLINE        4159/STW     4491/STW     4535/STW     4745/LW      4896-DATA
   FLAGTABL        4900-DATA
   FLGTAB00        2524/LI      2672/STB     5099-IOSTATUS
   FLGTAB01        2629/STB     2631/LI      5103-IOSTATUS
   FLGTAB02        2630/STB     2661/LI      5107-IOSTATUS
   FLGTAB04        2671/STB     2676/LI      5110-IOSTATUS
   FLGTAB05        2448/LI      5114-IOSTATUS
   FLIP            5084/SET     5197/IOFLAGS 5255/IOFLAGS 5276/IOFLAGS 5283/IOFLAGS 5289/IOFLAGS
      5295/IOFLAGS
   FLIPFLAG        4637/B       4648/B       4660/B       4664/BNE     4669-SAS
   FLIPOVER        4657/BNE     4659/BAZ     4662/BNE     4665/B       4676-SAS
   FORMAT          4684/BEZ     4694-LW
   FORMATIO        2504/BAL     2568/BAL     2587/BAL     2605/BAL     2668-STW
   FORMAT1         4671/BNE     4678/BE      4693-MTW
   GENPAT          4501-MTW     4507/BDR
   GENPATTN        3110/BAL     3268/BAL     4498-LW
   HIOTEST         2251/ZFSAT   2584-LW
   HIOTEST1        2590-HIO     2757/BAL     2836/BAL     2908/BAL     2982/BAL     3044/BAL     3097/BAL
      3248/BAL     3379/BAL     3430/BAL     3547/BAL     3605/BAL     3653/BAL     3926/BAL
   HIOTST1         3924-LW      3927/BDR
   I               5081/OPEN    5083-DO      5084/SET     5092/CLOSE
   INITA           4094/STW     4239/AW      4253/CW      4281/STW     4859-DATA
   INITB           4095/STW     4860-DATA
   INITIAL         2308-LI      2348/B
   INIT00          2130/B       2291-LI
   INIT01          2310-LI      2316/B
   INIT02          2311-LW      2315/BIR
   INOCCUR         3908/STW     4040/MTW     4048/STW     4876-DATA
   IOFLAGS         5079-CNAME
   IOPADDR         5084/SET     5109/IOFLAGS
   IOPBYTE         2293/STW     2299/STW     2543/STW     3906/STD     4263/STW     4620/LW      4872-DATA
   IOPBYTE2        4873-DATA
   IOPCIUA         2363/CW      2370/STW     2669/LW      2742/LW      3639/LW      3849/CW      3904/LD
      3910/LD      4100/LW      4135/CW      4394/LW      4853-DATA
   IOPCIUB         3856/STW     4854-DATA
   IOPDEVA         3911/STD     3924/LW      3938/LW      3951/LW      3970/LW      4027/LW      4866-DATA
   IOPDEVB         4867-DATA
   IOPDEVCE        2294/STW     2369/STW     2551/SIO*    2571/TIO*    2590/HIO*    2608/TDV*    2670/STW
      2743/STW     3640/STW     3925/STW     3939/STW     3952/STW     3971/STW     4020/LW      4034/STW
      4038/STH     4071/HIO*    4075/STW     4101/STW     4126/LW      4142/STW     4148/STW     4162/STW
      4201/HIO*    4213/TIO*    4223/STW     4266/SIO*    4277/TIO*    4288/TIO*    4395/STW     4518/TIO*
      4762/LW      4843/TIO*    4888-DATA
   IOPOINT         2295/STW     2365/LW      2368/STW     2525/LW      2744/LW      3641/LW      4176/LW
      4261/LCW     4305/LCW     4890-DATA
   IOSTATUS        5069-CNAME
   L                503/DW      2362/AND     2367/AND     2471/LW      2477/LW      2501/LW      2536/AND
      2540/AND     2565/LW      2584/LW      2603/LW      2624/LW      4151/AND     4156/LW      4290/AND
      4488/AND     4489/AND     4530/LW      4533/LW      4558/OR      4608/AND     4631/AND     4753/AND
      4795/LW      5396/DATA
   LBRXPSD         2104/LW      2144-XPSD
   LBRXPSD1        2144/XPSD    2146-RES
   LOADBYT         4622/BGZ     4624-STW
   LOADBYTE        2463/BL      2471-LW
   LOOP1           3109-MTW     3252/BNEZ
   LOOP2           3108/B       3110-BAL
   LOOP3           3267-MTW     3381/BNEZ
   LOOP4           3263/B       3268-BAL
   LRAXPSD         2109/LW      2139-XPSD
   LRAXPSD1        2139/XPSD    2141-RES
   MASKING1        4547/LI      4560-LI
   MASKING2        4562-SAS     4565/BIR
   MASKING3        4563/BOD     4565-BIR
   MESSAGE         2416/STW     2627/STW     2675/STW     2738/STW     3635/STW     3842/STW     3895/STW
      4423/STW     4815/LW*     4894-DATA
   MESSAGEADDRESS  4805/EXU     4815-LW
   MESSAGELEVEL    4806/EXU     4828-LCI
   MESUCCES        3610/STH     3806/STH     3847/STH     3897/STH     4825-LW
   MTWORD          2337-MTW     2338/LW
   MW00            2121/LW      5305-ZFMW
   MW01            2626/LI      2674/LI      5310-ZFMW
   MW02            2737/LI      3634/LI      3841/LI      5313-ZFMW
   MW03            3894/LI      5316-ZFMW
   MW04            4821/LW      5319-ZFMW
   MW05            4820/LW      5322-ZFMW
   MW06            4824/LW      5325-ZFMW
   MW07            4823/LW      5328-ZFMW
   MW08            4822/LW      5331-ZFMW
   MW09            4817/LW      5334-ZFMW
   MW10            4818/LW      5337-ZFMW
   MW11            4819/LW      5339-ZFMW
   MW12            5341-ZFMW
   MW13            3994/LW      5344-ZFMW
   MW14            2415/LI      5347-ZFMW
   MW15            3609/LI      3805/LI      3846/LI      5350-ZFMW
   MW16            3896/LI      5353-ZFMW
   MW17            2456/LW      5356-ZFMW
   MW18            2466/STB     2468/LW      5359-ZFMW
   MW19            4422/LI      5362-ZFMW
   MW20            3851/LW      5365-ZFMW
   N               5081/OPEN    5084-SET     5087/ERROR   5088/SET     5092/CLOSE
   NOP              309/LW       313-NOP
   NUMBYTES        3105/STW     3260/STW     4498/LW      4903-DATA
   ONE04           2785/LI      4946-CDWORD
   ONE11           2857/LI      4949-CDWORD
   ONE18           2929/LI      4952-CDWORD
   ONE21           2961/LI      4955-CDWORD
   ONE24           2992/LI      4958-CDWORD
   ONE26           3013/LI      4961-CDWORD
   ONE30           3054/LI      4964-CDWORD
   ONE32           3076/LI      4967-CDWORD
   ONE35           3121/LI      4970-CDWORD
   ONE36           3132/LI      4973-CDWORD
   ONE38           3153/LI      4976-CDWORD
   ONE40           3181/LI      4979-CDWORD
   ONE42           3208/LI      4982-CDWORD
   ONE5XA          3282/LI      4988-CDWORD
   ONE53           3298/LI      4985-CDWORD
   ONE55           3319/LI      4991-CDWORD
   ONE60           3271/LI      3391/LI      4994-CDWORD
   ONE62           3412/LI      4997-CDWORD
   ONE64           3440/LI      5000-CDWORD
   ONE66           3461/LI      5003-CDWORD
   ONE67           3479/LI      5006-CDWORD
   ONE69           3500/LI      5010-CDWORD
   ONE74           3557/LI      5013-CDWORD
   ONE76           3578/LI      5016-CDWORD
   P               5081/OPEN    5088-SET     5089/SET     5092/CLOSE
   PARITY          3801/BAL     4518-TIO
   PARITYTEST      3369/BAL     4516-LI
   PARITYTESTER    4352/BAL     4514-LI
   POINTER         2526/STW     2529/LW      2745/STW     3642/STW     4177/STW     4264/STW     4308/STW
      4619/LW      4891-DATA
   PX              1527/STW     1534/S*      1535/MTW     1540/S*      2182-EQU     2183/EQU
   P0               829/STW      834/LI       845/MTW      847/LI      2166-EQU     2167/EQU
   P1              1623/AND     1633/LW      1642/AND     1650/LW      1657/AND     1714/LW      1717/LW
      1729/LW*     1730/CW*     1736/LW      1745/LW*     1759/MTW     1764/MTW     1767/LW*     1782/LW
      1783/MTW     2167-EQU     2168/EQU     2361/LW      2383/LCW     2473/CW      2508/LB      2567/LB
      2586/LB      2604/LB      2628/LB      3848/LH
   P10             2176-EQU     2177/EQU     4905/EQU
   P11             2177-EQU     2178/EQU
   P12             2178-EQU     2179/EQU
   P13             2179-EQU     2180/EQU
   P14             1728/STW     1732/MTW     1761/MTW     1765/MTW     2180-EQU     2181/EQU
   P15             1649/STW     1658/BCR*    1660/B*      1697/STW     1756/B*      1928/STW     2181-EQU
      2182/EQU
   P2              1707/LW      1711/MTW     1784/CW      2168-EQU     2169/EQU     2514/LB
   P3              1699/LW      1704/STW     1712/LW      1715/SW      1716/STW     1718/SW      1737/SW
      2169-EQU     2170/EQU     2516/LH
   P4              2170-EQU     2171/EQU     2503/LB
   P5              2171-EQU     2172/EQU
   P6              2172-EQU     2173/EQU
   P7              2173-EQU     2174/EQU
   P8              2174-EQU     2175/EQU
   P9              2175-EQU     2176/EQU
   Q               5081/OPEN    5082-SET     5089-SET     5089/SET     5091/GEN     5092/CLOSE
   READFLAG        2443/MTW     2534/STW     2538/STW     2544/MTW     4300/STW     4892-DATA
   REALOUT         2412/BEZ     2417-B
   REALREPT        2407-DATA    4908/XPSD
   REALTIME        2390-LW      4046/BAL
   REALXPSD        2390/LW      4908-XPSD
   RECVCOND        4609/STW     4694/LW      4897-DATA
   RECVLINE        4157/STW     4490/STW     4536/STW     4712/LW      4895-DATA
   RECVWORD        4611/STW     4641/LB      4652/LB      4901-DATA
   REPORTER        2265-CNAME   2268/PEND
   RESETIO         4424/B       4429-LI
   RESETSW         2332/LW      2348-B
   RESPA           4096/STW     4217/STW     4240/AW      4862-DATA
   RESPB           4097/STW     4863-DATA
   RESTORE         4672/B       4679/B       4683-MTW
   RETURN          2278/STW     2318/STW     2360/STW     2364/BE*     2371/B*      2382/STW     2386/BEZ*
      2414/MTW     2441/STW     2461/LW      2467/BEZ*    2622/STW     2668/STW     2735/STW     3631/STW
      3839/STW     3892/STW     4420/MTW     4428/STW     4693/MTW     4812/B*      4889-DATA
   REV              266-CNAME
   REVADR           298/LW*      301/LH*      305/AW       306/STW      312-DATA
   REVBRNCH         310/STW      311/B       2123-EQU
   REVCOUNT         260-SET      268/DO       272-SET      272/SET      281/GEN     2124/DO
   REVEND           273/DO       327-REV
   REVHERE          262-SET      274-SET      278/ORG      279/GEN      279/GEN      285-SET      289/ORG
       290/GEN      290/GEN
   REVISION         307/MTW      312/DATA     320-REV
   REVPRINT         298-LW       308/BNEZ    2127/BAL
   REVSTART         261-SET      269-SET      280/ORG
   REVTHERE         263-SET      277-SET      279/GEN      282/ORG      288-SET      290/GEN      291/ORG
   ROWCOUNT        2460-LI      2484/B
   RPATTERN        2472/LB      2511/LW      2547/STW     4460/LB      4475/LB      4946/CDWORD
      4952/CDWORD  4958/CDWORD  4961/CDWORD  4970/CDWORD  4973/CDWORD  4982/CDWORD  4991/CDWORD
      4994/CDWORD  5000/CDWORD  5010/CDWORD  5013/CDWORD  5022/CDWORD  5024/CDWORD  5030/CDWORD
      5033/CDWORD  5036/CDWORD  5039/CDWORD  5042/CDWORD  5392-RES
   RSET            2258/ZFSAT   4427-LI
   SAVEREGS        4022/STM     4033/LM      4074/LM      4128/STM     4141/STM     4161/LM      4222/LM
      4880-RES
   SAVERTER        4602/STM     4686/LM      4768/LH      4881-RES
   SENDMESS        2464-AI      2483/BAL
   SIOTEST         2249/ZFSAT   2501-LW
   SIOTEST1        2529-LW      2786/BAL     2858/BAL     2930/BAL     2962/BAL     2993/BAL     3014/BAL
      3055/BAL     3077/BAL     3122/BAL     3133/BAL     3154/BAL     3182/BAL     3209/BAL     3272/BAL
      3283/BAL     3299/BAL     3320/BAL     3392/BAL     3413/BAL     3441/BAL     3462/BAL     3480/BAL
      3501/BAL     3558/BAL     3579/BAL     3682/BAL     3740/BAL     3784/BAL     3980/BAL     4179/BAL
   STATUS          5084/SET     5101/IOFLAGS 5105/IOFLAGS 5109/IOFLAGS 5112/IOFLAGS 5124/IOFLAGS
      5128/IOFLAGS 5132/IOFLAGS 5136/IOFLAGS 5140/IOFLAGS 5144/IOFLAGS 5148/IOFLAGS 5152/IOFLAGS
      5156/IOFLAGS 5160/IOFLAGS 5164/IOFLAGS 5169/IOFLAGS 5173/IOFLAGS 5177/IOFLAGS 5181/IOFLAGS
      5185/IOFLAGS 5189/IOFLAGS 5204/IOFLAGS 5208/IOFLAGS 5212/IOFLAGS 5217/IOFLAGS 5223/IOFLAGS
      5227/IOFLAGS 5231/IOFLAGS 5234/IOFLAGS 5237/IOFLAGS 5241/IOFLAGS 5249/IOFLAGS 5260/IOFLAGS
      5267/IOFLAGS 5292/IOFLAGS 5298/IOFLAGS 5301/IOFLAGS 5304/IOFLAGS
   STATUSE         5084/SET     5120/IOFLAGS 5124/IOFLAGS 5128/IOFLAGS 5132/IOFLAGS 5136/IOFLAGS
      5140/IOFLAGS 5144/IOFLAGS 5148/IOFLAGS 5152/IOFLAGS 5156/IOFLAGS 5160/IOFLAGS 5164/IOFLAGS
      5169/IOFLAGS 5173/IOFLAGS 5177/IOFLAGS 5181/IOFLAGS 5185/IOFLAGS 5189/IOFLAGS 5193/IOFLAGS
      5204/IOFLAGS 5208/IOFLAGS 5212/IOFLAGS 5217/IOFLAGS 5223/IOFLAGS 5227/IOFLAGS 5231/IOFLAGS
      5234/IOFLAGS 5237/IOFLAGS 5241/IOFLAGS 5249/IOFLAGS 5260/IOFLAGS 5263/IOFLAGS 5267/IOFLAGS
      5270/IOFLAGS 5273/IOFLAGS 5276/IOFLAGS 5280/IOFLAGS 5283/IOFLAGS 5292/IOFLAGS 5298/IOFLAGS
      5301/IOFLAGS 5304/IOFLAGS
   STATUSR         5084/SET     5101/IOFLAGS 5105/IOFLAGS 5109/IOFLAGS 5112/IOFLAGS 5120/IOFLAGS
      5124/IOFLAGS 5128/IOFLAGS 5132/IOFLAGS 5136/IOFLAGS 5140/IOFLAGS 5144/IOFLAGS 5148/IOFLAGS
      5152/IOFLAGS 5156/IOFLAGS 5160/IOFLAGS 5164/IOFLAGS 5169/IOFLAGS 5173/IOFLAGS 5177/IOFLAGS
      5181/IOFLAGS 5185/IOFLAGS 5189/IOFLAGS 5193/IOFLAGS 5204/IOFLAGS 5208/IOFLAGS 5212/IOFLAGS
      5217/IOFLAGS 5223/IOFLAGS 5227/IOFLAGS 5231/IOFLAGS 5234/IOFLAGS 5237/IOFLAGS 5241/IOFLAGS
      5249/IOFLAGS 5260/IOFLAGS 5263/IOFLAGS 5267/IOFLAGS 5270/IOFLAGS 5273/IOFLAGS 5276/IOFLAGS
      5280/IOFLAGS 5283/IOFLAGS 5292/IOFLAGS 5298/IOFLAGS 5301/IOFLAGS 5304/IOFLAGS
   SUBTEST         2755/STD     2764/STD     2773/STD     2783/STD     2794/STD     2804/STD     2814/STD
      2824/STD     2834/STD     2845/STD     2855/STD     2866/STD     2876/STD     2886/STD     2896/STD
      2906/STD     2916/STD     2927/STD     2938/STD     2948/STD     2959/STD     2970/STD     2980/STD
      2990/STD     3001/STD     3011/STD     3022/STD     3032/STD     3042/STD     3052/STD     3063/STD
      3074/STD     3085/STD     3095/STD     3119/STD     3130/STD     3141/STD     3151/STD     3169/STD
      3179/STD     3196/STD     3206/STD     3223/STD     3246/STD     3296/STD     3307/STD     3317/STD
      3335/STD     3350/STD     3366/STD     3377/STD     3389/STD     3400/STD     3410/STD     3428/STD
      3438/STD     3449/STD     3459/STD     3477/STD     3488/STD     3498/STD     3515/STD     3525/STD
      3535/STD     3545/STD     3555/STD     3566/STD     3576/STD     3593/STD     3603/STD     3651/STD
      3660/STD     3669/STD     3679/STD     3695/STD     3710/STD     3719/STD     3728/STD     3737/STD
      3753/STD     3781/STD     3797/STD     3918/STD     3935/STD     3948/STD     3974/STD     4056/STD
      4155/STD     4172/STD     4191/STD     4313/STD     4324/STD     4339/STD     4350/STD     4361/STD
      4373/STD     4385/STD     4486/AWM     4776/LW      4856-DATA
   TDVTEST         2252/ZFSAT   2603-LW
   TDVTEST1        2608-TDV     2775/BAL     2806/BAL     2878/BAL     2918/BAL     2972/BAL     3352/BAL
      3537/BAL     3730/BAL     3940/BAL     4341/BAL     4363/BAL     4375/BAL
   TDVTST1         3938-LW      3941/BDR
   TEMPATTN        3107/STW     3109/MTW     3262/STW     3267/MTW     4500/LW      4902-DATA
   TESTBC1         4305-LCW
   TESTBYTE        2461-LW      2482/BIR
   TESTFLAG        4802-SAS     4808/BIR
   TESTLOC         3920/STW     4023/MTW     4031/MTW     4042/MTW     4058/MTW     4072/MTW     4129/MTW
      4149/MTW     4178/MTW     4200/MTW     4219/MTW     4247/MTW     4265/MTW     4282/MTW     4393/MTW
      4882-RES
   TESTLT          4310/BNE     4320-CW
   TESTONE         2687-FNAME   2753/LI      2762/LI      2771/LI      2781/LI      2792/LI      2802/LI
      2812/LI      2822/LI      2832/LI      2843/LI      2853/LI      2864/LI      2874/LI      2884/LI
      2894/LI      2904/LI      2914/LI      2925/LI      2936/LI      2946/LI      2957/LI      2968/LI
      2978/LI      2988/LI      2999/LI      3009/LI      3020/LI      3030/LI      3040/LI      3050/LI
      3061/LI      3072/LI      3083/LI      3093/LI      3117/LI      3128/LI      3139/LI      3149/LI
      3167/LI      3177/LI      3194/LI      3204/LI      3221/LI      3244/LI      3294/LI      3305/LI
      3315/LI      3333/LI      3348/LI      3364/LI      3375/LI      3387/LI      3398/LI      3408/LI
      3426/LI      3436/LI      3447/LI      3457/LI      3475/LI      3486/LI      3496/LI      3513/LI
      3523/LI      3533/LI      3543/LI      3553/LI      3564/LI      3574/LI      3591/LI      3601/LI
   TESTPARY        4336/BNE     4346-CW
   TESTTDV1        4321/BNE     4335-CW
   TESTTDV2        4347/BNE     4357-CW
   TESTTDV3        4358/BNE     4368-LI
   TESTTIO2        4370/BNE     4380-LI
   TESTTWO         2696-FNAME   3649/LI      3658/LI      3667/LI      3677/LI      3693/LI      3708/LI
      3717/LI      3726/LI      3735/LI      3751/LI      3779/LI      3795/LI
   TEXT00          5305/ZFMW    5307-TEXT
   TEXT01          2625/STW     2673/STW     5310/ZFMW    5311-TEXT
   TEXT02          2740/STB     3637/STB     3844/STB     5313/ZFMW    5314-TEXT
   TEXT03          5316/ZFMW    5317-TEXT
   TEXT04          4697/STB     4699/STH     4701/STB     4703/STH     4705/STH     4708/STH     5319/ZFMW
      5320-TEXT
   TEXT05          4730/STB     4732/STH     4734/STB     4736/STH     4738/STH     4741/STH     5322/ZFMW
      5323-TEXT
   TEXT06          4722/STW     5325/ZFMW    5326-TEXT
   TEXT07          4723/STW     4756/STH     4758/STH     5328/ZFMW    5329-TEXT
   TEXT08          4770/STH     4772/STB     5331/ZFMW    5332-TEXT
   TEXT09          4715/STB     4748/STB     4764/STW     4779/STH     5334/ZFMW    5335-TEXT    5337/ZFMW
      5339/ZFMW
   TEXT12          5341/ZFMW    5342-TEXT
   TEXT13          5344/ZFMW    5345-TEXT
   TEXT14          5347/ZFMW    5348-TEXT
   TEXT15          2741/STB     3638/STB     3845/STB     5350/ZFMW    5351-TEXT
   TEXT16          5353/ZFMW    5354-TEXT
   TEXT17          2453/STH     2455/STH     5356/ZFMW    5357-TEXT
   TEXT18          2480/STW     5359/ZFMW    5360-RES
   TEXT19          4417/STH     4419/STH     5362/ZFMW    5363-TEXT
   TEXT20          5365/ZFMW    5366-TEXT
   TIME            2337/MTW     2385/STW     4044/STW     4899-DATA
   TIOTEST         2250/ZFSAT   2565-LW
   TIOTEST1        2449/BAL     2571-TIO     2766/BAL     2796/BAL     2826/BAL     2847/BAL     2868/BAL
      2898/BAL     2940/BAL     3024/BAL     3171/BAL     3225/BAL     3337/BAL     3517/BAL     3662/BAL
      3671/BAL     3697/BAL     3712/BAL     3721/BAL     3755/BAL     3953/BAL     4193/BAL     4315/BAL
      4387/BAL
   TIOTST2         3951-LW      3954/BDR
   TITLE           5084/SET     5101/IOFLAGS 5105/IOFLAGS 5109/IOFLAGS 5112/IOFLAGS 5120/IOFLAGS
      5124/IOFLAGS 5128/IOFLAGS 5132/IOFLAGS 5136/IOFLAGS 5140/IOFLAGS 5144/IOFLAGS 5148/IOFLAGS
      5152/IOFLAGS 5156/IOFLAGS 5160/IOFLAGS 5164/IOFLAGS 5169/IOFLAGS 5173/IOFLAGS 5177/IOFLAGS
      5181/IOFLAGS 5185/IOFLAGS 5189/IOFLAGS 5193/IOFLAGS 5197/IOFLAGS 5204/IOFLAGS 5208/IOFLAGS
      5212/IOFLAGS 5217/IOFLAGS 5223/IOFLAGS 5227/IOFLAGS 5231/IOFLAGS 5234/IOFLAGS 5237/IOFLAGS
      5241/IOFLAGS 5245/IOFLAGS 5249/IOFLAGS 5252/IOFLAGS 5255/IOFLAGS 5260/IOFLAGS 5263/IOFLAGS
      5267/IOFLAGS 5270/IOFLAGS 5273/IOFLAGS 5276/IOFLAGS 5280/IOFLAGS 5283/IOFLAGS 5286/IOFLAGS
      5289/IOFLAGS 5292/IOFLAGS 5295/IOFLAGS 5298/IOFLAGS 5301/IOFLAGS 5304/IOFLAGS
   TNAUTO          2704-SET     2707-SET     2707/SET     2708/PEND    4331-SET     4331/SET
   TNONE           2686-SET     2689-SET     2689/SET     2690/PEND    3238-SET     3238/SET
   TNTOTAL         2713-SET     2716-SET     2716/SET     2717/PEND    3239-SET     3239/SET     3772-SET
      3772/SET     4332-SET     4332/SET
   TNTWO           2695-SET     2698-SET     2698/SET     2699/PEND    3771-SET     3771/SET
   TONE            2254/ZFSAT   2735-STW
   TONEPA01        2756/LI      5118-IOSTATUS
   TONEPA02        2765/LI      2784/LI      2846/LI      2856/LI      2928/LI      2991/LI      3053/LI
      3120/LI      3180/LI      3247/LI      3297/LI      3378/LI      3390/LI      3439/LI      3478/LI
      3556/LI      5122-IOSTATUS
   TONEPA03        2774/LI      2917/LI      5126-IOSTATUS
   TONEPA05        2795/LI      5130-IOSTATUS
   TONEPA06        2805/LI      2815/LI      5134-IOSTATUS
   TONEPA08        2825/LI      2835/LI      2897/LI      2907/LI      5138-IOSTATUS
   TONEPA12        2867/LI      2939/LI      3023/LI      3131/LI      5142-IOSTATUS
   TONEPA13        2877/LI      2887/LI      2971/LI      5146-IOSTATUS
   TONEPA20        2949/LI      5150-IOSTATUS
   TONEPA22        2960/LI      3012/LI      3318/LI      3411/LI      3499/LI      3546/LI      3604/LI
      5154-IOSTATUS
   TONEPA23        2981/LI      5158-IOSTATUS
   TONEPA25        3002/LI      5162-IOSTATUS
   TONEPA28        3033/LI      5166-IOSTATUS
   TONEPA29        3043/LI      3075/LI      3096/LI      3152/LI      3207/LI      3460/LI      3577/LI
      5171-IOSTATUS
   TONEPA31        3064/LI      3197/LI      3308/LI      3489/LI      5175-IOSTATUS
   TONEPA33        3086/LI      5179-IOSTATUS
   TONEPA36        5183-IOSTATUS
   TONEPA37        3142/LI      3401/LI      3450/LI      3567/LI      5187-IOSTATUS
   TONEPA42        3170/LI      3224/LI      5191-IOSTATUS
   TONEPA44        3233/LI      3368/LI      5195-IOSTATUS
   TONEPA55        3270/LI      3276/LI      3281/LI      5199-IOSTATUS
   TONEPA56        3336/LI      5202-IOSTATUS
   TONEPA57        3351/LI      5206-IOSTATUS
   TONEPA63        3429/LI      5210-IOSTATUS
   TONEPA70        3516/LI      5215-IOSTATUS
   TONEPA71        3526/LI      3536/LI      5221-IOSTATUS
   TONEPA77        3594/LI      5225-IOSTATUS
   TOTALCIU        3968/STW     3969/LW      4007/MTW     4099/STW     4252/LW      4279/LW      4391/STW
      4877-DATA
   TOTALNUM        2714-FNAME   2754/LI      2763/LI      2772/LI      2782/LI      2793/LI      2803/LI
      2813/LI      2823/LI      2833/LI      2844/LI      2854/LI      2865/LI      2875/LI      2885/LI
      2895/LI      2905/LI      2915/LI      2926/LI      2937/LI      2947/LI      2958/LI      2969/LI
      2979/LI      2989/LI      3000/LI      3010/LI      3021/LI      3031/LI      3041/LI      3051/LI
      3062/LI      3073/LI      3084/LI      3094/LI      3118/LI      3129/LI      3140/LI      3150/LI
      3168/LI      3178/LI      3195/LI      3205/LI      3222/LI      3245/LI      3295/LI      3306/LI
      3316/LI      3334/LI      3349/LI      3365/LI      3376/LI      3388/LI      3399/LI      3409/LI
      3427/LI      3437/LI      3448/LI      3458/LI      3476/LI      3487/LI      3497/LI      3514/LI
      3524/LI      3534/LI      3544/LI      3554/LI      3565/LI      3575/LI      3592/LI      3602/LI
      3650/LI      3659/LI      3668/LI      3678/LI      3694/LI      3709/LI      3718/LI      3727/LI
      3736/LI      3752/LI      3780/LI      3796/LI      3917/LI      3934/LI      3947/LI      3973/LI
      4055/LI      4154/LI      4171/LI      4190/LI      4312/LI      4323/LI      4338/LI      4349/LI
      4360/LI      4372/LI      4384/LI
   TOTALRPD        4102/STW     4215/LW      4218/STW     4878-DATA
   TOTALTST        4487/AWM     4857-DATA
   TREE            2256/ZFSAT   3839-STW
   TTWO            2255/ZFSAT   3631-STW
   TTWOPA01        3652/LI      5229-IOSTATUS
   TTWOPA02        3661/LI      3738/LI      3782/LI      5233-IOSTATUS
   TTWOPA03        3670/LI      3680/LI      3711/LI      5236-IOSTATUS
   TTWOPA05        3696/LI      5239-IOSTATUS
   TTWOPA07        3720/LI      5244-IOSTATUS
   TTWOPA08        3729/LI      5247-IOSTATUS
   TTWOPA10        3754/LI      5251-IOSTATUS
   TTWOPA11        3760/LI      3800/LI      5254-IOSTATUS
   TWO04           3681/LI      5020-CDWORD
   TWO05           3739/LI      5022-CDWORD
   TWO21           3783/LI      5024-CDWORD
   WATCHFLG        2280/STW     2296/STW     4404/MTW     4412/MTW     4811/STW     4898-DATA
   WDTTRAP         4402-DATA    4413/LD      4415/LW      4913/XPSD
   WORK1           3103/STW     3251/MTW     3258/STW     3380/MTW     4026/STCF    4060/LC      4131/STCF
      4164/LC      4883-DATA
   WORK2           4884-DATA
   WORK3           4885-DATA
   WORK4           4886-DATA
   WPATTERN        3232/LI      3367/LI      4502/LI      4976/CDWORD  4988/CDWORD  5394-RES
   XPATTER         2311/LW      5375-DATA
   XPATTERN        2312/STW     2475/CB      2507/LW      3106/LI      3261/LI      3762/LI      3799/LI
      4452/LI      4514/LI      4949/CDWORD  4955/CDWORD  4964/CDWORD  4967/CDWORD  4979/CDWORD
      4985/CDWORD  4997/CDWORD  5003/CDWORD  5006/CDWORD  5016/CDWORD  5020/CDWORD  5027/CDWORD
      5045/CDWORD  5048/CDWORD  5051/CDWORD  5054/CDWORD  5057/CDWORD  5387-RES
   XPSDAIO         2636/LW      4912-XPSD
   XPSDCONS        2303/LW      4911-XPSD
   XPSDWDTT        2327/LW      4913-XPSD
   XPSD01          3965/LW      4909-XPSD
   XPSD02          4082/LW      4910-XPSD
   ZADCRC          1416-STW     1943/BAL
   ZADPTR           935/BAL      955/BAL      985/BAL     1081/BAL     1393-LB      1417/BAL
   ZALT            1666-STW     2242/ZFSAT
   ZALT05          1672-CW      1680/B
   ZALT10          1667/BAL     1669/BAL     1676/BAL     1681-CI
   ZAP1             228-CNAME
   ZAS              809-ZFOT
   ZASLNK           171-EQU      975/STW      986/B*
   ZASPRO           981/LW      2012/ZFST2   2013-B
   ZASTRN           809/ZFOT     975-STW
   ZASTRN10         980/BCR      985-BAL
   ZBPT1           1935/BAL     1949/BAL     1960-RD      2004/BAL
   ZBTD            1524-STW     2451/BAL     4720/BAL     4754/BAL     4777/BAL
   ZBTD10          1530-LI      1537/B
   ZBTD20          1532/BCS     1538-LW
   ZBTD30          1533/DW      1544-DATA
   ZBTH            1369/BAL     1550-STW     1558/BIR     1651/BAL     1719/BAL     1738/BAL     1746/BAL
      1768/BAL     2452/BAL     2478/BAL     4416/BAL     4721/BAL     4755/BAL     4763/BAL     4769/BAL
      4778/BAL
   ZCFR            1232-STW     1256/B       1261/BAL     1267/BAL     1282/BAL     1288/BAL     1294/BAL
      1297/BAL     1303/BAL     1306/BAL
   ZCFRCA           184-EQU     1232/STW     1235/CB*     1237/CB*     1240/CW      1248/LCW*    1249/LB*
      1252/LW*     1254/LB*
   ZCFRLNK          183-EQU     1233/STW     1236/BCS*    1238/BCS*    1245/BCS*
   ZCHAR            188-EQU      762/STW     1329/LW      1359/STW
   ZCL              812-ZFOT
   ZCLLNK           164-EQU      868/STW      876/B*
   ZCLTRN           812/ZFOT     868-STW
   ZCMS            2058-LPSD    2111/GEN     2137/DATA    2153/EQU     5397/END
   ZCMST40          366/XPSD    2058/LPSD    2106/GEN     2135-DATA
   ZCMS2           2109-LW      2147/DATA
   ZCMS3           2114-LI      2142/DATA
   ZCMS4           2108/B       2113/B       2115-STW
   ZCMS5           2119/LW      2131-XPSD
   ZCMS6           2060/SW      2132-DATA
   ZCMS7           2133-DATA
   ZCO              810-ZFOT    1124/CB
   ZCOLNK           173-EQU     1107/STW     1159/B*
   ZCONINT          460/DATA    1966-LI      2236/ZFSAT
   ZCOTRN          1077/BAL     1097/BAL     1107-STW
   ZCOTRN10        1118-LI      1138/BCR     1140/B
   ZCOTRN30        1125/BCR     1127/BCR     1132-SAS
   ZCOTRN40        1129/BCR     1135-MTW
   ZCOTRN50        1123/BCS     1141-CB
   ZCOTRN60        1147/BCR     1151-LW
   ZCRC            1430-LB
   ZCSRL           1272/STW     1277/B*      1524/STW     1538/LW      1550/STW     1561/LW      1568/STW
      1579/B*      1606-PZE     1666/STW     1673/BCS*    1683/B*      1802/STW     1804/LB      1809/BCS*
      1811/BCS*    1827/LB      1879/B*
   ZCSS             493/STCF     510/LW       596/LC       648/LC       694-DATA
   ZCTL             368/XPSD     369/XPSD     370/XPSD     371/XPSD     373/XPSD     374/XPSD     375/XPSD
       376/XPSD     377/XPSD     380/XPSD     381/XPSD     388/XPSD     389/XPSD     390/XPSD     391/XPSD
       395/XPSD     396/XPSD     397/XPSD     398/XPSD     401/XPSD     402/XPSD     462-DATA    4414/STD
   ZCTL1            464/DATA     486-STW
   ZDCP             126-EQU      329/USECT
   ZDCR            1381/LH      1617-BAL     1790/LH      2239/ZFSAT
   ZDECADER        1585-STW
   ZDKB             531/HIO*     728/LH      1342/LH      1611-BAL     1826/LW      1835/CW      2092/STW
      2095/HIO*    2238/ZFSAT
   ZDMP            1691/B       1695-LCFI    2243/ZFSAT
   ZDMPA           1723/STW     1724/STW     1725/STB     1735/STB     1742/STW     1743/STW     1744/STB
      1747/STW     1748/STW     1772/STB     1776/STB     1786/ZFMW    2183-EQU
   ZDMP10          1717-LW      1755/BCS
   ZDMP20          1729-LW      1763/BCS     1780/BCS
   ZDMP22          1736-LW      1766/BCS
   ZDMP24          1696/STCF    1750-STB     1760/B       1778/BCS     1781/B
   ZDMP30          1731/BCR     1757-CI
   ZDMP40          1733/BCR     1768-BAL
   ZDMP50          1754/BAL     1762/BAL     1779/BAL     1782-LW
   ZDMP70          1750/STB     1751/LW      1786-ZFMW
   ZDS              740/ZFMW     807-ZFOT
   ZDSFLG           191-EQU      747/STW      830/MTW      836/STW      854/STW     1068/MTW     1198/MTW
      1490/MTW     2090/STW
   ZDSLNK           181-EQU      827/STW      839/B*       843/STW      859/B*
   ZDSPTR           182-EQU      833/STW      857/LW
   ZDSSET           738/BAL      837/LI       843-STW
   ZDSSET10         846/BCR      854-STW
   ZDSTRN           733/BAL      807/ZFOT     827-STW
   ZDTB            1275/BAL     1499-XW
   ZDTB10          1501/AND     1517-DATA
   ZDTB20          1506/AND     1518-DATA
   ZEMS             613/CW      1672/CW      1701/CW      1703/LW      1709/CW      2056-DATA    2059/LW
      2061/STW     2077/LW      2081/LW
   ZEQ              813-ZFOT
   ZEQLNK           165-EQU      897/STW      916/B*
   ZEQTRN           813/ZFOT     897-STW
   ZEQTRN10         902/BCR      906/BCR      910-LI       913/BCR
   ZEQTRN20         908/BCR      914-BIR
   ZEXADR           755/LW      1203/LW      2068/AW      2102/LW      5395-EQU     5396/DATA
   ZEXPT0           832/LW       850/LW*      883/LW       886/STW*     925/STW*     930/LW       950/STW*
       978/STW*     982/STW*    1023/LW      1034/OR      1064/STW*    1065/LB*     1075/STB*    1095/STB*
      1111/LB*     1115/LH*     1155/LB*     1158/STB*    1201/STW*    1204/CW      1218/LW      1393/LB*
      1396/AW      1401/STW     1430/LB*     1442/LB*     1456/STB*    1901/LW*     1911/LB*     1936/LB*
      1950/LB*     1991/STW     2026/STW     2033/LW      2162-EQU     2163/EQU
   ZEXPT1           954/STW*    1014/STW*    1038/OR      1108/LW      1120/STW*    1134/STW*    1206/STW*
      1317/STW*    1319/LW*     1322/MTB*    1402/STW     1406/MTW     1407/LW      1433/LH*     1435/STW*
      1462/STW*    1891/LW*     1915/LH*     1917/LW      1939/MTW*    1940/LH*     1941/CH*     1984/LW*
      1990/LW*     2163-EQU     2164/EQU
   ZEX00           1226/B       1891-LW      1953/LI      1999/B       2006/B
   ZEX01           1893-BAL     1942/BCR     1944/B
   ZFA              778/BAL      900/BAL     1296-LI
   ZFAN            1305-LI
   ZFCP             199-COM
   ZFH             1167/BAL     1239/LI      1287-LI      1668/BAL     1675/BAL
   ZFMW             204-CNAME
   ZFN             1164/BAL     1266-LI      1273/BAL
   ZFNDTB           767/BAL     1165/BAL     1272-STW
   ZFNUP           1163/BAL     1260-LI
   ZFOC             873/BAL     1234/BAL     1314/BAL     1318/BAL     1328-STW
   ZFOCT           1166/BAL     1281-LI
   ZFOT             200-COM
   ZFS              799-ZFOT    1085/CB      1086/BCR*
   ZFSAT            220-CNAME
   ZFSLNK           174-EQU     1196/STW     1199/BCS*
   ZFSPRO          1200/LW      2003/ZFST2   2004-BAL     2013/B
   ZFSTRN           799/ZFOT    1196-STW
   ZFST2            212-CNAME
   ZFTF             190-EQU     1916/STW
   ZGOPRO          1996-LI      2237/ZFSAT
   ZGOPTR           748/STH     1221/STH     1997-LI
   ZHLT            1649-STW     2245/ZFSAT
   ZHLTMSG         1652/STW     1653/LW      1661/ZFMW    1662-TEXT
   ZIL5C            456/DATA     484-STW
   ZIL5F            402-XPSD    2086/LW      2087/STW
   ZIL50            440/DATA     476-STW
   ZIL51            444/DATA     478-STW
   ZIL56            448/DATA     480-STW
   ZIL57            452/DATA     482-STW
   ZIMSGSTR         508/BAL      509/BAL      512/BAL      519/BAL      525/BAL      579/BAL      580/BAL
       585/BAL      586/BAL      673-LI       690/BAL
   ZIMSGST1         678-STB      683/B
   ZIMSGST2         676/BCS      682-AI
   ZINTFLG          193-EQU      494/MTW      497/LW       547/STW      663/STW      720/STW
   ZINTINDX         527/STW      535/LW       617/LW       695-DATA
   ZIOADR          1335/LW      2067/STW     2070/AWM     2078/SW      2160-EQU     2161/EQU
   ZIOWDS          2079/STW     2161-EQU     2162/EQU
   ZI5C             399/XPSD     454-DATA
   ZI5D             400/XPSD     458-DATA
   ZI50             386/XPSD     438-DATA
   ZI51             387/XPSD     442-DATA
   ZI56             392/XPSD     446-DATA
   ZI57             394/XPSD     450-DATA
   ZKBCRIOA        1611/BAL     1617/BAL     1622-LI
   ZLBADR           757/LW       947/CW      1209/CW      2083/STW     2153-EQU     2154/EQU
   ZLBPTR           758/STW      931/STW*     932/MTW      946/LW       951/MTW      952/LW*     1208/LW
      2084/STW     2154-EQU     2155/EQU
   ZLKADR           753/LW      1408/CW      2022/CW      2035/CW      2075/STW     2155-EQU     2156/EQU
   ZLKAS            977/LI      2020-LI
   ZLKPTR           754/STW     2021/LW      2024/MTW     2025/LW*     2032/LW      2039/STW     2041/LW
      2045/STW*    2046/MTW     2076/STW     2156-EQU     2157/EQU
   ZLKSET          1954/B       2005/BAL     2032-LW
   ZLMSTR           624/BAL      630/BAL      641/BAL      644/BAL      688-LMS
   ZLP              808-ZFOT
   ZLPD            1833/BCR     1837-STH
   ZLPD10          1843/BCR     1848-LB
   ZLPLNK           167-EQU      922/STW      934/BCR*     936/B*
   ZLPPRO           924/LW      1976-ZFST2
   ZLPTRN           808/ZFOT     922-STW
   ZLSTCH           189-EQU      870/LW      1330/STW
   ZMFRCW0         1334/STH     1351/LI      1363-ZFCP
   ZMFRCW1         1346/STH     1364-ZFCP
   ZMFRDA           729/STH     1343/CH      1349/TIO*    1352-SIO     1354/TIO*    1382/CH      1625/STH
      1791/CH      2094/STH
   ZMFRIOAD         724/LW      1044/CW      2069/STW     2159-EQU     2160/EQU
   ZMFRIOF         1338/BCR     1368-LI
   ZMFRLNK          186-EQU     1328/STW     1361/B*
   ZMFRNBA          727/STH     1223/STH     1332-CI      1337/SH      1348/STH     1375/STH     1627/STH
   ZMFRTCBA        1333/BCS     1358-LB
   ZMFRX7           726/STH     1222/LH      1316/LH      1331-LI      1347/AH      1360/MTW     1374/LH
      1626/LH
   ZML1E            162-EQU
   ZML1F            163-EQU
   ZML10            160-EQU     1845/STB     1859/STB     1867/STB
   ZML14            161-EQU
   ZMPMSK           608/AND      696-DATA
   ZMPTWA           849/BAL     1894/BAL     1911-LB
   ZMS              804-ZFOT    1079/CB      1080/BCR*    1099/CB      1100/BCR*    1385/B*
   ZMSGKEY         1635/STH     1810-CI
   ZMSLNK           166-EQU      882/STW      889/B*
   ZMSTRN           804/ZFOT     882-STW
   ZNL              761/LB       789/ZFMW     801-ZFOT     871/CB       874/CB
   ZOPBEG           797-EQU      806/EQU      823/EQU
   ZOPLEN           768/LI       779/LI       823-EQU
   ZOPLN2           806-EQU     1144/LI
   ZOPTBL           769/LW       780/LW       822-EQU
   ZOPTB2           805-EQU     1145/LW
   ZPAGESAV         413-DATA     466/STW      468/STW      470/STW      472/STW      474/STW      476/STW
       478/STW      480/STW      482/STW      484/STW      486/STW      496/STM
   ZPCHK            179-EQU     1109/STW     1152/SW
   ZPCHK1           180-EQU     1110/STW     1139/STW     1151/LW
   ZPCNT            178-EQU     1113/STW     1116/SW      1122/MTW
   ZPC010           549/B        717-BAL      741/B       1380/BCS     1383/BCR     1970/B       2277/LI
      2347/B
   ZPC020           730-LW       739/B
   ZPC030           735/LI       738-BAL
   ZPC050           730/LW       740-ZFMW
   ZPC200           745-BAL     2235/ZFSAT
   ZPC210           737/B        761-LB
   ZPC5            1168/BAL     1293-LI
   ZPC6            1169/BAL     1302-LI
   ZPC7            1170/BAL     1313-STW
   ZPC7LNK          185-EQU     1313/STW     1321/BCR*
   ZPC7M           1114/STB     1126/CB      1141/CB      1315/STB     1320-CI
   ZPD              811-ZFOT
   ZPDLNK           170-EQU      963/STW      967/B*
   ZPDTRN           811/ZFOT     963-STW
   ZPFIMSK          582/AND      697-DATA
   ZPFISTR          588/STM      592/LM       698-RES
   ZPL              802-ZFOT
   ZPLLNK           175-EQU     1056/STW     1089/B*
   ZPLTRN           800/ZFOT     801/ZFOT     802/ZFOT     803/ZFOT     810/ZFOT     943/BAL     1054-MTW
      1197/BAL
   ZPLTRN20        1059/BCR     1063-LW
   ZPLTRN30        1069/BCS     1090-LI
   ZPMADR           751/LW       994/LW      2043/CW      2072/STW     2157-EQU     2158/EQU
   ZPMEN            966/BAL      993-STW     1029/B
   ZPMEN10          997-LW      1030/BIR
   ZPMEN20         1000/BCS     1007-CI
   ZPMEN30         1002/BCS     1017-LI
   ZPMEN40          996/BCR     1004/BCS     1008/BCS     1011/BCS     1020/BCS     1031-CI
   ZPMLNK           172-EQU      993/STW     1016/B*      1047/B*
   ZPMPTR           752/STW      995/SW       997/LW*     1013/AND*    1022/LW*     1025/MTW     1026/LW*
      1028/STW*    1040/STW*    1042/LW      1046/STW     2073/STW     2158-EQU     2159/EQU
   ZPMRQ            984/BAL      992-AI      1214/BAL     1451/B
   ZPRTYP          1133/EXU     1163-BAL
   ZPTY             177-EQU     1117/STW     1121/LB*     1135/MTW
   ZRECOV           718/LW       741-B       2333/STW
   ZRETN1          1906/B       1934-BAL
   ZRETN1A         1938/BCR     1943-BAL     1952/BCR     1976/ZFST2   1989/BCS     1992/B       2027/B
   ZRETN2          1907/B       1948-BAL
   ZRP              798-ZFOT    1087/CB      1088/BCR*
   ZRPLNK           168-EQU      942/STW      953/BCR*     956/B*
   ZRPPRO           949/LW      1983/ZFST2   1984-LW
   ZRPTRN           798/ZFOT     942-STW
   ZSCIR            717/BAL      745/BAL      844/BAL      853/BAL     1601-LI      1706/BAL     1803/BAL
      1893/BAL     1934/BAL     1948/BAL     2089/BAL
   ZSIG9            192-EQU      533/MTW      603/LW       626/LW       651/LW      2115/STW
   ZSMD            1641-LI      2241/ZFSAT
   ZSML            1633-LW      2240/ZFSAT
   ZSML40           532/BAL      552/BAL      570/BAL      590/BAL      616/BAL     1377/BAL     1796-LCFI
      2122/BAL
   ZSNER            785/B        872/BCS      911/B        948/BCR     1006/B       1045/BCS     1062/B
      1072/BCR     1092/BCR     1131/B       1150/B       1205/BCR     1210/BCS     1217/BCS     1369-BAL
      1411/B       1473/B       1486/B       1493/B       1998/BCR     2023/BCR     2044/BCS
   ZSNERMW         1376/LW      1386-ZFMW
   ZSNMSG          1371/STW     1373/STB     1378/LB      1386/ZFMW    1387-TEXT
   ZSP              800-ZFOT
   ZSRADR          1063/LW      2259-EQU
   ZSRBEG          2191-EQU     2217/EQU
   ZSRLEN           903/LI      1057/LI      2217-EQU
   ZSRTBL           905/CW       907/CW       912/CW       915/STW     1058/CW      2216-EQU
   ZSTCRC          1423-STW     1892/BAL
   ZSTPTR           756/BAL      835/BAL      848/BAL      858/BAL      884/BAL     1219/BAL     1401-STW
      1424/BAL     2103/BAL
   ZSUP            1568-STW     1576/BIR
   ZTEMP           1500/STW     1504/AW      1505/STW     1509/AW      1510/STW     1513/AW      1514/STW
      1529/STW     1536/AWM     1541/OR      1542/STW     1559/LW      1569/STW     1577/LW      1578/STW
      1585/STW     1596/XW      1674/STW     1677/STW*    1678/MTW     1679/LW      2164-EQU     2165/EQU
   ZTEMP1          1557/STB     1560/LW      2165-EQU     2166/EQU
   ZTLCMN           467/BAL      469/BAL      471/BAL      473/BAL      475/BAL      477/BAL      479/BAL
       481/BAL      483/BAL      485/BAL      493-STCF
   ZTLCMN1          513-LW       554/B
   ZTLCMN10         539/BCR      599-LI       611/BIR      614/BCS
   ZTLCMN11         616-BAL      646/B
   ZTLCMN12         609/BCS      622-LI
   ZTLCMN13         543/BCR      648-LC
   ZTLCMN14         545/BCR      597/BCS      619/BCR      649/BCR      650/BCR      662-LI
   ZTLCMN15         664/LPSD     666-DATA
   ZTLCMN16         605/BNE      608-AND
   ZTLCMN17         639/B        645-LW
   ZTLCMN18         628/BNE      640-LCI
   ZTLCMN2          531-HIO      557/B
   ZTLCMN3          501/BCR      551-LW
   ZTLCMN4          529/BCS      556-LW
   ZTLCMN5          537/BCR      559-LI
   ZTLCMN6          562-HIO      566/BIR
   ZTLCMN7          563/BCS      565-AI       594/B
   ZTLCMN8          564/BCS      573-STW
   ZTLCMN9          541/BCR      596-LC
   ZTLHLT           499/BCS      534/BCR      546-LI       568/BCS      571/B        620/B        666/DATA
      2317/LI
   ZTLMSG1          507/LI       699-TEXT     704/ZFMW     705/ZFMW
   ZTLMSG1F         530/LW       704-ZFMW
   ZTLMSG1G         556/LW       705-ZFMW
   ZTLMSG2          578/LI       701-TEXT     706/ZFMW
   ZTLMSG2F         589/LW       706-ZFMW
   ZTLMSG3          622/LI       632/STW      634/STW      636/STW      702-TEXT     707/ZFMW
   ZTLMSG3F         645/LW       707-ZFMW
   ZTLMSG4          703-TEXT     708/ZFMW     709/ZFMW     710/ZFMW
   ZTLMSG4F         551/LW       708-ZFMW
   ZTLMSG5F         569/LW       709-ZFMW
   ZTLMSG6F         615/LW       710-ZFMW
   ZTLOC            505/LB       711-DATA
   ZTL4C            432/DATA     472-STW
   ZTL4D            436/DATA     474-STW
   ZTL40            420/DATA     466-STW
   ZTL41            424/DATA     468-STW      502/AI
   ZTL46            428/DATA     470-STW
   ZTMNCR           731/BAL      760/BAL      888/BAL     1225/BAL     1790-LH
   ZTRN10           749/LI       766-LI       787/BAL      788/B        855/LI
   ZTRN100          759/LW       789-ZFMW     887/LW      1224/LW
   ZTRN40           774/BCS      776/BCS      784-LI       814/ZFOT     815/ZFOT     816/ZFOT     817/ZFOT
       818/ZFOT     819/ZFOT     820/ZFOT     821/ZFOT
   ZTRN50           771/BCR      782/BCR      786-BAL     1067/BCR
   ZTRN60           736/STH      750/STH      787-BAL      838/STH      856/STH     1078/LI      1084/LI
      1098/LI      1101/B       1384/LI
   ZTSTLNK          187-EQU
   ZTST1            926/BAL     1076/BAL     1442-LB
   ZTST1A          1446/BCS     1452-MTW
   ZTST1AA         1448/BCR     1454-LI
   ZTST1B          1453/BCS     1458-CI
   ZTST1C          1462-STW
   ZTST2            965/BAL      983/BAL     1213/BAL     1468-MTW
   ZTST2A          1450/BCS     1459/BCS     1469/BCR     1472-LI      1479/B
   ZTST3            828/BAL      898/BAL     1055/BCR     1096/BAL     1444/BCR     1477-MTW
   ZTST4           1015/BAL     1039/BAL     1136/BAL     1406-MTW     1463/B
   ZTST6           1483-MTW
   ZTST7            923/BAL      944/BAL      964/BAL      976/BAL     1490-MTW
   ZTW             1830/BCR     1836/BCR     1852-STH
   ZTWLP            300/BAL     1655/BAL     1753/BAL     1800-BCR     1865/AND     2458/BAL     2470/B
      3853/B       3996/BAL     4807/BAL
   ZTWLPA          1837/STH     1851/B       1852/STH     1855/BCR     1872-SIO     1874/TIO*    1969/HIO*
      4797/LH
   ZTWLPO          1643/STH     1834-LI      2093/STH     3991/LH
   ZTWLP01         1807/BCR     1812-STH
   ZTWLP10         1819/STB     1839/LB      1846/STB     1847/LI      1854/LB      1866/MTB     1871/LI
      1881-ZFCP
   ZTWLP11         1822/STH     1823/AH      1824/STH     1825/STB     1838/LI      1848/LB      1850/MTB
      1856/MTB     1863/LB      1877/AH      1878/STH     1883-DATA
   ZTWLP12         1812/STH     1814/STB     1853/LI      1876/LH      1883/DATA    1885-ZFCP
   ZTW10           1864/BCR     1870-LI
   ZTYP            1690-LCFI    2244/ZFSAT
   ZT4C             378/XPSD     430-DATA
   ZT4D             379/XPSD     434-DATA
   ZT40             418-DATA     515/AI      2131/XPSD
   ZT41             367/XPSD     422-DATA
   ZT46             372/XPSD     426-DATA
   ZUDFPM           176-EQU      746/STW     1021/MTW     1036/MTW     1216/MTW
