1 C00   21:18 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   21:18 JUN 20,'83    SIGMA 5-9 PERIF SW EQUIP TEST 704314-51D01  2-19-73                   PAGE    2
A       1                             TITLE 'SIGMA 5-9 PERIF SW EQUIP TEST 704314-51D01  2-19-73'
        2                            *
        3                            *
        4                            *
        5                            *  PROGRAM NO. 704314               MANUAL NO. 901539
        6                            *
        7                            *
        8                                     SYSTEM   SIG7FDP
        9                            *
       10                            *REVISION D01 (2-19-73)                                             *D01
       11                            * REVISED DCP INTERUPT HANDLER                                      *D01
       12                            *
       13                            *
       14                            *
       15                            *
       16                            * REVISION D00 (02/04/70) CHANGES INDICATED IN COLUMNS 69 - 72 BY - *D00
       17                            *  RELEASED DP1 REVISION.                                           *D00
       18                            *
       19                            *
       20                            * REVISION DP1 (2/9/70) CHANGES INDICATED IN COLUMNS 69 - 72 BY --- *DP1
       21                            *  PROGRAM REVISED FOR SIGMA 9 COMPATIBILITY.  INTERRUPT AND TRAP   *DP1
       22                            *  HANDLERS MODIFIED FOR SIGMA 5/7/9 COMPATIBILITY.  INITIALIZER    *DP1
       23                            *  ROUTINE MODIFIED TO ALLOW OPERATION WITH A KSR/ASR ON ANY VALID  *DP1
       24                            *  SINGLE DEVICE ADDRESS.                                           *DP1
       25                            *
       26                            *NOTE: IF THE KSR/ASR IS NOT AT DEVICE ADDRESS ONE, THE PROGRAM WILL*DP1
       27                            *      COME TO A WAIT.  ENTER THE CORRECT ADDRESS INTO REGISTER 4   *DP1
       28                            *      AND CLEAR THE WAIT.                                          *DP1
       29                            *
       30                            *
       31                            * REVISION C00 (7/23/69) DOCUMENTATION REFORMATTING CHANGE ONLY       *C
       32                            *
       33                            *
       34                            *
       35                            * REVISION B00 (5/20/68) CHANGES INDICATED IN COLS. 71 AND 72 BY *B   *B
       36                            * PROGRAM REVISED TO STABILIZE LOB LATCH ON DIO ADDRESS LINES         *B
       37                            *
       38                            *
       39                                     OPEN     PAGE              THIS INHIBITS                     *B
       40         00000000           PAGE     CNAME                       PAGE                             *B
       41                                     PROC                         DIRECTIVE                       *B
       42                                     PEND                          TO PERMIT MAX. LINAGE/PAGE     *B
       43                            *
       44                            *
       45   01 00040                          ORG      64
            01 00040
       46                            *
       47                            *
       48         01 00040           ZDCP     EQU      %                                                 *DP1
       49                            *
       50                            *
       51                            * ASSIGN MNEMONIC NAMES TO INDEX REGISTERS
       52                            *
       53         00000001           X1       EQU      1
       54         00000002           X2       EQU      2
       55         00000003           X3       EQU      3
       56         00000004           X4       EQU      4
       57         00000005           X5       EQU      5
       58         00000006           X6       EQU      6
       59         00000007           X7       EQU      7
       60                            *
       61                            * ASSIGN MNEMONIC NAMES TO GENERAL REGISTERS
       62                            *
       63         00000000           R0       EQU      0
       64         00000001           R1       EQU      1
       65         00000002           R2       EQU      2
       66         00000003           R3       EQU      3
       67         00000004           R4       EQU      4
       68         00000005           R5       EQU      5
       69         00000006           R6       EQU      6
       70         00000007           R7       EQU      7
       71         00000008           R8       EQU      8
       72         00000009           R9       EQU      9
       73         0000000A           R10      EQU      X'A'
       74         0000000B           R11      EQU      X'B'
       75         0000000C           R12      EQU      X'C'
       76         0000000D           R13      EQU      X'D'
       77         0000000E           R14      EQU      X'E'
       78         0000000F           R15      EQU      X'F'
       79                                     PAGE
       80                            *
       81                            * EQUATE STATEMENTS TO UTILIZE UNASSIGNED MEMORY LOCATIONS
       82                            *
       83         00000010           ZML10    EQU      X'10'             LOCATIONS 10-IF UTILIZED
       84         00000014           ZML14    EQU      X'14'             BY COMMON TYPE/PRINT ROUTINE
       85         0000001E           ZML1E    EQU      X'1E'
       86         0000001F           ZML1F    EQU      X'1F'
       87         00000022           ZCLLNK   EQU      X'22'             TEMPORARY
       88         00000023           ZEQLNK   EQU      X'23'             LINK STORAGE
       89         00000024           ZMSLNK   EQU      X'24'             FOR TRANSLATOR
       90         00000025           ZLPLNK   EQU      X'25'             SUBROUTINES
       91         00000025           ZRPLNK   EQU      X'25'
       92                            * CPU RESET RECOVERY LOCATION
       93         00000027           ZPDLNK   EQU      X'27'
       94         00000028           ZASLNK   EQU      X'28'
       95         00000029           ZPMLNK   EQU      X'29'
       96         0000002A           ZCOLNK   EQU      X'2A'
       97         0000002B           ZFSLNK   EQU      X'2B'
       98         0000002C           ZPLLNK   EQU      X'2C'
       99         0000002D           ZUDFPM   EQU      X'2D'
      100         0000002E           ZPTY     EQU      X'2E'
      101         0000002F           ZPCNT    EQU      X'2F'
      102         00000030           ZPCHK    EQU      X'30'
      103         00000031           ZPCHK1   EQU      X'31'
      104         00000032           ZDSLNK   EQU      X'32'
      105         00000033           ZDSPTR   EQU      X'33'
      106         00000034           ZCFRLNK  EQU      X'34'
      107         00000035           ZCFRCA   EQU      X'35'
      108         00000036           ZPC7LNK  EQU      X'36'
      109         00000037           ZMFRLNK  EQU      X'37'
      110         00000038           ZTSTLNK  EQU      X'38'
      111         00000039           ZCHAR    EQU      X'39'
      112         0000003A           ZLSTCH   EQU      X'3A'
      113         0000003C           ZFTF     EQU      X'3C'
      114         0000003D           ZDSFLG   EQU      X'3D'
      115         0000003E           ZSIG9    EQU      X'3E'             SIGMA 9 FLAG, 1=SIGMA 9         *DP1
      116         0000003F           ZINTFLG  EQU      X'3F'             INTERRUPT FLAG (COUNTER)        *DP1
      117                            *
      118                            *
      119                            *
      120                            * FORM DIRECTIVES FOR FORMATTED WORDS
      121                            *
      122         00000004           ZFCP     COM,8,24 AF                ORDER,BYTE ADDRESS/COUNT
      123         00000004           ZFOT     COM,8,7,17 AF              OPERATOR,UNASSIGNED,ADDRESS
      124                            *
      125                            * PROCEDURE FOR GENERATION OF FORMATTED MESSAGE WORDS
      126                            *
      127         00000000           ZFMW     CNAME
      128                                     PROC
      129                            LF       GEN,4,4,8,16 ABSVAL(AF(1)),ABSVAL(AF(2)),ABSVAL(AF(3)),;
      130                             ABSVAL(AF(4))
      131                                     PEND
      132                            *
      133                            * PROCEDURE FOR GENERATION OF FORMATTED SUBROUTINE CONTROL TABLE
      134                            *
      135         00000000           ZFST2    CNAME
      136                                     PROC
      137                            LF       GEN,4,2,9,17 ABSVAL(AF(1)),ABSVAL(AF(2)),ABSVAL(AF(3)),;
      138                             ABSVAL(AF(4))
      139                                     PEND
      140                            *
      141                            * PROCEDURE FOR GENERATION OF FORMATTED PARAMETER WORDS
      142                            *
      143         00000000           ZFSAT    CNAME
      144                                     PROC
      145                            LF       GEN,4,2,2,7,17 ABSVAL(AF(1)),ABSVAL(AF(2)),;
      146                             ABSVAL(AF(3)),ABSVAL(AF(4)),ABSVAL(AF(5))
      147                                     PEND
      148                            *
      149                            * PROCEDURE FOR GENERATION OF FORMATTED HALF-WORDS
      150                            *
      151                        *S* ZAP1     CNAME
      152                        *S*          PROC
      153                        *S* LF       GEN,16,16 ABSVAL(AF(1)),ABSVAL(AF(2))
      154                        *S*          PEND
      155                            ** ***************************************************************
      156                            ** ***************************************************************
      157                            ** *     TO FACILITATE THE TYPING OUT OF CHANGES MADE TO
      158                            ** *     THIS PROGRAM A PROCEDURE CALLED BY 'REV' IS USED.
      159                            ** *
      160                            ** *
      161                            ** *     METHOD:
      162                            ** *              1. USE 'REV' AS A COMMAND, IT OPERATES
      163                            ** *               SIMILAR TO A TEXTC DIRECTIVE.
      164                            ** *              2. A LABEL OF '' REVISION'' MUST BE USED
      165                            ** *               WITH THE FIRST CALL OF '' REV''.
      166                            ** *              3. A LABEL OF ''REVEND'' MUST BE USED WITH
      167                            ** *               THE LAST CALL OF ''REV''.
      168                            ** *
      169                            ** *
      170                            ** *
      171                            ** *
      172                            ** *     WHEN USED CORRECTLY '' REV'' WILL GENERATE ALL OF THE
      173                            ** *     NECCESSARY CODE TO TYPE THE REVISIONS MADE.
      174                            ** AN EXAMPLE OF USE WOULD BE:
      175                            **          CSECT
      176                            **          ORG    X'(A LOCATION PAST THE LAST LITERAL)'
      177                            ** REVISION REV   'REVISION XXX'
      178                            ** REVEND   REV   'NO CHANGES TO THE OPERATING PROCEDURES'
      179                            ** *        USECT     (PREVIOUSLY DEFINED LABEL)
      180                            ** NOTE!!! THIS PROCEDURE GENERATES 2 MORE LITERALS.
      181                            ** **************************************************************
      182                            ** **************************************************************
      183         00000000           REVCOUNT SET      0
      184         00000000           REVSTART SET      0
      185         00000000           REVHERE  SET      0
      186         00000000           REVTHERE SET      0
      187                            *
      188                            *
      189         00000000           REV      CNAME
      190                                     PROC
      191                                     DO       REVCOUNT=0
      192                            REVSTART SET      %
      193                            LF       RES      1
      194                                     FIN
      195                            REVCOUNT SET      REVCOUNT+1
      196                                     DO       SCOR(LF,REVEND)
      197                            REVHERE  SET      %
      198                                     RES      1
      199                                     TEXT     AF
      200                            REVTHERE SET      %
      201                                     ORG      REVHERE
      202                                     GEN,4,4,8,16  2,0,(4*(REVTHERE-REVHERE))-4,BA(REVHERE)+4
      203                                     ORG      REVSTART
      204                                     GEN,32   REVCOUNT
      205                                     ORG      REVTHERE
      206                                     CODE
      207                                     ELSE
      208                            REVHERE  SET      %
      209                                     RES      1
      210                                     TEXT     AF
      211                            REVTHERE SET      %
      212                                     ORG      REVHERE
      213                                     GEN,4,4,8,16 2,0,(4*(REVTHERE-REVHERE))-4,BA(REVHERE)+4
      214                                     ORG      REVTHERE
      215                                     FIN
      216                                     PEND
      217                            *
      218                            *
      219         00000000           CODE     CNAME
      220                                     PROC
      221                            REVPRINT LW,12    *REVADR
      222                                     LCI      X'F'                                              *D00
      223                                     BAL,15   ZTWLP                                             *D00
      224                                     LH,4     *REVADR
      225                                     AND,4    =X'FF'
      226                                     SLS,4    -2
      227                                     AI,4     1
      228                                     AW,4     REVADR
      229                                     STW,4    REVADR
      230                                     MTW,-1   REVISION
      231                                     BNEZ     REVPRINT
      232                                     LW,4     NOP
      233                                     STW,4    REVBRNCH
      234                                     B        REVBRNCH
      235                            REVADR   DATA     REVISION+1
      236                            NOP      NOP
      237                                     PEND
      238                            *
      239   02 00000                          CSECT                                                      *DP1
      240                            *                                                                   *D00
      241   02 00F00                          ORG      X'F00'                                            *D00
            02 00F00
      242                            *
      243                            *
      244   02 00F02    E3D640E2 A   REVISION REV      'TO SUPPRESS THIS MESSAGE, SET SSW 4.'
            02 00F03    E4D7D7D9 A
            02 00F04    C5E2E240 A
            02 00F05    E3C8C9E2 A
            02 00F06    40D4C5E2 A
            02 00F07    E2C1C7C5 A
            02 00F08    6B40E2C5 A
            02 00F09    E340E2E2 A
            02 00F0A    E640F44B A
            02 00F01    20243C08 N
      245   02 00F0C    D9C5E5C9 A            REV      'REVISION D01 (2-19-73)'                          *D01
            02 00F0D    E2C9D6D5 A
            02 00F0E    40C4F0F1 A
            02 00F0F    404DF260 A
            02 00F10    F1F960F7 A
            02 00F11    F35D4040 A
            02 00F0B    20183C30 N
      246   02 00F13    D9C5E5C9 A            REV      'REVISED DCP INTERUPT HANDLER'                    *D01
            02 00F14    E2C5C440 A
            02 00F15    C4C3D740 A
            02 00F16    C9D5E3C5 A
            02 00F17    D9E4D7E3 A
            02 00F18    40C8C1D5 A
            02 00F19    C4D3C5D9 A
            02 00F12    201C3C4C N
      247   02 00F1B    40404040 A            REV      ' '                                               *D00
            02 00F1A    20043C6C N
      248   02 00F1D    D9C5E5C9 A            REV      'REVISION *D00*'                                  *D00
            02 00F1E    E2C9D6D5 A
            02 00F1F    405CC4F0 A
            02 00F20    F05C4040 A
            02 00F1C    20103C74 N
      249   02 00F22    D7D9D6C7 A    REV 'PROGRAM REVISED FOR SIGMA 9 COMPATIBILITY.  INTERRUPT AND'    *DP1
            02 00F23    D9C1D440 A
            02 00F24    D9C5E5C9 A
            02 00F25    E2C5C440 A
            02 00F26    C6D6D940 A
            02 00F27    E2C9C7D4 A
            02 00F28    C140F940 A
            02 00F29    C3D6D4D7 A
            02 00F2A    C1E3C9C2 A
            02 00F2B    C9D3C9E3 A
            02 00F2C    E84B4040 A
            02 00F2D    C9D5E3C5 A
            02 00F2E    D9D9E4D7 A
            02 00F2F    E340C1D5 A
            02 00F30    C4404040 A
            02 00F21    203C3C88 N
      250   02 00F32    E3D9C1D7 A    REV 'TRAP HANDLERS MODIFIED FOR SIGMA 5/7/9 COMPATIBILITY.'        *DP1
            02 00F33    40C8C1D5 A
            02 00F34    C4D3C5D9 A
            02 00F35    E240D4D6 A
            02 00F36    C4C9C6C9 A
            02 00F37    C5C440C6 A
            02 00F38    D6D940E2 A
            02 00F39    C9C7D4C1 A
            02 00F3A    40F561F7 A
            02 00F3B    61F940C3 A
            02 00F3C    D6D4D7C1 A
            02 00F3D    E3C9C2C9 A
            02 00F3E    D3C9E3E8 A
            02 00F3F    4B404040 A
            02 00F31    20383CC8 N
      251   02 00F41    C9D5C9E3 A    REV 'INITIALIZER ROUTINE MODIFIED TO ALLOW OPERATION WITH A'       *DP1
            02 00F42    C9C1D3C9 A
            02 00F43    E9C5D940 A
            02 00F44    D9D6E4E3 A
            02 00F45    C9D5C540 A
            02 00F46    D4D6C4C9 A
            02 00F47    C6C9C5C4 A
            02 00F48    40E3D640 A
            02 00F49    C1D3D3D6 A
            02 00F4A    E640D6D7 A
            02 00F4B    C5D9C1E3 A
            02 00F4C    C9D6D540 A
            02 00F4D    E6C9E3C8 A
            02 00F4E    40C14040 A
            02 00F40    20383D04 N
      252   02 00F50    D2E2D961 A    REV 'KSR/ASR ON ANY VALID SINGLE DEVICE ADDRESS.'                  *DP1
            02 00F51    C1E2D940 A
            02 00F52    D6D540C1 A
            02 00F53    D5E840E5 A
            02 00F54    C1D3C9C4 A
            02 00F55    40E2C9D5 A
            02 00F56    C7D3C540 A
            02 00F57    C4C5E5C9 A
            02 00F58    C3C540C1 A
            02 00F59    C4C4D9C5 A
            02 00F5A    E2E24B40 A
            02 00F4F    202C3D40 N
      253   02 00F5C    40404040 A    REV ' '                                                            *DP1
            02 00F5B    20043D70 N
      254   02 00F5E    D5D6E3C5 A    REV 'NOTE: IF THE KSR/ASR IS NOT AT DEVICE ADDRESS ONE, THE'       *DP1
            02 00F5F    7A40C9C6 A
            02 00F60    40E3C8C5 A
            02 00F61    40D2E2D9 A
            02 00F62    61C1E2D9 A
            02 00F63    40C9E240 A
            02 00F64    D5D6E340 A
            02 00F65    C1E340C4 A
            02 00F66    C5E5C9C3 A
            02 00F67    C540C1C4 A
            02 00F68    C4D9C5E2 A
            02 00F69    E240D6D5 A
            02 00F6A    C56B40E3 A
            02 00F6B    C8C54040 A
            02 00F5D    20383D78 N
      255   02 00F6D    40404040 A    REV '      PROGRAM WILL COME TO A WAIT.  ENTER THE CORRECT'        *DP1
            02 00F6E    4040D7D9 A
            02 00F6F    D6C7D9C1 A
            02 00F70    D440E6C9 A
            02 00F71    D3D340C3 A
            02 00F72    D6D4C540 A
            02 00F73    E3D640C1 A
            02 00F74    40E6C1C9 A
            02 00F75    E34B4040 A
            02 00F76    C5D5E3C5 A
            02 00F77    D940E3C8 A
            02 00F78    C540C3D6 A
            02 00F79    D9D9C5C3 A
            02 00F7A    E3404040 A
            02 00F6C    20383DB4 N
      256   02 00F7C    40404040 A    REV '      ADDRESS INTO REGISTER 4 AND CLEAR THE WAIT'             *DP1
            02 00F7D    4040C1C4 A
            02 00F7E    C4D9C5E2 A
            02 00F7F    E240C9D5 A
            02 00F80    E3D640D9 A
            02 00F81    C5C7C9E2 A
            02 00F82    E3C5D940 A
            02 00F83    F440C1D5 A
            02 00F84    C440C3D3 A
            02 00F85    C5C1D940 A
            02 00F86    E3C8C540 A
            02 00F87    E6C1C9E3 A
            02 00F7B    20303DF0 N
      257   02 00F89    40404040 A    REV ' '                                                            *DP1
            02 00F88    20043E24 N
      258   02 00F8B    D5D640C6 A   REVEND REV 'NO FUNCTIONAL CHANGES HAVE BEEN MADE'                   *DP1
            02 00F8C    E4D5C3E3 A
            02 00F8D    C9D6D5C1 A
            02 00F8E    D340C3C8 A
            02 00F8F    C1D5C7C5 A
            02 00F90    E240C8C1 A
            02 00F91    E5C540C2 A
            02 00F92    C5C5D540 A
            02 00F93    D4C1C4C5 A
            02 00F8A    20243E2C N
            02 00F00    0000000F A
            02 00F94    B2C00FA2
            02 00F95    022000F0 A
            02 00F96    6AF005CA 01
            02 00F97    D2400FA2
            02 00F98    4B400E79 01
            02 00F99    2540007E A
            02 00F9A    20400001 A
            02 00F9B    30400FA2
            02 00F9C    35400FA2
            02 00F9D    33F00F00
            02 00F9E    69300F94
            02 00F9F    32400FA3
            02 00FA0    354006C1 01
            02 00FA1    680006C1 01
            02 00FA2    00000F01
            02 00FA3    02000000 A
      259                            *
      260                            *
      261   02 00FA4                          USECT    ZDCP                                              *DP1
      262                            *
      263                            *
      264                            *
      265                            * SYNTAX ERROR CODE MESSAGES
      266                            *      NO.     MEANING
      267                            *      ---     -------
      268                            *      001    UNDEFINED SPECIAL CHARACTER
      269                            *      010    COMMENTS LINE INITIATOR (ASTERISK) NOT PRECEDED
      270                            *              BY NEW LINE CHARACTER
      271                            *      020    DECIMAL RE-ITERATION COUNT AND/OR PLACE MARKER
      272                            *              IDENTIFIER SUB-FIELD GREATER OR LESS THAN AND/OR
      273                            *               NOT PERMITTED BY DIRECTIVE
      274                            *      021    ALPHABETIC CHARACTERS ENCOUNTERED IN DECIMAL SUB-
      275                            *              FIELD OR ABSENCE OF FIELD SEPARATOR
      276                            *      030    PLACE MARKER IDENTIFIER TABLE OVERFLOW
      277                            *      031    DOUBLY DEFINED PLACE MARKER IDENTIFIERS
      278                            *      032    UNDEFINED PLACE MARKER IDENTIFIERS AT EXECUTE TIME
      279                            *      040    CLOSE LOOP OPERATION WITHOUT PRIOR OPEN LOOP OPER.
      280                            *      041    OPEN LOOP OPERATIONS EXIST AT EXECUTE TIME
      281                            *      050    UNDEFINED MNEMONIC DIRECTIVE
      282                            *      051    DIRECTIVE NON-EXECUTABLE IN CONTROL LINE MODE
      283                            *      052    DIRECTIVE NON-EXECUTABLE IN IMMEDIATE MODE
      284                            *      053    UNDEFINED AND/OR DOUBLY DEFINED MNEMONIC DIRECTIVE
      285                            *              NAME FOR MNEMONIC NAME RE-DEFINITION
      286                            *      054    ILLEGAL FIELD SEPARATOR FOLLOWING DIRECTIVE
      287                            *      055    FIELD SEPARATOR ENTERED PRIOR TO REQUIRED PARAMETER
      288                            *      100    EXECUTE TABLE OVERFLOW-UNCONDITIONAL ABORT
      289                            *      101    EXECUTE TABLE UNDERFLOW-UNCONDITIONAL ABORT
      290                            *      105    GO ERROR UNCONDITIONAL ABORT
      291                            *      110    LINK TABLE OVERFLOW-UNCONDITIONAL ABORT
      292                            *      111    LINK TABLE UNDERFLOW-UNCONDITIONAL ABORT
      293                            *      120    SYMBOLIC INPUT OVERFLOW-UNCONDITIONAL ABORT
      294                                     PAGE
      295                            *
      296                            * PRE-INITIALIZATION OF CPU TRAP LOCATIONS
      297                            *
      298                            *
      299                            *
      300   01 00040    0F0006C6              XPSD,0   ZCMST40    40 NON-ALLOWED OPERATION               *DP1
      301   01 00041    0F000154              XPSD,0   ZT41       41 UNIMPLEMENTED INSTRUCTION           *DP1
      302   01 00042    0F00017C              XPSD,0   ZCTL       42 PUSHDOWN STACK LIMIT                *DP1
      303   01 00043    0F00017C              XPSD,0   ZCTL       43 FIXED POINT OVERFLOW                *DP1
      304   01 00044    0F00017C              XPSD,0   ZCTL       44 FLOATING POINT FAULT                *DP1
      305   01 00045    0F00017C              XPSD,0   ZCTL       45 DECIMAL ARITHMETIC FAULT            *DP1
      306   01 00046    0F000158              XPSD,0   ZT46       46 WATCHDOG TIMER RUNOUT               *DP1
      307   01 00047    0F00017C              XPSD,0   ZCTL       47 UNASSIGNED                          *DP1
      308   01 00048    0F00017C              XPSD,0   ZCTL       48 CALL1                               *DP1
      309   01 00049    0F00017C              XPSD,0   ZCTL       49 CALL2                               *DP1
      310   01 0004A    0F00017C              XPSD,0   ZCTL       4A CALL3                               *DP1
      311   01 0004B    0F00017C              XPSD,0   ZCTL       4B CALL4                               *DP1
      312   01 0004C    0F00015C              XPSD,0   ZT4C       4C SIGMA 9 MEMORY PARITY ERROR         *DP1
      313   01 0004D    0F000160              XPSD,0   ZT4D       4D SIGMA 9 SEQUENCE CHANGE FAULT       *DP1
      314   01 0004E    0F00017C              XPSD,0   ZCTL       4E UNASSIGNED                          *DP1
      315   01 0004F    0F00017C              XPSD,0   ZCTL       4F  TRAP LOCATIONS                     *DP1
      316                            *                                                                   *DP1
      317                            *                                                                   *DP1
      318                            * PRE-INITIALIZATION OF INTERRUPT LOCATIONS                         *DP1
      319                            *                                                                   *DP1
      320   01 00050    0F000164              XPSD,0   ZI50       50 OPTIONAL POWER ON                   *DP1
      321   01 00051    0F000168              XPSD,0   ZI51       51  POWER OFF INTERRUPTS               *DP1
      322   01 00052    0F00017C              XPSD,0   ZCTL       52 REAL-TIME CLOCKS                    *DP1
      323   01 00053    0F00017C              XPSD,0   ZCTL       53  COUNTER 1-3                        *DP1
      324   01 00054    0F00017C              XPSD,0   ZCTL       54   COUNT PULSES                      *DP1
      325   01 00055    0F00017C              XPSD,0   ZCTL       55 STANDARD COUNTER 4 PULSE            *DP1
      326   01 00056    0F00016C              XPSD,0   ZI56       56 SIGMA 5/7 MEMORY PARITY ERROR       *DP1
      327                            *                               SIGMA 9   SYSTEM FAULT              *DP1
      328   01 00057    0F000170              XPSD,0   ZI57       57 SIGMA 9   MEMORY FAULT              *DP1
      329   01 00058    0F00017C              XPSD,0   ZCTL       58 REAL-TIME CLOCKS                    *DP1
      330   01 00059    0F00017C              XPSD,0   ZCTL       59  COUNTER EQUALS ZERO                *DP1
      331   01 0005A    0F00017C              XPSD,0   ZCTL       5A   1-4 INTERRUPT                     *DP1
      332   01 0005B    0F00017C              XPSD,0   ZCTL       5B    LOCATIONS                        *DP1
      333   01 0005C    0F000174              XPSD,0   ZI5C       5C INPUT/OUTPUT INTERRUPT              *DP1
      334   01 0005D    0F000178              XPSD,0   ZI5D       5D CONSOLE INTERRUPT                   *DP1
      335   01 0005E    0F00017C              XPSD,0   ZCTL       5E UNASSIGNED                          *DP1
      336   01 0005F    0F00017C     ZIL5F    XPSD,0   ZCTL       5F  INTERRUPTS                         *DP1
      337                            *
      338                            *
      339                            * INTERRUPT LOCATIONS INITIALIZED   60 OPTIONAL EXTERNAL GROUPS
      340                            *  AT LOAD TIME TO XPSD,0 ZCTL      61  2-15 LOCATIONS 60-13F
      341                            *
      342                            *
      343                            * COMMON INTERRUPT ROUTINE SAVES REGISTER PAGE AT THIS LOCATION     *DP1
      344                            *                                                                   *DP1
      345   01 00140                          ORG      X'140'                                            *DP1
            01 00140
      346                            *                                                                   *DP1
      347   01 00140    00000000 A   ZPAGESAV DATA,16  0,0,0,0           REGISTER PAGE SAVED HERE        *DP1
                        00000000
                        00000000
                        00000000
            01 00144    00000000 A
                        00000000
                        00000000
                        00000000
            01 00148    00000000 A
                        00000000
                        00000000
                        00000000
            01 0014C    00000000 A
                        00000000
                        00000000
                        00000000
      348                            *                                                                   *DP1
      349                            *                                                                   *DP1
      350                            * PRE-INITIALIZED CPU TRAP/INTERRUPT ROUTINE                        *DP1
      351                            *                                                                   *DP1
      352   01 00150    00000000 A   ZT40     DATA     0          40 NON-ALLOWED OPERATION               *DP1
      353   01 00151    00000000 A            DATA     0                                                 *DP1
      354   01 00152    00000180              DATA     ZTL40                                             *DP1
      355   01 00153    00000000 A            DATA     0                                                 *DP1
      356   01 00154    00000000 A   ZT41     DATA     0          41 UNIMPLEMENTED INSTRUCTION           *DP1
      357   01 00155    00000000 A            DATA     0                                                 *DP1
      358   01 00156    00000182              DATA     ZTL41                                             *DP1
      359   01 00157    00000000 A            DATA     0                                                 *DP1
      360   01 00158    00000000 A   ZT46     DATA     0          46 WATCHDOG TIMER RUNOUT               *DP1
      361   01 00159    00000000 A            DATA     0                                                 *DP1
      362   01 0015A    00000184              DATA     ZTL46                                             *DP1
      363   01 0015B    00000000 A            DATA     0                                                 *DP1
      364   01 0015C    00000000 A   ZT4C     DATA     0          4C SIGMA 9 MEMORY PARITY ERROR         *DP1
      365   01 0015D    00000000 A            DATA     0                                                 *DP1
      366   01 0015E    00000186              DATA     ZTL4C                                             *DP1
      367   01 0015F    00000000 A            DATA     0                                                 *DP1
      368   01 00160    00000000 A   ZT4D     DATA     0          4D SIGMA 9 SEQUENCE CHANGE FAULT       *DP1
      369   01 00161    00000000 A            DATA     0                                                 *DP1
      370   01 00162    00000188              DATA     ZTL4D                                             *DP1
      371   01 00163    00000000 A            DATA     0                                                 *DP1
      372   01 00164    00000000 A   ZI50     DATA     0          50 POWER ON INTERRUPT                  *DP1
      373   01 00165    00000000 A            DATA     0                                                 *DP1
      374   01 00166    0000018A              DATA     ZIL50                                             *DP1
      375   01 00167    00000000 A            DATA     0                                                 *DP1
      376   01 00168    00000000 A   ZI51     DATA     0          51 POWER OFF INTERRUPT                 *DP1
      377   01 00169    00000000 A            DATA     0                                                 *DP1
      378   01 0016A    0000018C              DATA     ZIL51                                             *DP1
      379   01 0016B    00000000 A            DATA     0                                                 *DP1
      380   01 0016C    00000000 A   ZI56     DATA     0          56 SIGMA 5/7 MEMORY PARITY ERROR       *DP1
      381   01 0016D    00000000 A            DATA     0             SIGMA 9   SYSTEM FAULT              *DP1
      382   01 0016E    0000018E              DATA     ZIL56                                             *DP1
      383   01 0016F    00000000 A            DATA     0                                                 *DP1
      384   01 00170    00000000 A   ZI57     DATA     0          57 SIGMA 9 MEMORY FAULT                *DP1
      385   01 00171    00000000 A            DATA     0                                                 *DP1
      386   01 00172    00000190              DATA     ZIL57                                             *DP1
      387   01 00173    00000000 A            DATA     0                                                 *DP1
      388   01 00174    00000000 A   ZI5C     DATA     0          5C INPUT/OUTPUT INTERRUPT              *DP1
      389   01 00175    00000000 A            DATA     0                                                 *DP1
      390   01 00176    00000192              DATA     ZIL5C                                             *DP1
      391   01 00177    00000000 A            DATA     0                                                 *DP1
      392   01 00178    00000000 A   ZI5D     DATA     0          5D CONSOLE INTERRUPT                   *DP1
      393   01 00179    00000000 A            DATA     0                                                 *DP1
      394   01 0017A    00000651              DATA     ZCONINT                                           *DP1
      395   01 0017B    00000000 A            DATA     0                                                 *DP1
      396   01 0017C    00000000 A   ZCTL     DATA     0                                                 *DP1
      397   01 0017D    00000000 A            DATA     0                                                 *DP1
      398   01 0017E    00000194              DATA     ZCTL1      60 - 13F EXTERNAL INTERRUPTS           *DP1
      399   01 0017F    00000000 A            DATA     0                                                 *DP1
      400   01 00180    35F0014F     ZTL40    STW,R15  ZPAGESAV+15       SAVE (R15)                      *DP1
      401   01 00181    6AF00196              BAL,R15  ZTLCMN              MARK INT/TRAP ADDR            *DP1
      402   01 00182    35F0014F     ZTL41    STW,R15  ZPAGESAV+15                                       *DP1
      403   01 00183    6AF00196              BAL,R15  ZTLCMN                                            *DP1
      404   01 00184    35F0014F     ZTL46    STW,R15  ZPAGESAV+15                                       *DP1
      405   01 00185    6AF00196              BAL,R15  ZTLCMN                                            *DP1
      406   01 00186    35F0014F     ZTL4C    STW,R15  ZPAGESAV+15                                       *DP1
      407   01 00187    6AF00196              BAL,R15  ZTLCMN                                            *DP1
      408   01 00188    35F0014F     ZTL4D    STW,R15  ZPAGESAV+15                                       *DP1
      409   01 00189    6AF00196              BAL,R15  ZTLCMN                                            *DP1
      410   01 0018A    35F0014F     ZIL50    STW,R15  ZPAGESAV+15                                       *DP1
      411   01 0018B    6AF00196              BAL,R15  ZTLCMN                                            *DP1
      412   01 0018C    35F0014F     ZIL51    STW,R15  ZPAGESAV+15                                       *DP1
      413   01 0018D    6AF00196              BAL,R15  ZTLCMN                                            *DP1
      414   01 0018E    35F0014F     ZIL56    STW,R15  ZPAGESAV+15                                       *DP1
      415   01 0018F    6AF00196              BAL,R15  ZTLCMN                                            *DP1
      416   01 00190    35F0014F     ZIL57    STW,R15  ZPAGESAV+15                                       *DP1
      417   01 00191    6AF00196              BAL,R15  ZTLCMN                                            *DP1
      418   01 00192    35F0014F     ZIL5C    STW,R15  ZPAGESAV+15                                       *DP1
      419   01 00193    6AF00196              BAL,R15  ZTLCMN                                            *DP1
      420   01 00194    35F0014F     ZCTL1    STW,R15  ZPAGESAV+15       EXTERNAL INTERRUPT              *DP1
      421   01 00195    22F00000 A            LI,R15   0                                                 *DP1
      422                            *                                                                   *DP1
      423                            * COMMON TRAP/INTERRUPT ROUTINE.  (R15) INDICATE LOCATION           *DP1
      424                            * TRAP/INTERRUPT OCCURED IN AND THEREFORE THE TYPE OF UNEXPECTED    *DP1
      425                            * TRAP/INTERRUPT.                                                   *DP1
      426                            *                                                                   *DP1
      427   01 00196    7400024B     ZTLCMN   STCF     ZCSS              SAVE TRAP CONDITION CODES       *DP1
      428   01 00197    3310003F A            MTW,1    ZINTFLG           INCREMENT INTERRUPT FLAG        *DP1
      429   01 00198    022000F0 A            LCI      15                SAVE REGISTERS 0-14             *DP1
      430   01 00199    2B000140              STM,R0   ZPAGESAV                                          *DP1
      431   01 0019A    3210003F A            LW,R1    ZINTFLG           CHECK FOR MULTIPLE INTERRUPTS   *DP1
      432   01 0019B    21100001 A            CI,R1    1                                                 *DP1
      433   01 0019C    693001CB              BCS,3    ZTLHLT              MULTI-INTERRUPTS              *DP1
      434   01 0019D    21F00000 A            CI,R15   0                 COMPUTE TRAP/INT INDEX          *DP1
      435   01 0019E    683001CF              BCR,3    ZTLCMN3                                           *DP1
      436   01 0019F    20FFFE7E N            AI,R15   -ZTL41              REMOVE BIAS FROM INDEX        *DP1
      437   01 001A0    36F00E7A              DW,R15   L(2)                                              *DP1
      438   01 001A1    3210000F A            LW,X1    R15                 DETERMINE LOCATION            *DP1
      439   01 001A2    72420285              LB,R4    ZTLOC,X1                                          *DP1
      440   01 001A3    25400018 A            SLS,R4   24                CONVERT & STORE LOCATION        *DP1
      441   01 001A4    22700955              LI,X7    BA(ZTLMSG1)+13                                    *DP1
      442   01 001A5    6AE0023C              BAL,R14  ZIMSGSTR                                          *DP1
      443   01 001A6    6AE0023C              BAL,R14  ZIMSGSTR                                          *DP1
      444   01 001A7    3240024B              LW,R4    ZCSS              CONVERT & STORE CONDITION CODE  *DP1
      445   01 001A8    20700005 A            AI,X7    5                                                 *DP1
      446   01 001A9    6AE0023C              BAL,R14  ZIMSGSTR                                          *DP1
      447   01 001AA    3210000F A   ZTLCMN1  LW,R1    R15               CONVERT & STORE PSW1            *DP1
      448   01 001AB    23100004 A            MI,R1    4                                                 *DP1
      449   01 001AC    20100150              AI,R1    ZT40                                              *DP1
      450   01 001AD    B2400001 A            LW,R4    *R1                                               *DP1
      451   01 001AE    222FFFF8 A            LI,X2    -8                                                *DP1
      452   01 001AF    20700006 A            AI,X7    6                                                 *DP1
      453   01 001B0    6AE0023C              BAL,R14  ZIMSGSTR                                          *DP1
      454   01 001B1    652001B0              BIR,X2   %-1                                               *DP1
      455   01 001B2    20100001 A            AI,R1    1                 CONVERT & STORE PSW2            *DP1
      456   01 001B3    B2400001 A            LW,R4    *R1                                               *DP1
      457   01 001B4    222FFFF8 A            LI,X2    -8                                                *DP1
      458   01 001B5    20700006 A            AI,X7    6                                                 *DP1
      459   01 001B6    6AE0023C              BAL,R14  ZIMSGSTR                                          *DP1
      460   01 001B7    652001B6              BIR,X2   %-1                                               *DP1
      461   01 001B8    35F0024C              STW,R15  ZINTINDX                                          *DP1
      462   01 001B9    21F0000B A            CI,R15   11                CHECK FOR EXTERNAL INTERRUPT    *DP1
      463   01 001BA    692001D3              BCS,2    ZTLCMN4             EXTERNAL                      *DP1
      464   01 001BB    32C0027E              LW,R12   ZTLMSG1F          PRINT MESSAGE NO. 1             *DP1
      465   01 001BC    CF00052B     ZTLCMN2  HIO,0    *ZDKB+1           HALT/CLEAR KSR                  *DP1
      466   01 001BD    6AF005C9              BAL,R15  ZSML40              PRINT                         *DP1
      467   01 001BE    3300003E A            MTW,0    ZSIG9             SIGMA 9 TEST                    *DP1
      468   01 001BF    683001CB              BCR,3    ZTLHLT              NO                            *DP1
      469   01 001C0    32F0024C              LW,R15   ZINTINDX          TEST FOR PROCESSOR FAULT INT    *DP1
      470   01 001C1    21F00007 A            CI,R15   7                                                 *DP1
      471   01 001C2    683001D5              BCR,3    ZTLCMN5                                           *DP1
      472   01 001C3    21F00008 A            CI,R15   8               TEST FOR MEMORY FAULT INTERRUPT   *DP1
      473   01 001C4    683001FA              BCR,3    ZTLCMN10                                          *DP1
      474   01 001C5    21F00003 A            CI,R15   3                 TEST FOR MEMORY PARITY TRAP     *DP1
      475   01 001C6    683001F8              BCR,3    ZTLCMN9                                           *DP1
      476   01 001C7    21F00002 A            CI,R15   2                 TEST FOR WATCHDOG TIMER TRAP    *DP1
      477   01 001C8    68300229              BCR,3    ZTLCMN13                                          *DP1
      478   01 001C9    21F00004 A            CI,R15   4                 TEST FOR INSTRUCTION EXCEPTION  *DP1
      479   01 001CA    68300236              BCR,3    ZTLCMN14            TRAP                          *DP1
      480   01 001CB    22000000 A   ZTLHLT   LI,0     0                 CLEAR INT FLG                   *DP1
      481   01 001CC    3500003F A            STW,0    ZINTFLG                                           *DP1
      482   01 001CD    2E000000 A            WAIT                       HALT                            *DP1
      483   01 001CE    68000288              B        ZPC010            REINITIALIZE                    *DP1
      484                            *                                                                   *DP1
      485   01 001CF    32C00282     ZTLCMN3  LW,R12   ZTLMSG4F          EXTERNAL INTERRUPT              *DP1
      486   01 001D0    6AF005C9              BAL,R15  ZSML40            PRINT MESSAGE NO. 4             *DP1
      487   01 001D1    22F0000C A            LI,R15   12                SET INDEX FOR PSW1 & PSW2       *DP1
      488   01 001D2    680001AA              B        ZTLCMN1                                           *DP1
      489                            *                                                                   *DP1
      490   01 001D3    32C0027F     ZTLCMN4  LW,R12   ZTLMSG1G          PRINT PSW1 & PSW2 ONLY          *DP1
      491   01 001D4    680001BC              B        ZTLCMN2                                           *DP1
      492                            *                                                                   *DP1
      493   01 001D5    22300000 A   ZTLCMN5  LI,R3    0                 PROCESSOR FAULT INTERRUPT       *DP1
      494   01 001D6    221FFFE0 A            LI,X1    -32               POLL ALL POSSIBLE PROCESSORS    *DP1
      495   01 001D7    22208000 A            LI,R2    X'8000'                                           *DP1
      496   01 001D8    CF600002 A   ZTLCMN6  HIO,R6   *R2                 ** POLP ** COMMAND            *DP1
      497   01 001D9    698001DB              BCS,8    ZTLCMN7               ADDR NOT RECOGNIZED         *DP1
      498   01 001DA    694001E2              BCS,4    ZTLCMN8               PFI PULLED BY THIS PROCESSOR*DP1
      499   01 001DB    20200100 A   ZTLCMN7  AI,R2    X'100'            INCREMENT PROCESSOR ADDRESS     *DP1
      500   01 001DC    651001D8              BIR,X1   ZTLCMN6                                           *DP1
      501   01 001DD    21300000 A            CI,R3    0                 ANY PFI'S FOUND                 *DP1
      502   01 001DE    693001CB              BCS,3    ZTLHLT              YES-EXIT                      *DP1
      503   01 001DF    32C00283              LW,R12   ZTLMSG5F          OUTPUT MESSAGE NO. 5            *DP1
      504   01 001E0    6AF005C9              BAL,R15  ZSML40                                            *DP1
      505   01 001E1    680001CB              B        ZTLHLT            EXIT                            *DP1
      506                            *                                                                   *DP1
      507   01 001E2    35200004 A   ZTLCMN8  STW,R2   R4                PFI PULLED                      *DP1
      508   01 001E3    20404000 A            AI,R4    X'4000'           ISSUE POLR TO RESET PROCESSOR   *DP1
      509   01 001E4    CF600004 A            HIO,R6   *R4                 ** POLR ** COMMAND            *DP1
      510   01 001E5    204F4000 A            AI,R4    -X'C000'          CONVERT & STORE PROCESSOR NO.   *DP1
      511   01 001E6    25400010 A            SLS,R4   16                                                *DP1
      512   01 001E7    22700995              LI,X7    BA(ZTLMSG2)+9                                     *DP1
      513   01 001E8    6AE0023C              BAL,14   ZIMSGSTR                                          *D00
      514   01 001E9    6AE0023C              BAL,14   ZIMSGSTR                                          *D00
      515   01 001EA    32400006 A            LW,R4    R6                CONVERT & STORE FAULT STATUS    *DP1
      516   01 001EB    4B40024E              AND,R4   ZPFIMSK                                           *DP1
      517   01 001EC    25400016 A            SLS,R4   22                                                *DP1
      518   01 001ED    20700009 A            AI,X7    9                                                 *DP1
      519   01 001EE    6AE0023C              BAL,14   ZIMSGSTR                                          *D00
      520   01 001EF    6AE0023C              BAL,14   ZIMSGSTR                                          *D00
      521   01 001F0    02200030 A            LCI      3                 PRINT MESSAGE NO. 2             *DP1
      522   01 001F1    2B10024F              STM,R1   ZPFISTR                                           *DP1
      523   01 001F2    32C00280              LW,R12   ZTLMSG2F                                          *DP1
      524   01 001F3    6AF005C9              BAL,R15  ZSML40                                            *DP1
      525   01 001F4    02200030 A            LCI      3                                                 *DP1
      526   01 001F5    2A10024F              LM,R1    ZPFISTR                                           *DP1
      527   01 001F6    20300001 A            AI,R3    1                 SET FAULT FOUND                 *DP1
      528   01 001F7    680001DB              B        ZTLCMN7                                           *DP1
      529                            *                                                                   *DP1
      530   01 001F8    7020024B     ZTLCMN9  LC       ZCSS              MEMORY PARITY TRAP              *DP1
      531   01 001F9    69F00236              BCS,15   ZTLCMN14          CHECK FOR MEMORY DETERMINED TRAP*DP1
      532                            *                                                                   *DP1
      533   01 001FA    22103FF0 A   ZTLCMN10 LI,1     X'3FF0'           MEMORY DETERMINED TRAP/INTERR.  *D00
      534   01 001FB    226FFFFC A            LI,6     -4                                                *D00
      535   01 001FC    02200080 A            LCI      8                 READOUT MSW0                    *DP1
      536   01 001FD    AD400001 A            LMS,R4   *R1                                               *DP1
      537   01 001FE    32F0003E A            LW,15    ZSIG9                                            **D01
      538   01 001FF    21F000E3 A            CI,15    'T'               IS IT SIGMA                    **D01
      539   01 00200    69300203              BNE      ZTLCMN16          B: YES                         **D01
      540   01 00201    4B400E7B              AND,4    =X'7F0003FF'      CHECK FOR ERROR                **D01
      541   01 00202    68000204              B        %+2                                              **D01
      542   01 00203    4B40024D     ZTLCMN16 AND,4    ZMPMSK            CHECK FOR ERROR                **D01
      543   01 00204    69300210              BCS,3    ZTLCMN12              ERROR                       *DP1
      544   01 00205    20100001 A            AI,1     1                   HANDLE INTERLEVE              *D00
      545   01 00206    656001FC              BIR,6    ZTLCMN10+2                                        *D00
      546   01 00207    20103FFC A            AI,1     X'3FFC'           INCMENT MEMORY BANK             *D00
      547   01 00208    31100683              CW,R1    ZEMS              CHECK FOR END OF MEMORY         *DP1
      548   01 00209    691001FB              BCS,1    ZTLCMN10+1                                        *DP1
      549   01 0020A    32C00284              LW,R12   ZTLMSG6F          NO ERROR FOUND                  *DP1
      550   01 0020B    6AF005C9     ZTLCMN11 BAL,R15  ZSML40            PRINT MESSAGE NO. 6             *DP1
      551   01 0020C    32F0024C              LW,R15   ZINTINDX          IS THIS A TRAP                   C00
      552   01 0020D    21F00003 A            CI,R15   3                                                 *DP1
      553   01 0020E    68300236              BCR,3    ZTLCMN14            YES                           *DP1
      554   01 0020F    680001CB              B        ZTLHLT            EXIT                            *DP1
      555                            *                                                                   *DP1
      556   01 00210    227009A9     ZTLCMN12 LI,X7    BA(ZTLMSG3)+5     MEMORY INDICATES ERROR          *DP1
      557   01 00211    02200080 A            LCI      8                 CONVERT & STORE MSW0            *DP1
      558   01 00212    6AD00246              BAL,R13  ZLMSTR                                            *DP1
      559   01 00213    20700007 A            AI,X7    7                 CONVERT & STORE MSW1            *DP1
      560   01 00214    32F0003E A            LW,15    ZSIG9                                            **D01
      561   01 00215    21F000E3 A            CI,15    'T'               IS IT SIGMA                    **D01
      562   01 00216    69300222              BNE      ZTLCMN18          B: YES                         **D01
      563   01 00217    022000A0 A            LCI      10                                               **D01
      564   01 00218    6AD00246              BAL,13   ZLMSTR            CONVERT &  STORE MSW1          **D01
      565   01 00219    32F00E7C              LW,15    ='UNUS'                                          **D01
      566   01 0021A    35F00272              STW,15   ZTLMSG3+9                                        **D01
      567   01 0021B    32F00E7D              LW,15    =X'C5C44015'                                     **D01
      568   01 0021C    35F00273              STW,15   ZTLMSG3+10                                       **D01
      569   01 0021D    32F00E7E              LW,15    =X'E6F27E40'                                     **D01
      570   01 0021E    35F00271              STW,15   ZTLMSG3+8                                        **D01
      571   01 0021F    022000C0 A            LCI      12                                               **D01
      572   01 00220    AD400001 A            LMS,4    *1                CLEAR MSW0 AND MSW1            **D01
      573   01 00221    68000227              B        ZTLCMN17                                         **D01
      574   01 00222    02200090 A   ZTLCMN18 LCI      9                                                **D01
      575   01 00223    6AD00246              BAL,R13  ZLMSTR                                            *GOO
      576   01 00224    20700007 A            AI,X7    7                 CONVERT & STORE MSW2            *GOO
      577   01 00225    022000E0 A            LCI      14                  CLEAR SNAPSHOT                *GOO
      578   01 00226    6AD00246              BAL,R13  ZLMSTR                                            *GOO
      579   01 00227    32C00281     ZTLCMN17 LW,12    ZTLMSG3F          PRINT MESSAGE NO. 3            **D01
      580   01 00228    6800020B              B        ZTLCMN11                                          *GOO
      581                            *                                                                   *GOO
      582   01 00229    7020024B     ZTLCMN13 LC       ZCSS              WATCHDOG TIMMER TRAP            *GOO
      583   01 0022A    68400236              BCR,4    ZTLCMN14          CHECK FOR PROCESSOR TIMEOUT     *GOO
      584   01 0022B    68800236              BCR,8    ZTLCMN14          CHECK FOR NO OTHER TRAP PENDING *GOO
      585   01 0022C    32F0003E A            LW,15    ZSIG9                                             *D01
      586   01 0022D    21F000E3 A            CI,15    'T'               IS IT SIGMA                     *D01
      587   01 0022E    69300231              BNE      %+3               YES                             *D01
      588   01 0022F    221FFFC0 A            LI,X1    -64                                               *D01
      589   01 00230    68000232              B        %+2                                               *D01
      590   01 00231    221FFFE4 A            LI,X1    -28               SEND AN RIO TO ALL IOP'S        *DP1
      591   01 00232    22204000 A            LI,R2    X'4000'                                           *DP1
      592   01 00233    CF000002 A            HIO,0    *R2                 ** RIO **  COMMAND            *DP1
      593   01 00234    20200100 A            AI,R2    X'100'                                            *DP1
      594   01 00235    65100233              BIR,X1   %-2                                               *DP1
      595                            *                                                                   *DP1
      596   01 00236    22000000 A   ZTLCMN14 LI,0     0                 PDF F/F SET BY CURRENT TRAP     *DP1
      597   01 00237    3500003F A            STW,0    ZINTFLG                                           *DP1
      598   01 00238    0E10023A              LPSD,1   ZTLCMN15          CLEAR PDF                       *DP1
      599                                     BOUND    8                                                 *DP1
      600   01 0023A    000001CB     ZTLCMN15 DATA     ZTLHLT              CLEAR PDF & WAIT              *DP1
      601   01 0023B    00000000 A            DATA     0                                                 *DP1
      602                            *                                                                   *DP1
      603                            * CONVERT HEXADECIMAL DATA IN R4 TO EBCIDIC AND STORE BYTE BY (X7). *DP1
      604                            * MOST SIGNIFICANT CHARACTER CONVERTED, ONE CHARACTER PER ENTRY TO  *DP1
      605                            * ROUTINE.  CALL: BAL,R14.                                          *DP1
      606                            *                                                                   *DP1
      607   01 0023C    22500000 A   ZIMSGSTR LI,R5    0                 PLACE CHARACTER IN R5           *DP1
      608   01 0023D    25400304 A            SCD,R4   4                                                 *DP1
      609   01 0023E    21500009 A            CI,R5    9                 CHARACTER = 0-9                 *DP1
      610   01 0023F    69200244              BCS,2    ZIMSGST2            NO, A-F                       *DP1
      611   01 00240    205000F0 A            AI,R5    X'F0'             EBCIDIC 0-9                     *DP1
      612   01 00241    755E0000 A   ZIMSGST1 STB,R5   0,X7              STORE CODED CHARACTER           *DP1
      613   01 00242    20700001 A            AI,X7    1                 INCREMENT STORAGE ADDRESS       *DP1
      614   01 00243    E800000E A            B        *R14              EXIT                            *DP1
      615                            *                                                                   *DP1
      616   01 00244    205000B7 A   ZIMSGST2 AI,R5    X'B7'             EBCIDIC A-F                     *DP1
      617   01 00245    68000241              B        ZIMSGST1                                          *DP1
      618                            *                                                                   *DP1
      619                            * PREFORM LMS INSTRUCTION & STORE MEMORY FAULT DATA.                *DP1
      620                            * CALL: BAL,R13                                                     *DP1
      621                            *                                                                   *DP1
      622   01 00246    AD400001 A   ZLMSTR   LMS,R4   *R1               LOAD MEMORY STATUS              *DP1
      623   01 00247    222FFFF8 A            LI,X2    -8                CONVERT & STORE STATUS          *DP1
      624   01 00248    6AE0023C              BAL,R14  ZIMSGSTR                                          *DP1
      625   01 00249    65200248              BIR,X2   %-1                                               *DP1
      626   01 0024A    E800000D A            B        *R13              EXIT                            *DP1
      627                            *                                                                   *DP1
      628   01 0024B    00000000 A   ZCSS     DATA     0                 TRAP-INTERRUPT CONDITION CODES  *DP1
      629   01 0024C    00000000 A   ZINTINDX DATA     0                                                 *DP1
      630   01 0024D    FFF00000 A   ZMPMSK   DATA     X'FFF00000'                                       *DP1
      631   01 0024E    000000FC A   ZPFIMSK  DATA     X'FC'                                             *DP1
      632   01 0024F                 ZPFISTR  RES      3                                                 *DP1
      633   01 00252    E3D9C1D7 A   ZTLMSG1  TEXT     'TRAP/INTER = XX TCC=X PSW1=XXXXXXXX '            *DP1
            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
      634   01 0025B    D7E2E6F2 A            TEXT     'PSW2=XXXXXXXX  REGSAVE=000140
'                  *DP1
            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
      635   01 00263    D7D9D6C3 A   ZTLMSG2  TEXT     'PROC.NO.=XX  F/STAT=XX'                          *DP1
            01 00264    4BD5D64B A
            01 00265    7EE7E740 A
            01 00266    40C661E2 A
            01 00267    E3C1E37E A
            01 00268    E7E74040 A
      636   01 00269    D4E2E6F0 A   ZTLMSG3  TEXT     'MSW0=XXXXXXXX  MSW1=XXXXXXXX  MSW2=XXXXXXXX
'    *DP1
            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
      637   01 00274    E4D5C4C5 A   ZTLMSG4  TEXT     'UNDEF INTER
','NO PROC FAULT
','NO MEM FAULT
'   *DP1
            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
      638   01 0027E    20420948 A   ZTLMSG1F ZFMW     2,0,66,BA(ZTLMSG1)                                *DP1
      639   01 0027F    202C095E A   ZTLMSG1G ZFMW     2,0,44,BA(ZTLMSG1)+22                             *DP1
      640   01 00280    2016098C A   ZTLMSG2F ZFMW     2,0,22,BA(ZTLMSG2)                                *DP1
      641   01 00281    202C09A4 A   ZTLMSG3F ZFMW     2,0,44,BA(ZTLMSG3)                                *DP1
      642   01 00282    200C09D0 A   ZTLMSG4F ZFMW     2,0,12,BA(ZTLMSG4)                                *DP1
      643   01 00283    200E09DC A   ZTLMSG5F ZFMW     2,0,14,BA(ZTLMSG4)+12                             *DP1
      644   01 00284    200D09EA A   ZTLMSG6F ZFMW     2,0,13,BA(ZTLMSG4)+26                             *DP1
      645   01 00285    40       A   ZTLOC    DATA,1   64,65,70,76,77,80,81,86,87,92   INTERRUPT LOCATION*DP1
            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
      646                            *
      647                            *
      648                            *
      649                            * INITIALIZATION FOR MAIN-LINE TRANSLATOR
      650                            *
      651   01 00288    6AF00523     ZPC010   BAL,R15  ZSCIR
      652   01 00289    32F002A0              LW,R15   ZRECOV
      653   01 0028A    35F00026 A            STW,R15  X'26'
      654   01 0028B    3500003F A            STW,R0   ZINTFLG           CLEAR INTERRUPT FLAG            *DP1
      655   01 0028C    6D000023 A            WD,0     X'23'             RESET INTERRUPT INHIBITS        *DP1
      656   01 0028D    22F00C30 A            LI,R15   X'C30'            ARM & ENABLE GROUP 0 INTERRUPTS *DP1
      657   01 0028E    6DF01200 A            WD,R15   X'1200'                                           *DP1
      658   01 0028F    32F0068A              LW,R15   ZMFRIOAD
      659   01 00290    25F00402 A            SAS,R15  2
      660   01 00291    55F2045C              STH,R15  ZMFRX7,X1
      661   01 00292    55F2045D              STH,R15  ZMFRNBA,X1
      662   01 00293    52F2052B              LH,R15   ZDKB+1,X1
      663   01 00294    55F20471              STH,R15  ZMFRDA,X1
      664   01 00295    32C0029F     ZPC020   LW,R12   ZPC050
      665   01 00296    6AF005C6              BAL,R15  ZTMNCR
      666   01 00297    22900000 A            LI,R9    0
      667   01 00298    6AF002E1              BAL,R15  ZDSTRN
      668   01 00299    6800029A              B        %+1
      669   01 0029A    22F0029D              LI,R15   ZPC030
      670   01 0029B    55F202C8              STH,R15  ZTRN60,X1
      671   01 0029C    680002B1              B        ZPC210
      672   01 0029D    6AF002EE     ZPC030   BAL,R15  ZDSSET
      673   01 0029E    68000295              B        ZPC020
      674   01 0029F    10010B48 A   ZPC050   ZFMW     1,0,1,BA(ZDS)
      675   01 002A0    68000288     ZRECOV   B        ZPC010
      676                                     PAGE
      677                            *
      678                            * CLEAR EXISTENT EXECUTE TABLE AND CONSTRUCT NEW TABLE
      679                            *
      680   01 002A1    6AF00523     ZPC200   BAL,R15  ZSCIR
      681   01 002A2    3500002D A            STW,R0   ZUDFPM
      682   01 002A3    3500003D A            STW,R0   ZDSFLG
      683   01 002A4    55020662              STH,R0   ZGOPTR,X1
      684   01 002A5    22B002B3              LI,R11   ZTRN10
      685   01 002A6    55B202C8              STH,R11  ZTRN60,X1
      686   01 002A7    32B00688              LW,R11   ZPMADR
      687   01 002A8    35B00689              STW,R11  ZPMPTR
      688   01 002A9    32B00686              LW,R11   ZLKADR
      689   01 002AA    35B00687              STW,R11  ZLKPTR
      690   01 002AB    32B00E78              LW,R11   ZEXADR
      691   01 002AC    6AF00498              BAL,R15  ZSTPTR
      692   01 002AD    32B00684              LW,R11   ZLBADR
      693   01 002AE    35B00685              STW,R11  ZLBPTR
      694   01 002AF    32C002CA              LW,R12   ZTRN100
      695   01 002B0    6AF005C6              BAL,R15  ZTMNCR
      696   01 002B1    72A002CE     ZPC210   LB,R10   ZNL
      697   01 002B2    35A00039 A            STW,R10  ZCHAR
      698                                     PAGE
      699                            *
      700                            * MAIN-LINE TRANSLATOR
      701                            *
      702   01 002B3    22800000 A   ZTRN10   LI,R8    0
      703   01 002B4    6AF00436              BAL,R15  ZFNDTB
      704   01 002B5    227FFFEA A            LI,X7    -ZOPLEN
      705   01 002B6    32BE02E1              LW,R11   ZOPTBL,X7
      706   01 002B7    71A0000B A            CB,R10   R11
      707   01 002B8    683002C7              BCR,3    ZTRN50
      708   01 002B9    657002B6              BIR,X7   %-3
      709   01 002BA    21A000C1 A            CI,R10   X'C1'
      710   01 002BB    691002C5              BCS,1    ZTRN40
      711   01 002BC    21A000E9 A            CI,R10   X'E9'
      712   01 002BD    692002C5              BCS,2    ZTRN40
      713   01 002BE    3280000A A            LW,R8    R10
      714   01 002BF    6AF0044C              BAL,R15  ZFAN+1
      715   01 002C0    227FFFEA A            LI,X7    -ZOPLEN
      716   01 002C1    32BE02E1              LW,R11   ZOPTBL,X7
      717   01 002C2    71A0000B A            CB,R10   R11
      718   01 002C3    683002C7              BCR,3    ZTRN50
      719   01 002C4    657002C1              BIR,X7   %-3
      720   01 002C5    22C00001 A   ZTRN40   LI,R12   X'01'
      721   01 002C6    6800047F              B        ZSNER
      722   01 002C7    EAF0000B A   ZTRN50   BAL,R15  *R11
      723   01 002C8    6AF002B3     ZTRN60   BAL,R15  ZTRN10
      724   01 002C9    680002B3              B        ZTRN10
      725   01 002CA    00010B38 A   ZTRN100  ZFMW     0,0,1,BA(ZNL)
      726                                     PAGE
      727                            *
      728                            * SYNTAX TEST LANGUAGE TABLE CONTAINING ALL SPECIAL CHARACTERS
      729                            *  ONE WORD PER SYNTAX OR SPECIAL CHARACTER
      730                            *   BITS 0-7      SYNTAX OR SPECIAL CHARACTER
      731                            *   BITS 8-14     RESERVED
      732                            *   BITS 15-31    SYNTAX PROCESSOR SUBROUTINE ADDRESS
      733                            *
      734         01 002CB           ZOPBEG   EQU      %
      735   01 002CB    5D000333     ZRP      ZFOT     X'5D',0,ZRPTRN    ) CLOSE LOOP
      736   01 002CC    610003F8     ZFS      ZFOT     X'61',0,ZFSTRN    / RELEASE TO EXECUTE
      737   01 002CD    4000038B     ZSP      ZFOT     X'40',0,ZPLTRN    FIELD SEPARATORS
      738   01 002CE    1500038B     ZNL      ZFOT     X'15',0,ZPLTRN    NL
      739   01 002CF    4E00038B     ZPL      ZFOT     X'4E',0,ZPLTRN    +
      740   01 002D0    5000038B              ZFOT     X'50',0,ZPLTRN    +
      741   01 002D1    60000308     ZMS      ZFOT     X'60',0,ZMSTRN    - FIELD DELETOR
      742         01 002D2           ZOPTB2   EQU      %
      743         00000007           ZOPLN2   EQU      %-ZOPBEG
      744   01 002D2    5B0002E1     ZDS      ZFOT     X'5B',0,ZDSTRN    % IMMEDIATE EXECUTION
      745   01 002D3    4D000324     ZLP      ZFOT     X'4D',0,ZLPTRN    ( OPEN LOOP
      746   01 002D4    7C000347     ZAS      ZFOT     X'7C',0,ZASTRN    ' TRANSFER OR LINK
      747   01 002D5    6B00038B     ZCO      ZFOT     X'6B',0,ZPLTRN    , PARAMETER SEPARATOR
      748   01 002D6    4B000342     ZPD      ZFOT     X'4B',0,ZPDTRN    . PLACE MARKER
      749   01 002D7    5C0002FF     ZCL      ZFOT     X'5C',0,ZCLTRN    * COMMENTS LINE
      750   01 002D8    7E000310     ZEQ      ZFOT     X'7E',0,ZEQTRN    = MNEMONIC REDEFINITION
      751   01 002D9    7A0002C5              ZFOT     X'7A',0,ZTRN40    0 CURRENTLY
      752   01 002DA    7B0002C5              ZFOT     X'7B',0,ZTRN40    =  UNDEFINED
      753   01 002DB    4C0002C5              ZFOT     X'4C',0,ZTRN40    <   SPECIAL
      754   01 002DC    6C0002C5              ZFOT     X'6C',0,ZTRN40    (   CHARACTERS
      755   01 002DD    5E0002C5              ZFOT     X'5E',0,ZTRN40    ;
      756   01 002DE    6E0002C5              ZFOT     X'6E',0,ZTRN40    >
      757   01 002DF    4F0002C5              ZFOT     X'4F',0,ZTRN40    1
      758   01 002E0    7D0002C5              ZFOT     X'7D',0,ZTRN40    '
      759         01 002E1           ZOPTBL   EQU      %
      760         00000016           ZOPLEN   EQU      %-ZOPBEG
      761                                     PAGE
      762                            *
      763                            * DOLLAR SIGN TRANSLATOR PROCESSOR TO INITIALIZE TRANSLATOR
      764                            *
      765   01 002E1    35F00032 A   ZDSTRN   STW,R15  ZDSLNK
      766   01 002E2    6AF004C9              BAL,R15  ZTST3
      767   01 002E3    35900691              STW,R9   P0
      768   01 002E4    3300003D A            MTW,0    ZDSFLG
      769   01 002E5    693002E8              BCS,3    %+3
      770   01 002E6    32F0068D              LW,R15   ZEXPT0
      771   01 002E7    35F00033 A            STW,R15  ZDSPTR
      772   01 002E8    22B00691              LI,R11   P0
      773   01 002E9    6AF00498              BAL,R15  ZSTPTR
      774   01 002EA    35B0003D A            STW,R11  ZDSFLG
      775   01 002EB    22B002EE              LI,R11   ZDSSET
      776   01 002EC    55B202C8              STH,R11  ZTRN60,X1
      777   01 002ED    E8020032 A            B        *ZDSLNK,X1
      778                            *
      779                            * IMMEDIATE EXECUTION OF DIRECTIVE
      780                            *
      781   01 002EE    35F00032 A   ZDSSET   STW,R15  ZDSLNK
      782   01 002EF    6AF00523              BAL,R15  ZSCIR
      783   01 002F0    33000691              MTW,0    P0
      784   01 002F1    683002F9              BCR,3    ZDSSET10
      785   01 002F2    22B00691              LI,R11   P0
      786   01 002F3    6AF00498              BAL,R15  ZSTPTR
      787   01 002F4    6AF00629              BAL,R15  ZMPTWA
      788   01 002F5    B2B0068D              LW,R11   *ZEXPT0
      789   01 002F6    EAF0000B A            BAL,R15  *R11
      790   01 002F7    680002F8              B        %+1
      791   01 002F8    6AF00523              BAL,R15  ZSCIR
      792   01 002F9    3500003D A   ZDSSET10 STW,R0   ZDSFLG
      793   01 002FA    22B002B3              LI,R11   ZTRN10
      794   01 002FB    55B202C8              STH,R11  ZTRN60,X1
      795   01 002FC    32B00033 A            LW,R11   ZDSPTR
      796   01 002FD    6AF00498              BAL,R15  ZSTPTR
      797   01 002FE    E8000032 A            B        *ZDSLNK
      798                                     PAGE
      799                            *
      800                            * ASTERISK TRANSLATOR PROCESSOR, VERIFIES LEGAL COMMENTS LINE
      801                            *  OR AN ERRONEOUS ENTRY, IF LEGAL WAIT FOR NL TO TERMINATE
      802                            *   COMMENTS LINE AND RETURN TO MAIN-LINE TRANSLATOR, IF ILLEGAL
      803                            *    DELETE CURRENT FIELD AND OUTPUT ERROR MESSAGE AND RETURN TO
      804                            *     MAIN-LINE TRANSLATOR FOR RE-ENTRY OF SAME FIELD
      805                            *      NO EXECUTE TABLE ENTRY
      806                            *
      807   01 002FF    35F00022 A   ZCLTRN   STW,R15  ZCLLNK
      808   01 00300    22C00010 A            LI,R12   X'10'
      809   01 00301    32F0003A A            LW,R15   ZLSTCH
      810   01 00302    71F002CE              CB,R15   ZNL
      811   01 00303    6930047F              BCS,3    ZSNER
      812   01 00304    6AF00459              BAL,R15  ZFOC
      813   01 00305    71A002CE              CB,R10   ZNL
      814   01 00306    69300304              BCS,3    %-2
      815   01 00307    E8000022 A            B        *ZCLLNK
      816                            *
      817                            * MINUS SIGN TRANSLATOR PROCESSOR
      818                            *  DELETES CURRENT FIELD FOR RE-ENTRY
      819                            *   NO EXECUTE TABLE ENTRY
      820                            *
      821   01 00308    35F00024 A   ZMSTRN   STW,R15  ZMSLNK
      822   01 00309    32B0068D              LW,R11   ZEXPT0
      823   01 0030A    6AF00498              BAL,R15  ZSTPTR
      824   01 0030B    22C00000 A            LI,R12   0
      825   01 0030C    B5C0068D              STW,R12  *ZEXPT0
      826   01 0030D    32C002CA              LW,R12   ZTRN100
      827   01 0030E    6AF005C6              BAL,R15  ZTMNCR
      828   01 0030F    E8000024 A            B        *ZMSLNK
      829                                     PAGE
      830                            *
      831                            * EQUAL TRANSLATOR PROCESSOR, NO EXECUTE TABLE ENTRY
      832                            *  RE-ASSIGN MNEMONIC SUB-ROUTINE, ALPHA CHARACTERS ONLY
      833                            *   VERIFIES MNEMONIC EXISTS AND RE-ASSIGN MNEMONIC NON-EXISTENT
      834                            *    REPLACES (DELETES) CURRENT MNEMONIC NAME
      835                            *     INSERTS NEW MNEMONIC INTO SUBROUTINE DICTIONARY
      836                            *
      837   01 00310    35F00023 A   ZEQTRN   STW,R15  ZEQLNK
      838   01 00311    6AF004C9              BAL,R15  ZTST3
      839   01 00312    32900008 A            LW,R9    R8
      840   01 00313    6AF00445              BAL,R15  ZFA
      841   01 00314    33000008 A            MTW,0    R8
      842   01 00315    6830031D              BCR,3    ZEQTRN10
      843   01 00316    227FFFE5 A            LI,X7    -ZSRLEN
      844   01 00317    35700006 A            STW,X7   X6
      845   01 00318    318E06FB              CW,R8    ZSRTBL,X7
      846   01 00319    6830031D              BCR,3    ZEQTRN10
      847   01 0031A    319E06FB              CW,R9    ZSRTBL,X7
      848   01 0031B    68300321              BCR,3    ZEQTRN20
      849   01 0031C    65700317              BIR,X7   %-5
      850   01 0031D    22C00053 A   ZEQTRN10 LI,R12   X'53'
      851   01 0031E    6800047F              B        ZSNER
      852   01 0031F    319E06FB              CW,R9    ZSRTBL,X7
      853   01 00320    6830031D              BCR,3    ZEQTRN10
      854   01 00321    6570031F     ZEQTRN20 BIR,X7   %-2
      855   01 00322    358C06FB              STW,R8   ZSRTBL,X6
      856   01 00323    E8000023 A            B        *ZEQLNK
      857                                     PAGE
      858                            *
      859                            * LEFT PARAN TRANSLATOR PROCESSOR FOR OPEN LOOP
      860                            *  EXECUTE TABLE ENTRY EQUALS TWO WORDS FOR REITERATION COUNT
      861                            *   GREATER THAN ONE, NON-EXISTENT FOR 0 AND 1
      862                            *
      863   01 00324    35F00025 A   ZLPTRN   STW,R15  ZLPLNK
      864   01 00325    6AF004D0              BAL,R15  ZTST7
      865   01 00326    32F00656              LW,R15   ZLPPRO
      866   01 00327    B5F0068D              STW,R15  *ZEXPT0
      867   01 00328    6AF004AD              BAL,R15  ZTST1
      868   01 00329    22F00000 A            LI,R15   0
      869   01 0032A    33000009 A            MTW,0    R9
      870   01 0032B    6820032D              BCR,2    %+2
      871   01 0032C    32F0068D              LW,R15   ZEXPT0
      872   01 0032D    B5F00685              STW,R15  *ZLBPTR
      873   01 0032E    33100685              MTW,1    ZLBPTR
      874   01 0032F    33000009 A            MTW,0    R9
      875   01 00330    E8200025 A            BCR,2    *ZLPLNK
      876   01 00331    6AF00494              BAL,R15  ZADPTR
      877   01 00332    E8000025 A            B        *ZLPLNK
      878                            *
      879                            * RIGHT PARAN TRANSLATOR PROCESSOR FOR CLOSE LOOP
      880                            *  EXECUTE TABLE ENTRY EQUALS TWO WORDS
      881                            *   SECOND WORD CONTAINS ADDRESS OF BASE WORD FOR START OF LOOP
      882                            *
      883   01 00333    35F00025 A   ZRPTRN   STW,R15  ZRPLNK
      884   01 00334    6AF0038B              BAL,R15  ZPLTRN
      885   01 00335    6AF004D0              BAL,R15  ZTST7
      886   01 00336    22C00040 A            LI,R12   X'40'
      887   01 00337    32F00685              LW,R15   ZLBPTR
      888   01 00338    31F00684              CW,R15   ZLBADR
      889   01 00339    6830047F              BCR,3    ZSNER
      890   01 0033A    32F00657              LW,R15   ZRPPRO-1
      891   01 0033B    B5F0068D              STW,R15  *ZEXPT0
      892   01 0033C    33F00685              MTW,-1   ZLBPTR
      893   01 0033D    B2F00685              LW,R15   *ZLBPTR
      894   01 0033E    E8200025 A            BCR,2    *ZRPLNK
      895   01 0033F    B5F0068E              STW,R15  *ZEXPT1
      896   01 00340    6AF00494              BAL,R15  ZADPTR
      897   01 00341    E8000025 A            B        *ZRPLNK
      898                                     PAGE
      899                            *
      900                            * PERIOD , PLACE MARKER, TRANSLATOR PROCESSOR
      901                            *  LEGAL IF NON-ZERO PLACE MARKER, MARK PLACE IN CONTROL LINE
      902                            *   ILLEGAL IF ZERO PLACE MARKER AND/OR PREVIOUSLY DEFINED
      903                            *     NO EXECUTE TABLE ENTRY, ENTRY TO PLACE MARKER TABLE
      904                            *
      905   01 00342    35F00027 A   ZPDTRN   STW,R15  ZPDLNK
      906   01 00343    6AF004D0              BAL,R15  ZTST7
      907   01 00344    6AF004C3              BAL,R15  ZTST2
      908   01 00345    6AF00354              BAL,R15  ZPMEN
      909   01 00346    E8000027 A            B        *ZPDLNK
      910                            *
      911                            * DELTA TRANSLATOR PROCESSOR
      912                            *  ABSOLUTE TRANSFER REFERENCE TO NON-ZERO PLACE MARKER
      913                            *   LINK RETURN TRANSFER REFERENCE TO ZERO PLACE MARKER
      914                            *     ABSOLUTE TRANSFER EQUALS TWO WORD ENTRY TO EXECUTE TABLE
      915                            *      LINK TRANSFER EQUALS ONE WORD ENTRY TO EXECUTE TABLE
      916                            *
      917   01 00347    35F00028 A   ZASTRN   STW,R15  ZASLNK
      918   01 00348    6AF004D0              BAL,R15  ZTST7
      919   01 00349    22F0066B              LI,R15   ZLKAS
      920   01 0034A    B5F0068D              STW,R15  *ZEXPT0
      921   01 0034B    33000009 A            MTW,0    R9
      922   01 0034C    68300351              BCR,3    ZASTRN10
      923   01 0034D    32F00669              LW,R15   ZASPRO-1
      924   01 0034E    B5F0068D              STW,R15  *ZEXPT0
      925   01 0034F    6AF004C3              BAL,R15  ZTST2
      926   01 00350    6AF00353              BAL,R15  ZPMRQ
      927   01 00351    6AF00494     ZASTRN10 BAL,R15  ZADPTR
      928   01 00352    E8000028 A            B        *ZASLNK
      929                                     PAGE
      930                            *
      931                            * PLACE MARKER PROCESSOR FOR PLACE MARKER TABLE
      932                            *  PROCESSES PLACE MARKER ENTRIES AND REQUESTS
      933                            *   ASSUMES R9 CONTAINS BINARY VALUE FOR PLACE MARKER
      934                            *
      935   01 00353    20900800 A   ZPMRQ    AI,R9    X'800'
      936   01 00354    35F00029 A   ZPMEN    STW,R15  ZPMLNK
      937   01 00355    32700688              LW,X7    ZPMADR
      938   01 00356    38700689              SW,X7    ZPMPTR
      939   01 00357    6830037A              BCR,3    ZPMEN40
      940   01 00358    B2BE0689     ZPMEN10  LW,R11   *ZPMPTR,X7
      941   01 00359    25B0046F A            SAS,R11  -17
      942   01 0035A    21900800 A            CI,R9    X'800'
      943   01 0035B    69400362              BCS,4    ZPMEN20
      944   01 0035C    21B00800 A            CI,R11   X'800'
      945   01 0035D    6940036C              BCS,4    ZPMEN30
      946   01 0035E    3190000B A            CW,R9    R11
      947   01 0035F    69300379              BCS,3    ZPMEN40-1
      948   01 00360    22C00031 A            LI,R12   X'31'
      949   01 00361    6800047F              B        ZSNER
      950   01 00362    21B00800 A   ZPMEN20  CI,R11   X'800'
      951   01 00363    69400379              BCS,4    ZPMEN40-1
      952   01 00364    20B00800 A            AI,R11   X'800'
      953   01 00365    3190000B A            CW,R9    R11
      954   01 00366    69300379              BCS,3    ZPMEN40-1
      955   01 00367    22B1FFFF A            LI,R11   X'1FFFF'
      956   01 00368    CBBE0689              AND,R11  *ZPMPTR,X7
      957   01 00369    B5B0068E              STW,R11  *ZEXPT1
      958   01 0036A    6AF0049A              BAL,R15  ZTST4
      959   01 0036B    E8000029 A            B        *ZPMLNK
      960   01 0036C    22F003FF A   ZPMEN30  LI,R15   X'3FF'
      961   01 0036D    4BB0000F A            AND,R11  R15
      962   01 0036E    3190000B A            CW,R9    R11
      963   01 0036F    69300379              BCS,3    ZPMEN40-1
      964   01 00370    33F0002D A            MTW,-1   ZUDFPM
      965   01 00371    B2FE0689              LW,R15   *ZPMPTR,X7
      966   01 00372    32B0068D              LW,R11   ZEXPT0
      967   01 00373    B5B0000F A            STW,R11  *R15
      968   01 00374    33F00689              MTW,-1   ZPMPTR
      969   01 00375    B2B00689              LW,R11   *ZPMPTR
      970   01 00376    33100007 A            MTW,1    X7
      971   01 00377    B5BE0689              STW,R11  *ZPMPTR,X7
      972   01 00378    68000355              B        ZPMEN+1
      973   01 00379    65700358              BIR,X7   ZPMEN10
      974   01 0037A    21900800 A   ZPMEN40  CI,R9    X'800'
      975   01 0037B    6940037F              BCS,4    %+4
      976   01 0037C    25900411 A            SAS,R9   17
      977   01 0037D    4990068D              OR,R9    ZEXPT0
      978   01 0037E    68000383              B        %+5
      979   01 0037F    3310002D A            MTW,1    ZUDFPM
      980   01 00380    25900411 A            SAS,R9   17
      981   01 00381    4990068E              OR,R9    ZEXPT1
      982   01 00382    6AF0049A              BAL,R15  ZTST4
      983   01 00383    B5900689              STW,R9   *ZPMPTR
      984   01 00384    22C00030 A            LI,R12   X'30'
      985   01 00385    32B00689              LW,R11   ZPMPTR
      986   01 00386    3310000B A            MTW,1    R11
      987   01 00387    31B0068A              CW,R11   ZMFRIOAD
      988   01 00388    6920047F              BCS,2    ZSNER
      989   01 00389    35B00689              STW,R11  ZPMPTR
      990   01 0038A    E8000029 A            B        *ZPMLNK
      991                                     PAGE
      992                            *
      993                            * FIELD SEPARATORS,SPACE,PLUS,NEW LINE,ETC.
      994                            *  PROCESSES LEADING DECIMAL RE-ITERATION COUNT OR PLACE MARKER
      995                            *   IDENTIFIER FIELD FOR CALLED SUB-ROUTINE
      996                            *    PROCESSES TRAILING PARAMETERS FOR SUB-ROUTINES
      997                            *
      998   01 0038B    33000008 A   ZPLTRN   MTW,0    R8
      999   01 0038C    683004C9              BCR,3    ZTST3
     1000   01 0038D    35F0002C A            STW,R15  ZPLLNK
     1001   01 0038E    227FFFE5 A            LI,X7    -ZSRLEN
     1002   01 0038F    318E06FB              CW,R8    ZSRTBL,X7
     1003   01 00390    68300394              BCR,3    ZPLTRN20
     1004   01 00391    6570038F              BIR,X7   %-2
     1005   01 00392    22C00050 A            LI,R12   X'50'
     1006   01 00393    6800047F              B        ZSNER
     1007   01 00394    32BE0716     ZPLTRN20 LW,R11   ZSRADR,X7
     1008   01 00395    B5B0068D              STW,R11  *ZEXPT0
     1009   01 00396    F2C0068D              LB,R12   *ZEXPT0
     1010   01 00397    4BC00003 A            AND,R12  R3
     1011   01 00398    683002C7              BCR,3    ZTRN50
     1012   01 00399    3300003D A            MTW,0    ZDSFLG
     1013   01 0039A    693003AF              BCS,3    ZPLTRN30
     1014   01 0039B    22C00051 A            LI,R12   X'51'
     1015   01 0039C    7110000B A            CB,R1    R11
     1016   01 0039D    6840047F              BCR,4    ZSNER
     1017   01 0039E    25B00206 A            SCS,R11  6
     1018   01 0039F    25B00402 A            SAS,R11  2
     1019   01 003A0    F5B0068D              STB,R11  *ZEXPT0
     1020   01 003A1    6AF004AD              BAL,R15  ZTST1
     1021   01 003A2    6AF003BB              BAL,R15  ZCOTRN
     1022   01 003A3    22F002C8              LI,R15   ZTRN60
     1023   01 003A4    71A002D1              CB,R10   ZMS
     1024   01 003A5    E83002D1              BCR,3    *ZMS
     1025   01 003A6    6AF00494              BAL,R15  ZADPTR
     1026   01 003A7    22800000 A            LI,R8    0
     1027   01 003A8    22900000 A            LI,R9    0
     1028   01 003A9    22F002C8              LI,R15   ZTRN60
     1029   01 003AA    71A002CC              CB,R10   ZFS
     1030   01 003AB    E83002CC              BCR,3    *ZFS
     1031   01 003AC    71A002CB              CB,R10   ZRP
     1032   01 003AD    E83002CB              BCR,3    *ZRP
     1033   01 003AE    E800002C A            B        *ZPLLNK
     1034   01 003AF    22C00052 A   ZPLTRN30 LI,R12   X'52'
     1035   01 003B0    7120000B A            CB,R2    R11
     1036   01 003B1    6840047F              BCR,4    ZSNER
     1037   01 003B2    25B00204 A            SCS,R11  4
     1038   01 003B3    25B00404 A            SAS,R11  4
     1039   01 003B4    F5B0068D              STB,R11  *ZEXPT0
     1040   01 003B5    6AF004C9              BAL,R15  ZTST3
     1041   01 003B6    6AF003BB              BAL,R15  ZCOTRN
     1042   01 003B7    22F002C8              LI,R15   ZTRN60
     1043   01 003B8    71A002D1              CB,R10   ZMS
     1044   01 003B9    E83002D1              BCR,3    *ZMS
     1045   01 003BA    680002C8              B        ZTRN60
     1046                                     PAGE
     1047                            *
     1048                            * COMMA TRANSLATOR PROCESSOR
     1049                            *  CALLED ONLY BY FIELD SEPARATOR TRANSLATOR PROCESSOR
     1050                            *   PROCESSES ALL SUB-ROUTINE TRAILING PARAMETERS
     1051                            *
     1052   01 003BB    35F0002A A   ZCOTRN   STW,R15  ZCOLNK
     1053   01 003BC    32B0068E              LW,R11   ZEXPT1
     1054   01 003BD    35B00030 A            STW,R11  ZPCHK
     1055   01 003BE    35B00031 A            STW,R11  ZPCHK1
     1056   01 003BF    F2B0068D              LB,R11   *ZEXPT0
     1057   01 003C0    25B0047C A            SAS,R11  -4
     1058   01 003C1    35B0002F A            STW,R11  ZPCNT
     1059   01 003C2    75B60455              STB,R11  ZPC7M,X3
     1060   01 003C3    D2B2068D              LH,R11   *ZEXPT0,X1
     1061   01 003C4    38B0002F A            SW,R11   ZPCNT
     1062   01 003C5    35B0002E A            STW,R11  ZPTY
     1063   01 003C6    22800000 A   ZCOTRN10 LI,R8    0
     1064   01 003C7    22900000 A            LI,R9    0
     1065   01 003C8    B580068E              STW,R8   *ZEXPT1
     1066   01 003C9    F270002E A            LB,R7    *ZPTY
     1067   01 003CA    33F0002F A            MTW,-1   ZPCNT
     1068   01 003CB    691003DD              BCS,1    ZCOTRN50
     1069   01 003CC    71A002D5              CB,R10   ZCO
     1070   01 003CD    683003D4              BCR,3    ZCOTRN30
     1071   01 003CE    71A60455              CB,R10   ZPC7M,X3
     1072   01 003CF    683003D4              BCR,3    ZCOTRN30
     1073   01 003D0    21700008 A            CI,R7    8
     1074   01 003D1    684003D7              BCR,4    ZCOTRN40
     1075   01 003D2    22C00055 A            LI,R12   X'55'
     1076   01 003D3    6800047F              B        ZSNER
     1077   01 003D4    2570047C A   ZCOTRN30 SAS,R7   -4
     1078   01 003D5    670E03F0              EXU      ZPRTYP,X7
     1079   01 003D6    B590068E              STW,R9   *ZEXPT1
     1080   01 003D7    3310002E A   ZCOTRN40 MTW,1    ZPTY
     1081   01 003D8    6AF0049A              BAL,R15  ZTST4
     1082   01 003D9    33000009 A            MTW,0    R9
     1083   01 003DA    683003C6              BCR,3    ZCOTRN10
     1084   01 003DB    35B00031 A            STW,R11  ZPCHK1
     1085   01 003DC    680003C6              B        ZCOTRN10
     1086   01 003DD    71A60455     ZCOTRN50 CB,R10   ZPC7M,X3
     1087   01 003DE    693003E0              BCS,3    %+2
     1088   01 003DF    22A00040 A            LI,R10   X'40'
     1089   01 003E0    227FFFF9 A            LI,X7    -ZOPLN2
     1090   01 003E1    32BE02D2              LW,R11   ZOPTB2,X7
     1091   01 003E2    71A0000B A            CB,R10   R11
     1092   01 003E3    683003E7              BCR,3    ZCOTRN60
     1093   01 003E4    657003E1              BIR,X7   %-3
     1094   01 003E5    22C00054 A            LI,R12   X'54'
     1095   01 003E6    6800047F              B        ZSNER
     1096   01 003E7    32B00031 A   ZCOTRN60 LW,R11   ZPCHK1
     1097   01 003E8    38B00030 A            SW,R11   ZPCHK
     1098   01 003E9    25B00404 A            SAS,R11  4
     1099   01 003EA    22F0000F A            LI,R15   X'F'
     1100   01 003EB    F270068D              LB,R7    *ZEXPT0
     1101   01 003EC    4B70000F A            AND,R7   R15
     1102   01 003ED    49B00007 A            OR,R11   R7
     1103   01 003EE    F5B0068D              STB,R11  *ZEXPT0
     1104   01 003EF    E800002A A            B        *ZCOLNK
     1105                                     PAGE
     1106                            *
     1107                            * VARIABLE ENTRY TABLE TO PARAMETER PROCESSORS
     1108                            *
     1109   01 003F0    6AF00430     ZPRTYP   BAL,R15  ZFNUP
     1110   01 003F1    6AF00433              BAL,R15  ZFN
     1111   01 003F2    6AF00436              BAL,R15  ZFNDTB
     1112   01 003F3    6AF0043C              BAL,R15  ZFOCT
     1113   01 003F4    6AF0043F              BAL,R15  ZFH
     1114   01 003F5    6AF00442              BAL,R15  ZPC5
     1115   01 003F6    6AF00448              BAL,R15  ZPC6
     1116   01 003F7    6AF0044E              BAL,R15  ZPC7
     1117                            *
     1118                            * PARAMETER INFORMATION
     1119                            *  PARAMETER DECODE WORD FORMAT
     1120                            *   BIT 0-3    CODE TYPE
     1121                            *       4      ON-PARAMETER REQUIRED
     1122                            *              OFF-PARAMETER NOT REQUIRED
     1123                            *
     1124                            *  CODE TYPE
     1125                            *      0       NUMERIC 0-9 ONLY; STORE WITH ZONE BITS
     1126                            *      1       NUMERIC 0-9 ONLY; STORE WITHOUT ZONE BITS
     1127                            *      2       NUMERIC 0-9 ONLY; CONVERT TO BINARY
     1128                            *      3       NUMERIC 0-7 ONLY, OCTAL
     1129                            *      4       HEXADECIMAL 0-9 A-F; STORE AS BINARY VALUE
     1130                            *      5       ALPHABETIC ONLY A-Z
     1131                            *      6       ALPHA-NUMERIC ONLY A-Z 0-9
     1132                            *      7       ANY CHARACTER; FIRST CHARACTER REPRESENTS
     1133                            *               TERMINATOR, BOTH NOT PUTAWAY
     1134                            *
     1135                                     PAGE
     1136                            *
     1137                            * FORWARD SLASH TRANSLATOR PROCESSOR, TERMINATE CONTROL
     1138                            *  EXECUTE TABLE ENTRY EQUALS TWO WORDS
     1139                            *   VERFIES ALL LOOPS AND PLACE MARKER REQUESTS PROCESSED
     1140                            *    VERFIES LAST DIRECTIVE PROCESSED
     1141                            *     SAVES THIS ENTRY LOCATION FOR POSSIBLE EXTEND OR PATCH
     1142                            *
     1143   01 003F8    35F0002B A   ZFSTRN   STW,R15  ZFSLNK
     1144   01 003F9    6AF0038B              BAL,R15  ZPLTRN
     1145   01 003FA    3300003D A            MTW,0    ZDSFLG
     1146   01 003FB    E930002B A            BCS,3    *ZFSLNK
     1147   01 003FC    32B00665              LW,R11   ZFSPRO-1
     1148   01 003FD    B5B0068D              STW,R11  *ZEXPT0
     1149   01 003FE    22C00101 A            LI,R12   X'101'
     1150   01 003FF    32B00E78              LW,R11   ZEXADR
     1151   01 00400    31B0068D              CW,R11   ZEXPT0
     1152   01 00401    6830047F              BCR,3    ZSNER
     1153   01 00402    B5B0068E              STW,R11  *ZEXPT1
     1154   01 00403    22C00041 A            LI,R12   X'41'
     1155   01 00404    32B00685              LW,R11   ZLBPTR
     1156   01 00405    31B00684              CW,R11   ZLBADR
     1157   01 00406    6920047F              BCS,2    ZSNER
     1158   01 00407    33000009 A            MTW,0    R9
     1159   01 00408    6830040B              BCR,3    %+3
     1160   01 00409    6AF004C3              BAL,R15  ZTST2
     1161   01 0040A    6AF00353              BAL,R15  ZPMRQ
     1162   01 0040B    22C00032 A            LI,R12   X'32'
     1163   01 0040C    3300002D A            MTW,0    ZUDFPM
     1164   01 0040D    6920047F              BCS,2    ZSNER
     1165   01 0040E    32B0068D              LW,R11   ZEXPT0
     1166   01 0040F    6AF00498              BAL,R15  ZSTPTR
     1167   01 00410    B2B0000B A            LW,R11   *R11
     1168   01 00411    55B20662              STH,R11  ZGOPTR,X1
     1169   01 00412    52C2045C              LH,R12   ZMFRX7,X1
     1170   01 00413    55C2045D              STH,R12  ZMFRNBA,X1
     1171   01 00414    32C002CA              LW,R12   ZTRN100
     1172   01 00415    6AF005C6              BAL,R15  ZTMNCR
     1173   01 00416    68000620              B        ZEX00
     1174                                     PAGE
     1175                            *
     1176                            * COMMON FETCH ROUTINE PARAMETERIZED BY ONE WORD FOLLOWING CALL
     1177                            *  LINK IN R14 AND LINK RETURN IN R15 TO FETCH WITHIN LIMITS
     1178                            *   REGISTER-MINIMUM-MAXIMUM-SHIFT
     1179                            *
     1180   01 00417    35E00035 A   ZCFR     STW,R14  ZCFRCA
     1181   01 00418    35F00034 A            STW,R15  ZCFRLNK
     1182   01 00419    6AF00459              BAL,R15  ZFOC
     1183   01 0041A    F1A20035 A            CB,R10   *ZCFRCA,X1
     1184   01 0041B    E9100034 A            BCS,1    *ZCFRLNK
     1185   01 0041C    F1A40035 A            CB,R10   *ZCFRCA,X2
     1186   01 0041D    E9200034 A            BCS,2    *ZCFRLNK
     1187   01 0041E    22F00441              LI,R15   ZFH+2
     1188   01 0041F    31F00035 A            CW,R15   ZCFRCA
     1189   01 00420    69300426              BCS,3    %+6
     1190   01 00421    21A000E9 A            CI,R10   X'E9'
     1191   01 00422    69200426              BCS,2    %+4
     1192   01 00423    21A000C6 A            CI,R10   X'C6'
     1193   01 00424    E9200034 A            BCS,2    *ZCFRLNK
     1194   01 00425    20A00009 A            AI,R10   X'9'
     1195   01 00426    32F0000A A            LW,R15   R10
     1196   01 00427    BA700035 A            LCW,X7   *ZCFRCA
     1197   01 00428    F2E00035 A            LB,R14   *ZCFRCA
     1198   01 00429    B2E0000E A            LW,R14   *R14
     1199   01 0042A    25FE0200 A            SCS,R15  0,X7
     1200   01 0042B    B2700035 A            LW,X7    *ZCFRCA
     1201   01 0042C    25EE0500 A            SAD,R14  0,X7
     1202   01 0042D    F2F00035 A            LB,R15   *ZCFRCA
     1203   01 0042E    B5E0000F A            STW,R14  *R15
     1204   01 0042F    68000419              B        ZCFR+2
     1205                                     PAGE
     1206                            *
     1207                            * FETCH NUMERIC 0-9 UNPACKED ZONE BITS PRESENT
     1208                            *
     1209   01 00430    22900000 A   ZFNUP    LI,R9    0
     1210   01 00431    6AE00417              BAL,R14  ZCFR
     1211   01 00432    09F0F908 A            DATA     X'09F0F908'
     1212                            *
     1213                            * FETCH NUMERIC 0-9 PACKED ZONE BITS NOT PRESENT
     1214                            *
     1215   01 00433    22900000 A   ZFN      LI,R9    0
     1216   01 00434    6AE00417              BAL,R14  ZCFR
     1217   01 00435    09F0F904 A            DATA     X'09F0F904'
     1218                            *
     1219                            * FETCH NUMERIC 0-9 CONVERTED TO BINARY
     1220                            *
     1221   01 00436    35F00528     ZFNDTB   STW,R15  ZCSRL
     1222   01 00437    6AF00433              BAL,R15  ZFN
     1223   01 00438    46C00009 A            XW,R12   R9
     1224   01 00439    6AF004D4              BAL,R15  ZDTB
     1225   01 0043A    46C00009 A            XW,R12   R9
     1226   01 0043B    E8000528              B        *ZCSRL
     1227                            *
     1228                            * FETCH OCTAL 0-7 BINARY VALUE
     1229                            *
     1230   01 0043C    22900000 A   ZFOCT    LI,R9    0
     1231   01 0043D    6AE00417              BAL,R14  ZCFR
     1232   01 0043E    09F0F703 A            DATA     X'09F0F703'
     1233                            *
     1234                            * FETCH HEXADECIMAL 0-F BINARY VALUE
     1235                            *
     1236   01 0043F    22900000 A   ZFH      LI,R9    0
     1237   01 00440    6AE00417              BAL,R14  ZCFR
     1238   01 00441    09C1F904 A            DATA     X'09C1F904'
     1239                                     PAGE
     1240                            *
     1241                            * FETCH ALPHABETIC A-Z UNPACKED ZONE BITS PRESENT
     1242                            *
     1243   01 00442    22900000 A   ZPC5     LI,R9    0
     1244   01 00443    6AE00417              BAL,R14  ZCFR
     1245   01 00444    09C1E908 A            DATA     X'09C1E908'
     1246   01 00445    22800000 A   ZFA      LI,R8    0
     1247   01 00446    6AE00417              BAL,R14  ZCFR
     1248   01 00447    08C1E908 A            DATA     X'08C1E908'
     1249                            *
     1250                            * FETCH ALPHA -NUMERIC 0-9 A-Z UNPACKED ZONE BITS PRESENT
     1251                            *
     1252   01 00448    22900000 A   ZPC6     LI,R9    0
     1253   01 00449    6AE00417              BAL,R14  ZCFR
     1254   01 0044A    09C1F908 A            DATA     X'09C1F908'
     1255   01 0044B    22800000 A   ZFAN     LI,R8    0
     1256   01 0044C    6AE00417              BAL,R14  ZCFR
     1257   01 0044D    08C1F908 A            DATA     X'08C1F908'
     1258                            *
     1259                            * FETCH ANY CHARACTER *SPECIAL APPLICATIONS*
     1260                            *  FIRST CHARACTER REPRESENTS TERMINATOR WITH FIRST AND
     1261                            *   LAST CHARACTER NOT INCLUDED IN BYTE COUNT
     1262                            *
     1263   01 0044E    35F00036 A   ZPC7     STW,R15  ZPC7LNK
     1264   01 0044F    6AF00459              BAL,R15  ZFOC
     1265   01 00450    75A60455              STB,R10  ZPC7M,X3
     1266   01 00451    52F2045C              LH,R15   ZMFRX7,X1
     1267   01 00452    B5F0068E              STW,R15  *ZEXPT1
     1268   01 00453    6AF00459              BAL,R15  ZFOC
     1269   01 00454    B290068E              LW,R9    *ZEXPT1
     1270   01 00455    21A00000 A   ZPC7M    CI,R10   0
     1271   01 00456    E8300036 A            BCR,3    *ZPC7LNK
     1272   01 00457    F310068E              MTB,1    *ZEXPT1
     1273   01 00458    68000453              B        %-5
     1274                                     PAGE
     1275                            *
     1276                            * MAINLINE FETCH ROUTINE VIA TYPEWRITER OR CARD READER
     1277                            *  INPUT CONTROL LINE SYNTAX TO INPUT/OUTPUT AREA
     1278                            *
     1279   01 00459    35F00037 A   ZFOC     STW,R15  ZMFRLNK
     1280   01 0045A    32A00039 A            LW,R10   ZCHAR
     1281   01 0045B    35A0003A A            STW,R10  ZLSTCH
     1282   01 0045C    22700000 A   ZMFRX7   LI,R7    0
     1283   01 0045D    21700000 A   ZMFRNBA  CI,R7    0
     1284   01 0045E    69100477              BCS,1    ZMFRTCBA
     1285   01 0045F    5572047C              STH,R7   ZMFRCW0,X1
     1286   01 00460    32A0068B              LW,R10   ZIOADR
     1287   01 00461    25A00402 A            SAS,R10  2
     1288   01 00462    58A2045D              SH,R10   ZMFRNBA,X1
     1289   01 00463    6830047E              BCR,3    ZMFRIOF
     1290   01 00464    21A00050 A            CI,R10   80
     1291   01 00465    69100467              BCS,1    %+2
     1292   01 00466    22A00050 A            LI,R10   80
     1293   01 00467    52F2052B              LH,R15   ZDKB+1,X1
     1294   01 00468    51F20471              CH,R15   ZMFRDA,X1
     1295   01 00469    6930046B              BCS,3    %+2
     1296   01 0046A    22A00001 A            LI,R10   1
     1297   01 0046B    55A2047D              STH,R10  ZMFRCW1,X1
     1298   01 0046C    50A2045C              AH,R10   ZMFRX7,X1
     1299   01 0046D    55A2045D              STH,R10  ZMFRNBA,X1
     1300   01 0046E    CDC00471              TIO,R12  *ZMFRDA
     1301   01 0046F    69C0046E              BCS,12   %-1
     1302   01 00470    2200023E              LI,R0    DA(ZMFRCW0)
     1303   01 00471    4CC00001 A   ZMFRDA   SIO,R12  1
     1304   01 00472    69C00471              BCS,12   %-1
     1305   01 00473    CDC00471              TIO,R12  *ZMFRDA
     1306   01 00474    72D0000D A            LB,R13   R13
     1307   01 00475    21D00060 A            CI,R13   X'60'
     1308   01 00476    69400473              BCS,4    %-3
     1309   01 00477    72AE0000 A   ZMFRTCBA LB,R10   0,X7
     1310   01 00478    35A00039 A            STW,R10  ZCHAR
     1311   01 00479    3310045C              MTW,1    ZMFRX7
     1312   01 0047A    E8000037 A            B        *ZMFRLNK
     1313                                     BOUND 8
     1314   01 0047C    0E0011F0     ZMFRCW0  ZFCP     X'E',BA(%)
     1315   01 0047D    02000001 A   ZMFRCW1  ZFCP     2,1
     1316                                     PAGE
     1317                            *
     1318                            * SYNTAX ERROR REPORTER
     1319                            *
     1320   01 0047E    22C00120 A   ZMFRIOF  LI,R12   X'120'
     1321   01 0047F    6AF004FD     ZSNER    BAL,R15  ZBTH
     1322   01 00480    25D00208 A            SCS,R13  8
     1323   01 00481    35D00493              STW,R13  ZSNMSG+2
     1324   01 00482    22F00015 A            LI,R15   X'15'
     1325   01 00483    75F60493              STB,R15  ZSNMSG+2,X3
     1326   01 00484    52C2045C              LH,R12   ZMFRX7,X1
     1327   01 00485    55C2045D              STH,R12  ZMFRNBA,X1
     1328   01 00486    32C00490              LW,R12   ZSNERMW
     1329   01 00487    6AF005C9              BAL,R15  ZSML40
     1330   01 00488    72F00493              LB,R15   ZSNMSG+2
     1331   01 00489    21F000F0 A            CI,R15   X'F0'
     1332   01 0048A    69200288              BCS,2    ZPC010
     1333   01 0048B    52F2052E              LH,R15   ZDCR+1,X1
     1334   01 0048C    51F20471              CH,R15   ZMFRDA,X1
     1335   01 0048D    68300288              BCR,3    ZPC010
     1336   01 0048E    22F002C8              LI,R15   ZTRN60
     1337   01 0048F    E80002D1              B        *ZMS
     1338   01 00490    100C1244 A   ZSNERMW  ZFMW     1,0,12,BA(ZSNMSG)
     1339   01 00491    E2E8D540 A   ZSNMSG   TEXT     'SYN ERR     '
            01 00492    C5D9D940 A
            01 00493    40404040 A
     1340                                     PAGE
     1341                            *
     1342                            * UPDATE EXECUTE TABLE POINTERS TO NEXT ENTRY
     1343                            *  BASED UPON PARAMETER COUNT AND/OR RE-ITERATION COUNT OR
     1344                            *   IDENTIFIER FIELD
     1345                            *
     1346   01 00494    F2B0068D     ZADPTR   LB,R11   *ZEXPT0
     1347   01 00495    20B0001C A            AI,R11   X'1C'
     1348   01 00496    25B0047C A            SAS,R11  -4
     1349   01 00497    30B0068D              AW,R11   ZEXPT0
     1350                            *
     1351                            * SET EXECUTE TABLE POINTERS FOR BASE WORD AND POSSIBLE
     1352                            *  RE-ITERATION COUNT OR PLACE MARKER ADDRESS FIELD
     1353                            *
     1354   01 00498    35B0068D     ZSTPTR   STW,R11  ZEXPT0
     1355   01 00499    35B0068E              STW,R11  ZEXPT1
     1356                            *
     1357                            * VERIFY EXECUTE TABLE NON-OVERFLOW
     1358                            *
     1359   01 0049A    3310068E     ZTST4    MTW,1    ZEXPT1
     1360   01 0049B    32B0068E              LW,R11   ZEXPT1
     1361   01 0049C    31B00686              CW,R11   ZLKADR
     1362   01 0049D    E910000F A            BCS,1    *R15
     1363   01 0049E    22C00100 A            LI,R12   X'100'
     1364   01 0049F    6800047F              B        ZSNER
     1365                                     PAGE
     1366                            *
     1367                            * ADVANCE POINTERS AND CLEAR RE-ITERATION COUNT FIELD
     1368                            *  IF EXISTENT IN EXECUTE TABLE ENTRY
     1369                            *
     1370   01 004A0    35F0000E A   ZADCRC   STW,R15  R14
     1371   01 004A1    6AF00494              BAL,R15  ZADPTR
     1372   01 004A2    680004A5              B        %+3
     1373                            *
     1374                            * SET POINTERS AND CLEAR RE-ITERATION COUNT FIELD
     1375                            *  (R11) CONTAINS BASE WORD VALUE
     1376                            *
     1377   01 004A3    35F0000E A   ZSTCRC   STW,R15  R14
     1378   01 004A4    6AF00498              BAL,R15  ZSTPTR
     1379   01 004A5    32F0000E A            LW,R15   R14
     1380                            *
     1381                            * CLEAR OR RESET RE-ITERATION COUNT FIELD IN EXECUTE TABLE
     1382                            *  ONLY IF RC FIELD IS EXISTENT
     1383                            *
     1384   01 004A6    F2B0068D     ZCRC     LB,R11   *ZEXPT0
     1385   01 004A7    21B00008 A            CI,R11   8
     1386   01 004A8    E840000F A            BCR,4    *R15
     1387   01 004A9    D2B0068E              LH,R11   *ZEXPT1
     1388   01 004AA    25B00410 A            SAS,R11  16
     1389   01 004AB    B5B0068E              STW,R11  *ZEXPT1
     1390   01 004AC    E800000F A            B        *R15
     1391                                     PAGE
     1392                            *
     1393                            * PROCESS LEADING DECIMAL SUB-FIELD ASSUMED BINARY IN R9
     1394                            *  RE-ITERATION COUNT LESS THAN 10K AND GREATER THAN 1
     1395                            *   PLACE MARKER IDENTIFIER LESS THAN 512
     1396                            *
     1397   01 004AD    F2B0068D     ZTST1    LB,R11   *ZEXPT0
     1398   01 004AE    21B0000C A            CI,R11   X'C'
     1399   01 004AF    684004C9              BCR,4    ZTST3
     1400   01 004B0    21B00008 A            CI,R11   8
     1401   01 004B1    694004B7              BCS,4    ZTST1A
     1402   01 004B2    33000009 A            MTW,0    R9
     1403   01 004B3    683004B9              BCR,3    ZTST1AA
     1404   01 004B4    219001FF A            CI,R9    511
     1405   01 004B5    692004C7              BCS,2    ZTST2A
     1406   01 004B6    68000353              B        ZPMRQ
     1407   01 004B7    33F00009 A   ZTST1A   MTW,-1   R9
     1408   01 004B8    692004BD              BCS,2    ZTST1B
     1409   01 004B9    22C000F3 A   ZTST1AA  LI,R12   X'F3'
     1410   01 004BA    4BB0000C A            AND,R11  R12
     1411   01 004BB    F5B0068D              STB,R11  *ZEXPT0
     1412   01 004BC    E800000F A            B        *R15
     1413   01 004BD    2190270F A   ZTST1B   CI,R9    9999
     1414   01 004BE    692004C7              BCS,2    ZTST2A
     1415   01 004BF    32C00009 A            LW,R12   R9
     1416   01 004C0    25C00410 A            SAS,R12  16
     1417   01 004C1    B5C0068E     ZTST1C   STW,R12  *ZEXPT1
     1418   01 004C2    6800049A              B        ZTST4
     1419                                     PAGE
     1420                            *
     1421                            * VERIFIES PLACE MARKER VALUE GREATER THAN ONE
     1422                            *  AND LESS THAN 512 DECIMAL
     1423                            *
     1424   01 004C3    33000009 A   ZTST2    MTW,0    R9
     1425   01 004C4    683004C7              BCR,3    ZTST2A
     1426   01 004C5    21900200 A            CI,R9    X'200'
     1427   01 004C6    E910000F A            BCS,1    *R15
     1428   01 004C7    22C00020 A   ZTST2A   LI,R12   X'20'
     1429   01 004C8    6800047F              B        ZSNER
     1430                            *
     1431                            * VERIFY NUMERIC ACCUMULATOR IS EMPTY (ZERO)
     1432                            *
     1433   01 004C9    33000009 A   ZTST3    MTW,0    R9
     1434   01 004CA    E830000F A            BCR,3    *R15
     1435   01 004CB    680004C7              B        ZTST2A
     1436                            *
     1437                            * VERIFY ALPHA ACCUMULATOR EMPTY (ZERO)
     1438                            *
     1439   01 004CC    33000008 A   ZTST6    MTW,0    R8
     1440   01 004CD    E830000F A            BCR,3    *R15
     1441   01 004CE    22C00021 A            LI,R12   X'21'
     1442   01 004CF    6800047F              B        ZSNER
     1443                            *
     1444                            * VERIFY TRANSLATOR NOT IN IMMEDIATE MODE
     1445                            *
     1446   01 004D0    3300003D A   ZTST7    MTW,0    ZDSFLG
     1447   01 004D1    E830000F A            BCR,3    *R15
     1448   01 004D2    22C00052 A            LI,R12   X'52'
     1449   01 004D3    6800047F              B        ZSNER
     1450                                     PAGE
     1451                            *
     1452                            * DECIMAL TO BINARY CONVERTER FOUR BITS PER DIGIT
     1453                            *  (R12) VALUE TO CONVERT TO R12 AND ZTEMP
     1454                            *   (R15) LINK RETURN VALUE
     1455                            *
     1456   01 004D4    46C0000F A   ZDTB     XW,R12   R15
     1457   01 004D5    35F0068F              STW,R15  ZTEMP
     1458   01 004D6    4BF004E6              AND,R15  ZDTB10
     1459   01 004D7    25F0027C A            SCS,R15  -4
     1460   01 004D8    23FFFFFA A            MI,R15   -6
     1461   01 004D9    30F0068F              AW,R15   ZTEMP
     1462   01 004DA    35F0068F              STW,R15  ZTEMP
     1463   01 004DB    4BF004E7              AND,R15  ZDTB20
     1464   01 004DC    25F00278 A            SCS,R15  -8
     1465   01 004DD    23FFFF64 A            MI,R15   -156
     1466   01 004DE    30F0068F              AW,R15   ZTEMP
     1467   01 004DF    35F0068F              STW,R15  ZTEMP
     1468   01 004E0    52F0000F A            LH,R15   R15
     1469   01 004E1    23FF2710 A            MI,R15   -55536
     1470   01 004E2    30F0068F              AW,R15   ZTEMP
     1471   01 004E3    35F0068F              STW,R15  ZTEMP
     1472   01 004E4    46C0000F A            XW,R12   R15
     1473   01 004E5    E800000F A            B        *R15
     1474   01 004E6    F0F0F0F0 A   ZDTB10   DATA     X'F0F0F0F0'
     1475   01 004E7    FF00FF00 A   ZDTB20   DATA     X'FF00FF00'
     1476                                     PAGE
     1477                            *
     1478                            * BINARY TO DECIMAL CONVERTER FOUR BITS PER DIGIT
     1479                            *  (R12) VALUE TO CONVERT TO R12 AND ZTEMP
     1480                            *   (R15) LINK RETURN VALUE
     1481                            *
     1482   01 004E8    35D00528     ZBTD     STW,R13  ZCSRL
     1483   01 004E9    22D00400 A            LI,R13   X'400'
     1484   01 004EA    46C0000D A            XW,R12   R13
     1485   01 004EB    35C006A1              STW,R12  PX
     1486   01 004EC    22C00000 A            LI,R12   0
     1487   01 004ED    35C0068F              STW,R12  ZTEMP
     1488   01 004EE    22C00000 A   ZBTD10   LI,R12   0
     1489   01 004EF    21D0000A A            CI,R13   10
     1490   01 004F0    691004F6              BCS,1    ZBTD20
     1491   01 004F1    36C004FC              DW,R12   ZBTD30
     1492   01 004F2    A5C006A1              S,R12    *PX
     1493   01 004F3    334006A1              MTW,4    PX
     1494   01 004F4    66C0068F              AWM,R12  ZTEMP
     1495   01 004F5    680004EE              B        ZBTD10
     1496   01 004F6    32C00528     ZBTD20   LW,R12   ZCSRL
     1497   01 004F7    46C0000D A            XW,R12   R13
     1498   01 004F8    A5C006A1              S,R12    *PX
     1499   01 004F9    49C0068F              OR,R12   ZTEMP
     1500   01 004FA    35C0068F              STW,R12  ZTEMP
     1501   01 004FB    E800000F A            B        *R15
     1502   01 004FC    0000000A A   ZBTD30   DATA     10
     1503                                     PAGE
     1504                            *
     1505                            * BINARY TO HEXADECIMAL CONVERTER
     1506                            *  (R12) VALUE TO CONVERT TO R12-R13 AND ZTEMP-ZTEMP1
     1507                            *   (R15) LINK RETURN VALUE
     1508                            *
     1509   01 004FD    35100528     ZBTH     STW,R1   ZCSRL
     1510   01 004FE    221FFFF8 A            LI,X1    -8
     1511   01 004FF    22D0000F A            LI,R13   X'F'
     1512   01 00500    25C00304 A            SCD,R12  4
     1513   01 00501    21D000FA A            CI,R13   X'FA'
     1514   01 00502    69100504              BCS,1    %+2
     1515   01 00503    20D000C7 A            AI,R13   X'C7'
     1516   01 00504    75D20691              STB,R13  ZTEMP1+1,X1
     1517   01 00505    651004FF              BIR,X1   ZBTH+2
     1518   01 00506    32C0068F              LW,R12   ZTEMP
     1519   01 00507    32D00690              LW,R13   ZTEMP1
     1520   01 00508    32100528              LW,R1    ZCSRL
     1521   01 00509    E800000F A            B        *R15
     1522                            *
     1523                            * LEADING ZERO SUPPRESSION ON UNPACKED VALUE
     1524                            *  (R12) CONTAINS VALUE TO SUPPRESS
     1525                            *   (R15) CONTAINS LINK RETURN ADDRESS
     1526                            *
     1527   01 0050A    35F00528     ZSUP     STW,R15  ZCSRL
     1528   01 0050B    3510068F              STW,X1   ZTEMP
     1529   01 0050C    221FFFFC A            LI,X1    -X'4'
     1530   01 0050D    22F000F0 A            LI,R15   X'F0'
     1531   01 0050E    71F2000D A            CB,R15   R12+1,X1
     1532   01 0050F    69300513              BCS,3    %+4
     1533   01 00510    22F00040 A            LI,R15   X'40'
     1534   01 00511    75F2000D A            STB,R15  R12+1,X1
     1535   01 00512    6510050D              BIR,X1   ZSUP+3
     1536   01 00513    3210068F              LW,R1    ZTEMP
     1537   01 00514    35C0068F              STW,R12  ZTEMP
     1538   01 00515    E8000528              B        *ZCSRL
     1539                                     PAGE
     1540                            *
     1541                            * DECIMAL ADDER FOUR BITS PER DIGIT
     1542                            *  (R12) CURRENT DECIMAL ADDER VALUE
     1543                            *   (R15) LINK RETURN VALUE
     1544                            *
     1545   01 00516    3510068F     ZDECADER STW,R1   ZTEMP
     1546   01 00517    221FFFF8 A            LI,X1    -8
     1547   01 00518    3310000C A            MTW,1    R12
     1548   01 00519    21C00008 A            CI,R12   X'8'
     1549   01 0051A    6840051E              BCR,4    %+4
     1550   01 0051B    21C00002 A            CI,R12   X'2'
     1551   01 0051C    6840051E              BCR,4    %+2
     1552   01 0051D    3360000C A            MTW,6    R12
     1553   01 0051E    25C0027C A            SCS,R12  -4
     1554   01 0051F    65100519              BIR,X1   %-6
     1555   01 00520    3210000C A            LW,R1    R12
     1556   01 00521    4610068F              XW,R1    ZTEMP
     1557   01 00522    E800000F A            B        *R15
     1558                            *
     1559                            * INITIALIZE COMMON INDEX REGISTERS
     1560                            *
     1561   01 00523    22000000 A   ZSCIR    LI,R0    0
     1562   01 00524    22100001 A            LI,X1    1
     1563   01 00525    22200002 A            LI,X2    2
     1564   01 00526    22300003 A            LI,X3    3
     1565   01 00527    E800000F A            B        *R15
     1566   01 00528    00000000 A   ZCSRL    PZE
     1567                                     PAGE
     1568                            *
     1569                            * DKB DIRECTIVE ASSIGNING DIRECTIVE INPUT VIA TYPEWRITER
     1570                            *
     1571   01 00529    40000000 A            DATA     X'40000000'
     1572   01 0052A    6AE0052F     ZDKB     BAL,R14  ZKBCRIOA
     1573   01 0052B    00000001 A            DATA     1
     1574                            *
     1575                            * DCR DIRECTIVE ASSIGNING DIRECTIVE INPUT VIA CARD READER
     1576                            *
     1577   01 0052C    40000000 A            DATA     X'40000000'
     1578   01 0052D    6AE0052F     ZDCR     BAL,R14  ZKBCRIOA
     1579   01 0052E    00000003 A            DATA     3
     1580                            *
     1581                            * PRESERVE TYPEWRITER/CARD READER INPUT/OUTPUT ADDRESS
     1582                            *
     1583   01 0052F    22001F7F A   ZKBCRIOA LI,R0    X'1F7F'
     1584   01 00530    4B000692              AND,R0   P1
     1585   01 00531    B500000E A            STW,R0   *R14
     1586   01 00532    55020471              STH,R0   ZMFRDA,X1
     1587   01 00533    5202045C              LH,R0    ZMFRX7,X1
     1588   01 00534    5502045D              STH,R0   ZMFRNBA,X1
     1589   01 00535    E800000F A            B        *R15
     1590                                     PAGE
     1591                            *
     1592                            * SML DIRECTIVE ASSIGNING MESSAGE LEVELS TO BE REPORTED
     1593                            *
     1594   01 00536    10000000 A            DATA     X'10000000'
     1595   01 00537    32000692     ZSML     LW,R0    P1
     1596   01 00538    4B000003 A            AND,R0   R3
     1597   01 00539    550205D4              STH,R0   ZMSGKEY,X1
     1598   01 0053A    E800000F A            B        *R15
     1599                            *
     1600                            * SMD DIRECTIVE ASSIGNING MESSAGES TO TYPEWRITER OR LINE PRINTER
     1601                            *
     1602   01 0053B    40000000 A            DATA     X'40000000'
     1603   01 0053C    22001F7F A   ZSMD     LI,R0    X'1F7F'
     1604   01 0053D    4B000692              AND,R0   P1
     1605   01 0053E    550205EC              STH,R0   ZTWLPO,X1
     1606   01 0053F    E800000F A            B        *R15
     1607                                     PAGE
     1608                            *
     1609                            * HLT DIRECTIVE TO IDENTIFY LOCATION IN CONTROL LINE
     1610                            *
     1611   01 00540    10000000 A            DATA     X'10000000'       P1 DECIMAL IDENTIFIER
     1612   01 00541    35F006A0     ZHLT     STW,R15  P15
     1613   01 00542    32C00692              LW,R12   P1
     1614   01 00543    6AF004FD              BAL,R15  ZBTH
     1615   01 00544    35D0054F              STW,R13  ZHLTMSG+1
     1616   01 00545    32C0054D              LW,R12   ZHLTMSG-1
     1617   01 00546    02300070 A            LCFI     7
     1618   01 00547    6AF005CA              BAL,R15  ZTWLP
     1619   01 00548    22F00001 A            LI,R15   1
     1620   01 00549    4BF00692              AND,R15  P1
     1621   01 0054A    E82206A0              BCR,2    *P15,X1
     1622   01 0054B    2E000000 A            WAIT
     1623   01 0054C    E80206A0              B        *P15,X1
     1624   01 0054D    10081538 A            ZFMW     1,0,8,BA(ZHLTMSG)
     1625   01 0054E    C8D3E340 A   ZHLTMSG  TEXT     'HLT XXXX'
            01 0054F    E7E7E7E7 A
     1626                                     PAGE
     1627                            *
     1628                            * ALT DIRECTIVE TO ALTER CONTIGUOUS MAIN MEMORY LOCATIONS
     1629                            *
     1630   01 00550    35F00528     ZALT     STW,R15  ZCSRL
     1631   01 00551    6AF0055F              BAL,R15  ZALT10
     1632   01 00552    6AF0043F              BAL,R15  ZFH
     1633   01 00553    6AF0055F              BAL,R15  ZALT10
     1634   01 00554    22F1FFFF A            LI,R15   X'1FFFF'
     1635   01 00555    4B90000F A            AND,R9   R15
     1636   01 00556    31900683     ZALT05   CW,R9    ZEMS
     1637   01 00557    E9200528              BCS,2    *ZCSRL
     1638   01 00558    3590068F              STW,R9   ZTEMP
     1639   01 00559    6AF0043F              BAL,R15  ZFH
     1640   01 0055A    6AF0055F              BAL,R15  ZALT10
     1641   01 0055B    B590068F              STW,R9   *ZTEMP
     1642   01 0055C    3310068F              MTW,1    ZTEMP
     1643   01 0055D    3290068F              LW,R9    ZTEMP
     1644   01 0055E    68000556              B        ZALT05
     1645   01 0055F    21A0006B A   ZALT10   CI,R10   X'6B'
     1646   01 00560    E830000F A            BCR,3    *R15
     1647   01 00561    E8000528              B        *ZCSRL
     1648                                     PAGE
     1649                            *
     1650                            * DMP DIRECTIVE TO DUMP CONTIGUOUS MAIN MEMORY LOCATIONS
     1651                            *
     1652   01 00562    40000000 A            DATA     X'40000000'
     1653   01 00563    40000000 A            DATA     X'40000000'
     1654   01 00564    40000000 A            DATA     X'40000000'
     1655   01 00565    02300070 A   ZTYP     LCFI     7
     1656   01 00566    6800056B              B        ZDMP+1
     1657   01 00567    40000000 A            DATA     X'40000000'       P1 FIRST
     1658   01 00568    40000000 A            DATA     X'40000000'       P2  LAST
     1659   01 00569    40000000 A            DATA     X'40000000'       P3   RELATIVE
     1660   01 0056A    023000F0 A   ZDMP     LCFI     X'F'
     1661   01 0056B    740605A3              STCF     ZDMP24+2,X3
     1662   01 0056C    35F006A0              STW,R15  P15
     1663   01 0056D    227FFFFD A            LI,X7    -3                TRUNCATE
     1664   01 0056E    32CE0695              LW,R12   P3+1,X7
     1665   01 0056F    4BC00E7F              AND,R12  =X'1FFFF'
     1666   01 00570    31C00683              CW,R12   ZEMS
     1667   01 00571    68200573              BCR,2    %+2
     1668   01 00572    32C00683              LW,R12   ZEMS
     1669   01 00573    35CE0695              STW,R12  P3+1,X7
     1670   01 00574    6570056E              BIR,X7   %-6
     1671   01 00575    6AF00523              BAL,R15  ZSCIR
     1672   01 00576    32D00693              LW,R13   P2
     1673   01 00577    3310000D A            MTW,1    R13
     1674   01 00578    31D00683              CW,R13   ZEMS
     1675   01 00579    6820057B              BCR,2    %+2
     1676   01 0057A    33F00693              MTW,-1   P2
     1677   01 0057B    32C00694              LW,R12   P3
     1678   01 0057C    6830057F              BCR,3    %+3
     1679   01 0057D    32000692              LW,R0    P1
     1680   01 0057E    38000694              SW,R0    P3
     1681   01 0057F    35000694              STW,R0   P3
     1682   01 00580    32C00692     ZDMP10   LW,R12   P1
     1683   01 00581    38C00694              SW,R12   P3
     1684   01 00582    6AF004FD              BAL,R15  ZBTH
     1685   01 00583    22F04040 A            LI,R15   X'4040'
     1686   01 00584    55F0000C A            STH,R15  R12
     1687   01 00585    25C00310 A            SCD,R12  16
     1688   01 00586    35C006A2              STW,R12  ZDMPA
     1689   01 00587    35D006A3              STW,R13  ZDMPA+1
     1690   01 00588    75F006A2              STB,R15  ZDMPA
     1691   01 00589    22700007 A            LI,X7    7                 RESET INDEX
     1692   01 0058A    22F00000 A            LI,R15   0                 DUPLICATE
     1693   01 0058B    35F0069F              STW,R15  P14               COUNTER
     1694   01 0058C    B2C00692     ZDMP20   LW,R12   *P1               DUPLICATE
     1695   01 0058D    B1C20692              CW,R12   *P1,X1            WORDS ?
     1696   01 0058E    683005A8              BCR,3    ZDMP30
     1697   01 0058F    3300069F              MTW,0    P14               DUPLICATE
     1698   01 00590    683005B3              BCR,3    ZDMP40            BLOCK ?
     1699   01 00591    22C00060 A            LI,R12   X'60'
     1700   01 00592    75CE06A2              STB,R12  ZDMPA,X7
     1701   01 00593    32C00692     ZDMP22   LW,R12   P1
     1702   01 00594    38C00694              SW,R12   P3
     1703   01 00595    6AF004FD              BAL,R15  ZBTH
     1704   01 00596    22F04040 A            LI,R15   X'4040'
     1705   01 00597    55F0000C A            STH,R15  R12
     1706   01 00598    25C00310 A            SCD,R12  16
     1707   01 00599    35C006A4              STW,R12  ZDMPA+2
     1708   01 0059A    35D006A5              STW,R13  ZDMPA+3
     1709   01 0059B    75F006A4              STB,R15  ZDMPA+2
     1710   01 0059C    B2C00692              LW,R12   *P1               SET DUPLICATE
     1711   01 0059D    6AF004FD              BAL,R15  ZBTH              KEY FOR OUTPUT
     1712   01 0059E    35C006A6              STW,R12  ZDMPA+4
     1713   01 0059F    35D006A7              STW,R13  ZDMPA+5
     1714   01 005A0    22700018 A            LI,R7    24
     1715   01 005A1    757205C5     ZDMP24   STB,R7   ZDMP70,X1
     1716   01 005A2    32C005C5              LW,R12   ZDMP70
     1717   01 005A3    023000F0 A            LCFI     X'F'
     1718   01 005A4    6AF005CA              BAL,R15  ZTWLP
     1719   01 005A5    6AF005C1              BAL,R15  ZDMP50
     1720   01 005A6    69100580              BCS,1    ZDMP10            DUMP
     1721   01 005A7    E80006A0              B        *P15              COMPLETE ?
     1722   01 005A8    21700007 A   ZDMP30   CI,X7    7
     1723   01 005A9    682005AC              BCR,2    %+3
     1724   01 005AA    33F00692              MTW,-1   P1
     1725   01 005AB    680005A1              B        ZDMP24
     1726   01 005AC    3310069F              MTW,1    P14
     1727   01 005AD    6AF005C1              BAL,R15  ZDMP50
     1728   01 005AE    6910058C              BCS,1    ZDMP20
     1729   01 005AF    33F00692              MTW,-1   P1
     1730   01 005B0    33F0069F              MTW,-1   P14
     1731   01 005B1    69200593              BCS,2    ZDMP22
     1732   01 005B2    B2C00692              LW,R12   *P1
     1733   01 005B3    6AF004FD     ZDMP40   BAL,R15  ZBTH              SET NON-DUPLICATE
     1734   01 005B4    33100007 A            MTW,1    X7                WORD FOR OUTPUT
     1735   01 005B5    226FFFF8 A            LI,X6    -8
     1736   01 005B6    25C00308 A            SCD,R12  8
     1737   01 005B7    75DE06A2              STB,R13  ZDMPA,X7
     1738   01 005B8    33100007 A            MTW,1    X7
     1739   01 005B9    656005B6              BIR,X6   %-3
     1740   01 005BA    22F00040 A            LI,R15   X'40'
     1741   01 005BB    75FE06A2              STB,R15  ZDMPA,X7
     1742   01 005BC    2170004E A            CI,X7    78
     1743   01 005BD    692005A1              BCS,2    ZDMP24
     1744   01 005BE    6AF005C1              BAL,R15  ZDMP50
     1745   01 005BF    6910058C              BCS,1    ZDMP20
     1746   01 005C0    680005A1              B        ZDMP24
     1747   01 005C1    32C00692     ZDMP50   LW,R12   P1
     1748   01 005C2    33100692              MTW,1    P1
     1749   01 005C3    31C00693              CW,R12   P2
     1750   01 005C4    E800000F A            B        *R15
     1751   01 005C5    10001A88 A   ZDMP70   ZFMW     1,0,0,BA(ZDMPA)
     1752                            *
     1753                            * TRANSMIT MESSAGE ONLY IF KEYBOARD INPUT DEVICE
     1754                            *
     1755   01 005C6    52D2052E     ZTMNCR   LH,R13   ZDCR+1,X1
     1756   01 005C7    51D20471              CH,R13   ZMFRDA,X1
     1757   01 005C8    E830000F A            BCR,3    *R15
     1758                            *
     1759                            * LOAD CONDITIONS FOR TYPEWRITER ONLY MESSAGE LEVEL 0
     1760                            *
     1761   01 005C9    02300040 A   ZSML40   LCFI     4
     1762                                     PAGE
     1763                            *
     1764                            * COMMON TYPEWRITER/LINE PRINTER OUTPUT ROUTINE
     1765                            *
     1766   01 005CA    E8C0000F A   ZTWLP    BCR,12   *R15
     1767   01 005CB    7400000F A            STCF     R15
     1768   01 005CC    35F00528              STW,R15  ZCSRL
     1769   01 005CD    6AF00523              BAL,R15  ZSCIR
     1770   01 005CE    72F00528              LB,R15   ZCSRL
     1771   01 005CF    25F0047C A            SAS,R15  -4
     1772   01 005D0    4BF00003 A            AND,R15  R3
     1773   01 005D1    683005D6              BCR,3    ZTWLP01
     1774   01 005D2    6C000000 A            RD,0     0                                                 *D00
     1775   01 005D3    E9100528              BCS,1    *ZCSRL
     1776   01 005D4    21F00004 A   ZMSGKEY  CI,R15   4
     1777   01 005D5    E9200528              BCS,2    *ZCSRL            SUPPRESSED ?
     1778   01 005D6    55C2061E     ZTWLP01  STH,R12  ZTWLP12,X1
     1779   01 005D7    52C0000C A            LH,R12   R12
     1780   01 005D8    75C6061F              STB,R12  ZTWLP12+1,X3
     1781   01 005D9    72C4000C A            LB,R12   R12,X2
     1782   01 005DA    22D0000F A            LI,R13   15
     1783   01 005DB    4BD0000C A            AND,R13  R12
     1784   01 005DC    25C0047C A            SAS,R12  -4
     1785   01 005DD    75C6061B              STB,R12  ZTWLP10+1,X3
     1786   01 005DE    32C0000C A            LW,R12   R12
     1787   01 005DF    683005E1              BCR,3    %+2
     1788   01 005E0    5502061D              STH,R0   ZTWLP11+1,X1
     1789   01 005E1    50D2061D              AH,R13   ZTWLP11+1,X1
     1790   01 005E2    55D2061D              STH,R13  ZTWLP11+1,X1
     1791   01 005E3    7510061C              STB,R1   ZTWLP11
     1792   01 005E4    32F0052B              LW,R15   ZDKB+1
     1793   01 005E5    72C00528              LB,R12   ZCSRL
     1794   01 005E6    25C0047A A            SAS,R12  -6
     1795   01 005E7    33F0000C A            MTW,-1   R12
     1796   01 005E8    683005FE              BCR,3    ZTW
     1797   01 005E9    22F00002 A            LI,R15   2
     1798   01 005EA    33F0000C A            MTW,-1   R12
     1799   01 005EB    683005EF              BCR,3    ZLPD
     1800   01 005EC    22F00002 A   ZTWLPO   LI,R15   2
     1801   01 005ED    31F0052B              CW,R15   ZDKB+1
     1802   01 005EE    683005FE              BCR,3    ZTW
     1803   01 005EF    55F20612     ZLPD     STH,R15  ZTWLPA,X1
     1804   01 005F0    2200030E              LI,R0    DA(ZTWLP11)
     1805   01 005F1    72C6061B              LB,R12   ZTWLP10+1,X3
     1806   01 005F2    693005F4              BCS,3    %+2
     1807   01 005F3    22C000A0 A            LI,R12   X'A0'
     1808   01 005F4    33F0000C A            MTW,-1   R12
     1809   01 005F5    683005FA              BCR,3    ZLPD10
     1810   01 005F6    20C000C1 A            AI,R12   X'C1'
     1811   01 005F7    75C00010 A            STB,R12  ZML10
     1812   01 005F8    7516061B              STB,R1   ZTWLP10+1,X3
     1813   01 005F9    2200030D              LI,R0    DA(ZTWLP10)
     1814   01 005FA    72C6061D     ZLPD10   LB,R12   ZTWLP11+1,X3
     1815   01 005FB    693005FD              BCS,3    %+2
     1816   01 005FC    7370061C              MTB,7    ZTWLP11
     1817   01 005FD    68000612              B        ZTWLPA
     1818   01 005FE    55F20612     ZTW      STH,R15  ZTWLPA,X1
     1819   01 005FF    2200030F              LI,R0    DA(ZTWLP12)
     1820   01 00600    72C6061B              LB,R12   ZTWLP10+1,X3
     1821   01 00601    68300612              BCR,3    ZTWLPA
     1822   01 00602    7370061C              MTB,7    ZTWLP11
     1823   01 00603    22F00015 A            LI,R15   X'15'
     1824   01 00604    22100000 A            LI,R1    0
     1825   01 00605    75F20010 A            STB,R15  ZML10,X1
     1826   01 00606    33100001 A            MTW,1    R1
     1827   01 00607    64C00605              BDR,R12  %-2
     1828   01 00608    22F00040 A            LI,R15   X'40'
     1829   01 00609    72C6061D              LB,R12   ZTWLP11+1,X3
     1830   01 0060A    68300610              BCR,3    ZTW10
     1831   01 0060B    4BC005CA              AND,R12  ZTWLP
     1832   01 0060C    7316061B              MTB,1    ZTWLP10+1,X3
     1833   01 0060D    75F20010 A            STB,R15  ZML10,X1
     1834   01 0060E    33100001 A            MTW,1    R1
     1835   01 0060F    64C0060C              BDR,R12  %-3
     1836   01 00610    22100001 A   ZTW10    LI,R1    1
     1837   01 00611    2200030D              LI,R0    DA(ZTWLP10)
     1838   01 00612    4CC00001 A   ZTWLPA   SIO,R12  1
     1839   01 00613    69C00612              BCS,12   %-1
     1840   01 00614    CDC00612              TIO,R12  *ZTWLPA
     1841   01 00615    69C00614              BCS,12   %-1
     1842   01 00616    5202061F              LH,R0    ZTWLP12+1,X1
     1843   01 00617    5002061D              AH,R0    ZTWLP11+1,X1
     1844   01 00618    5502061D              STH,R0   ZTWLP11+1,X1
     1845   01 00619    E8000528              B        *ZCSRL
     1846                                     BOUND 8
     1847   01 0061A    05000040 A   ZTWLP10  ZFCP     5,X'40'
     1848   01 0061B    80000000 A            ZFCP     X'80',0
     1849   01 0061C    0000030F     ZTWLP11  DATA     DA(ZTWLP12)
     1850   01 0061D    81000000 A            ZFCP     X'81',0
     1851   01 0061E    01000000 A   ZTWLP12  ZFCP     1,0
     1852   01 0061F    00000000 A            DATA     0
     1853                                     PAGE
     1854                            *
     1855                            * THIS SECTION OF CODE COMPRISES THE EXECUTIVE PROGRAM
     1856                            *  EXECUTION OF SPECIFIED SUB-ROUTINES WHICH EXIST IN EXTBL
     1857                            *
     1858   01 00620    B2B0068E     ZEX00    LW,R11   *ZEXPT1
     1859   01 00621    6AF004A3              BAL,R15  ZSTCRC
     1860   01 00622    6AF00523     ZEX01    BAL,R15  ZSCIR
     1861   01 00623    6AF00629              BAL,R15  ZMPTWA
     1862   01 00624    02000000 A            NOP                        SIX DIRECTIVES REMOVED TO ALLOW
     1863                            *                                   TEST TO OPERATE IN CONTROL LINE
     1864                            *                                   MODE WITHOUT RESETTING JX-58
     1865   01 00625    B2F0068D              LW,R15   *ZEXPT0
     1866   01 00626    EAF0000F A            BAL,R15  *R15
     1867                            *
     1868                            * SUBROUTINES RETURN CONTROL HERE
     1869                            *
     1870   01 00627    6800063D              B        ZRETN1            NORMAL
     1871   01 00628    68000648              B        ZRETN2            ABORT/CONDITIONAL
     1872                                     PAGE
     1873                            *
     1874                            * MOVE PARAMETERS TO LABELED WORK AREA P1-P15
     1875                            *
     1876   01 00629    F2B0068D     ZMPTWA   LB,R11   *ZEXPT0
     1877   01 0062A    22C00000 A            LI,R12   0
     1878   01 0062B    21B00008 A            CI,R11   8
     1879   01 0062C    6840062E              BCR,4    %+2
     1880   01 0062D    D2C2068E              LH,R12   *ZEXPT1,X1
     1881   01 0062E    35C0003C A            STW,R12  ZFTF
     1882   01 0062F    32E0068E              LW,R14   ZEXPT1
     1883   01 00630    21B0000C A            CI,R11   X'C'
     1884   01 00631    68400633              BCR,4    %+2
     1885   01 00632    3310000E A            MTW,1    R14
     1886   01 00633    25B0047C A            SAS,R11  -4
     1887   01 00634    227FFFF1 A            LI,X7    -15
     1888   01 00635    22C00000 A            LI,R12   0
     1889   01 00636    33F0000B A            MTW,-1   R11
     1890   01 00637    6910063A              BCS,1    %+3
     1891   01 00638    B2C0000E A            LW,R12   *R14
     1892   01 00639    3310000E A            MTW,1    R14
     1893   01 0063A    35CE06A1              STW,R12  P15+1,X7
     1894   01 0063B    65700635              BIR,X7   %-6
     1895   01 0063C    E800000F A            B        *R15
     1896                                     PAGE
     1897                            *
     1898                            * NORMAL RETURN ONE
     1899                            *
     1900   01 0063D    6AF00523     ZRETN1   BAL,R15  ZSCIR
     1901   01 0063E    6AF0064F              BAL,R15  ZBPT1
     1902   01 0063F    F2B0068D              LB,R11   *ZEXPT0
     1903   01 00640    21B00008 A            CI,R11   8
     1904   01 00641    68400646              BCR,4    ZRETN1A
     1905   01 00642    B310068E              MTW,1    *ZEXPT1
     1906   01 00643    D2B2068E              LH,R11   *ZEXPT1,X1
     1907   01 00644    D1B0068E              CH,R11   *ZEXPT1
     1908   01 00645    68200622              BCR,2    ZEX01
     1909   01 00646    6AF004A0     ZRETN1A  BAL,R15  ZADCRC
     1910   01 00647    68000622              B        ZEX01
     1911                            *
     1912                            * ABORT AND/OR CONDITIONAL RETURN
     1913                            *
     1914   01 00648    6AF00523     ZRETN2   BAL,R15  ZSCIR
     1915   01 00649    6AF0064F              BAL,R15  ZBPT1
     1916   01 0064A    F2B0068D              LB,R11   *ZEXPT0
     1917   01 0064B    21B00004 A            CI,R11   4
     1918   01 0064C    68400646              BCR,4    ZRETN1A
     1919   01 0064D    22F00620              LI,R15   ZEX00
     1920   01 0064E    68000673              B        ZLKSET
     1921                                     PAGE
     1922                            *
     1923                            * CHECK BREAKPOINT NO. 1
     1924                            *  RESET CONTINUE EXECUTION OF DIRECTIVES IN CONTROL LINE
     1925                            *  SET   STOP EXECUTION OF DIRECTIVES RETURN FOR DIRECTIVE INPUT
     1926                            *
     1927   01 0064F    6C000000 A   ZBPT1    RD,0     0                                                 *D00
     1928   01 00650    E880000F A            BCR,8    *R15
     1929                            *
     1930                            * CONSOLE INTERRUPT INITIATED BY OPERATOR
     1931                            *  STOP EXECUTION OF DIRECTIVES RETURN FOR DIRECTIVE INPUT
     1932                            *
     1933   01 00651    22F00030 A   ZCONINT  LI,R15   X'30'
     1934   01 00652    6DF01300 A            WD,R15   X'1300'
     1935   01 00653    6DF01100 A            WD,R15   X'1100'
     1936   01 00654    CF000612              HIO,R0   *ZTWLPA
     1937   01 00655    68000288              B        ZPC010
     1938                                     PAGE
     1939                            *
     1940                            * OPEN LOOP PROCESSOR
     1941                            *  CLEARS CURRENT LOOP RE-ITERATION COUNT
     1942                            *   ADVANCES TO NEXT OPERATION
     1943                            *
     1944   01 00656    08000646 A   ZLPPRO   ZFST2    0,2,0,ZRETN1A
     1945                            *
     1946                            * CLOSE LOOP PROCESSOR
     1947                            *  CHECKS IF OPEN LOOP RE-ITERATION COUNT COMPLETE
     1948                            *   IF COMPLETE ADVANCE TO NEXT OPERATION
     1949                            *    IF NOT UPDATE COUNT AND RESTART LOOP
     1950                            *
     1951   01 00657    04000658 A            ZFST2    0,1,0,ZRPPRO
     1952   01 00658    B2C0068E     ZRPPRO   LW,R12   *ZEXPT1
     1953   01 00659    3310000C A            MTW,1    R12
     1954   01 0065A    B310000C A            MTW,1    *R12
     1955   01 0065B    D2B2000C A            LH,R11   *R12,X1
     1956   01 0065C    D1B0000C A            CH,R11   *R12
     1957   01 0065D    69200646              BCS,2    ZRETN1A
     1958   01 0065E    B2B0068E              LW,R11   *ZEXPT1
     1959   01 0065F    35B0068D              STW,R11  ZEXPT0
     1960   01 00660    68000646              B        ZRETN1A
     1961                                     PAGE
     1962                            *
     1963                            * GO DIRECTIVE PROCESSOR TO CONTINUE EXECUTION OF DIRECTIVES
     1964                            *
     1965   01 00661    22C00105 A   ZGOPRO   LI,R12   X'105'
     1966   01 00662    22B00000 A   ZGOPTR   LI,R11   0
     1967   01 00663    6830047F              BCR,3    ZSNER
     1968   01 00664    68000621              B        ZEX00+1
     1969                            *
     1970                            * END OF LINE PROCESSOR FOR FORWARD SLASH
     1971                            *
     1972   01 00665    04000666 A            ZFST2    0,1,0,ZFSPRO
     1973   01 00666    6AF0064F     ZFSPRO   BAL,R15  ZBPT1
     1974   01 00667    6AF00673              BAL,R15  ZLKSET
     1975   01 00668    68000620              B        ZEX00
     1976                            *
     1977                            * ABSOLUTE TRANSFER PROCESSOR
     1978                            *  SAVES CURRENT EXECUTE TABLE POINTER VALUE AS LINK
     1979                            *    RESETS POINTERS TO TRANSFER LOCATION
     1980                            *
     1981   01 00669    0400066A A            ZFST2    0,1,0,ZASPRO
     1982   01 0066A    68000667     ZASPRO   B        ZFSPRO+1
     1983                            *
     1984                            * LINK RETURN TRANSFER PROCESSOR
     1985                            *  CHECK IF LINK TABLE EMPTY;IF SO ABORT WITH ERROR MESSAGE
     1986                            *   IF NOT REMOVE LAST LINK ENTRY, REDUCE LINK POINTER BY ONE
     1987                            *    TRANSFER TO NEW OPERATION
     1988                            *
     1989   01 0066B    22C00111 A   ZLKAS    LI,R12   X'111'
     1990   01 0066C    32B00687              LW,R11   ZLKPTR
     1991   01 0066D    31B00686              CW,R11   ZLKADR
     1992   01 0066E    6820047F              BCR,2    ZSNER
     1993   01 0066F    33F00687              MTW,-1   ZLKPTR
     1994   01 00670    B2B00687              LW,R11   *ZLKPTR
     1995   01 00671    35B0068D              STW,R11  ZEXPT0
     1996   01 00672    68000646              B        ZRETN1A
     1997                                     PAGE
     1998                            *
     1999                            * PURGE AND/OR INSERT EXECUTE TABLE POINTER AS LINK ADDRESS TO
     2000                            *  LINK TABLE, CHECK IF TABLE FULL; IF SO ABORT WITH ERROR MSG
     2001                            *
     2002   01 00673    32C00687     ZLKSET   LW,R12   ZLKPTR
     2003   01 00674    32B0068D              LW,R11   ZEXPT0
     2004   01 00675    33F0000C A            MTW,-1   R12
     2005   01 00676    31C00686              CW,R12   ZLKADR
     2006   01 00677    6910067B              BCS,1    %+4
     2007   01 00678    B1B0000C A            CW,R11   *R12
     2008   01 00679    69300675              BCS,3    %-4
     2009   01 0067A    35C00687              STW,R12  ZLKPTR
     2010   01 0067B    22C00110 A            LI,R12   X'110'
     2011   01 0067C    32D00687              LW,R13   ZLKPTR
     2012   01 0067D    3310000D A            MTW,1    R13
     2013   01 0067E    31D00688              CW,R13   ZPMADR
     2014   01 0067F    6920047F              BCS,2    ZSNER
     2015   01 00680    B5B00687              STW,R11  *ZLKPTR
     2016   01 00681    33100687              MTW,1    ZLKPTR
     2017   01 00682    E800000F A            B        *R15
     2018                                     PAGE
     2019                            *
     2020                            * COMPUTE MEMORY SIZE AND ASSIGN TABLE LENGTHS AND I/O ADDRESS
     2021                            *  EXECUTE TABLE LENGTH = MS/4.96
     2022                            *   LINK TABLE LENGTH = MS/4.16
     2023                            *    PLACE MARKER TABLE LENGTH = MS/4.16
     2024                            *     THIS CODE IS THEN OVERLAYED BY TRANSLATOR
     2025                            *      REMAINDER OF AREA AVAILABLE AS INPUT/OUTPUT AREA
     2026                            *
     2027   01 00683    00020FFF A   ZEMS     DATA     X'20FFF'          LAST MEMORY LOCATION
     2028                                     BOUND 8
     2029   01 00684    0E0006C8     ZCMS     LPSD,0   ZCMST40+2
     2030   01 00685    32A00683              LW,R10   ZEMS
     2031   01 00686    38A006C4              SW,R10   ZCMS6
     2032   01 00687    35A00683              STW,R10  ZEMS
     2033   01 00688    B5A0000A A            STW,R10  *R10
     2034   01 00689    3310000A A            MTW,1    R10
     2035   01 0068A    25A00478 A            SAS,R10  -8
     2036   01 0068B    35A0000B A            STW,R10  R11
     2037   01 0068C    25A00403 A            SAS,R10  3
     2038   01 0068D    35A0068B              STW,R10  ZIOADR
     2039   01 0068E    30A00E78              AW,R10   ZEXADR
     2040   01 0068F    35A0068A              STW,R10  ZMFRIOAD
     2041   01 00690    66A0068B              AWM,R10  ZIOADR
     2042   01 00691    38A0000B A            SW,R10   R11
     2043   01 00692    35A00688              STW,R10  ZPMADR
     2044   01 00693    35A00689              STW,R10  ZPMPTR
     2045   01 00694    38A0000B A            SW,R10   R11
     2046   01 00695    35A00686              STW,R10  ZLKADR
     2047   01 00696    35A00687              STW,R10  ZLKPTR
     2048   01 00697    32A00683              LW,R10   ZEMS
     2049   01 00698    38A0068B              SW,R10   ZIOADR
     2050   01 00699    35A0068C              STW,R10  ZIOWDS
     2051   01 0069A    22B00040 A            LI,R11   X'40'
     2052   01 0069B    32A00683              LW,R10   ZEMS
     2053   01 0069C    38A0000B A            SW,R10   R11
     2054   01 0069D    35A00684              STW,R10  ZLBADR
     2055   01 0069E    35A00685              STW,R10  ZLBPTR
     2056   01 0069F    32A006C3              LW,R10   ZCMS5
     2057   01 006A0    35A00040 A            STW,R10  64
     2058   01 006A1    227FFF20 A            LI,X7    -224
     2059   01 006A2    32A0005F              LW,R10   ZIL5F
     2060   01 006A3    35AE0140              STW,R10  ZIL5F+225,X7
     2061   01 006A4    657006A3              BIR,X7   %-1
     2062   01 006A5    6AF00523              BAL,R15  ZSCIR
     2063   01 006A6    3500003D A            STW,0    ZDSFLG
     2064   01 006A7    22400001 A            LI,R4    1                 CHECK FOR ASR/KSR ADDRESS       *DP1
     2065   01 006A8    3540052B              STW,R4   ZDKB+1              SET UP ASR/KSR ADDRESS        *DP1
     2066   01 006A9    554205EC              STH,R4   ZTWLPO,X1                                         *DP1
     2067   01 006AA    55420471              STH,R4   ZMFRDA,X1                                         *DP1
     2068   01 006AB    CF00052B              HIO,0    *ZDKB+1             CHECK FOR ADDRESS RECOGNITION *DP1
     2069   01 006AC    688006B0              BCR,8    %+4                   VALID ADDRESS               *DP1
     2070   01 006AD    2E000000 A            WAIT                         INVALID ADDRESS               *DP1
     2071                            *                                       WAIT FOR OPERATOR TO ENTER  *DP1
     2072                            *                                       R4 WITH CORRECT ADDRESS     *DP1
     2073   01 006AE    4B400E80              AND,R4   =X'1FFF'          MASK ADDRESS                    *DP1
     2074   01 006AF    680006A8              B        %-7                                               *DP1
     2075   01 006B0    32B00E78              LW,R11   ZEXADR
     2076   01 006B1    6AF00498              BAL,R15  ZSTPTR
     2077   01 006B2    32F006D0              LW,15    LBRXPSD           SET TRAP LOC                    *D01
     2078   01 006B3    35F00040 A            STW,15   X'40'                 FOR NON-SIGMA TEST          *D01
     2079   01 006B4    27AE06C6              GEN,8,4,3,17  X'27',10,7,ZCMST40 THIS IS A LBR,10 ZCMS8 INS*D01
     2080   01 006B5    22A000E3 A            LI,10    'T'                   T = NON-SIGMA               *D01
     2081   01 006B6    680006BD              B        ZCMS4                                             *D01
     2082   01 006B7    32F006CA     ZCMS2    LW,15    LRAXPSD           SET TRAP LOC                    *D01
     2083   01 006B8    35F00040 A            STW,15   X'40'                 FOR SIG 9 TEST              *D01
     2084   01 006B9    20A00684              GEN,8,4,20  X'20',10,ZCMS  THIS IS A LRA,10 ZCMS INSTR     *D01
     2085   01 006BA    22A00001 A            LI,10    1                 1 = SIG 8/9                     *D01
     2086   01 006BB    680006BD              B        ZCMS4                                             *D01
     2087   01 006BC    22A00000 A   ZCMS3    LI,10    0                 0 = SIG 5/7                     *D01
     2088   01 006BD    35A0003E A   ZCMS4    STW,10   ZSIG9             SET MACHINE TYPE INDICATOR      *D01
     2089                            *                                   SIGMA 9 FLAG = 1 FOR SIGMA 9    C01
     2090                            *                                   SIGMA 9 FLAG = 0 FOR SIGMA 5/7  *DP1
     2091   01 006BE    6D000040 A            WD,R0    X'40'             RESET ALARM INDICATOR           *DP1
     2092   01 006BF    32C00D28              LW,12    MW00
     2093   01 006C0    6AF005C9              BAL,15   ZSML40            PRINT HEADER MESSAGE            *CP1
     2094         01 006C1           REVBRNCH EQU      %                 PRINT REVISION MESSAGE          *DP1
     2095         00000000                    DO       REVCOUNT=0                                        *DP1
     2096                        *S*          NOP                                                        *DP1
     2097                                     ELSE                                                       *DP1
     2098   01 006C1    6AF00F94 02           BAL,15   REVPRINT                                          *DP1
     2099                                     FIN                                                        *DP1
     2100                            *
     2101   01 006C2    68000DD2              B        INIT00            INITIALIZE PROGRAM              *DP1
     2102   01 006C3    0F000150     ZCMS5    XPSD,0   ZT40
     2103   01 006C4    00001000 A   ZCMS6    DATA     X'1000'
     2104   01 006C5    00800000 A   ZCMS7    DATA     X'00800000'       MASK FOR MODE ALTERED BIT       *DP1
     2105                                     BOUND    8
     2106   01 006C6    00000000 A   ZCMST40  DATA     0
     2107   01 006C7    00000000 A            DATA     0
     2108   01 006C8    00000685              DATA     ZCMS+1
     2109   01 006C9    00000000 A            DATA     0
     2110   01 006CA    0F0006CC     LRAXPSD  XPSD,0   LRAXPSD1                                          *D01
     2111                                     BOUND    8                                                 *D01
     2112   01 006CC                 LRAXPSD1 RES      2                                                 *D01
     2113   01 006CE    000006BC              DATA     ZCMS3                                             *D01
     2114   01 006CF    00000000 A            DATA     0                                                 *D01
     2115   01 006D0    0F0006D2     LBRXPSD  XPSD,0   LBRXPSD1                                          *D01
     2116                                     BOUND    8                                                 *D01
     2117   01 006D2                 LBRXPSD1 RES      2                                                 *D01
     2118   01 006D4    000006B7              DATA     ZCMS2                                             *D01
     2119   01 006D5    00000000 A            DATA     0                                                 *D01
     2120                                     PAGE
     2121                            *
     2122                            * EQUATE STATEMENTS TO OVERLAY CODE FOR COMPUTING MEMORY SIZE
     2123                            *  AND ASSIGNING LENGTH AND BASE ADDRESSES FOR TABLES ETC
     2124                            *
     2125         01 00684           ZLBADR   EQU      ZCMS              OPEN LOOP ADDRESS
     2126         01 00685           ZLBPTR   EQU      ZLBADR+1          AND POINTER
     2127         01 00686           ZLKADR   EQU      ZLBPTR+1          LINK TABLE ADDRESS
     2128         01 00687           ZLKPTR   EQU      ZLKADR+1          AND POINTER
     2129         01 00688           ZPMADR   EQU      ZLKPTR+1          PLACE MARKER ADDRESS
     2130         01 00689           ZPMPTR   EQU      ZPMADR+1          AND POINTER
     2131         01 0068A           ZMFRIOAD EQU      ZPMPTR+1          MAIN FETCH INPUT/OUTPUT ADDRESS
     2132         01 0068B           ZIOADR   EQU      ZMFRIOAD+1        INPUT/OUTPUT BASE ADDRESS
     2133         01 0068C           ZIOWDS   EQU      ZIOADR+1          AND NUMBER OF WORDS
     2134         01 0068D           ZEXPT0   EQU      ZIOWDS+1          EXECUTE TABLE BASE
     2135         01 0068E           ZEXPT1   EQU      ZEXPT0+1          AND VARIABLE POINTERS
     2136         01 0068F           ZTEMP    EQU      ZEXPT1+1          TEMPORARY
     2137         01 00690           ZTEMP1   EQU      ZTEMP+1           LOCATIONS
     2138         01 00691           P0       EQU      ZTEMP1+1
     2139         01 00692           P1       EQU      P0+1              LABELED
     2140         01 00693           P2       EQU      P1+1              PARAMETER
     2141         01 00694           P3       EQU      P2+1              AREA FOR
     2142         01 00695           P4       EQU      P3+1              SUBROUTINES
     2143         01 00696           P5       EQU      P4+1
     2144         01 00697           P6       EQU      P5+1
     2145         01 00698           P7       EQU      P6+1
     2146         01 00699           P8       EQU      P7+1
     2147         01 0069A           P9       EQU      P8+1
     2148         01 0069B           P10      EQU      P9+1
     2149         01 0069C           P11      EQU      P10+1
     2150         01 0069D           P12      EQU      P11+1
     2151         01 0069E           P13      EQU      P12+1
     2152         01 0069F           P14      EQU      P13+1
     2153         01 006A0           P15      EQU      P14+1
     2154         01 006A1           PX       EQU      P15+1
     2155         01 006A2           ZDMPA    EQU      PX+1                DUMP
     2156   01 006D6                          RES      10                 AREA
     2157                                     PAGE
     2158                            *
     2159                            * SUB-ROUTINE TABLE WITH FORM DIRECTIVE
     2160                            *  TWO WORDS PER SUB-ROUTINE DIVIDED AS FOLLOWS0
     2161                            *   FIRST WORD = MNEMONIC NAME,FOUR ALPHA CHARACTERS MAXIMUM
     2162                            *   SECOND WORD = SUB-ROUTINE INFO AND ENTRY ADDRESS
     2163                            *
     2164         01 006E0           ZSRBEG   EQU      %
     2165   01 006E0    00C3D3D9 A            DATA     X'C3D3D9'         CLR
     2166   01 006E1    D9C5E3D5 A            DATA     X'D9C5E3D5'       RETN
     2167   01 006E2    0000C7D6 A            DATA     X'C7D6'           GO
     2168   01 006E3    00C4D2C2 A            DATA     X'C4D2C2'         DKB
     2169   01 006E4    00C4C3D9 A            DATA     X'C4C3D9'         DCR
     2170   01 006E5    00E2D4D3 A            DATA     X'E2D4D3'         SML
     2171   01 006E6    00E2D4C4 A            DATA     X'E2D4C4'         SMD
     2172   01 006E7    00C1D3E3 A            DATA     X'C1D3E3'         ALT
     2173   01 006E8    00C4D4D7 A            DATA     X'C4D4D7'         DMP
     2174   01 006E9    00E3E8D7 A            DATA     X'E3E8D7'         TYP
     2175   01 006EA    00C8D3E3 A            DATA     X'C8D3E3'         HLT
     2176   01 006EB    00E6C4E7 A            DATA     'WDX'             WRITE PORT X
     2177   01 006EC    00E6C4E8 A            DATA     'WDY'             WRITE PORT Y
     2178   01 006ED    0000E7D7 A            DATA     'XP'              CROSS PORT ACCESS TEST
     2179   01 006EE    C1E3E6C4 A            DATA     'ATWD'            AUTO TEST DATA MODE
     2180   01 006EF    C1E3E6C1 A            DATA     'ATWA'            AUTO TEST ADDRESS MODE
     2181   01 006F0    00C4C4C1 A            DATA     'DDA'             DECLARE DEVICE ADDRESS
     2182   01 006F1    E6C4E3E7 A            DATA     'WDTX'            WRITE DIRECT TEST MODE PORT X
     2183   01 006F2    E6C4E3E8 A            DATA     'WDTY'            WRITE DIRECT TEST MODE PORT Y
     2184   01 006F3    E6C4E2E7 A            DATA     'WDSX'            WRITE DIRECT SWITCH MODE PORT X
     2185   01 006F4    E6C4E2E8 A            DATA     'WDSY'            WRITE DIRECT SWITCH MODE PORT Y
     2186   01 006F5    C1E4E3D6 A            DATA     'AUTO'            AUTO TEST 7720
     2187   01 006F6    00E2C6E3 A            DATA     'SFT'
     2188   01 006F7    C4D3C1E8 A            DATA     'DLAY'
     2189   01 006F8    E6D7F2F2 A            DATA     'WP22'            WRITE PORT 7722
     2190   01 006F9    D9D7F2F2 A            DATA     'RP22'            READ PORT 7722
     2191   01 006FA    C1E4F2F2 A            DATA     'AU22'            AUTO TEST 7722
     2192         01 006FB           ZSRTBL   EQU      %
     2193         0000001B           ZSRLEN   EQU      %-ZSRBEG
     2194                                     PAGE
     2195                            *
     2196                            * SUBROUTINE ADDRESS TABLE WITH CONTROL INFORMATION
     2197                            *
     2198                            *  BITS 0-3       PARAMETER COUNT
     2199                            *  BITS 4-5       RE-ITERATION/IDENTIFIER CODE
     2200                            *                 00  NO LEADING DECIMAL SUBFIELD PERMITTED
     2201                            *                 01  PLACE MARKER IDENTIFIER REQUEST
     2202                            *                 10  REITERATION COUNT
     2203                            *                 11  ILLEGAL
     2204                            *  BITS 6-7       EXECUTION MODE KEYS
     2205                            *                 00  UNCONDITIONAL
     2206                            *                 01  CONTROL LINE MODE ONLY
     2207                            *                 10  IMMEDIATE MODE ONLY
     2208                            *                 11  OPTIONAL CONTROL OR IMMEDIATE MODE
     2209                            *  BITS 8-14      RESERVED
     2210                            *  BITS 15-31     SUBROUTINE ADDRESS
     2211                            *
     2212   01 006FB    000002A1 A            ZFSAT    0,0,0,0,ZPC200    CLR
     2213   01 006FC    03000651 A            ZFSAT    0,0,3,0,ZCONINT   RETN
     2214   01 006FD    02000661 A            ZFSAT    0,0,2,0,ZGOPRO    GO
     2215   01 006FE    1200052A A            ZFSAT    1,0,2,0,ZDKB      DKB
     2216   01 006FF    1200052D A            ZFSAT    1,0,2,0,ZDCR      DCR
     2217   01 00700    13000537 A            ZFSAT    1,0,3,0,ZSML      SML
     2218   01 00701    1300053C A            ZFSAT    1,0,3,0,ZSMD      SMD
     2219   01 00702    00000550 A            ZFSAT    0,0,0,0,ZALT      ALT
     2220   01 00703    3300056A A            ZFSAT    3,0,3,0,ZDMP      DMP
     2221   01 00704    33000565 A            ZFSAT    3,0,3,0,ZTYP      TYP
     2222   01 00705    17000541 A            ZFSAT    1,1,3,0,ZHLT      HLT
     2223   01 00706    13000717 A            ZFSAT    1,0,3,0,WDX00     WRITE PORT X
     2224   01 00707    13000725 A            ZFSAT    1,0,3,0,WDY00     WRITE PORT Y
     2225   01 00708    03000732 A            ZFSAT    0,0,3,0,XP00      CROSS PORT ACCESS TEST
     2226   01 00709    07000750 A            ZFSAT    0,1,3,0,ATWD00    AUTO TEST DATA MODE
     2227   01 0070A    07000756 A            ZFSAT    0,1,3,0,ATWA00    AUTO TEST ADDRESS MODE
     2228   01 0070B    230007DA A            ZFSAT    2,0,3,0,DDA00     DECLARE DEVICE ADDRESS
     2229   01 0070C    170007E9 A            ZFSAT    1,1,3,0,WDTX00    WRITE DIRECT TEST MODE PORT X
     2230   01 0070D    170007F9 A            ZFSAT    1,1,3,0,WDTY00    WRITE DIRECT TEST MODE PORT Y
     2231   01 0070E    2700080A A            ZFSAT    2,1,3,0,WDSX00    WRITE DIRECT SWITCH MODE PORT X
     2232   01 0070F    2700081D A            ZFSAT    2,1,3,0,WDSY00    WRITE DIRECT SWITCH MODE PORT Y
     2233   01 00710    0700082E A            ZFSAT    0,1,3,0,AUTO00    AUTO
     2234   01 00711    27000DF0 A           ZFSAT     2,1,3,0,SFT00       SINGLE FUNCTION TEST OF THE 7720
     2235   01 00712    1B000E37 A            ZFSAT    1,2,3,0,DLAY00
     2236   01 00713    23000C64 A            ZFSAT    2,0,3,0,WP2200    WRITE PORT 7722
     2237   01 00714    13000C70 A            ZFSAT    1,0,3,0,RP2200    READ PORT 7722
     2238   01 00715    07000C8B A            ZFSAT    0,1,3,0,AU2200    AUTO TEST 7722
     2239         01 00716           ZSRADR   EQU      %
     2240                                     PAGE
     2241                            *
     2242                            *
     2243                            *        W R I T E  P O R T  X
     2244   01 00716    40000000 A            DATA     4**28
     2245                            *
     2246   01 00717    32400692     WDX00    LW,4     P1                FETCH PATTERN
     2247   01 00718    35F00D06              STW,15   RETURN
     2248   01 00719    4B400E81              AND,4    L(X'FFFF')
     2249   01 0071A    32500004 A            LW,5     4                 DATA LINE INFO LEFT IN (5)
     2250   01 0071B    72640004 A            LB,6     4,2
     2251   01 0071C    2560007C A            SLS,6    -4
     2252   01 0071D    21600002 A            CI,6     2
     2253   01 0071E    68100721              BCR,1    %+3               B IF MODE IS NOT 0000 OF 0001
     2254   01 0071F    4B400E82              AND,4    L(X'FFF')
     2255   01 00720    49400E83              OR,4     L(1**13)          SET MODE TO 0010
     2256   01 00721    49400E84              OR,4     L(1**7)           SET PORT X SELECT BIT
     2257   01 00722    ED500004 A            WD,5     *4                SEND DATA AND ADDRESS PATTERN
     2258   01 00723    E800000F A            B        *15               RETURN TO DCP
     2259                            *
     2260                            *
     2261                                     PAGE
     2262                            *
     2263                            *
     2264                            *        W R I T E  P O R T Y
     2265   01 00724    40000000 A            DATA     4**28
     2266                            *
     2267   01 00725    32400692     WDY00    LW,4     P1                FETCH PATTERN
     2268   01 00726    35F00D06              STW,15    RETURN
     2269   01 00727    4B400E81              AND,4    L(X'FFFF')
     2270   01 00728    32500004 A            LW,5     4                 DATA LINE INFO LEFT IN (5)
     2271   01 00729    72640004 A            LB,6     4,2
     2272   01 0072A    2560007C A            SLS,6    -4
     2273   01 0072B    21600002 A            CI,6     2
     2274   01 0072C    6810072F              BCR,1    %+3               B IF MODE IS NOT 0000 OR 0001
     2275   01 0072D    4B400E82              AND,4    L(X'FFF')
     2276   01 0072E    49400E83              OR,4     L(1**13)          SET MOVE TO 0010
     2277   01 0072F    4B400E85              AND,4    L(X'FF7F')        RESET PORT SELECT BIT  (PORT Y)
     2278   01 00730    ED500004 A            WD,5     *4                SEND DATA AND ADDRESS PATTERN
     2279   01 00731    E800000F A            B        *15               RETURN TO DCP
     2280                            *
     2281                            *
     2282                                     PAGE
     2283                            *
     2284                            *
     2285                            *        C R O S S  P O R T  A C C E S S  T E S T
     2286                            *
     2287                            *
     2288   01 00732    2240AAAA A   XP00     LI,4     X'AAAA'           EVEN BIT PATTERN
     2289   01 00733    22505555 A            LI,5     X'5555'           ODD  BIT PATTERN
     2290   01 00734    35F00D06              STW,15   RETURN
     2291   01 00735    ED400004 A   XP01     WD,4     *4                PORT X
     2292   01 00736    ED500005 A            WD,5     *5                PORT Y
     2293   01 00737    ED400004 A            WD,4     *4
     2294   01 00738    ED500005 A            WD,5     *5
     2295   01 00739    ED400004 A            WD,4     *4
     2296   01 0073A    ED500005 A            WD,5     *5
     2297   01 0073B    ED400004 A            WD,4     *4
     2298   01 0073C    ED500005 A            WD,5     *5
     2299   01 0073D    ED400004 A            WD,4     *4
     2300   01 0073E    ED500005 A            WD,5     *5
     2301   01 0073F    ED400004 A            WD,4     *4
     2302   01 00740    ED500005 A            WD,5     *5
     2303   01 00741    ED400004 A            WD,4     *4
     2304   01 00742    ED500005 A            WD,5     *5
     2305   01 00743    ED400004 A            WD,4     *4
     2306   01 00744    ED500005 A            WD,5     *5
     2307   01 00745    ED400004 A            WD,4     *4
     2308   01 00746    ED500005 A            WD,5     *5
     2309   01 00747    ED400004 A            WD,4     *4
     2310   01 00748    ED500005 A            WD,5     *5
     2311   01 00749    22600005 A            LI,6     5
     2312   01 0074A    6460074A              BDR,6    %                 DELAY 10 MOCROSECONDS
     2313   01 0074B    6C000000 A            RD,0     0
     2314   01 0074C    E980000F A            BCS,8    *15               B IF SS1 IS SET
     2315   01 0074D    22600004 A            LI,6     4
     2316   01 0074E    6460074E              BDR,6    %                 DELAY 1/ MICROSECONDS
     2317   01 0074F    68000735              B        XP01
     2318                            *
     2319                            *
     2320                                     PAGE
     2321                            *
     2322                            *
     2323                            *        A U T O  T E S T  7 7 1 0
     2324                            *
     2325                            *
     2326   01 00750    32400E86     ATWD00   LW,4     L('DATA')
     2327   01 00751    35100D0D              STW,1    TEMP1
     2328   01 00752    35F00D06              STW,15   RETURN
     2329   01 00753    35400D3F              STW,4    TEXT01            INITIALIZE MESSAGE
     2330   01 00754    35400D5E              STW,4    TEXT05+5
     2331   01 00755    68000759              B        AT00
     2332                            *
     2333                            *        A U T O  T E S T  A D D R E S S  M O D E
     2334                            *
     2335   01 00756    32400E87     ATWA00   LW,4     L('ADDR')
     2336   01 00757    35000D0D              STW,0    TEMP1
     2337   01 00758    68000752              B        ATWD00+2
     2338                            *
     2339                            *
     2340                                     PAGE
     2341                            *
     2342                            *
     2343                            *        A U T O  T E S T  7 7 1 0  R O U T I N E
     2344                            *
     2345                            *
     2346   01 00759    35F00D06     AT00     STW,15   RETURN
     2347   01 0075A    35000D0E              STW,0    TEMP2             INITIALIZE ERROR COUNTER
     2348   01 0075B    35000D0C              STW,0    TEMP0             INITIALIZE ERROR FLAG
     2349   01 0075C    224040E7 A            LI,4     ' X'
     2350   01 0075D    55400D56              STH,4    TEXT04+1
     2351   01 0075E    22400080 A            LI,4     1**7
     2352   01 0075F    35400D0A              STW,4    PORT              INITIALIZE PORT
     2353   01 00760    22704000 A   AT01     LI,7     16384             INITIALIZE PASS COUNT
     2354   01 00761    12400E70              LD,4     PAT01
     2355   01 00762    15400D08              STD,4    PATTERN0          INITIALIZE PATTERN
     2356   01 00763    6C000000 A   AT02     RD,0     0
     2357   01 00764    E9800D06              BCS,8    *RETURN
     2358   01 00765    52420D08              LH,4     PATTERN0,1
     2359   01 00766    52520D08              LH,5     PATTERN0,1
     2360   01 00767    4B500E81              AND,5    L(X'FFFF')
     2361   01 00768    72640D08              LB,6     PATTERN0,2
     2362   01 00769    2560007C A            SLS,6    -4
     2363   01 0076A    21600002 A            CI,6     2
     2364   01 0076B    6810076E              BCR,1    %+3               B IF NOT MODE 0000 OR 0001
     2365   01 0076C    4B400E82              AND,4    L(X'FFF')
     2366   01 0076D    20402000 A            AI,4     1**13             SET MODE TO 0010
     2367   01 0076E    4B400E85              AND,4    L(X'FF7F')        STRIP PORT SELECT BIY
     2368   01 0076F    49400D0A              OR,4     PORT              SET PORT SELECT BIT
     2369   01 00770    ED500004 A            WD,5     *4                SEND PATTERN TO JX58
     2370   01 00771    EC600004 A            RD,6     *4                FETCH PATTERN FROM JX58
     2371   01 00772    74000D12              STCF     WORK4             SAVE CONDITION CODES
     2372   01 00773    4B600E81              AND,6    L(X'FFFF')
     2373   01 00774    35400D13              STW,4    WORK5
     2374   01 00775    35600D10              STW,6    WORK2             RECEIVED PATTERN
     2375   01 00776    33000D0D              MTW,0    TEMP1
     2376   01 00777    6930077A              BCS,3    %+3               B IF DATA MODE
     2377   01 00778    32800004 A            LW,8     4                 FETCH ADDRESS PATTERN
     2378   01 00779    6800077B              B        %+2
     2379   01 0077A    32800005 A            LW,8     5                 FETCH DATA PATTERN
     2380   01 0077B    35800D0F              STW,8    WORK1             EXPECTED PATTERN
     2381   01 0077C    48600008 A            EOR,6    8                 COMPARE PATTERNS
     2382   01 0077D    6830077F              BCR,3    %+2               B IF NO ERRORS
     2383   01 0077E    33100D0C              MTW,1    TEMP0             SET ERROR FLAG
     2384   01 0077F    25800072 A            SLS,8    -14               RIGHT JUSTIFY 2 HIGH ORDER BITS
     2385   01 00780    35800D11              STW,8    WORK3
     2386   01 00781    72900D12              LB,9     WORK4             FETCH CONDITION CODES
     2387   01 00782    2590007C A            SLS,9    -4                RIGHTJUSTIFY
     2388   01 00783    4B900003 A            AND,9    3                 STRIP CC1 AND CCC2
     2389   01 00784    35900D12              STW,9    WORK4             SAVE RECEIVED CONDITION CODES
     2390   01 00785    48800009 A            EOR,8    9
     2391   01 00786    68300788              BCR,3    %+2               B IF NO ERRORS
     2392   01 00787    33100D0C              MTW,1    TEMP0
     2393   01 00788    33000D0C              MTW,0    TEMP0
     2394   01 00789    6930079D              BCS,3    AT06              B IF ANY ERRORS
     2395   01 0078A    12400D08     AT03     LD,4     PATTERN0          FETCH PATTERN
     2396   01 0078B    25400301 A            SCD,4    1                 SHIFT TO GET NEXT PATTERN
     2397   01 0078C    15400D08              STD,4    PATTERN0
     2398   01 0078D    64700763              BDR,7    AT02
     2399   01 0078E    33000D0A              MTW,0    PORT
     2400   01 0078F    68300795              BCR,3    AT04
     2401   01 00790    22000000 A            LI,0     0
     2402   01 00791    35000D0A              STW,0    PORT              SET TO PORT Y
     2403   01 00792    224040E8 A            LI,4     ' Y'
     2404   01 00793    55400D56              STH,4    TEXT04+1
     2405   01 00794    68000760              B        AT01
     2406   01 00795    33000D0E     AT04     MTW,0    TEMP2
     2407   01 00796    68300799              BCR,3    AT05              B IF NO ERRORS HAD OCCURED
     2408   01 00797    33100D06              MTW,1    RETURN            TAKE PLACEMARK BRANCH
     2409   01 00798    E8000D06              B        *RETURN
     2410   01 00799    32C00D58     AT05     LW,12    MW05
     2411   01 0079A    022000D0 A            LCI      13
     2412   01 0079B    680005CA              B        ZTWLP             SEND SUCCESS MESSAGE
     2413   01 0079C    E8000D06              B        *RETURN
     2414   01 0079D    22000000 A   AT06     LI,0     0
     2415   01 0079E    35000D0C              STW,0    TEMP0
     2416   01 0079F    33100D0E              MTW,1    TEMP2
     2417   01 007A0    32500D0F              LW,5     WORK1             EXPECTED PATTERN
     2418   01 007A1    25500010 A            SLS,5    16
     2419   01 007A2    6AE00C58              BAL,14   BINARYTOEBCDIC
     2420   01 007A3    55400D44              STH,4    TEXT02+1
     2421   01 007A4    52400004 A            LH,4     4
     2422   01 007A5    55420D43              STH,4    TEXT02,1
     2423   01 007A6    6AE00C58              BAL,14   BINARYTOEBCDIC
     2424   01 007A7    35400D45              STW,4    TEXT02+2
     2425   01 007A8    6AE00C58              BAL,14   BINARYTOEBCDIC
     2426   01 007A9    55400D47              STH,4    TEXT02+4
     2427   01 007AA    52400004 A            LH,4     4
     2428   01 007AB    55420D46              STH,4    TEXT02+3,1
     2429   01 007AC    6AE00C58              BAL,14   BINARYTOEBCDIC
     2430   01 007AD    35400D48              STW,4    TEXT02+5
     2431   01 007AE    32500D11              LW,5     WORK3             EXPECTED CONDITION CODES
     2432   01 007AF    2550027C A            SCS,5    -4
     2433   01 007B0    6AE00C58              BAL,14   BINARYTOEBCDIC
     2434   01 007B1    55420D4A              STH,4    TEXT02+7,1
     2435   01 007B2    32500D10              LW,5     WORK2             RECEIVED PATTERN
     2436   01 007B3    25500010 A            SLS,5    16
     2437   01 007B4    6AE00C58              BAL,14   BINARYTOEBCDIC
     2438   01 007B5    55400D4D              STH,4    TEXT03+1
     2439   01 007B6    52400004 A            LH,4     4
     2440   01 007B7    55420D4C              STH,4    TEXT03,1
     2441   01 007B8    6AE00C58              BAL,14   BINARYTOEBCDIC
     2442   01 007B9    35400D4E              STW,4    TEXT03+2
     2443   01 007BA    6AE00C58              BAL,14   BINARYTOEBCDIC
     2444   01 007BB    55400D50              STH,4    TEXT03+4
     2445   01 007BC    52400004 A            LH,4     4
     2446   01 007BD    55420D4F              STH,4    TEXT03+3,1
     2447   01 007BE    6AE00C58              BAL,14   BINARYTOEBCDIC
     2448   01 007BF    35400D51              STW,4    TEXT03+5
     2449   01 007C0    32500D12              LW,5     WORK4             RECEIVED CONDITION CODES
     2450   01 007C1    2550027C A            SCS,5    -4
     2451   01 007C2    6AE00C58              BAL,14   BINARYTOEBCDIC
     2452   01 007C3    55420D53              STH,4    TEXT03+7,1
     2453   01 007C4    32C00D3E              LW,12    MW01
     2454   01 007C5    022000E0 A            LCI      14
     2455   01 007C6    6AF005CA              BAL,15   ZTWLP
     2456   01 007C7    32C00D42              LW,12    MW02
     2457   01 007C8    022000E0 A            LCI      14
     2458   01 007C9    6AF005CA              BAL,15   ZTWLP
     2459   01 007CA    32C00D54              LW,12    MW04
     2460   01 007CB    022000E0 A            LCI      14
     2461   01 007CC    6AF005CA              BAL,15   ZTWLP
     2462   01 007CD    32C00D4B              LW,12    MW03
     2463   01 007CE    022000E0 A            LCI      14
     2464   01 007CF    6AF005CA              BAL,15   ZTWLP
     2465   01 007D0    6C000000 A            RD,0     0
     2466   01 007D1    682007D6              BCR,2    SWITCH2
     2467   01 007D2    6C000000 A            RD,0     0
     2468   01 007D3    E9800D06              BCS,8    *RETURN           RETURN TO DCP IF SS1 SET
     2469   01 007D4    692007D2              BCS,2    %-2               WAIT UNTIL SENSE SWITCH 3 IS RESET
     2470   01 007D5    6800078A              B        AT03              GO TO NEXT TEST
     2471   01 007D6    68400763     SWITCH2  BCR,4    AT02              LOOP ON ERROR SSE RESET
     2472   01 007D7    6800078A              B        AT03              GO TO NEXT TEST  SS2 SET
     2473                            *
     2474                            *
     2475                                     PAGE
     2476                            *
     2477                            *
     2478                            *        D E C L A R E  D E V I C E  A D D R E S S
     2479                            *
     2480                            *
     2481   01 007D8    20000000 A            DATA     2**28
     2482   01 007D9    40000000 A            DATA     4**28             IOP NUMBER
     2483                            *
     2484                            *
     2485   01 007DA    32400692     DDA00    LW,4     P1                FETCH DEVICE NUMBER
     2486   01 007DB    4B400E88              AND,4    L(15)
     2487   01 007DC    25400004 A            SLS,4    4
     2488   01 007DD    227FFFFA A            LI,7     -6
     2489   01 007DE    325E0E78              LW,5     TEXI+6,7          FETCH INSTRUCTION
     2490   01 007DF    4B500E89              AND,5    L(X'FFFFFF0F')    STRIP DEVICE NUMBER
     2491   01 007E0    49500004 A            OR,5     4                 MERGE NEW DEVICE NUMBER
     2492   01 007E1    355E0E78              STW,5    TEXI+6,7          RESTORE INSTRUCTION
     2493   01 007E2    657007DE              BIR,7    %-4
     2494   01 007E3    32400693              LW,4     P2                FETCH IOP NUMBER
     2495   01 007E4    4B400E8A              AND,4    L(X'1F')          STRIP IOP NUMBER                *DP1
     2496   01 007E5    25400408 A            SAS,4    8
     2497   01 007E6    35400D03              STW,4    DEVICE
     2498   01 007E7    E800000F A            B        *15
     2499                            *
     2500                            *
     2501                                     PAGE
     2502                            *
     2503                            *
     2504                            *        W R I T E  D I R E C T  T E S T  M O D E  P O R T  X
     2505                            *
     2506                            *
     2507   01 007E8    40000000 A            DATA     4**28
     2508                            *
     2509                            *
     2510   01 007E9    35F00D06     WDTX00   STW,15   RETURN
     2511   01 007EA    67000E72              EXU      TEXI
     2512   01 007EB    74000005 A            STCF     5                 SAVE CONDITION CODES
     2513   01 007EC    32400692              LW,4     P1                FETCH STATIVS  COMPARE BIT'S
     2514   01 007ED    2540001C A            SLS,4    28
     2515   01 007EE    4B400E8B              AND,4    L(3**28)
     2516   01 007EF    4B400005 A            AND,4    5
     2517   01 007F0    693007F2              BCS,3    %+2               B IF NO STATUS BIT'S  COMPARE
     2518   01 007F1    33100D06              MTW,1    RETURN            TAKE PLACEMARK BRANCH
     2519   01 007F2    6AE00C58              BAL,14   BINARYTOEBCDIC    CONVERT CONDITION CODE  BIT'S
     2520   01 007F3    55420D65              STH,4    TEXT06+3,1
     2521   01 007F4    32C00D61              LW,12    MW06
     2522   01 007F5    022000F0 A            LCI      15
     2523   01 007F6    6AF005CA              BAL,15   ZTWLP
     2524   01 007F7    E8000D06              B        *RETURN
     2525                            *
     2526                            *
     2527                                     PAGE
     2528                            *
     2529                            *
     2530                            *        W R I T E  D I R E C T  T E S T  M O D E  P O R T  Y
     2531                            *
     2532                            *
     2533   01 007F8    40000000 A            DATA     4**28
     2534                            *
     2535                            *
     2536   01 007F9    35F00D06     WDTY00   STW,15   RETURN
     2537   01 007FA    67000E73              EXU      TEYI
     2538   01 007FB    74000005 A            STCF     5                 SAVE CONDITION CODE'S
     2539   01 007FC    32400692              LW,4     P1                FETCH STATUS COMARE BITS
     2540   01 007FD    2540001C A            SLS,4    28
     2541   01 007FE    4B400E8B              AND,4    L(3**28)
     2542   01 007FF    4B400005 A            AND,4    5
     2543   01 00800    69300802              BCS,3    %+2               B IF NO STATUS BITS COMPARE
     2544   01 00801    33100D06              MTW,1    RETURN            TAKE PLACEMARK BRANCH
     2545   01 00802    6AE00C58              BAL,14   BINARYTOEBCDIC    CONVERT CONDITION CODE  BIT'S
     2546   01 00803    55420D6A              STH,4    TEXT07+3,1
     2547   01 00804    32C00D66              LW,12    MW07
     2548   01 00805    022000F0 A            LCI      15
     2549   01 00806    6AF005CA              BAL,15   ZTWLP
     2550   01 00807    E8000D06              B        *RETURN
     2551                            *
     2552                            *
     2553                                     PAGE
     2554                            *
     2555                            *
     2556                            *        W R I T E  D I R E C T  S W I T C H  M O D E  P O R T  X
     2557                            *
     2558                            *
     2559   01 00808    40000000 A            DATA     4**28
     2560   01 00809    40000000 A            DATA     4**28
     2561                            *
     2562                            *
     2563   01 0080A    35F00D06     WDSX00   STW,15   RETURN
     2564   01 0080B    32400692              LW,4     P1                FUNCTION SELECT
     2565   01 0080C    4B400E8C              AND,4    L(1)
     2566   01 0080D    67080E74              EXU      SRXI,4
     2567   01 0080E    74000005 A            STCF     5
     2568   01 0080F    32400693              LW,4     P2                STATUS BITS
     2569   01 00810    2540001C A            SLS,4    28
     2570   01 00811    4B400E8B              AND,4    L(3**28)
     2571   01 00812    4B400005 A            AND,4    5
     2572   01 00813    69300815              BCS,3    %+2               B IF NO STATUS BITS COMPARE
     2573   01 00814    33100D06              MTW,1    RETURN            TAKE PL&CEMARK BRANCH
     2574   01 00815    6AE00C58              BAL,14   BINARYTOEBCDIC
     2575   01 00816    55420D6F              STH,4    TEXT08+3,1
     2576   01 00817    32C00D6B              LW,12    MW08
     2577   01 00818    022000F0 A            LCI      15
     2578   01 00819    6AF005CA              BAL,15   ZTWLP
     2579   01 0081A    E8000D06              B        *RETURN
     2580                            *
     2581                            *
     2582                                     PAGE
     2583                            *
     2584                            *
     2585                            *        W R I T E  D I R E C T  S W I T C H  M O D E  P O R T  Y
     2586                            *
     2587                            *
     2588   01 0081B    40000000 A            DATA     4**28
     2589   01 0081C    40000000 A            DATA     4**28
     2590                            *
     2591                            *
     2592   01 0081D    35F00D06     WDSY00   STW,15   RETURN
     2593   01 0081E    32400692              LW,4     P1                FUNCTION SELECT
     2594   01 0081F    4B400E8C              AND,4    L(1)
     2595   01 00820    67080E76              EXU      SRYI,4
     2596   01 00821    74000005 A            STCF     5
     2597   01 00822    32400693              LW,4     P2                STATUS BIT'S
     2598   01 00823    2540001C A            SLS,4    28
     2599   01 00824    4B400E8B              AND,4    L(3**28)
     2600   01 00825    4B400005 A            AND,4    5
     2601   01 00826    69300828              BCS,3    %+2               B IF NO STATUS BITS COMPARE
     2602   01 00827    33100D06              MTW,1    RETURN            TAKE PLACEMARK BRANCH
     2603   01 00828    6AE00C58              BAL,14   BINARYTOEBCDIC
     2604   01 00829    55420D74              STH,4    TEXT09+3,1
     2605   01 0082A    32C00D70              LW,12    MW09
     2606   01 0082B    022000F0 A            LCI      15
     2607   01 0082C    6AF005CA              BAL,15   ZTWLP
     2608   01 0082D    E8000D06              B        *RETURN
     2609                            *
     2610                            *
     2611                                     PAGE
     2612                            *        A U T O  T E S T  7 7 2 0  E R R O R  R E P O R T E R
     2613                            *
     2614                                     OPEN     ERROR
     2615         00000000           ERROR    CNAME    0
     2616                                     PROC
     2617                            LF       GEN,22,1,1,8 X'1C000',AF(2),AF(1),AF(3)
     2618                                     PEND
     2619                            *
     2620                            *
     2621         00000000           TN       SET      0
     2622         00000000           TESTNO   FNAME
     2623                                     PROC
     2624                            TN       SET      TN+1
     2625                                     PEND     TN
     2626                                     PAGE
     2627                            *
     2628                            *
     2629                            *        A U T O  T E S T  7 7 2 0
     2630                            *
     2631                            *
     2632                            *        REGISTER 6 CONTAINS THE EXPECTED BYTE
     2633                            *        REGISTER 7 CONTAINS THE RECEIVED BYTE
     2634                            *        REGISTER 8 CONTAINS THE EXPECTED BIT IN BIT POSITION 31
     2635                            *        REGISTER 9 CONTAINS THE RECEIVED BIT IN BIT POSITION 31
     2636   01 0082E    35F00D06     AUTO00   STW,15   RETURN
     2637   01 0082F    6D000037 A            WD,0     X'37'             INHIBIT ALL INTERRUPTS
     2638   01 00830    22600000 A            LI,6     0
     2639   01 00831    35600D05              STW,6    AUTOSTEP
     2640   01 00832    35100D04              STW,1    AUTOFLAG
     2641   01 00833    35100D0A              STW,1    PORT
     2642   01 00834    35000D02              STW,0    STEPDEX
     2643   01 00835    32400D02     AUTO01   LW,4     STEPDEX
     2644   01 00836    22000000 A            LI,0     0
     2645   01 00837    2140002E A            CI,4     STEPTABLENGTH     TEST FOR END OF SUBROUTINE TABLE
     2646   01 00838    68100851              BGE      AUTO02            IF END DO PORT Y IF NOT ALREADY DONE
     2647   01 00839    32F80E42              LW,15    STEPTAB,4         FETCH TEST STEP ROUTINE ADDRESS
     2648   01 0083A    7240000F A            LB,4     15                FETCH TEST STEP NUMBER
     2649   01 0083B    35400D05              STW,4    AUTOSTEP
     2650   01 0083C    6D000042 A            WD,0     X'42'
     2651   01 0083D    22401F40 A            LI,4     8000
     2652   01 0083E    6440083E              BDR,4    %
     2653   01 0083F    6D000042 A            WD,0     X'42'             RESET THE IO RESET LATCH
     2654   01 00840    22401F40 A            LI,4     8000
     2655   01 00841    64400841              BDR,4    %
     2656   01 00842    32400D02              LW,4     STEPDEX
     2657   01 00843    21400002 A            CI,4     2
     2658   01 00844    6910084E              BL       AUTO04
     2659   01 00845    22601000 A            LI,6     1**12
     2660   01 00846    6D602031 A            WD,6     NOTDIOSY
     2661   01 00847    22603000 A            LI,6     3**12             SET DOR & IOR BITS
     2662   01 00848    6D602070 A            WD,6     DIO41
     2663   01 00849    33000D0A              MTW,0    PORT
     2664   01 0084A    6830084D              BEZ      %+3               GO TO PORT Y
     2665   01 0084B    67000E75              EXU      SBXI
     2666   01 0084C    6800084E              B        AUTO04
     2667   01 0084D    67000E77              EXU      SBYI
     2668                            AUTO04 ;
     2669   01 0084E    EAF0000F A            BAL,15   *15               GO TO TEST ROUTINE
     2670   01 0084F    33100D02              MTW,1    STEPDEX           TEST ROUTINE RETURNS HERE
     2671   01 00850    68000835              B        AUTO01
     2672   01 00851    33000D0A     AUTO02   MTW,0    PORT
     2673   01 00852    68300858              BCR,3    AUTO03            B IF BOTH PORT X AND Y HAVE BEEN
     2674                            *                                   TESTED
     2675   01 00853    22200002 A            LI,2     2
     2676   01 00854    35200D02              STW,2    STEPDEX
     2677   01 00855    22000000 A            LI,0     0
     2678   01 00856    35000D0A              STW,0    PORT
     2679   01 00857    68000835              B        AUTO01
     2680   01 00858    32C00D95     AUTO03   LW,12    MW15
     2681   01 00859    6D002008 A            WD,0     DISABLE
     2682   01 0085A    6D000042 A            WD,0     X'42'
     2683   01 0085B    22401388 A            LI,4     5000
     2684   01 0085C    6440085C              BDR,4    %                 DELAY UNTIL DEVICES RESET
     2685   01 0085D    6D000042 A            WD,0     X'42'
     2686   01 0085E    22401388 A            LI,4     5000
     2687   01 0085F    6440085F              BDR,4    %
     2688   01 00860    22500000 A            LI,5     0
     2689   01 00861    35500D04              STW,5    AUTOFLAG
     2690   01 00862    6D000022 A            WD,0     X'22'             ALLOW INTERRUPTS
     2691   01 00863    022000D0 A            LCI      13
     2692   01 00864    6AF005CA              BAL,15   ZTWLP
     2693   01 00865    E8000D06              B        *RETURN           RETURN TO DCP
     2694                            *
     2695                            *
     2696                            *        TEST THE OPERATION OF THE DIO INTERFACE BY RESETTING THE JX-58
     2697                            *
     2698         00000001           TRST     SET      TESTNO
     2699                            TESTREST ;
     2700   01 00866    22601000 A            LI,6     1**12
     2701   01 00867    6D602030 A            WD,6     NOTDIO41
     2702   01 00868    E800000F A            B        *15
     2703                                     PAGE
     2704                            *
     2705                            *        TEST PORT SWITCHING LOGIC IN 7720
     2706                            *
     2707         00000002           SWTH     SET      TESTNO
     2708   01 00869    22800000 A   TESTSWTH LI,8     0
     2709   01 0086A    22900001 A            LI,9     1
     2710   01 0086B    67000E73              EXU      TEYI
     2711   01 0086C    68200870              BCR,2    TESTSW2
     2712   01 0086D    6810086F              BCR,1    %+2
     2713   01 0086E    070000E7 A            ERROR    0,0,'X'
     2714   01 0086F    070000E8 A            ERROR    0,0,'Y'
     2715                            *
     2716                            *
     2717         00000003           SW2      SET      TESTNO
     2718   01 00870    22800000 A   TESTSW2  LI,8     0
     2719   01 00871    22900001 A            LI,9     1
     2720   01 00872    33100D05              MTW,1    AUTOSTEP
     2721   01 00873    67000E73              EXU      TEYI
     2722   01 00874    68100876              BCR,1    TESTSW3
     2723   01 00875    070000E8 A            ERROR    0,0,'Y'
     2724                            *
     2725                            *
     2726         00000004           SW3      SET      TESTNO
     2727   01 00876    22800000 A   TESTSW3  LI,8     0
     2728   01 00877    22900001 A            LI,9     1
     2729   01 00878    33100D05              MTW,1    AUTOSTEP
     2730   01 00879    67000E72              EXU      TEXI
     2731   01 0087A    6810087C              BCR,1    TESTSW4
     2732   01 0087B    070000E7 A            ERROR    0,0,'X'
     2733                            *
     2734                            *
     2735         00000005           SW4      SET      TESTNO
     2736   01 0087C    22800000 A   TESTSW4  LI,8     0
     2737   01 0087D    22900001 A            LI,9     1
     2738   01 0087E    33100D05              MTW,1    AUTOSTEP
     2739   01 0087F    67000E75              EXU      SBXI
     2740   01 00880    68100882              BCR,1    TESTSW5
     2741   01 00881    070000E7 A            ERROR    0,0,'X'
     2742                            *
     2743                            *
     2744         00000006           SW5      SET      TESTNO
     2745   01 00882    22800000 A   TESTSW5  LI,8     0
     2746   01 00883    22900001 A            LI,9     1
     2747   01 00884    33100D05              MTW,1    AUTOSTEP
     2748   01 00885    67000E75              EXU      SBXI
     2749   01 00886    68100888              BCR,1    TESTSW6
     2750   01 00887    070000E7 A            ERROR    0,0,'X'
     2751                            *
     2752                            *
     2753         00000007           SW6      SET      TESTNO
     2754   01 00888    22800001 A   TESTSW6  LI,8     1
     2755   01 00889    22900000 A            LI,9     0
     2756   01 0088A    33100D05              MTW,1    AUTOSTEP
     2757   01 0088B    67000E76              EXU      SRYI
     2758   01 0088C    6910088E              BCS,1    TESTSW7
     2759   01 0088D    070000E8 A            ERROR    0,0,'Y'
     2760                            *
     2761                            *
     2762         00000008           SW7      SET      TESTNO
     2763   01 0088E    22800000 A   TESTSW7  LI,8     0
     2764   01 0088F    22900001 A            LI,9     1
     2765   01 00890    33100D05              MTW,1    AUTOSTEP
     2766   01 00891    67000E75              EXU      SBXI
     2767   01 00892    68100894              BCR,1    TESTSW8
     2768   01 00893    070000E7 A            ERROR    0,0,'X'
     2769                            *
     2770                            *
     2771         00000009           SW8      SET      TESTNO
     2772   01 00894    22800001 A   TESTSW8  LI,8     1
     2773   01 00895    22900000 A            LI,9     0
     2774   01 00896    33100D05              MTW,1    AUTOSTEP
     2775   01 00897    67000E77              EXU      SBYI
     2776   01 00898    6910089A              BCS,1    TESTSW9
     2777   01 00899    070000E8 A            ERROR    0,0,'Y'
     2778                            *
     2779                            *
     2780         0000000A           SW9      SET      TESTNO
     2781   01 0089A    22800000 A   TESTSW9  LI,8     0
     2782   01 0089B    22900001 A            LI,9     1
     2783   01 0089C    33100D05              MTW,1    AUTOSTEP
     2784   01 0089D    67000E74              EXU      SRXI
     2785   01 0089E    681008A0              BCR,1    TESTSW10
     2786   01 0089F    070000E7 A            ERROR    0,0,'X'
     2787                            *
     2788                            *
     2789         0000000B           SW10     SET      TESTNO
     2790   01 008A0    22800000 A   TESTSW10 LI,8     0
     2791   01 008A1    22900001 A            LI,9     1
     2792   01 008A2    33100D05              MTW,1    AUTOSTEP
     2793   01 008A3    67000E73              EXU      TEYI
     2794   01 008A4    67000E72              EXU      TEXI
     2795   01 008A5    681008A7              BCR,1    TESTSW11
     2796   01 008A6    070000E7 A            ERROR    0,0,'X'
     2797                            *
     2798                            *
     2799         0000000C           SW11     SET      TESTNO
     2800   01 008A7    22800000 A   TESTSW11 LI,8     0
     2801   01 008A8    22900001 A            LI,9     1
     2802   01 008A9    33100D05              MTW,1    AUTOSTEP
     2803   01 008AA    67000E72              EXU      TEXI
     2804   01 008AB    67000E73              EXU      TEYI
     2805   01 008AC    E810000F A            BCR,1    *15
     2806   01 008AD    070000E8 A            ERROR    0,0,'Y'
     2807                            *
     2808                            *
     2809                                     PAGE
     2810                            *
     2811                            *        SIGNAL TESTED FS/AVO
     2812                            *
     2813         0000000D           TAVO     SET      TESTNO
     2814   01 008AE    22800001 A   TESTAVO  LI,8     1
     2815   01 008AF    22900000 A            LI,9     0
     2816   01 008B0    220005E2              LI,0     DA(CP01)
     2817   01 008B1    22700800 A            LI,7     8**8
     2818   01 008B2    6D702030 A            WD,7     NOTDIO41
     2819   01 008B3    CC000D03              SIO,0    *DEVICE
     2820   01 008B4    E800000F A            B        *15
     2821                            *
     2822                            *        SIGNAL TESTED FSL
     2823                            *
     2824         0000000E           TFSL     SET      TESTNO
     2825   01 008B5    22800001 A   TESTFSL  LI,8     1
     2826   01 008B6    22900000 A            LI,9     0
     2827   01 008B7    220005E2              LI,0     DA(CP01)
     2828   01 008B8    22700000 A            LI,7     0
     2829   01 008B9    6D702030 A            WD,7     NOTDIO41
     2830   01 008BA    CC000D03              SIO,0    *DEVICE
     2831   01 008BB    E800000F A            B        *15
     2832                            *
     2833                            *        SIGNAL TESTED DOR
     2834                            *
     2835         0000000F           TDOR     SET      TESTNO
     2836   01 008BC    22900001 A   TESTDOR  LI,9     1
     2837   01 008BD    22800000 A            LI,8     0
     2838   01 008BE    22600000 A            LI,6     0
     2839   01 008BF    220005E2              LI,0     DA(CP01)
     2840   01 008C0    6D602070 A            WD,6     DIO41
     2841   01 008C1    CC000D03              SIO,0    *DEVICE
     2842   01 008C2    698008C4              BCS,8    %+2               TEST FOR DOR LINE BEING LOW
     2843   01 008C3    07000000 A            ERROR
     2844   01 008C4    22602000 A            LI,6     2**12
     2845   01 008C5    6D602070 A            WD,6     DIO41
     2846   01 008C6    22800001 A            LI,8     1
     2847   01 008C7    22900000 A            LI,9     0
     2848   01 008C8    CC000D03              SIO,0    *DEVICE
     2849   01 008C9    688008CB              BCR,8    %+2               TEST FOR DOR LINE BEING HIGH
     2850   01 008CA    07000000 A   ERROR3   ERROR
     2851   01 008CB    22600000 A   TESTDOR1 LI,6     0
     2852   01 008CC    6D602070 A            WD,6     DIO41
     2853   01 008CD    22900001 A            LI,9     1
     2854   01 008CE    22800000 A            LI,8     0
     2855   01 008CF    CC000D03              SIO,0    *DEVICE
     2856   01 008D0    E980000F A            BCS,8    *15               TEST FOR DOR LINE BEING LOW
     2857   01 008D1    07000000 A            ERROR
     2858                            *
     2859                            *        SIGNAL TESTED IOR
     2860                            *
     2861         00000010           TIOR     SET      TESTNO
     2862   01 008D2    22900001 A   TESTIOR  LI,9     1
     2863   01 008D3    22800000 A            LI,8     0
     2864   01 008D4    220005E2              LI,0     DA(CP01)
     2865   01 008D5    22600000 A            LI,6     0
     2866   01 008D6    6D602070 A            WD,6     DIO41
     2867   01 008D7    CC000D03              SIO,0    *DEVICE
     2868   01 008D8    694008DA              BCS,4    %+2               TEST FOR IOR LINE BEING LOW
     2869   01 008D9    07000000 A            ERROR
     2870   01 008DA    22601000 A            LI,6     1**12
     2871   01 008DB    6D602070 A            WD,6     DIO41
     2872   01 008DC    22800001 A            LI,8     1
     2873   01 008DD    22900000 A            LI,9     0
     2874   01 008DE    CC000D03              SIO,0    *DEVICE
     2875   01 008DF    684008E1              BCR,4    %+2               TEST FOR IOR LINE BEING HIGH
     2876   01 008E0    07000000 A   TESTIOR2 ERROR
     2877                            *
     2878   01 008E1    22600000 A   TESTIOR1 LI,6     0
     2879   01 008E2    6D602070 A            WD,6     DIO41
     2880   01 008E3    22800000 A            LI,8     0
     2881   01 008E4    22900001 A            LI,9     1
     2882   01 008E5    CC000D03              SIO,0    *DEVICE
     2883   01 008E6    E940000F A            BCS,4    *15               TEST FOR IOR LINE BEING LOW
     2884   01 008E7    07000000 A            ERROR
     2885                            *
     2886                            *        SIGNAL TESTED IC
     2887                            *
     2888         00000011           TICS     SET      TESTNO            GENERATE THE TEST NUMBER
     2889   01 008E8    22800000 A   TESTIC   LI,8     0                 SET EXPECTED BIT
     2890   01 008E9    22900001 A            LI,9     1                 SET RECEIVED BIT
     2891   01 008EA    22601000 A            LI,6     1**12             LOAD RFN (RESET JX58 BIT)
     2892   01 008EB    6D602030 A            WD,6     NOTDIO41          RESET JX58
     2893   01 008EC    22503000 A            LI,5     3**12             LOAD DOR AND IOR BITS
     2894   01 008ED    6D502070 A            WD,5     DIO41             SET THE CONDITION CODE TO JX58 READY
     2895   01 008EE    22A00001 A            LI,10    1                 SET INTERRUPT NOT RECEIVED FLAG
     2896   01 008EF    22C00010 A            LI,12    X'10'
     2897   01 008F0    6DC01500 A            WD,12    X'1500'           DISABLE CONTROL PANEL INTERRUPT
     2898   01 008F1    22B00020 A            LI,11    X'20'             LOAD I/O INTERRUPT BIT
     2899   01 008F2    6DB01200 A            WD,11    X'1200'           ARM AND EMABLE I/O INTERRUPT
     2900   01 008F3    6D000022 A            WD,0     X'22'             RESET INTERNAL INTERRUPT INHIBIT
     2901   01 008F4    22400014 A            LI,4     20                LOAD A DELAY
     2902   01 008F5    3300000A A            MTW,0    10                TEST INTERRUPT NOT RECEIVED FLAG
     2903   01 008F6    68300900              BEZ      TESTIC3           B TO ERROR EXIT IF LINE HIGH
     2904   01 008F7    644008F5              BDR,4    %-2               ALLOW TIME TO BE INTERRUPTED
     2905   01 008F8    22800001 A            LI,8     1                 SET EXPECTED BIT
     2906   01 008F9    22900000 A            LI,9     0                 SET RECEIVED BIT
     2907   01 008FA    22400014 A            LI,4     20                LOAD A DELAY
     2908   01 008FB    22604000 A            LI,6     4**12             LOAD INTERRUPT CALL BIT
     2909   01 008FC    6D602030 A            WD,6     NOTDIO41          SET INTERRUPT CALL LATCH BIT IN JX58
     2910   01 008FD    3300000A A            MTW,0    10                TEST INTERRUPT NOT RECEIVED BIT
     2911   01 008FE    68300906              BEZ      TESTIC2           B IF INTERRUPT IS RECEIVED
     2912   01 008FF    644008FD              BDR,4    %-2               ALLOW TIME TO BE INTERRUPTED
     2913   01 00900    6D000032 A   TESTIC3  WD,0     X'32'             INHIBIT INTERRUPTS
     2914   01 00901    6DB01100 A            WD,11    X'1100'           DISARM I/O INTERRUPTS
     2915   01 00902    6DB01500 A            WD,11    X'1500'           DISABLE I/O INTERRUPTS
     2916   01 00903    22E00010 A            LI,14    X'10'
     2917   01 00904    6DE01200 A            WD,14    X'1200'           ARM & ENABLE CONTROL PANEL INTERRUPT
     2918   01 00905    07000000 A            ERROR
     2919   01 00906    6D000032 A   TESTIC2  WD,0     X'32'             INHIBIT INTERRUPTS
     2920   01 00907    6DB01100 A            WD,11    X'1100'           DISARM I/O INTERRUPTS
     2921   01 00908    6DB01500 A            WD,11    X'1500'           DISABLE I/O INTERRUPTS
     2922   01 00909    E800000F A            B        *15
     2923                            *
     2924                            *
     2925                            *
     2926                                     BOUND    8
     2927   01 0090A    00000000 A   TESTIC1  DATA     0,0
            01 0090B    00000000 A
     2928   01 0090C    0000090E              DATA     %+2,7**24
            01 0090D    07000000 A
     2929   01 0090E    22400011 A            LI,4     TICS              LOAD STEP NUMBER
     2930   01 0090F    31400D05              CW,4     AUTOSTEP          TEST TO DETERMINE IF IC INTERRUPT
     2931   01 00910    69300913              BNE      AIOTEST           GO TO AIO TEST
     2932   01 00911    22401000 A            LI,4     1**12             RESET JX58
     2933   01 00912    6D402030 A            WD,4     NOTDIO41          RESET INTERRUPT CALL LATCH
     2934   01 00913    22A00000 A   AIOTEST  LI,10    0                 RESET AIO FLAG BIT
     2935   01 00914    6E700000 A            AIO,7                      ACKNOWLEDGE THE INTERRUPT
     2936   01 00915    22E00010 A            LI,14    X'10'
     2937   01 00916    6DE01200 A            WD,14    X'1200'
     2938   01 00917    0E20090A              LPSD,2   TESTIC1
     2939                                     PAGE
     2940                            *
     2941                            *        SIGNAL TESTED SIO
     2942                            *
     2943         00000012           TSIO     SET      TESTNO
     2944   01 00918    220005E2     TESTSIO  LI,0     DA(CP01)
     2945   01 00919    22800001 A            LI,8     1
     2946   01 0091A    22900000 A            LI,9     0
     2947   01 0091B    22601000 A            LI,6     1**12
     2948   01 0091C    6D602030 A            WD,6     NOTDIO41
     2949   01 0091D    32600E8D              LW,6     L(8**24)
     2950   01 0091E    CC000D03              SIO,0    *DEVICE
     2951   01 0091F    6C702030 A            RD,7     NOTDIO41          FETCH FUNCTION INDICATORS
     2952   01 00920    4B700E8E              AND,7    L(X'7F00')
     2953   01 00921    25700410 A            SAS,7    16
     2954   01 00922    31600007 A            CW,6     7
     2955   01 00923    E830000F A            BE       *15
     2956   01 00924    32900007 A            LW,9     7
     2957   01 00925    25900205 A            SCS,9    5
     2958   01 00926    07000100 A            ERROR    1
     2959                            *
     2960                            *        SIGNAL TESTED HIO
     2961                            *
     2962         00000013           THIO     SET      TESTNO
     2963                            TESTHIO ;
     2964   01 00927    22800001 A            LI,8     1
     2965   01 00928    22900000 A            LI,9     0
     2966   01 00929    22601000 A            LI,6     1**12
     2967   01 0092A    6D602030 A            WD,6     NOTDIO41
     2968   01 0092B    32600E8F              LW,6     L(1**28)          LOAD HIO BIT IN EXPECTED BIT POSITN
     2969   01 0092C    CF000D03              HIO,0    *DEVICE
     2970   01 0092D    6C702030 A            RD,7     NOTDIO41
     2971   01 0092E    4B700E8E              AND,7    L(X'7F00')
     2972   01 0092F    25700410 A            SAS,7    16
     2973   01 00930    31600007 A            CW,6     7
     2974   01 00931    E830000F A            BE       *15
     2975   01 00932    32900007 A            LW,9     7
     2976   01 00933    25900204 A            SCS,9    4
     2977   01 00934    07000100 A            ERROR    1
     2978                            *
     2979                            *        SIGNAL TESTED TIO
     2980                            *
     2981         00000014           TTIO     SET      TESTNO
     2982                            TESTTIO ;
     2983   01 00935    22800001 A            LI,8     1
     2984   01 00936    22900000 A            LI,9     0
     2985   01 00937    22601000 A            LI,6     1**12
     2986   01 00938    6D602030 A            WD,6     NOTDIO41
     2987   01 00939    32600E90              LW,6     L(4**24)
     2988   01 0093A    CD000D03              TIO,0    *DEVICE
     2989   01 0093B    6C702030 A            RD,7     NOTDIO41
     2990   01 0093C    4B700E8E              AND,7    L(X'7F00')
     2991   01 0093D    25700410 A            SAS,7    16
     2992   01 0093E    31600007 A            CW,6     7
     2993   01 0093F    E830000F A            BE       *15
     2994   01 00940    32900007 A            LW,9     7
     2995   01 00941    25900206 A            SCS,9    6
     2996   01 00942    07000100 A            ERROR    1
     2997                            *
     2998                            *        SIGNAL TESTED TDV
     2999                            *
     3000         00000015           TTDV     SET      TESTNO
     3001                            TESTTDV ;
     3002   01 00943    22800001 A            LI,8     1
     3003   01 00944    22900000 A            LI,9     0
     3004   01 00945    22601000 A            LI,6     1**12
     3005   01 00946    6D602030 A            WD,6     NOTDIO41
     3006   01 00947    32600E91              LW,6     L(2**24)
     3007   01 00948    CE000D03              TDV,0    *DEVICE
     3008   01 00949    6C702030 A            RD,7     NOTDIO41
     3009   01 0094A    4B700E8E              AND,7    L(X'7F00')
     3010   01 0094B    25700410 A            SAS,7    16
     3011   01 0094C    31600007 A            CW,6     7
     3012   01 0094D    E830000F A            BE       *15
     3013   01 0094E    32900007 A            LW,9     7
     3014   01 0094F    25900207 A            SCS,9    7
     3015   01 00950    07000100 A            ERROR    1
     3016                            *
     3017                            *        SIGNAL TESTED AIO
     3018                            *
     3019         00000016           TAIO     SET      TESTNO
     3020                            TESTAIO ;
     3021   01 00951    22800001 A            LI,8     1
     3022   01 00952    22900000 A            LI,9     0
     3023   01 00953    22603000 A            LI,6     3**12             LOAD DOR AND IOR BITS
     3024   01 00954    6D602070 A            WD,6     DIO41             SET CONDITION CODES IN JX58 TO READY
     3025   01 00955    22C00010 A            LI,12    X'10'
     3026   01 00956    6DC01500 A            WD,12    X'1500'           DISABLE CONTROL PANEL INTERRUPT
     3027   01 00957    22B00020 A            LI,11    X'20'             LOAD I/O INTERRUPT BIT
     3028   01 00958    6DB01200 A            WD,11    X'1200'           ARM AND ENABLE I/O INTERRUPTS
     3029   01 00959    6D000022 A            WD,0     X'22'             RESET INTERNAL INTERRUPT INHIBIT
     3030   01 0095A    22604000 A            LI,6     4**12             LOAD INTERRUPT CALL BIT
     3031   01 0095B    6D602030 A            WD,6     NOTDIO41          SET THE IC LATCH IN THE JX58
     3032   01 0095C    22400032 A            LI,4     50                LOAD DELAY
     3033   01 0095D    6440095D              BDR,4    %                 ALLOW TIME TO BE INTERRUPTED
     3034   01 0095E    6D000032 A            WD,0     X'32'             INHIBIT INTERRUPTS
     3035   01 0095F    6DB01100 A            WD,11    X'1100'           DISARM I/O INTERRUPT
     3036   01 00960    6DB01500 A            WD,11    X'1500'           DISABLE I/O INTERRUPT
     3037   01 00961    32600E92              LW,6     L(4**28)
     3038   01 00962    6C702030 A            RD,7     NOTDIO41
     3039   01 00963    4B700E8E              AND,7    L(X'7F00')
     3040   01 00964    25700410 A            SAS,7    16
     3041   01 00965    31600007 A            CW,6     7
     3042   01 00966    E830000F A            BE       *15
     3043   01 00967    32900007 A            LW,9     7
     3044   01 00968    25900202 A            SCS,9    2
     3045   01 00969    07000100 A            ERROR    1
     3046                            *
     3047                            *        SIGNAL TESTED FR7
     3048                            *
     3049         00000017           TFR7     SET      TESTNO            GENERATE THE TEST NUMBER
     3050   01 0096A    22800000 A   TESTFR7  LI,8     0                 SET EXPECTED ERROR BIT
     3051   01 0096B    22900001 A            LI,9     1                 SET RECEIVED ERROR BIT
     3052   01 0096C    220005E2              LI,0     DA(CP01)
     3053   01 0096D    CC700D03              SIO,7    *DEVICE
     3054   01 0096E    4B700E93              AND,7    L(X'FF000000')
     3055   01 0096F    6930097C              BNEZ     TESTFR7A
     3056   01 00970    22800001 A            LI,8     1
     3057   01 00971    22900000 A            LI,9     0                 SET RECEIVED BIT
     3058   01 00972    22601001 A            LI,6     X'1001'
     3059   01 00973    6D602030 A            WD,6     NOTDIO41          RESET LATCHES AT JX58, SET FR7 LATCH
     3060   01 00974    22403000 A            LI,4     3**12
     3061   01 00975    6D402070 A            WD,4     DIO41             PUT JX58 IN READY STATE, SET DOR,IOR
     3062   01 00976    220005E2              LI,0     DA(CP01)
     3063   01 00977    CC700D03              SIO,7    *DEVICE           SENSE THE FR7 LINE
     3064   01 00978    4B700E93              AND,7    L(X'FF000000')    MASK OFF ALL BUT STATUS RESPONSE
     3065   01 00979    25600418 A            SAS,6    24
     3066   01 0097A    31700006 A            CW,7     6
     3067   01 0097B    E830000F A            BE       *15
     3068   01 0097C    32900007 A   TESTFR7A LW,9     7                 MOVE RECEIVED BIT TO RECEIVED REG.
     3069   01 0097D    25900208 A            SCS,9    8                 MOVE RECEIVED BIT TO LSB POSITION
     3070   01 0097E    07000100 A            ERROR    1
     3071                            *
     3072                            *        SIGNAL TESTED FR6
     3073                            *
     3074         00000018           TFR6     SET      TESTNO            GENERATE THE TEST NUMBER
     3075   01 0097F    22800000 A   TESTFR6  LI,8     0
     3076   01 00980    22900001 A            LI,9     1
     3077   01 00981    220005E2              LI,0     DA(CP01)
     3078   01 00982    CC700D03              SIO,7    *DEVICE
     3079   01 00983    4B700E93              AND,7    L(X'FF000000')
     3080   01 00984    69300991              BNEZ     TESTFR6A          TEST FOR FR6 NOT SET
     3081   01 00985    22800001 A            LI,8     1
     3082   01 00986    22900000 A            LI,9     0
     3083   01 00987    22601002 A            LI,6     X'1002'
     3084   01 00988    6D602030 A            WD,6     NOTDIO41          RESET LATCHES AT JX58, SET FR6 LATCH
     3085   01 00989    22403000 A            LI,4     3**12
     3086   01 0098A    6D402070 A            WD,4     DIO41             PUT JX58 IN READY STATE, SET DOR,IOR
     3087   01 0098B    220005E2              LI,0     DA(CP01)
     3088   01 0098C    CC700D03              SIO,7    *DEVICE           SENSE THE FR6 LINE
     3089   01 0098D    4B700E93              AND,7    L(X'FF000000')
     3090   01 0098E    25600418 A            SAS,6    24
     3091   01 0098F    31700006 A            CW,7     6
     3092   01 00990    E830000F A            BE       *15
     3093   01 00991    32900007 A   TESTFR6A LW,9     7                 MOVE RECEIVED BIT TO RECEIVED REG
     3094   01 00992    25900207 A            SCS,9    7
     3095   01 00993    07000100 A            ERROR    1
     3096                            *
     3097                            *        SIGNAL TESTED FR5
     3098                            *
     3099         00000019           TFR5     SET      TESTNO
     3100   01 00994    22800000 A   TESTFR5  LI,8     0
     3101   01 00995    22900001 A            LI,9     1
     3102   01 00996    220005E2              LI,0     DA(CP01)
     3103   01 00997    CC700D03              SIO,7    *DEVICE
     3104   01 00998    4B700E93              AND,7    L(X'FF000000')
     3105   01 00999    693009A6              BNEZ     TESTFR5A          TEST FOR FR5 NOT SET
     3106   01 0099A    22800001 A            LI,8     1
     3107   01 0099B    22900000 A            LI,9     0
     3108   01 0099C    22601004 A            LI,6     X'1004'
     3109   01 0099D    6D602030 A            WD,6     NOTDIO41
     3110   01 0099E    22403000 A            LI,4     3**12
     3111   01 0099F    6D402070 A            WD,4     DIO41             PUT JX58 IN READY STATE, SET DOR,IOR
     3112   01 009A0    220005E2              LI,0     DA(CP01)
     3113   01 009A1    CC700D03              SIO,7    *DEVICE
     3114   01 009A2    4B700E93              AND,7    L(X'FF000000')
     3115   01 009A3    25600418 A            SAS,6    24
     3116   01 009A4    31700006 A            CW,7     6
     3117   01 009A5    E830000F A            BE       *15
     3118   01 009A6    32900007 A   TESTFR5A LW,9     7                 MOVE RECEIVED BIT TO RECEIVED REG
     3119   01 009A7    25900206 A            SCS,9    6
     3120   01 009A8    07000100 A            ERROR    1
     3121                            *
     3122                            *        SIGNAL TESTED FR4
     3123                            *
     3124         0000001A           TFR4     SET      TESTNO
     3125   01 009A9    22800000 A   TESTFR4  LI,8     0
     3126   01 009AA    22900001 A            LI,9     1
     3127   01 009AB    220005E2              LI,0     DA(CP01)
     3128   01 009AC    CC700D03              SIO,7    *DEVICE
     3129   01 009AD    4B700E93              AND,7    L(X'FF000000')
     3130   01 009AE    693009BB              BNEZ     TESTFR4A          TEST FOR FR4 NOT SET
     3131   01 009AF    22800001 A            LI,8     1
     3132   01 009B0    22900000 A            LI,9     0
     3133   01 009B1    22601008 A            LI,6     X'1008'
     3134   01 009B2    6D602030 A            WD,6     NOTDIO41
     3135   01 009B3    22403000 A            LI,4     3**12
     3136   01 009B4    6D402070 A            WD,4     DIO41             PUT JX58 IN READY STATE, SET DOR,IOR
     3137   01 009B5    220005E2              LI,0     DA(CP01)
     3138   01 009B6    CC700D03              SIO,7    *DEVICE
     3139   01 009B7    4B700E93              AND,7    L(X'FF000000')
     3140   01 009B8    25600418 A            SAS,6    24
     3141   01 009B9    31700006 A            CW,7     6
     3142   01 009BA    E830000F A            BE       *15
     3143   01 009BB    32900007 A   TESTFR4A LW,9     7                 MOVE RECEIVED BIT TO RECEIVED REG
     3144   01 009BC    25900205 A            SCS,9    5
     3145   01 009BD    07000100 A            ERROR    1
     3146                            *
     3147                            *        SIGNAL TESTED FR3
     3148                            *
     3149         0000001B           TFR3     SET      TESTNO
     3150   01 009BE    22800000 A   TESTFR3  LI,8     0
     3151   01 009BF    22900001 A            LI,9     1
     3152   01 009C0    220005E2              LI,0     DA(CP01)
     3153   01 009C1    CC700D03              SIO,7    *DEVICE
     3154   01 009C2    4B700E93              AND,7    L(X'FF000000')
     3155   01 009C3    693009D0              BNEZ     TESTFR3A          TEST FOR FR3 NOT SET
     3156   01 009C4    22800001 A            LI,8     1
     3157   01 009C5    22900000 A            LI,9     0
     3158   01 009C6    22601010 A            LI,6     X'1010'
     3159   01 009C7    6D602030 A            WD,6     NOTDIO41
     3160   01 009C8    22403000 A            LI,4     3**12             PUT JX58 IN READY STATE SET DOR, IOR
     3161   01 009C9    6D402070 A            WD,4     DIO41
     3162   01 009CA    220005E2              LI,0     DA(CP01)
     3163   01 009CB    CC700D03              SIO,7    *DEVICE
     3164   01 009CC    4B700E93              AND,7    L(X'FF000000')
     3165   01 009CD    25600418 A            SAS,6    24
     3166   01 009CE    31700006 A            CW,7     6
     3167   01 009CF    E830000F A            BE       *15
     3168   01 009D0    32900007 A   TESTFR3A LW,9     7                 MOVE RECEIVED BIT TO RECEIVED REG
     3169   01 009D1    25900204 A            SCS,9    4
     3170   01 009D2    07000100 A            ERROR    1
     3171                            *
     3172                            *        SIGNAL TESTED FR2
     3173                            *
     3174         0000001C           TFR2     SET      TESTNO
     3175   01 009D3    22800000 A   TESTFR2  LI,8     0
     3176   01 009D4    22900001 A            LI,9     1
     3177   01 009D5    220005E2              LI,0     DA(CP01)
     3178   01 009D6    CC700D03              SIO,7    *DEVICE
     3179   01 009D7    4B700E93              AND,7    L(X'FF000000')
     3180   01 009D8    693009E5              BNEZ     TESTFR2A
     3181   01 009D9    22800001 A            LI,8     1
     3182   01 009DA    22900000 A            LI,9     0
     3183   01 009DB    22601020 A            LI,6     X'1020'
     3184   01 009DC    6D602030 A            WD,6     NOTDIO41
     3185   01 009DD    22403000 A            LI,4     3**12
     3186   01 009DE    6D402070 A            WD,4     DIO41
     3187   01 009DF    220005E2              LI,0     DA(CP01)
     3188   01 009E0    CC700D03              SIO,7    *DEVICE
     3189   01 009E1    4B700E93              AND,7    L(X'FF000000')
     3190   01 009E2    25600418 A            SAS,6    24
     3191   01 009E3    31700006 A            CW,7     6
     3192   01 009E4    E830000F A            BE       *15
     3193   01 009E5    32900007 A   TESTFR2A LW,9     7
     3194   01 009E6    25900203 A            SCS,9    3
     3195   01 009E7    07000100 A            ERROR    1
     3196                            *
     3197                            *        SIGNAL TESTED FR1
     3198                            *
     3199         0000001D           TFR1     SET      TESTNO
     3200   01 009E8    22800000 A   TESTFR1  LI,8     0
     3201   01 009E9    22900001 A            LI,9     1
     3202   01 009EA    220005E2              LI,0     DA(CP01)
     3203   01 009EB    CC700D03              SIO,7    *DEVICE
     3204   01 009EC    4B700E93              AND,7    L(X'FF000000')
     3205   01 009ED    693009FA              BNEZ     TESTFR1A
     3206   01 009EE    22800001 A            LI,8     1
     3207   01 009EF    22900000 A            LI,9     0
     3208   01 009F0    22601040 A            LI,6     X'1040'
     3209   01 009F1    6D602030 A            WD,6     NOTDIO41
     3210   01 009F2    22403000 A            LI,4     3**12
     3211   01 009F3    6D402070 A            WD,4     DIO41
     3212   01 009F4    220005E2              LI,0     DA(CP01)
     3213   01 009F5    CC700D03              SIO,7    *DEVICE
     3214   01 009F6    4B700E93              AND,7    L(X'FF000000')
     3215   01 009F7    25600418 A            SAS,6    24
     3216   01 009F8    31700006 A            CW,7     6
     3217   01 009F9    E830000F A            BE       *15
     3218   01 009FA    32900007 A   TESTFR1A LW,9     7
     3219   01 009FB    25900202 A            SCS,9    2
     3220   01 009FC    07000100 A            ERROR    1
     3221                            *
     3222                            *        SIGNAL TESTED FR0
     3223                            *
     3224         0000001E           TFR0     SET      TESTNO
     3225   01 009FD    22800000 A   TESTFR0  LI,8     0
     3226   01 009FE    22900001 A            LI,9     1
     3227   01 009FF    220005E2              LI,0     DA(CP01)
     3228   01 00A00    CC700D03              SIO,7    *DEVICE
     3229   01 00A01    4B700E93              AND,7    L(X'FF000000')
     3230   01 00A02    69300A0F              BNEZ     TESTFR0A
     3231   01 00A03    22800001 A            LI,8     1
     3232   01 00A04    22900000 A            LI,9     0
     3233   01 00A05    22601080 A            LI,6     X'1080'
     3234   01 00A06    6D602030 A            WD,6     NOTDIO41
     3235   01 00A07    22403000 A            LI,4     3**12
     3236   01 00A08    6D402070 A            WD,4     DIO41
     3237   01 00A09    220005E2              LI,0     DA(CP01)
     3238   01 00A0A    CC700D03              SIO,7    *DEVICE
     3239   01 00A0B    4B700E93              AND,7    L(X'FF000000')
     3240   01 00A0C    25600418 A            SAS,6    24
     3241   01 00A0D    31700006 A            CW,7     6
     3242   01 00A0E    E830000F A            BE       *15
     3243   01 00A0F    32900007 A   TESTFR0A LW,9     7
     3244   01 00A10    25900201 A            SCS,9    1
     3245   01 00A11    07000100 A            ERROR    1
     3246                            *
     3247                            *
     3248                            *        LINE TESTED DA7 FROM JX58
     3249                            *
     3250         0000001F           TDX7     SET      TESTNO
     3251   01 00A12    22D00208 A   TESTDX7  LI,13    X'208'            SET UP SHIFT,PARAMETER  (SCS,9    8)
     3252   01 00A13    22C03001 A            LI,12    X'3001'           LOAD READY AND DA7 BITS
     3253   01 00A14    6AE00A2A              BAL,14   TESTDXX1          B TO SUBROUTINE
     3254                            *
     3255                            *
     3256                            *
     3257                            *        LINE TESTED DA6 FROM JX58
     3258                            *
     3259         00000020           TDX6     SET      TESTNO
     3260   01 00A15    22D00207 A   TESTDX6  LI,13    X'207'            SET UP SHIFT PARAMETER  (SCS,9    7)
     3261   01 00A16    22C03002 A            LI,12    X'3002'           LOAD READY AND DA6 BITS
     3262   01 00A17    6AE00A2A              BAL,14   TESTDXX1          B TO SUBROUTINE
     3263                            *
     3264                            *
     3265                            *
     3266                            *        LINE TESTED DA5 FROM JX58
     3267                            *
     3268         00000021           TDX5     SET      TESTNO
     3269   01 00A18    22D00206 A   TESTDX5  LI,13    X'206'            SET UP SHIFT PARAMETER  (SCS,9    6)
     3270   01 00A19    22C03004 A            LI,12    X'3004'           LOAD READY AND DA5 BITS
     3271   01 00A1A    6AE00A2A              BAL,14   TESTDXX1          B TO SUBROUTINE
     3272                            *
     3273                            *
     3274                            *
     3275                            *        LINE TESTED DA4 FROM JX58
     3276                            *
     3277         00000022           TDX4     SET      TESTNO
     3278   01 00A1B    22D00205 A   TESTDX4  LI,13    X'205'            SET UP SHIFT PARAMETER  (SCS,9    5)
     3279   01 00A1C    22C03008 A            LI,12    X'3008'           LOAD READY AND DA4 BITS
     3280   01 00A1D    6AE00A2A              BAL,14   TESTDXX1          B TO SUBROUTINE
     3281                            *
     3282                            *
     3283                            *
     3284                            *        LINE TESTED DA3 FROM JX58
     3285                            *
     3286         00000023           TDX3     SET      TESTNO
     3287   01 00A1E    22D00204 A   TESTDX3  LI,13    X'204'            SET UP SHIFT PARAMETER  (SCS,9    4)
     3288   01 00A1F    22C03010 A            LI,12    X'3010'           LOAD READY AND DA3 BITS
     3289   01 00A20    6AE00A2A              BAL,14   TESTDXX1          B TO SUBROUTINE
     3290                            *
     3291                            *
     3292                            *
     3293                            *        LINE TESTED DA2 FROM JX58
     3294                            *
     3295         00000024           TDX2     SET      TESTNO
     3296   01 00A21    22D00203 A   TESTDX2  LI,13    X'203'            SET UP SHIFT PARAMETER  (SCS,9    3)
     3297   01 00A22    22C03020 A            LI,12    X'3020'           LOAD READY AND DA2 BITS
     3298   01 00A23    6AE00A2A              BAL,14   TESTDXX1          B TO SUBROUTINE
     3299                            *
     3300                            *
     3301                            *
     3302                            *        LINE TESTED DA1 FROM JX58
     3303                            *
     3304         00000025           TDX1     SET      TESTNO
     3305   01 00A24    22D00202 A   TESTDX1  LI,13    X'202'            SET UP SHIFT PARAMETER  (SCS,9    2)
     3306   01 00A25    22C03040 A            LI,12    X'3040'           LOAD READY AND DA1 BITS
     3307   01 00A26    6AE00A2A              BAL,14   TESTDXX1          B TO SUBROUTINE
     3308                            *
     3309                            *
     3310                            *
     3311                            *        LINE TESTED DA0 FROM JX58
     3312                            *
     3313         00000026           TDX0     SET      TESTNO
     3314   01 00A27    22D00201 A   TESTDX0  LI,13    X'201'            SET UP SHIFT PARAMETER  (SCS,9    1)
     3315   01 00A28    22C03080 A            LI,12    X'3080'           LOAD READY AND DA0 BITS
     3316   01 00A29    6AE00A2A              BAL,14   TESTDXX1          B TO SUBROUTINE
     3317                            *
     3318                            *
     3319                            *
     3320                            *
     3321   01 00A2A    22800000 A   TESTDXX1 LI,8     0                 EXPECTED ERROR CONDITION
     3322   01 00A2B    22900001 A            LI,9     1                 RECEIVED ERROR CONDITION
     3323   01 00A2C    22601000 A            LI,6     1**12             LOAD RESET BIT CONDITION
     3324   01 00A2D    6D602030 A            WD,6     NOTDIO41          RESET JX58
     3325   01 00A2E    22603000 A            LI,6     3**12             LOAD DOR AND IOR BITS
     3326   01 00A2F    6D602070 A            WD,6     DIO41             SET CONDITION CODES IN JX58 TO READY
     3327   01 00A30    22E00010 A            LI,14    X'10'
     3328   01 00A31    6DE01500 A            WD,14    X'1500'           DISABLE CONTROL PANEL INTERRUPT
     3329   01 00A32    22B00020 A            LI,11    X'20'             LOAD I/O INTERRUPT BIT
     3330   01 00A33    6DB01200 A            WD,11    X'1200'           ARM AND ENABLE I/O INTERRUPT
     3331   01 00A34    6D000022 A            WD,0     X'22'             RESET INTERNAL INTERRUPT INHIBITS
     3332   01 00A35    22604000 A            LI,6     4**12             LOAD INTERRUPT CALL BIT
     3333   01 00A36    6D602030 A            WD,6     NOTDIO41          SET THE IC LATCH IN THE JX58
     3334   01 00A37    22400032 A            LI,4     50                LOAD DELAY
     3335   01 00A38    64400A38              BDR,4    %                 ALLOW TIME TO BE INTERRUPTED
     3336   01 00A39    6D000032 A            WD,0     X'32'             SET INTERRUPT INHIBIT
     3337   01 00A3A    6DB01100 A            WD,11    X'1100'           DISARM I/O INTERRUPT
     3338   01 00A3B    6DB01500 A            WD,11    X'1500'           DISARM I/O INTERRUPT
     3339   01 00A3C    4B700E79              AND,7    L(X'FF')          MASK TO SAVE INTERRUPT DEVICE ADDR
     3340   01 00A3D    69300A51              BNEZ     TESTDXX3          ERROR IF NOT ZERO
     3341                            *
     3342                            *
     3343   01 00A3E    22800001 A   TESTDXX2 LI,8     1                 EXPECTED ERROR CONDITION
     3344   01 00A3F    22900000 A            LI,9     0                 RECEIVED ERROR CONDITION
     3345   01 00A40    6DC02070 A            WD,12    DIO41             SET DAX AND READY INTO JX58
     3346   01 00A41    22E00010 A            LI,14    X'10'
     3347   01 00A42    6DE01500 A            WD,14    X'1500'           DISABLE CONTROL PANEL INTERRUPT
     3348   01 00A43    22B00020 A            LI,11    X'20'             LOAD I/O INTERRUPT BIT
     3349   01 00A44    6DB01200 A            WD,11    X'1200'           ARM AND ENABLE I/O INTERRUPT
     3350   01 00A45    6D000022 A            WD,0     X'22'             RESET INTERNAL INTERRUPT INHIBIT
     3351   01 00A46    22605000 A            LI,6     X'5000'           LOAD RESET AND IC BITS
     3352   01 00A47    6D602030 A            WD,6     NOTDIO41          RESET JX58 DO INTERRUPT CALL
     3353   01 00A48    22400032 A            LI,4     50                LOAD DELAY
     3354   01 00A49    64400A49              BDR,4    %                 ALLOW TIME TO BE INTERRUPT
     3355   01 00A4A    6D000032 A            WD,0     X'32'             SET INTERRUPT INHIBIT
     3356   01 00A4B    6DB01100 A            WD,11    X'1100'           DISARM I/O INTERRUPT
     3357   01 00A4C    6DB01500 A            WD,11    X'1500'           DISARM I/O INTERRUPT
     3358   01 00A4D    72700007 A            LB,7     7                 SHIFT RIGHT 24
     3359   01 00A4E    7266000C A            LB,6     12,3              MASK OUT UPPER 24 BITS
     3360   01 00A4F    31600007 A            CW,6     7
     3361   01 00A50    E830000F A            BE       *15               RETURN TO CONTROL ROUTINE IF EQUAL
     3362                            *
     3363                            *
     3364   01 00A51    25600418 A   TESTDXX3 SAS,6    24                FORMAT EXPECTED DATA PATTERN
     3365   01 00A52    25700418 A            SAS,7    24                FORMAT RECEIVED DATA PATTERN
     3366   01 00A53    32900007 A            LW,9     7                 MOVE RECEIVED BIT
     3367   01 00A54    A590000D A            SCS,9    *13               SHIFT ACCORDING TO BIT POSITION
     3368   01 00A55    07000100 A            ERROR    1
     3369                            *
     3370                            *        LINE TESTED DA0 FROM IOP
     3371                            *
     3372         00000027           TDA0     SET      TESTNO
     3373   01 00A56    22400080 A   TESTDA0  LI,4     X'80'             LOAD BIT PARAMETER
     3374   01 00A57    68000A66              B        DATALINE          BRANCH TO A GENERAL ROUTINE
     3375                            *
     3376                            *        LINE TESTED DA1 FROM IOP
     3377                            *
     3378         00000028           TDA1     SET      TESTNO
     3379   01 00A58    224000C0 A   TESTDA1  LI,4     X'C0'             LOAD BIT PARAMETER
     3380   01 00A59    68000A66              B        DATALINE          BRANCH TO A GENERAL ROUTINE
     3381                            *
     3382                            *        LINE TESTED DA2 FROM IOP
     3383                            *
     3384         00000029           TDA2     SET      TESTNO
     3385   01 00A5A    224000A0 A   TESTDA2  LI,4     X'A0'             LOAD BIT PARAMETER
     3386   01 00A5B    68000A66              B        DATALINE          BRANCH TO A GENERAL ROUTINE
     3387                            *
     3388                            *        LINE TESTED DA3 FROM IOP
     3389                            *
     3390         0000002A           TDA3     SET      TESTNO
     3391   01 00A5C    22400090 A   TESTDA3  LI,4     X'90'             LOAD BIT PARAMETER
     3392   01 00A5D    68000A66              B        DATALINE          BRANCH TO A GENERAL ROUTINE
     3393                            *
     3394                            *        LINE TESTED DA4 FROM IOP
     3395                            *
     3396         0000002B           TDA4     SET      TESTNO
     3397   01 00A5E    22400088 A   TESTDA4  LI,4     X'88'             LOAD BIT PARAMETER
     3398   01 00A5F    68000A66              B        DATALINE          BRANCH TO A GENERAL ROUTINE
     3399                            *
     3400                            *        LINE TESTED DA5 FROM IOP
     3401                            *
     3402         0000002C           TDA5     SET      TESTNO
     3403   01 00A60    22400084 A   TESTDA5  LI,4     X'84'             LOAD BIT PARAMETER
     3404   01 00A61    68000A66              B        DATALINE          BRANCH TO A GENERAL ROUTINE
     3405                            *
     3406                            *        LINE TESTED DA6 FROM IOP
     3407                            *
     3408         0000002D           TDA6     SET      TESTNO
     3409   01 00A62    22400082 A   TESTDA6  LI,4     X'82'             LOAD BIT PARAMETER
     3410   01 00A63    68000A66              B        DATALINE          BRANCH TO A GENERAL ROUTINE
     3411                            *
     3412                            *        LINE TESTED DA7 FROM IOP
     3413                            *
     3414         0000002E           TDA7     SET      TESTNO
     3415   01 00A64    22400081 A   TESTDA7  LI,4     X'81'             LOAD BIT PARAMETER
     3416   01 00A65    68000A66              B        DATALINE          BRANCH TO A GENERAL ROUTINE
     3417                            *
     3418                            *
     3419                            *
     3420                            *
     3421                            DATALINE ;
     3422   01 00A66    22800000 A            LI,8     0
     3423   01 00A67    22900001 A            LI,9     1
     3424   01 00A68    22600000 A            LI,6     0
     3425   01 00A69    220005E2              LI,0     DA(CP01)
     3426   01 00A6A    CC000D03              SIO,0    *DEVICE
     3427   01 00A6B    6C702070 A            RD,7     DIO41
     3428   01 00A6C    4B700E79              AND,7    L(X'FF')
     3429   01 00A6D    69300A77              BNEZ     DATALINB          ERROR IF ANY BIT SET
     3430   01 00A6E    22800001 A            LI,8     1
     3431   01 00A6F    22900000 A            LI,9     0
     3432   01 00A70    32600D03              LW,6     DEVICE
     3433   01 00A71    30600004 A            AW,6     4                 CREATE DEVICE ADDRESS
     3434   01 00A72    CC000006 A            SIO,0    *6
     3435   01 00A73    6C702070 A            RD,7     DIO41
     3436   01 00A74    4B700E79              AND,7    L(X'FF')
     3437   01 00A75    31700004 A            CW,7     4
     3438   01 00A76    E830000F A            BE       *15
     3439   01 00A77    25600418 A   DATALINB SAS,6    24                SET FOR ERROR MESSAGE
     3440   01 00A78    25700418 A            SAS,7    24
     3441   01 00A79    07000100 A            ERROR    1
     3442                            *
     3443                            *        LINES TESTED SC/ASC    DATA OUT BYTE COUNT = 4
     3444                            *
     3445         0000002F           TSCS     SET      TESTNO
     3446   01 00A7A    22800000 A   TESTSC   LI,8     0
     3447   01 00A7B    22900001 A            LI,9     1
     3448   01 00A7C    220005E3              LI,0     DA(CP02)
     3449   01 00A7D    CC700D03              SIO,7    *DEVICE
     3450   01 00A7E    22500032 A            LI,5     50
     3451   01 00A7F    64500A7F              BDR,5    %
     3452   01 00A80    22603000 A            LI,6     3**12             LOAD FOR & IOR BITS (ORDER OUT)
     3453   01 00A81    6D602070 A            WD,6     DIO41
     3454   01 00A82    6C702030 A            RD,7     NOTDIO41
     3455   01 00A83    4B700E83              AND,7    L(2**12)          MASK TO SAVE ASC LATCH
     3456   01 00A84    68300A86              BEZ      TESTSC1           ERROR IF SET
     3457   01 00A85    07000000 A            ERROR                      SC OR ASC WAS HIGH
     3458                            *
     3459                            *        TEST FOR ASC SET
     3460                            *
     3461   01 00A86    22800001 A   TESTSC1  LI,8     1
     3462   01 00A87    22900000 A            LI,9     0
     3463   01 00A88    22603000 A            LI,6     3**12             LOAD DOR & IOR BITS (ORDER OUT)
     3464   01 00A89    6D602070 A            WD,6     DIO41             SET UP FOR ORDER OUT
     3465   01 00A8A    22603000 A            LI,6     3**12             LOAD RESET & SERVICE CALL BITS
     3466   01 00A8B    6D602030 A            WD,6     NOTDIO41          DO SERVICE CALL FROM JX58
     3467   01 00A8C    225000C8 A            LI,5     200
     3468   01 00A8D    64500A8D              BDR,5    %
     3469   01 00A8E    6C702030 A            RD,7     NOTDIO41
     3470   01 00A8F    4B700E83              AND,7    L(2**12)
     3471   01 00A90    E930000F A            BNEZ     *15               RETURN IF ASC IS SET
     3472   01 00A91    07000000 A            ERROR                      REPORT ERROR IF IT WAS NOT
     3473                            *
     3474                            *        TEST FOR  RS/RSA
     3475                            *
     3476         00000030           TRSS     SET      TESTNO
     3477   01 00A92    22800001 A   TESTRS   LI,8     1
     3478   01 00A93    22900000 A            LI,9     0
     3479   01 00A94    220005E3              LI,0     DA(CP02)
     3480   01 00A95    CC700D03              SIO,7    *DEVICE
     3481   01 00A96    22500032 A            LI,5     50                LOAD DELAY
     3482   01 00A97    64500A97              BDR,5    %                 WAIT FOR SIO TO BE ACCEPTED
     3483   01 00A98    22603000 A            LI,6     3**12             LOAD DOR & IOR BITS (ORDER OUT)
     3484   01 00A99    6D602070 A            WD,6     DIO41
     3485   01 00A9A    22603000 A            LI,6     3**12             LOAD RESET & SERVICE CALL BITS
     3486   01 00A9B    6D602030 A            WD,6     NOTDIO41          SET SC LATCH IN JX58
     3487   01 00A9C    225000C8 A            LI,5     200               LOAD DELAY
     3488   01 00A9D    64500A9D              BDR,5    %                 WAIT UNTIL DATA XFER IS COMPLETED
     3489   01 00A9E    6C702030 A            RD,7     NOTDIO41          FETCH TO
     3490   01 00A9F    4B700E94              AND,7    L(X'1FF')
     3491   01 00AA0    6C602070 A            RD,6     DIO41             FETCH BIT COUNT
     3492   01 00AA1    4B600E95              AND,6    L(X'E0FF')
     3493   01 00AA2    30700006 A            AW,7     6
     3494   01 00AA3    69300AA5              BNEZ     TESTRS1           TEST FOR ANY SIGNS OF DATA XFER
     3495   01 00AA4    07000000 A            ERROR
     3496   01 00AA5    22800000 A   TESTRS1  LI,8     0
     3497   01 00AA6    22900001 A            LI,9     1
     3498   01 00AA7    CF700D03              HIO,7    *DEVICE           HANG UP SHOULD OCCUR IF RS/RSA LOW
     3499   01 00AA8    E800000F A            B        *15
     3500                            *
     3501                            *        TEST ORDER OUT FUNCTION
     3502                            *
     3503         00000031           TODR     SET      TESTNO
     3504                            TESTODR ;
     3505   01 00AA9    220005E6              LI,0     DA(CP06)
     3506   01 00AAA    6AE00B3D              BAL,14   TESTRANS
     3507                            *
     3508                            *
     3509   01 00AAB    6C702070 A            RD,7     DIO41
     3510   01 00AAC    4B700E96              AND,7    L(X'E000')
     3511   01 00AAD    69300AB3              BNEZ     %+6
     3512   01 00AAE    6C702030 A            RD,7     NOTDIO41
     3513   01 00AAF    4B700E97              AND,7    L(X'100')
     3514   01 00AB0    21700100 A            CI,7     X'100'
     3515   01 00AB1    E830000F A            BE       *15
     3516                            *
     3517                            *
     3518                            *
     3519         00000032           TORDA    SET      TESTNO
     3520   01 00AB2    33100D05              MTW,1    AUTOSTEP
     3521   01 00AB3    07000200 A            ERROR    0,1
     3522                            *
     3523                            *        TEST DATA OUT   (BYTE COUNT=2)
     3524                            *
     3525         00000033           TBC2     SET      TESTNO
     3526                            TESTBC2 ;
     3527   01 00AB4    220005E8              LI,0     DA(CP08)
     3528   01 00AB5    6AE00B3D              BAL,14   TESTRANS
     3529                            *
     3530                            *
     3531   01 00AB6    22601000 A            LI,6     1**12
     3532   01 00AB7    6D602070 A            WD,6     DIO41             SET IOR (DATA OUT)
     3533   01 00AB8    22603000 A            LI,6     3**12
     3534   01 00AB9    6D602030 A            WD,6     NOTDIO41          SET SC
     3535   01 00ABA    225000C8 A            LI,5     200
     3536   01 00ABB    64500ABB              BDR,5    %
     3537   01 00ABC    6C702070 A            RD,7     DIO41
     3538   01 00ABD    4B700E96              AND,7    L(X'E000')
     3539   01 00ABE    21704000 A            CI,7     4**12
     3540   01 00ABF    69300AC4              BNE      BC2ERROR
     3541   01 00AC0    6C702030 A            RD,7     NOTDIO41
     3542   01 00AC1    4B700100 A            AND,7    1**8
     3543   01 00AC2    E930000F A            BNEZ     *15               ERROR IF TO IS NOT SET
     3544                            *
     3545                            *
     3546                            *
     3547         00000034           TBC24    SET      TESTNO
     3548   01 00AC3    33100D05              MTW,1    AUTOSTEP
     3549   01 00AC4    07000200 A   BC2ERROR ERROR    0,1
     3550                            *
     3551                            *        TEST DATA OUT  (IOP BYTE COUNT 6, JX58 BYTE COUNT 4)
     3552                            *
     3553         00000035           TBC4     SET      TESTNO
     3554                            TESTBC4 ;
     3555   01 00AC5    220005E6              LI,0     DA(CP06)
     3556   01 00AC6    6AE00B3D              BAL,14   TESTRANS
     3557                            *
     3558                            *
     3559   01 00AC7    22601000 A            LI,6     1**12
     3560   01 00AC8    6D602070 A            WD,6     DIO41             SET IOP (DATA OUT)
     3561   01 00AC9    22603000 A            LI,6     3**12
     3562   01 00ACA    6D602030 A            WD,6     NOTDIO41          SET SC, RESET JX58
     3563   01 00ACB    225000C8 A            LI,5     200
     3564   01 00ACC    64500ACC              BDR,5    %
     3565   01 00ACD    6C702070 A            RD,7     DIO41
     3566   01 00ACE    4B700E96              AND,7    L(X'E000')
     3567   01 00ACF    21708000 A            CI,7     8**12
     3568   01 00AD0    69300AD5              BNE      BC4ERROR
     3569   01 00AD1    6C702030 A            RD,7     NOTDIO41
     3570   01 00AD2    4B700E97              AND,7    L(1**8)
     3571   01 00AD3    E830000F A            BEZ      *15
     3572                            *
     3573                            *
     3574                            *
     3575         00000036           TBC4A    SET      TESTNO
     3576   01 00AD4    33100D05              MTW,1    AUTOSTEP
     3577   01 00AD5    07000200 A   BC4ERROR ERROR    0,1
     3578                            *
     3579                            *        TEST DATA OUT (IOP BYTE COUNT 6,JX58 BYTE COUNT 1)
     3580                            *
     3581         00000037           TBC1     SET      TESTNO
     3582                            TESTBC1 ;
     3583   01 00AD6    220005E6              LI,0     DA(CP06)
     3584   01 00AD7    6AE00B3D              BAL,14   TESTRANS
     3585                            *
     3586                            *
     3587   01 00AD8    22601400 A            LI,6     X'1400'
     3588   01 00AD9    6D602070 A            WD,6     DIO41             SET IOR & ED (DATA OUT, 1 BYTE)
     3589   01 00ADA    22603000 A            LI,6     3**12
     3590   01 00ADB    6D602030 A            WD,6     NOTDIO41          SET  SC, RESET JX58
     3591   01 00ADC    225000C8 A            LI,5     200
     3592   01 00ADD    64500ADD              BDR,5    %
     3593   01 00ADE    6C702070 A            RD,7     DIO41
     3594   01 00ADF    4B700E96              AND,7    L(X'E000')
     3595   01 00AE0    21702000 A            CI,7     2**12
     3596   01 00AE1    68300AE3              BE       BC1ERROR
     3597   01 00AE2    07000200 A            ERROR    0,1
     3598                            *
     3599                            *
     3600                            *
     3601         00000038           TBC1A    SET      TESTNO
     3602   01 00AE3    33100D05     BC1ERROR MTW,1    AUTOSTEP
     3603   01 00AE4    6C702030 A            RD,7     NOTDIO41
     3604   01 00AE5    4B700E97              AND,7    L(1**8)
     3605   01 00AE6    E830000F A            BEZ      *15               IF TERMINAL ORDER ZERO  RTN TO MONTR
     3606   01 00AE7    07000200 A            ERROR    0,1
     3607                            *
     3608                            *        TEST FOR DOING A DATA-IN
     3609                            *
     3610         00000039           TDIN     SET      TESTNO
     3611                            TESTDIN ;
     3612   01 00AE8    220005E9              LI,0     DA(CP09)          LOAD DOUBLE WORD ADDRESS
     3613   01 00AE9    6AE00B3D              BAL,14   TESTRANS
     3614                            *
     3615                            *
     3616   01 00AEA    22600000 A            LI,6     0
     3617   01 00AEB    35600BDD              STW,6    DATA9
     3618   01 00AEC    22501000 A            LI,5     1**12
     3619   01 00AED    6D502030 A            WD,5     NOTDIO41          RESET JX58
     3620   01 00AEE    22600455 A            LI,6     X'0455'
     3621   01 00AEF    6D602070 A            WD,6      DIO41            SET ED AND PATTERN INTO JX58
     3622   01 00AF0    22502000 A            LI,5     2**12
     3623   01 00AF1    6D502030 A            WD,5     NOTDIO41          DO SERVICE CALL
     3624   01 00AF2    225000C8 A            LI,5     200
     3625   01 00AF3    64500AF3              BDR,5    %                 DELAY TO ALLOW DATA TO TRANSFER
     3626   01 00AF4    6C702070 A            RD,7     DIO41             FETCH BYTE COUNT
     3627   01 00AF5    4B700E96              AND,7    L(X'E000')        SAVE BYTE COUNT
     3628   01 00AF6    21702000 A            CI,7     2**12
     3629   01 00AF7    68300AF9              BE       TESTDNA           NEXT TEST IF BYTE COUNT = 1
     3630   01 00AF8    07000200 A            ERROR    0,1
     3631                            *
     3632                            *
     3633         0000003A           TDIN1A   SET      TESTNO
     3634                            TESTDNA ;
     3635   01 00AF9    33100D05              MTW,1    AUTOSTEP
     3636   01 00AFA    6C702030 A            RD,7     NOTDIO41
     3637   01 00AFB    4B700E97              AND,7    L(1**8)
     3638   01 00AFC    68300AFE              BEZ      TESTDNB           IF TERMINAL #0 GO NEXT TEST
     3639   01 00AFD    07000200 A            ERROR    0,1
     3640                            *
     3641                            *
     3642         0000003B           TDIN1B   SET      TESTNO
     3643                            TESTDNB ;
     3644   01 00AFE    33100D05              MTW,1    AUTOSTEP
     3645   01 00AFF    32700BDD              LW,7     DATA9
     3646   01 00B00    25600418 A            SAS,6    24
     3647   01 00B01    31600007 A            CW,6     7
     3648   01 00B02    E830000F A            BE       *15               RETURN IF XMITTED WORD COMPARES
     3649   01 00B03    07000200 A            ERROR    0,1
     3650                            *
     3651                            *                 TEST FOR DOING A DATA IN OF 4 BYTES
     3652                            *
     3653         0000003C           TDIN4    SET      TESTNO
     3654                            TESTDIN4 ;
     3655   01 00B04    22600000 A            LI,6     0
     3656   01 00B05    35600BDD              STW,6    DATA9             ZERO INPUT AREA
     3657   01 00B06    35600BDE              STW,6    DATA9+1           ZERO INPUT AREA
     3658   01 00B07    220005E9              LI,0     DA(CP09)          ZERO INPUT AREA
     3659   01 00B08    6AE00B3D              BAL,14   TESTRANS          GO TO ORDER OUT SUBROUTINE
     3660                            *
     3661                            *
     3662   01 00B09    22501000 A            LI,5     1**12
     3663   01 00B0A    6D502030 A            WD,5     NOTDIO41          RESET JX58
     3664   01 00B0B    22600055 A            LI,6     X'0055'
     3665   01 00B0C    6D602070 A            WD,6     DIO41
     3666   01 00B0D    22502000 A            LI,5     2**12             DO SERVICE CALL
     3667   01 00B0E    6D502030 A            WD,5     NOTDIO41
     3668   01 00B0F    225000C8 A            LI,5     200
     3669   01 00B10    64500B10              BDR,5    %                 DELAY TO ALLOW COMPLETION OF XFER
     3670   01 00B11    6C702070 A            RD,7     DIO41             FETCH BYTE COUNT
     3671   01 00B12    4B700E96              AND,7    L(X'E000')
     3672   01 00B13    21708000 A            CI,7     8**12
     3673   01 00B14    68300B16              BE       TESTDINA          IF BYTE COUNT EQUAL 4 NEXT TEST
     3674   01 00B15    07000200 A            ERROR    0,1
     3675                            *
     3676                            *
     3677         0000003D           TDIN4A   SET      TESTNO
     3678                            TESTDINA ;
     3679   01 00B16    33100D05              MTW,1    AUTOSTEP
     3680   01 00B17    6C702030 A            RD,7     NOTDIO41
     3681   01 00B18    4B700E97              AND,7    L(1**8)           SAVE TERMINAL ORDER
     3682   01 00B19    68300B1B              BEZ      TESTDINB          IF TERMINAL ORDER = ZERO; NEXT TEST
     3683   01 00B1A    07000200 A            ERROR    0,1
     3684                            *
     3685                            *
     3686         0000003E           TDIN4B   SET      TESTNO
     3687                            TESTDINB ;
     3688   01 00B1B    33100D05              MTW,1    AUTOSTEP
     3689   01 00B1C    75600007 A            STB,6    7                 LOAD EXPECTED PATTERN
     3690   01 00B1D    75620007 A            STB,6    7,1               LOAD EXPECTED PATTERN
     3691   01 00B1E    75640007 A            STB,6    7,2               LOAD EXPECTED PATTERN
     3692   01 00B1F    75660007 A            STB,6    7,3               LOAD EXPECTED PATTERN
     3693   01 00B20    31700BDD              CW,7     DATA9
     3694   01 00B21    68300B23              BE       TESTDINC          IF PATTERN COMPARES NEXT TEST
     3695   01 00B22    07000200 A            ERROR    0,1
     3696                            *
     3697                            *
     3698         0000003F           TDIN4C   SET      TESTNO
     3699                            TESTDINC ;
     3700   01 00B23    33100D05              MTW,1    AUTOSTEP
     3701   01 00B24    22501000 A            LI,5     1**12
     3702   01 00B25    6D502030 A            WD,5     NOTDIO41          RESET JX58
     3703   01 00B26    22600055 A            LI,6     X'0055'           LOAD PATTERN; DO NOT SET ED, PC,DAP
     3704   01 00B27    6D602070 A            WD,6     DIO41
     3705   01 00B28    22502000 A            LI,5     2**12
     3706   01 00B29    6D502030 A            WD,5     NOTDIO41          SET SERVICE CALL
     3707   01 00B2A    225000C8 A            LI,5     200
     3708   01 00B2B    64500B2B              BDR,5    %                 DELAY TO ALLOW COMPLETION OF XFER
     3709   01 00B2C    6C702070 A            RD,7     DIO41
     3710   01 00B2D    4B700E96              AND,7    L(X'E000')
     3711   01 00B2E    21704000 A            CI,7     4**12
     3712   01 00B2F    68300B31              BE       TESTDIND          IF BYTE COUNT EQUAL 2, NEXT TEST
     3713   01 00B30    07000200 A            ERROR    0,1
     3714                            *
     3715                            *
     3716         00000040           TDIN4D   SET      TESTNO
     3717                            TESTDIND ;
     3718   01 00B31    33100D05              MTW,1    AUTOSTEP
     3719   01 00B32    6C702030 A            RD,7     NOTDIO41
     3720   01 00B33    4B700E97              AND,7    L(1**8)           SAVE TERMINAL ORDER
     3721   01 00B34    69300B36              BNEZ     TESTDINE          NEXT TEST IF TERMINAL ORDER SET
     3722                            *
     3723   01 00B35    07000200 A           ERROR     0,1
     3724                            *
     3725         00000041           TDIN4E   SET      TESTNO
     3726                            TESTDINE ;
     3727   01 00B36    33100D05              MTW,1    AUTOSTEP
     3728   01 00B37    22700000 A            LI,7     0                 LOAD EXPECTED PATTERN
     3729   01 00B38    75600007 A            STB,6    7                 LOAD EXPECTED PATTERN
     3730   01 00B39    75620007 A            STB,6    7,1
     3731   01 00B3A    31700BDE              CW,7     DATA9+1
     3732   01 00B3B    E830000F A            BE       *15               RETURN IF DATA COMPARES
     3733   01 00B3C    07000200 A            ERROR    0,1
     3734                            *
     3735                            *
     3736                            *
     3737                            *
     3738                            *        SUBROUTINE FOR DOING AN ORDER OUT
     3739                            *
     3740   01 00B3D    22603000 A   TESTRANS LI,6     3**12             SET DOR & IOR (JX58 READY)
     3741   01 00B3E    6D602070 A            WD,6     DIO41
     3742   01 00B3F    22601000 A            LI,6     1**12             RESET JX58 BIT
     3743   01 00B40    6D602030 A            WD,6     NOTDIO41
     3744   01 00B41    CC000D03              SIO,0    *DEVICE
     3745   01 00B42    22500032 A            LI,5     50
     3746   01 00B43    64500B43              BDR,5    %
     3747   01 00B44    22603000 A            LI,6     X'3000'
     3748   01 00B45    6D602070 A            WD,6     DIO41
     3749   01 00B46    22603000 A            LI,6     3**12             SET SC LATCH BIT, RESET JX58
     3750   01 00B47    6D602030 A            WD,6     NOTDIO41
     3751   01 00B48    22500064 A            LI,5     100
     3752   01 00B49    64500B49              BDR,5    %
     3753   01 00B4A    E800000E A            B        *14
     3754                            *
     3755                            *        LINE TESTED DAP  FROM IOP
     3756                            *
     3757         00000042           TDPP     SET      TESTNO
     3758   01 00B4B    22800000 A   TESTDPP  LI,8     0
     3759   01 00B4C    22900001 A            LI,9     1
     3760   01 00B4D    220005E6              LI,0     DA(CP06)
     3761   01 00B4E    CC000D03              SIO,0    *DEVICE
     3762   01 00B4F    22603400 A            LI,6     X'3400'
     3763   01 00B50    6D602070 A            WD,6     DIO41
     3764   01 00B51    22603000 A            LI,6     3**12             SET IC RESET JX58
     3765   01 00B52    6D602030 A            WD,6     NOTDIO41
     3766   01 00B53    22500032 A            LI,5     50
     3767   01 00B54    64500B54              BDR,5    %
     3768   01 00B55    22601400 A            LI,6     X'1400'
     3769   01 00B56    6D602070 A            WD,6     DIO41             SET UP TO DO DATA OUT
     3770   01 00B57    22603000 A            LI,6     3**12             SET IC RESET JX58
     3771   01 00B58    6D602030 A            WD,6     NOTDIO41          DO SC
     3772   01 00B59    22500032 A            LI,5     50
     3773   01 00B5A    64500B5A              BDR,5    %
     3774   01 00B5B    6C702070 A            RD,7     DIO41
     3775   01 00B5C    4B700E97              AND,7    L(1**8)
     3776   01 00B5D    68300B5F              BEZ      TESTDPP1
     3777   01 00B5E    07000000 A            ERROR                      RECEIVED PARITY BIT SHOULD NOT HAVE
     3778                            *
     3779                            *
     3780   01 00B5F    22800001 A   TESTDPP1 LI,8     1                 TEST FOR PARITY ROUTINE
     3781   01 00B60    22900000 A            LI,9     0
     3782   01 00B61    220005E7              LI,0     DA(CP07)
     3783   01 00B62    22601000 A            LI,6     X'1000'           RESET JX58
     3784   01 00B63    6D602030 A            WD,6     NOTDIO41
     3785   01 00B64    22603000 A            LI,6     3**12
     3786   01 00B65    6D602070 A            WD,6     DIO41             SET DOR AND IOR
     3787   01 00B66    CC000D03              SIO,0    *DEVICE
     3788   01 00B67    22603400 A            LI,6     X'3400'           SET DOR, IOR & ED
     3789   01 00B68    6D602070 A            WD,6     DIO41
     3790   01 00B69    22603000 A            LI,6     3**12             SET IC RESET JX58
     3791   01 00B6A    6D602030 A            WD,6     NOTDIO41
     3792   01 00B6B    22500032 A            LI,5     50
     3793   01 00B6C    64500B6C              BDR,5    %
     3794   01 00B6D    22601000 A            LI,6     1**12
     3795   01 00B6E    6D602070 A            WD,6     DIO41
     3796   01 00B6F    22603000 A            LI,6     3**12
     3797   01 00B70    6D602030 A            WD,6     NOTDIO41          SET SC LATCH
     3798   01 00B71    22500032 A            LI,5     50                LOAD DELAY
     3799   01 00B72    64500B72              BDR,5    %                 DELAY LONG ENOUGH FOR A BYTE TO XDER
     3800   01 00B73    6C702070 A            RD,7     DIO41
     3801   01 00B74    4B700E97              AND,7    L(1**8)
     3802   01 00B75    E930000F A            BNEZ     *15               TEST FOR DAP SET
     3803   01 00B76    07000000 A            ERROR                      NO PARITY BIT
     3804                            *
     3805                            *
     3806   01 00B77    E800000F A   TESTPP3  B        *15
     3807                            *
     3808                            *        LINE TESTED PC
     3809                            *
     3810         00000043           TPCS     SET      TESTNO
     3811   01 00B78    22800000 A   TESTPC   LI,8     0                 TEST FOR NOT PC,DAP IF TO
     3812   01 00B79    22900001 A            LI,9     1
     3813   01 00B7A    220005E5              LI,0     DA(CP05)
     3814   01 00B7B    6AE00B3D              BAL,14  TESTRANS
     3815                            *
     3816                            *
     3817   01 00B7C    22600501 A            LI,6    X'501'
     3818   01 00B7D    6D602070 A            WD,6    DIO41
     3819   01 00B7E    22603000 A            LI,6    3**12
     3820   01 00B7F    6D602030 A            WD,6     NOTDIO41
     3821   01 00B80    22500032 A            LI,5     50
     3822   01 00B81    64500B81              BDR,5    %
     3823   01 00B82    6C702030 A            RD,7     NOTDIO41
     3824   01 00B83    4B700E98              AND,7    L(1**4)
     3825   01 00B84    68300B87              BEZ      TESTPC1
     3826   01 00B85    33100D05              MTW,1    AUTOSTEP
     3827   01 00B86    07000000 A            ERROR
     3828                            *
     3829                            *
     3830   01 00B87    22800000 A   TESTPC1  LI,8     0
     3831   01 00B88    22900001 A            LI,9     1
     3832   01 00B89    220005E5              LI,0     DA(CP05)
     3833   01 00B8A    6AE00B3D              BAL,14   TESTRANS
     3834   01 00B8B    22600400 A            LI,6     X'0400'           SET ED, RESET DAP, PC
     3835   01 00B8C    6D602070 A            WD,6     DIO41
     3836   01 00B8D    22603000 A            LI,6     3**12
     3837   01 00B8E    6D602030 A            WD,6    NOTDIO41
     3838   01 00B8F    22500032 A            LI,5     50
     3839   01 00B90    64500B90              BDR,5    %
     3840   01 00B91    6C702030 A            RD,7     NOTDIO41
     3841   01 00B92    4B700E98              AND,7    L(1**4)
     3842   01 00B93    68300B96              BEZ      TESTPC2
     3843   01 00B94    33100D05              MTW,1    AUTOSTEP
     3844   01 00B95    07000000 A            ERROR
     3845                            *        TEST FOR PARITY ERROR FLAG SET AT JX58
     3846                            *
     3847   01 00B96    22A00000 A   TESTPC2  LI,10    0
     3848   01 00B97    22800001 A            LI,8     1
     3849   01 00B98    22900000 A            LI,9     0
     3850   01 00B99    220005E5              LI,0     DA(CP05)
     3851   01 00B9A    6AE00B3D              BAL,14   TESTRANS
     3852   01 00B9B    22600701 A            LI,6     X'0701'           SET ED, PC, DAP AND BAD PARITY
     3853   01 00B9C    6D602070 A            WD,6     DIO41
     3854   01 00B9D    22603000 A            LI,6     3**12
     3855   01 00B9E    6D602030 A            WD,6     NOTDIO41
     3856   01 00B9F    22500032 A            LI,5     50
     3857   01 00BA0    64500BA0              BDR,5    %
     3858   01 00BA1    6C702030 A            RD,7     NOTDIO41
     3859   01 00BA2    4B700E98              AND,7    L(1**4)
     3860   01 00BA3    69300BA5              BNEZ     TESTPC3
     3861   01 00BA4    20A00001 A            AI,10    1
     3862                            *
     3863                            *
     3864   01 00BA5    22800001 A   TESTPC3  LI,8     1
     3865   01 00BA6    22900000 A            LI,9     0
     3866   01 00BA7    220005E5              LI,0     DA(CP05)
     3867   01 00BA8    6AE00B3D              BAL,14   TESTRANS
     3868                            *
     3869                            *
     3870   01 00BA9    22600200 A            LI,6     X'0200'
     3871   01 00BAA    6D602070 A            WD,6     DIO41
     3872   01 00BAB    22603000 A            LI,6     3**12             SET SC, RESET JX58
     3873   01 00BAC    6D602030 A            WD,6     NOTDIO41
     3874   01 00BAD    22500032 A            LI,5     50
     3875   01 00BAE    64500BAE              BDR,5    %
     3876   01 00BAF    6C702030 A            RD,7     NOTDIO41
     3877   01 00BB0    4B700E98              AND,7    L(1**4)
     3878   01 00BB1    69300BB3              BNEZ     TESTPC4
     3879   01 00BB2    20A00002 A            AI,10    2
     3880                            *
     3881                            *        LOAD ERROR MESSAGE ACCORDING TO FLAG SET IN REG 10
     3882                            *
     3883   01 00BB3    3300000A A   TESTPC4  MTW,0    10
     3884   01 00BB4    E830000F A            BEZ      *15
     3885                            *
     3886                            *
     3887   01 00BB5    21A00001 A   TESTPC5  CI,10    1
     3888   01 00BB6    69300BBA              BNE      TESTPC6
     3889   01 00BB7    22800001 A            LI,8     1
     3890   01 00BB8    22900000 A            LI,9     0
     3891   01 00BB9    07000000 A            ERROR
     3892                            *
     3893                            *
     3894   01 00BBA    21A00002 A   TESTPC6  CI,10    2
     3895   01 00BBB    69300BBF              BNE      TESTPC7
     3896   01 00BBC    22800000 A            LI,8     0
     3897   01 00BBD    22900001 A            LI,9     1
     3898   01 00BBE    07000000 A            ERROR
     3899                            *
     3900                            *
     3901         00000044           TDAP     SET      TESTNO
     3902   01 00BBF    33100D05     TESTPC7  MTW,1    AUTOSTEP
     3903   01 00BC0    22800001 A            LI,8     1
     3904   01 00BC1    22900000 A            LI,9     0
     3905   01 00BC2    07000000 A            ERROR
     3906                            *
     3907                            *
     3908                            *
     3909         00000045           TEND     SET      TESTNO
     3910                            *
     3911                            *        D O U B L E  W O R D  T A B L E
     3912                            *
     3913                                     BOUND    8
     3914                            *
     3915                            *
     3916   01 00BC4    00002F50     CP01     GEN,8,24 0,BA(DATA1)
     3917   01 00BC5    00000001 A            GEN,8,24 0,1
     3918                            *
     3919   01 00BC6    00002F54     CP02     GEN,8,24 0,BA(DATA2)       ORDER OUT
     3920   01 00BC7    000000FF A            GEN,8,24 0,X'FF'
     3921                            *
     3922   01 00BC8    00002F58     CP04     GEN,8,24 0,BA(DATA4)       4 BYTES OUT
     3923   01 00BC9    00000004 A            GEN,8,24 0,4
     3924                            *
     3925   01 00BCA    00002F5C     CP05     GEN,8,24 0,BA(DATA5)       1 BYTE IN
     3926   01 00BCB    08000001 A            GEN,8,24 8,1
     3927                            *
     3928   01 00BCC    00002F60     CP06     GEN,8,24 0,BA(DATA6)       1 BYTE OUT
     3929   01 00BCD    00000006 A            GEN,8,24 0,6
     3930                            *
     3931   01 00BCE    00002F68     CP07     GEN,8,24 0,BA(DATA7)
     3932   01 00BCF    00000006 A            GEN,8,24 0,6
     3933                            *
     3934   01 00BD0    00002F70     CP08     GEN,8,24 0,BA(DATA8)
     3935   01 00BD1    00000002 A            GEN,8,24 0,2
     3936                            *
     3937   01 00BD2    00002F74     CP09     GEN,8,24 0,BA(DATA9)       6 BYTES IN
     3938   01 00BD3    00000006 A            GEN,8,24 0,6
     3939                            *
     3940                            *
     3941                            *
     3942                            *
     3943                            *        D A T A  T A B L E
     3944                            *
     3945                                     BOUND    4
     3946                            *
     3947   01 00BD4    00000000 A   DATA1    DATA     0
     3948                            *
     3949   01 00BD5    00000000 A   DATA2    DATA     0
     3950                            *
     3951   01 00BD6    00000000 A   DATA4    DATA     0
     3952                            *
     3953   01 00BD7    00000000 A   DATA5    DATA     0
     3954                            *
     3955   01 00BD8    01000000 A   DATA6    DATA     X'01000000'
     3956   01 00BD9    00000000 A            DATA     0
     3957                            *
     3958   01 00BDA    00000000 A   DATA7    DATA     0
     3959   01 00BDB    00000000 A            DATA     0
     3960                            *
     3961   01 00BDC    00000000 A   DATA8    DATA     0
     3962                            *
     3963   01 00BDD    00000000 A   DATA9    DATA     0
     3964   01 00BDE    00000000 A            DATA     0
     3965                                     PAGE
     3966                            *
     3967                            *
     3968                            *        A U T O  E R R O R  R E P O R T E R  (7720)
     3969                            *
     3970                            *
     3971                                     BOUND    8
     3972                            *
     3973                            *
     3974   01 00BE0    00000000 A   AEREPORT DATA     0,0
            01 00BE1    00000000 A
     3975   01 00BE2    00000BE4              DATA     %+2,7**24
            01 00BE3    07000000 A
     3976   01 00BE4    02200040 A            LCI      4
     3977   01 00BE5    2B600D14              STM,6    SAVE6
     3978   01 00BE6    22C00000 A            LI,12    0
     3979   01 00BE7    6DC02008 A            WD,12    DISABLE
     3980   01 00BE8    2240000A A            LI,4     10
     3981   01 00BE9    2250000A A            LI,5     10
     3982   01 00BEA    6C000000 A            RD,0     0
     3983   01 00BEB    69100BEE              BCS,1    %+3               IF ERROR MESSAGE IS OUTPUT DELAY LNG
     3984   01 00BEC    22401388 A            LI,4     5000
     3985   01 00BED    22501388 A            LI,5     5000
     3986   01 00BEE    6D000042 A            WD,0     X'42'             SET I/O RESET LATCH
     3987   01 00BEF    64400BEF              BDR,4    %
     3988   01 00BF0    6D000042 A            WD,0     X'42'             RESET I/O RESET LATCH
     3989   01 00BF1    64500BF1              BDR,5    %
     3990   01 00BF2    6D000022 A            WD,0     X'22'             ALLOW FOR INTERRUPTS
     3991   01 00BF3    32C00D05              LW,12    AUTOSTEP
     3992   01 00BF4    6AF004E8              BAL,15   ZBTD
     3993   01 00BF5    6AF004FD              BAL,15   ZBTH
     3994   01 00BF6    55D00D7A              STH,13   TEXT10+4          SUB-TEST NUMBER
     3995   01 00BF7    55D00D92              STH,13   TEXT14+4
     3996   01 00BF8    224000E7 A            LI,4     'X'
     3997   01 00BF9    33000D0A              MTW,0    PORT
     3998   01 00BFA    69300BFC              BCS,3    %+2               B IF PORT X IS BEING TESTED
     3999   01 00BFB    224000E8 A            LI,4     'Y'
     4000   01 00BFC    75400D7C              STB,4    TEXT10+6
     4001   01 00BFD    75400D94              STB,4    TEXT14+6
     4002   01 00BFE    224000F1 A            LI,4     '1'
     4003   01 00BFF    225000F0 A            LI,5     '0'
     4004   01 00C00    75400D7D              STB,4    TEXT10+7
     4005   01 00C01    22100001 A            LI,1     1
     4006   01 00C02    32600D16              LW,6     SAVE8
     4007   01 00C03    4B600E8C              AND,6    L(1)
     4008   01 00C04    31100006 A            CW,1     6
     4009   01 00C05    69400C07              BCS,4    %+2               B IF EXPECTED BIT IS ONE (1)
     4010   01 00C06    75500D7D              STB,5    TEXT10+7
     4011   01 00C07    75400D7E              STB,4    TEXT10+8
     4012   01 00C08    32600D17              LW,6     SAVE9
     4013   01 00C09    4B600E8C              AND,6    L(1)
     4014   01 00C0A    31100006 A            CW,1     6
     4015   01 00C0B    69400C0D              BCS,4    %+2               B IF RECEIVED BIT IS ONE (1)
     4016   01 00C0C    75500D7E              STB,5    TEXT10+8
     4017   01 00C0D    32500D14              LW,5     SAVE6
     4018   01 00C0E    6AE00C58              BAL,14   BINARYTOEBCDIC
     4019   01 00C0F    35400D81              STW,4    TEXT11+1
     4020   01 00C10    6AE00C58              BAL,14   BINARYTOEBCDIC
     4021   01 00C11    35400D82              STW,4    TEXT11+2
     4022   01 00C12    32500D15              LW,5     SAVE7             ERROR WORD 2
     4023   01 00C13    6AE00C58              BAL,14   BINARYTOEBCDIC
     4024   01 00C14    35400D85              STW,4    TEXT12+1
     4025   01 00C15    6AE00C58              BAL,14   BINARYTOEBCDIC
     4026   01 00C16    35400D86              STW,4    TEXT12+2
     4027   01 00C17    B2600BE0              LW,6     *AEREPORT         CALLING PARAMETER
     4028   01 00C18    72560006 A            LB,5     6,3
     4029   01 00C19    68300C1C              BEZ      %+3
     4030   01 00C1A    75500D7C              STB,5    TEXT10+6
     4031   01 00C1B    75500D94              STB,5    TEXT14+6
     4032   01 00C1C    25600016 A            SLS,6    22
     4033   01 00C1D    33000006 A            MTW,0    6
     4034   01 00C1E    68100C23              BGEZ     AERPT02
     4035   01 00C1F    32C00DA3              LW,12    MW17
     4036   01 00C20    022000D0 A            LCI      13
     4037   01 00C21    6AF005CA              BAL,15   ZTWLP
     4038   01 00C22    68000C2F              B        AERPT01
     4039                            *
     4040                            *
     4041   01 00C23    32C00D75     AERPT02  LW,12    MW10              OUTPUT ERROR MESSAGE
     4042   01 00C24    022000D0 A            LCI      13
     4043   01 00C25    6AF005CA              BAL,15   ZTWLP
     4044                            *
     4045                            *
     4046   01 00C26    25600001 A            SLS,6    1
     4047   01 00C27    33000006 A            MTW,0    6
     4048   01 00C28    68100C2F              BGEZ     AERPT01
     4049   01 00C29    32C00D7F              LW,12    MW11
     4050   01 00C2A    022000D0 A            LCI      13
     4051   01 00C2B    6AF005CA              BAL,15   ZTWLP
     4052   01 00C2C    32C00D83              LW,12    MW12
     4053   01 00C2D    022000D0 A            LCI      13
     4054   01 00C2E    6AF005CA              BAL,15   ZTWLP
     4055   01 00C2F    22000000 A   AERPT01  LI,0     0
     4056   01 00C30    35000D04              STW,0    AUTOFLAG
     4057   01 00C31    33100D06              MTW,1    RETURN            PLACEMARK BRANCH
     4058   01 00C32    E8000D06              B        *RETURN
     4059                                     PAGE
     4060                            *
     4061                            *
     4062                            *        W A T C H D O G  T I M E R  T R A P
     4063                            *
     4064                            *
     4065                                     BOUND    8
     4066                            *
     4067                            *
     4068   01 00C34    00000000 A   WDTT     DATA     0,0
            01 00C35    00000000 A
     4069   01 00C36    00000C38              DATA     %+2,7**24
            01 00C37    07000000 A
     4070   01 00C38    2240000A A            LI,4     10
     4071   01 00C39    2250000A A            LI,5     10
     4072   01 00C3A    6C000000 A            RD,0     0
     4073   01 00C3B    69100C3E              BCS,1    %+3               IF ERROR MSG IS OUTPUT, DELAY LONGER
     4074   01 00C3C    22401388 A            LI,4     5000
     4075   01 00C3D    22501388 A            LI,5     5000
     4076   01 00C3E    6D000042 A            WD,0     X'42'             SET I/O RESET LATCH
     4077   01 00C3F    64400C3F              BDR,4    %
     4078   01 00C40    6D000042 A            WD,0     X'42'             RESET I/O RESET LATCH
     4079   01 00C41    64500C41              BDR,5    %
     4080   01 00C42    6D000022 A            WD,0     X'22'             ALLOW FOR INTERRUPTS
     4081   01 00C43    32C00D87              LW,12    MW13
     4082   01 00C44    022000D0 A            LCI      13
     4083   01 00C45    6AF005CA              BAL,15   ZTWLP
     4084   01 00C46    33000D04              MTW,0    AUTOFLAG          WAS 7720 AUTO TEST IN PROGRESS
     4085   01 00C47    E8300D06              BCR,3    *RETURN
     4086   01 00C48    32C00D05              LW,12    AUTOSTEP          STEP NUMBER
     4087   01 00C49    6AF004E8              BAL,15   ZBTD
     4088   01 00C4A    6AF004FD              BAL,15   ZBTH
     4089   01 00C4B    55D00D92              STH,13   TEXT14+4
     4090   01 00C4C    224000E8 A            LI,4     'Y'
     4091   01 00C4D    33000D0A              MTW,0    PORT
     4092   01 00C4E    68300C50              BCR,3    %+2               B IF PORT Y WAS BEING TESTED
     4093   01 00C4F    224000E7 A            LI,4     'X'
     4094   01 00C50    75400D94              STB,4    TEXT14+6
     4095   01 00C51    32C00D8D              LW,12    MW14
     4096   01 00C52    022000D0 A            LCI      13
     4097   01 00C53    6AF005CA              BAL,15   ZTWLP
     4098   01 00C54    22000000 A            LI,0     0
     4099   01 00C55    35000D04              STW,0    AUTOFLAG
     4100   01 00C56    33100D06              MTW,1    RETURN
     4101   01 00C57    E8000D06              B        *RETURN
     4102                            *
     4103                            *
     4104                                     PAGE
     4105                            *
     4106                            *        B I N A R Y  T O  E B C D I C  C O N V E R T E R
     4107                            *
     4108                            BINARYTOEBCDIC ;
     4109   01 00C58    22400000 A            LI,4     0
     4110   01 00C59    25400101 A            SLD,4    1
     4111   01 00C5A    25400007 A            SLS,4    7
     4112   01 00C5B    25400101 A            SLD,4    1
     4113   01 00C5C    25400007 A            SLS,4    7
     4114   01 00C5D    25400101 A            SLD,4    1
     4115   01 00C5E    25400007 A            SLS,4    7
     4116   01 00C5F    25400101 A            SLD,4    1
     4117   01 00C60    49400E99              OR,4     L(X'F0F0F0F0')
     4118   01 00C61    E800000E A            B        *14
     4119                                     PAGE
     4120                            *
     4121                            *
     4122                            *        W R I T E  P O R T  (7722)
     4123                            *
     4124                            *
     4125                            * THIS DIRECTIVE CAUSES A WRITE DIRECT TO BE ISSUED TO THE PORT        *
     4126                            * SPECIFIED BY PARAMETER A2.  PATTERN USED IS SPECIFIED BY PARAMETER   *
     4127                            * X1.  JX58 MUST BE IN THE WD-D MODE.
     4128                            *
     4129   01 00C62    40000000 A            DATA     4**28             P1 = TEST PATTERN
     4130   01 00C63    50000000 A            DATA     5**28             P2 = PORT
     4131                            *
     4132                            *
     4133   01 00C64    35F00D06     WP2200   STW,15   RETURN
     4134   01 00C65    32400692              LW,4     P1                SET PATTERN
     4135   01 00C66    25400008 A            SLS,4    8                  REGISTER 4
     4136   01 00C67    6AE00CEA              BAL,14   WPSPD             GO TO SPREAD DATA
     4137                            *
     4138   01 00C68    32600693              LW,6     P2                WRITE
     4139   01 00C69    216000E8 A            CI,6     'Y'                TO
     4140   01 00C6A    68300C6D              BE       %+3                 PORT X
     4141   01 00C6B    6D409840 A           WD,4      X'9840'                                             *B
     4142   01 00C6C    E800000F A            B        *15
     4143   01 00C6D    6D405840 A           WD,4      X'5840'           WRITE TO                          *B
     4144   01 00C6E    E800000F A            B        *15                PORT Y
     4145                            *
     4146                            *
     4147                                     PAGE
     4148                            *
     4149                            *
     4150                            *        R E A D  P O R T  (7722)
     4151                            *
     4152                            *
     4153                            * THIS DIRECTIVE CAUSES A READ DIRECT TO BE ISSUED TO THE PORT SPECIFIED
     4154                            * BY PARAMETER A1.  JX58 MUST BE IN THE WD-D MODE.
     4155                            *
     4156                            *
     4157                            *        RECEIVED  N  BBBB BBBB BBBB BBBB BBBB BBBB
     4158                            *
     4159                            * WHERE N IS THE PORT BEING READ AND B IS THE 24 BINARY BITS OF DATA.
     4160                            *
     4161                            *
     4162   01 00C6F    50000000 A            DATA     5**28             P1 = PORT
     4163                            *
     4164   01 00C70    35F00D06     RP2200   STW,15   RETURN
     4165   01 00C71    32600692              LW,6     P1
     4166   01 00C72    216000E8 A            CI,6     'Y'
     4167   01 00C73    68300C78              BE       %+5
     4168   01 00C74    226000E7 A            LI,6     'X'
     4169   01 00C75    75640DA7              STB,6    TEXT18+2,2
     4170   01 00C76    6C509080 A            RD,5     X'9080'           READ PORT X
     4171   01 00C77    68000C7A              B        %+3
     4172   01 00C78    75640DA7              STB,6    TEXT18+2,2
     4173   01 00C79    6C505080 A            RD,5     X'5080'           READ PORT |
     4174   01 00C7A    6AE00CF4              BAL,14   RDCOMP            GO TO COMPRESS DATA
     4175                            *
     4176   01 00C7B    226FFFE2 A            LI,6     -30               CONVERT
     4177   01 00C7C    227FFFFB A            LI,7     -5                 RECEIVER
     4178   01 00C7D    22800040 A            LI,8     X'40'               DATA
     4179   01 00C7E    68000C81              B        %+3                  TO
     4180   01 00C7F    754C0DB0     STLOOP   STB,4    TEXT18+11,6           EBCDIC
     4181   01 00C80    65600C81              BIR,6    %+1                    AND
     4182   01 00C81    22400078 A            LI,4     X'78'                   MOVE
     4183   01 00C82    25400501 A            SAD,4    1                        TO
     4184   01 00C83    65700C7F              BIR,7    %-4                       MESSAGE
     4185   01 00C84    758C0DB0              STB,8    TEXT18+11,6                AREA
     4186   01 00C85    227FFFFC A            LI,7     -4
     4187   01 00C86    65600C7F              BIR,6    STLOOP
     4188   01 00C87    32C00DA4              LW,12    MW18
     4189   01 00C88    022000D0 A            LCI,     13
     4190   01 00C89    6AF005CA              BAL,15   ZTWLP
     4191   01 00C8A    E8000D06              B        *RETURN
     4192                            *
     4193                                     PAGE
     4194                            *
     4195                            *
     4196                            *        A U T O  T E S T  (7722)
     4197                            *
     4198                            *
     4199                            * THIS DIRECTIVE TESTS THE DIO DATA PATH THROUGH THE 7722 USING THE    *
     4200                            * JX58 TESTER IN THE WD-D MODE.  A SERIES OF PATTERNS IS SENT TO JX58  *
     4201                            * TESTER THEN READ, AND COMPARED.  IF ERROR FOUND FOLLOWING MESSAGE    *
     4202                            * IS OUTPUT:  ERROR 7722 E= BBBB BBBB BBBB BBBB BBBB BBBB              *
     4203                            *             PORT N     R= BBBB BBBB BBBB BBBB BBBB BBBB              *
     4204                            * WHERE E AND R IS THE EXPECTED AND RECEIVED BINARY PATTERN.  N IS THE *
     4205                            * PORT BEING TESTED.  SS3 BEING RESET CAUSES PROGRAM TO LOOP ON ERROR, *
     4206                            * IF SS3 SET NEXT PATTERN IS SENT. IF ERROR WAS DETECTED PLACEMARK     *
     4207                            * BRANCH WILL BE TAKEN AT COMPLETION OF DIRECTIVE.  SUCCESS MESSAGE    *
     4208                            * IS AS FOLLOWS:                                                       *
     4209                            *             SUCCESS 7722 AUTO                                        *
     4210                            *                                                                      *
     4211                            *                                                                      *
     4212   01 00C8B    35F00D06     AU2200   STW,15   RETURN
     4213                            *                                   INITIALIZE
     4214   01 00C8C    22600000 A            LI,6     0                 *PATTERN SELECT
     4215   01 00C8D    35600D0A              STW,6    PORT              *PORT FLAG
     4216   01 00C8E    22900000 A            LI,9     0                 *ERROR FLAG
     4217   01 00C8F    22700019 A            LI,7     25                %SHIFT COUNTER
     4218                            *
     4219   01 00C90    124C0D1E     AU2201   LD,4     PATA,6            FETCH PATTERN
     4220   01 00C91    15400D26              STD,4    PATSAVE
     4221   01 00C92    4B400E9A              AND,4    =X'FFFFFF00'
     4222   01 00C93    35400D19              STW,4    DATASB
     4223   01 00C94    6AE00CEA              BAL,14   WPSPD             GO TO SPREAD DATA
     4224   01 00C95    33000D0A              MTW,0    PORT              DETERMINE
     4225   01 00C96    68300C99              BEZ      %+3                PORT
     4226                            *
     4227   01 00C97    6D405840 A           WD,4      X'5840'           WRITE PORT Y                      *B
     4228   01 00C98    68000C9A              B        %+2
     4229   01 00C99    6D409840 A           WD,4      X'9840'           WRITE PORT X                      *B
     4230                            *
     4231   01 00C9A    33000D0A              MTW,0    PORT              DETERMINE
     4232   01 00C9B    68300C9E              BEZ      %+3                PORT
     4233   01 00C9C    6C505080 A            RD,5     X'5080'           READ PORT Y
     4234   01 00C9D    68000C9F              B        %+2
     4235   01 00C9E    6C509080 A            RD,5     X'9080'           READ PORT X
     4236   01 00C9F    6AE00CF4              BAL,14   RDCOMP            GO TO COMPRESS DATA
     4237   01 00CA0    35500D1A              STW,5    DATAREC           SAVE RECEIVED DATA
     4238                            *
     4239   01 00CA1    31500D19              CW,5     DATASB
     4240   01 00CA2    69300CBA              BNE      ERRPT             DATA DOES NOT COMPARE
     4241                            *
     4242   01 00CA3    64700CA5     ERRETN   BDR,7    %+2               PATTERN SHIFTED 25 TIMES?
     4243   01 00CA4    68000CA8              B        %+4
     4244   01 00CA5    12400D26              LD,4     PATSAVE           NO
     4245   01 00CA6    25400101 A            SLD,4    1                  SHIFT PATTERN
     4246   01 00CA7    68000C91              B        AU2201+1            AND LOOP
     4247                            *
     4248   01 00CA8    22700019 A            LI,7     25                YES, RESET SHIFT COUNTER
     4249   01 00CA9    21600004 A            CI,6     4                 ALL PATTERNS USED
     4250   01 00CAA    68300CAD              BE       %+3
     4251   01 00CAB    20600001 A            AI,6     1                 NO, STEP PATTERN
     4252   01 00CAC    68000C90              B        AU2201             SELECT AND LOOP
     4253                            *
     4254   01 00CAD    22600000 A            LI,6     0                 RESET PATTERN SELECT
     4255   01 00CAE    33000D0A              MTW,0    PORT              PORT Y TESTED?
     4256   01 00CAF    69300CB2              BNEZ     %+3
     4257   01 00CB0    33100D0A              MTW,1    PORT              NO, SET FLAG
     4258   01 00CB1    68000C90              B        AU2201             AND LOOP
     4259                            *
     4260   01 00CB2    21900000 A            CI,9     0                 CHECK FOR ERRORS DURING TEST
     4261   01 00CB3    68300CB6              BE       %+3
     4262   01 00CB4    33100D06              MTW,1    RETURN            YES, TAKE
     4263   01 00CB5    E8000D06              B        *RETURN            PLACEMARK BRANCH
     4264                            *
     4265   01 00CB6    32C00DB0              LW,12    MW19              PRINT
     4266   01 00CB7    022000D0 A            LCI      13                 SUCCESS
     4267   01 00CB8    6AF005CA              BAL,15   ZTWLP               MESSAGE
     4268   01 00CB9    E8000D06              B        *RETURN
     4269                            *
     4270                            *
     4271   01 00CBA    20900001 A   ERRPT    AI,9     1                 STEP ERRORFLAG
     4272   01 00CBB    35600D1B              STW,6    RGSIX             *
     4273   01 00CBC    35700D1C              STW,7    RGSEV              * SAVE REGISTERS
     4274   01 00CBD    35800D1D              STW,8    RGEIG             *
     4275                            *
     4276   01 00CBE    32500D19              LW,5     DATASB            FETCH RECEIVED DATA
     4277   01 00CBF    226FFFE2 A            LI,6     -30
     4278   01 00CC0    227FFFFB A            LI,7     -5                CONVERT
     4279   01 00CC1    22800040 A            LI,8     X'40'              EXPECTED
     4280   01 00CC2    68000CC5              B        %+3                 BINARY
     4281   01 00CC3    754C0DC2     ERRPT01  STB,4    TEXT20+11,6          DATA
     4282   01 00CC4    65600CC5              BIR,6    %+1                   TO
     4283   01 00CC5    22400078 A            LI,4     X'78'                  ERCDIC
     4284   01 00CC6    25400501 A            SAD,4    1                       AND
     4285   01 00CC7    65700CC3              BIR,7    %-4                      MOVE
     4286   01 00CC8    758C0DC2              STB,8    TEXT20+11,6               TO
     4287   01 00CC9    227FFFFC A            LI,7     -4                         MESSAGE
     4288   01 00CCA    65600CC3              BIR,6    ERRPT01                     AREA
     4289   01 00CCB    32C00DB6              LW,12    MW20
     4290   01 00CCC    022000F0 A            LCI      15
     4291   01 00CCD    6AF005CA              BAL,15   ZTWLP
     4292                            *
     4293   01 00CCE    33000D0A              MTW,0    PORT              SEND
     4294   01 00CCF    68300CD2              BEZ      %+3                PORT
     4295   01 00CD0    224000E8 A            LI,4     'Y'                 TO
     4296   01 00CD1    68000CD3              B        %+2                  MESSAGE
     4297   01 00CD2    224000E7 A            LI,4     'X'                   AREA
     4298   01 00CD3    75420DC4              STB,4    TEXT21+1,1
     4299                            *
     4300   01 00CD4    32500D1A              LW,5     DATAREC
     4301   01 00CD5    226FFFE2 A            LI,6     -30               CONVERT
     4302   01 00CD6    227FFFFB A            LI,7     -5                 RECEIVED
     4303   01 00CD7    22800040 A            LI,8     X'40'               BINARY
     4304   01 00CD8    68000CDB              B        %+3                  DATA
     4305   01 00CD9    754C0DCE     ERRPT02  STB,4    TEXT21+11,6           TO
     4306   01 00CDA    65600CDB              BIR,6    %+1                    EBCDIC
     4307   01 00CDB    22400078 A            LI,4     X'78'                   AND
     4308   01 00CDC    25400501 A            SAD,4    1                        MOVE
     4309   01 00CDD    65700CD9              BIR,7    %-4                       TO
     4310   01 00CDE    758C0DCE              STB,8    TEXT21+11,6                MESSAGE
     4311   01 00CDF    227FFFFC A            LI,7     -4                          AREA
     4312   01 00CE0    65600CD9              BIR,6    ERRPT02
     4313   01 00CE1    32C00DC2              LW,12    MW21
     4314   01 00CE2    022000F0 A            LCI      15
     4315   01 00CE3    6AF005CA              BAL,15   ZTWLP
     4316                            *
     4317   01 00CE4    32600D1B              LW,6     RGSIX             *
     4318   01 00CE5    32700D1C              LW,7     RGSEV              *RESTORE REGISTERS
     4319   01 00CE6    32800D1D              LW,8     RGEIG             *
     4320                            *
     4321   01 00CE7    6C000000 A            RD,0     0                 CHECK SENSE SWITCH THREE
     4322   01 00CE8    68200C90              BCR,2    AU2201            RESET SEND SAME PATTERN
     4323   01 00CE9    68000CA3              B        ERRETN            SET SEND NEXT PATTERN
     4324                            *
     4325                                     PAGE
     4326   01 00CEA    32500004 A   WPSPD    LW,5     4                 SPREAD
     4327   01 00CEB    25400108 A            SLD,4    8                  PATTERN
     4328   01 00CEC    25400001 A            SLS,4    1                   DATA TO ALLOW
     4329   01 00CED    25400104 A            SLD,4    4                    A WRITE PORT
     4330   01 00CEE    25400001 A            SLS,4    1                     OVER
     4331   01 00CEF    25400104 A            SLD,4    4                      PROPER
     4332   01 00CF0    25400001 A            SLS,4    1                       DIO
     4333   01 00CF1    25400108 A            SLD,4    8                        LINES
     4334   01 00CF2    25400005 A            SLS,4    5
     4335   01 00CF3    E800000E A            B        *14
     4336                            *
     4337                            *
     4338   01 00CF4    32400005 A   RDCOMP   LW,4     5                 COMPRESS
     4339   01 00CF5    2540007B A            SLS,4    -5                 PATTERN
     4340   01 00CF6    25400178 A            SLD,4    -8                  AFTER
     4341   01 00CF7    2540007F A            SLS,4    -1                   A READ
     4342   01 00CF8    2540017C A            SLD,4    -4                    PORT
     4343   01 00CF9    2540007F A            SLS,4    -1
     4344   01 00CFA    2540017C A            SLD,4    -4
     4345   01 00CFB    2540007F A            SLS,4    -1
     4346   01 00CFC    25400178 A            SLD,4    -8
     4347   01 00CFD    4B500E9A              AND,5    =X'FFFFFF00'
     4348   01 00CFE    E800000E A            B        *14
     4349                                     PAGE
     4350         00002070           DIO41    EQU      X'2070'
     4351         00002071           DIO41SY1 EQU      X'2071'
     4352         00002030           NOTDIO41 EQU      X'2030'
     4353         00002031           NOTDIOSY EQU      X'2031'
     4354         00002008           DISABLE  EQU      X'2008'
     4355         01 00CFF           ZEROTABL EQU      %
     4356   01 00CFF    00000000 A   TO       DATA     0
     4357   01 00D00    00000000 A   ASC      DATA     0
     4358   01 00D01    00000000 A   BTC      DATA     0
     4359   01 00D02    00000000 A   STEPDEX  DATA     0
     4360   01 00D03    00000000 A   DEVICE   DATA     0
     4361   01 00D04    00000000 A   AUTOFLAG DATA     0
     4362   01 00D05    00000000 A   AUTOSTEP DATA     0
     4363   01 00D06    00000288     RETURN   DATA     ZPC010
     4364                                     BOUND    8
     4365   01 00D08    00000000 A   PATTERN0 DATA     0
     4366   01 00D09    00000000 A   PATTERN1 DATA     0
     4367   01 00D0A    00000000 A   PORT     DATA     0
     4368   01 00D0B    00000000 A   SUBTEST  DATA     0
     4369   01 00D0C    00000000 A   TEMP0    DATA     0
     4370   01 00D0D    00000000 A   TEMP1    DATA     0
     4371   01 00D0E    00000000 A   TEMP2    DATA     0
     4372   01 00D0F    00000000 A   WORK1    DATA     0
     4373   01 00D10    00000000 A   WORK2    DATA     0
     4374   01 00D11    00000000 A   WORK3    DATA     0
     4375   01 00D12    00000000 A   WORK4    DATA     0
     4376   01 00D13    00000000 A   WORK5    DATA     0
     4377   01 00D14    00000000 A   SAVE6    DATA     0
     4378   01 00D15    00000000 A   SAVE7    DATA     0
     4379   01 00D16    00000000 A   SAVE8    DATA     0
     4380   01 00D17    00000000 A   SAVE9    DATA     0
     4381   01 00D18    00000000 A   TIME     DATA     0
     4382   01 00D19    00000000 A   DATASB   DATA     0
     4383   01 00D1A    00000000 A   DATAREC  DATA     0
     4384   01 00D1B    00000000 A   RGSIX    DATA     0
     4385   01 00D1C    00000000 A   RGSEV    DATA     0
     4386   01 00D1D    00000000 A   RGEIG    DATA     0
     4387                                     BOUND    8
     4388   01 00D1E    00000080 A   PATA     DATA     X'80',0
            01 00D1F    00000000 A
     4389   01 00D20    000000FF A   PATB     DATA     X'FF',X'FFFFFFFF'
            01 00D21    FFFFFFFF A
     4390   01 00D22    FFFFFF7F A   PATC     DATA     X'FFFFFF7F',X'FFFFFFFF'
            01 00D23    FFFFFFFF A
     4391   01 00D24    FFFFFF00 A   PATD     DATA     X'FFFFFF00',0
            01 00D25    00000000 A
     4392   01 00D26    00000000 A   PATSAVE  DATA     0,0
            01 00D27    00000000 A
     4393                                     PAGE
     4394   01 00D28    205334A4 A   MW00     ZFMW     2,0,83,BA(TEXT00)     PROG. HEADER MESSAGE        *D00
     4395                            *                                                                   *D00
     4396                            TEXT00   TEXT     '
SIGMA 5-9 PERIPHERAL SWITCHING EQUIPMENT ',;  ' *D00
     4397                                              'TEST
',;                                         *D00
     4398   01 00D29    15E2C9C7 A                     'PROGRAM 704314-D01  MANUAL 901539 D
'            *D01
            01 00D2A    D4C140F5 A
            01 00D2B    60F940D7 A
            01 00D2C    C5D9C9D7 A
            01 00D2D    C8C5D9C1 A
            01 00D2E    D340E2E6 A
            01 00D2F    C9E3C3C8 A
            01 00D30    C9D5C740 A
            01 00D31    C5D8E4C9 A
            01 00D32    D7D4C5D5 A
            01 00D33    E340E3C5 A
            01 00D34    E2E315D7 A
            01 00D35    D9D6C7D9 A
            01 00D36    C1D440F7 A
            01 00D37    F0F4F3F1 A
            01 00D38    F460C4F0 A
            01 00D39    F14040D4 A
            01 00D3A    C1D5E4C1 A
            01 00D3B    D340F9F0 A
            01 00D3C    F1F5F3F9 A
            01 00D3D    40C41540 A
     4399                            *
     4400   01 00D3E    200C34FC A   MW01     ZFMW     2,0,12,BA(TEXT01)
     4401   01 00D3F    C4C1E3C1 A   TEXT01   TEXT     'DATA ERROR: '
            01 00D40    40C5D9D9 A
            01 00D41    D6D97A40 A
     4402                            *
     4403   01 00D42    0020350C A   MW02     ZFMW     0,0,32,BA(TEXT02)
     4404   01 00D43    C57EF0F0 A   TEXT02   TEXT     'E=0000  0000  0000  0000   CC=00'
            01 00D44    F0F04040 A
            01 00D45    F0F0F0F0 A
            01 00D46    4040F0F0 A
            01 00D47    F0F04040 A
            01 00D48    F0F0F0F0 A
            01 00D49    404040C3 A
            01 00D4A    C37EF0F0 A
     4405                            *
     4406   01 00D4B    00203530 A   MW03     ZFMW     0,0,32,BA(TEXT03)
     4407   01 00D4C    D97EF0F0 A   TEXT03   TEXT     'R=0000  0000  0000  0000   CC=00'
            01 00D4D    F0F04040 A
            01 00D4E    F0F0F0F0 A
            01 00D4F    4040F0F0 A
            01 00D50    F0F04040 A
            01 00D51    F0F0F0F0 A
            01 00D52    404040C3 A
            01 00D53    C37EF0F0 A
     4408                            *
     4409   01 00D54    100C3554 A   MW04     ZFMW     1,0,12,BA(TEXT04)
     4410   01 00D55    D7D6D9E3 A   TEXT04   TEXT     'PORT        '
            01 00D56    40404040 A
            01 00D57    40404040 A
     4411                            *
     4412   01 00D58    201E3564 A   MW05     ZFMW     2,0,30,BA(TEXT05)
     4413   01 00D59    E2E4C3C3 A   TEXT05   TEXT     'SUCCESS - 7710 AUTO DATA MODE '
            01 00D5A    C5E2E240 A
            01 00D5B    6040F7F7 A
            01 00D5C    F1F040C1 A
            01 00D5D    E4E3D640 A
            01 00D5E    C4C1E3C1 A
            01 00D5F    40D4D6C4 A
            01 00D60    C5404040 A
     4414                            *
     4415   01 00D61    30103588 A   MW06     ZFMW     3,0,16,BA(TEXT06)
     4416   01 00D62    E6C4E340 A   TEXT06   TEXT     'WDT PORT X CC=BB'
            01 00D63    D7D6D9E3 A
            01 00D64    40E740C3 A
            01 00D65    C37EC2C2 A
     4417                            *
     4418   01 00D66    3010359C A   MW07     ZFMW     3,0,16,BA(TEXT07)
     4419   01 00D67    E6C4E340 A   TEXT07   TEXT     'WDT PORT Y CC=BB'
            01 00D68    D7D6D9E3 A
            01 00D69    40E840C3 A
            01 00D6A    C37EC2C2 A
     4420                            *
     4421   01 00D6B    301035B0 A   MW08     ZFMW     3,0,16,BA(TEXT08)
     4422   01 00D6C    E6C4E240 A   TEXT08   TEXT     'WDS PORT X CC=BB'
            01 00D6D    D7D6D9E3 A
            01 00D6E    40E740C3 A
            01 00D6F    C37EC2C2 A
     4423                            *
     4424   01 00D70    301035C4 A   MW09     ZFMW     3,0,16,BA(TEXT09)
     4425   01 00D71    E6C4E240 A   TEXT09   TEXT     'WDS PORT Y CC=BB'
            01 00D72    D7D6D9E3 A
            01 00D73    40E840C3 A
            01 00D74    C37EC2C2 A
     4426                            *
     4427   01 00D75    202235D8 A   MW10     ZFMW     2,0,34,BA(TEXT10)
     4428   01 00D76    C5D9D9D6 A   TEXT10   TEXT     'ERROR  SUB-TEST XX PORT X E=X R=X '
            01 00D77    D94040E2 A
            01 00D78    E4C260E3 A
            01 00D79    C5E2E340 A
            01 00D7A    E7E740D7 A
            01 00D7B    D6D9E340 A
            01 00D7C    E740C57E A
            01 00D7D    E740D97E A
            01 00D7E    E7404040 A
     4429                            *
     4430   01 00D7F    100C3600 A   MW11     ZFMW     1,0,12,BA(TEXT11)
     4431   01 00D80    C5E6F17E A   TEXT11   TEXT     'EW1=XXXXXXXX'
            01 00D81    E7E7E7E7 A
            01 00D82    E7E7E7E7 A
     4432                            *
     4433   01 00D83    100C3610 A   MW12     ZFMW     1,0,12,BA(TEXT12)
     4434   01 00D84    C5E6F27E A   TEXT12   TEXT     'EW2=XXXXXXXX'
            01 00D85    E7E7E7E7 A
            01 00D86    E7E7E7E7 A
     4435                            *
     4436   01 00D87    20143620 A   MW13     ZFMW     2,0,20,BA(TEXT13)
     4437   01 00D88    E6C1E3C3 A   TEXT13   TEXT     'WATCHDOG TIMER TRAP'
            01 00D89    C8C4D6C7 A
            01 00D8A    40E3C9D4 A
            01 00D8B    C5D940E3 A
            01 00D8C    D9C1D740 A
     4438                            *
     4439   01 00D8D    101A3638 A   MW14     ZFMW     1,0,26,BA(TEXT14)
     4440   01 00D8E    C5D9D9D6 A   TEXT14   TEXT     'ERROR  SUB-TEST NN PORT N '
            01 00D8F    D94040E2 A
            01 00D90    E4C260E3 A
            01 00D91    C5E2E340 A
            01 00D92    D5D540D7 A
            01 00D93    D6D9E340 A
            01 00D94    D5404040 A
     4441                            *
     4442   01 00D95    20183658 A   MW15     ZFMW     2,0,24,BA(TEXT15)
     4443   01 00D96    E2E4C3C3 A   TEXT15   TEXT     'SUCCESS - 7720 AUTO TEST'
            01 00D97    C5E2E240 A
            01 00D98    6040F7F7 A
            01 00D99    F2F040C1 A
            01 00D9A    E4E3D640 A
            01 00D9B    E3C5E2E3 A
     4444                            *
     4445   01 00D9C    20163674 A   MW16     ZFMW     2,0,22,BA(TEXT16)
     4446   01 00D9D    E2E4C3C3 A   TEXT16   TEXT     'SUCCESS - SUB-TEST  NN'
            01 00D9E    C5E2E240 A
            01 00D9F    6040E2E4 A
            01 00DA0    C260E3C5 A
            01 00DA1    E2E34040 A
            01 00DA2    D5D54040 A
     4447   01 00DA3    201A3638 A   MW17     ZFMW     2,0,26,BA(TEXT14)
     4448                            *
     4449   01 00DA4    202C3694 A   MW18     ZFMW     2,0,44,BA(TEXT18)
     4450   01 00DA5    D9C5C3C5 A   TEXT18   TEXT     'RECEIVED  =   BBBB BBBB BBBB BBBB BBBB BBBB '
            01 00DA6    C9E5C5C4 A
            01 00DA7    40407E40 A
            01 00DA8    4040C2C2 A
            01 00DA9    C2C240C2 A
            01 00DAA    C2C2C240 A
            01 00DAB    C2C2C2C2 A
            01 00DAC    40C2C2C2 A
            01 00DAD    C240C2C2 A
            01 00DAE    C2C240C2 A
            01 00DAF    C2C2C240 A
     4451                            *
     4452   01 00DB0    201436C4 A   MW19     ZFMW     2,0,20,BA(TEXT19)
     4453   01 00DB1    E2E4C3C3 A   TEXT19   TEXT     'SUCCESS 7722 AUTO   '
            01 00DB2    C5E2E240 A
            01 00DB3    F7F7F2F2 A
            01 00DB4    40C1E4E3 A
            01 00DB5    D6404040 A
     4454                            *
     4455   01 00DB6    202C36DC A   MW20     ZFMW     2,0,44,BA(TEXT20)
     4456   01 00DB7    C5D9D9D6 A   TEXT20   TEXT     'ERROR 7722 E= BBBB BBBB BBBB BBBB BBBB BBBB '
            01 00DB8    D940F7F7 A
            01 00DB9    F2F240C5 A
            01 00DBA    7E40C2C2 A
            01 00DBB    C2C240C2 A
            01 00DBC    C2C2C240 A
            01 00DBD    C2C2C2C2 A
            01 00DBE    40C2C2C2 A
            01 00DBF    C240C2C2 A
            01 00DC0    C2C240C2 A
            01 00DC1    C2C2C240 A
     4457                            *
     4458   01 00DC2    102C370C A   MW21     ZFMW     1,0,44,BA(TEXT21)
     4459   01 00DC3    D7D6D9E3 A   TEXT21   TEXT     'PORT N     R= BBBB BBBB BBBB BBBB BBBB BBBB '
            01 00DC4    40D54040 A
            01 00DC5    404040D9 A
            01 00DC6    7E40C2C2 A
            01 00DC7    C2C240C2 A
            01 00DC8    C2C2C240 A
            01 00DC9    C2C2C2C2 A
            01 00DCA    40C2C2C2 A
            01 00DCB    C240C2C2 A
            01 00DCC    C2C240C2 A
            01 00DCD    C2C2C240 A
     4460                            *
     4461                                     PAGE
     4462                                     BOUND    8
     4463   01 00DCE    00000000 A   CONSOLE  DATA     0,0
            01 00DCF    00000000 A
     4464   01 00DD0    00000DD2              DATA     INIT00,7**24
            01 00DD1    07000000 A
     4465                            *
     4466                            *
     4467                            INIT00 ;
     4468   01 00DD2    32400DE8              LW,4     RESETSW
     4469   01 00DD3    354002A0              STW,4    ZRECOV
     4470   01 00DD4    6D000042 A            WD,0     X'42'
     4471   01 00DD5    22402710 A            LI,4     10000
     4472   01 00DD6    64400DD6              BDR,4    %
     4473   01 00DD7    6D000042 A            WD,0     X'42'
     4474   01 00DD8    22402710 A            LI,4     10000
     4475   01 00DD9    64400DD9              BDR,4    %
     4476                            *
     4477                            *                 INITIALIZE THE CONSOLE INTERRUPT LOCATION
     4478                            *
     4479   01 00DDA    32400DE9              LW,4     XPSDCONS
     4480   01 00DDB    3540005D A            STW,4    X'5D'
     4481                            *
     4482                            *                 INITIALIZE CALL4 TRAP LOCATION                    *DP1
     4483                            *
     4484   01 00DDC    32400DEA              LW,4     XPSDCAL4                                          *DP1
     4485   01 00DDD    3540004B A            STW,4    X'4B'                                             *DP1
     4486                            *                                                                   *DP1
     4487                            *                 INITIALIZE WATCHDOG TIMER TRAP                    *DP1
     4488                            *                                                                   *DP1
     4489   01 00DDE    2A400DEC              LM,4     MTW01+1                                           *DP1
     4490   01 00DDF    35400046 A            STW,4    X'46'                                             *DP1
     4491                            *                                                                   *DP1
     4492                            *                 INITIALIZE INPUT/OUTPUT INTERRUPT                 *DP1
     4493                            *                                                                   *DP1
     4494   01 00DE0    32400DED              LW,4     MTW01+2                                           *DP1
     4495   01 00DE1    3540005C A            STW,4    X'5C'                                             *DP1
     4496                            *
     4497                            *
     4498                            *
     4499   01 00DE2    32800DEB              LW,8     MTW01
     4500   01 00DE3    35800055 A            STW,8    X'55'
     4501                            *
     4502                            *
     4503                            *
     4504   01 00DE4    22E00010 A            LI,14    X'10'
     4505   01 00DE5    6DE01200 A            WD,14    X'1200'
     4506   01 00DE6    6D000022 A            WD,0     X'22'
     4507   01 00DE7    68000288              B        ZPC010
     4508                            *
     4509                            *
     4510   01 00DE8    68000DD2     RESETSW  B        INIT00
     4511   01 00DE9    0F000DCE     XPSDCONS XPSD,0   CONSOLE
     4512   01 00DEA    0F000BE0     XPSDCAL4 XPSD,0   AEREPORT                                          *DP1
     4513   01 00DEB    33100D18     MTW01    MTW,1    TIME
     4514   01 00DEC    0F000C34              XPSD,0   WDTT                                              *DP1
     4515   01 00DED    0F00090A              XPSD,0   TESTIC1                                           *DP1
     4516                            *
     4517                            *
     4518                            *        SINGLE FUNCTION TEST OF 7720 INTERFACE
     4519                            *
     4520                            *
     4521   01 00DEE    20000000 A            DATA     2**28             THE NUMBER OF THE SUB-TEST
     4522   01 00DEF    50000000 A            DATA     5**28             PORT SELECTION
     4523                            *
     4524   01 00DF0    35F00D06     SFT00    STW,15   RETURN
     4525   01 00DF1    6D000037 A            WD,0     X'37'
     4526   01 00DF2    35100D04              STW,1    AUTOFLAG
     4527   01 00DF3    35100D05              STW,1    AUTOSTEP
     4528   01 00DF4    32600692              LW,6     P1
     4529   01 00DF5    21600045 A            CI,6     TEND
     4530   01 00DF6    68100E21              BGE      SFTEXIT
     4531   01 00DF7    6D000042 A   RESETIO  WD,0     X'42'             SET I/L RESET LATCH
     4532   01 00DF8    2250000A A            LI,5     10
     4533   01 00DF9    64500DF9              BDR,5    %
     4534   01 00DFA    6D000042 A            WD,0     X'42'             SET I/O RESET LATCH
     4535   01 00DFB    2250000A A            LI,5     10
     4536   01 00DFC    64500DFC              BDR,5    %
     4537   01 00DFD    33000006 A            MTW,0    6
     4538   01 00DFE    68200E21              BLEZ     SFTEXIT
     4539   01 00DFF    224FFFD2 A            LI,4     -STEPTABLENGTH
     4540   01 00E00    32580E70     SEARCH   LW,5     STEPTAB+STEPTABLENGTH,4
     4541   01 00E01    25500468 A            SAS,5    -24
     4542   01 00E02    4B500E79              AND,5    L(X'FF')
     4543   01 00E03    31600005 A            CW,6     5
     4544   01 00E04    68300E09              BE       TESTLOOP
     4545   01 00E05    68200E08              BLE      TESTLOOP-1
     4546   01 00E06    65400E00              BIR,4    SEARCH
     4547   01 00E07    33000006 A            MTW,0    6                 NO OPERATION
     4548   01 00E08    33F00004 A            MTW,-1   4
     4549   01 00E09    32F80E70     TESTLOOP LW,15    STEPTAB+STEPTABLENGTH,4
     4550   01 00E0A    7250000F A            LB,5     15
     4551   01 00E0B    72660693              LB,6     P2,3
     4552   01 00E0C    35000D0A              STW,0    PORT
     4553   01 00E0D    216000E8 A            CI,6     'Y'
     4554   01 00E0E    68300E10              BE       %+2
     4555   01 00E0F    33100D0A              MTW,1    PORT
     4556   01 00E10    21500002 A            CI,5     2
     4557   01 00E11    68200E1D              BLE      BTOTEST
     4558   01 00E12    22701000 A            LI,7     1**12
     4559   01 00E13    6D702031 A            WD,7     NOTDIOSY
     4560   01 00E14    22703000 A            LI,7     3**12
     4561   01 00E15    6D702070 A            WD,7     DIO41
     4562   01 00E16    216000E8 A            CI,6     'Y'
     4563   01 00E17    68300E1B              BE       SWPORTY
     4564   01 00E18    67000E76              EXU      SRYI
     4565   01 00E19    67000E75              EXU      SBXI
     4566   01 00E1A    68000E1D              B        %+3
     4567   01 00E1B    67000E74     SWPORTY  EXU      SRXI
     4568   01 00E1C    67000E77              EXU      SBYI
     4569   01 00E1D    75560D05     BTOTEST  STB,5    AUTOSTEP,3
     4570   01 00E1E    EAF0000F A            BAL,15   *15
     4571   01 00E1F    22A00000 A            LI,10    0
     4572   01 00E20    68000E22              B        %+2
     4573   01 00E21    22A00001 A   SFTEXIT  LI,10    1
     4574   01 00E22    22401388 A            LI,4     5000
     4575   01 00E23    22501388 A            LI,5     5000
     4576   01 00E24    6D000042 A            WD,0     X'42'
     4577   01 00E25    64400E25              BDR,4    %
     4578   01 00E26    6D000042 A            WD,0     X'42'
     4579   01 00E27    64500E27              BDR,5    %
     4580   01 00E28    3300000A A            MTW,0    10
     4581   01 00E29    69300E32              BNEZ     SFTEND
     4582   01 00E2A    32C00692              LW,12    P1
     4583   01 00E2B    6AF004E8              BAL,15   ZBTD
     4584   01 00E2C    6AF004FD              BAL,15   ZBTH
     4585   01 00E2D    55D00DA2              STH,13   TEXT16+5
     4586   01 00E2E    6D000022 A            WD,0     X'22'
     4587   01 00E2F    32C00D9C              LW,12    MW16
     4588   01 00E30    022000F0 A            LCI      15
     4589   01 00E31    6AF005CA              BAL,15   ZTWLP
     4590   01 00E32    22B00000 A   SFTEND   LI,11    0
     4591   01 00E33    35B00D04              STW,11   AUTOFLAG
     4592   01 00E34    6D000022 A            WD,0     X'22'
     4593   01 00E35    E8000D06              B        *RETURN
     4594                                     PAGE
     4595                            *
     4596                            *
     4597                            *                 T I M E  D E L A Y  R O U T I N E
     4598                            *
     4599                            *
     4600   01 00E36    20000000 A            DATA     2**28
     4601                            *
     4602                            *
     4603   01 00E37    35F00D06     DLAY00   STW,15   RETURN
     4604   01 00E38    22000000 A            LI,0     0
     4605   01 00E39    35000D18              STW,0    TIME
     4606   01 00E3A    32500692              LW,5     P1
     4607   01 00E3B    2550007F A            SLS,5    -1
     4608   01 00E3C    22401000 A            LI,4     1**12
     4609   01 00E3D    6D401200 A            WD,4     (1,X'200')
     4610   01 00E3E    31500D18              CW,5     TIME
     4611   01 00E3F    69200E3E              BCS,2    %-1
     4612   01 00E40    6D401100 A            WD,4     (1,X'100')
     4613   01 00E41    E8000D06              B        *RETURN
     4614                                     PAGE
     4615                            *
     4616                            *
     4617         00000000           TEST     CNAME
     4618                                     PROC
     4619                            LF       GEN,8,24 AF(1),AF(2)
     4620                                     PEND
     4621                            *
     4622                            *
     4623                            *        S T E P  R O U T I N E  A D D R E S S  L O O K U P  T A B L E
     4624                            *                 FORMAT: BITS 0-7 STEP NUMBER , BITS 8-31 ADDRESS
     4625                            *                         USE TEST PROC FOR PROPER FORMATTING
     4626                            *
     4627         01 00E42           STEPTAB  EQU      %
     4628   01 00E42    01000866              TEST     TRST,TESTREST
     4629   01 00E43    02000869              TEST     SWTH,TESTSWTH
     4630   01 00E44    0D0008AE              TEST     TAVO,TESTAVO
     4631   01 00E45    0E0008B5              TEST     TFSL,TESTFSL
     4632   01 00E46    0F0008BC              TEST     TDOR,TESTDOR
     4633   01 00E47    100008D2              TEST     TIOR,TESTIOR
     4634   01 00E48    110008E8              TEST     TICS,TESTIC
     4635   01 00E49    12000918              TEST     TSIO,TESTSIO
     4636   01 00E4A    13000927              TEST     THIO,TESTHIO
     4637   01 00E4B    14000935              TEST     TTIO,TESTTIO
     4638   01 00E4C    15000943              TEST     TTDV,TESTTDV
     4639   01 00E4D    16000951              TEST     TAIO,TESTAIO
     4640   01 00E4E    1700096A              TEST     TFR7,TESTFR7
     4641   01 00E4F    1800097F              TEST     TFR6,TESTFR6
     4642   01 00E50    19000994              TEST     TFR5,TESTFR5
     4643   01 00E51    1A0009A9              TEST     TFR4,TESTFR4
     4644   01 00E52    1B0009BE              TEST     TFR3,TESTFR3
     4645   01 00E53    1C0009D3              TEST     TFR2,TESTFR2
     4646   01 00E54    1D0009E8              TEST     TFR1,TESTFR1
     4647   01 00E55    1E0009FD              TEST     TFR0,TESTFR0
     4648   01 00E56    1F000A12              TEST     TDX7,TESTDX7
     4649   01 00E57    20000A15              TEST     TDX6,TESTDX6
     4650   01 00E58    21000A18              TEST     TDX5,TESTDX5
     4651   01 00E59    22000A1B              TEST     TDX4,TESTDX4
     4652   01 00E5A    23000A1E              TEST     TDX3,TESTDX3
     4653   01 00E5B    24000A21              TEST     TDX2,TESTDX2
     4654   01 00E5C    25000A24              TEST     TDX1,TESTDX1
     4655   01 00E5D    26000A27              TEST     TDX0,TESTDX0
     4656   01 00E5E    27000A56              TEST     TDA0,TESTDA0
     4657   01 00E5F    28000A58              TEST     TDA1,TESTDA1
     4658   01 00E60    29000A5A              TEST     TDA2,TESTDA2
     4659   01 00E61    2A000A5C              TEST     TDA3,TESTDA3
     4660   01 00E62    2B000A5E              TEST     TDA4,TESTDA4
     4661   01 00E63    2C000A60              TEST     TDA5,TESTDA5
     4662   01 00E64    2D000A62              TEST     TDA6,TESTDA6
     4663   01 00E65    2E000A64              TEST     TDA7,TESTDA7
     4664   01 00E66    2F000A7A              TEST     TSCS,TESTSC
     4665   01 00E67    30000A92              TEST     TRSS,TESTRS
     4666   01 00E68    31000AA9              TEST     TODR,TESTODR
     4667   01 00E69    33000AB4              TEST     TBC2,TESTBC2
     4668   01 00E6A    35000AC5              TEST     TBC4,TESTBC4
     4669   01 00E6B    37000AD6              TEST     TBC1,TESTBC1
     4670   01 00E6C    39000AE8              TEST     TDIN,TESTDIN
     4671   01 00E6D    3C000B04              TEST     TDIN4,TESTDIN4
     4672   01 00E6E    42000B4B              TEST     TDPP,TESTDPP
     4673   01 00E6F    43000B78              TEST     TPCS,TESTPC
     4674                            STEPTABLENGTH ;
     4675         0000002E                    EQU      %-STEPTAB
     4676                            *
     4677                            *
     4678                                     PAGE
     4679                            *        D A T A  T A B L E
     4680                                     BOUND    8
     4681   01 00E70    7FFF0000 A   PAT01    DATA     X'7FFF0000'       PATTERN FOR ATWD AND ATWA
     4682   01 00E71    FFFF0001 A            DATA     X'FFFF0001'
     4683   01 00E72    6D009F04 A   TEXI     WD,0     X'9F04'           TEST            PORT X         7720
     4684   01 00E73    6D009F00 A   TEYI     WD,0     X'9F00'           TEST            PORT Y         7720
     4685   01 00E74    6D009F06 A   SRXI     WD,0     X'9F06'           SWITCH TO READY PORT X         7720
     4686   01 00E75    6D009F07 A   SBXI     WD,0     X'9F07'           SWITCH TO BUSY  PORT X         7720
     4687   01 00E76    6D009F02 A   SRYI     WD,0     X'9F02'           SWITCH TO READY PORT Y         7720
     4688   01 00E77    6D009F03 A   SBYI     WD,0     X'9F03'           SWITCH TO BUSY  PORT Y         7720
     4689         01 00E78           ZEXADR   EQU      %
     4690   01 00E78    00000E9B              DATA     L(ZEXADR)         BASE TABLE ADDRESS
     4691         01 00684                    END      ZCMS              TO COMPUTE MEMORY SIZE
            01 00E79    000000FF A
            01 00E7A    00000002 A
            01 00E7B    7F0003FF A
            01 00E7C    E4D5E4E2 A
            01 00E7D    C5C44015 A
            01 00E7E    E6F27E40 A
            01 00E7F    0001FFFF A
            01 00E80    00001FFF A
            01 00E81    0000FFFF A
            01 00E82    00000FFF A
            01 00E83    00002000 A
            01 00E84    00000080 A
            01 00E85    0000FF7F A
            01 00E86    C4C1E3C1 A
            01 00E87    C1C4C4D9 A
            01 00E88    0000000F A
            01 00E89    FFFFFF0F A
            01 00E8A    0000001F A
            01 00E8B    30000000 A
            01 00E8C    00000001 A
            01 00E8D    08000000 A
            01 00E8E    00007F00 A
            01 00E8F    10000000 A
            01 00E90    04000000 A
            01 00E91    02000000 A
            01 00E92    40000000 A
            01 00E93    FF000000 A
            01 00E94    000001FF A
            01 00E95    0000E0FF A
            01 00E96    0000E000 A
            01 00E97    00000100 A
            01 00E98    00000010 A
            01 00E99    F0F0F0F0 A
            01 00E9A    FFFFFF00 A
            01 00E9B    00000E78

  CONTROL SECTION SUMMARY: 01 00E9C   PT 0     02 00FA4   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   21:18 JUN 20,'83    SIGMA 5-9 PERIF SW EQUIP TEST 704314-51D01  2-19-73                   PAGE    3
A  AEREPORT        3974-DATA    4027/LW*     4512/XPSD
   AERPT01         4038/B       4048/BGEZ    4055-LI
   AERPT02         4034/BGEZ    4041-LW
   AIOTEST         2931/BNE     2934-LI
   ASC             4357-DATA
   ATWA00          2227/ZFSAT   2335-LW
   ATWD00          2226/ZFSAT   2326-LW      2337/B
   AT00            2331/B       2346-STW
   AT01            2353-LI      2405/B
   AT02            2356-RD      2398/BDR     2471/BCR
   AT03            2395-LD      2470/B       2472/B
   AT04            2400/BCR     2406-MTW
   AT05            2407/BCR     2410-LW
   AT06            2394/BCS     2414-LI
   AUTOFLAG        2640/STW     2689/STW     4056/STW     4084/MTW     4099/STW     4361-DATA    4526/STW
      4591/STW
   AUTOSTEP        2639/STW     2649/STW     2720/MTW     2729/MTW     2738/MTW     2747/MTW     2756/MTW
      2765/MTW     2774/MTW     2783/MTW     2792/MTW     2802/MTW     2930/CW      3520/MTW     3548/MTW
      3576/MTW     3602/MTW     3634/MTW     3643/MTW     3678/MTW     3687/MTW     3699/MTW     3717/MTW
      3726/MTW     3826/MTW     3843/MTW     3902/MTW     3991/LW      4086/LW      4362-DATA    4527/STW
      4569/STB
   AUTO00          2233/ZFSAT   2636-STW
   AUTO01          2643-LW      2671/B       2679/B
   AUTO02          2646/BGE     2672-MTW
   AUTO03          2673/BCR     2680-LW
   AUTO04          2658/BL      2666/B       2668-BAL
   AU2200          2238/ZFSAT   4212-STW
   AU2201          4219-LD      4246/B       4252/B       4258/B       4322/BCR
   BC1ERROR        3596/BE      3602-MTW
   BC2ERROR        3540/BNE     3549-ERROR
   BC4ERROR        3568/BNE     3577-ERROR
   BINARYTOEBCDIC  2419/BAL     2423/BAL     2425/BAL     2429/BAL     2433/BAL     2437/BAL     2441/BAL
      2443/BAL     2447/BAL     2451/BAL     2519/BAL     2545/BAL     2574/BAL     2603/BAL     4018/BAL
      4020/BAL     4023/BAL     4025/BAL     4108-LI
   BTC             4358-DATA
   BTOTEST         4557/BLE     4569-STB
   CODE             219-CNAME
   CONSOLE         4463-DATA    4511/XPSD
   CP01            2816/LI      2827/LI      2839/LI      2864/LI      2944/LI      3052/LI      3062/LI
      3077/LI      3087/LI      3102/LI      3112/LI      3127/LI      3137/LI      3152/LI      3162/LI
      3177/LI      3187/LI      3202/LI      3212/LI      3227/LI      3237/LI      3425/LI      3916-GEN
   CP02            3448/LI      3479/LI      3919-GEN
   CP04            3922-GEN
   CP05            3813/LI      3832/LI      3850/LI      3866/LI      3925-GEN
   CP06            3504/LI      3554/LI      3582/LI      3760/LI      3928-GEN
   CP07            3782/LI      3931-GEN
   CP08            3526/LI      3934-GEN
   CP09            3611/LI      3658/LI      3937-GEN
   DATALINB        3429/BNEZ    3439-SAS
   DATALINE        3374/B       3380/B       3386/B       3392/B       3398/B       3404/B       3410/B
      3416/B       3421-LI
   DATAREC         4237/STW     4300/LW      4383-DATA
   DATASB          4222/STW     4239/CW      4276/LW      4382-DATA
   DATA1           3916/GEN     3947-DATA
   DATA2           3919/GEN     3949-DATA
   DATA4           3922/GEN     3951-DATA
   DATA5           3925/GEN     3953-DATA
   DATA6           3928/GEN     3955-DATA
   DATA7           3931/GEN     3958-DATA
   DATA8           3934/GEN     3961-DATA
   DATA9           3617/STW     3645/LW      3656/STW     3657/STW     3693/CW      3731/CW      3937/GEN
      3963-DATA
   DDA00           2228/ZFSAT   2485-LW
   DEVICE          2497/STW     2819/SIO*    2830/SIO*    2841/SIO*    2848/SIO*    2855/SIO*    2867/SIO*
      2874/SIO*    2882/SIO*    2950/SIO*    2969/HIO*    2988/TIO*    3007/TDV*    3053/SIO*    3063/SIO*
      3078/SIO*    3088/SIO*    3103/SIO*    3113/SIO*    3128/SIO*    3138/SIO*    3153/SIO*    3163/SIO*
      3178/SIO*    3188/SIO*    3203/SIO*    3213/SIO*    3228/SIO*    3238/SIO*    3426/SIO*    3432/LW
      3449/SIO*    3480/SIO*    3498/HIO*    3744/SIO*    3761/SIO*    3787/SIO*    4360-DATA
   DIO41           2662/WD      2840/WD      2845/WD      2852/WD      2866/WD      2871/WD      2879/WD
      2894/WD      3024/WD      3061/WD      3086/WD      3111/WD      3136/WD      3161/WD      3186/WD
      3211/WD      3236/WD      3326/WD      3345/WD      3427/RD      3435/RD      3453/WD      3464/WD
      3484/WD      3491/RD      3509/RD      3532/WD      3537/RD      3560/WD      3565/RD      3588/WD
      3593/RD      3621/WD      3626/RD      3665/WD      3670/RD      3704/WD      3709/RD      3741/WD
      3748/WD      3763/WD      3769/WD      3774/RD      3786/WD      3789/WD      3795/WD      3800/RD
      3818/WD      3835/WD      3853/WD      3871/WD      4350-EQU     4561/WD
   DIO41SY1        4351-EQU
   DISABLE         2681/WD      3979/WD      4354-EQU
   DLAY00          2235/ZFSAT   4603-STW
   ERRETN          4242-BDR     4323/B
   ERROR           2614/OPEN    2615-CNAME
   ERROR3          2850-ERROR
   ERRPT           4240/BNE     4271-AI
   ERRPT01         4281-STB     4288/BIR
   ERRPT02         4305-STB     4312/BIR
   INIT00          2101/B       4464/DATA    4467-LW      4510/B
   L                437/DW      2248/AND     2254/AND     2255/OR      2256/OR      2269/AND     2275/AND
      2276/OR      2277/AND     2326/LW      2335/LW      2360/AND     2365/AND     2367/AND     2372/AND
      2486/AND     2490/AND     2495/AND     2515/AND     2541/AND     2565/AND     2570/AND     2594/AND
      2599/AND     2949/LW      2952/AND     2968/LW      2971/AND     2987/LW      2990/AND     3006/LW
      3009/AND     3037/LW      3039/AND     3054/AND     3064/AND     3079/AND     3089/AND     3104/AND
      3114/AND     3129/AND     3139/AND     3154/AND     3164/AND     3179/AND     3189/AND     3204/AND
      3214/AND     3229/AND     3239/AND     3339/AND     3428/AND     3436/AND     3455/AND     3470/AND
      3490/AND     3492/AND     3510/AND     3513/AND     3538/AND     3566/AND     3570/AND     3594/AND
      3604/AND     3627/AND     3637/AND     3671/AND     3681/AND     3710/AND     3720/AND     3775/AND
      3801/AND     3824/AND     3841/AND     3859/AND     3877/AND     4007/AND     4013/AND     4117/OR
      4542/AND     4690/DATA
   LBRXPSD         2077/LW      2115-XPSD
   LBRXPSD1        2115/XPSD    2117-RES
   LRAXPSD         2082/LW      2110-XPSD
   LRAXPSD1        2110/XPSD    2112-RES
   MTW01           4489/LM      4494/LW      4499/LW      4513-MTW
   MW00            2092/LW      4394-ZFMW
   MW01            2453/LW      4400-ZFMW
   MW02            2456/LW      4403-ZFMW
   MW03            2462/LW      4406-ZFMW
   MW04            2459/LW      4409-ZFMW
   MW05            2410/LW      4412-ZFMW
   MW06            2521/LW      4415-ZFMW
   MW07            2547/LW      4418-ZFMW
   MW08            2576/LW      4421-ZFMW
   MW09            2605/LW      4424-ZFMW
   MW10            4041/LW      4427-ZFMW
   MW11            4049/LW      4430-ZFMW
   MW12            4052/LW      4433-ZFMW
   MW13            4081/LW      4436-ZFMW
   MW14            4095/LW      4439-ZFMW
   MW15            2680/LW      4442-ZFMW
   MW16            4445-ZFMW    4587/LW
   MW17            4035/LW      4447-ZFMW
   MW18            4188/LW      4449-ZFMW
   MW19            4265/LW      4452-ZFMW
   MW20            4289/LW      4455-ZFMW
   MW21            4313/LW      4458-ZFMW
   NOP              232/LW       236-NOP
   NOTDIOSY        2660/WD      4353-EQU     4559/WD
   NOTDIO41        2701/WD      2818/WD      2829/WD      2892/WD      2909/WD      2933/WD      2948/WD
      2951/RD      2967/WD      2970/RD      2986/WD      2989/RD      3005/WD      3008/RD      3031/WD
      3038/RD      3059/WD      3084/WD      3109/WD      3134/WD      3159/WD      3184/WD      3209/WD
      3234/WD      3324/WD      3333/WD      3352/WD      3454/RD      3466/WD      3469/RD      3486/WD
      3489/RD      3512/RD      3534/WD      3541/RD      3562/WD      3569/RD      3590/WD      3603/RD
      3619/WD      3623/WD      3636/RD      3663/WD      3667/WD      3680/RD      3702/WD      3706/WD
      3719/RD      3743/WD      3750/WD      3765/WD      3771/WD      3784/WD      3791/WD      3797/WD
      3820/WD      3823/RD      3837/WD      3840/RD      3855/WD      3858/RD      3873/WD      3876/RD
      4352-EQU
   PAGE              39/OPEN      40-CNAME
   PATA            4219/LD      4388-DATA
   PATB            4389-DATA
   PATC            4390-DATA
   PATD            4391-DATA
   PATSAVE         4220/STD     4244/LD      4392-DATA
   PATTERN0        2355/STD     2358/LH      2359/LH      2361/LB      2395/LD      2397/STD     4365-DATA
   PATTERN1        4366-DATA
   PAT01           2354/LD      4681-DATA
   PORT            2352/STW     2368/OR      2399/MTW     2402/STW     2641/STW     2663/MTW     2672/MTW
      2678/STW     3997/MTW     4091/MTW     4215/STW     4224/MTW     4231/MTW     4255/MTW     4257/MTW
      4293/MTW     4367-DATA    4552/STW     4555/MTW
   PX              1485/STW     1492/S*      1493/MTW     1498/S*      2154-EQU     2155/EQU
   P0               767/STW      772/LI       783/MTW      785/LI      2138-EQU     2139/EQU
   P1              1584/AND     1595/LW      1604/AND     1613/LW      1620/AND     1679/LW      1682/LW
      1694/LW*     1695/CW*     1701/LW      1710/LW*     1724/MTW     1729/MTW     1732/LW*     1747/LW
      1748/MTW     2139-EQU     2140/EQU     2246/LW      2267/LW      2485/LW      2513/LW      2539/LW
      2564/LW      2593/LW      4134/LW      4165/LW      4528/LW      4582/LW      4606/LW
   P10             2148-EQU     2149/EQU
   P11             2149-EQU     2150/EQU
   P12             2150-EQU     2151/EQU
   P13             2151-EQU     2152/EQU
   P14             1693/STW     1697/MTW     1726/MTW     1730/MTW     2152-EQU     2153/EQU
   P15             1612/STW     1621/BCR*    1623/B*      1662/STW     1721/B*      1893/STW     2153-EQU
      2154/EQU
   P2              1672/LW      1676/MTW     1749/CW      2140-EQU     2141/EQU     2494/LW      2568/LW
      2597/LW      4138/LW      4551/LB
   P3              1664/LW      1669/STW     1677/LW      1680/SW      1681/STW     1683/SW      1702/SW
      2141-EQU     2142/EQU
   P4              2142-EQU     2143/EQU
   P5              2143-EQU     2144/EQU
   P6              2144-EQU     2145/EQU
   P7              2145-EQU     2146/EQU
   P8              2146-EQU     2147/EQU
   P9              2147-EQU     2148/EQU
   RDCOMP          4174/BAL     4236/BAL     4338-LW
   RESETIO         4531-WD
   RESETSW         4467/LW      4510-B
   RETURN          2247/STW     2268/STW     2290/STW     2328/STW     2346/STW     2357/BCS*    2408/MTW
      2409/B*      2413/B*      2468/BCS*    2510/STW     2518/MTW     2524/B*      2536/STW     2544/MTW
      2550/B*      2563/STW     2573/MTW     2579/B*      2592/STW     2602/MTW     2608/B*      2636/STW
      2693/B*      4057/MTW     4058/B*      4085/BCR*    4100/MTW     4101/B*      4133/STW     4164/STW
      4191/B*      4212/STW     4262/MTW     4263/B*      4268/B*      4363-DATA    4524/STW     4593/B*
      4603/STW     4613/B*
   REV              189-CNAME
   REVADR           221/LW*      224/LH*      228/AW       229/STW      235-DATA
   REVBRNCH         233/STW      234/B       2094-EQU
   REVCOUNT         183-SET      191/DO       195-SET      195/SET      204/GEN     2095/DO
   REVEND           196/DO       258-REV
   REVHERE          185-SET      197-SET      201/ORG      202/GEN      202/GEN      208-SET      212/ORG
       213/GEN      213/GEN
   REVISION         230/MTW      235/DATA     244-REV
   REVPRINT         221-LW       231/BNEZ    2098/BAL
   REVSTART         184-SET      192-SET      203/ORG
   REVTHERE         186-SET      200-SET      202/GEN      205/ORG      211-SET      213/GEN      214/ORG
   RGEIG           4274/STW     4319/LW      4386-DATA
   RGSEV           4273/STW     4318/LW      4385-DATA
   RGSIX           4272/STW     4317/LW      4384-DATA
   RP2200          2237/ZFSAT   4164-STW
   SAVE6           3977/STM     4017/LW      4377-DATA
   SAVE7           4022/LW      4378-DATA
   SAVE8           4006/LW      4379-DATA
   SAVE9           4012/LW      4380-DATA
   SBXI            2665/EXU     2739/EXU     2748/EXU     2766/EXU     4565/EXU     4686-WD
   SBYI            2667/EXU     2775/EXU     4568/EXU     4688-WD
   SEARCH          4540-LW      4546/BIR
   SFTEND          4581/BNEZ    4590-LI
   SFTEXIT         4530/BGE     4538/BLEZ    4573-LI
   SFT00           2234/ZFSAT   4524-STW
   SRXI            2566/EXU     2784/EXU     4567/EXU     4685-WD
   SRYI            2595/EXU     2757/EXU     4564/EXU     4687-WD
   STEPDEX         2642/STW     2643/LW      2656/LW      2670/MTW     2676/STW     4359-DATA
   STEPTAB         2647/LW      4540/LW      4549/LW      4627-EQU     4674/EQU
   STEPTABLENGTH   2645/CI      4539/LI      4540/LW      4549/LW      4674-EQU
   STLOOP          4180-STB     4187/BIR
   SUBTEST         4368-DATA
   SWITCH2         2466/BCR     2471-BCR
   SWPORTY         4563/BE      4567-EXU
   SWTH            2707-SET     4629/TEST
   SW10            2789-SET
   SW11            2799-SET
   SW2             2717-SET
   SW3             2726-SET
   SW4             2735-SET
   SW5             2744-SET
   SW6             2753-SET
   SW7             2762-SET
   SW8             2771-SET
   SW9             2780-SET
   TAIO            3019-SET     4639/TEST
   TAVO            2813-SET     4630/TEST
   TBC1            3581-SET     4669/TEST
   TBC1A           3601-SET
   TBC2            3525-SET     4667/TEST
   TBC24           3547-SET
   TBC4            3553-SET     4668/TEST
   TBC4A           3575-SET
   TDAP            3901-SET
   TDA0            3372-SET     4656/TEST
   TDA1            3378-SET     4657/TEST
   TDA2            3384-SET     4658/TEST
   TDA3            3390-SET     4659/TEST
   TDA4            3396-SET     4660/TEST
   TDA5            3402-SET     4661/TEST
   TDA6            3408-SET     4662/TEST
   TDA7            3414-SET     4663/TEST
   TDIN            3610-SET     4670/TEST
   TDIN1A          3633-SET
   TDIN1B          3642-SET
   TDIN4           3653-SET     4671/TEST
   TDIN4A          3677-SET
   TDIN4B          3686-SET
   TDIN4C          3698-SET
   TDIN4D          3716-SET
   TDIN4E          3725-SET
   TDOR            2835-SET     4632/TEST
   TDPP            3757-SET     4672/TEST
   TDX0            3313-SET     4655/TEST
   TDX1            3304-SET     4654/TEST
   TDX2            3295-SET     4653/TEST
   TDX3            3286-SET     4652/TEST
   TDX4            3277-SET     4651/TEST
   TDX5            3268-SET     4650/TEST
   TDX6            3259-SET     4649/TEST
   TDX7            3250-SET     4648/TEST
   TEMP0           2348/STW     2383/MTW     2392/MTW     2393/MTW     2415/STW     4369-DATA
   TEMP1           2327/STW     2336/STW     2375/MTW     4370-DATA
   TEMP2           2347/STW     2406/MTW     2416/MTW     4371-DATA
   TEND            3909-SET     4529/CI
   TEST            4617-CNAME
   TESTAIO         3020-LI      4639/TEST
   TESTAVO         2814-LI      4630/TEST
   TESTBC1         3582-LI      4669/TEST
   TESTBC2         3526-LI      4667/TEST
   TESTBC4         3554-LI      4668/TEST
   TESTDA0         3373-LI      4656/TEST
   TESTDA1         3379-LI      4657/TEST
   TESTDA2         3385-LI      4658/TEST
   TESTDA3         3391-LI      4659/TEST
   TESTDA4         3397-LI      4660/TEST
   TESTDA5         3403-LI      4661/TEST
   TESTDA6         3409-LI      4662/TEST
   TESTDA7         3415-LI      4663/TEST
   TESTDIN         3611-LI      4670/TEST
   TESTDINA        3673/BE      3678-MTW
   TESTDINB        3682/BEZ     3687-MTW
   TESTDINC        3694/BE      3699-MTW
   TESTDIND        3712/BE      3717-MTW
   TESTDINE        3721/BNEZ    3726-MTW
   TESTDIN4        3654-LI      4671/TEST
   TESTDNA         3629/BE      3634-MTW
   TESTDNB         3638/BEZ     3643-MTW
   TESTDOR         2836-LI      4632/TEST
   TESTDOR1        2851-LI
   TESTDPP         3758-LI      4672/TEST
   TESTDPP1        3776/BEZ     3780-LI
   TESTDXX1        3253/BAL     3262/BAL     3271/BAL     3280/BAL     3289/BAL     3298/BAL     3307/BAL
      3316/BAL     3321-LI
   TESTDXX2        3343-LI
   TESTDXX3        3340/BNEZ    3364-SAS
   TESTDX0         3314-LI      4655/TEST
   TESTDX1         3305-LI      4654/TEST
   TESTDX2         3296-LI      4653/TEST
   TESTDX3         3287-LI      4652/TEST
   TESTDX4         3278-LI      4651/TEST
   TESTDX5         3269-LI      4650/TEST
   TESTDX6         3260-LI      4649/TEST
   TESTDX7         3251-LI      4648/TEST
   TESTFR0         3225-LI      4647/TEST
   TESTFR0A        3230/BNEZ    3243-LW
   TESTFR1         3200-LI      4646/TEST
   TESTFR1A        3205/BNEZ    3218-LW
   TESTFR2         3175-LI      4645/TEST
   TESTFR2A        3180/BNEZ    3193-LW
   TESTFR3         3150-LI      4644/TEST
   TESTFR3A        3155/BNEZ    3168-LW
   TESTFR4         3125-LI      4643/TEST
   TESTFR4A        3130/BNEZ    3143-LW
   TESTFR5         3100-LI      4642/TEST
   TESTFR5A        3105/BNEZ    3118-LW
   TESTFR6         3075-LI      4641/TEST
   TESTFR6A        3080/BNEZ    3093-LW
   TESTFR7         3050-LI      4640/TEST
   TESTFR7A        3055/BNEZ    3068-LW
   TESTFSL         2825-LI      4631/TEST
   TESTHIO         2963-LI      4636/TEST
   TESTIC          2889-LI      4634/TEST
   TESTIC1         2927-DATA    2938/LPSD    4515/XPSD
   TESTIC2         2911/BEZ     2919-WD
   TESTIC3         2903/BEZ     2913-WD
   TESTIOR         2862-LI      4633/TEST
   TESTIOR1        2878-LI
   TESTIOR2        2876-ERROR
   TESTLOOP        4544/BE      4545/BLE     4549-LW
   TESTNO          2622-FNAME   2698/SET     2707/SET     2717/SET     2726/SET     2735/SET     2744/SET
      2753/SET     2762/SET     2771/SET     2780/SET     2789/SET     2799/SET     2813/SET     2824/SET
      2835/SET     2861/SET     2888/SET     2943/SET     2962/SET     2981/SET     3000/SET     3019/SET
      3049/SET     3074/SET     3099/SET     3124/SET     3149/SET     3174/SET     3199/SET     3224/SET
      3250/SET     3259/SET     3268/SET     3277/SET     3286/SET     3295/SET     3304/SET     3313/SET
      3372/SET     3378/SET     3384/SET     3390/SET     3396/SET     3402/SET     3408/SET     3414/SET
      3445/SET     3476/SET     3503/SET     3519/SET     3525/SET     3547/SET     3553/SET     3575/SET
      3581/SET     3601/SET     3610/SET     3633/SET     3642/SET     3653/SET     3677/SET     3686/SET
      3698/SET     3716/SET     3725/SET     3757/SET     3810/SET     3901/SET     3909/SET
   TESTODR         3504-LI      4666/TEST
   TESTPC          3811-LI      4673/TEST
   TESTPC1         3825/BEZ     3830-LI
   TESTPC2         3842/BEZ     3847-LI
   TESTPC3         3860/BNEZ    3864-LI
   TESTPC4         3878/BNEZ    3883-MTW
   TESTPC5         3887-CI
   TESTPC6         3888/BNE     3894-CI
   TESTPC7         3895/BNE     3902-MTW
   TESTPP3         3806-B
   TESTRANS        3506/BAL     3528/BAL     3556/BAL     3584/BAL     3613/BAL     3659/BAL     3740-LI
      3814/BAL     3833/BAL     3851/BAL     3867/BAL
   TESTREST        2699-LI      4628/TEST
   TESTRS          3477-LI      4665/TEST
   TESTRS1         3494/BNEZ    3496-LI
   TESTSC          3446-LI      4664/TEST
   TESTSC1         3456/BEZ     3461-LI
   TESTSIO         2944-LI      4635/TEST
   TESTSWTH        2708-LI      4629/TEST
   TESTSW10        2785/BCR     2790-LI
   TESTSW11        2795/BCR     2800-LI
   TESTSW2         2711/BCR     2718-LI
   TESTSW3         2722/BCR     2727-LI
   TESTSW4         2731/BCR     2736-LI
   TESTSW5         2740/BCR     2745-LI
   TESTSW6         2749/BCR     2754-LI
   TESTSW7         2758/BCS     2763-LI
   TESTSW8         2767/BCR     2772-LI
   TESTSW9         2776/BCS     2781-LI
   TESTTDV         3001-LI      4638/TEST
   TESTTIO         2982-LI      4637/TEST
   TEXI            2489/LW      2492/STW     2511/EXU     2730/EXU     2794/EXU     2803/EXU     4683-WD
   TEXT00          4394/ZFMW    4396-TEXT
   TEXT01          2329/STW     4400/ZFMW    4401-TEXT
   TEXT02          2420/STH     2422/STH     2424/STW     2426/STH     2428/STH     2430/STW     2434/STH
      4403/ZFMW    4404-TEXT
   TEXT03          2438/STH     2440/STH     2442/STW     2444/STH     2446/STH     2448/STW     2452/STH
      4406/ZFMW    4407-TEXT
   TEXT04          2350/STH     2404/STH     4409/ZFMW    4410-TEXT
   TEXT05          2330/STW     4412/ZFMW    4413-TEXT
   TEXT06          2520/STH     4415/ZFMW    4416-TEXT
   TEXT07          2546/STH     4418/ZFMW    4419-TEXT
   TEXT08          2575/STH     4421/ZFMW    4422-TEXT
   TEXT09          2604/STH     4424/ZFMW    4425-TEXT
   TEXT10          3994/STH     4000/STB     4004/STB     4010/STB     4011/STB     4016/STB     4030/STB
      4427/ZFMW    4428-TEXT
   TEXT11          4019/STW     4021/STW     4430/ZFMW    4431-TEXT
   TEXT12          4024/STW     4026/STW     4433/ZFMW    4434-TEXT
   TEXT13          4436/ZFMW    4437-TEXT
   TEXT14          3995/STH     4001/STB     4031/STB     4089/STH     4094/STB     4439/ZFMW    4440-TEXT
      4447/ZFMW
   TEXT15          4442/ZFMW    4443-TEXT
   TEXT16          4445/ZFMW    4446-TEXT    4585/STH
   TEXT18          4169/STB     4172/STB     4180/STB     4185/STB     4449/ZFMW    4450-TEXT
   TEXT19          4452/ZFMW    4453-TEXT
   TEXT20          4281/STB     4286/STB     4455/ZFMW    4456-TEXT
   TEXT21          4298/STB     4305/STB     4310/STB     4458/ZFMW    4459-TEXT
   TEYI            2537/EXU     2710/EXU     2721/EXU     2793/EXU     2804/EXU     4684-WD
   TFR0            3224-SET     4647/TEST
   TFR1            3199-SET     4646/TEST
   TFR2            3174-SET     4645/TEST
   TFR3            3149-SET     4644/TEST
   TFR4            3124-SET     4643/TEST
   TFR5            3099-SET     4642/TEST
   TFR6            3074-SET     4641/TEST
   TFR7            3049-SET     4640/TEST
   TFSL            2824-SET     4631/TEST
   THIO            2962-SET     4636/TEST
   TICS            2888-SET     2929/LI      4634/TEST
   TIME            4381-DATA    4513/MTW     4605/STW     4610/CW
   TIOR            2861-SET     4633/TEST
   TN              2621-SET     2624-SET     2624/SET     2625/PEND
   TO              4356-DATA
   TODR            3503-SET     4666/TEST
   TORDA           3519-SET
   TPCS            3810-SET     4673/TEST
   TRSS            3476-SET     4665/TEST
   TRST            2698-SET     4628/TEST
   TSCS            3445-SET     4664/TEST
   TSIO            2943-SET     4635/TEST
   TTDV            3000-SET     4638/TEST
   TTIO            2981-SET     4637/TEST
   WDSX00          2231/ZFSAT   2563-STW
   WDSY00          2232/ZFSAT   2592-STW
   WDTT            4068-DATA    4514/XPSD
   WDTX00          2229/ZFSAT   2510-STW
   WDTY00          2230/ZFSAT   2536-STW
   WDX00           2223/ZFSAT   2246-LW
   WDY00           2224/ZFSAT   2267-LW
   WORK1           2380/STW     2417/LW      4372-DATA
   WORK2           2374/STW     2435/LW      4373-DATA
   WORK3           2385/STW     2431/LW      4374-DATA
   WORK4           2371/STCF    2386/LB      2389/STW     2449/LW      4375-DATA
   WORK5           2373/STW     4376-DATA
   WPSPD           4136/BAL     4223/BAL     4326-LW
   WP2200          2236/ZFSAT   4133-STW
   XPSDCAL4        4484/LW      4512-XPSD
   XPSDCONS        4479/LW      4511-XPSD
   XP00            2225/ZFSAT   2288-LI
   XP01            2291-WD      2317/B
   ZADCRC          1370-STW     1909/BAL
   ZADPTR           876/BAL      896/BAL      927/BAL     1025/BAL     1346-LB      1371/BAL
   ZALT            1630-STW     2219/ZFSAT
   ZALT05          1636-CW      1644/B
   ZALT10          1631/BAL     1633/BAL     1640/BAL     1645-CI
   ZAP1             151-CNAME
   ZAS              746-ZFOT
   ZASLNK            94-EQU      917/STW      928/B*
   ZASPRO           923/LW      1981/ZFST2   1982-B
   ZASTRN           746/ZFOT     917-STW
   ZASTRN10         922/BCR      927-BAL
   ZBPT1           1901/BAL     1915/BAL     1927-RD      1973/BAL
   ZBTD            1482-STW     3992/BAL     4087/BAL     4583/BAL
   ZBTD10          1488-LI      1495/B
   ZBTD20          1490/BCS     1496-LW
   ZBTD30          1491/DW      1502-DATA
   ZBTH            1321/BAL     1509-STW     1517/BIR     1614/BAL     1684/BAL     1703/BAL     1711/BAL
      1733/BAL     3993/BAL     4088/BAL     4584/BAL
   ZCFR            1180-STW     1204/B       1210/BAL     1216/BAL     1231/BAL     1237/BAL     1244/BAL
      1247/BAL     1253/BAL     1256/BAL
   ZCFRCA           107-EQU     1180/STW     1183/CB*     1185/CB*     1188/CW      1196/LCW*    1197/LB*
      1200/LW*     1202/LB*
   ZCFRLNK          106-EQU     1181/STW     1184/BCS*    1186/BCS*    1193/BCS*
   ZCHAR            111-EQU      697/STW     1280/LW      1310/STW
   ZCL              749-ZFOT
   ZCLLNK            87-EQU      807/STW      815/B*
   ZCLTRN           749/ZFOT     807-STW
   ZCMS            2029-LPSD    2084/GEN     2108/DATA    2125/EQU     4691/END
   ZCMST40          300/XPSD    2029/LPSD    2079/GEN     2106-DATA
   ZCMS2           2082-LW      2118/DATA
   ZCMS3           2087-LI      2113/DATA
   ZCMS4           2081/B       2086/B       2088-STW
   ZCMS5           2056/LW      2102-XPSD
   ZCMS6           2031/SW      2103-DATA
   ZCMS7           2104-DATA
   ZCO              747-ZFOT    1069/CB
   ZCOLNK            96-EQU     1052/STW     1104/B*
   ZCONINT          394/DATA    1933-LI      2213/ZFSAT
   ZCOTRN          1021/BAL     1041/BAL     1052-STW
   ZCOTRN10        1063-LI      1083/BCR     1085/B
   ZCOTRN30        1070/BCR     1072/BCR     1077-SAS
   ZCOTRN40        1074/BCR     1080-MTW
   ZCOTRN50        1068/BCS     1086-CB
   ZCOTRN60        1092/BCR     1096-LW
   ZCRC            1384-LB
   ZCSRL           1221/STW     1226/B*      1482/STW     1496/LW      1509/STW     1520/LW      1527/STW
      1538/B*      1566-PZE     1630/STW     1637/BCS*    1647/B*      1768/STW     1770/LB      1775/BCS*
      1777/BCS*    1793/LB      1845/B*
   ZCSS             427/STCF     444/LW       530/LC       582/LC       628-DATA
   ZCTL             302/XPSD     303/XPSD     304/XPSD     305/XPSD     307/XPSD     308/XPSD     309/XPSD
       310/XPSD     311/XPSD     314/XPSD     315/XPSD     322/XPSD     323/XPSD     324/XPSD     325/XPSD
       329/XPSD     330/XPSD     331/XPSD     332/XPSD     335/XPSD     336/XPSD     396-DATA
   ZCTL1            398/DATA     420-STW
   ZDCP              48-EQU      261/USECT
   ZDCR            1333/LH      1578-BAL     1755/LH      2216/ZFSAT
   ZDECADER        1545-STW
   ZDKB             465/HIO*     662/LH      1293/LH      1572-BAL     1792/LW      1801/CW      2065/STW
      2068/HIO*    2215/ZFSAT
   ZDMP            1656/B       1660-LCFI    2220/ZFSAT
   ZDMPA           1688/STW     1689/STW     1690/STB     1700/STB     1707/STW     1708/STW     1709/STB
      1712/STW     1713/STW     1737/STB     1741/STB     1751/ZFMW    2155-EQU
   ZDMP10          1682-LW      1720/BCS
   ZDMP20          1694-LW      1728/BCS     1745/BCS
   ZDMP22          1701-LW      1731/BCS
   ZDMP24          1661/STCF    1715-STB     1725/B       1743/BCS     1746/B
   ZDMP30          1696/BCR     1722-CI
   ZDMP40          1698/BCR     1733-BAL
   ZDMP50          1719/BAL     1727/BAL     1744/BAL     1747-LW
   ZDMP70          1715/STB     1716/LW      1751-ZFMW
   ZDS              674/ZFMW     744-ZFOT
   ZDSFLG           114-EQU      682/STW      768/MTW      774/STW      792/STW     1012/MTW     1145/MTW
      1446/MTW     2063/STW
   ZDSLNK           104-EQU      765/STW      777/B*       781/STW      797/B*
   ZDSPTR           105-EQU      771/STW      795/LW
   ZDSSET           672/BAL      775/LI       781-STW
   ZDSSET10         784/BCR      792-STW
   ZDSTRN           667/BAL      744/ZFOT     765-STW
   ZDTB            1224/BAL     1456-XW
   ZDTB10          1458/AND     1474-DATA
   ZDTB20          1463/AND     1475-DATA
   ZEMS             547/CW      1636/CW      1666/CW      1668/LW      1674/CW      2027-DATA    2030/LW
      2032/STW     2048/LW      2052/LW
   ZEQ              750-ZFOT
   ZEQLNK            88-EQU      837/STW      856/B*
   ZEQTRN           750/ZFOT     837-STW
   ZEQTRN10         842/BCR      846/BCR      850-LI       853/BCR
   ZEQTRN20         848/BCR      854-BIR
   ZEROTABL        4355-EQU
   ZEXADR           690/LW      1150/LW      2039/AW      2075/LW      4689-EQU     4690/DATA
   ZEXPT0           770/LW       788/LW*      822/LW       825/STW*     866/STW*     871/LW       891/STW*
       920/STW*     924/STW*     966/LW       977/OR      1008/STW*    1009/LB*     1019/STB*    1039/STB*
      1056/LB*     1060/LH*     1100/LB*     1103/STB*    1148/STW*    1151/CW      1165/LW      1346/LB*
      1349/AW      1354/STW     1384/LB*     1397/LB*     1411/STB*    1865/LW*     1876/LB*     1902/LB*
      1916/LB*     1959/STW     1995/STW     2003/LW      2134-EQU     2135/EQU
   ZEXPT1           895/STW*     957/STW*     981/OR      1053/LW      1065/STW*    1079/STW*    1153/STW*
      1267/STW*    1269/LW*     1272/MTB*    1355/STW     1359/MTW     1360/LW      1387/LH*     1389/STW*
      1417/STW*    1858/LW*     1880/LH*     1882/LW      1905/MTW*    1906/LH*     1907/CH*     1952/LW*
      1958/LW*     2135-EQU     2136/EQU
   ZEX00           1173/B       1858-LW      1919/LI      1968/B       1975/B
   ZEX01           1860-BAL     1908/BCR     1910/B
   ZFA              840/BAL     1246-LI
   ZFAN             714/BAL     1255-LI
   ZFCP             122-COM
   ZFH             1113/BAL     1187/LI      1236-LI      1632/BAL     1639/BAL
   ZFMW             127-CNAME
   ZFN             1110/BAL     1215-LI      1222/BAL
   ZFNDTB           703/BAL     1111/BAL     1221-STW
   ZFNUP           1109/BAL     1209-LI
   ZFOC             812/BAL     1182/BAL     1264/BAL     1268/BAL     1279-STW
   ZFOCT           1112/BAL     1230-LI
   ZFOT             123-COM
   ZFS              736-ZFOT    1029/CB      1030/BCR*
   ZFSAT            143-CNAME
   ZFSLNK            97-EQU     1143/STW     1146/BCS*
   ZFSPRO          1147/LW      1972/ZFST2   1973-BAL     1982/B
   ZFSTRN           736/ZFOT    1143-STW
   ZFST2            135-CNAME
   ZFTF             113-EQU     1881/STW
   ZGOPRO          1965-LI      2214/ZFSAT
   ZGOPTR           683/STH     1168/STH     1966-LI
   ZHLT            1612-STW     2222/ZFSAT
   ZHLTMSG         1615/STW     1616/LW      1624/ZFMW    1625-TEXT
   ZIL5C            390/DATA     418-STW
   ZIL5F            336-XPSD    2059/LW      2060/STW
   ZIL50            374/DATA     410-STW
   ZIL51            378/DATA     412-STW
   ZIL56            382/DATA     414-STW
   ZIL57            386/DATA     416-STW
   ZIMSGSTR         442/BAL      443/BAL      446/BAL      453/BAL      459/BAL      513/BAL      514/BAL
       519/BAL      520/BAL      607-LI       624/BAL
   ZIMSGST1         612-STB      617/B
   ZIMSGST2         610/BCS      616-AI
   ZINTFLG          116-EQU      428/MTW      431/LW       481/STW      597/STW      654/STW
   ZINTINDX         461/STW      469/LW       551/LW       629-DATA
   ZIOADR          1286/LW      2038/STW     2041/AWM     2049/SW      2132-EQU     2133/EQU
   ZIOWDS          2050/STW     2133-EQU     2134/EQU
   ZI5C             333/XPSD     388-DATA
   ZI5D             334/XPSD     392-DATA
   ZI50             320/XPSD     372-DATA
   ZI51             321/XPSD     376-DATA
   ZI56             326/XPSD     380-DATA
   ZI57             328/XPSD     384-DATA
   ZKBCRIOA        1572/BAL     1578/BAL     1583-LI
   ZLBADR           692/LW       888/CW      1156/CW      2054/STW     2125-EQU     2126/EQU
   ZLBPTR           693/STW      872/STW*     873/MTW      887/LW       892/MTW      893/LW*     1155/LW
      2055/STW     2126-EQU     2127/EQU
   ZLKADR           688/LW      1361/CW      1991/CW      2005/CW      2046/STW     2127-EQU     2128/EQU
   ZLKAS            919/LI      1989-LI
   ZLKPTR           689/STW     1990/LW      1993/MTW     1994/LW*     2002/LW      2009/STW     2011/LW
      2015/STW*    2016/MTW     2047/STW     2128-EQU     2129/EQU
   ZLKSET          1920/B       1974/BAL     2002-LW
   ZLMSTR           558/BAL      564/BAL      575/BAL      578/BAL      622-LMS
   ZLP              745-ZFOT
   ZLPD            1799/BCR     1803-STH
   ZLPD10          1809/BCR     1814-LB
   ZLPLNK            90-EQU      863/STW      875/BCR*     877/B*
   ZLPPRO           865/LW      1944-ZFST2
   ZLPTRN           745/ZFOT     863-STW
   ZLSTCH           112-EQU      809/LW      1281/STW
   ZMFRCW0         1285/STH     1302/LI      1314-ZFCP
   ZMFRCW1         1297/STH     1315-ZFCP
   ZMFRDA           663/STH     1294/CH      1300/TIO*    1303-SIO     1305/TIO*    1334/CH      1586/STH
      1756/CH      2067/STH
   ZMFRIOAD         658/LW       987/CW      2040/STW     2131-EQU     2132/EQU
   ZMFRIOF         1289/BCR     1320-LI
   ZMFRLNK          109-EQU     1279/STW     1312/B*
   ZMFRNBA          661/STH     1170/STH     1283-CI      1288/SH      1299/STH     1327/STH     1588/STH
   ZMFRTCBA        1284/BCS     1309-LB
   ZMFRX7           660/STH     1169/LH      1266/LH      1282-LI      1298/AH      1311/MTW     1326/LH
      1587/LH
   ZML1E             85-EQU
   ZML1F             86-EQU
   ZML10             83-EQU     1811/STB     1825/STB     1833/STB
   ZML14             84-EQU
   ZMPMSK           542/AND      630-DATA
   ZMPTWA           787/BAL     1861/BAL     1876-LB
   ZMS              741-ZFOT    1023/CB      1024/BCR*    1043/CB      1044/BCR*    1337/B*
   ZMSGKEY         1597/STH     1776-CI
   ZMSLNK            89-EQU      821/STW      828/B*
   ZMSTRN           741/ZFOT     821-STW
   ZNL              696/LB       725/ZFMW     738-ZFOT     810/CB       813/CB
   ZOPBEG           734-EQU      743/EQU      760/EQU
   ZOPLEN           704/LI       715/LI       760-EQU
   ZOPLN2           743-EQU     1089/LI
   ZOPTBL           705/LW       716/LW       759-EQU
   ZOPTB2           742-EQU     1090/LW
   ZPAGESAV         347-DATA     400/STW      402/STW      404/STW      406/STW      408/STW      410/STW
       412/STW      414/STW      416/STW      418/STW      420/STW      430/STM
   ZPCHK            102-EQU     1054/STW     1097/SW
   ZPCHK1           103-EQU     1055/STW     1084/STW     1096/LW
   ZPCNT            101-EQU     1058/STW     1061/SW      1067/MTW
   ZPC010           483/B        651-BAL      675/B       1332/BCS     1335/BCR     1937/B       4363/DATA
      4507/B
   ZPC020           664-LW       673/B
   ZPC030           669/LI       672-BAL
   ZPC050           664/LW       674-ZFMW
   ZPC200           680-BAL     2212/ZFSAT
   ZPC210           671/B        696-LB
   ZPC5            1114/BAL     1243-LI
   ZPC6            1115/BAL     1252-LI
   ZPC7            1116/BAL     1263-STW
   ZPC7LNK          108-EQU     1263/STW     1271/BCR*
   ZPC7M           1059/STB     1071/CB      1086/CB      1265/STB     1270-CI
   ZPD              748-ZFOT
   ZPDLNK            93-EQU      905/STW      909/B*
   ZPDTRN           748/ZFOT     905-STW
   ZPFIMSK          516/AND      631-DATA
   ZPFISTR          522/STM      526/LM       632-RES
   ZPL              739-ZFOT
   ZPLLNK            98-EQU     1000/STW     1033/B*
   ZPLTRN           737/ZFOT     738/ZFOT     739/ZFOT     740/ZFOT     747/ZFOT     884/BAL      998-MTW
      1144/BAL
   ZPLTRN20        1003/BCR     1007-LW
   ZPLTRN30        1013/BCS     1034-LI
   ZPMADR           686/LW       937/LW      2013/CW      2043/STW     2129-EQU     2130/EQU
   ZPMEN            908/BAL      936-STW      972/B
   ZPMEN10          940-LW       973/BIR
   ZPMEN20          943/BCS      950-CI
   ZPMEN30          945/BCS      960-LI
   ZPMEN40          939/BCR      947/BCS      951/BCS      954/BCS      963/BCS      974-CI
   ZPMLNK            95-EQU      936/STW      959/B*       990/B*
   ZPMPTR           687/STW      938/SW       940/LW*      956/AND*     965/LW*      968/MTW      969/LW*
       971/STW*     983/STW*     985/LW       989/STW     2044/STW     2130-EQU     2131/EQU
   ZPMRQ            926/BAL      935-AI      1161/BAL     1406/B
   ZPRTYP          1078/EXU     1109-BAL
   ZPTY             100-EQU     1062/STW     1066/LB*     1080/MTW
   ZRECOV           652/LW       675-B       4469/STW
   ZRETN1          1870/B       1900-BAL
   ZRETN1A         1904/BCR     1909-BAL     1918/BCR     1944/ZFST2   1957/BCS     1960/B       1996/B
   ZRETN2          1871/B       1914-BAL
   ZRP              735-ZFOT    1031/CB      1032/BCR*
   ZRPLNK            91-EQU      883/STW      894/BCR*     897/B*
   ZRPPRO           890/LW      1951/ZFST2   1952-LW
   ZRPTRN           735/ZFOT     883-STW
   ZSCIR            651/BAL      680/BAL      782/BAL      791/BAL     1561-LI      1671/BAL     1769/BAL
      1860/BAL     1900/BAL     1914/BAL     2062/BAL
   ZSIG9            115-EQU      467/MTW      537/LW       560/LW       585/LW      2088/STW
   ZSMD            1603-LI      2218/ZFSAT
   ZSML            1595-LW      2217/ZFSAT
   ZSML40           466/BAL      486/BAL      504/BAL      524/BAL      550/BAL     1329/BAL     1761-LCFI
      2093/BAL
   ZSNER            721/B        811/BCS      851/B        889/BCR      949/B        988/BCS     1006/B
      1016/BCR     1036/BCR     1076/B       1095/B       1152/BCR     1157/BCS     1164/BCS     1321-BAL
      1364/B       1429/B       1442/B       1449/B       1967/BCR     1992/BCR     2014/BCS
   ZSNERMW         1328/LW      1338-ZFMW
   ZSNMSG          1323/STW     1325/STB     1330/LB      1338/ZFMW    1339-TEXT
   ZSP              737-ZFOT
   ZSRADR          1007/LW      2239-EQU
   ZSRBEG          2164-EQU     2193/EQU
   ZSRLEN           843/LI      1001/LI      2193-EQU
   ZSRTBL           845/CW       847/CW       852/CW       855/STW     1002/CW      2192-EQU
   ZSTCRC          1377-STW     1859/BAL
   ZSTPTR           691/BAL      773/BAL      786/BAL      796/BAL      823/BAL     1166/BAL     1354-STW
      1378/BAL     2076/BAL
   ZSUP            1527-STW     1535/BIR
   ZTEMP           1457/STW     1461/AW      1462/STW     1466/AW      1467/STW     1470/AW      1471/STW
      1487/STW     1494/AWM     1499/OR      1500/STW     1518/LW      1528/STW     1536/LW      1537/STW
      1545/STW     1556/XW      1638/STW     1641/STW*    1642/MTW     1643/LW      2136-EQU     2137/EQU
   ZTEMP1          1516/STB     1519/LW      2137-EQU     2138/EQU
   ZTLCMN           401/BAL      403/BAL      405/BAL      407/BAL      409/BAL      411/BAL      413/BAL
       415/BAL      417/BAL      419/BAL      427-STCF
   ZTLCMN1          447-LW       488/B
   ZTLCMN10         473/BCR      533-LI       545/BIR      548/BCS
   ZTLCMN11         550-BAL      580/B
   ZTLCMN12         543/BCS      556-LI
   ZTLCMN13         477/BCR      582-LC
   ZTLCMN14         479/BCR      531/BCS      553/BCR      583/BCR      584/BCR      596-LI
   ZTLCMN15         598/LPSD     600-DATA
   ZTLCMN16         539/BNE      542-AND
   ZTLCMN17         573/B        579-LW
   ZTLCMN18         562/BNE      574-LCI
   ZTLCMN2          465-HIO      491/B
   ZTLCMN3          435/BCR      485-LW
   ZTLCMN4          463/BCS      490-LW
   ZTLCMN5          471/BCR      493-LI
   ZTLCMN6          496-HIO      500/BIR
   ZTLCMN7          497/BCS      499-AI       528/B
   ZTLCMN8          498/BCS      507-STW
   ZTLCMN9          475/BCR      530-LC
   ZTLHLT           433/BCS      468/BCR      480-LI       502/BCS      505/B        554/B        600/DATA
   ZTLMSG1          441/LI       633-TEXT     638/ZFMW     639/ZFMW
   ZTLMSG1F         464/LW       638-ZFMW
   ZTLMSG1G         490/LW       639-ZFMW
   ZTLMSG2          512/LI       635-TEXT     640/ZFMW
   ZTLMSG2F         523/LW       640-ZFMW
   ZTLMSG3          556/LI       566/STW      568/STW      570/STW      636-TEXT     641/ZFMW
   ZTLMSG3F         579/LW       641-ZFMW
   ZTLMSG4          637-TEXT     642/ZFMW     643/ZFMW     644/ZFMW
   ZTLMSG4F         485/LW       642-ZFMW
   ZTLMSG5F         503/LW       643-ZFMW
   ZTLMSG6F         549/LW       644-ZFMW
   ZTLOC            439/LB       645-DATA
   ZTL4C            366/DATA     406-STW
   ZTL4D            370/DATA     408-STW
   ZTL40            354/DATA     400-STW
   ZTL41            358/DATA     402-STW      436/AI
   ZTL46            362/DATA     404-STW
   ZTMNCR           665/BAL      695/BAL      827/BAL     1172/BAL     1755-LH
   ZTRN10           684/LI       702-LI       723/BAL      724/B        793/LI
   ZTRN100          694/LW       725-ZFMW     826/LW      1171/LW
   ZTRN40           710/BCS      712/BCS      720-LI       751/ZFOT     752/ZFOT     753/ZFOT     754/ZFOT
       755/ZFOT     756/ZFOT     757/ZFOT     758/ZFOT
   ZTRN50           707/BCR      718/BCR      722-BAL     1011/BCR
   ZTRN60           670/STH      685/STH      723-BAL      776/STH      794/STH     1022/LI      1028/LI
      1042/LI      1045/B       1336/LI
   ZTSTLNK          110-EQU
   ZTST1            867/BAL     1020/BAL     1397-LB
   ZTST1A          1401/BCS     1407-MTW
   ZTST1AA         1403/BCR     1409-LI
   ZTST1B          1408/BCS     1413-CI
   ZTST1C          1417-STW
   ZTST2            907/BAL      925/BAL     1160/BAL     1424-MTW
   ZTST2A          1405/BCS     1414/BCS     1425/BCR     1428-LI      1435/B
   ZTST3            766/BAL      838/BAL      999/BCR     1040/BAL     1399/BCR     1433-MTW
   ZTST4            958/BAL      982/BAL     1081/BAL     1359-MTW     1418/B
   ZTST6           1439-MTW
   ZTST7            864/BAL      885/BAL      906/BAL      918/BAL     1446-MTW
   ZTW             1796/BCR     1802/BCR     1818-STH
   ZTWLP            223/BAL     1618/BAL     1718/BAL     1766-BCR     1831/AND     2412/B       2455/BAL
      2458/BAL     2461/BAL     2464/BAL     2523/BAL     2549/BAL     2578/BAL     2607/BAL     2692/BAL
      4037/BAL     4043/BAL     4051/BAL     4054/BAL     4083/BAL     4097/BAL     4190/BAL     4267/BAL
      4291/BAL     4315/BAL     4589/BAL
   ZTWLPA          1803/STH     1817/B       1818/STH     1821/BCR     1838-SIO     1840/TIO*    1936/HIO*
   ZTWLPO          1605/STH     1800-LI      2066/STH
   ZTWLP01         1773/BCR     1778-STH
   ZTWLP10         1785/STB     1805/LB      1812/STB     1813/LI      1820/LB      1832/MTB     1837/LI
      1847-ZFCP
   ZTWLP11         1788/STH     1789/AH      1790/STH     1791/STB     1804/LI      1814/LB      1816/MTB
      1822/MTB     1829/LB      1843/AH      1844/STH     1849-DATA
   ZTWLP12         1778/STH     1780/STB     1819/LI      1842/LH      1849/DATA    1851-ZFCP
   ZTW10           1830/BCR     1836-LI
   ZTYP            1655-LCFI    2221/ZFSAT
   ZT4C             312/XPSD     364-DATA
   ZT4D             313/XPSD     368-DATA
   ZT40             352-DATA     449/AI      2102/XPSD
   ZT41             301/XPSD     356-DATA
   ZT46             306/XPSD     360-DATA
   ZUDFPM            99-EQU      681/STW      964/MTW      979/MTW     1163/MTW
