1 C00   20:19 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   20:19 JUN 20,'83    SIGMA 5-9 DSC TEST 704013-51D02 2-19-73                               PAGE    2
A       1                             TITLE  'SIGMA 5-9 DSC TEST 704013-51D02 2-19-73'
        2                            *
        3                            *
        4                            *  PROGRAM NO. 704013               MANUAL NO. 901509
        5                            *REVISION D02 (2-17-73)                                             *D02
        6                            * REVISED DCP INTERUPT HANDLER                                      *D02
        7                            *
        8                            *
        9                            * REVISION D01 (11/01/72) CHANGES INDICATED IN COLUMNS 69-72        *D01
       10                            *  PROGRAM REVISED TO CORRECT UNWANTED INTERRUPT.                   *D01
       11                            *
       12                            *
       13                            * REVISION D00 (09/22/72) CHANGES INDICATED IN COLUMNS 69-72        *D00
       14                            *  CORRECTED ERROR IN REV C00. (TAR 10853)                          *D00
       15                            *
       16                            *
       17                            *
       18                            * REVISION C00 (02/04/71) CHANGES INDICATED IN COLUMNS 69 - 72 BY - *C00
       19                            *  PROGRAM REVISED TO CORRECT SEVERAL MINOR PROBLEMS.               *C00
       20                            *
       21                            *
       22                            * REVISION CP1 (5/28/70) CHANGES INDICATED IN COLUMNS 69 - 72 BY -- *CP1
       23                            *  PROGRAM REVISED FOR SIGMA 9 COMPATIBILITY.  INTERRUPT AND TRAP   *CP1
       24                            *  HANDLERS MODIFIED FOR SIGMA 5/7/9 COMPATIBILITY.  INITIALIZER    *CP1
       25                            *  ROUTINE MODIFIED TO ALLOW OPERATION WITH A KSR/ASR ON ANY VALID  *CP1
       26                            *  SINGLE DEVICE ADDRESS.                                           *CP1
       27                            *
       28                            *NOTE: IF THE KSR/ASR IS NOT AT DEVICE ADDRESS ONE, THE PROGRAM WILL*CP1
       29                            *      COME TO A WAIT.  ENTER THE CORRECT ADDRESS INTO REGISTER 4   *CP1
       30                            *      AND CLEAR THE WAIT.                                          *CP1
       31                            *
       32                            *
       33                                     SYSTEM   SIG7FDP
       34   01 00040                          ORG      X'40'
            01 00040
       35                            *
       36                            *
       37         01 00040           ZDCP     EQU      %                                                 *CP1
       38                            *
       39                            *
       40                            * REVISION B00 (7/22/69) DOVUMENTATION REFORMATTING CHANGE ONLY       *B
       41                            *
       42                                     OPEN     PAGE              THIS INHIBITS                     *B
       43         00000000           PAGE     CNAME                       PAGE                             *B
       44                                     PROC                         DIRECTIVE                       *B
       45                                     PEND                          TO PERMIT MAX.LINAGE/PAGE      *B
       46                            *
       47                            * ASSIGN MNEMONIC NAMES TO INDEX REGISTERS
       48                            *
       49         00000001           X1       EQU      1
       50         00000002           X2       EQU      2
       51         00000003           X3       EQU      3
       52         00000004           X4       EQU      4
       53         00000005           X5       EQU      5
       54         00000006           X6       EQU      6
       55         00000007           X7       EQU      7
       56                            *
       57                            * ASSIGN MNEMONIC NAMES TO GENERAL REGISTERS
       58                            *
       59         00000000           R0       EQU      0
       60         00000001           R1       EQU      1
       61         00000002           R2       EQU      2
       62         00000003           R3       EQU      3
       63         00000004           R4       EQU      4
       64         00000005           R5       EQU      5
       65         00000006           R6       EQU      6
       66         00000007           R7       EQU      7
       67         00000008           R8       EQU      8
       68         00000009           R9       EQU      9
       69         0000000A           R10      EQU      X'A'
       70         0000000B           R11      EQU      X'B'
       71         0000000C           R12      EQU      X'C'
       72         0000000D           R13      EQU      X'D'
       73         0000000E           R14      EQU      X'E'
       74         0000000F           R15      EQU      X'F'
       75                                     PAGE
       76                            *
       77                            * EQUATE STATEMENTS TO UTILIZE UNASSIGNED MEMORY LOCATIONS
       78                            *
       79         00000010           ZML10    EQU      X'10'             LOCATIONS 10-IF UTILIZED
       80         00000014           ZML14    EQU      X'14'             BY COMMON TYPE/PRINT ROUTINE
       81         0000001E           ZML1E    EQU      X'1E'
       82         0000001F           ZML1F    EQU      X'1F'
       83         00000022           ZCLLNK   EQU      X'22'             TEMPORARY
       84         00000023           ZEQLNK   EQU      X'23'             LINK STORAGE
       85         00000024           ZMSLNK   EQU      X'24'             FOR TRANSLATOR
       86         00000025           ZLPLNK   EQU      X'25'             SUBROUTINES
       87         00000025           ZRPLNK   EQU      X'25'
       88                            * CPU RESET RECOVERY LOCATION
       89         00000027           ZPDLNK   EQU      X'27'
       90         00000028           ZASLNK   EQU      X'28'
       91         00000029           ZPMLNK   EQU      X'29'
       92         0000002A           ZCOLNK   EQU      X'2A'
       93         0000002B           ZFSLNK   EQU      X'2B'
       94         0000002C           ZPLLNK   EQU      X'2C'
       95         0000002D           ZUDFPM   EQU      X'2D'
       96         0000002E           ZPTY     EQU      X'2E'
       97         0000002F           ZPCNT    EQU      X'2F'
       98         00000030           ZPCHK    EQU      X'30'
       99         00000031           ZPCHK1   EQU      X'31'
      100         00000032           ZDSLNK   EQU      X'32'
      101         00000033           ZDSPTR   EQU      X'33'
      102         00000034           ZCFRLNK  EQU      X'34'
      103         00000035           ZCFRCA   EQU      X'35'
      104         00000036           ZPC7LNK  EQU      X'36'
      105         00000037           ZMFRLNK  EQU      X'37'
      106         00000038           ZTSTLNK  EQU      X'38'
      107         00000039           ZCHAR    EQU      X'39'
      108         0000003A           ZLSTCH   EQU      X'3A'
      109         0000003C           ZFTF     EQU      X'3C'
      110         0000003D           ZDSFLG   EQU      X'3D'
      111         0000003E           ZSIG9    EQU      X'3E'             SIGMA 9 FLAG, 1=SIGMA 9         *CP1
      112         0000003F           ZINTFLG  EQU      X'3F'             INTERRUPT FLAG (COUNTER)        *CP1
      113                            *
      114                            *
      115                            *
      116                            * FORM DIRECTIVES FOR FORMATTED WORDS
      117                            *
      118         00000000           ZFCP     CNAME
      119                                     PROC
      120                            LF       GEN,8,24 AF(1),AF(2)       ORDER/FLAGS,BA(BUF)/COUNT
      121                                     PEND
      122         00000000           ZFOT     CNAME
      123                                     PROC
      124                            LF       GEN,8,7,17 AF(1),AF(2),AF(3) OPERATOR,N/A,ADDRESS
      125                                     PEND
      126                            *
      127                            * PROCEDURE FOR GENERATION OF FORMATTED MESSAGE WORDS
      128                            *
      129         00000000           ZFMW     CNAME
      130                                     PROC
      131                            LF       GEN,4,4,8,16 ABSVAL(AF(1)),ABSVAL(AF(2)),ABSVAL(AF(3)),;
      132                             ABSVAL(AF(4))
      133                                     PEND
      134                            *
      135                            * PROCEDURE FOR GENERATION OF FORMATTED SUBROUTINE CONTROL TABLE
      136                            *
      137         00000000           ZFST2    CNAME
      138                                     PROC
      139                            LF       GEN,4,2,9,17 ABSVAL(AF(1)),ABSVAL(AF(2)),ABSVAL(AF(3)),;
      140                             ABSVAL(AF(4))
      141                                     PEND
      142                            *
      143                            * PROCEDURE FOR GENERATION OF FORMATTED PARAMETER WORDS
      144                            *
      145         00000000           ZFSAT    CNAME
      146                                     PROC
      147                            LF       GEN,4,2,2,7,17 ABSVAL(AF(1)),ABSVAL(AF(2)),;
      148                             ABSVAL(AF(3)),ABSVAL(AF(4)),ABSVAL(AF(5))
      149                                     PEND
      150                            *
      151                            * PROCEDURE FOR GENERATION OF FORMATTED HALF-WORDS
      152                            *
      153                        *S* ZAP1     CNAME
      154                        *S*          PROC
      155                        *S* LF       GEN,16,16 ABSVAL(AF(1)),ABSVAL(AF(2))
      156                        *S*          PEND
      157                            *
      158                            *
      159                            ** ***************************************************************
      160                            ** ***************************************************************
      161                            ** *     TO FACILITATE THE TYPING OUT OF CHANGES MADE TO
      162                            ** *     THIS PROGRAM A PROCEDURE CALLED BY 'REV' IS USED.
      163                            ** *
      164                            ** *
      165                            ** *     METHOD:
      166                            ** *              1. USE 'REV' AS A COMMAND, IT OPERATES
      167                            ** *               SIMILAR TO A TEXTC DIRECTIVE.
      168                            ** *              2. A LABEL OF '' REVISION'' MUST BE USED
      169                            ** *               WITH THE FIRST CALL OF '' REV''.
      170                            ** *              3. A LABEL OF ''REVEND'' MUST BE USED WITH
      171                            ** *               THE LAST CALL OF ''REV''.
      172                            ** *
      173                            ** *
      174                            ** *
      175                            ** *
      176                            ** *     WHEN USED CORRECTLY '' REV'' WILL GENERATE ALL OF THE
      177                            ** *     NECCESSARY CODE TO TYPE THE REVISIONS MADE.
      178                            ** AN EXAMPLE OF USE WOULD BE:
      179                            **          CSECT
      180                            **          ORG    X'(A LOCATION PAST THE LAST LITERAL)'
      181                            ** REVISION REV   'REVISION XXX'
      182                            ** REVEND   REV   'NO CHANGES TO THE OPERATING PROCEDURES'
      183                            ** *        USECT     (PREVIOUSLY DEFINED LABEL)
      184                            ** NOTE!!! THIS PROCEDURE GENERATES 2 MORE LITERALS.
      185                            ** **************************************************************
      186                            ** **************************************************************
      187         00000000           REVCOUNT SET      0
      188         00000000           REVSTART SET      0
      189         00000000           REVHERE  SET      0
      190         00000000           REVTHERE SET      0
      191                            *
      192                            *
      193         00000000           REV      CNAME
      194                                     PROC
      195                                     DO       REVCOUNT=0
      196                            REVSTART SET      %
      197                            LF       RES      1
      198                                     FIN
      199                            REVCOUNT SET      REVCOUNT+1
      200                                     DO       SCOR(LF,REVEND)
      201                            REVHERE  SET      %
      202                                     RES      1
      203                                     TEXT     AF
      204                            REVTHERE SET      %
      205                                     ORG      REVHERE
      206                                     GEN,4,4,8,16  2,0,(4*(REVTHERE-REVHERE))-4,BA(REVHERE)+4
      207                                     ORG      REVSTART
      208                                     GEN,32   REVCOUNT
      209                                     ORG      REVTHERE
      210                                     CODE
      211                                     ELSE
      212                            REVHERE  SET      %
      213                                     RES      1
      214                                     TEXT     AF
      215                            REVTHERE SET      %
      216                                     ORG      REVHERE
      217                                     GEN,4,4,8,16 2,0,(4*(REVTHERE-REVHERE))-4,BA(REVHERE)+4
      218                                     ORG      REVTHERE
      219                                     FIN
      220                                     PEND
      221                            *
      222                            *
      223         00000000           CODE     CNAME
      224                                     PROC
      225                            REVPRINT LW,12    *REVADR
      226                                     LCI      X'F'                                              *C00
      227                                     BAL,15   ZTWLP                                             *C00
      228                                     LH,4     *REVADR
      229                                     AND,4    =X'FF'
      230                                     SLS,4    -2
      231                                     AI,4     1
      232                                     AW,4     REVADR
      233                                     STW,4    REVADR
      234                                     MTW,-1   REVISION
      235                                     BNEZ     REVPRINT
      236                                     LW,4     NOP
      237                                     STW,4    REVBRNCH
      238                                     B        REVBRNCH
      239                            REVADR   DATA     REVISION+1
      240                            NOP      NOP
      241                                     PEND
      242                            *
      243   02 00000                          CSECT                                                      *CP1
      244   02 00FF0                          ORG      X'FF0'                                            *CP1
            02 00FF0
      245                            *
      246   02 00FF2    E3D640E2 A   REVISION REV      'TO SUPPRESS THIS MESSAGE, SET SSW 4 . '
            02 00FF3    E4D7D7D9 A
            02 00FF4    C5E2E240 A
            02 00FF5    E3C8C9E2 A
            02 00FF6    40D4C5E2 A
            02 00FF7    E2C1C7C5 A
            02 00FF8    6B40E2C5 A
            02 00FF9    E340E2E2 A
            02 00FFA    E640F440 A
            02 00FFB    4B404040 A
            02 00FF1    20283FC8 N
      247   02 00FFD    D9C5E5C9 A            REV      'REVISION D02 (2-19-73)'                          *D02
            02 00FFE    E2C9D6D5 A
            02 00FFF    40C4F0F2 A
            02 01000    404DF260 A
            02 01001    F1F960F7 A
            02 01002    F35D4040 A
            02 00FFC    20183FF4 N
      248   02 01004    D9C5E5C9 A            REV      'REVISED DCP INTERUPT HANDLER'                    *D02
            02 01005    E2C5C440 A
            02 01006    C4C3D740 A
            02 01007    C9D5E3C5 A
            02 01008    D9E4D7E3 A
            02 01009    40C8C1D5 A
            02 0100A    C4D3C5D9 A
            02 01003    201C4010 N
      249   02 0100C    40404040 A            REV      ' '                                               *D01
            02 0100B    20044030 N
      250   02 0100E    D9C5E5C9 A            REV      'REVISION *D01*'                                  *D01
            02 0100F    E2C9D6D5 A
            02 01010    405CC4F0 A
            02 01011    F15C4040 A
            02 0100D    20104038 N
      251   02 01013    D7D9D6C7 A    REV 'PROGRAM REVISED TO CORRECT UNWANTED INTERRUPT.'               *D01
            02 01014    D9C1D440 A
            02 01015    D9C5E5C9 A
            02 01016    E2C5C440 A
            02 01017    E3D640C3 A
            02 01018    D6D9D9C5 A
            02 01019    C3E340E4 A
            02 0101A    D5E6C1D5 A
            02 0101B    E3C5C440 A
            02 0101C    C9D5E3C5 A
            02 0101D    D9D9E4D7 A
            02 0101E    E34B4040 A
            02 01012    2030404C N
      252   02 01020    40404040 A            REV      ' '                                               *C00
            02 0101F    20044080 N
      253   02 01022    D9C5E5C9 A            REV      'REVISION *D00*'                                  *D00
            02 01023    E2C9D6D5 A
            02 01024    405CC4F0 A
            02 01025    F05C4040 A
            02 01021    20104088 N
      254   02 01027    C3D6D9D9 A    REV 'CORRECTED ERROR CREATED IN REV C00. (TAR 10853)'              *D00
            02 01028    C5C3E3C5 A
            02 01029    C440C5D9 A
            02 0102A    D9D6D940 A
            02 0102B    C3D9C5C1 A
            02 0102C    E3C5C440 A
            02 0102D    C9D540D9 A
            02 0102E    C5E540C3 A
            02 0102F    F0F04B40 A
            02 01030    4DE3C1D9 A
            02 01031    40F1F0F8 A
            02 01032    F5F35D40 A
            02 01026    2030409C N
      255   02 01034    40404040 A    REV ' '                                                            *CP1
            02 01033    200440D0 N
      256   02 01036    D5D6E3C5 A    REV 'NOTE: IF THE KSR/ASR IS NOT AT DEVICE ADDRESS ONE, THE'       *CP1
            02 01037    7A40C9C6 A
            02 01038    40E3C8C5 A
            02 01039    40D2E2D9 A
            02 0103A    61C1E2D9 A
            02 0103B    40C9E240 A
            02 0103C    D5D6E340 A
            02 0103D    C1E340C4 A
            02 0103E    C5E5C9C3 A
            02 0103F    C540C1C4 A
            02 01040    C4D9C5E2 A
            02 01041    E240D6D5 A
            02 01042    C56B40E3 A
            02 01043    C8C54040 A
            02 01035    203840D8 N
      257   02 01045    40404040 A    REV '      PROGRAM WILL COME TO A WAIT.  ENTER THE CORRECT'        *CP1
            02 01046    4040D7D9 A
            02 01047    D6C7D9C1 A
            02 01048    D440E6C9 A
            02 01049    D3D340C3 A
            02 0104A    D6D4C540 A
            02 0104B    E3D640C1 A
            02 0104C    40E6C1C9 A
            02 0104D    E34B4040 A
            02 0104E    C5D5E3C5 A
            02 0104F    D940E3C8 A
            02 01050    C540C3D6 A
            02 01051    D9D9C5C3 A
            02 01052    E3404040 A
            02 01044    20384114 N
      258   02 01054    40404040 A    REV '      ADDRESS INTO REGISTER 4 AND CLEAR THE WAIT'             *CP1
            02 01055    4040C1C4 A
            02 01056    C4D9C5E2 A
            02 01057    E240C9D5 A
            02 01058    E3D640D9 A
            02 01059    C5C7C9E2 A
            02 0105A    E3C5D940 A
            02 0105B    F440C1D5 A
            02 0105C    C440C3D3 A
            02 0105D    C5C1D940 A
            02 0105E    E3C8C540 A
            02 0105F    E6C1C9E3 A
            02 01053    20304150 N
      259   02 01061    40404040 A   REVEND REV ' '
            02 01060    20044184 N
            02 00FF0    0000000E A
            02 01062    B2C01070
            02 01063    022000F0 A
            02 01064    6AF005C9 01
            02 01065    D2401070
            02 01066    4B400FC4 01
            02 01067    2540007E A
            02 01068    20400001 A
            02 01069    30401070
            02 0106A    35401070
            02 0106B    33F00FF0
            02 0106C    69301062
            02 0106D    32401071
            02 0106E    354006C4 01
            02 0106F    680006C4 01
            02 01070    00000FF1
            02 01071    02000000 A
      260                            *
      261   02 01072                          USECT    ZDCP                                              *CP1
      262                            *
      263                            *
      264                            * SYNTAX ERROR CODE MESSAGES
      265                            *      NO.     MEANING
      266                            *      ---     -------
      267                            *      001    UNDEFINED SPECIAL CHARACTER
      268                            *      010    COMMENTS LINE INITIATOR (ASTERISK) NOT PRECEDED
      269                            *              BY NEW LINE CHARACTER
      270                            *      020    DECIMAL RE-ITERATION COUNT AND/OR PLACE MARKER
      271                            *              IDENTIFIER SUB-FIELD GREATER OR LESS THAN AND/OR
      272                            *               NOT PERMITTED BY DIRECTIVE
      273                            *      021    ALPHABETIC CHARACTERS ENCOUNTERED IN DECIMAL SUB-
      274                            *              FIELD OR ABSENCE OF FIELD SEPARATOR
      275                            *      030    PLACE MARKER IDENTIFIER TABLE OVERFLOW
      276                            *      031    DOUBLY DEFINED PLACE MARKER IDENTIFIERS
      277                            *      032    UNDEFINED PLACE MARKER IDENTIFIERS AT EXECUTE TIME
      278                            *      040    CLOSE LOOP OPERATION WITHOUT PRIOR OPEN LOOP OPER.
      279                            *      041    OPEN LOOP OPERATIONS EXIST AT EXECUTE TIME
      280                            *      050    UNDEFINED MNEMONIC DIRECTIVE
      281                            *      051    DIRECTIVE NON-EXECUTABLE IN CONTROL LINE MODE
      282                            *      052    DIRECTIVE NON-EXECUTABLE IN IMMEDIATE MODE
      283                            *      053    UNDEFINED AND/OR DOUBLY DEFINED MNEMONIC DIRECTIVE
      284                            *              NAME FOR MNEMONIC NAME RE-DEFINITION
      285                            *      054    ILLEGAL FIELD SEPARATOR FOLLOWING DIRECTIVE
      286                            *      055    FIELD SEPARATOR ENTERED PRIOR TO REQUIRED PARAMETER
      287                            *      100    EXECUTE TABLE OVERFLOW-UNCONDITIONAL ABORT
      288                            *      101    EXECUTE TABLE UNDERFLOW-UNCONDITIONAL ABORT
      289                            *      105    GO ERROR UNCONDITIONAL ABORT
      290                            *      110    LINK TABLE OVERFLOW-UNCONDITIONAL ABORT
      291                            *      111    LINK TABLE UNDERFLOW-UNCONDITIONAL ABORT
      292                            *      120    SYMBOLIC INPUT OVERFLOW-UNCONDITIONAL ABORT
      293                                     PAGE
      294                            *
      295                            * PRE-INITIALIZATION OF CPU TRAP LOCATIONS
      296                            *
      297                            *
      298                            *
      299   01 00040    0F0006CA              XPSD,0   ZCMST40    40 NON-ALLOWED OPERATION               *CP1
      300   01 00041    0F000154              XPSD,0   ZT41       41 UNIMPLEMENTED INSTRUCTION           *CP1
      301   01 00042    0F00017C              XPSD,0   ZCTL       42 PUSHDOWN STACK LIMIT                *CP1
      302   01 00043    0F00017C              XPSD,0   ZCTL       43 FIXED POINT OVERFLOW                *CP1
      303   01 00044    0F00017C              XPSD,0   ZCTL       44 FLOATING POINT FAULT                *CP1
      304   01 00045    0F00017C              XPSD,0   ZCTL       45 DECIMAL ARITHMETIC FAULT            *CP1
      305   01 00046    0F000158              XPSD,0   ZT46       46 WATCHDOG TIMER RUNOUT               *CP1
      306   01 00047    0F00017C              XPSD,0   ZCTL       47 UNASSIGNED                          *CP1
      307   01 00048    0F00017C              XPSD,0   ZCTL       48 CALL1                               *CP1
      308   01 00049    0F00017C              XPSD,0   ZCTL       49 CALL2                               *CP1
      309   01 0004A    0F00017C              XPSD,0   ZCTL       4A CALL3                               *CP1
      310   01 0004B    0F00017C              XPSD,0   ZCTL       4B CALL4                               *CP1
      311   01 0004C    0F00015C              XPSD,0   ZT4C       4C SIGMA 9 MEMORY PARITY ERROR         *CP1
      312   01 0004D    0F000160              XPSD,0   ZT4D       4D SIGMA 9 SEQUENCE CHANGE FAULT       *CP1
      313   01 0004E    0F00017C              XPSD,0   ZCTL       4E UNASSIGNED                          *CP1
      314   01 0004F    0F00017C              XPSD,0   ZCTL       4F  TRAP LOCATIONS                     *CP1
      315                            *                                                                   *CP1
      316                            *                                                                   *CP1
      317                            * PRE-INITIALIZATION OF INTERRUPT LOCATIONS                         *CP1
      318                            *                                                                   *CP1
      319   01 00050    0F000164              XPSD,0   ZI50       50 OPTIONAL POWER ON                   *CP1
      320   01 00051    0F000168              XPSD,0   ZI51       51  POWER OFF INTERRUPTS               *CP1
      321   01 00052    0F00017C              XPSD,0   ZCTL       52 REAL-TIME CLOCKS                    *CP1
      322   01 00053    0F00017C              XPSD,0   ZCTL       53  COUNTER 1-3                        *CP1
      323   01 00054    0F00017C              XPSD,0   ZCTL       54   COUNT PULSES                      *CP1
      324   01 00055    0F00017C              XPSD,0   ZCTL       55 STANDARD COUNTER 4 PULSE            *CP1
      325   01 00056    0F00016C              XPSD,0   ZI56       56 SIGMA 5/7 MEMORY PARITY ERROR       *CP1
      326                            *                               SIGMA 9   SYSTEM FAULT              *CP1
      327   01 00057    0F000170              XPSD,0   ZI57       57 SIGMA 9   MEMORY FAULT              *CP1
      328   01 00058    0F00017C              XPSD,0   ZCTL       58 REAL-TIME CLOCKS                    *CP1
      329   01 00059    0F00017C              XPSD,0   ZCTL       59  COUNTER EQUALS ZERO                *CP1
      330   01 0005A    0F00017C              XPSD,0   ZCTL       5A   1-4 INTERRUPT                     *CP1
      331   01 0005B    0F00017C              XPSD,0   ZCTL       5B    LOCATIONS                        *CP1
      332   01 0005C    0F000174              XPSD,0   ZI5C       5C INPUT/OUTPUT INTERRUPT              *CP1
      333   01 0005D    0F000178              XPSD,0   ZI5D       5D CONSOLE INTERRUPT                   *CP1
      334   01 0005E    0F00017C              XPSD,0   ZCTL       5E UNASSIGNED                          *CP1
      335   01 0005F    0F00017C     ZIL5F    XPSD,0   ZCTL       5F  INTERRUPTS                         *CP1
      336                            *
      337                            *
      338                            * INTERRUPT LOCATIONS INITIALIZED   60 OPTIONAL EXTERNAL GROUPS
      339                            *  AT LOAD TIME TO XPSD,0 ZCTL      61  2-15 LOCATIONS 60-13F
      340                            *
      341                            *
      342                            * COMMON INTERRUPT ROUTINE SAVES REGISTER PAGE AT THIS LOCATION     *CP1
      343                            *                                                                   *CP1
      344   01 00140                          ORG      X'140'                                            *CP1
            01 00140
      345                            *                                                                   *CP1
      346   01 00140    00000000 A   ZPAGESAV DATA,16  0,0,0,0           REGISTER PAGE SAVED HERE        *CP1
                        00000000
                        00000000
                        00000000
            01 00144    00000000 A
                        00000000
                        00000000
                        00000000
            01 00148    00000000 A
                        00000000
                        00000000
                        00000000
            01 0014C    00000000 A
                        00000000
                        00000000
                        00000000
      347                            *                                                                   *CP1
      348                            *                                                                   *CP1
      349                            * PRE-INITIALIZED CPU TRAP/INTERRUPT ROUTINE                        *CP1
      350                            *                                                                   *CP1
      351   01 00150    00000000 A   ZT40     DATA     0          40 NON-ALLOWED OPERATION               *CP1
      352   01 00151    00000000 A            DATA     0                                                 *CP1
      353   01 00152    00000180              DATA     ZTL40                                             *CP1
      354   01 00153    00000000 A            DATA     0                                                 *CP1
      355   01 00154    00000000 A   ZT41     DATA     0          41 UNIMPLEMENTED INSTRUCTION           *CP1
      356   01 00155    00000000 A            DATA     0                                                 *CP1
      357   01 00156    00000182              DATA     ZTL41                                             *CP1
      358   01 00157    00000000 A            DATA     0                                                 *CP1
      359   01 00158    00000000 A   ZT46     DATA     0          46 WATCHDOG TIMER RUNOUT               *CP1
      360   01 00159    00000000 A            DATA     0                                                 *CP1
      361   01 0015A    00000184              DATA     ZTL46                                             *CP1
      362   01 0015B    00000000 A            DATA     0                                                 *CP1
      363   01 0015C    00000000 A   ZT4C     DATA     0          4C SIGMA 9 MEMORY PARITY ERROR         *CP1
      364   01 0015D    00000000 A            DATA     0                                                 *CP1
      365   01 0015E    00000186              DATA     ZTL4C                                             *CP1
      366   01 0015F    00000000 A            DATA     0                                                 *CP1
      367   01 00160    00000000 A   ZT4D     DATA     0          4D SIGMA 9 SEQUENCE CHANGE FAULT       *CP1
      368   01 00161    00000000 A            DATA     0                                                 *CP1
      369   01 00162    00000188              DATA     ZTL4D                                             *CP1
      370   01 00163    00000000 A            DATA     0                                                 *CP1
      371   01 00164    00000000 A   ZI50     DATA     0          50 POWER ON INTERRUPT                  *CP1
      372   01 00165    00000000 A            DATA     0                                                 *CP1
      373   01 00166    0000018A              DATA     ZIL50                                             *CP1
      374   01 00167    00000000 A            DATA     0                                                 *CP1
      375   01 00168    00000000 A   ZI51     DATA     0          51 POWER OFF INTERRUPT                 *CP1
      376   01 00169    00000000 A            DATA     0                                                 *CP1
      377   01 0016A    0000018C              DATA     ZIL51                                             *CP1
      378   01 0016B    00000000 A            DATA     0                                                 *CP1
      379   01 0016C    00000000 A   ZI56     DATA     0          56 SIGMA 5/7 MEMORY PARITY ERROR       *CP1
      380   01 0016D    00000000 A            DATA     0             SIGMA 9   SYSTEM FAULT              *CP1
      381   01 0016E    0000018E              DATA     ZIL56                                             *CP1
      382   01 0016F    00000000 A            DATA     0                                                 *CP1
      383   01 00170    00000000 A   ZI57     DATA     0          57 SIGMA 9 MEMORY FAULT                *CP1
      384   01 00171    00000000 A            DATA     0                                                 *CP1
      385   01 00172    00000190              DATA     ZIL57                                             *CP1
      386   01 00173    00000000 A            DATA     0                                                 *CP1
      387   01 00174    00000000 A   ZI5C     DATA     0          5C INPUT/OUTPUT INTERRUPT              *CP1
      388   01 00175    00000000 A            DATA     0                                                 *CP1
      389   01 00176    00000192              DATA     ZIL5C                                             *CP1
      390   01 00177    00000000 A            DATA     0                                                 *CP1
      391   01 00178    00000000 A   ZI5D     DATA     0          5D CONSOLE INTERRUPT                   *CP1
      392   01 00179    00000000 A            DATA     0                                                 *CP1
      393   01 0017A    00000655              DATA     ZCONINT                                           *CP1
      394   01 0017B    00000000 A            DATA     0                                                 *CP1
      395   01 0017C    00000000 A   ZCTL     DATA     0                                                 *CP1
      396   01 0017D    00000000 A            DATA     0                                                 *CP1
      397   01 0017E    00000194              DATA     ZCTL1      60 - 13F EXTERNAL INTERRUPTS           *CP1
      398   01 0017F    00000000 A            DATA     0                                                 *CP1
      399   01 00180    35F0014F     ZTL40    STW,R15  ZPAGESAV+15       SAVE (R15)                      *CP1
      400   01 00181    6AF00196              BAL,R15  ZTLCMN              MARK INT/TRAP ADDR            *CP1
      401   01 00182    35F0014F     ZTL41    STW,R15  ZPAGESAV+15                                       *CP1
      402   01 00183    6AF00196              BAL,R15  ZTLCMN                                            *CP1
      403   01 00184    35F0014F     ZTL46    STW,R15  ZPAGESAV+15                                       *CP1
      404   01 00185    6AF00196              BAL,R15  ZTLCMN                                            *CP1
      405   01 00186    35F0014F     ZTL4C    STW,R15  ZPAGESAV+15                                       *CP1
      406   01 00187    6AF00196              BAL,R15  ZTLCMN                                            *CP1
      407   01 00188    35F0014F     ZTL4D    STW,R15  ZPAGESAV+15                                       *CP1
      408   01 00189    6AF00196              BAL,R15  ZTLCMN                                            *CP1
      409   01 0018A    35F0014F     ZIL50    STW,R15  ZPAGESAV+15                                       *CP1
      410   01 0018B    6AF00196              BAL,R15  ZTLCMN                                            *CP1
      411   01 0018C    35F0014F     ZIL51    STW,R15  ZPAGESAV+15                                       *CP1
      412   01 0018D    6AF00196              BAL,R15  ZTLCMN                                            *CP1
      413   01 0018E    35F0014F     ZIL56    STW,R15  ZPAGESAV+15                                       *CP1
      414   01 0018F    6AF00196              BAL,R15  ZTLCMN                                            *CP1
      415   01 00190    35F0014F     ZIL57    STW,R15  ZPAGESAV+15                                       *CP1
      416   01 00191    6AF00196              BAL,R15  ZTLCMN                                            *CP1
      417   01 00192    35F0014F     ZIL5C    STW,R15  ZPAGESAV+15                                       *CP1
      418   01 00193    6AF00196              BAL,R15  ZTLCMN                                            *CP1
      419   01 00194    35F0014F     ZCTL1    STW,R15  ZPAGESAV+15       EXTERNAL INTERRUPT              *CP1
      420   01 00195    22F00000 A            LI,R15   0                                                 *CP1
      421                            *                                                                   *CP1
      422                            * COMMON TRAP/INTERRUPT ROUTINE.  (R15) INDICATE LOCATION           *CP1
      423                            * TRAP/INTERRUPT OCCURED IN AND THEREFORE THE TYPE OF UNEXPECTED    *CP1
      424                            * TRAP/INTERRUPT.                                                   *CP1
      425                            *                                                                   *CP1
      426   01 00196    7400024B     ZTLCMN   STCF     ZCSS              SAVE TRAP CONDITION CODES       *CP1
      427   01 00197    3310003F A            MTW,1    ZINTFLG           INCREMENT INTERRUPT FLAG        *CP1
      428   01 00198    022000F0 A            LCI      15                SAVE REGISTERS 0-14             *CP1
      429   01 00199    2B000140              STM,R0   ZPAGESAV                                          *CP1
      430   01 0019A    3210003F A            LW,R1    ZINTFLG           CHECK FOR MULTIPLE INTERRUPTS   *CP1
      431   01 0019B    21100001 A            CI,R1    1                                                 *CP1
      432   01 0019C    693001CB              BCS,3    ZTLHLT              MULTI-INTERRUPTS              *CP1
      433   01 0019D    21F00000 A            CI,R15   0                 COMPUTE TRAP/INT INDEX          *CP1
      434   01 0019E    683001CF              BCR,3    ZTLCMN3                                           *CP1
      435   01 0019F    20FFFE7E N            AI,R15   -ZTL41              REMOVE BIAS FROM INDEX        *CP1
      436   01 001A0    36F00FC5              DW,R15   L(2)                                              *CP1
      437   01 001A1    3210000F A            LW,X1    R15                 DETERMINE LOCATION            *CP1
      438   01 001A2    72420285              LB,R4    ZTLOC,X1                                          *CP1
      439   01 001A3    25400018 A            SLS,R4   24                CONVERT & STORE LOCATION        *CP1
      440   01 001A4    22700955              LI,X7    BA(ZTLMSG1)+13                                    *CP1
      441   01 001A5    6AE0023C              BAL,R14  ZIMSGSTR                                          *CP1
      442   01 001A6    6AE0023C              BAL,R14  ZIMSGSTR                                          *CP1
      443   01 001A7    3240024B              LW,R4    ZCSS              CONVERT & STORE CONDITION CODE  *CP1
      444   01 001A8    20700005 A            AI,X7    5                                                 *CP1
      445   01 001A9    6AE0023C              BAL,R14  ZIMSGSTR                                          *CP1
      446   01 001AA    3210000F A   ZTLCMN1  LW,R1    R15               CONVERT & STORE PSW1            *CP1
      447   01 001AB    23100004 A            MI,R1    4                                                 *CP1
      448   01 001AC    20100150              AI,R1    ZT40                                              *CP1
      449   01 001AD    B2400001 A            LW,R4    *R1                                               *CP1
      450   01 001AE    222FFFF8 A            LI,X2    -8                                                *CP1
      451   01 001AF    20700006 A            AI,X7    6                                                 *CP1
      452   01 001B0    6AE0023C              BAL,R14  ZIMSGSTR                                          *CP1
      453   01 001B1    652001B0              BIR,X2   %-1                                               *CP1
      454   01 001B2    20100001 A            AI,R1    1                 CONVERT & STORE PSW2            *CP1
      455   01 001B3    B2400001 A            LW,R4    *R1                                               *CP1
      456   01 001B4    222FFFF8 A            LI,X2    -8                                                *CP1
      457   01 001B5    20700006 A            AI,X7    6                                                 *CP1
      458   01 001B6    6AE0023C              BAL,R14  ZIMSGSTR                                          *CP1
      459   01 001B7    652001B6              BIR,X2   %-1                                               *CP1
      460   01 001B8    35F0024C              STW,R15  ZINTINDX                                          *CP1
      461   01 001B9    21F0000B A            CI,R15   11                CHECK FOR EXTERNAL INTERRUPT    *CP1
      462   01 001BA    692001D3              BCS,2    ZTLCMN4             EXTERNAL                      *CP1
      463   01 001BB    32C0027E              LW,R12   ZTLMSG1F          PRINT MESSAGE NO. 1             *CP1
      464   01 001BC    CF00052D     ZTLCMN2  HIO,0    *ZDKB+1           HALT/CLEAR KSR                  *CP1
      465   01 001BD    6AF005C8              BAL,R15  ZSML40              PRINT                         *CP1
      466   01 001BE    3300003E A            MTW,0    ZSIG9             SIGMA 9 TEST                    *CP1
      467   01 001BF    683001CB              BCR,3    ZTLHLT              NO                            *CP1
      468   01 001C0    32F0024C              LW,R15   ZINTINDX          TEST FOR PROCESSOR FAULT INT    *CP1
      469   01 001C1    21F00007 A            CI,R15   7                                                 *CP1
      470   01 001C2    683001D5              BCR,3    ZTLCMN5                                           *CP1
      471   01 001C3    21F00008 A            CI,R15   8               TEST FOR MEMORY FAULT INTERRUPT   *CP1
      472   01 001C4    683001FA              BCR,3    ZTLCMN10                                          *CP1
      473   01 001C5    21F00003 A            CI,R15   3                 TEST FOR MEMORY PARITY TRAP     *CP1
      474   01 001C6    683001F8              BCR,3    ZTLCMN9                                           *CP1
      475   01 001C7    21F00002 A            CI,R15   2                 TEST FOR WATCHDOG TIMER TRAP    *CP1
      476   01 001C8    68300229              BCR,3    ZTLCMN13                                          *CP1
      477   01 001C9    21F00004 A            CI,R15   4                 TEST FOR INSTRUCTION EXCEPTION  *CP1
      478   01 001CA    68300236              BCR,3    ZTLCMN14            TRAP                          *CP1
      479   01 001CB    22000000 A   ZTLHLT   LI,0     0                 CLEAR INT FLG                   *CP1
      480   01 001CC    3500003F A            STW,0    ZINTFLG                                           *CP1
      481   01 001CD    2E000000 A            WAIT                       HALT                            *CP1
      482   01 001CE    68000288              B        ZPC010            REINITIALIZE                    *CP1
      483                            *                                                                   *CP1
      484   01 001CF    32C00282     ZTLCMN3  LW,R12   ZTLMSG4F          EXTERNAL INTERRUPT              *CP1
      485   01 001D0    6AF005C8              BAL,R15  ZSML40            PRINT MESSAGE NO. 4             *CP1
      486   01 001D1    22F0000C A            LI,R15   12                SET INDEX FOR PSW1 & PSW2       *CP1
      487   01 001D2    680001AA              B        ZTLCMN1                                           *CP1
      488                            *                                                                   *CP1
      489   01 001D3    32C0027F     ZTLCMN4  LW,R12   ZTLMSG1G          PRINT PSW1 & PSW2 ONLY          *CP1
      490   01 001D4    680001BC              B        ZTLCMN2                                           *CP1
      491                            *                                                                   *CP1
      492   01 001D5    22300000 A   ZTLCMN5  LI,R3    0                 PROCESSOR FAULT INTERRUPT       *CP1
      493   01 001D6    221FFFE0 A            LI,X1    -32               POLL ALL POSSIBLE PROCESSORS    *CP1
      494   01 001D7    22208000 A            LI,R2    X'8000'                                           *CP1
      495   01 001D8    CF600002 A   ZTLCMN6  HIO,R6   *R2                 ** POLP ** COMMAND            *CP1
      496   01 001D9    698001DB              BCS,8    ZTLCMN7               ADDR NOT RECOGNIZED         *CP1
      497   01 001DA    694001E2              BCS,4    ZTLCMN8               PFI PULLED BY THIS PROCESSOR*CP1
      498   01 001DB    20200100 A   ZTLCMN7  AI,R2    X'100'            INCREMENT PROCESSOR ADDRESS     *CP1
      499   01 001DC    651001D8              BIR,X1   ZTLCMN6                                           *CP1
      500   01 001DD    21300000 A            CI,R3    0                 ANY PFI'S FOUND                 *CP1
      501   01 001DE    693001CB              BCS,3    ZTLHLT              YES-EXIT                      *CP1
      502   01 001DF    32C00283              LW,R12   ZTLMSG5F          OUTPUT MESSAGE NO. 5            *CP1
      503   01 001E0    6AF005C8              BAL,R15  ZSML40                                            *CP1
      504   01 001E1    680001CB              B        ZTLHLT            EXIT                            *CP1
      505                            *                                                                   *CP1
      506   01 001E2    35200004 A   ZTLCMN8  STW,R2   R4                PFI PULLED                      *CP1
      507   01 001E3    20404000 A            AI,R4    X'4000'           ISSUE POLR TO RESET PROCESSOR   *CP1
      508   01 001E4    CF600004 A            HIO,R6   *R4                 ** POLR ** COMMAND            *CP1
      509   01 001E5    204F4000 A            AI,R4    -X'C000'          CONVERT & STORE PROCESSOR NO.   *CP1
      510   01 001E6    25400010 A            SLS,R4   16                                                *CP1
      511   01 001E7    22700995              LI,X7    BA(ZTLMSG2)+9                                     *CP1
      512   01 001E8    6AE0023C              BAL,14   ZIMSGSTR                                          *C00
      513   01 001E9    6AE0023C              BAL,14   ZIMSGSTR                                          *C00
      514   01 001EA    32400006 A            LW,R4    R6                CONVERT & STORE FAULT STATUS    *CP1
      515   01 001EB    4B40024E              AND,R4   ZPFIMSK                                           *CP1
      516   01 001EC    25400016 A            SLS,R4   22                                                *CP1
      517   01 001ED    20700009 A            AI,X7    9                                                 *CP1
      518   01 001EE    6AE0023C              BAL,14   ZIMSGSTR                                          *C00
      519   01 001EF    6AE0023C              BAL,14   ZIMSGSTR                                          *C00
      520   01 001F0    02200030 A            LCI      3                 PRINT MESSAGE NO. 2             *CP1
      521   01 001F1    2B10024F              STM,R1   ZPFISTR                                           *CP1
      522   01 001F2    32C00280              LW,R12   ZTLMSG2F                                          *CP1
      523   01 001F3    6AF005C8              BAL,R15  ZSML40                                            *CP1
      524   01 001F4    02200030 A            LCI      3                                                 *CP1
      525   01 001F5    2A10024F              LM,R1    ZPFISTR                                           *CP1
      526   01 001F6    20300001 A            AI,R3    1                 SET FAULT FOUND                 *CP1
      527   01 001F7    680001DB              B        ZTLCMN7                                           *CP1
      528                            *                                                                   *CP1
      529   01 001F8    7030024B     ZTLCMN9  LCF      ZCSS              MEMORY PARITY TRAP
      530   01 001F9    69F00236              BCS,15   ZTLCMN14          CHECK FOR MEMORY DETERMINED TRAP*CP1
      531                            *                                                                   *CP1
      532   01 001FA    22103FF0 A   ZTLCMN10 LI,1     X'3FF0'           MEMORY DETERMINED TRAP/INTERR.  *C00
      533   01 001FB    226FFFFC A            LI,6     -4                                                *C00
      534   01 001FC    02200080 A            LCI      8                 READOUT MSW0                    *CP1
      535   01 001FD    AD400001 A            LMS,R4   *R1                                               *CP1
      536   01 001FE    32F0003E A            LW,15    ZSIG9                                            **D02
      537   01 001FF    21F000E3 A            CI,15    'T'               IS IT SIGMA                    **D02
      538   01 00200    69300203              BNE      ZTLCMN16          B: YES                         **D02
      539   01 00201    4B400FC6              AND,4    =X'7F0003FF'      CHECK FOR ERROR                **D02
      540   01 00202    68000204              B        %+2                                              **D02
      541   01 00203    4B40024D     ZTLCMN16 AND,4    ZMPMSK            CHECK FOR ERROR                **D02
      542   01 00204    69300210              BCS,3    ZTLCMN12              ERROR                       *CP1
      543   01 00205    20100001 A            AI,1     1                   HANDLE INTERLEVE              *C00
      544   01 00206    656001FC              BIR,6    ZTLCMN10+2                                        *C00
      545   01 00207    20103FFC A            AI,1     X'3FFC'           INCREMENT MEMORY BANK           *C00
      546   01 00208    31100687              CW,R1    ZEMS              CHECK FOR END OF MEMORY         *CP1
      547   01 00209    691001FB              BCS,1    ZTLCMN10+1                                        *CP1
      548   01 0020A    32C00284              LW,R12   ZTLMSG6F          NO ERROR FOUND                  *CP1
      549   01 0020B    6AF005C8     ZTLCMN11 BAL,R15  ZSML40            PRINT MESSAGE NO. 6             *CP1
      550   01 0020C    32F0024C              LW,R15   ZINTINDX          IS THIS A TRAP                   CP1
      551   01 0020D    21F00003 A            CI,R15   3                                                 *CP1
      552   01 0020E    68300236              BCR,3    ZTLCMN14            YES                           *CP1
      553   01 0020F    680001CB              B        ZTLHLT            EXIT                            *CP1
      554                            *                                                                   *CP1
      555   01 00210    227009A9     ZTLCMN12 LI,X7    BA(ZTLMSG3)+5     MEMORY INDICATES ERROR          *CP1
      556   01 00211    02200080 A            LCI      8                 CONVERT & STORE MSW0            *CP1
      557   01 00212    6AD00246              BAL,R13  ZLMSTR                                            *CP1
      558   01 00213    20700007 A            AI,X7    7                 CONVERT & STORE MSW1            *CP1
      559   01 00214    32F0003E A            LW,15    ZSIG9                                            **D02
      560   01 00215    21F000E3 A            CI,15    'T'               IS IT SIGMA                    **D02
      561   01 00216    69300222              BNE      ZTLCMN18          B: YES                         **D02
      562   01 00217    022000A0 A            LCI      10                                               **D02
      563   01 00218    6AD00246              BAL,13   ZLMSTR            CONVERT &  STORE MSW1          **D02
      564   01 00219    32F00FC7              LW,15    ='UNUS'                                          **D02
      565   01 0021A    35F00272              STW,15   ZTLMSG3+9                                        *D02
      566   01 0021B    32F00FC8              LW,15    =X'C5C44015'                                     **D02
      567   01 0021C    35F00273              STW,15   ZTLMSG3+10                                       **D02
      568   01 0021D    32F00FC9              LW,15    =X'E6F27E40'                                     **D02
      569   01 0021E    35F00271              STW,15   ZTLMSG3+8                                        **D02
      570   01 0021F    022000C0 A            LCI      12                                               **D02
      571   01 00220    AD400001 A            LMS,4    *1                CLEAR MSW0 AND MSW1            **D02
      572   01 00221    68000227              B        ZTLCMN17                                         **D02
      573   01 00222    02200090 A   ZTLCMN18 LCI      9                                                **D02
      574   01 00223    6AD00246              BAL,R13  ZLMSTR                                            *GOO
      575   01 00224    20700007 A            AI,X7    7                 CONVERT & STORE MSW2            *GOO
      576   01 00225    022000E0 A            LCI      14                  CLEAR SNAPSHOT                *GOO
      577   01 00226    6AD00246              BAL,R13  ZLMSTR                                            *GOO
      578   01 00227    32C00281     ZTLCMN17 LW,12    ZTLMSG3F          PRINT MESSAGE NO. 3            **D02
      579   01 00228    6800020B              B        ZTLCMN11                                          *GOO
      580                            *                                                                   *GOO
      581   01 00229    7030024B     ZTLCMN13 LCF      ZCSS              WATCHDOG TIMER TRAP
      582   01 0022A    68400236              BCR,4    ZTLCMN14          CHECK FOR PROCESSOR TIMEOUT     *GOO
      583   01 0022B    68800236              BCR,8    ZTLCMN14          CHECK FOR NO OTHER TRAP PENDING *GOO
      584   01 0022C    32F0003E A            LW,15    ZSIG9                                             *D02
      585   01 0022D    21F000E3 A            CI,15    'T'               IS IT SIGMA                     *D02
      586   01 0022E    69300231              BNE      %+3               YES                             *D02
      587   01 0022F    221FFFC0 A            LI,X1    -64                                               *D02
      588   01 00230    68000232              B        %+2                                               *D02
      589   01 00231    221FFFE4 A            LI,X1    -28               SEND AN RIO TO ALL IOP'S        *CP1
      590   01 00232    22204000 A            LI,R2    X'4000'                                           *CP1
      591   01 00233    CF000002 A            HIO,0    *R2                 ** RIO **  COMMAND            *CP1
      592   01 00234    20200100 A            AI,R2    X'100'                                            *CP1
      593   01 00235    65100233              BIR,X1   %-2                                               *CP1
      594                            *                                                                   *CP1
      595   01 00236    22000000 A   ZTLCMN14 LI,0     0                 PDF SET BY CURRENT TRAP         *CP1
      596   01 00237    3500003F A            STW,0    ZINTFLG                                           *CP1
      597   01 00238    0E10023A              LPSD,1   ZTLCMN15          CLEAR PDF/EXIT                  *CP1
      598                                     BOUND    8                                                 *CP1
      599   01 0023A    000001CB     ZTLCMN15 DATA     ZTLHLT              CLEAR PDF & WAIT              *CP1
      600   01 0023B    00000000 A            DATA     0                                                 *CP1
      601                            *                                                                   *CP1
      602                            * CONVERT HEXADECIMAL DATA IN R4 TO EBCIDIC AND STORE BYTE BY (X7). *CP1
      603                            * MOST SIGNIFICANT CHARACTER CONVERTED, ONE CHARACTER PER ENTRY TO  *CP1
      604                            * ROUTINE.  CALL: BAL,R14.                                          *CP1
      605                            *                                                                   *CP1
      606   01 0023C    22500000 A   ZIMSGSTR LI,R5    0                 PLACE CHARACTER IN R5           *CP1
      607   01 0023D    25400304 A            SCD,R4   4                                                 *CP1
      608   01 0023E    21500009 A            CI,R5    9                 CHARACTER = 0-9                 *CP1
      609   01 0023F    69200244              BCS,2    ZIMSGST2            NO, A-F                       *CP1
      610   01 00240    205000F0 A            AI,R5    X'F0'             EBCIDIC 0-9                     *CP1
      611   01 00241    755E0000 A   ZIMSGST1 STB,R5   0,X7              STORE CODED CHARACTER           *CP1
      612   01 00242    20700001 A            AI,X7    1                 INCREMENT STORAGE ADDRESS       *CP1
      613   01 00243    E800000E A            B        *R14              EXIT                            *CP1
      614                            *                                                                   *CP1
      615   01 00244    205000B7 A   ZIMSGST2 AI,R5    X'B7'             EBCIDIC A-F                     *CP1
      616   01 00245    68000241              B        ZIMSGST1                                          *CP1
      617                            *                                                                   *CP1
      618                            * PREFORM LMS INSTRUCTION & STORE MEMORY FAULT DATA.                *CP1
      619                            * CALL: BAL,R13                                                     *CP1
      620                            *                                                                   *CP1
      621   01 00246    AD400001 A   ZLMSTR   LMS,R4   *R1               LOAD MEMORY STATUS              *CP1
      622   01 00247    222FFFF8 A            LI,X2    -8                CONVERT & STORE STATUS          *CP1
      623   01 00248    6AE0023C              BAL,R14  ZIMSGSTR                                          *CP1
      624   01 00249    65200248              BIR,X2   %-1                                               *CP1
      625   01 0024A    E800000D A            B        *R13              EXIT                            *CP1
      626                            *                                                                   *CP1
      627   01 0024B    00000000 A   ZCSS     DATA     0                 TRAP-INTERRUPT CONDITION CODES  *CP1
      628   01 0024C    00000000 A   ZINTINDX DATA     0                                                 *CP1
      629   01 0024D    FFF00000 A   ZMPMSK   DATA     X'FFF00000'                                       *CP1
      630   01 0024E    000000FC A   ZPFIMSK  DATA     X'FC'                                             *CP1
      631   01 0024F                 ZPFISTR  RES      3                                                 *CP1
      632   01 00252    E3D9C1D7 A   ZTLMSG1  TEXT     'TRAP/INTER = XX TCC=X PSW1=XXXXXXXX '            *CP1
            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
      633   01 0025B    D7E2E6F2 A            TEXT     'PSW2=XXXXXXXX  REGSAVE=000140
'                  *CP1
            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
      634   01 00263    D7D9D6C3 A   ZTLMSG2  TEXT     'PROC.NO.=XX  F/STAT=XX'                          *CP1
            01 00264    4BD5D64B A
            01 00265    7EE7E740 A
            01 00266    40C661E2 A
            01 00267    E3C1E37E A
            01 00268    E7E74040 A
      635   01 00269    D4E2E6F0 A   ZTLMSG3  TEXT     'MSW0=XXXXXXXX  MSW1=XXXXXXXX  MSW2=XXXXXXXX
'    *CP1
            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
      636   01 00274    E4D5C4C5 A   ZTLMSG4  TEXT     'UNDEF INTER
','NO PROC FAULT
','NO MEM FAULT
'   *CP1
            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
      637   01 0027E    20420948 A   ZTLMSG1F ZFMW     2,0,66,BA(ZTLMSG1)                                *CP1
      638   01 0027F    202C095E A   ZTLMSG1G ZFMW     2,0,44,BA(ZTLMSG1)+22                             *CP1
      639   01 00280    2016098C A   ZTLMSG2F ZFMW     2,0,22,BA(ZTLMSG2)                                *CP1
      640   01 00281    202C09A4 A   ZTLMSG3F ZFMW     2,0,44,BA(ZTLMSG3)                                *CP1
      641   01 00282    200C09D0 A   ZTLMSG4F ZFMW     2,0,12,BA(ZTLMSG4)                                *CP1
      642   01 00283    200E09DC A   ZTLMSG5F ZFMW     2,0,14,BA(ZTLMSG4)+12                             *CP1
      643   01 00284    200D09EA A   ZTLMSG6F ZFMW     2,0,13,BA(ZTLMSG4)+26                             *CP1
      644   01 00285    40       A   ZTLOC    DATA,1   64,65,70,76,77,80,81,86,87,92   INTERRUPT LOCATION*CP1
            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
      645                            *
      646                            *
      647                            *
      648                            * INITIALIZATION FOR MAIN-LINE TRANSLATOR
      649                            *
      650   01 00288    6AF00525     ZPC010   BAL,R15  ZSCIR
      651   01 00289    32F002A2              LW,R15   ZRECOV
      652   01 0028A    35F00026 A            STW,R15  X'26'
      653   01 0028B    3500003F A            STW,R0   ZINTFLG           CLEAR INTERRUPT FLAG            *CP1
      654   01 0028C    6D000023 A            WD,0     X'23'             RESET INTERRUPT INHIBITS        *CP1
      655   01 0028D    22F00C10 A            LI,R15   X'C10'            ARM & ENABLE GP 0 INTERRUPTS    *D01
      656   01 0028E    6DF01200 A            WD,R15   X'1200'                                           *CP1
      657   01 0028F    32F0068E              LW,R15   ZMFRIOAD
      658   01 00290    25F00402 A            SAS,R15  2
      659   01 00291    55F2045E              STH,R15  ZMFRX7,X1
      660   01 00292    55F2045F              STH,R15  ZMFRNBA,X1
      661   01 00293    52F2052D              LH,R15   ZDKB+1,X1
      662   01 00294    55F20473              STH,R15  ZMFRDA,X1
      663   01 00295    32C002A1     ZPC020   LW,R12   ZPC050
      664   01 00296    6AF005C5              BAL,R15  ZTMNCR
      665   01 00297    22900000 A            LI,R9    0
      666   01 00298    6AF002E3              BAL,R15  ZDSTRN
      667   01 00299    6800029A              B        %+1
      668   01 0029A    22F0029F              LI,R15   ZPC030
      669   01 0029B    55F202CA              STH,R15  ZTRN60,X1
      670   01 0029C    22F00810 A            LI,R15    X'810'
      671   01 0029D    6DF01200 A            WD,R15   X'1200'
      672   01 0029E    680002B3              B        ZPC210
      673   01 0029F    6AF002F0     ZPC030   BAL,R15  ZDSSET
      674   01 002A0    68000295              B        ZPC020
      675   01 002A1    10010B50 A   ZPC050   ZFMW     1,0,1,BA(ZDS)
      676   01 002A2    68000288     ZRECOV   B        ZPC010
      677                                     PAGE
      678                            *
      679                            * CLEAR EXISTENT EXECUTE TABLE AND CONSTRUCT NEW TABLE
      680                            *
      681   01 002A3    6AF00525     ZPC200   BAL,R15  ZSCIR
      682   01 002A4    3500002D A            STW,R0   ZUDFPM
      683   01 002A5    3500003D A            STW,R0   ZDSFLG
      684   01 002A6    55020666              STH,R0   ZGOPTR,X1
      685   01 002A7    22B002B5              LI,R11   ZTRN10
      686   01 002A8    55B202CA              STH,R11  ZTRN60,X1
      687   01 002A9    32B0068C              LW,R11   ZPMADR
      688   01 002AA    35B0068D              STW,R11  ZPMPTR
      689   01 002AB    32B0068A              LW,R11   ZLKADR
      690   01 002AC    35B0068B              STW,R11  ZLKPTR
      691   01 002AD    32B00FC3              LW,R11   ZEXADR
      692   01 002AE    6AF0049A              BAL,R15  ZSTPTR
      693   01 002AF    32B00688              LW,R11   ZLBADR
      694   01 002B0    35B00689              STW,R11  ZLBPTR
      695   01 002B1    32C002CC              LW,R12   ZTRN100
      696   01 002B2    6AF005C5              BAL,R15  ZTMNCR
      697   01 002B3    72A002D0     ZPC210   LB,R10   ZNL
      698   01 002B4    35A00039 A            STW,R10  ZCHAR
      699                                     PAGE
      700                            *
      701                            * MAIN-LINE TRANSLATOR
      702                            *
      703   01 002B5    22800000 A   ZTRN10   LI,R8    0
      704   01 002B6    6AF00438              BAL,R15  ZFNDTB
      705   01 002B7    227FFFEA A            LI,X7    -ZOPLEN
      706   01 002B8    32BE02E3              LW,R11   ZOPTBL,X7
      707   01 002B9    71A0000B A            CB,R10   R11
      708   01 002BA    683002C9              BCR,3    ZTRN50
      709   01 002BB    657002B8              BIR,X7   %-3
      710   01 002BC    21A000C1 A            CI,R10   X'C1'
      711   01 002BD    691002C7              BCS,1    ZTRN40
      712   01 002BE    21A000E9 A            CI,R10   X'E9'
      713   01 002BF    692002C7              BCS,2    ZTRN40
      714   01 002C0    3280000A A            LW,R8    R10
      715   01 002C1    6AF0044E              BAL,R15  ZFAN+1
      716   01 002C2    227FFFEA A            LI,X7    -ZOPLEN
      717   01 002C3    32BE02E3              LW,R11   ZOPTBL,X7
      718   01 002C4    71A0000B A            CB,R10   R11
      719   01 002C5    683002C9              BCR,3    ZTRN50
      720   01 002C6    657002C3              BIR,X7   %-3
      721   01 002C7    22C00001 A   ZTRN40   LI,R12   X'01'
      722   01 002C8    68000481              B        ZSNER
      723   01 002C9    EAF0000B A   ZTRN50   BAL,R15  *R11
      724   01 002CA    6AF002B5     ZTRN60   BAL,R15  ZTRN10
      725   01 002CB    680002B5              B        ZTRN10
      726   01 002CC    00010B40 A   ZTRN100  ZFMW     0,0,1,BA(ZNL)
      727                                     PAGE
      728                            *
      729                            * SYNTAX TEST LANGUAGE TABLE CONTAINING ALL SPECIAL CHARACTERS
      730                            *  ONE WORD PER SYNTAX OR SPECIAL CHARACTER
      731                            *   BITS 0-7      SYNTAX OR SPECIAL CHARACTER
      732                            *   BITS 8-14     RESERVED
      733                            *   BITS 15-31    SYNTAX PROCESSOR SUBROUTINE ADDRESS
      734                            *
      735         01 002CD           ZOPBEG   EQU      %
      736   01 002CD    5D000335     ZRP      ZFOT     X'5D',0,ZRPTRN    ) CLOSE LOOP
      737   01 002CE    610003FA     ZFS      ZFOT     X'61',0,ZFSTRN    / RELEASE TO EXECUTE
      738   01 002CF    4000038D     ZSP      ZFOT     X'40',0,ZPLTRN    FIELD SEPARATORS
      739   01 002D0    1500038D     ZNL      ZFOT     X'15',0,ZPLTRN    NL
      740   01 002D1    4E00038D     ZPL      ZFOT     X'4E',0,ZPLTRN    +
      741   01 002D2    5000038D              ZFOT     X'50',0,ZPLTRN    +
      742   01 002D3    6000030A     ZMS      ZFOT     X'60',0,ZMSTRN    - FIELD DELETOR
      743         01 002D4           ZOPTB2   EQU      %
      744         00000007           ZOPLN2   EQU      %-ZOPBEG
      745   01 002D4    5B0002E3     ZDS      ZFOT     X'5B',0,ZDSTRN    % IMMEDIATE EXECUTION
      746   01 002D5    4D000326     ZLP      ZFOT     X'4D',0,ZLPTRN    ( OPEN LOOP
      747   01 002D6    7C000349     ZAS      ZFOT     X'7C',0,ZASTRN    ' TRANSFER OR LINK
      748   01 002D7    6B00038D     ZCO      ZFOT     X'6B',0,ZPLTRN    , PARAMETER SEPARATOR
      749   01 002D8    4B000344     ZPD      ZFOT     X'4B',0,ZPDTRN    . PLACE MARKER
      750   01 002D9    5C000301     ZCL      ZFOT     X'5C',0,ZCLTRN    * COMMENTS LINE
      751   01 002DA    7E000312     ZEQ      ZFOT     X'7E',0,ZEQTRN    = MNEMONIC REDEFINITION
      752   01 002DB    7A0002C7              ZFOT     X'7A',0,ZTRN40    0 CURRENTLY
      753   01 002DC    7B0002C7              ZFOT     X'7B',0,ZTRN40    =  UNDEFINED
      754   01 002DD    4C0002C7              ZFOT     X'4C',0,ZTRN40    <   SPECIAL
      755   01 002DE    6C0002C7              ZFOT     X'6C',0,ZTRN40    (   CHARACTERS
      756   01 002DF    5E0002C7              ZFOT     X'5E',0,ZTRN40    ;
      757   01 002E0    6E0002C7              ZFOT     X'6E',0,ZTRN40    >
      758   01 002E1    4F0002C7              ZFOT     X'4F',0,ZTRN40    1
      759   01 002E2    7D0002C7              ZFOT     X'7D',0,ZTRN40    '
      760         01 002E3           ZOPTBL   EQU      %
      761         00000016           ZOPLEN   EQU      %-ZOPBEG
      762                                     PAGE
      763                            *
      764                            * DOLLAR SIGN TRANSLATOR PROCESSOR TO INITIALIZE TRANSLATOR
      765                            *
      766   01 002E3    35F00032 A   ZDSTRN   STW,R15  ZDSLNK
      767   01 002E4    6AF004CB              BAL,R15  ZTST3
      768   01 002E5    35900695              STW,R9   P0
      769   01 002E6    3300003D A            MTW,0    ZDSFLG
      770   01 002E7    693002EC              BCS,3    ZDSTRN10
      771   01 002E8    32F00691              LW,R15   ZEXPT0
      772   01 002E9    35F00033 A            STW,R15  ZDSPTR
      773   01 002EA    22B002F0               LI,R11   ZDSSET
      774   01 002EB    55B202CA              STH,R11  ZTRN60,X1
      775   01 002EC    22B00695     ZDSTRN10 LI,R11   P0
      776   01 002ED    6AF0049A              BAL,R15  ZSTPTR
      777   01 002EE    35B0003D A            STW,R11  ZDSFLG
      778   01 002EF    E8020032 A            B        *ZDSLNK,X1
      779                            *
      780                            * IMMEDIATE EXECUTION OF DIRECTIVE
      781                            *
      782   01 002F0    35F00032 A   ZDSSET   STW,R15  ZDSLNK
      783   01 002F1    6AF00525              BAL,R15  ZSCIR
      784   01 002F2    33000695              MTW,0    P0
      785   01 002F3    683002FB              BCR,3    ZDSSET10
      786   01 002F4    22B00695              LI,R11   P0
      787   01 002F5    6AF0049A              BAL,R15  ZSTPTR
      788   01 002F6    6AF0062D              BAL,R15  ZMPTWA
      789   01 002F7    B2B00691              LW,R11   *ZEXPT0
      790   01 002F8    EAF0000B A            BAL,R15  *R11
      791   01 002F9    680002FA              B        %+1
      792   01 002FA    6AF00525              BAL,R15  ZSCIR
      793   01 002FB    3500003D A   ZDSSET10 STW,R0   ZDSFLG
      794   01 002FC    22B002B5              LI,R11   ZTRN10
      795   01 002FD    55B202CA              STH,R11  ZTRN60,X1
      796   01 002FE    32B00033 A            LW,R11   ZDSPTR
      797   01 002FF    6AF0049A              BAL,R15  ZSTPTR
      798   01 00300    E8000032 A            B        *ZDSLNK
      799                                     PAGE
      800                            *
      801                            * ASTERISK TRANSLATOR PROCESSOR, VERIFIES LEGAL COMMENTS LINE
      802                            *  OR AN ERRONEOUS ENTRY, IF LEGAL WAIT FOR NL TO TERMINATE
      803                            *   COMMENTS LINE AND RETURN TO MAIN-LINE TRANSLATOR, IF ILLEGAL
      804                            *    DELETE CURRENT FIELD AND OUTPUT ERROR MESSAGE AND RETURN TO
      805                            *     MAIN-LINE TRANSLATOR FOR RE-ENTRY OF SAME FIELD
      806                            *      NO EXECUTE TABLE ENTRY
      807                            *
      808   01 00301    35F00022 A   ZCLTRN   STW,R15  ZCLLNK
      809   01 00302    22C00010 A            LI,R12   X'10'
      810   01 00303    32F0003A A            LW,R15   ZLSTCH
      811   01 00304    71F002D0              CB,R15   ZNL
      812   01 00305    69300481              BCS,3    ZSNER
      813   01 00306    6AF0045B              BAL,R15  ZFOC
      814   01 00307    71A002D0              CB,R10   ZNL
      815   01 00308    69300306              BCS,3    %-2
      816   01 00309    E8000022 A            B        *ZCLLNK
      817                            *
      818                            * MINUS SIGN TRANSLATOR PROCESSOR
      819                            *  DELETES CURRENT FIELD FOR RE-ENTRY
      820                            *   NO EXECUTE TABLE ENTRY
      821                            *
      822   01 0030A    35F00024 A   ZMSTRN   STW,R15  ZMSLNK
      823   01 0030B    32B00691              LW,R11   ZEXPT0
      824   01 0030C    6AF0049A              BAL,R15  ZSTPTR
      825   01 0030D    22C00000 A            LI,R12   0
      826   01 0030E    B5C00691              STW,R12  *ZEXPT0
      827   01 0030F    32C002CC              LW,R12   ZTRN100
      828   01 00310    6AF005C5              BAL,R15  ZTMNCR
      829   01 00311    E8000024 A            B        *ZMSLNK
      830                                     PAGE
      831                            *
      832                            * EQUAL TRANSLATOR PROCESSOR, NO EXECUTE TABLE ENTRY
      833                            *  RE-ASSIGN MNEMONIC SUB-ROUTINE, ALPHA CHARACTERS ONLY
      834                            *   VERIFIES MNEMONIC EXISTS AND RE-ASSIGN MNEMONIC NON-EXISTENT
      835                            *    REPLACES (DELETES) CURRENT MNEMONIC NAME
      836                            *     INSERTS NEW MNEMONIC INTO SUBROUTINE DICTIONARY
      837                            *
      838   01 00312    35F00023 A   ZEQTRN   STW,R15  ZEQLNK
      839   01 00313    6AF004CB              BAL,R15  ZTST3
      840   01 00314    32900008 A            LW,R9    R8
      841   01 00315    6AF00447              BAL,R15  ZFA
      842   01 00316    33000008 A            MTW,0    R8
      843   01 00317    6830031F              BCR,3    ZEQTRN10
      844   01 00318    227FFFE2 A            LI,X7    -ZSRLEN
      845   01 00319    35700006 A            STW,X7   X6
      846   01 0031A    318E0702              CW,R8    ZSRTBL,X7
      847   01 0031B    6830031F              BCR,3    ZEQTRN10
      848   01 0031C    319E0702              CW,R9    ZSRTBL,X7
      849   01 0031D    68300323              BCR,3    ZEQTRN20
      850   01 0031E    65700319              BIR,X7   %-5
      851   01 0031F    22C00053 A   ZEQTRN10 LI,R12   X'53'
      852   01 00320    68000481              B        ZSNER
      853   01 00321    319E0702              CW,R9    ZSRTBL,X7
      854   01 00322    6830031F              BCR,3    ZEQTRN10
      855   01 00323    65700321     ZEQTRN20 BIR,X7   %-2
      856   01 00324    358C0702              STW,R8   ZSRTBL,X6
      857   01 00325    E8000023 A            B        *ZEQLNK
      858                                     PAGE
      859                            *
      860                            * LEFT PARAN TRANSLATOR PROCESSOR FOR OPEN LOOP
      861                            *  EXECUTE TABLE ENTRY EQUALS TWO WORDS FOR REITERATION COUNT
      862                            *   GREATER THAN ONE, NON-EXISTENT FOR 0 AND 1
      863                            *
      864   01 00326    35F00025 A   ZLPTRN   STW,R15  ZLPLNK
      865   01 00327    6AF004D2              BAL,R15  ZTST7
      866   01 00328    32F0065A              LW,R15   ZLPPRO
      867   01 00329    B5F00691              STW,R15  *ZEXPT0
      868   01 0032A    6AF004AF              BAL,R15  ZTST1
      869   01 0032B    22F00000 A            LI,R15   0
      870   01 0032C    33000009 A            MTW,0    R9
      871   01 0032D    6820032F              BCR,2    %+2
      872   01 0032E    32F00691              LW,R15   ZEXPT0
      873   01 0032F    B5F00689              STW,R15  *ZLBPTR
      874   01 00330    33100689              MTW,1    ZLBPTR
      875   01 00331    33000009 A            MTW,0    R9
      876   01 00332    E8200025 A            BCR,2    *ZLPLNK
      877   01 00333    6AF00496              BAL,R15  ZADPTR
      878   01 00334    E8000025 A            B        *ZLPLNK
      879                            *
      880                            * RIGHT PARAN TRANSLATOR PROCESSOR FOR CLOSE LOOP
      881                            *  EXECUTE TABLE ENTRY EQUALS TWO WORDS
      882                            *   SECOND WORD CONTAINS ADDRESS OF BASE WORD FOR START OF LOOP
      883                            *
      884   01 00335    35F00025 A   ZRPTRN   STW,R15  ZRPLNK
      885   01 00336    6AF0038D              BAL,R15  ZPLTRN
      886   01 00337    6AF004D2              BAL,R15  ZTST7
      887   01 00338    22C00040 A            LI,R12   X'40'
      888   01 00339    32F00689              LW,R15   ZLBPTR
      889   01 0033A    31F00688              CW,R15   ZLBADR
      890   01 0033B    68300481              BCR,3    ZSNER
      891   01 0033C    32F0065B              LW,R15   ZRPPRO-1
      892   01 0033D    B5F00691              STW,R15  *ZEXPT0
      893   01 0033E    33F00689              MTW,-1   ZLBPTR
      894   01 0033F    B2F00689              LW,R15   *ZLBPTR
      895   01 00340    E8200025 A            BCR,2    *ZRPLNK
      896   01 00341    B5F00692              STW,R15  *ZEXPT1
      897   01 00342    6AF00496              BAL,R15  ZADPTR
      898   01 00343    E8000025 A            B        *ZRPLNK
      899                                     PAGE
      900                            *
      901                            * PERIOD , PLACE MARKER, TRANSLATOR PROCESSOR
      902                            *  LEGAL IF NON-ZERO PLACE MARKER, MARK PLACE IN CONTROL LINE
      903                            *   ILLEGAL IF ZERO PLACE MARKER AND/OR PREVIOUSLY DEFINED
      904                            *     NO EXECUTE TABLE ENTRY, ENTRY TO PLACE MARKER TABLE
      905                            *
      906   01 00344    35F00027 A   ZPDTRN   STW,R15  ZPDLNK
      907   01 00345    6AF004D2              BAL,R15  ZTST7
      908   01 00346    6AF004C5              BAL,R15  ZTST2
      909   01 00347    6AF00356              BAL,R15  ZPMEN
      910   01 00348    E8000027 A            B        *ZPDLNK
      911                            *
      912                            * DELTA TRANSLATOR PROCESSOR
      913                            *  ABSOLUTE TRANSFER REFERENCE TO NON-ZERO PLACE MARKER
      914                            *   LINK RETURN TRANSFER REFERENCE TO ZERO PLACE MARKER
      915                            *     ABSOLUTE TRANSFER EQUALS TWO WORD ENTRY TO EXECUTE TABLE
      916                            *      LINK TRANSFER EQUALS ONE WORD ENTRY TO EXECUTE TABLE
      917                            *
      918   01 00349    35F00028 A   ZASTRN   STW,R15  ZASLNK
      919   01 0034A    6AF004D2              BAL,R15  ZTST7
      920   01 0034B    22F0066F              LI,R15   ZLKAS
      921   01 0034C    B5F00691              STW,R15  *ZEXPT0
      922   01 0034D    33000009 A            MTW,0    R9
      923   01 0034E    68300353              BCR,3    ZASTRN10
      924   01 0034F    32F0066D              LW,R15   ZASPRO-1
      925   01 00350    B5F00691              STW,R15  *ZEXPT0
      926   01 00351    6AF004C5              BAL,R15  ZTST2
      927   01 00352    6AF00355              BAL,R15  ZPMRQ
      928   01 00353    6AF00496     ZASTRN10 BAL,R15  ZADPTR
      929   01 00354    E8000028 A            B        *ZASLNK
      930                                     PAGE
      931                            *
      932                            * PLACE MARKER PROCESSOR FOR PLACE MARKER TABLE
      933                            *  PROCESSES PLACE MARKER ENTRIES AND REQUESTS
      934                            *   ASSUMES R9 CONTAINS BINARY VALUE FOR PLACE MARKER
      935                            *
      936   01 00355    20900800 A   ZPMRQ    AI,R9    X'800'
      937   01 00356    35F00029 A   ZPMEN    STW,R15  ZPMLNK
      938   01 00357    3270068C              LW,X7    ZPMADR
      939   01 00358    3870068D              SW,X7    ZPMPTR
      940   01 00359    6830037C              BCR,3    ZPMEN40
      941   01 0035A    B2BE068D     ZPMEN10  LW,R11   *ZPMPTR,X7
      942   01 0035B    25B0046F A            SAS,R11  -17
      943   01 0035C    21900800 A            CI,R9    X'800'
      944   01 0035D    69400364              BCS,4    ZPMEN20
      945   01 0035E    21B00800 A            CI,R11   X'800'
      946   01 0035F    6940036E              BCS,4    ZPMEN30
      947   01 00360    3190000B A            CW,R9    R11
      948   01 00361    6930037B              BCS,3    ZPMEN40-1
      949   01 00362    22C00031 A            LI,R12   X'31'
      950   01 00363    68000481              B        ZSNER
      951   01 00364    21B00800 A   ZPMEN20  CI,R11   X'800'
      952   01 00365    6940037B              BCS,4    ZPMEN40-1
      953   01 00366    20B00800 A            AI,R11   X'800'
      954   01 00367    3190000B A            CW,R9    R11
      955   01 00368    6930037B              BCS,3    ZPMEN40-1
      956   01 00369    22B1FFFF A            LI,R11   X'1FFFF'
      957   01 0036A    CBBE068D              AND,R11  *ZPMPTR,X7
      958   01 0036B    B5B00692              STW,R11  *ZEXPT1
      959   01 0036C    6AF0049C              BAL,R15  ZTST4
      960   01 0036D    E8000029 A            B        *ZPMLNK
      961   01 0036E    22F003FF A   ZPMEN30  LI,R15   X'3FF'
      962   01 0036F    4BB0000F A            AND,R11  R15
      963   01 00370    3190000B A            CW,R9    R11
      964   01 00371    6930037B              BCS,3    ZPMEN40-1
      965   01 00372    33F0002D A            MTW,-1   ZUDFPM
      966   01 00373    B2FE068D              LW,R15   *ZPMPTR,X7
      967   01 00374    32B00691              LW,R11   ZEXPT0
      968   01 00375    B5B0000F A            STW,R11  *R15
      969   01 00376    33F0068D              MTW,-1   ZPMPTR
      970   01 00377    B2B0068D              LW,R11   *ZPMPTR
      971   01 00378    33100007 A            MTW,1    X7
      972   01 00379    B5BE068D              STW,R11  *ZPMPTR,X7
      973   01 0037A    68000357              B        ZPMEN+1
      974   01 0037B    6570035A              BIR,X7   ZPMEN10
      975   01 0037C    21900800 A   ZPMEN40  CI,R9    X'800'
      976   01 0037D    69400381              BCS,4    %+4
      977   01 0037E    25900411 A            SAS,R9   17
      978   01 0037F    49900691              OR,R9    ZEXPT0
      979   01 00380    68000385              B        %+5
      980   01 00381    3310002D A            MTW,1    ZUDFPM
      981   01 00382    25900411 A            SAS,R9   17
      982   01 00383    49900692              OR,R9    ZEXPT1
      983   01 00384    6AF0049C              BAL,R15  ZTST4
      984   01 00385    B590068D              STW,R9   *ZPMPTR
      985   01 00386    22C00030 A            LI,R12   X'30'
      986   01 00387    32B0068D              LW,R11   ZPMPTR
      987   01 00388    3310000B A            MTW,1    R11
      988   01 00389    31B0068E              CW,R11   ZMFRIOAD
      989   01 0038A    69200481              BCS,2    ZSNER
      990   01 0038B    35B0068D              STW,R11  ZPMPTR
      991   01 0038C    E8000029 A            B        *ZPMLNK
      992                                     PAGE
      993                            *
      994                            * FIELD SEPARATORS,SPACE,PLUS,NEW LINE,ETC.
      995                            *  PROCESSES LEADING DECIMAL RE-ITERATION COUNT OR PLACE MARKER
      996                            *   IDENTIFIER FIELD FOR CALLED SUB-ROUTINE
      997                            *    PROCESSES TRAILING PARAMETERS FOR SUB-ROUTINES
      998                            *
      999   01 0038D    33000008 A   ZPLTRN   MTW,0    R8
     1000   01 0038E    683004CB              BCR,3    ZTST3
     1001   01 0038F    35F0002C A            STW,R15  ZPLLNK
     1002   01 00390    227FFFE2 A            LI,X7    -ZSRLEN
     1003   01 00391    318E0702              CW,R8    ZSRTBL,X7
     1004   01 00392    68300396              BCR,3    ZPLTRN20
     1005   01 00393    65700391              BIR,X7   %-2
     1006   01 00394    22C00050 A            LI,R12   X'50'
     1007   01 00395    68000481              B        ZSNER
     1008   01 00396    32BE0720     ZPLTRN20 LW,R11   ZSRADR,X7
     1009   01 00397    B5B00691              STW,R11  *ZEXPT0
     1010   01 00398    F2C00691              LB,R12   *ZEXPT0
     1011   01 00399    4BC00003 A            AND,R12  R3
     1012   01 0039A    683002C9              BCR,3    ZTRN50
     1013   01 0039B    3300003D A            MTW,0    ZDSFLG
     1014   01 0039C    693003B1              BCS,3    ZPLTRN30
     1015   01 0039D    22C00051 A            LI,R12   X'51'
     1016   01 0039E    7110000B A            CB,R1    R11
     1017   01 0039F    68400481              BCR,4    ZSNER
     1018   01 003A0    25B00206 A            SCS,R11  6
     1019   01 003A1    25B00402 A            SAS,R11  2
     1020   01 003A2    F5B00691              STB,R11  *ZEXPT0
     1021   01 003A3    6AF004AF              BAL,R15  ZTST1
     1022   01 003A4    6AF003BD              BAL,R15  ZCOTRN
     1023   01 003A5    22F002CA              LI,R15   ZTRN60
     1024   01 003A6    71A002D3              CB,R10   ZMS
     1025   01 003A7    E83002D3              BCR,3    *ZMS
     1026   01 003A8    6AF00496              BAL,R15  ZADPTR
     1027   01 003A9    22800000 A            LI,R8    0
     1028   01 003AA    22900000 A            LI,R9    0
     1029   01 003AB    22F002CA              LI,R15   ZTRN60
     1030   01 003AC    71A002CE              CB,R10   ZFS
     1031   01 003AD    E83002CE              BCR,3    *ZFS
     1032   01 003AE    71A002CD              CB,R10   ZRP
     1033   01 003AF    E83002CD              BCR,3    *ZRP
     1034   01 003B0    E800002C A            B        *ZPLLNK
     1035   01 003B1    22C00052 A   ZPLTRN30 LI,R12   X'52'
     1036   01 003B2    7120000B A            CB,R2    R11
     1037   01 003B3    68400481              BCR,4    ZSNER
     1038   01 003B4    25B00204 A            SCS,R11  4
     1039   01 003B5    25B00404 A            SAS,R11  4
     1040   01 003B6    F5B00691              STB,R11  *ZEXPT0
     1041   01 003B7    6AF004CB              BAL,R15  ZTST3
     1042   01 003B8    6AF003BD              BAL,R15  ZCOTRN
     1043   01 003B9    22F002CA              LI,R15   ZTRN60
     1044   01 003BA    71A002D3              CB,R10   ZMS
     1045   01 003BB    E83002D3              BCR,3    *ZMS
     1046   01 003BC    680002CA              B        ZTRN60
     1047                                     PAGE
     1048                            *
     1049                            * COMMA TRANSLATOR PROCESSOR
     1050                            *  CALLED ONLY BY FIELD SEPARATOR TRANSLATOR PROCESSOR
     1051                            *   PROCESSES ALL SUB-ROUTINE TRAILING PARAMETERS
     1052                            *
     1053   01 003BD    35F0002A A   ZCOTRN   STW,R15  ZCOLNK
     1054   01 003BE    32B00692              LW,R11   ZEXPT1
     1055   01 003BF    35B00030 A            STW,R11  ZPCHK
     1056   01 003C0    35B00031 A            STW,R11  ZPCHK1
     1057   01 003C1    F2B00691              LB,R11   *ZEXPT0
     1058   01 003C2    25B0047C A            SAS,R11  -4
     1059   01 003C3    35B0002F A            STW,R11  ZPCNT
     1060   01 003C4    75B60457              STB,R11  ZPC7M,X3
     1061   01 003C5    D2B20691              LH,R11   *ZEXPT0,X1
     1062   01 003C6    38B0002F A            SW,R11   ZPCNT
     1063   01 003C7    35B0002E A            STW,R11  ZPTY
     1064   01 003C8    22800000 A   ZCOTRN10 LI,R8    0
     1065   01 003C9    22900000 A            LI,R9    0
     1066   01 003CA    B5800692              STW,R8   *ZEXPT1
     1067   01 003CB    F270002E A            LB,R7    *ZPTY
     1068   01 003CC    33F0002F A            MTW,-1   ZPCNT
     1069   01 003CD    691003DF              BCS,1    ZCOTRN50
     1070   01 003CE    71A002D7              CB,R10   ZCO
     1071   01 003CF    683003D6              BCR,3    ZCOTRN30
     1072   01 003D0    71A60457              CB,R10   ZPC7M,X3
     1073   01 003D1    683003D6              BCR,3    ZCOTRN30
     1074   01 003D2    21700008 A            CI,R7    8
     1075   01 003D3    684003D9              BCR,4    ZCOTRN40
     1076   01 003D4    22C00055 A            LI,R12   X'55'
     1077   01 003D5    68000481              B        ZSNER
     1078   01 003D6    2570047C A   ZCOTRN30 SAS,R7   -4
     1079   01 003D7    670E03F2              EXU      ZPRTYP,X7
     1080   01 003D8    B5900692              STW,R9   *ZEXPT1
     1081   01 003D9    3310002E A   ZCOTRN40 MTW,1    ZPTY
     1082   01 003DA    6AF0049C              BAL,R15  ZTST4
     1083   01 003DB    33000009 A            MTW,0    R9
     1084   01 003DC    683003C8              BCR,3    ZCOTRN10
     1085   01 003DD    35B00031 A            STW,R11  ZPCHK1
     1086   01 003DE    680003C8              B        ZCOTRN10
     1087   01 003DF    71A60457     ZCOTRN50 CB,R10   ZPC7M,X3
     1088   01 003E0    693003E2              BCS,3    %+2
     1089   01 003E1    22A00040 A            LI,R10   X'40'
     1090   01 003E2    227FFFF9 A            LI,X7    -ZOPLN2
     1091   01 003E3    32BE02D4              LW,R11   ZOPTB2,X7
     1092   01 003E4    71A0000B A            CB,R10   R11
     1093   01 003E5    683003E9              BCR,3    ZCOTRN60
     1094   01 003E6    657003E3              BIR,X7   %-3
     1095   01 003E7    22C00054 A            LI,R12   X'54'
     1096   01 003E8    68000481              B        ZSNER
     1097   01 003E9    32B00031 A   ZCOTRN60 LW,R11   ZPCHK1
     1098   01 003EA    38B00030 A            SW,R11   ZPCHK
     1099   01 003EB    25B00404 A            SAS,R11  4
     1100   01 003EC    22F0000F A            LI,R15   X'F'
     1101   01 003ED    F2700691              LB,R7    *ZEXPT0
     1102   01 003EE    4B70000F A            AND,R7   R15
     1103   01 003EF    49B00007 A            OR,R11   R7
     1104   01 003F0    F5B00691              STB,R11  *ZEXPT0
     1105   01 003F1    E800002A A            B        *ZCOLNK
     1106                                     PAGE
     1107                            *
     1108                            * VARIABLE ENTRY TABLE TO PARAMETER PROCESSORS
     1109                            *
     1110   01 003F2    6AF00432     ZPRTYP   BAL,R15  ZFNUP
     1111   01 003F3    6AF00435              BAL,R15  ZFN
     1112   01 003F4    6AF00438              BAL,R15  ZFNDTB
     1113   01 003F5    6AF0043E              BAL,R15  ZFOCT
     1114   01 003F6    6AF00441              BAL,R15  ZFH
     1115   01 003F7    6AF00444              BAL,R15  ZPC5
     1116   01 003F8    6AF0044A              BAL,R15  ZPC6
     1117   01 003F9    6AF00450              BAL,R15  ZPC7
     1118                            *
     1119                            * PARAMETER INFORMATION
     1120                            *  PARAMETER DECODE WORD FORMAT
     1121                            *   BIT 0-3    CODE TYPE
     1122                            *       4      ON-PARAMETER REQUIRED
     1123                            *              OFF-PARAMETER NOT REQUIRED
     1124                            *
     1125                            *  CODE TYPE
     1126                            *      0       NUMERIC 0-9 ONLY; STORE WITH ZONE BITS
     1127                            *      1       NUMERIC 0-9 ONLY; STORE WITHOUT ZONE BITS
     1128                            *      2       NUMERIC 0-9 ONLY; CONVERT TO BINARY
     1129                            *      3       NUMERIC 0-7 ONLY, OCTAL
     1130                            *      4       HEXADECIMAL 0-9 A-F; STORE AS BINARY VALUE
     1131                            *      5       ALPHABETIC ONLY A-Z
     1132                            *      6       ALPHA-NUMERIC ONLY A-Z 0-9
     1133                            *      7       ANY CHARACTER; FIRST CHARACTER REPRESENTS
     1134                            *               TERMINATOR, BOTH NOT PUTAWAY
     1135                            *
     1136                                     PAGE
     1137                            *
     1138                            * FORWARD SLASH TRANSLATOR PROCESSOR, TERMINATE CONTROL
     1139                            *  EXECUTE TABLE ENTRY EQUALS TWO WORDS
     1140                            *   VERFIES ALL LOOPS AND PLACE MARKER REQUESTS PROCESSED
     1141                            *    VERFIES LAST DIRECTIVE PROCESSED
     1142                            *     SAVES THIS ENTRY LOCATION FOR POSSIBLE EXTEND OR PATCH
     1143                            *
     1144   01 003FA    35F0002B A   ZFSTRN   STW,R15  ZFSLNK
     1145   01 003FB    6AF0038D              BAL,R15  ZPLTRN
     1146   01 003FC    3300003D A            MTW,0    ZDSFLG
     1147   01 003FD    E930002B A            BCS,3    *ZFSLNK
     1148   01 003FE    32B00669              LW,R11   ZFSPRO-1
     1149   01 003FF    B5B00691              STW,R11  *ZEXPT0
     1150   01 00400    22C00101 A            LI,R12   X'101'
     1151   01 00401    32B00FC3              LW,R11   ZEXADR
     1152   01 00402    31B00691              CW,R11   ZEXPT0
     1153   01 00403    68300481              BCR,3    ZSNER
     1154   01 00404    B5B00692              STW,R11  *ZEXPT1
     1155   01 00405    22C00041 A            LI,R12   X'41'
     1156   01 00406    32B00689              LW,R11   ZLBPTR
     1157   01 00407    31B00688              CW,R11   ZLBADR
     1158   01 00408    69200481              BCS,2    ZSNER
     1159   01 00409    33000009 A            MTW,0    R9
     1160   01 0040A    6830040D              BCR,3    %+3
     1161   01 0040B    6AF004C5              BAL,R15  ZTST2
     1162   01 0040C    6AF00355              BAL,R15  ZPMRQ
     1163   01 0040D    22C00032 A            LI,R12   X'32'
     1164   01 0040E    3300002D A            MTW,0    ZUDFPM
     1165   01 0040F    69200481              BCS,2    ZSNER
     1166   01 00410    32B00691              LW,R11   ZEXPT0
     1167   01 00411    6AF0049A              BAL,R15  ZSTPTR
     1168   01 00412    B2B0000B A            LW,R11   *R11
     1169   01 00413    55B20666              STH,R11  ZGOPTR,X1
     1170   01 00414    52C2045E              LH,R12   ZMFRX7,X1
     1171   01 00415    55C2045F              STH,R12  ZMFRNBA,X1
     1172   01 00416    32C002CC              LW,R12   ZTRN100
     1173   01 00417    6AF005C5              BAL,R15  ZTMNCR
     1174   01 00418    68000620              B        ZEX00
     1175                                     PAGE
     1176                            *
     1177                            * COMMON FETCH ROUTINE PARAMETERIZED BY ONE WORD FOLLOWING CALL
     1178                            *  LINK IN R14 AND LINK RETURN IN R15 TO FETCH WITHIN LIMITS
     1179                            *   REGISTER-MINIMUM-MAXIMUM-SHIFT
     1180                            *
     1181   01 00419    35E00035 A   ZCFR     STW,R14  ZCFRCA
     1182   01 0041A    35F00034 A            STW,R15  ZCFRLNK
     1183   01 0041B    6AF0045B              BAL,R15  ZFOC
     1184   01 0041C    F1A20035 A            CB,R10   *ZCFRCA,X1
     1185   01 0041D    E9100034 A            BCS,1    *ZCFRLNK
     1186   01 0041E    F1A40035 A            CB,R10   *ZCFRCA,X2
     1187   01 0041F    E9200034 A            BCS,2    *ZCFRLNK
     1188   01 00420    22F00443              LI,R15   ZFH+2
     1189   01 00421    31F00035 A            CW,R15   ZCFRCA
     1190   01 00422    69300428              BCS,3    %+6
     1191   01 00423    21A000E9 A            CI,R10   X'E9'
     1192   01 00424    69200428              BCS,2    %+4
     1193   01 00425    21A000C6 A            CI,R10   X'C6'
     1194   01 00426    E9200034 A            BCS,2    *ZCFRLNK
     1195   01 00427    20A00009 A            AI,R10   X'9'
     1196   01 00428    32F0000A A            LW,R15   R10
     1197   01 00429    BA700035 A            LCW,X7   *ZCFRCA
     1198   01 0042A    F2E00035 A            LB,R14   *ZCFRCA
     1199   01 0042B    B2E0000E A            LW,R14   *R14
     1200   01 0042C    25FE0200 A            SCS,R15  0,X7
     1201   01 0042D    B2700035 A            LW,X7    *ZCFRCA
     1202   01 0042E    25EE0500 A            SAD,R14  0,X7
     1203   01 0042F    F2F00035 A            LB,R15   *ZCFRCA
     1204   01 00430    B5E0000F A            STW,R14  *R15
     1205   01 00431    6800041B              B        ZCFR+2
     1206                                     PAGE
     1207                            *
     1208                            * FETCH NUMERIC 0-9 UNPACKED ZONE BITS PRESENT
     1209                            *
     1210   01 00432    22900000 A   ZFNUP    LI,R9    0
     1211   01 00433    6AE00419              BAL,R14  ZCFR
     1212   01 00434    09F0F908 A            DATA     X'09F0F908'
     1213                            *
     1214                            * FETCH NUMERIC 0-9 PACKED ZONE BITS NOT PRESENT
     1215                            *
     1216   01 00435    22900000 A   ZFN      LI,R9    0
     1217   01 00436    6AE00419              BAL,R14  ZCFR
     1218   01 00437    09F0F904 A            DATA     X'09F0F904'
     1219                            *
     1220                            * FETCH NUMERIC 0-9 CONVERTED TO BINARY
     1221                            *
     1222   01 00438    35F0052A     ZFNDTB   STW,R15  ZCSRL
     1223   01 00439    6AF00435              BAL,R15  ZFN
     1224   01 0043A    46C00009 A            XW,R12   R9
     1225   01 0043B    6AF004D6              BAL,R15  ZDTB
     1226   01 0043C    46C00009 A            XW,R12   R9
     1227   01 0043D    E800052A              B        *ZCSRL
     1228                            *
     1229                            * FETCH OCTAL 0-7 BINARY VALUE
     1230                            *
     1231   01 0043E    22900000 A   ZFOCT    LI,R9    0
     1232   01 0043F    6AE00419              BAL,R14  ZCFR
     1233   01 00440    09F0F703 A            DATA     X'09F0F703'
     1234                            *
     1235                            * FETCH HEXADECIMAL 0-F BINARY VALUE
     1236                            *
     1237   01 00441    22900000 A   ZFH      LI,R9    0
     1238   01 00442    6AE00419              BAL,R14  ZCFR
     1239   01 00443    09C1F904 A            DATA     X'09C1F904'
     1240                                     PAGE
     1241                            *
     1242                            * FETCH ALPHABETIC A-Z UNPACKED ZONE BITS PRESENT
     1243                            *
     1244   01 00444    22900000 A   ZPC5     LI,R9    0
     1245   01 00445    6AE00419              BAL,R14  ZCFR
     1246   01 00446    09C1E908 A            DATA     X'09C1E908'
     1247   01 00447    22800000 A   ZFA      LI,R8    0
     1248   01 00448    6AE00419              BAL,R14  ZCFR
     1249   01 00449    08C1E908 A            DATA     X'08C1E908'
     1250                            *
     1251                            * FETCH ALPHA -NUMERIC 0-9 A-Z UNPACKED ZONE BITS PRESENT
     1252                            *
     1253   01 0044A    22900000 A   ZPC6     LI,R9    0
     1254   01 0044B    6AE00419              BAL,R14  ZCFR
     1255   01 0044C    09C1F908 A            DATA     X'09C1F908'
     1256   01 0044D    22800000 A   ZFAN     LI,R8    0
     1257   01 0044E    6AE00419              BAL,R14  ZCFR
     1258   01 0044F    08C1F908 A            DATA     X'08C1F908'
     1259                            *
     1260                            * FETCH ANY CHARACTER *SPECIAL APPLICATIONS*
     1261                            *  FIRST CHARACTER REPRESENTS TERMINATOR WITH FIRST AND
     1262                            *   LAST CHARACTER NOT INCLUDED IN BYTE COUNT
     1263                            *
     1264   01 00450    35F00036 A   ZPC7     STW,R15  ZPC7LNK
     1265   01 00451    6AF0045B              BAL,R15  ZFOC
     1266   01 00452    75A60457              STB,R10  ZPC7M,X3
     1267   01 00453    52F2045E              LH,R15   ZMFRX7,X1
     1268   01 00454    B5F00692              STW,R15  *ZEXPT1
     1269   01 00455    6AF0045B              BAL,R15  ZFOC
     1270   01 00456    B2900692              LW,R9    *ZEXPT1
     1271   01 00457    21A00000 A   ZPC7M    CI,R10   0
     1272   01 00458    E8300036 A            BCR,3    *ZPC7LNK
     1273   01 00459    F3100692              MTB,1    *ZEXPT1
     1274   01 0045A    68000455              B        %-5
     1275                                     PAGE
     1276                            *
     1277                            * MAINLINE FETCH ROUTINE VIA TYPEWRITER OR CARD READER
     1278                            *  INPUT CONTROL LINE SYNTAX TO INPUT/OUTPUT AREA
     1279                            *
     1280   01 0045B    35F00037 A   ZFOC     STW,R15  ZMFRLNK
     1281   01 0045C    32A00039 A            LW,R10   ZCHAR
     1282   01 0045D    35A0003A A            STW,R10  ZLSTCH
     1283   01 0045E    22700000 A   ZMFRX7   LI,R7    0
     1284   01 0045F    21700000 A   ZMFRNBA  CI,R7    0
     1285   01 00460    69100479              BCS,1    ZMFRTCBA
     1286   01 00461    5572047E              STH,R7   ZMFRCW0,X1
     1287   01 00462    32A0068F              LW,R10   ZIOADR
     1288   01 00463    25A00402 A            SAS,R10  2
     1289   01 00464    58A2045F              SH,R10   ZMFRNBA,X1
     1290   01 00465    68300480              BCR,3    ZMFRIOF
     1291   01 00466    21A00050 A            CI,R10   80
     1292   01 00467    69100469              BCS,1    %+2
     1293   01 00468    22A00050 A            LI,R10   80
     1294   01 00469    52F2052D              LH,R15   ZDKB+1,X1
     1295   01 0046A    51F20473              CH,R15   ZMFRDA,X1
     1296   01 0046B    6930046D              BCS,3    %+2
     1297   01 0046C    22A00001 A            LI,R10   1
     1298   01 0046D    55A2047F              STH,R10  ZMFRCW1,X1
     1299   01 0046E    50A2045E              AH,R10   ZMFRX7,X1
     1300   01 0046F    55A2045F              STH,R10  ZMFRNBA,X1
     1301   01 00470    CDC00473              TIO,R12  *ZMFRDA
     1302   01 00471    69C00470              BCS,12   %-1
     1303   01 00472    2200023F              LI,R0    DA(ZMFRCW0)
     1304   01 00473    4CC00001 A   ZMFRDA   SIO,R12  1
     1305   01 00474    69C00473              BCS,12   %-1
     1306   01 00475    CDC00473              TIO,R12  *ZMFRDA
     1307   01 00476    72D0000D A            LB,R13   R13
     1308   01 00477    21D00060 A            CI,R13   X'60'
     1309   01 00478    69400475              BCS,4    %-3
     1310   01 00479    72AE0000 A   ZMFRTCBA LB,R10   0,X7
     1311   01 0047A    35A00039 A            STW,R10  ZCHAR
     1312   01 0047B    3310045E              MTW,1    ZMFRX7
     1313   01 0047C    E8000037 A            B        *ZMFRLNK
     1314                                     BOUND 8
     1315   01 0047E    0E0011F8     ZMFRCW0  ZFCP     X'E',BA(%)
     1316   01 0047F    02000001 A   ZMFRCW1  ZFCP     2,1
     1317                                     PAGE
     1318                            *
     1319                            * SYNTAX ERROR REPORTER
     1320                            *
     1321   01 00480    22C00120 A   ZMFRIOF  LI,R12   X'120'
     1322   01 00481    6AF004FF     ZSNER    BAL,R15  ZBTH
     1323   01 00482    25D00208 A            SCS,R13  8
     1324   01 00483    35D00495              STW,R13  ZSNMSG+2
     1325   01 00484    22F00015 A            LI,R15   X'15'
     1326   01 00485    75F60495              STB,R15  ZSNMSG+2,X3
     1327   01 00486    52C2045E              LH,R12   ZMFRX7,X1
     1328   01 00487    55C2045F              STH,R12  ZMFRNBA,X1
     1329   01 00488    32C00492              LW,R12   ZSNERMW
     1330   01 00489    6AF005C8              BAL,R15  ZSML40
     1331   01 0048A    72F00495              LB,R15   ZSNMSG+2
     1332   01 0048B    21F000F0 A            CI,R15   X'F0'
     1333   01 0048C    69200288              BCS,2    ZPC010
     1334   01 0048D    52F20530              LH,R15   ZDCR+1,X1
     1335   01 0048E    51F20473              CH,R15   ZMFRDA,X1
     1336   01 0048F    68300288              BCR,3    ZPC010
     1337   01 00490    22F002CA              LI,R15   ZTRN60
     1338   01 00491    E80002D3              B        *ZMS
     1339   01 00492    100C124C A   ZSNERMW  ZFMW     1,0,12,BA(ZSNMSG)
     1340   01 00493    E2E8D540 A   ZSNMSG   TEXT     'SYN ERR     '
            01 00494    C5D9D940 A
            01 00495    40404040 A
     1341                                     PAGE
     1342                            *
     1343                            * UPDATE EXECUTE TABLE POINTERS TO NEXT ENTRY
     1344                            *  BASED UPON PARAMETER COUNT AND/OR RE-ITERATION COUNT OR
     1345                            *   IDENTIFIER FIELD
     1346                            *
     1347   01 00496    F2B00691     ZADPTR   LB,R11   *ZEXPT0
     1348   01 00497    20B0001C A            AI,R11   X'1C'
     1349   01 00498    25B0047C A            SAS,R11  -4
     1350   01 00499    30B00691              AW,R11   ZEXPT0
     1351                            *
     1352                            * SET EXECUTE TABLE POINTERS FOR BASE WORD AND POSSIBLE
     1353                            *  RE-ITERATION COUNT OR PLACE MARKER ADDRESS FIELD
     1354                            *
     1355   01 0049A    35B00691     ZSTPTR   STW,R11  ZEXPT0
     1356   01 0049B    35B00692              STW,R11  ZEXPT1
     1357                            *
     1358                            * VERIFY EXECUTE TABLE NON-OVERFLOW
     1359                            *
     1360   01 0049C    33100692     ZTST4    MTW,1    ZEXPT1
     1361   01 0049D    32B00692              LW,R11   ZEXPT1
     1362   01 0049E    31B0068A              CW,R11   ZLKADR
     1363   01 0049F    E910000F A            BCS,1    *R15
     1364   01 004A0    22C00100 A            LI,R12   X'100'
     1365   01 004A1    68000481              B        ZSNER
     1366                                     PAGE
     1367                            *
     1368                            * ADVANCE POINTERS AND CLEAR RE-ITERATION COUNT FIELD
     1369                            *  IF EXISTENT IN EXECUTE TABLE ENTRY
     1370                            *
     1371   01 004A2    35F0000E A   ZADCRC   STW,R15  R14
     1372   01 004A3    6AF00496              BAL,R15  ZADPTR
     1373   01 004A4    680004A7              B        %+3
     1374                            *
     1375                            * SET POINTERS AND CLEAR RE-ITERATION COUNT FIELD
     1376                            *  (R11) CONTAINS BASE WORD VALUE
     1377                            *
     1378   01 004A5    35F0000E A   ZSTCRC   STW,R15  R14
     1379   01 004A6    6AF0049A              BAL,R15  ZSTPTR
     1380   01 004A7    32F0000E A            LW,R15   R14
     1381                            *
     1382                            * CLEAR OR RESET RE-ITERATION COUNT FIELD IN EXECUTE TABLE
     1383                            *  ONLY IF RC FIELD IS EXISTENT
     1384                            *
     1385   01 004A8    F2B00691     ZCRC     LB,R11   *ZEXPT0
     1386   01 004A9    21B00008 A            CI,R11   8
     1387   01 004AA    E840000F A            BCR,4    *R15
     1388   01 004AB    D2B00692              LH,R11   *ZEXPT1
     1389   01 004AC    25B00410 A            SAS,R11  16
     1390   01 004AD    B5B00692              STW,R11  *ZEXPT1
     1391   01 004AE    E800000F A            B        *R15
     1392                                     PAGE
     1393                            *
     1394                            * PROCESS LEADING DECIMAL SUB-FIELD ASSUMED BINARY IN R9
     1395                            *  RE-ITERATION COUNT LESS THAN 10K AND GREATER THAN 1
     1396                            *   PLACE MARKER IDENTIFIER LESS THAN 512
     1397                            *
     1398   01 004AF    F2B00691     ZTST1    LB,R11   *ZEXPT0
     1399   01 004B0    21B0000C A            CI,R11   X'C'
     1400   01 004B1    684004CB              BCR,4    ZTST3
     1401   01 004B2    21B00008 A            CI,R11   8
     1402   01 004B3    694004B9              BCS,4    ZTST1A
     1403   01 004B4    33000009 A            MTW,0    R9
     1404   01 004B5    683004BB              BCR,3    ZTST1AA
     1405   01 004B6    219001FF A            CI,R9    511
     1406   01 004B7    692004C9              BCS,2    ZTST2A
     1407   01 004B8    68000355              B        ZPMRQ
     1408   01 004B9    33F00009 A   ZTST1A   MTW,-1   R9
     1409   01 004BA    692004BF              BCS,2    ZTST1B
     1410   01 004BB    22C000F3 A   ZTST1AA  LI,R12   X'F3'
     1411   01 004BC    4BB0000C A            AND,R11  R12
     1412   01 004BD    F5B00691              STB,R11  *ZEXPT0
     1413   01 004BE    E800000F A            B        *R15
     1414   01 004BF    2190270F A   ZTST1B   CI,R9    9999
     1415   01 004C0    692004C9              BCS,2    ZTST2A
     1416   01 004C1    32C00009 A            LW,R12   R9
     1417   01 004C2    25C00410 A            SAS,R12  16
     1418   01 004C3    B5C00692     ZTST1C   STW,R12  *ZEXPT1
     1419   01 004C4    6800049C              B        ZTST4
     1420                                     PAGE
     1421                            *
     1422                            * VERIFIES PLACE MARKER VALUE GREATER THAN ONE
     1423                            *  AND LESS THAN 512 DECIMAL
     1424                            *
     1425   01 004C5    33000009 A   ZTST2    MTW,0    R9
     1426   01 004C6    683004C9              BCR,3    ZTST2A
     1427   01 004C7    21900200 A            CI,R9    X'200'
     1428   01 004C8    E910000F A            BCS,1    *R15
     1429   01 004C9    22C00020 A   ZTST2A   LI,R12   X'20'
     1430   01 004CA    68000481              B        ZSNER
     1431                            *
     1432                            * VERIFY NUMERIC ACCUMULATOR IS EMPTY (ZERO)
     1433                            *
     1434   01 004CB    33000009 A   ZTST3    MTW,0    R9
     1435   01 004CC    E830000F A            BCR,3    *R15
     1436   01 004CD    680004C9              B        ZTST2A
     1437                            *
     1438                            * VERIFY ALPHA ACCUMULATOR EMPTY (ZERO)
     1439                            *
     1440   01 004CE    33000008 A   ZTST6    MTW,0    R8
     1441   01 004CF    E830000F A            BCR,3    *R15
     1442   01 004D0    22C00021 A            LI,R12   X'21'
     1443   01 004D1    68000481              B        ZSNER
     1444                            *
     1445                            * VERIFY TRANSLATOR NOT IN IMMEDIATE MODE
     1446                            *
     1447   01 004D2    3300003D A   ZTST7    MTW,0    ZDSFLG
     1448   01 004D3    E830000F A            BCR,3    *R15
     1449   01 004D4    22C00052 A            LI,R12   X'52'
     1450   01 004D5    68000481              B        ZSNER
     1451                                     PAGE
     1452                            *
     1453                            * DECIMAL TO BINARY CONVERTER FOUR BITS PER DIGIT
     1454                            *  (R12) VALUE TO CONVERT TO R12 AND ZTEMP
     1455                            *   (R15) LINK RETURN VALUE
     1456                            *
     1457   01 004D6    46C0000F A   ZDTB     XW,R12   R15
     1458   01 004D7    35F00693              STW,R15  ZTEMP
     1459   01 004D8    4BF004E8              AND,R15  ZDTB10
     1460   01 004D9    25F0027C A            SCS,R15  -4
     1461   01 004DA    23FFFFFA A            MI,R15   -6
     1462   01 004DB    30F00693              AW,R15   ZTEMP
     1463   01 004DC    35F00693              STW,R15  ZTEMP
     1464   01 004DD    4BF004E9              AND,R15  ZDTB20
     1465   01 004DE    25F00278 A            SCS,R15  -8
     1466   01 004DF    23FFFF64 A            MI,R15   -156
     1467   01 004E0    30F00693              AW,R15   ZTEMP
     1468   01 004E1    35F00693              STW,R15  ZTEMP
     1469   01 004E2    52F0000F A            LH,R15   R15
     1470   01 004E3    23FF2710 A            MI,R15   -55536
     1471   01 004E4    30F00693              AW,R15   ZTEMP
     1472   01 004E5    35F00693              STW,R15  ZTEMP
     1473   01 004E6    46C0000F A            XW,R12   R15
     1474   01 004E7    E800000F A            B        *R15
     1475   01 004E8    F0F0F0F0 A   ZDTB10   DATA     X'F0F0F0F0'
     1476   01 004E9    FF00FF00 A   ZDTB20   DATA     X'FF00FF00'
     1477                                     PAGE
     1478                            *
     1479                            * BINARY TO DECIMAL CONVERTER FOUR BITS PER DIGIT
     1480                            *  (R12) VALUE TO CONVERT TO R12 AND ZTEMP
     1481                            *   (R15) LINK RETURN VALUE
     1482                            *
     1483   01 004EA    35D0052A     ZBTD     STW,R13  ZCSRL
     1484   01 004EB    22D00400 A            LI,R13   X'400'
     1485   01 004EC    46C0000D A            XW,R12   R13
     1486   01 004ED    35C006A5              STW,R12  PX
     1487   01 004EE    22C00000 A            LI,R12   0
     1488   01 004EF    35C00693              STW,R12  ZTEMP
     1489   01 004F0    22C00000 A   ZBTD10   LI,R12   0
     1490   01 004F1    21D0000A A            CI,R13   10
     1491   01 004F2    691004F8              BCS,1    ZBTD20
     1492   01 004F3    36C004FE              DW,R12   ZBTD30
     1493   01 004F4    A5C006A5              S,R12    *PX
     1494   01 004F5    334006A5              MTW,4    PX
     1495   01 004F6    66C00693              AWM,R12  ZTEMP
     1496   01 004F7    680004F0              B        ZBTD10
     1497   01 004F8    32C0052A     ZBTD20   LW,R12   ZCSRL
     1498   01 004F9    46C0000D A            XW,R12   R13
     1499   01 004FA    A5C006A5              S,R12    *PX
     1500   01 004FB    49C00693              OR,R12   ZTEMP
     1501   01 004FC    35C00693              STW,R12  ZTEMP
     1502   01 004FD    E800000F A            B        *R15
     1503   01 004FE    0000000A A   ZBTD30   DATA     10
     1504                                     PAGE
     1505                            *
     1506                            * BINARY TO HEXADECIMAL CONVERTER
     1507                            *  (R12) VALUE TO CONVERT TO R12-R13 AND ZTEMP-ZTEMP1
     1508                            *   (R15) LINK RETURN VALUE
     1509                            *
     1510   01 004FF    3510052A     ZBTH     STW,R1   ZCSRL
     1511   01 00500    221FFFF8 A            LI,X1    -8
     1512   01 00501    22D0000F A            LI,R13   X'F'
     1513   01 00502    25C00304 A            SCD,R12  4
     1514   01 00503    21D000FA A            CI,R13   X'FA'
     1515   01 00504    69100506              BCS,1    %+2
     1516   01 00505    20D000C7 A            AI,R13   X'C7'
     1517   01 00506    75D20695              STB,R13  ZTEMP1+1,X1
     1518   01 00507    65100501              BIR,X1   ZBTH+2
     1519   01 00508    32C00693              LW,R12   ZTEMP
     1520   01 00509    32D00694              LW,R13   ZTEMP1
     1521   01 0050A    3210052A              LW,R1    ZCSRL
     1522   01 0050B    E800000F A            B        *R15
     1523                            *
     1524                            * LEADING ZERO SUPPRESSION ON UNPACKED VALUE
     1525                            *  (R12) CONTAINS VALUE TO SUPPRESS
     1526                            *   (R15) CONTAINS LINK RETURN ADDRESS
     1527                            *
     1528   01 0050C    35F0052A     ZSUP     STW,R15  ZCSRL
     1529   01 0050D    35100693              STW,X1   ZTEMP
     1530   01 0050E    221FFFFC A            LI,X1    -X'4'
     1531   01 0050F    22F000F0 A            LI,R15   X'F0'
     1532   01 00510    71F2000D A            CB,R15   R12+1,X1
     1533   01 00511    69300515              BCS,3    %+4
     1534   01 00512    22F00040 A            LI,R15   X'40'
     1535   01 00513    75F2000D A            STB,R15  R12+1,X1
     1536   01 00514    6510050F              BIR,X1   ZSUP+3
     1537   01 00515    32100693              LW,R1    ZTEMP
     1538   01 00516    35C00693              STW,R12  ZTEMP
     1539   01 00517    E800052A              B        *ZCSRL
     1540                                     PAGE
     1541                            *
     1542                            * DECIMAL ADDER FOUR BITS PER DIGIT
     1543                            *  (R12) CURRENT DECIMAL ADDER VALUE
     1544                            *   (R15) LINK RETURN VALUE
     1545                            *
     1546   01 00518    35100693     ZDECADER STW,R1   ZTEMP
     1547   01 00519    221FFFF8 A            LI,X1    -8
     1548   01 0051A    3310000C A            MTW,1    R12
     1549   01 0051B    21C00008 A            CI,R12   X'8'
     1550   01 0051C    68400520              BCR,4    %+4
     1551   01 0051D    21C00002 A            CI,R12   X'2'
     1552   01 0051E    68400520              BCR,4    %+2
     1553   01 0051F    3360000C A            MTW,6    R12
     1554   01 00520    25C0027C A            SCS,R12  -4
     1555   01 00521    6510051B              BIR,X1   %-6
     1556   01 00522    3210000C A            LW,R1    R12
     1557   01 00523    46100693              XW,R1    ZTEMP
     1558   01 00524    E800000F A            B        *R15
     1559                            *
     1560                            * INITIALIZE COMMON INDEX REGISTERS
     1561                            *
     1562   01 00525    22000000 A   ZSCIR    LI,R0    0
     1563   01 00526    22100001 A            LI,X1    1
     1564   01 00527    22200002 A            LI,X2    2
     1565   01 00528    22300003 A            LI,X3    3
     1566   01 00529    E800000F A            B        *R15
     1567   01 0052A    00000000 A   ZCSRL    PZE
     1568                                     PAGE
     1569                            *
     1570                            * DKB DIRECTIVE ASSIGNING DIRECTIVE INPUT VIA TYPEWRITER
     1571                            *
     1572   01 0052B    40000000 A            DATA     X'40000000'
     1573   01 0052C    6AE00531     ZDKB     BAL,R14  ZKBCRIOA
     1574   01 0052D    00000001 A            DATA     1
     1575                            *
     1576                            * DCR DIRECTIVE ASSIGNING DIRECTIVE INPUT VIA CARD READER
     1577                            *
     1578   01 0052E    40000000 A            DATA     X'40000000'
     1579   01 0052F    6AE00531     ZDCR     BAL,R14  ZKBCRIOA
     1580   01 00530    00000003 A            DATA     3
     1581                            *
     1582                            * PRESERVE TYPEWRITER/CARD READER INPUT/OUTPUT ADDRESS
     1583                            *
     1584   01 00531    22001FFF A   ZKBCRIOA LI,R0    X'1FFF'                                           *CP1
     1585   01 00532    4B000696              AND,R0   P1
     1586   01 00533    B500000E A            STW,R0   *R14
     1587   01 00534    55020473              STH,R0   ZMFRDA,X1
     1588   01 00535    5202045E              LH,R0    ZMFRX7,X1
     1589   01 00536    5502045F              STH,R0   ZMFRNBA,X1
     1590   01 00537    E800000F A            B        *R15
     1591                                     PAGE
     1592                            *
     1593                            * SML DIRECTIVE ASSIGNING MESSAGE LEVELS TO BE REPORTED
     1594                            *
     1595   01 00538    10000000 A            DATA     X'10000000'
     1596   01 00539    32000696     ZSML     LW,R0    P1
     1597   01 0053A    4B000003 A            AND,R0   R3
     1598   01 0053B    550205D3              STH,R0   ZMSGKEY,X1
     1599   01 0053C    E800000F A            B        *R15
     1600                            *
     1601                            * SMD DIRECTIVE ASSIGNING MESSAGES TO TYPEWRITER OR LINE PRINTER
     1602                            *
     1603   01 0053D    40000000 A            DATA     X'40000000'
     1604   01 0053E    22001F7F A   ZSMD     LI,R0    X'1F7F'                                           *CP1
     1605   01 0053F    4B000696              AND,R0   P1
     1606   01 00540    550205EB              STH,R0   ZTWLPO,X1
     1607   01 00541    E800000F A            B        *R15
     1608                                     PAGE
     1609                            *
     1610                            * HLT DIRECTIVE TO IDENTIFY LOCATION IN CONTROL LINE
     1611                            *
     1612   01 00542    10000000 A            DATA     X'10000000'       P1 DECIMAL IDENTIFIER
     1613   01 00543    35F006A4     ZHLT     STW,R15  P15
     1614   01 00544    32C00696              LW,R12   P1
     1615   01 00545    6AF004FF              BAL,R15  ZBTH
     1616   01 00546    35D00551              STW,R13  ZHLTMSG+1
     1617   01 00547    32C0054F              LW,R12   ZHLTMSG-1
     1618   01 00548    02300070 A            LCFI     7
     1619   01 00549    6AF005C9              BAL,R15  ZTWLP
     1620   01 0054A    22F00001 A            LI,R15   1
     1621   01 0054B    4BF00696              AND,R15  P1
     1622   01 0054C    E82206A4              BCR,2    *P15,X1
     1623   01 0054D    2E000000 A            WAIT
     1624   01 0054E    E80206A4              B        *P15,X1
     1625   01 0054F    10081540 A            ZFMW     1,0,8,BA(ZHLTMSG)
     1626   01 00550    C8D3E340 A   ZHLTMSG  TEXT     'HLT XXXX'
            01 00551    E7E7E7E7 A
     1627                                     PAGE
     1628                            *
     1629                            * ALT DIRECTIVE TO ALTER CONTIGUOUS MAIN MEMORY LOCATIONS
     1630                            *
     1631   01 00552    35F0052A     ZALT     STW,R15  ZCSRL
     1632   01 00553    6AF00561              BAL,R15  ZALT10
     1633   01 00554    6AF00441              BAL,R15  ZFH
     1634   01 00555    6AF00561              BAL,R15  ZALT10
     1635   01 00556    22F1FFFF A            LI,R15   X'1FFFF'
     1636   01 00557    4B90000F A            AND,R9   R15
     1637   01 00558    31900687     ZALT05   CW,R9    ZEMS
     1638   01 00559    E920052A              BCS,2    *ZCSRL
     1639   01 0055A    35900693              STW,R9   ZTEMP
     1640   01 0055B    6AF00441              BAL,R15  ZFH
     1641   01 0055C    6AF00561              BAL,R15  ZALT10
     1642   01 0055D    B5900693              STW,R9   *ZTEMP
     1643   01 0055E    33100693              MTW,1    ZTEMP
     1644   01 0055F    32900693              LW,R9    ZTEMP
     1645   01 00560    68000558              B        ZALT05
     1646   01 00561    21A0006B A   ZALT10   CI,R10   X'6B'
     1647   01 00562    E830000F A            BCR,3    *R15
     1648   01 00563    E800052A              B        *ZCSRL
     1649                                     PAGE
     1650                            *
     1651                            * DMP DIRECTIVE TO DUMP CONTINUOUS MAIN MEMORY LOCATIONS
     1652                            *
     1653   01 00564    40000000 A            DATA     X'40000000'
     1654   01 00565    40000000 A            DATA     X'40000000'
     1655   01 00566    40000000 A            DATA     X'40000000'
     1656   01 00567    02300050 A   ZTYP     LCFI     5
     1657   01 00568    6800056D              B        ZDMP+1
     1658   01 00569    40000000 A            DATA     X'40000000'       P1 FIRST
     1659   01 0056A    40000000 A            DATA     X'40000000'       P2  LAST
     1660   01 0056B    40000000 A            DATA     X'40000000'       P3   RELATIVE
     1661   01 0056C    023000D0 A   ZDMP     LCFI     13                MSG. LEV. 1
     1662   01 0056D    740605A2              STCF     ZDMP24+2,X3
     1663   01 0056E    35F006A4              STW,R15  P15
     1664   01 0056F    227FFFFD A            LI,X7    -3                TRUNCATE
     1665   01 00570    32CE0699              LW,R12   P3+1,X7
     1666   01 00571    4BC00687              AND,R12  ZEMS
     1667   01 00572    35CE0699              STW,R12  P3+1,X7           ADDRESSES
     1668   01 00573    65700570              BIR,X7   %-3
     1669   01 00574    6AF00525              BAL,R15  ZSCIR
     1670   01 00575    32D00697              LW,R13   P2
     1671   01 00576    3310000D A            MTW,1    R13
     1672   01 00577    31D00687              CW,R13   ZEMS
     1673   01 00578    6820057A              BCR,2    %+2
     1674   01 00579    33F00697              MTW,-1   P2
     1675   01 0057A    32C00698              LW,R12   P3
     1676   01 0057B    6830057E              BCR,3    %+3
     1677   01 0057C    32000696              LW,R0    P1
     1678   01 0057D    38000698              SW,R0    P3
     1679   01 0057E    35000698              STW,R0   P3
     1680   01 0057F    32C00696     ZDMP10   LW,R12   P1
     1681   01 00580    38C00698              SW,R12   P3
     1682   01 00581    6AF004FF              BAL,R15  ZBTH
     1683   01 00582    22F04040 A            LI,R15   X'4040'
     1684   01 00583    55F0000C A            STH,R15  R12
     1685   01 00584    25C00310 A            SCD,R12  16
     1686   01 00585    35C006A6              STW,R12  ZDMPA
     1687   01 00586    35D006A7              STW,R13  ZDMPA+1
     1688   01 00587    75F006A6              STB,R15  ZDMPA
     1689   01 00588    22700007 A            LI,X7    7                 RESET INDEX
     1690   01 00589    22F00000 A            LI,R15   0                 DUPLICATE
     1691   01 0058A    35F006A3              STW,R15  P14               COUNTER
     1692   01 0058B    B2C00696     ZDMP20   LW,R12   *P1               DUPLICATE
     1693   01 0058C    B1C20696              CW,R12   *P1,X1            WORDS ?
     1694   01 0058D    683005A7              BCR,3    ZDMP30
     1695   01 0058E    330006A3              MTW,0    P14               DUPLICATE
     1696   01 0058F    683005B2              BCR,3    ZDMP40            BLOCK ?
     1697   01 00590    22C00060 A            LI,R12   X'60'
     1698   01 00591    75CE06A6              STB,R12  ZDMPA,X7
     1699   01 00592    32C00696     ZDMP22   LW,R12   P1
     1700   01 00593    38C00698              SW,R12   P3
     1701   01 00594    6AF004FF              BAL,R15  ZBTH
     1702   01 00595    22F04040 A            LI,R15   X'4040'
     1703   01 00596    55F0000C A            STH,R15  R12
     1704   01 00597    25C00310 A            SCD,R12  16
     1705   01 00598    35C006A8              STW,R12  ZDMPA+2
     1706   01 00599    35D006A9              STW,R13  ZDMPA+3
     1707   01 0059A    75F006A8              STB,R15  ZDMPA+2
     1708   01 0059B    B2C00696              LW,R12   *P1               SET DUPLICATE
     1709   01 0059C    6AF004FF              BAL,R15  ZBTH              KEY FOR OUTPUT
     1710   01 0059D    35C006AA              STW,R12  ZDMPA+4
     1711   01 0059E    35D006AB              STW,R13  ZDMPA+5
     1712   01 0059F    22700018 A            LI,R7    24
     1713   01 005A0    757205C4     ZDMP24   STB,R7   ZDMP70,X1
     1714   01 005A1    32C005C4              LW,R12   ZDMP70
     1715   01 005A2    023000E0 A            LCFI     14                MSG LEV 2
     1716   01 005A3    6AF005C9              BAL,R15  ZTWLP
     1717   01 005A4    6AF005C0              BAL,R15  ZDMP50
     1718   01 005A5    6910057F              BCS,1    ZDMP10            DUMP
     1719   01 005A6    E80006A4              B        *P15              COMPLETE ?
     1720   01 005A7    21700007 A   ZDMP30   CI,X7    7
     1721   01 005A8    682005AB              BCR,2    %+3
     1722   01 005A9    33F00696              MTW,-1   P1
     1723   01 005AA    680005A0              B        ZDMP24
     1724   01 005AB    331006A3              MTW,1    P14
     1725   01 005AC    6AF005C0              BAL,R15  ZDMP50
     1726   01 005AD    6910058B              BCS,1    ZDMP20
     1727   01 005AE    33F00696              MTW,-1   P1
     1728   01 005AF    33F006A3              MTW,-1   P14
     1729   01 005B0    69200592              BCS,2    ZDMP22
     1730   01 005B1    B2C00696              LW,R12   *P1
     1731   01 005B2    6AF004FF     ZDMP40   BAL,R15  ZBTH              SET NON-DUPLICATE
     1732   01 005B3    33100007 A            MTW,1    X7                WORD FOR OUTPUT
     1733   01 005B4    226FFFF8 A            LI,X6    -8
     1734   01 005B5    25C00308 A            SCD,R12  8
     1735   01 005B6    75DE06A6              STB,R13  ZDMPA,X7
     1736   01 005B7    33100007 A            MTW,1    X7
     1737   01 005B8    656005B5              BIR,X6   %-3
     1738   01 005B9    22F00040 A            LI,R15   X'40'
     1739   01 005BA    75FE06A6              STB,R15  ZDMPA,X7
     1740   01 005BB    2170004E A            CI,X7    78
     1741   01 005BC    692005A0              BCS,2    ZDMP24
     1742   01 005BD    6AF005C0              BAL,R15  ZDMP50
     1743   01 005BE    6910058B              BCS,1    ZDMP20
     1744   01 005BF    680005A0              B        ZDMP24
     1745   01 005C0    32C00696     ZDMP50   LW,R12   P1
     1746   01 005C1    33100696              MTW,1    P1
     1747   01 005C2    31C00697              CW,R12   P2
     1748   01 005C3    E800000F A            B        *R15
     1749   01 005C4    10001A98 A   ZDMP70   ZFMW     1,0,0,BA(ZDMPA)
     1750                            *
     1751                            * TRANSMIT MESSAGE ONLY IF KEYBOARD INPUT DEVICE
     1752                            *
     1753   01 005C5    52D20530     ZTMNCR   LH,R13   ZDCR+1,X1
     1754   01 005C6    51D20473              CH,R13   ZMFRDA,X1
     1755   01 005C7    E830000F A            BCR,3    *R15
     1756                            *
     1757                            * LOAD CONDITIONS FOR TYPEWRITER ONLY MESSAGE LEVEL 0
     1758                            *
     1759   01 005C8    02300040 A   ZSML40   LCFI     4
     1760                                     PAGE
     1761                            *
     1762                            * COMMON TYPEWRITER/LINE PRINTER OUTPUT ROUTINE
     1763                            *
     1764   01 005C9    E8C0000F A   ZTWLP    BCR,12   *R15
     1765   01 005CA    7400000F A            STCF     R15
     1766   01 005CB    35F0052A              STW,R15  ZCSRL
     1767   01 005CC    6AF00525              BAL,R15  ZSCIR
     1768   01 005CD    72F0052A              LB,R15   ZCSRL
     1769   01 005CE    25F0047C A            SAS,R15  -4
     1770   01 005CF    4BF00003 A            AND,R15  R3
     1771   01 005D0    683005D5              BCR,3    ZTWLP01
     1772   01 005D1    6C000000 A            RD,0     0                                                 *C00
     1773   01 005D2    E910052A              BCS,1    *ZCSRL
     1774   01 005D3    21F00004 A   ZMSGKEY  CI,R15   4
     1775   01 005D4    E920052A              BCS,2    *ZCSRL            SUPPRESSED ?
     1776   01 005D5    55C2061E     ZTWLP01  STH,R12  ZTWLP12,X1
     1777   01 005D6    52C0000C A            LH,R12   R12
     1778   01 005D7    75C6061F              STB,R12  ZTWLP12+1,X3
     1779   01 005D8    72C4000C A            LB,R12   R12,X2
     1780   01 005D9    22D0000F A            LI,R13   15
     1781   01 005DA    4BD0000C A            AND,R13  R12
     1782   01 005DB    25C0047C A            SAS,R12  -4
     1783   01 005DC    75C6061B              STB,R12  ZTWLP10+1,X3
     1784   01 005DD    32C0000C A            LW,R12   R12
     1785   01 005DE    683005E0              BCR,3    %+2
     1786   01 005DF    5502061D              STH,R0   ZTWLP11+1,X1
     1787   01 005E0    50D2061D              AH,R13   ZTWLP11+1,X1
     1788   01 005E1    55D2061D              STH,R13  ZTWLP11+1,X1
     1789   01 005E2    7510061C              STB,R1   ZTWLP11
     1790   01 005E3    32F0052D              LW,R15   ZDKB+1
     1791   01 005E4    72C0052A              LB,R12   ZCSRL
     1792   01 005E5    25C0047A A            SAS,R12  -6
     1793   01 005E6    33F0000C A            MTW,-1   R12
     1794   01 005E7    683005FD              BCR,3    ZTW
     1795   01 005E8    22F00002 A            LI,R15   2
     1796   01 005E9    33F0000C A            MTW,-1   R12
     1797   01 005EA    683005EE              BCR,3    ZLPD
     1798   01 005EB    22F00002 A   ZTWLPO   LI,R15   2
     1799   01 005EC    31F0052D              CW,R15   ZDKB+1
     1800   01 005ED    683005FD              BCR,3    ZTW
     1801   01 005EE    55F20611     ZLPD     STH,R15  ZTWLPA,X1
     1802   01 005EF    2200030E              LI,R0    DA(ZTWLP11)
     1803   01 005F0    72C6061B              LB,R12   ZTWLP10+1,X3
     1804   01 005F1    693005F3              BCS,3    %+2
     1805   01 005F2    22C000A0 A            LI,R12   X'A0'
     1806   01 005F3    33F0000C A            MTW,-1   R12
     1807   01 005F4    683005F9              BCR,3    ZLPD10
     1808   01 005F5    20C000C1 A            AI,R12   X'C1'
     1809   01 005F6    75C00010 A            STB,R12  ZML10
     1810   01 005F7    7516061B              STB,R1   ZTWLP10+1,X3
     1811   01 005F8    2200030D              LI,R0    DA(ZTWLP10)
     1812   01 005F9    72C6061D     ZLPD10   LB,R12   ZTWLP11+1,X3
     1813   01 005FA    693005FC              BCS,3    %+2
     1814   01 005FB    7370061C              MTB,7    ZTWLP11
     1815   01 005FC    68000611              B        ZTWLPA
     1816   01 005FD    55F20611     ZTW      STH,R15  ZTWLPA,X1
     1817   01 005FE    2200030F              LI,R0    DA(ZTWLP12)
     1818   01 005FF    72C6061B              LB,R12   ZTWLP10+1,X3
     1819   01 00600    68300611              BCR,3    ZTWLPA
     1820   01 00601    7370061C              MTB,7    ZTWLP11
     1821   01 00602    22F00015 A            LI,R15   X'15'
     1822   01 00603    22100000 A            LI,R1    0
     1823   01 00604    75F20010 A            STB,R15  ZML10,X1
     1824   01 00605    33100001 A            MTW,1    R1
     1825   01 00606    64C00604              BDR,R12  %-2
     1826   01 00607    22F00040 A            LI,R15   X'40'
     1827   01 00608    72C6061D              LB,R12   ZTWLP11+1,X3
     1828   01 00609    6830060F              BCR,3    ZTW10
     1829   01 0060A    4BC005C9              AND,R12  ZTWLP
     1830   01 0060B    7316061B              MTB,1    ZTWLP10+1,X3
     1831   01 0060C    75F20010 A            STB,R15  ZML10,X1
     1832   01 0060D    33100001 A            MTW,1    R1
     1833   01 0060E    64C0060B              BDR,R12  %-3
     1834   01 0060F    22100001 A   ZTW10    LI,R1    1
     1835   01 00610    2200030D              LI,R0    DA(ZTWLP10)
     1836   01 00611    4CC00001 A   ZTWLPA   SIO,R12  1
     1837   01 00612    69C00611              BCS,12   %-1
     1838   01 00613    CDC00611              TIO,R12  *ZTWLPA
     1839   01 00614    69C00613              BCS,12   %-1
     1840   01 00615    5202061F              LH,R0    ZTWLP12+1,X1
     1841   01 00616    5002061D              AH,R0    ZTWLP11+1,X1
     1842   01 00617    5502061D              STH,R0   ZTWLP11+1,X1
     1843   01 00618    E800052A              B        *ZCSRL
     1844                                     BOUND 8
     1845   01 0061A    05000040 A   ZTWLP10  ZFCP     5,X'40'
     1846   01 0061B    80000000 A            ZFCP     X'80',0
     1847   01 0061C    0000030F     ZTWLP11  DATA     DA(ZTWLP12)
     1848   01 0061D    81000000 A            ZFCP     X'81',0
     1849   01 0061E    01000000 A   ZTWLP12  ZFCP     1,0
     1850   01 0061F    00000000 A            DATA     0
     1851                                     PAGE
     1852                            *
     1853                            * THIS SECTION OF CODE COMPRISES THE EXECUTIVE PROGRAM
     1854                            *  EXECUTION OF SPECIFIED SUB-ROUTINES WHICH EXIST IN EXTBL
     1855                            *
     1856   01 00620    B2B00692     ZEX00    LW,R11   *ZEXPT1
     1857   01 00621    6AF004A5              BAL,R15  ZSTCRC
     1858   01 00622    6AF00525     ZEX01    BAL,R15  ZSCIR
     1859   01 00623    6AF0062D              BAL,R15  ZMPTWA
     1860   01 00624    22F00010 A            LI,15    1**4
     1861   01 00625    6DF01200 A            WD,15    (1,X'200')        ARM AND ENABLE C P  INTERRUPT
     1862   01 00626    02000000 A            NOP
     1863   01 00627    02000000 A            NOP
     1864   01 00628    02000000 A            NOP
     1865   01 00629    B2F00691              LW,R15   *ZEXPT0
     1866   01 0062A    EAF0000F A            BAL,R15  *R15
     1867                            *
     1868                            * SUBROUTINES RETURN CONTROL HERE
     1869                            *
     1870   01 0062B    68000641              B        ZRETN1            NORMAL
     1871   01 0062C    6800064C              B        ZRETN2            ABORT/CONDITIONAL
     1872                                     PAGE
     1873                            *
     1874                            * MOVE PARAMETERS TO LABELED WORK AREA P1-P15
     1875                            *
     1876   01 0062D    F2B00691     ZMPTWA   LB,R11   *ZEXPT0
     1877   01 0062E    22C00000 A            LI,R12   0
     1878   01 0062F    21B00008 A            CI,R11   8
     1879   01 00630    68400632              BCR,4    %+2
     1880   01 00631    D2C20692              LH,R12   *ZEXPT1,X1
     1881   01 00632    35C0003C A            STW,R12  ZFTF
     1882   01 00633    32E00692              LW,R14   ZEXPT1
     1883   01 00634    21B0000C A            CI,R11   X'C'
     1884   01 00635    68400637              BCR,4    %+2
     1885   01 00636    3310000E A            MTW,1    R14
     1886   01 00637    25B0047C A            SAS,R11  -4
     1887   01 00638    227FFFF1 A            LI,X7    -15
     1888   01 00639    22C00000 A            LI,R12   0
     1889   01 0063A    33F0000B A            MTW,-1   R11
     1890   01 0063B    6910063E              BCS,1    %+3
     1891   01 0063C    B2C0000E A            LW,R12   *R14
     1892   01 0063D    3310000E A            MTW,1    R14
     1893   01 0063E    35CE06A5              STW,R12  P15+1,X7
     1894   01 0063F    65700639              BIR,X7   %-6
     1895   01 00640    E800000F A            B        *R15
     1896                                     PAGE
     1897                            *
     1898                            * NORMAL RETURN ONE
     1899                            *
     1900   01 00641    6AF00525     ZRETN1   BAL,R15  ZSCIR
     1901   01 00642    6AF00653              BAL,R15  ZBPT1
     1902   01 00643    F2B00691              LB,R11   *ZEXPT0
     1903   01 00644    21B00008 A            CI,R11   8
     1904   01 00645    6840064A              BCR,4    ZRETN1A
     1905   01 00646    B3100692              MTW,1    *ZEXPT1
     1906   01 00647    D2B20692              LH,R11   *ZEXPT1,X1
     1907   01 00648    D1B00692              CH,R11   *ZEXPT1
     1908   01 00649    68200622              BCR,2    ZEX01
     1909   01 0064A    6AF004A2     ZRETN1A  BAL,R15  ZADCRC
     1910   01 0064B    68000622              B        ZEX01
     1911                            *
     1912                            * ABORT AND/OR CONDITIONAL RETURN
     1913                            *
     1914   01 0064C    6AF00525     ZRETN2   BAL,R15  ZSCIR
     1915   01 0064D    6AF00653              BAL,R15  ZBPT1
     1916   01 0064E    F2B00691              LB,R11   *ZEXPT0
     1917   01 0064F    21B00004 A            CI,R11   4
     1918   01 00650    6840064A              BCR,4    ZRETN1A
     1919   01 00651    22F00620              LI,R15   ZEX00
     1920   01 00652    68000677              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 00653    6C000000 A   ZBPT1    RD,0     0                                                 *C00
     1928   01 00654    E880000F A            BCR,8    *R15
     1929                            *
     1930                            * CONSOLE INTERRUPT INITIATED BY OPERATOR
     1931                            *  STOP EXECUTION OF DIRECTIVES RETURN FOR DIRECTIVE INPUT
     1932                            *
     1933   01 00655    22F00030 A   ZCONINT  LI,R15   X'30'
     1934   01 00656    02000000 A            NOP
     1935   01 00657    02000000 A            NOP
     1936   01 00658    CF000611              HIO,R0   *ZTWLPA
     1937   01 00659    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 0065A    0800064A 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 0065B    0400065C A            ZFST2    0,1,0,ZRPPRO
     1952   01 0065C    B2C00692     ZRPPRO   LW,R12   *ZEXPT1
     1953   01 0065D    3310000C A            MTW,1    R12
     1954   01 0065E    B310000C A            MTW,1    *R12
     1955   01 0065F    D2B2000C A            LH,R11   *R12,X1
     1956   01 00660    D1B0000C A            CH,R11   *R12
     1957   01 00661    6920064A              BCS,2    ZRETN1A
     1958   01 00662    B2B00692              LW,R11   *ZEXPT1
     1959   01 00663    35B00691              STW,R11  ZEXPT0
     1960   01 00664    6800064A              B        ZRETN1A
     1961                                     PAGE
     1962                            *
     1963                            * GO DIRECTIVE PROCESSOR TO CONTINUE EXECUTION OF DIRECTIVES
     1964                            *
     1965   01 00665    22C00105 A   ZGOPRO   LI,R12   X'105'
     1966   01 00666    22B00000 A   ZGOPTR   LI,R11   0
     1967   01 00667    68300481              BCR,3    ZSNER
     1968   01 00668    68000621              B        ZEX00+1
     1969                            *
     1970                            * END OF LINE PROCESSOR FOR FORWARD SLASH
     1971                            *
     1972   01 00669    0400066A A            ZFST2    0,1,0,ZFSPRO
     1973   01 0066A    6AF00653     ZFSPRO   BAL,R15  ZBPT1
     1974   01 0066B    6AF00677              BAL,R15  ZLKSET
     1975   01 0066C    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 0066D    0400066E A            ZFST2    0,1,0,ZASPRO
     1982   01 0066E    6800066B     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 0066F    22C00111 A   ZLKAS    LI,R12   X'111'
     1990   01 00670    32B0068B              LW,R11   ZLKPTR
     1991   01 00671    31B0068A              CW,R11   ZLKADR
     1992   01 00672    68200481              BCR,2    ZSNER
     1993   01 00673    33F0068B              MTW,-1   ZLKPTR
     1994   01 00674    B2B0068B              LW,R11   *ZLKPTR
     1995   01 00675    35B00691              STW,R11  ZEXPT0
     1996   01 00676    6800064A              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 00677    32C0068B     ZLKSET   LW,R12   ZLKPTR
     2003   01 00678    32B00691              LW,R11   ZEXPT0
     2004   01 00679    33F0000C A            MTW,-1   R12
     2005   01 0067A    31C0068A              CW,R12   ZLKADR
     2006   01 0067B    6910067F              BCS,1    %+4
     2007   01 0067C    B1B0000C A            CW,R11   *R12
     2008   01 0067D    69300679              BCS,3    %-4
     2009   01 0067E    35C0068B              STW,R12  ZLKPTR
     2010   01 0067F    22C00110 A            LI,R12   X'110'
     2011   01 00680    32D0068B              LW,R13   ZLKPTR
     2012   01 00681    3310000D A            MTW,1    R13
     2013   01 00682    31D0068C              CW,R13   ZPMADR
     2014   01 00683    69200481              BCS,2    ZSNER
     2015   01 00684    B5B0068B              STW,R11  *ZLKPTR
     2016   01 00685    3310068B              MTW,1    ZLKPTR
     2017   01 00686    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 00687    00020FFF A   ZEMS     DATA     X'20FFF'          LAST MEMORY LOCATION
     2028                                     BOUND 8
     2029   01 00688    0E0006CC     ZCMS     LPSD,0   ZCMST40+2
     2030   01 00689    32A00687              LW,R10   ZEMS
     2031   01 0068A    38A006C7              SW,R10   ZCMS6
     2032   01 0068B    35A00687              STW,R10  ZEMS
     2033   01 0068C    B5A0000A A            STW,R10  *R10
     2034   01 0068D    3310000A A            MTW,1    R10
     2035   01 0068E    25A00478 A            SAS,R10  -8
     2036   01 0068F    35A0000B A            STW,R10  R11
     2037   01 00690    32C00FC3              LW,12    ZEXADR            SAVE 16 LOCATIONS PER 1K OF MEMORY
     2038   01 00691    35C00688              STW,12   ZLBADR             STARTING AT END OF LITERAL TABLE
     2039   01 00692    35C00689              STW,12   ZLBPTR              FOR LOOP ADDRESSES.  THIS TABLE
     2040   01 00693    66A00FC3              AWM,R10  ZEXADR               IS LAST 64 LOCATIONS OF MEMORY
     2041                            *                                       STANDARD DCP.
     2042   01 00694    25A00403 A            SAS,R10  3
     2043   01 00695    35A0068F              STW,R10  ZIOADR
     2044   01 00696    30A00FC3              AW,R10   ZEXADR
     2045   01 00697    35A0068E              STW,R10  ZMFRIOAD
     2046   01 00698    66A0068F              AWM,R10  ZIOADR
     2047   01 00699    38A0000B A            SW,R10   R11
     2048   01 0069A    35A0068C              STW,R10  ZPMADR
     2049   01 0069B    35A0068D              STW,R10  ZPMPTR
     2050   01 0069C    38A0000B A            SW,R10   R11
     2051   01 0069D    35A0068A              STW,R10  ZLKADR
     2052   01 0069E    35A0068B              STW,R10  ZLKPTR
     2053   01 0069F    32A00687              LW,R10   ZEMS
     2054   01 006A0    38A0068F              SW,R10   ZIOADR
     2055   01 006A1    35A00690              STW,R10  ZIOWDS
     2056   01 006A2    32A006C6              LW,R10   ZCMS5
     2057   01 006A3    35A00040 A            STW,R10  64
     2058   01 006A4    227FFF20 A            LI,X7    -224
     2059   01 006A5    32A0005F              LW,R10   ZIL5F
     2060   01 006A6    35AE0140              STW,R10  ZIL5F+225,X7
     2061   01 006A7    657006A5              BIR,X7   %-2
     2062   01 006A8    6AF00525              BAL,R15  ZSCIR             FORCE IMMEDIATE MODE OPERATION  *CP1
     2063   01 006A9    3500003D A            STW,R0   ZDSFLG                                            *CP1
     2064   01 006AA    22400001 A            LI,R4    1                 CHECK FOR ASR/KSR ADDRESS       *CP1
     2065   01 006AB    3540052D              STW,R4   ZDKB+1              SET UP ASR/KSR ADDRESS        *CP1
     2066   01 006AC    554205EB              STH,R4   ZTWLPO,X1                                         *CP1
     2067   01 006AD    55420473              STH,R4   ZMFRDA,X1                                         *CP1
     2068   01 006AE    CF00052D              HIO,0    *ZDKB+1             CHECK FOR ADDRESS RECOGNITION *CP1
     2069   01 006AF    688006B3              BCR,8    %+4                   VALID ADDRESS               *CP1
     2070   01 006B0    2E000000 A            WAIT                         INVALID ADDRESS               *CP1
     2071                            *                                       WAIT FOR OPERATOR TO ENTER  *CP1
     2072                            *                                       R4 WITH CORRECT ADDRESS     *CP1
     2073   01 006B1    4B400FCA              AND,R4   =X'1FFF'          MASK ADDRESS                    *CP1
     2074   01 006B2    680006AB              B        %-7                                               *CP1
     2075   01 006B3    32B00FC3              LW,R11   ZEXADR
     2076   01 006B4    6AF0049A              BAL,R15  ZSTPTR
     2077   01 006B5    32F006D4              LW,15    LBRXPSD           SET TRAP LOC                    *D02
     2078   01 006B6    35F00040 A            STW,15   X'40'                 FOR SIGMA  TEST             *D02
     2079   01 006B7    27AE06CA              GEN,8,4,3,17  X'27',10,7,ZCMST40 THIS IS A LBR,10 ZCMS8 INS*D02
     2080   01 006B8    22A000E3 A            LI,10    'T'                   T = NON-TAURUS              *D02
     2081   01 006B9    680006C0              B        ZCMS4                                             *D02
     2082   01 006BA    32F006CE     ZCMS2    LW,15    LRAXPSD           SET TRAP LOC                    *D02
     2083   01 006BB    35F00040 A            STW,15   X'40'                 FOR SIG 9 TEST              *D02
     2084   01 006BC    20A00688              GEN,8,4,20  X'20',10,ZCMS  THIS IS A LRA,10 ZCMS INSTR     *D02
     2085   01 006BD    22A00001 A            LI,10    1                 1 = SIG 8/9                     *D02
     2086   01 006BE    680006C0              B        ZCMS4                                             *D02
     2087   01 006BF    22A00000 A   ZCMS3    LI,10    0                 0 = SIG 5/7                     *D02
     2088   01 006C0    35A0003E A   ZCMS4    STW,10   ZSIG9             SET MACHINE TYPE INDICATOR      *D02
     2089                            *                                   SIGMA 9 FLAG = 1 FOR SIGMA 9    *CP1
     2090                            *                                   SIGMA 9 FLAG = 0 FOR SIGMA 5/7  *CP1
     2091   01 006C1    6D000040 A            WD,R0    X'40'             RESET ALARM INDICATOR           *CP1
     2092   01 006C2    32C00F00              LW,12    MW00
     2093   01 006C3    6AF005C8              BAL,15   ZSML40            PRINT HEADER MESSAGE            *CP1
     2094         01 006C4           REVBRNCH EQU      %                 PRINT REVISION MESSAGE          *CP1
     2095         00000000                    DO       REVCOUNT=0                                        *CP1
     2096                        *S*          NOP                                                        *CP1
     2097                                     ELSE                                                       *CP1
     2098   01 006C4    6AF01062 02           BAL,15   REVPRINT                                          *CP1
     2099                                     FIN                                                        *CP1
     2100                            *
     2101   01 006C5    68000720              B        INITSE            INITIALIZE 'DSC'                *CP1
     2102                            *
     2103                            *
     2104   01 006C6    0F000150     ZCMS5    XPSD,0   ZT40
     2105   01 006C7    00001000 A   ZCMS6    DATA     X'1000'
     2106   01 006C8    00800000 A   ZCMS7    DATA     X'00800000'       MASK FOR MODE ALTERED BIT       *CP1
     2107                                     BOUND    8
     2108   01 006CA    00000000 A   ZCMST40  DATA     0
     2109   01 006CB    00000000 A            DATA     0
     2110   01 006CC    00000689              DATA     ZCMS+1
     2111   01 006CD    00000000 A            DATA     0
     2112   01 006CE    0F0006D0     LRAXPSD  XPSD,0   LRAXPSD1                                          *D02
     2113                                     BOUND    8                                                 *D02
     2114   01 006D0                 LRAXPSD1 RES      2                                                 *D02
     2115   01 006D2    000006BF              DATA     ZCMS3                                             *D02
     2116   01 006D3    00000000 A            DATA     0                                                 *D02
     2117   01 006D4    0F0006D6     LBRXPSD  XPSD,0   LBRXPSD1                                          *D02
     2118                                     BOUND    8                                                 *D02
     2119   01 006D6                 LBRXPSD1 RES      2                                                 *D02
     2120   01 006D8    000006BA              DATA     ZCMS2                                             *D02
     2121   01 006D9    00000000 A            DATA     0                                                 *D02
     2122                                     PAGE
     2123                            *
     2124                            * EQUATE STATEMENTS TO OVERLAY CODE FOR COMPUTING MEMORY SIZE
     2125                            *  AND ASSIGNING LENGTH AND BASE ADDRESSES FOR TABLES ETC
     2126                            *
     2127         01 00688           ZLBADR   EQU      ZCMS              OPEN LOOP ADDRESS
     2128         01 00689           ZLBPTR   EQU      ZLBADR+1          AND POINTER
     2129         01 0068A           ZLKADR   EQU      ZLBPTR+1          LINK TABLE ADDRESS
     2130         01 0068B           ZLKPTR   EQU      ZLKADR+1          AND POINTER
     2131         01 0068C           ZPMADR   EQU      ZLKPTR+1          PLACE MARKER ADDRESS
     2132         01 0068D           ZPMPTR   EQU      ZPMADR+1          AND POINTER
     2133         01 0068E           ZMFRIOAD EQU      ZPMPTR+1          MAIN FETCH INPUT/OUTPUT ADDRESS
     2134         01 0068F           ZIOADR   EQU      ZMFRIOAD+1        INPUT/OUTPUT BASE ADDRESS
     2135         01 00690           ZIOWDS   EQU      ZIOADR+1          AND NUMBER OF WORDS
     2136         01 00691           ZEXPT0   EQU      ZIOWDS+1          EXECUTE TABLE BASE
     2137         01 00692           ZEXPT1   EQU      ZEXPT0+1          AND VARIABLE POINTERS
     2138         01 00693           ZTEMP    EQU      ZEXPT1+1          TEMPORARY
     2139         01 00694           ZTEMP1   EQU      ZTEMP+1           LOCATIONS
     2140         01 00695           P0       EQU      ZTEMP1+1
     2141         01 00696           P1       EQU      P0+1              LABELED
     2142         01 00697           P2       EQU      P1+1              PARAMETER
     2143         01 00698           P3       EQU      P2+1              AREA FOR
     2144         01 00699           P4       EQU      P3+1              SUBROUTINES
     2145         01 0069A           P5       EQU      P4+1
     2146         01 0069B           P6       EQU      P5+1
     2147         01 0069C           P7       EQU      P6+1
     2148         01 0069D           P8       EQU      P7+1
     2149         01 0069E           P9       EQU      P8+1
     2150         01 0069F           P10      EQU      P9+1
     2151         01 006A0           P11      EQU      P10+1
     2152         01 006A1           P12      EQU      P11+1
     2153         01 006A2           P13      EQU      P12+1
     2154         01 006A3           P14      EQU      P13+1
     2155         01 006A4           P15      EQU      P14+1
     2156         01 006A5           PX       EQU      P15+1
     2157         01 006A6           ZDMPA    EQU      PX+1                DUMP
     2158   01 006DA                          RES      10                 AREA
     2159                                     PAGE
     2160                            *
     2161                            * SUB-ROUTINE TABLE WITH FORM DIRECTIVE
     2162                            *  TWO WORDS PER SUB-ROUTINE DIVIDED AS FOLLOWS0
     2163                            *   FIRST WORD = MNEMONIC NAME,FOUR ALPHA CHARACTERS MAXIMUM
     2164                            *   SECOND WORD = SUB-ROUTINE INFO AND ENTRY ADDRESS
     2165                            *
     2166         01 006E4           ZSRBEG   EQU      %
     2167   01 006E4    00C3D3D9 A            DATA     X'C3D3D9'         CLR
     2168   01 006E5    D9C5E3D5 A            DATA     X'D9C5E3D5'       RETN
     2169   01 006E6    0000C7D6 A            DATA     X'C7D6'           GO
     2170   01 006E7    00C4D2C2 A            DATA     X'C4D2C2'         DKB
     2171   01 006E8    00C4C3D9 A            DATA     X'C4C3D9'         DCR
     2172   01 006E9    00E2D4D3 A            DATA     X'E2D4D3'         SML
     2173   01 006EA    00E2D4C4 A            DATA     X'E2D4C4'         SMD
     2174   01 006EB    00C1D3E3 A            DATA     X'C1D3E3'         ALT
     2175   01 006EC    00C4D4D7 A            DATA     X'C4D4D7'         DMP
     2176   01 006ED    00E3E8D7 A            DATA     X'E3E8D7'         TYP
     2177   01 006EE    00C8D3E3 A            DATA     X'C8D3E3'         HLT
     2178   01 006EF    C9D5C9E3 A            DATA     C'INIT'
     2179   01 006F0    E3D9C9D6 A            DATA     C'TRIO'
     2180   01 006F1    00C1C9D6 A   AIONAME  DATA     C'AIO'
     2181   01 006F2    00C8C9D6 A            DATA     C'HIO'
     2182   01 006F3    00E2C9D6 A            DATA     C'SIO'
     2183   01 006F4    00E3C4E5 A            DATA     C'TDV'
     2184   01 006F5    00E3C9D6 A            DATA     C'TIO'
     2185   01 006F6    C5D5E5C9 A            DATA     C'ENVI'
     2186   01 006F7    C5D6E3C3 A            DATA     C'EOTC'
     2187   01 006F8    E2E8D5C3 A            DATA     C'SYNC'
     2188   01 006F9    00C4E3D5 A            DATA     C'DTN'
     2189   01 006FA    C4D3C1E8 A            DATA     C'DLAY'
     2190   01 006FB    C4C2E4C6 A            DATA     C'DBUF'
     2191   01 006FC    D4C1D9D2 A            DATA     C'MARK'
     2192   01 006FD    C1D3D9D4 A            DATA     C'ALRM'
     2193   01 006FE    00D7C1E3 A            DATA     C'PAT'
     2194   01 006FF    C3D9E3C4 A            DATA     C'CRTD'
     2195   01 00700    D1D4D7F1 A            DATA     C'JMP1'
     2196   01 00701    D1D4D7F2 A            DATA     C'JMP2'
     2197         01 00702           ZSRTBL   EQU      %
     2198         0000001E           ZSRLEN   EQU      %-ZSRBEG
     2199                                     PAGE
     2200                            *
     2201                            * SUBROUTINE ADDRESS TABLE WITH CONTROL INFORMATION
     2202                            *
     2203                            *  BITS 0-3       PARAMETER COUNT
     2204                            *  BITS 4-5       RE-ITERATION/IDENTIFIER CODE
     2205                            *                 00  NO LEADING DECIMAL SUBFIELD PERMITTED
     2206                            *                 01  PLACE MARKER IDENTIFIER REQUEST
     2207                            *                 10  REITERATION COUNT
     2208                            *                 11  ILLEGAL
     2209                            *  BITS 6-7       EXECUTION MODE KEYS
     2210                            *                 00  UNCONDITIONAL
     2211                            *                 01  CONTROL LINE MODE ONLY
     2212                            *                 10  IMMEDIATE MODE ONLY
     2213                            *                 11  OPTIONAL CONTROL OR IMMEDIATE MODE
     2214                            *  BITS 8-14      RESERVED
     2215                            *  BITS 15-31     SUBROUTINE ADDRESS
     2216                            *
     2217   01 00702    000002A3 A            ZFSAT    0,0,0,0,ZPC200    CLR
     2218   01 00703    03000655 A            ZFSAT    0,0,3,0,ZCONINT   RETN
     2219   01 00704    02000665 A            ZFSAT    0,0,2,0,ZGOPRO    GO
     2220   01 00705    1200052C A            ZFSAT    1,0,2,0,ZDKB      DKB
     2221   01 00706    1200052F A            ZFSAT    1,0,2,0,ZDCR      DCR
     2222   01 00707    13000539 A            ZFSAT    1,0,3,0,ZSML      SML
     2223   01 00708    1300053E A            ZFSAT    1,0,3,0,ZSMD      SMD
     2224   01 00709    00000552 A            ZFSAT    0,0,0,0,ZALT      ALT
     2225   01 0070A    3300056C A            ZFSAT    3,0,3,0,ZDMP      DMP
     2226   01 0070B    33000567 A            ZFSAT    3,0,3,0,ZTYP      TYP
     2227   01 0070C    17000543 A            ZFSAT    1,1,3,0,ZHLT      HLT
     2228   01 0070D    02000720 A            ZFSAT    0,0,2,0,INITSE
     2229   01 0070E    130007B7 A            ZFSAT    1,0,3,0,TRIOSE
     2230   01 0070F    170007BF A            ZFSAT    1,1,3,0,AIOSE
     2231   01 00710    1700082D A            ZFSAT    1,1,3,0,HIOSE
     2232   01 00711    77000846 A            ZFSAT    7,1,3,0,SIOSE
     2233   01 00712    270009EC A            ZFSAT    2,1,3,0,TDVSE
     2234   01 00713    27000A12 A            ZFSAT    2,1,3,0,TIOSE
     2235   01 00714    23000A27 A            ZFSAT    2,0,3,0,ENVISE
     2236   01 00715    33000A82 A            ZFSAT    3,0,3,0,EOTCSE
     2237   01 00716    33000AB5 A            ZFSAT    3,0,3,0,SYNCSE
     2238   01 00717    33000AE6 A            ZFSAT    3,0,3,0,DTNSE
     2239   01 00718    1B000B19 A            ZFSAT    1,2,3,0,DLAYSE
     2240   01 00719    33000B25 A            ZFSAT    3,0,3,0,DBUFSE
     2241   01 0071A    13000B51 A            ZFSAT    1,0,3,0,MARKSE
     2242   01 0071B    13000B58 A            ZFSAT    1,0,3,0,ALRMSE
     2243   01 0071C    23000B60 A            ZFSAT    2,0,3,0,PATSE
     2244   01 0071D    27000C08 A            ZFSAT    2,1,3,0,CRTDSE
     2245   01 0071E    33000394 A            ZFSAT    3,0,3,0,ZPLTRN+7  UNIMPLEMENTED
     2246   01 0071F    33000394 A            ZFSAT    3,0,3,0,ZPLTRN+7   DIRECTIVES
     2247         01 00720           ZSRADR   EQU      %
     2248                                     PAGE
     2249                            *
     2250                            *
     2251                            *        INITIALIZER
     2252                            *
     2253                            *
     2254   01 00720    6D000037 A   INITSE   WD,0     X'37'             SET INTERRUPT INHIBITS
     2255   01 00721    3200073C              LW,0     DSABLINT
     2256   01 00722    3210073D              LW,1     DSARMINT
     2257   01 00723    22FFFFFF A            LI,15    -1
     2258   01 00724    22EFFFF0 A            LI,14    -16
     2259   01 00725    67000000 A            EXU      0                 DISABLE
     2260   01 00726    67000001 A            EXU      1                  AND
     2261   01 00727    20000001 A            AI,0     1                   DISARM
     2262   01 00728    20100001 A            AI,1     1                    ALL
     2263   01 00729    65E00725              BIR,14   %-4                   INTERRUPTS
     2264   01 0072A    02200030 A            LCI      3                 INITIALIZE FOR NORMAL WATCHDOG
     2265   01 0072B    2A400739              LM,4     WDTTRAP            TIMER TRAP THROUGH D-C-P AND SET
     2266   01 0072C    2B400046 A            STM,4    X'46'               UP XPSD'S FOR CALLS
     2267   01 0072D    22000000 A            LI,0     0
     2268   01 0072E    224001DD A            LI,4     ZTABL
     2269   01 0072F    35080CCF              STW,0    ZTAB-1,4          ZERO OUT FLAGS AND
     2270   01 00730    6440072F              BDR,4    %-1                BUFFER AREAS
     2271   01 00731    32400737              LW,4     CLOCKWRD
     2272   01 00732    35400055 A            STW,4    X'55'
     2273   01 00733    32400738              LW,4     CPINTGO
     2274   01 00734    3540005D A            STW,4    X'5D'
     2275   01 00735    6D000027 A            WD,0     X'27'             RESET INTERRUPT INHIBITS
     2276   01 00736    68000288              B        ZPC010
     2277                            *
     2278   01 00737    33100EA8     CLOCKWRD MTW,1    TIME
     2279   01 00738    0F00073E     CPINTGO  XPSD,0   CONSLINT
     2280                            *
     2281                            *
     2282   01 00739    0F000158     WDTTRAP  XPSD,0   ZT46
     2283   01 0073A    0F00017C              XPSD,0   ZCTL              X'47' UNASSIGNED
     2284   01 0073B    0F400C7C              XPSD,4   ABORT             X'48' CALL 1  ABORT MESSAGES
     2285                            *
     2286   01 0073C    6DF01100 A   DSABLINT WD,15    (1,X'100')
     2287   01 0073D    6DF01500 A   DSARMINT WD,15    (1,X'500')
     2288                            *
     2289                            *
     2290                                     BOUND    8
     2291   01 0073E    00000000 A   CONSLINT DATA     0,0
            01 0073F    00000000 A
     2292   01 00740    00000742              DATA     %+2,7**24
            01 00741    07000000 A
     2293   01 00742    02200000 A            LCI      0
     2294   01 00743    2B000786              STM,0    CINTSAVE          SAVE 16 REGISTERS
     2295   01 00744    2A000695              LM,0     P0                SAVE PARAMETER STORAGE
     2296   01 00745    2B000796              STM,0    PRAMSAVE           AREA CONTENTS
     2297   01 00746    6AF00525              BAL,15   ZSCIR             SET ( ) REGISTERS 0,1,2,3 TO 0,1,2,3
     2298   01 00747    31000695              CW,0     P0
     2299   01 00748    6830076F              BCR,3    SHUTDOWN          IMMEDIATE MODE
     2300   01 00749    6C000000 A            RD,0     0
     2301   01 0074A    6860076F              BCR,6    SHUTDOWN
     2302   01 0074B    68100768              BCR,1    CGMSGLVL
     2303   01 0074C    22401000 A            LI,4     1**12
     2304   01 0074D    6D401500 A            WD,4     (1,X'500')        DISABLE REAL TIME CLOCK
     2305   01 0074E    2E000000 A            WAIT           0
     2306   01 0074F    02000DD0              NOP      PATCHLOC
     2307   01 00750    22401000 A            LI,4     1**12
     2308   01 00751    6D401400 A            WD,4     (1,X'400')        ENABLES REAL TIME CLOCK
     2309   01 00752    33000E9A              MTW,0    PMBKEY
     2310   01 00753    68300760              BCR,3    BYPASS
     2311   01 00754    6AF00525              BAL,15   ZSCIR             SET ( ) REGISTERS 0,1,2,3 TO 0,1,2,3
     2312   01 00755    32500000 A            LW,5     0
     2313   01 00756    6C000000 A            RD,0     0
     2314   01 00757    69900760              BCS,9    BYPASS
     2315   01 00758    68600760              BCR,6    BYPASS
     2316   01 00759    6840075C              BCR,4    %+3
     2317   01 0075A    6820075C              BCR,2    %+2
     2318   01 0075B    69600760              BCS,6    BYPASS
     2319   01 0075C    74020005 A            STCF     5,1
     2320   01 0075D    20501000 A            AI,5     4096
     2321   01 0075E    25500273 A            SCS,5    -13
     2322   01 0075F    47500E9A              STS,5    PMBKEY
     2323   01 00760    22000000 A   BYPASS   LI,0     0
     2324   01 00761    35000E9C              STW,0    ENVIFLAG
     2325   01 00762    6AF00A7C              BAL,15   ENVIWDTR
     2326   01 00763    02200000 A            LCI      0
     2327   01 00764    2A000796              LM,0     PRAMSAVE
     2328   01 00765    2B000695              STM,0    P0
     2329   01 00766    2A000786              LM,0     CINTSAVE          RESTORE 16 REGISTERS
     2330   01 00767    0E30073E              LPSD,3   CONSLINT
     2331                            *
     2332                            *
     2333   01 00768    74000004 A   CGMSGLVL STCF     4
     2334   01 00769    25400001 A            SLS,4    1
     2335   01 0076A    25400062 A            SLS,4    -30
     2336   01 0076B    754605D3              STB,4    ZMSGKEY,3
     2337   01 0076C    02200000 A            LCI      0
     2338   01 0076D    2A000786              LM,0     CINTSAVE
     2339   01 0076E    0E30073E              LPSD,3   CONSLINT
     2340                            *
     2341                            *
     2342   01 0076F    6AF00525     SHUTDOWN BAL,15   ZSCIR
     2343   01 00770    CD400473              TIO,4    *ZMFRDA
     2344   01 00771    68C00779              BCR,12   %+8
     2345   01 00772    25400001 A            SLS,4    1                 CONVERT COMMAND ADDRESS TO WORD
     2346   01 00773    55420774              STH,4    %+1,1              ADDRESS, GET
     2347   01 00774    32400000 A            LW,4     0                   COMMAND PAIR FIRST WORD
     2348   01 00775    25400068 A            SLS,4    -24
     2349   01 00776    21400001 A            CI,4     1                 READ ORDER TEST
     2350   01 00777    69400779              BCS,4    %+2
     2351   01 00778    CF000473              HIO,0    *ZMFRDA
     2352   01 00779    CD0005EB              TIO,0    *ZTWLPO
     2353   01 0077A    69400779              BCS,4    %-1               WAIT FOR END OF OUTPUT MESSAGE
     2354   01 0077B    6E400000 A            AIO,4    0
     2355   01 0077C    6880077B              BCR,8    %-1               CLEAR ANY EXISTING I/O INTERRUPTS
     2356   01 0077D    22000000 A            LI,0     0
     2357   01 0077E    35000E9C              STW,0    ENVIFLAG
     2358   01 0077F    6AF00A7C              BAL,15   ENVIWDTR
     2359   01 00780    35000E9A              STW,0    PMBKEY
     2360   01 00781    6D000027 A            WD,0     X'27'
     2361   01 00782    0E300784              LPSD,3   DOWNEXIT          CLEAR INTERRUPT
     2362                                     BOUND    8
     2363   01 00784    00000288     DOWNEXIT DATA     ZPC010            RETURN TO D-C-P
     2364   01 00785    00000000 A            DATA     0
     2365                            *
     2366                            *
     2367   01 00786                 CINTSAVE RES      16
     2368   01 00796                 PRAMSAVE RES      16
     2369                            *
     2370                            *
     2371   01 007A6    33000E9A     INTKEY   MTW,0    PMBKEY
     2372   01 007A7    681007B3              BCR,1    INTKEYNI          NOT INTERRUPTED (CONSOLE INTERRUPT)
     2373   01 007A8    32C00E9A              LW,12    PMBKEY
     2374   01 007A9    B2A0000E A            LW,10    *14               RETURN STORAGE
     2375   01 007AA    B2B0000A A            LW,11    *10               RETURN
     2376   01 007AB    22200002 A            LI,2     2
     2377   01 007AC    71C4000C A            CB,12    12,2
     2378   01 007AD    683007B3              BCR,3    %+6               RETURN DECISION SATISFACTORY
     2379   01 007AE    691007B1              BCS,1    %+3
     2380   01 007AF    20BFFFFF A            AI,11    -1                FORCE RETURN TO NORMAL
     2381   01 007B0    680007B2              B        %+2
     2382   01 007B1    20B00001 A            AI,11    1                 FORCE RETURN TO ABORT (TAKE PMB)
     2383   01 007B2    B5B0000A A            STW,11   *10
     2384   01 007B3    22000000 A   INTKEYNI LI,0     0
     2385   01 007B4    35000E9A              STW,0    PMBKEY
     2386   01 007B5    E800000E A            B        *14
     2387                                     PAGE
     2388                            *
     2389                            *
     2390                            *        PROGRAMMED I/O RESET ROUTINE
     2391                            *
     2392                            *
     2393   01 007B6    20000000 A            DATA     2**28             P1 = RESET PULSE WIDTH
     2394                            *
     2395                            *
     2396   01 007B7    35F00EA7     TRIOSE   STW,15   RETURN
     2397   01 007B8    6D000042 A            WD,0     X'42'             I/O RESET TRUE HERE
     2398   01 007B9    33000696              MTW,0    P1
     2399   01 007BA    683007BC              BCR,3    %+2
     2400   01 007BB    6AF00B19              BAL,15   DLAYSE            TIME DELAY SUBROUTINE
     2401   01 007BC    6D000042 A            WD,0     X'42'             I/O RESET FALSE HERE
     2402   01 007BD    E8000EA7              B        *RETURN
     2403                            *
     2404                            *
     2405                            *
     2406                            *        REQUIRED HARDWARE CONNECTIONS
     2407                            *
     2408                            *
     2409                            *        SIGMA 7   ADD JUMPER 27G21 TO ANY GROUND
     2410                            *
     2411                            *
     2412                            *        SIGMA 5   ADD JUMPER 34C17 TO 36C15
     2413                                     PAGE
     2414                            *
     2415                            *
     2416                            *        AIO ROUTINE
     2417                            *
     2418                            *
     2419   01 007BE    40000000 A            DATA     4**28             P1 = STATUS BYTE SELECT
     2420                            *
     2421                            *
     2422   01 007BF    35F00EA7     AIOSE    STW,15   RETURN
     2423   01 007C0    33100E9A              MTW,1    PMBKEY
     2424   01 007C1    EE400000 A            AIO,4    *0
     2425   01 007C2    698007D5              BCS,8    AIONP
     2426   01 007C3    74000006 A             STCF    6
     2427   01 007C4    35400008 A            STW,4    8                 SAVE FOR ADDRESS DETERMINATION AND
     2428                            *                                    FOR PLACEMARK BRANCH STATUS BYTE
     2429                            *                                     COMPARISON IF P1 IS NON ZERO
     2430   01 007C5    32C006F1              LW,12    AIONAME           TEXT 'AIO'
     2431   01 007C6    6AF007DA               BAL,15  MIOPDM            MAKE IOP DIRECTIVE MESSAGE
     2432   01 007C7    33000696              MTW,0    P1
     2433   01 007C8    683007CE              BCR,3    AIOMO-2           TAKE PLACEMARK BRANCH
     2434   01 007C9    25800168 A            SLD,8    -24               MERGE THREE DEVICE BITS WITH
     2435   01 007CA    2580007B A            SLS,8    -5                 FIRST FIVE IOP STATUS BITS
     2436   01 007CB    25800305 A            SCD,8    5                   TO MAKE ONE BYTE FOR PMB TEST
     2437   01 007CC    31800696              CW,8     P1
     2438   01 007CD    684007D0              BCR,4    AIOMO             NO PLACEMARK BRANCH
     2439   01 007CE    33100E9A              MTW,1    PMBKEY
     2440   01 007CF    66100EA7              AWM,1    RETURN
     2441   01 007D0    32C00F36     AIOMO    LW,12    MW04
     2442   01 007D1    022000F0 A            LCI      15                TW OR LP, MESSAGE LEVEL 3
     2443   01 007D2    6AF005C9              BAL,15   ZTWLP
     2444   01 007D3    6AE007A6              BAL,14   INTKEY
     2445   01 007D4    E8000EA7              B        *RETURN
     2446   01 007D5    32C00F2D     AIONP    LW,12    MW03
     2447   01 007D6    022000F0 A            LCI      15                TW OR LP, MESSAGE LEVEL 3
     2448   01 007D7    6AF005C9              BAL,15   ZTWLP
     2449   01 007D8    6AE007A6              BAL,14   INTKEY
     2450   01 007D9    E8000EA7              B        *RETURN
     2451                                     PAGE
     2452                            *
     2453                            *        ROUTINES TO PUT STATUS BYTES, CC BITS, AND IOP/DC ADDRESS IN
     2454                            *         IOP DIRECTIVE TEXTS
     2455                            *
     2456                            *
     2457                            *        REGISTER 4 CONTAINS STATUS BYTES IN HALFWORD 0
     2458                            *
     2459                            *        REGISTER 6 CONTAINS CONDITION CODES BITS FROM STCF IN BYTE 0
     2460                            *
     2461                            *        REGISTER 8 CONTAINS IOP/DC ADDRESS INFORMATION FOR 'AIO' AND
     2462                            *         'ENVI' DIRECTIVES IN HALFWORD ,1
     2463                            *
     2464   01 007DA    35F006A4     MIOPDM   STW,15   P15
     2465   01 007DB    6AE007E5              BAL,14   FZBWSC
     2466   01 007DC    35C00F38              STW,12   TEXT04
     2467   01 007DD    6AB007EC              BAL,11   STATOUT
     2468   01 007DE    6A5007FE              BAL,5    PDBIT             PUT DEVICE STATUS BYTE IN TEXT04
     2469   01 007DF    32400008 A            LW,4     8
     2470   01 007E0    25400208 A            SCS,4    8
     2471   01 007E1    6AB007EC              BAL,11   STATOUT
     2472   01 007E2    6A500808              BAL,5    PIBIT             PUT CC AND IOP STATUS BYTE IN TEXT04
     2473   01 007E3    6AF00811              BAL,15   ADDCON            PUT ADDRESS DATA IN TEXT04.  THIS IS
     2474                            *                                    SUPERFLUOUS FOR HIO, SIO, TDV, AND
     2475                            *                                     TIO DIRECTIVES.
     2476   01 007E4    E80006A4              B        *P15
     2477                            *
     2478                                     PAGE
     2479                            *
     2480                            *        ROUTINE TO FILL 'ZERO' BYTES WITH EBCDIC SPACE CODE
     2481                            *
     2482                            *
     2483                            *
     2484   01 007E5    225FFFFC A   FZBWSC   LI,5     -4
     2485   01 007E6    25C00208 A            SCS,12   8
     2486   01 007E7    7306000C A            MTB,0    12,3
     2487   01 007E8    692007EA              BCS,2    %+2
     2488   01 007E9    20C00040 A            AI,12    X'40'             'SPACE' CODE
     2489   01 007EA    655007E6              BIR,5    %-4
     2490   01 007EB    E800000E A            B        *14
     2491                                     PAGE
     2492                            *
     2493                            *
     2494                            *        ROUTINES TO CONVERT STATUS BYTE AND CONDITION CODES TO EBCDIC
     2495                            *
     2496                            *
     2497                            *
     2498                            *
     2499   01 007EC    6AD007F4     STATOUT  BAL,13   CONVERT
     2500   01 007ED    3550000C A            STW,5    12
     2501   01 007EE    6AD007F4              BAL,13   CONVERT
     2502   01 007EF    3550000A A            STW,5    10
     2503   01 007F0    32400006 A            LW,4     6
     2504   01 007F1    6AD007F4              BAL,13   CONVERT
     2505   01 007F2    3550000E A            STW,5    14
     2506   01 007F3    E800000B A            B        *11
     2507                            *
     2508                            *
     2509                            *
     2510                            *
     2511                            *
     2512                            *
     2513   01 007F4    22500000 A   CONVERT  LI,5     0
     2514   01 007F5    25400301 A            SCD,4    1
     2515   01 007F6    25500007 A            SLS,5    7
     2516   01 007F7    25400301 A            SCD,4    1
     2517   01 007F8    25500007 A            SLS,5    7
     2518   01 007F9    25400301 A            SCD,4    1
     2519   01 007FA    25500007 A            SLS,5    7
     2520   01 007FB    25400301 A            SCD,4    1
     2521   01 007FC    49500FCB              OR,5     L(X'F0F0F0F0')
     2522   01 007FD    E800000D A            B        *13
     2523                                     PAGE
     2524                            *
     2525                            *
     2526                            *        ROUTINE TO STORE DEVICE STATUS BYTE IN TEXT04
     2527                            *
     2528                            *
     2529                            *        LINK RETURN IS IN R5
     2530                            *
     2531                            *        REGISTER 10 CONTAINS SECOND FOUR BITS IN EBCDIC
     2532                            *
     2533                            *        REGISTER 12 CONTAINS FIRST FOUR BITS IN EBCDIC
     2534                            *
     2535                            *
     2536   01 007FE    32B00807     PDBIT    LW,11    PDBIT1
     2537   01 007FF    25A00308 A            SCD,10   8
     2538   01 00800    35A00F3D              STW,10   TEXT04+5
     2539   01 00801    32A0000C A            LW,10    12
     2540   01 00802    25B00210 A            SCS,11   16
     2541   01 00803    25A00370 A            SCD,10   -16
     2542   01 00804    35B00F3C              STW,11   TEXT04+4
     2543   01 00805    35A00F3B              STW,10   TEXT04+3
     2544   01 00806    E8000005 A            B        *5
     2545                            *
     2546   01 00807    407E4040 A   PDBIT1   DATA     X'407E4040'       SPACE, EQUAL, SPACE, SPACE
     2547                                     PAGE
     2548                            *
     2549                            *
     2550                            *        ROUTINE TO STORE IOP STATUS BYTE AND CC IN TEXT04
     2551                            *
     2552                            *
     2553                            *        REGISTER 5 CONTAINS LINK RETURN
     2554                            *
     2555                            *        REGISTER 10 CONTAINS SECOND 4 BITS IN EBCDIC
     2556                            *
     2557                            *        REGISTER 12 CONTAINS FIRST 4 BITS IN EBCDIC
     2558                            *
     2559                            *        REGISTER 14 CONTAINS FOUR CONDITION CODES IN EBCDIC
     2560                            *
     2561                            *
     2562   01 00808    35C00F3E     PIBIT    STW,12   TEXT04+6
     2563   01 00809    32B00810              LW,11    PIBIT1
     2564   01 0080A    25A00378 A            SCD,10   -8
     2565   01 0080B    35A00F3F              STW,10   TEXT04+7
     2566   01 0080C    35B00F40              STW,11   TEXT04+8
     2567   01 0080D    25E00070 A            SLS,14   -16
     2568   01 0080E    55E00F42              STH,14   TEXT04+10
     2569   01 0080F    E8000005 A            B        *5
     2570                            *
     2571   01 00810    4040C340 A   PIBIT1   DATA     X'4040C340'          SPACE, SPACE, 'C', SPACE
     2572                                     PAGE
     2573                            *
     2574                            *
     2575                            *        ROUTINE TO CONVERT AND STORE IOP AND DC ADDRESS IN TEXT04
     2576                            *
     2577                            *        REGISTER 8 CONTAINS ADDRESS IN HEXADECIMAL
     2578                            *
     2579                            *        REGISTER 15 CONTAINS LINK RETURN
     2580                            *
     2581                            *
     2582   01 00811    2270000F A   ADDCON   LI,7     X'F'
     2583   01 00812    22600000 A            LI,6     0
     2584   01 00813    4A600008 A            LS,6     8
     2585   01 00814    6AE00826              BAL,14   HTECON
     2586   01 00815    75660F45              STB,6    TEXT04+13,3
     2587   01 00816    227000F0 A            LI,7     X'F0'
     2588   01 00817    4A600008 A            LS,6     8
     2589   01 00818    2560007C A            SLS,6    -4
     2590   01 00819    6AE00826              BAL,14   HTECON
     2591   01 0081A    75640F45              STB,6    TEXT04+13,2
     2592   01 0081B    22700F00 A            LI,7     X'F00'
     2593   01 0081C    4A600008 A            LS,6     8
     2594   01 0081D    25600078 A            SLS,6    -8
     2595   01 0081E    6AE00826              BAL,14   HTECON
     2596   01 0081F    75620F45              STB,6    TEXT04+13,1
     2597   01 00820    22701000 A            LI,7     X'1000'                                           *CP1
     2598   01 00821    4A600008 A            LS,6     8                                                 *CP1
     2599   01 00822    25600074 A            SLS,6    -12                                               *CP1
     2600   01 00823    6AE00826              BAL,14   HTECON                                            *CP1
     2601   01 00824    75600F45              STB,6    TEXT04+13                                         *CP1
     2602   01 00825    E800000F A            B        *15
     2603                                     PAGE
     2604                            *        ROUTINE TO CONVERT FOUR LSB IN REGISTER 6 TO EBCDIC
     2605                            *
     2606                            *
     2607                            *        REGISTER 14 CONTAINS LINK RETURN
     2608                            *
     2609   01 00826    21600009 A   HTECON   CI,6     X'9'
     2610   01 00827    6920082A              BCS,2    %+3
     2611   01 00828    206000F0 A            AI,6     X'F0'
     2612   01 00829    E800000E A            B        *14
     2613   01 0082A    206000B7 A            AI,6     X'B7'
     2614   01 0082B    E800000E A            B        *14
     2615                            *
     2616                                     PAGE
     2617                            *
     2618                            *
     2619                            *        HIO ROUTINE
     2620                            *
     2621                            *
     2622   01 0082C    48000000 A            DATA     72**24            P1 = IOP AND DEVICE ADDRESS
     2623                            *
     2624                            *
     2625   01 0082D    35F00EA7     HIOSE    STW,15   RETURN
     2626   01 0082E    33100E9A              MTW,1    PMBKEY
     2627   01 0082F    CF700696              HIO,7    *P1
     2628   01 00830    74000006 A            STCF     6
     2629   01 00831    68C00834              BCR,12   %+3
     2630   01 00832    33100E9A              MTW,1    PMBKEY
     2631   01 00833    66100EA7              AWM,1    RETURN            TAKE PLACEMARK BRANCH
     2632                            *
     2633   01 00834    35700008 A            STW,7    8
     2634   01 00835    32400007 A            LW,4     7
     2635   01 00836    22901FFF A            LI,9     X'1FFF'                                           *CP1
     2636   01 00837    4A800696              LS,8     P1                GET DEVICE ADDRESS FOR CODE 'PIBIT'
     2637   01 00838    32C006F2              LW,12    AIONAME+1
     2638   01 00839    6AF007DA               BAL,15  MIOPDM            MAKE IOP DIRECTIVE MESSAGE
     2639                            *
     2640   01 0083A    32C00F36              LW,12    MW04
     2641   01 0083B    022000F0 A            LCI      15                TW OR LP, MESSAGE LEVEL 3
     2642   01 0083C    6AF005C9              BAL,15   ZTWLP
     2643   01 0083D    6AE007A6              BAL,14   INTKEY
     2644   01 0083E    E8000EA7              B        *RETURN
     2645                                     PAGE
     2646                            *
     2647                            *
     2648                            *        SIO ROUTINE
     2649                            *
     2650                            *
     2651   01 0083F    48000000 A            DATA     72**24            P1 = IOP AND DEVICE ADDRESS
     2652   01 00840    48000000 A            DATA     72**24            P2 = ORDER BYTE
     2653   01 00841    40000000 A            DATA     4**28             P3 = FLAG BYTE
     2654   01 00842    20000000 A            DATA     2**28             P4 = BYTE COUNT
     2655   01 00843    20000000 A            DATA     2**28             P5   SEE SUBROUTINE
     2656   01 00844    20000000 A            DATA     2**28             P6 = TIME IN MINUTES
     2657   01 00845    40000000 A            DATA     4**28             P7 = OVERRIDE 'DSC' INTERPRETATIONS
     2658                            *
     2659                            *
     2660                            *
     2661   01 00846    35F00EA7     SIOSE    STW,15   RETURN
     2662   01 00847    33100E9A              MTW,1    PMBKEY
     2663   01 00848    22D0007F A            LI,13    127
     2664   01 00849    31D00697              CW,13    P2
     2665   01 0084A    68400992              BCR,4    SIOODERR          STOP ORDER NOT ALLOWED
     2666   01 0084B    22F0000F A            LI,15    15
     2667   01 0084C    4AF00697              LS,15    P2
     2668   01 0084D    21F00008 A            CI,15    8                 TRANSFER IN CHANNEL
     2669   01 0084E    68300992              BCR,3    SIOODERR          SIO ORDER ERROR
     2670   01 0084F    35000EA8              STW,0    TIME
     2671   01 00850    35000EA9              STW,0    TIME1
     2672   01 00851    3300069C              MTW,0    P7
     2673   01 00852    6930099A              BCS,3    SIOVRIDE
     2674   01 00853    21F00001 A            CI,15    1
     2675   01 00854    69400893              BCS,4    SIONRO            NOT READ ORDER
     2676   01 00855    22C00000 A            LI,12    0
     2677   01 00856    22D000F0 A            LI,13    240
     2678   01 00857    31D00697              CW,13    P2
     2679   01 00858    6840085B              BCR,4    %+3               ASYNCHRONOUS
     2680   01 00859    4AC00697              LS,12    P2
     2681   01 0085A    25C00001 A            SLS,12   1
     2682   01 0085B    25C00118 A            SLD,12   24
     2683   01 0085C    22F00020 A            LI,15    32
     2684   01 0085D    31F00698              CW,15    P3
     2685   01 0085E    6940087A              BCS,4    SIOROWCC          READ ORDER WITH COMMAND CHAINING
     2686   01 0085F    47C00CAA              STS,12   CP04
     2687   01 00860    22F000DF A            LI,15    223               0 IN BIT 26 (EQUALS RELATIVE
     2688                            *                                    POSITION OF COMMAND CHAIN BIT)
     2689   01 00861    4AF00698              LS,15    P3                GET FLAGS
     2690   01 00862    75F00CAB              STB,15   CP04+1
     2691   01 00863    22400000 A            LI,4     0
     2692   01 00864    3300069A              MTW,0    P5
     2693   01 00865    68300867              BCR,3    %+2
     2694   01 00866    66100004 A            AWM,1    4
     2695   01 00867    32F80B4B              LW,15    BUFFPPTR,4
     2696   01 00868    55F20EAB              STH,15   BUFLST,1
     2697   01 00869    25F00002 A            SLS,15   2                 CONVERT TO BYTE ADDRESS
     2698   01 0086A    55F20CAA              STH,15   CP04,1
     2699   01 0086B    3A400004 A            LCW,4    4
     2700   01 0086C    25F0007E A            SLS,15   -2                RESTORE BUFFER POINTER
     2701   01 0086D    20F00040 A            AI,15    64
     2702   01 0086E    225FFFC0 A            LI,5     -64
     2703   01 0086F    B54A000F A            STW,4    *15,5             ZERO OUT PRIMARY BUFFER AREA OR PUT
     2704   01 00870    6550086F              BIR,5    %-1                ONES IN ALTERNATE BUFFER AREA
     2705   01 00871    73060699              MTB,0    P4,3
     2706   01 00872    68300876              BCR,3    %+4
     2707   01 00873    22F000FF A            LI,15    255
     2708   01 00874    4AF00699              LS,15    P4
     2709   01 00875    68000877              B        %+2
     2710   01 00876    22F00100 A            LI,15    256
     2711   01 00877    55F20CAB              STH,15   CP04+1,1          BYTE COUNT
     2712   01 00878    22000655              LI,0     DA(CP04)
     2713   01 00879    680009C9              B        SIOEXU
     2714                            *
     2715   01 0087A    47C00CB6     SIOROWCC STS,12   CP09
     2716   01 0087B    47C00CB8              STS,12   CP10
     2717   01 0087C    224FFFC0 A            LI,4     -64
     2718   01 0087D    35080D10              STW,0    BUFFP+64,4        ZERO OUT PRIMARY BUFFER AREA
     2719   01 0087E    6540087D              BIR,4    %-1
     2720   01 0087F    224FFFFF A            LI,4     -1
     2721   01 00880    225FFFC0 A            LI,5     -64
     2722   01 00881    354A0D50              STW,4    BUFFA+64,5        PUT ALL 1'S IN ALTERNATE BUFFER AREA
     2723   01 00882    65500881              BIR,5    %-1
     2724   01 00883    73060699              MTB,0    P4,3
     2725   01 00884    68300888              BCR,3    %+4
     2726   01 00885    225000FF A            LI,5     255
     2727   01 00886    4A400699              LS,4     P4
     2728   01 00887    68000889              B        %+2
     2729   01 00888    22400100 A            LI,4     256
     2730   01 00889    75460CB7              STB,4    CP09+1,3
     2731   01 0088A    75460CB9              STB,4    CP10+1,3
     2732   01 0088B    22D0002F A            LI,13    47                0 IN DC, ICE, IZC BIT POS
     2733   01 0088C    4AC00698              LS,12    P3
     2734   01 0088D    75C00CB7              STB,12   CP09+1
     2735   01 0088E    22D0008F A            LI,13    143               0 IN CC, ICE, IZC BIT POS
     2736   01 0088F    4AC00698              LS,12    P3
     2737   01 00890    75C00CB9              STB,12   CP10+1
     2738   01 00891    2200065B              LI,0     DA(CP09)
     2739   01 00892    680009C9              B        SIOEXU
     2740                            *
     2741   01 00893    21F0000E A   SIONRO   CI,15    14
     2742   01 00894    684008B1              BCR,4    SIOWO             WRITE ORDER
     2743   01 00895    21F00009 A            CI,15    9
     2744   01 00896    683008A9              BCR,3    SIOLSO            LONG SPACE ORDER
     2745   01 00897    21F00002 A            CI,15    2
     2746   01 00898    6840089C              BCR,4    SIODIALO          DIAL ORDER
     2747                            *
     2748   01 00899    75F00CB0              STB,15   CP06              DISCONNECT CALL ORDER OR
     2749   01 0089A    22000658              LI,0     DA(CP06)           ENABLE OR DISABLE RING ORDER
     2750   01 0089B    680009C9              B         SIOEXU
     2751                            *
     2752   01 0089C    22F00010 A   SIODIALO LI,15    16
     2753   01 0089D    31F00E99              CW,15    KEYWORD
     2754   01 0089E    694008A0              BCS,4    %+2
     2755   01 0089F    04200000 A            CAL1,2   0                 EXECUTE  DTN DIRECTIVE
     2756   01 008A0    33000699               MTW,0    P4
     2757   01 008A1    683008A5              BCR,3    %+4
     2758   01 008A2    22F0000F A            LI,15    15
     2759   01 008A3    4AF00699               LS,15    P4
     2760   01 008A4    680008A6              B        %+2
     2761   01 008A5    32F00E94              LW,15    DTNBC
     2762   01 008A6    75F60CB3              STB,15   CP07+1,3          NUMBER OF DIGITS EQUALS BYTE COUNT
     2763   01 008A7    22000659              LI,0     DA(CP07)
     2764   01 008A8    680009C9              B        SIOEXU
     2765                            *
     2766   01 008A9    73060699     SIOLSO   MTB,0    P4,3
     2767   01 008AA    683008AD              BCR,3    %+3
     2768   01 008AB    32F00699              LW,15    P4                MAXIMUM 255 VIA STORE BYTE
     2769   01 008AC    680008AE              B        %+2
     2770   01 008AD    22F00002 A            LI,15    2
     2771   01 008AE    75F60CB5              STB,15   CP08+1,3
     2772   01 008AF    2200065A              LI,0     DA(CP08)
     2773   01 008B0    680009C9              B        SIOEXU
     2774                            *
     2775   01 008B1    227FFFC0 A   SIOWO    LI,7     -64
     2776   01 008B2    72620E9D              LB,6     EOTC,1            GET NUMBER OF BITS
     2777   01 008B3    4B600FCC              AND,6    =7
     2778   01 008B4    725C0EFE              LB,5     CVTAB5,6
     2779   01 008B5    224FFFFC A            LI,4     -4
     2780   01 008B6    25900008 A            SLS,9    8
     2781   01 008B7    75560009 A            STB,5    9,3               R9 GETS MASK
     2782   01 008B8    654008B6              BIR,4    %-2
     2783   01 008B9    22F000F0 A            LI,15    240
     2784   01 008BA    31F00697              CW,15    P2                IS IT SYNCHRONOUS
     2785   01 008BB    684008C7              BCR,4    SIOWOA            B IF NOT
     2786   01 008BC    22C00004 A            LI,12    4
     2787   01 008BD    31C00E99              CW,12    KEYWORD
     2788   01 008BE    694008C0              BCS,4    %+2
     2789   01 008BF    04100000 A            CAL1,1   0                 EXECUTE SYNC DIRECTIVE
     2790   01 008C0    72F00E9E              LB,15    SYNC              PUT
     2791   01 008C1    22400000 A            LI,4     0                  SYNC
     2792   01 008C2    225FFFF0 A            LI,5     -16                 CHARS
     2793   01 008C3    75F80E95              STB,15   SYNCBUFF,4           IN
     2794   01 008C4    20400001 A            AI,4     1                     SYNC
     2795   01 008C5    655008C3              BIR,5    %-2                    BUFFER
     2796   01 008C6    680008CD              B        SIOWO1
     2797   01 008C7    21600000 A   SIOWOA   CI,6     0                 IS IT  ASYNC, 8 BITS
     2798   01 008C8    683008CD              BCR,3    SIOWO1            B IF YES
     2799   01 008C9    32000FCD              LW,0     =X'80808080'
     2800   01 008CA    21600007 A            CI,6     7                 IS IT ASYNC,7 BITS
     2801   01 008CB    683008CD              BCR,3    SIOWO1            B IF YES
     2802   01 008CC    32000FCE              LW,0     =X'C0C0C0C0'
     2803   01 008CD    4A8E0DD0     SIOWO1   LS,8     PATTERN+64,7      GET CHARS AND FORMAT
     2804   01 008CE    49800000 A            OR,8     0                 MASK IN UNUSED BITS(ASYNC)
     2805   01 008CF    358E0D90              STW,8    BUFFO+64,7        STORE INTO OUTPUT BUFFER
     2806   01 008D0    657008CD              BIR,7    %-3
     2807   01 008D1    22000000 A            LI,0     0
     2808   01 008D2    31100E99              CW,1     KEYWORD           EOTC DECLARED
     2809   01 008D3    694008D5              BCS,4    %+2
     2810   01 008D4    04000000 A            CAL1,0   0                 EXECUTE EOTC DIRECTIVE
     2811   01 008D5    3110069A              CW,1     P5                ECHO REQ'D
     2812   01 008D6    68300902              BCR,3    SIOECHO
     2813   01 008D7    22F00020 A            LI,15    32
     2814   01 008D8    31F00E99              CW,15    KEYWORD
     2815   01 008D9    694008DB              BCS,4    %+2
     2816   01 008DA    04300000 A            CAL1,3   0                 EXECUTE  PAT DIRECTIVE
     2817                            *
     2818   01 008DB    22F000A0 A            LI,15    160               RELATIVE POSITIONS OF DATA AND
     2819                            *                                    COMMAND CHAINING FLAGS
     2820   01 008DC    31F00698              CW,15    P3
     2821   01 008DD    69400943              BCS,4    SIOWOWCF          WRITE ORDER WITH CHAINING FLAGS(S)
     2822   01 008DE    22E00000 A            LI,14    0
     2823   01 008DF    22F000FF A            LI,15    255
     2824   01 008E0    4AE00698              LS,14    P3
     2825   01 008E1    75E00CC1              STB,14   CP12+3
     2826   01 008E2    20E00080 A            AI,14    128               DATA CHAIN BIT FOR SYNC AND
     2827                            *                                    MAIN TEXT DOUBLEWORDS
     2828   01 008E3    75E00CBD              STB,14   CP11+1
     2829   01 008E4    75E00CBF              STB,14   CP12+1
     2830   01 008E5    73060699              MTB,0    P4,3
     2831   01 008E6    683008E9              BCR,3    %+3
     2832   01 008E7    4AE00699              LS,14    P4
     2833   01 008E8    680008EA              B        %+2
     2834   01 008E9    22E000FF A            LI,14    255
     2835   01 008EA    75E60CBF              STB,14   CP12+1,3
     2836   01 008EB    22F000F0 A            LI,15    240
     2837   01 008EC    31F00697              CW,15    P2
     2838   01 008ED    694008F2              BCS,4    %+5               SYNCHRONOUS
     2839                            *
     2840   01 008EE    75100CBE              STB,1    CP12              WRITE ORDER
     2841   01 008EF    75100CC0              STB,1    CP12+2
     2842   01 008F0    2200065F              LI,0     DA(CP12)
     2843   01 008F1    680009C9              B        SIOEXU
     2844                            *
     2845   01 008F2    22E00000 A            LI,14    0
     2846   01 008F3    4AE00697              LS,14    P2
     2847   01 008F4    25E00001 A            SLS,14   1
     2848   01 008F5    20E00001 A            AI,14    1
     2849   01 008F6    75E00CBC              STB,14   CP11
     2850   01 008F7    75E00CBE              STB,14   CP12
     2851   01 008F8    75E00CC0              STB,14   CP12+2
     2852   01 008F9    22F0000F A            LI,15    15
     2853   01 008FA    31F0069A              CW,15    P5
     2854   01 008FB    684008FE              BCR,4    %+3
     2855   01 008FC    4AF0069A              LS,15    P5
     2856   01 008FD    680008FF              B        %+2
     2857   01 008FE    22F00004 A            LI,15    4                 FOUR SYNC BYTES STANDARD
     2858   01 008FF    75F60CBD              STB,15   CP11+1,3
     2859   01 00900    2200065E              LI,0     DA(CP11)
     2860   01 00901    680009C9              B        SIOEXU
     2861                            *
     2862   01 00902    72A00E9D     SIOECHO  LB,10    EOTC
     2863   01 00903    72620E9D              LB,6     EOTC,1
     2864   01 00904    71060E9D              CB,0     EOTC,3            ALT EOTC DECLARED
     2865   01 00905    68300908              BCR,3    %+3               B IF NO
     2866   01 00906    72A40E9D              LB,10    EOTC,2
     2867   01 00907    72660E9D              LB,6     EOTC,3
     2868   01 00908    4B600FCC              AND,6    =7
     2869   01 00909    729C0EFE              LB,9     CVTAB5,6          GET MASK
     2870   01 0090A    224FFF00 A            LI,4     -256
     2871   01 0090B    72880D50              LB,8     BUFFA+64,4
     2872   01 0090C    4580000A A            CS,8     10
     2873   01 0090D    6830090F              BCR,3    %+2
     2874   01 0090E    6540090B              BIR,4    %-3
     2875   01 0090F    20400100 A            AI,4     256
     2876   01 00910    55420CA7              STH,4    CP02+1,1
     2877   01 00911    55420CAF              STH,4    CP05+1,1
     2878   01 00912    72400E9D              LB,4     EOTC
     2879   01 00913    71400D10              CB,4     BUFFA
     2880   01 00914    69300919              BCS,3    %+5
     2881   01 00915    66100EA7              AWM,1    RETURN
     2882   01 00916    33100E9A              MTW,1    PMBKEY
     2883   01 00917    6AE007A6              BAL,14   INTKEY
     2884   01 00918    E8000EA7              B        *RETURN
     2885   01 00919    32C00696              LW,12    P1
     2886   01 0091A    31C0052D              CW,12    ZDKB+1
     2887   01 0091B    68300926              BCR,3    SIOECHO1
     2888   01 0091C    22000653              LI,0     DA(CP02)
     2889   01 0091D    32C00697              LW,12    P2
     2890   01 0091E    21C000F0 A            CI,12    240
     2891   01 0091F    684009C9              BCR,4    SIOEXU
     2892   01 00920    25C00001 A            SLS,12   1
     2893   01 00921    20CFFFFF A            AI,12    -1
     2894   01 00922    75C00CA4              STB,12   CP02-2
     2895   01 00923    75C00CA6              STB,12   CP02
     2896   01 00924    22000652              LI,0     DA(CP02-2)
     2897   01 00925    680009C9              B        SIOEXU
     2898   01 00926    22000657     SIOECHO1 LI,0     DA(CP05)
     2899   01 00927    52B20CAF              LH,11    CP05+1,1
     2900   01 00928    22500000 A            LI,5     0
     2901   01 00929    226000FF A   SIOECHO2 LI,6     255
     2902   01 0092A    729A0D10              LB,9     BUFFA,5           ASCII CHAR FROM BUFFA
     2903   01 0092B    719C0EAD              CB,9     CVTAB2,6
     2904   01 0092C    6830092E              BCR,3    %+2
     2905   01 0092D    6460092B              BDR,6    %-2
     2906   01 0092E    756A0CD0              STB,6    BUFFP,5           EBCDIC CHAR INTO BUFFP
     2907   01 0092F    20500001 A            AI,5     1
     2908   01 00930    5152000B A            CH,5     11,1
     2909   01 00931    68300933              BCR,3    %+2
     2910   01 00932    68000929              B        SIOECHO2
     2911   01 00933    22800040 A            LI,8     64
     2912   01 00934    73060E9E              MTB,0    SYNC,3            HAS ALT SYNC BEEN DECLARED
     2913   01 00935    68300937              BCR,3    %+2               B IF NOT
     2914   01 00936    72840E9E              LB,8     SYNC,2            USE IT FOR GRUNTING CHARACTER
     2915   01 00937    22500000 A            LI,5     0
     2916   01 00938    226FFFBC A   SIOECHO3 LI,6     -68
     2917   01 00939    729A0CD0              LB,9     BUFFP,5
     2918   01 0093A    719C0EFE              CB,9     CVTAB4+17,6
     2919   01 0093B    6830093E              BCR,3    %+3
     2920   01 0093C    6560093A              BIR,6    %-2
     2921   01 0093D    758A0CD0              STB,8    BUFFP,5
     2922   01 0093E    20500001 A            AI,5     1
     2923   01 0093F    5152000B A            CH,5     11,1
     2924   01 00940    68300942              BCR,3    %+2
     2925   01 00941    68000938              B        SIOECHO3
     2926   01 00942    680009C9              B        SIOEXU
     2927   01 00943    22F0005F A   SIOWOWCF LI,15    95                ALL FLAGS EXCEPT DC AND CC
     2928   01 00944    4AF00698              LS,15    P3
     2929   01 00945    75F00CCF              STB,15   CP16+1            EOTC DOUBLE WORD
     2930   01 00946    22F0002F A            LI,15    47                ALL FLAGS EXCEPT DATA CHAIN, IZC
     2931   01 00947    4AF00698              LS,15    P3                 AND ICE
     2932   01 00948    75F00CC7              STB,15   CP14+1
     2933   01 00949    22F000DF A            LI,15    223               ALL FLAGS EXCEPT COMMAND CHAIN
     2934   01 0094A    4AF00698              LS,15    P3
     2935   01 0094B    22E00080 A            LI,14    128               DATA CHAIN FLAG
     2936   01 0094C    49F0000E A            OR,15    14
     2937   01 0094D    75F00CCB              STB,15   CP15+1
     2938   01 0094E    75F00CC3              STB,15   CP13+1
     2939   01 0094F    73060699              MTB,0    P4,3
     2940   01 00950    68300954              BCR,3    %+4
     2941   01 00951    22F000FF A            LI,15    255
     2942   01 00952    4AF00699              LS,15    P4
     2943   01 00953    68000955              B        %+2
     2944   01 00954    22F00100 A            LI,15    256
     2945   01 00955    75F60CCB              STB,15   CP15+1,3
     2946   01 00956    75F60CC7              STB,15   CP14+1,3
     2947   01 00957    22F00080 A            LI,15    128
     2948   01 00958    31F00698              CW,15    P3
     2949   01 00959    68400965              BCR,4    SIOWOCCO          COMMAND CHAIN ONLY
     2950                            *
     2951   01 0095A    22F00665              LI,15    DA(CP15)
     2952   01 0095B    55F20CC4              STH,15   CP13+2,1          TRANSFER IN
     2953   01 0095C    55F20CC8              STH,15   CP14+2,1           CHANNEL
     2954   01 0095D    55F20CCC              STH,15   CP15+2,1            ADDRESS FIELDS
     2955   01 0095E    22F00020 A            LI,15    32
     2956   01 0095F    31F00698              CW,15    P3
     2957   01 00960    6830096D              BCR,3    SIOWODCO          DATA CHAIN ONLY
     2958                            *
     2959   01 00961    22F00663              LI,15    DA(CP14)
     2960   01 00962    55F20CC4              STH,15   CP13+2,1          TRANSFER IN CHANNEL
     2961   01 00963    55F20CCC              STH,15   CP15+2,1           ADDRESS FIELDS
     2962   01 00964    6800096D              B        SIOWODCO
     2963                            *
     2964   01 00965    22F00663     SIOWOCCO LI,15    DA(CP14)
     2965   01 00966    55F20CC4              STH,15   CP13+2,1
     2966   01 00967    22F00665              LI,15    DA(CP15)
     2967   01 00968    49F00FCF              OR,15    L(1**27)
     2968   01 00969    35F00CC8              STW,15   CP14+2
     2969   01 0096A    22F00667              LI,15    DA(CP16)
     2970   01 0096B    55F20CCC              STH,15   CP15+2,1
     2971   01 0096C    3500069B              STW,0    P6
     2972   01 0096D    22F000F0 A   SIOWODCO LI,15    240
     2973   01 0096E    31F00697              CW,15    P2
     2974   01 0096F    69400979              BCS,4    SIOWDCO           B IF SYNCHRONOUS
     2975                            *
     2976   01 00970    75100CC6              STB,1    CP14              ASYNCHRONOUS  CC
     2977   01 00971    7300069B              MTB,0    P6
     2978   01 00972    69300975              BCS,3    %+3
     2979   01 00973    22F00667              LI,15    DA(CP16)
     2980   01 00974    55F20CCC              STH,15   CP15+2,1
     2981   01 00975    75100CCA              STB,1    CP15               WRITE        DC
     2982   01 00976    75100CCE              STB,1    CP16                ORDERS      EOTC
     2983   01 00977    22000663              LI,0     DA(CP14)
     2984   01 00978    680009BB              B        SIODO
     2985                            *
     2986   01 00979    22E00000 A   SIOWDCO  LI,14    0
     2987   01 0097A    4AE00697              LS,14    P2
     2988   01 0097B    25E00001 A            SLS,14   1
     2989   01 0097C    20E00001 A            AI,14    1
     2990   01 0097D    75E00CC2              STB,14   CP13              SYNCHRONOUS   SYNC
     2991   01 0097E    75E00CC6              STB,14   CP14               WRITE        CC
     2992   01 0097F    75E00CCA              STB,14   CP15                ORDERS      DC
     2993   01 00980    75E00CCE              STB,14   CP16                 *          EOTC
     2994   01 00981    22F0000F A            LI,15    15
     2995   01 00982    31F0069A              CW,15    P5
     2996   01 00983    68400986              BCR,4    %+3
     2997   01 00984    4AE0069A              LS,14    P5
     2998   01 00985    68000987              B        %+2
     2999   01 00986    22E00004 A            LI,14    4                 FOUR SYNC BYTES STANDARD
     3000   01 00987    75E60CC3              STB,14   CP13+1,3
     3001   01 00988    22000661              LI,0     DA(CP13)
     3002   01 00989    12E00CC2              LD,14    CP13              SEND SYNC CHARS AGAIN
     3003   01 0098A    15E00CC8              STD,14   CP14+2
     3004   01 0098B    22F00667              LI,15    DA(CP16)
     3005   01 0098C    3300069B              MTW,0    P6                IS IT TIMED
     3006   01 0098D    6830098F              BCR,3    %+2
     3007   01 0098E    22F00661              LI,15    DA(CP13)
     3008   01 0098F    49F00FCF              OR,15    L(1**27)
     3009   01 00990    35F00CCC              STW,15   CP15+2
     3010   01 00991    680009BB              B        SIODO
     3011                            *
     3012   01 00992    6AE00ADF     SIOODERR BAL,14   DIRABMSG          TEXT:  'DIRECTIVE ABORTED:  '
     3013                            *
     3014   01 00993    32C00F93              LW,12    MW11              TEXT:  'SIO ORDER ERROR'
     3015                            *
     3016   01 00994    02200040 A            LCI      4                 TW ONLY, MESSAGE LEVEL 0
     3017   01 00995    6AF005C9              BAL,15   ZTWLP
     3018   01 00996    66100EA7              AWM,1    RETURN
     3019   01 00997    33100E9A              MTW,1    PMBKEY
     3020   01 00998    6AE007A6              BAL,14   INTKEY
     3021   01 00999    E8000EA7              B        *RETURN
     3022                            *
     3023   01 0099A    22500040 A   SIOVRIDE LI,5     64
     3024   01 0099B    31500E99              CW,5     KEYWORD
     3025   01 0099C    6940099E              BCS,4    %+2
     3026   01 0099D    04500000 A             CAL1,5  0
     3027   01 0099E    32F00698              LW,15    P3
     3028   01 0099F    75F00C9F              STB,15   CP01+1            FLAGS
     3029   01 009A0    32F00697              LW,15    P2
     3030   01 009A1    35000C9E              STW,0    CP01
     3031   01 009A2    75F00C9E              STB,15   CP01              ORDER
     3032   01 009A3    22F0000F A            LI,15    15
     3033   01 009A4    4AF00697              LS,15    P2
     3034   01 009A5    21F0000C A            CI,15    12                READ BACKWARDS
     3035   01 009A6    693009AE              BCS,3    SIONRB
     3036   01 009A7    32F00687              LW,15    ZEMS              LAST LOCATION IN MEMORY
     3037   01 009A8    25F00002 A            SLS,15   2
     3038   01 009A9    49F00003 A            OR,15    3                 CONVERT TO BYTE ADDRESS
     3039   01 009AA    32E0000F A            LW,14    15
     3040   01 009AB    20EFFFFC A            AI,14    -4                REDUCE READ BACKWARDS STARTING
     3041                            *                                    ADDRESS BY ONE WORD FOR COMPATI-
     3042                            *                                     BILITY WITH DMP, TYP, AND DBUF OF
     3043   01 009AC    47E00C9E              STS,14   CP01                 OVERRIDE BUFFER AREA
     3044   01 009AD    680009B1              B        SIOVLBC
     3045   01 009AE    32F0068F     SIONRB   LW,15    ZIOADR            MAKE BYTE ADDRESS OF OPEN MEMORY
     3046   01 009AF    25F00002 A            SLS,15   2                  ABOVE  'DCP'  REQUIREMENTS
     3047   01 009B0    55F20C9E              STH,15   CP01,1
     3048   01 009B1    32E00E9B     SIOVLBC  LW,14    PATOVLTH          LENGTH IN BYTES OF PAT,X,1-255
     3049                            *                                    SPREAD IN BUFFER AREA ABOVE
     3050                            *                                     MAIN PROGRAM AND AREA
     3051                            *                                      RESERVED FOR D-C-P USAGE
     3052   01 009B2    33000699              MTW,0    P4
     3053   01 009B3    683009B9              BCR,3    %+6               P4 = ZERO:  USE ALL OF OPEN BUFFER
     3054   01 009B4    32F00699              LW,15    P4
     3055   01 009B5    31F0000E A            CW,15    14
     3056   01 009B6    692009B9              BCS,2    %+3
     3057   01 009B7    55F20C9F              STH,15   CP01+1,1          P4 BYTE COUNT IS ACCEPTACLE
     3058   01 009B8    680009BA              B        %+2
     3059   01 009B9    55E20C9F              STH,14   CP01+1,1          P4 BYTE COUNT WAS TOO LARGE
     3060   01 009BA    2200064F              LI,0     DA(CP01)
     3061   01 009BB    3300069B     SIODO    MTW,0    P6
     3062   01 009BC    683009C9              BCR,3    SIOEXU
     3063   01 009BD    32F0069B              LW,15    P6
     3064   01 009BE    3300069C              MTW,0    P7
     3065   01 009BF    693009C2              BCS,3    %+3
     3066   01 009C0    22F0EA60 A            LI,15    60000
     3067   01 009C1    37F0069B              MW,15    P6                CONVERTED TO MINUTES
     3068   01 009C2    25F0007F A            SLS,15   -1
     3069   01 009C3    6610000F A            AWM,1    15
     3070   01 009C4    35F00EA9              STW,15   TIME1
     3071   01 009C5    22401000 A            LI,4     1**12
     3072   01 009C6    6D401200 A            WD,4     (1,X'200')        TURN ON 2 MS CLOCK
     3073   01 009C7    33000EA8              MTW,0    TIME
     3074   01 009C8    683009C7              BCR,3    %-1               WAIT FOR CLOCK TO SYNCHRONIZE
     3075   01 009C9    CC400696     SIOEXU   SIO,4    *P1
     3076   01 009CA    74000006 A            STCF     6
     3077   01 009CB    68C009D0              BCR,12   %+5               SIO WAS ACCEPTED
     3078   01 009CC    32800EA9              LW,8     TIME1
     3079   01 009CD    35800EA8              STW,8    TIME              ABORT TIMEOUT IF APPLICABLE
     3080   01 009CE    33100E9A              MTW,1    PMBKEY
     3081   01 009CF    66100EA7              AWM,1    RETURN            TAKE PLACE MARK BRANCH
     3082   01 009D0    32800005 A            LW,8     5
     3083   01 009D1    32400005 A            LW,4     5
     3084   01 009D2    22901FFF A            LI,9     X'1FFF'                                           *CP1
     3085   01 009D3    4A800696              LS,8     P1                GET DEVICE ADDRESS FOR CODE 'PIBIT'
     3086   01 009D4    32C006F3              LW,12    AIONAME+2         TEXT 'SIO'
     3087   01 009D5    6AF007DA              BAL,15   MIOPDM
     3088   01 009D6    32C00F36              LW,12    MW04
     3089   01 009D7    022000F0 A            LCI      15                TW OR LP, MESSAGE LEVEL 3
     3090   01 009D8    6AF005C9              BAL,15   ZTWLP
     3091   01 009D9    3300069B              MTW,0    P6
     3092   01 009DA    693009DD              BCS,3    %+3
     3093   01 009DB    6AE007A6              BAL,14   INTKEY
     3094   01 009DC    E8000EA7              B        *RETURN
     3095   01 009DD    32F00EA9              LW,15    TIME1
     3096   01 009DE    31F00EA8              CW,15    TIME
     3097   01 009DF    692009E1              BCS,2    %+2               WAIT UNTIL TIME IS EQUALLED OR
     3098                            *                                    EXCEEDED
     3099   01 009E0    680009E3              B        %+3
     3100   01 009E1    6C000000 A            RD,0     0
     3101   01 009E2    688009DE              BCR,8    %-4               SENSE SWITCH ONE IS RESET
     3102   01 009E3    22401000 A            LI,4     1**12
     3103   01 009E4    6D401100 A            WD,4     (1,X'100')        TURN OFF 2 MS CLOCK
     3104   01 009E5    22000667              LI,0     DA(CP16)          PERTINENT ONLY IF
     3105   01 009E6    55020CC8              STH,0    CP14+2,1           CODE 'SIOWOWCF'
     3106   01 009E7    55020CCC              STH,0    CP15+2,1            HAS BEEN EXECUTED
     3107   01 009E8    6AE007A6              BAL,14   INTKEY
     3108   01 009E9    E8000EA7              B        *RETURN
     3109                                     PAGE
     3110                            *        TDV ROUTINE
     3111                            *
     3112   01 009EA    48000000 A            DATA     72**24            P1 = IOP AND DEVICE ADDRESS
     3113   01 009EB    40000000 A            DATA     4**28             P2 = STATUS BYTE SELECT
     3114                            *
     3115   01 009EC    35F00EA7     TDVSE    STW,15   RETURN
     3116   01 009ED    33100E9A              MTW,1    PMBKEY
     3117   01 009EE    CE700696              TDV,7    *P1
     3118   01 009EF    74000006 A            STCF     6
     3119   01 009F0    356006A1              STW,6    P12
     3120   01 009F1    357006A2              STW,7    P13
     3121   01 009F2    32400007 A            LW,4     7
     3122   01 009F3    22901FFF A            LI,9     X'1FFF'                                           *CP1
     3123   01 009F4    33000E9C              MTW,0    ENVIFLAG
     3124   01 009F5    693009F8              BCS,3    %+3               PROTECT ADDRESS IF 'ENVI' DIRECTIVE
     3125   01 009F6    22800000 A            LI,8     0                  IS BEING EXECUTED
     3126   01 009F7    4A800696              LS,8     P1                GET DEVICE ADDRESS FOR CODE 'PIBIT'
     3127   01 009F8    25900010 A            SLS,9    16
     3128   01 009F9    4A800004 A            LS,8     4                 GET IOP STATUS BYTE
     3129   01 009FA    32C006F4              LW,12    AIONAME+3         TEXT 'TDV'
     3130   01 009FB    6AF007DA              BAL,15   MIOPDM            MAKE IOP DIRECTIVE MESSAGE
     3131   01 009FC    33000E9C              MTW,0    ENVIFLAG
     3132   01 009FD    E9300EA7              BCS,3    *RETURN           'ENVI' DIRECTIVE IS BEING EXECUTED
     3133                            *
     3134                            *
     3135                            *        FOLLOWING ROUTINE IS COMMON TO BOTH 'TDV' AND 'TIO' DIRECTIVES
     3136   01 009FE    724006A1     TDVTIOC  LB,4     P12
     3137   01 009FF    22500040 A            LI,5     X'40'
     3138   01 00A00    45500004 A            CS,5     4
     3139   01 00A01    69300A0B              BCS,3    TDVIOMOC          NO PLACEMARK BRANCH    CC NOT 01
     3140   01 00A02    33000697              MTW,0    P2
     3141   01 00A03    68300A09              BCR,3    TDVIOMOC-2
     3142   01 00A04    727006A2              LB,7     P13
     3143   01 00A05    75760A07              STB,7    %+2,3
     3144   01 00A06    32700697              LW,7     P2
     3145   01 00A07    21700000 A            CI,7     0                 BITS 24-31 CONTAIN DEVICE
     3146                            *                                    STATUS BYTES
     3147   01 00A08    68400A0B              BCR,4    %+3
     3148   01 00A09    33100E9A              MTW,1    PMBKEY
     3149   01 00A0A    66100EA7              AWM,1    RETURN            TAKE PLACEMARK BRANCH
     3150   01 00A0B    32C00F36     TDVIOMOC LW,12    MW04
     3151   01 00A0C    022000F0 A            LCI      15                TW OR LP, MESSAGE LEVEL 3
     3152   01 00A0D    6AF005C9              BAL,15   ZTWLP
     3153   01 00A0E    6AE007A6              BAL,14   INTKEY
     3154   01 00A0F    E8000EA7              B        *RETURN
     3155                                     PAGE
     3156                            *
     3157                            *
     3158                            *        TIO ROUTINE
     3159                            *
     3160                            *
     3161   01 00A10    48000000 A            DATA     72**24            P1 = IOP AND DEVICE ADDRESS
     3162   01 00A11    40000000 A            DATA     4**28             P2 = STATUS BYTE SELECT
     3163                            *
     3164   01 00A12    35F00EA7     TIOSE    STW,15   RETURN
     3165   01 00A13    33100E9A              MTW,1    PMBKEY
     3166   01 00A14    CD700696              TIO,7    *P1
     3167   01 00A15    74000006 A            STCF     6
     3168   01 00A16    356006A1              STW,6    P12
     3169   01 00A17    357006A2              STW,7    P13
     3170   01 00A18    32400007 A            LW,4     7
     3171   01 00A19    22901FFF A            LI,9     X'1FFF'                                           *CP1
     3172   01 00A1A    33000E9C              MTW,0    ENVIFLAG
     3173   01 00A1B    69300A1E              BCS,3    %+3               PROTECT ADDRESS IF 'ENVI' DIRECTIVE
     3174   01 00A1C    22800000 A            LI,8     0                  IS BEING EXECUTED
     3175   01 00A1D    4A800696              LS,8     P1                GET DEVICE ADDRESS FOR CODE 'PIBIT'
     3176   01 00A1E    25900010 A            SLS,9    16
     3177   01 00A1F    4A800004 A            LS,8     4                 GET IOP STATUS BYTE
     3178   01 00A20    32C006F5              LW,12    AIONAME+4         TEXT 'TIO'
     3179   01 00A21    6AF007DA              BAL,15   MIOPDM            MAKE IOP DIRECTIVE MESSAGE
     3180   01 00A22    33000E9C              MTW,0    ENVIFLAG
     3181   01 00A23    E9300EA7              BCS,3    *RETURN           'ENVI' DIRECTIVE IS BEING EXECUTED
     3182   01 00A24    680009FE              B        TDVTIOC           GO TO COMMON ROUTINE
     3183                                     PAGE
     3184                            *
     3185                            *
     3186                            *
     3187   01 00A25    40000000 A            DATA     4**28             P1 = STARTING ADDRESS
     3188   01 00A26    40000000 A            DATA     4**28             P2 = ENDING ADDRESS
     3189                            *
     3190   01 00A27    35F006A3     ENVISE   STW,15   P14
     3191   01 00A28    6AF00A6A              BAL,15   ENVIWDTS          SET WDT TRAP ACTION FOR ENVI DIR.
     3192   01 00A29    6AF00A64              BAL,15   PSCIM6            PUT SPACE CODE IN MESSAGE 06
     3193   01 00A2A    66100E9C              AWM,1    ENVIFLAG          BYPASS PRINTOUTS FOR 'TDV'
     3194                            *                                    AND 'TIO' DIRECTIVES
     3195   01 00A2B    22901FFF A            LI,9     X'1FFF'                                           *CP1
     3196   01 00A2C    22800000 A            LI,8     0
     3197   01 00A2D    4A800696              LS,8     P1
     3198   01 00A2E    208FFFFF A            AI,8     -1
     3199   01 00A2F    31900697              CW,9     P2
     3200   01 00A30    68400A32              BCR,4    %+2
     3201   01 00A31    4A900697              LS,9     P2
     3202   01 00A32    20900001 A            AI,9     1
     3203   01 00A33    35900698              STW,9    P3
     3204   01 00A34    32C00F46              LW,12    MW05
     3205   01 00A35    022000F0 A            LCI      15                TW OR LP, MESSAGE LEVEL 3
     3206   01 00A36    6AF005C9              BAL,15   ZTWLP             OUTPUT TABLE HEADING
     3207   01 00A37    66100008 A   ENVITEST AWM,1    8
     3208   01 00A38    22901FFF A            LI,9     X'1FFF'                                           *CP1
     3209   01 00A39    45800698              CS,8     P3
     3210   01 00A3A    69100A40              BCS,1    ENVIGO
     3211   01 00A3B    6AF00A7C              BAL,15   ENVIWDTR          RESET WDT TRAP TO NORMAL OPERATION
     3212   01 00A3C    6AF00525              BAL,15   ZSCIR             SET ( ) REGISTERS 0,1,2,3 TO 0,1,2,3
     3213   01 00A3D    35000E9C              STW,0    ENVIFLAG
     3214   01 00A3E    35000E9A              STW,0    PMBKEY
     3215   01 00A3F    E80006A3              B        *P14              RETURN TO D C P
     3216                            *
     3217   01 00A40    CD000008 A   ENVIGO   TIO,0    *8
     3218   01 00A41    68800A43              BCR,8    %+2
     3219   01 00A42    69400A37              BCS,4    ENVITEST          NO ADDRESS RECOGNITION
     3220                            *
     3221   01 00A43    75860696              STB,8    P1,3
     3222   01 00A44    6AF009EC              BAL,15   TDVSE
     3223   01 00A45    52F00F42              LH,15    TEXT04+10         C
     3224   01 00A46    55F20F63              STH,15   TEXT06+13,1        C
     3225                            *
     3226   01 00A47    12E00F3C              LD,14    TEXT04+4          DEVICE
     3227   01 00A48    35E00F61              STW,14   TEXT06+11          *
     3228   01 00A49    35F00F62              STW,15   TEXT06+12           STATUS
     3229   01 00A4A    32F00F3B              LW,15    TEXT04+3             *
     3230   01 00A4B    55F20F60              STH,15   TEXT06+10,1           BYTE
     3231                            *
     3232   01 00A4C    12E00F3E              LD,14    TEXT04+6          I
     3233   01 00A4D    35E00F5D              STW,14   TEXT06+7           O
     3234   01 00A4E    35F00F5E              STW,15   TEXT06+8            P
     3235   01 00A4F    72F00F40              LB,15    TEXT04+8             STATUS
     3236   01 00A50    75F00F5F              STB,15   TEXT06+9              BYTE
     3237                            *
     3238   01 00A51    32E00F5C              LW,14    TEXT06+6          I        FOUR 'SPACE' CHARACTERS
     3239   01 00A52    32F00F45              LW,15    TEXT04+13          O
     3240   01 00A53    25E00310 A            SCD,14   16                  P
     3241   01 00A54    25E00208 A            SCS,14   8                    /
     3242   01 00A55    25E00308 A            SCD,14   8                     D
     3243   01 00A56    25F00278 A            SCS,15   -8                     C
     3244   01 00A57    15E00F56              STD,14   TEXT06                  ADDRESS
     3245                            *
     3246   01 00A58    6AF00A12              BAL,15   TIOSE
     3247   01 00A59    32F00F42              LW,15    TEXT04+10         *
     3248   01 00A5A    25F00278 A            SCS,15   -8                 C
     3249   01 00A5B    35F00F58              STW,15   TEXT06+2            C
     3250                            *
     3251   01 00A5C    12E00F3C              LD,14    TEXT04+4          *
     3252   01 00A5D    15E00F5A              STD,14   TEXT06+4           DEVICE
     3253   01 00A5E    32F00F3B              LW,15    TEXT04+3            STATUS
     3254   01 00A5F    55F20F59              STH,15   TEXT06+3,1           BYTE
     3255   01 00A60    32C00F6C              LW,12    MW06
     3256   01 00A61    022000E0 A            LCI      14                TW OR LP, MESSAGE LEVEL 2
     3257   01 00A62    6AF005C9              BAL,15   ZTWLP
     3258   01 00A63    68000A37              B        ENVITEST          READY TO TEST NEXT ADDRESS
     3259                            *
     3260                            *
     3261                            *
     3262   01 00A64    22C00000 A   PSCIM6   LI,12    0
     3263   01 00A65    6AE007E5              BAL,14   FZBWSC            FILL ZERO BYTE WITH SPACE CODE
     3264   01 00A66    225FFFEA A            LI,5     -22
     3265   01 00A67    35CA0F6C              STW,12   MW06,5
     3266   01 00A68    65500A67              BIR,5    %-1
     3267   01 00A69    E800000F A            B        *15
     3268                            *
     3269                            *
     3270                            *
     3271                                     BOUND    8
     3272                            *
     3273   01 00A6A    32E00A6D     ENVIWDTS LW,14    %+3
     3274   01 00A6B    35E00046 A            STW,14   X'46'
     3275   01 00A6C    E800000F A            B        *15
     3276                            *
     3277   01 00A6D    0F000A6E              XPSD,0   %+1
     3278   01 00A6E    00000000 A   ENVIWDTT DATA     0
     3279   01 00A6F    00000000 A            DATA     0
     3280   01 00A70    00000A72              DATA     %+2
     3281   01 00A71    07000000 A            DATA     7**24
     3282                            *                                   TRAP IS USUALLY CAUSED BY AN OPEN
     3283                            *                                    PRIORITY CABLE OR BY THE 'LAST'
     3284                            *                                     SWITCH ON THE IOP ADDRESS
     3285                            *                                      SELECTION MODULE  IN THE LAST
     3286                            *                                       IOP NOT BEING SET TO LAST
     3287                            *                                   REGISTER 8 CONTAINS ADDRESS UNDER
     3288                            *                                    TEST WHEN THE TRAP OCCURRED
     3289                            *
     3290   01 00A72    6AF00811              BAL,15   ADDCON
     3291   01 00A73    32F00F45              LW,15    TEXT04+13
     3292   01 00A74    35F00F74              STW,15   TEXT07+6
     3293   01 00A75    32C00F6D              LW,12    MW07
     3294   01 00A76    02200040 A            LCI      4                 TW ONLY, MESSAGE LEVEL 0
     3295   01 00A77    6AF005C9              BAL,15   ZTWLP
     3296   01 00A78    6AF00A7C              BAL,15   ENVIWDTR
     3297   01 00A79    22F00A3C               LI,15   ENVITEST+5
     3298   01 00A7A    35F00A6E              STW,15   ENVIWDTT
     3299   01 00A7B    0E000A6E              LPSD,0   ENVIWDTT
     3300                            *
     3301   01 00A7C    32E00739     ENVIWDTR LW,14    WDTTRAP
     3302   01 00A7D    35E00046 A            STW,14   X'46'
     3303   01 00A7E    E800000F A            B        *15
     3304                                     PAGE
     3305                            *
     3306                            *
     3307                            *        END OF TEXT CHARACTER ROUTINE
     3308                            *
     3309   01 00A7F    40000000 A            DATA     4**28             P1 = CHARACTER CODE
     3310   01 00A80    08000000 A            DATA     8**24             P2 = NO. OF BITS PER CHARACTER
     3311   01 00A81    20000000 A            DATA     2**28             P3 = ALTERNATE CHARACTER POINTER
     3312                            *
     3313                            *
     3314   01 00A82    35F00EA7     EOTCSE   STW,15   RETURN
     3315   01 00A83    2250000F A            LI,5     15
     3316   01 00A84    4A500697              LS,5     P2
     3317   01 00A85    205FFFFF A            AI,5     -1
     3318   01 00A86    21500008 A            CI,5     8
     3319   01 00A87    68400A8A              BCR,4    %+3               P2 IS NOT 0 OR 9
     3320   01 00A88    22C000F2 A   NOBICERR LI,12    X'F2'
     3321   01 00A89    04400000 A            CAL1,4   0                 MESSAGE:  'DIRECTIVE ABORTED:  PARA-
     3322                            *                                    METER 2 VALUE ILLEGAL'
     3323   01 00A8A    22400000 A            LI,4     0
     3324   01 00A8B    225000FF A            LI,5     255
     3325   01 00A8C    4A400696              LS,4     P1
     3326   01 00A8D    25400008 A            SLS,4    8
     3327   01 00A8E    4A400697              LS,4     P2
     3328   01 00A8F    22F00001 A            LI,15    1
     3329   01 00A90    229DFFFF A            LI,9     -131073           0 IN BIT 14
     3330   01 00A91    4A900A98              LS,9     EOTCSH
     3331   01 00A92    33000698              MTW,0    P3
     3332   01 00A93    68300A96              BCR,3    %+3
     3333   01 00A94    25F00001 A            SLS,15   1
     3334   01 00A95    20920000 A            AI,9     X'20000'          PUT 1 IN BIT 14
     3335   01 00A96    47F00E99              STS,15   KEYWORD
     3336   01 00A97    35900A98              STW,9    %+1
     3337   01 00A98    55400E9D     EOTCSH   STH,4    EOTC
     3338   01 00A99    25F00002 A            SLS,15   2
     3339   01 00A9A    31F00E99              CW,15    KEYWORD           HAS SYNC CHARACTER BEEN DECLARED
     3340   01 00A9B    E8400EA7              BCR,4    *RETURN           NO
     3341   01 00A9C    225000FF A            LI,5     255
     3342   01 00A9D    25500010 A            SLS,5    16
     3343   01 00A9E    21F00002 A            CI,15    2
     3344   01 00A9F    69300AA1              BCS,3    %+2               NOT ALTERNATE CHARACTER
     3345   01 00AA0    25500010 A            SLS,5    16
     3346   01 00AA1    32400E9E              LW,4     SYNC
     3347   01 00AA2    45400E9D              CS,4     EOTC
     3348   01 00AA3    69300AD7              BCS,3    SYNCGB+5          TEXT 'SYNC P2 NOT EQUAL TO EOTC P2'
     3349   01 00AA4    25500008 A            SLS,5    8
     3350   01 00AA5    45400E9D              CS,4     EOTC
     3351   01 00AA6    E9300EA7              BCS,3    *RETURN
     3352                            *
     3353   01 00AA7    32C00F9F     EOTEQSYN LW,12    MW13
     3354   01 00AA8    02200040 A            LCI      4                 TW ONLY, MESSAGE LEVEL 0
     3355   01 00AA9    6AF005C9              BAL,15   ZTWLP
     3356   01 00AAA    E8000EA7               B        *RETURN
     3357                            *
     3358                            *
     3359                            *
     3360                            *
     3361   01 00AAB    22500003 A   EOTCTEST LI,5     3
     3362   01 00AAC    4A500698              LS,5     P3
     3363   01 00AAD    20500001 A            AI,5     1
     3364   01 00AAE    31500E99              CW,5     KEYWORD
     3365   01 00AAF    69400AB1              BCS,4    %+2
     3366   01 00AB0    04000000 A            CAL1,0   0                 ABORT MSG 'EXECUTE EOTC DIRECTIVE'
     3367   01 00AB1    E800000E A            B        *14
     3368                                     PAGE
     3369                            *
     3370                            *
     3371                            *        SYNCHRONIZATION CHARACTER ROUTINE
     3372                            *
     3373                            *
     3374   01 00AB2    40000000 A            DATA     4**28             P1 = CHARACTER CODE
     3375   01 00AB3    08000000 A            DATA     8**24             P2 = NO. OF BITS PER CHARACTER
     3376   01 00AB4    20000000 A            DATA     2**28             P3 = ALTERNATE CHARACTER POINTER
     3377                            *
     3378                            *
     3379   01 00AB5    35F00EA7     SYNCSE   STW,15   RETURN
     3380   01 00AB6    6AE00AAB              BAL,14   EOTCTEST          TEST FOR EOTC DIRECTIVE EXECUTED
     3381   01 00AB7    2250000E A            LI,5     14
     3382   01 00AB8    31500697              CW,5     P2
     3383   01 00AB9    68400A88              BCR,4    NOBICERR          NUMBER OF BITS IN CHARACTER ERROR
     3384   01 00ABA    22400000 A            LI,4     0
     3385   01 00ABB    225000FF A            LI,5     255
     3386   01 00ABC    4A400696              LS,4     P1
     3387   01 00ABD    22600000 A            LI,6     0
     3388   01 00ABE    33000698              MTW,0    P3
     3389   01 00ABF    68300AC1              BCR,3    %+2
     3390   01 00AC0    22600002 A            LI,6     2
     3391   01 00AC1    714C0E9D              CB,4     EOTC,6
     3392   01 00AC2    69300AC5              BCS,3    %+3
     3393   01 00AC3    6AE00ADF              BAL,14   DIRABMSG          'DIRECTIVE ABORTED:' MESSAGE
     3394   01 00AC4    68000AA7              B        EOTEQSYN
     3395                            *
     3396   01 00AC5    25400008 A            SLS,4    8
     3397   01 00AC6    4A400697              LS,4     P2
     3398   01 00AC7    22F00004 A            LI,15    4
     3399   01 00AC8    229DFFFF A            LI,9     -131073           0 IN BIT 14
     3400   01 00AC9    4A900ADD              LS,9     SYNCSH
     3401   01 00ACA    22BBFFFF A            LI,11    -262145           0 IN BIT 13
     3402   01 00ACB    4AB00AD2              LS,11    SYNCGB
     3403   01 00ACC    33000698              MTW,0    P3
     3404   01 00ACD    68300AD1              BCR,3    %+4
     3405   01 00ACE    25F00005 A            SLS,15   5
     3406   01 00ACF    20920000 A            AI,9     X'20000'          PUT 1 IN BIT 14
     3407   01 00AD0    20B40000 A            AI,11    X'40000'          ALTERNATE BYTE POINTER
     3408   01 00AD1    35B00AD2              STW,11   %+1
     3409   01 00AD2    72A20E9D     SYNCGB   LB,10    EOTC,1
     3410   01 00AD3    22B00007 A            LI,11    7
     3411   01 00AD4    45A00004 A            CS,10    4
     3412   01 00AD5    68300ADB              BCR,3    %+6
     3413   01 00AD6    6AE00ADF              BAL,14   DIRABMSG
     3414   01 00AD7    32C00F80              LW,12    MW08              SYNC P2 NOT EQUAL TO EOTC P2
     3415   01 00AD8    02200040 A            LCI       4                TW ONLY, MESSAGE LEVEL 0
     3416   01 00AD9    6AF005C9              BAL,15   ZTWLP
     3417   01 00ADA    E8000EA7               B        *RETURN
     3418   01 00ADB    47F00E99              STS,15   KEYWORD
     3419   01 00ADC    47900ADD              STS,9    %+1
     3420   01 00ADD    55400E9E     SYNCSH   STH,4    SYNC
     3421   01 00ADE    E8000EA7              B        *RETURN
     3422                            *
     3423                            *
     3424                            *
     3425                            *
     3426                            *
     3427   01 00ADF    32C00F1F     DIRABMSG LW,12    MW01
     3428   01 00AE0    02200040 A            LCI      4                 TW ONLY, MESSAGE LEVEL 0
     3429   01 00AE1    6AF005C9              BAL,15   ZTWLP
     3430   01 00AE2    E800000E A            B        *14
     3431                                     PAGE
     3432                            *
     3433                            *
     3434                            *        TELEPHONE NUMBER ROUTINE
     3435                            *
     3436   01 00AE3    48000000 A            DATA     72**24            P1 = FIRST EIGHT DIGITS
     3437   01 00AE4    28000000 A            DATA     40**24            P2 = TOTAL DIGITS
     3438   01 00AE5    40000000 A            DATA     4**28             P3 = SECOND EIGHT DIGITS
     3439                            *
     3440                            *
     3441                            *
     3442   01 00AE6    35F00EA7     DTNSE    STW,15   RETURN
     3443   01 00AE7    33000697              MTW,0    P2
     3444   01 00AE8    68300B10              BCR,3    DTNNDERR          NUMBER OF DIGITS ERROR
     3445   01 00AE9    32E00696              LW,14    P1
     3446   01 00AEA    32F00698              LW,15    P3
     3447   01 00AEB    32400697              LW,4     P2
     3448   01 00AEC    21400010 A            CI,4     16
     3449   01 00AED    68300B01              BCR,3    DTNLZT            LEADING ZERO TEST
     3450   01 00AEE    69200B10              BCS,2    DTNNDERR
     3451   01 00AEF    21400009 A            CI,4     9
     3452   01 00AF0    69100AF9              BCS,1    DTNLT9            LESS THAN 9
     3453   01 00AF1    22500007 A            LI,5     7
     3454   01 00AF2    4A500004 A            LS,5     4
     3455   01 00AF3    22600008 A            LI,6     8
     3456   01 00AF4    38600005 A            SW,6     5
     3457   01 00AF5    25600002 A            SLS,6    2
     3458   01 00AF6    75660AF7              STB,6    %+1,3
     3459   01 00AF7    25F00000 A            SLS,15   0
     3460   01 00AF8    68000B01              B        DTNLZT            LEADING ZEROES TEST
     3461   01 00AF9    21400008 A   DTNLT9   CI,4     8
     3462   01 00AFA    68300B01              BCR,3    DTNLZT            LEADING ZERO TEST
     3463   01 00AFB    32500004 A            LW,5     4
     3464   01 00AFC    22600008 A            LI,6     8
     3465   01 00AFD    38600005 A            SW,6     5
     3466   01 00AFE    25600002 A            SLS,6    2
     3467   01 00AFF    75660B00              STB,6    %+1,3
     3468   01 00B00    25E00300 A            SCD,14   0
     3469   01 00B01    25E00304 A   DTNLZT   SCD,14   4
     3470   01 00B02    21400010 A            CI,4     16
     3471   01 00B03    68300B06              BCR,3    %+3               BYPASS LEADING ZERO TEST    MFG
     3472                            *                                    AND FIELD TEST DEVICE EXPECTS TO
     3473                            *                                     RECEIVE 16 DIGITS IN ORDER X'0'
     3474                            *                                      TO X'F'
     3475   01 00B04    21F0000F A            CI,15    15
     3476   01 00B05    68400B14              BCR,4    DTNLZERR
     3477   01 00B06    35400E94              STW,4    DTNBC             BYTE COUNT EQUALS NUMBER OF DIGITS
     3478   01 00B07    3A400004 A            LCW,4    4
     3479   01 00B08    22500000 A            LI,5     0
     3480   01 00B09    75FA0E90              STB,15   TELNUM,5          DSC IGNORES 4 MOST SIG BITS OF BYTE
     3481   01 00B0A    25E00304 A            SCD,14   4
     3482   01 00B0B    20500001 A            AI,5     1
     3483   01 00B0C    65400B09              BIR,4    %-3
     3484   01 00B0D    22500010 A            LI,5     16
     3485   01 00B0E    47500E99              STS,5    KEYWORD
     3486   01 00B0F    E8000EA7              B        *RETURN
     3487   01 00B10    32C00F88     DTNNDERR LW,12    MW09
     3488   01 00B11    02200040 A            LCI      4                 TW ONLY, MESSAGE LEVEL 0
     3489   01 00B12    6AF005C9              BAL,15   ZTWLP
     3490   01 00B13    E8000EA7              B        *RETURN
     3491                            *
     3492   01 00B14    32C00F92     DTNLZERR LW,12    MW10
     3493   01 00B15    02200040 A            LCI      4                 TW ONLY, MESSAGE LEVEL 0
     3494   01 00B16    6AF005C9              BAL,15   ZTWLP
     3495   01 00B17    E8000EA7              B        *RETURN
     3496                                     PAGE
     3497                            *
     3498                            *
     3499                            *        D E L A Y  R O U T I N E
     3500                            *
     3501                            *
     3502   01 00B18    20000000 A            DATA     2**28
     3503                            *
     3504                            *
     3505   01 00B19    35000EA8     DLAYSE   STW,0    TIME
     3506   01 00B1A    32500696              LW,5     P1
     3507   01 00B1B    2550007F A            SLS,5    -1
     3508   01 00B1C    22401000 A            LI,4     1**12
     3509   01 00B1D    6D401200 A            WD,4     (1,X'200')
     3510   01 00B1E    31500EA8              CW,5     TIME
     3511   01 00B1F    69200B1E              BCS,2    %-1
     3512   01 00B20    6D401100 A            WD,4     (1,X'100')
     3513   01 00B21    E800000F A            B        *15
     3514                            *
     3515                            *
     3516                                     PAGE
     3517                            *
     3518                            *
     3519                            *        I O  B U F F E R  D U M P E R
     3520                            *
     3521                            *
     3522   01 00B22    20000000 A            DATA     2**28             P1 = BUFFER AREA POINTER
     3523   01 00B23    20000000 A            DATA     2**28             P2 = NUMBER OF BYTES TO BE DUMPED
     3524   01 00B24    20000000 A            DATA     2**28             P3 = DUMP OVERRIDE BUFFER AREA
     3525                            *
     3526                            *
     3527   01 00B25    22500003 A   DBUFSE   LI,5     3
     3528   01 00B26    22400000 A            LI,4     0
     3529   01 00B27    4A400696              LS,4     P1
     3530   01 00B28    32580B4B              LW,5     BUFFPPTR,4
     3531   01 00B29    35500696              STW,5    P1
     3532   01 00B2A    33000697              MTW,0    P2
     3533   01 00B2B    69300B30              BCS,3    %+5
     3534   01 00B2C    32580B4C              LW,5     BUFFAPTR,4
     3535   01 00B2D    35500697              STW,5    P2
     3536   01 00B2E    22600000 A            LI,6     0                 INITIALIZE FOR OVERRIDE DUMP
     3537   01 00B2F    68000B35              B        %+6
     3538   01 00B30    2277FFFF A            LI,7     X'7FFFF'
     3539   01 00B31    4A600697              LS,6     P2                NUMBER OF BYTES
     3540   01 00B32    21600003 A            CI,6     3
     3541   01 00B33    68400B36              BCR,4    %+3
     3542   01 00B34    20600001 A            AI,6     1                 MAKE FULL WORD VALUE
     3543   01 00B35    68000B32              B        %-3
     3544   01 00B36    2560007E A            SLS,6    -2
     3545   01 00B37    30500006 A            AW,5     6
     3546   01 00B38    35500697              STW,5    P2
     3547   01 00B39    33000698              MTW,0    P3
     3548   01 00B3A    68300B47              BCR,3    DBUF02
     3549   01 00B3B    3250068F              LW,5     ZIOADR            DUMP OVERRIDE AREA
     3550   01 00B3C    35500696              STW,5    P1
     3551   01 00B3D    33000006 A            MTW,0    6
     3552   01 00B3E    68300B45              BCR,3    DBUF01
     3553   01 00B3F    31600690              CW,6     ZIOWDS            WILL P2 EXCEED END OF MEMORY
     3554   01 00B40    69100B42              BCS,1    %+2               B IF NO
     3555   01 00B41    32600690              LW,6     ZIOWDS            GET NUM. OF WORDS LEFT IN MEMORY
     3556   01 00B42    30500006 A            AW,5     6
     3557   01 00B43    35500697              STW,5    P2
     3558   01 00B44    68000B47              B        DBUF02
     3559   01 00B45    32600687     DBUF01   LW,6     ZEMS
     3560   01 00B46    35600697              STW,6    P2
     3561   01 00B47    35100698     DBUF02   STW,1    P3
     3562   01 00B48    224FFFFF A            LI,4     -1
     3563   01 00B49    66400697              AWM,4    P2
     3564   01 00B4A    6800056C              B        ZDMP              LET D C P DO-IT
     3565                            *
     3566                            *
     3567   01 00B4B    00000CD0     BUFFPPTR DATA     BUFFP
     3568   01 00B4C    00000D10     BUFFAPTR DATA     BUFFA
     3569   01 00B4D    00000D50     BUFFOPTR DATA     BUFFO
     3570   01 00B4E    00000D90     PATTNPTR DATA     PATTERN
     3571   01 00B4F    00000DD0     PATCHPTR DATA     PATCHLOC
     3572                                     PAGE
     3573                            *
     3574                            *
     3575                            *        M A R K  I D E N T I F Y  R O U T I N E
     3576                            *
     3577                            *
     3578   01 00B50    60000000 A            DATA     6**28
     3579                            *
     3580   01 00B51    32C00696     MARKSE   LW,12    P1
     3581   01 00B52    6AE007E5              BAL,14   FZBWSC            FILL 'ZERO' BYTES WITH 'SPACE' CODE
     3582   01 00B53    35C00FC2              STW,12   TEXT35+2
     3583   01 00B54    32C00FBF              LW,12    MW35
     3584   01 00B55    022000E0 A            LCI      14                TW OR LP, MESSAGE LEVEL 2
     3585   01 00B56    680005C9              B        ZTWLP
     3586                            *
     3587                            *
     3588                                     PAGE
     3589                            *
     3590                            *
     3591                            *        A L A R M  R O U T I N E
     3592                            *
     3593                            *
     3594   01 00B57    40000000 A            DATA     4**28
     3595                            *
     3596                            *
     3597   01 00B58    33000696     ALRMSE   MTW,0    P1
     3598   01 00B59    69300B5C              BCS,3    %+3
     3599   01 00B5A    6D000040 A            WD,0     X'40'
     3600   01 00B5B    E800000F A            B        *15
     3601   01 00B5C    6D000041 A            WD,0     X'41'
     3602   01 00B5D    E800000F A            B        *15
     3603                            *
     3604                                     PAGE
     3605                            *
     3606                            *
     3607                            *        P A T T E R N  R O U T I N E
     3608                            *
     3609                            *
     3610   01 00B5E    20000000 A            DATA     2**28             P1 = PATTERN TYPE
     3611   01 00B5F    20000000 A            DATA     2**28             P2 = NUMBER OF BYTES OF PATTERN
     3612                            *                                    TO BE SPREAD IN OVERRIDE BUFFER
     3613                            *
     3614                            *
     3615   01 00B60    22D000FF A   PATSE    LI,13    255
     3616   01 00B61    31D00697              CW,13    P2
     3617   01 00B62    68400B84              BCR,4    PATNORM
     3618   01 00B63    4AD00697              LS,13    P2
     3619   01 00B64    35D00698              STW,13   P3
     3620   01 00B65    35000697              STW,0    P2
     3621   01 00B66    35F00EA7              STW,15   RETURN
     3622   01 00B67    6AF00B60              BAL,15   PATSE
     3623   01 00B68    32C00698              LW,12    P3
     3624   01 00B69    31C00E9F              CW,12    PLENGTH
     3625   01 00B6A    69200B6C              BCS,2    %+2
     3626   01 00B6B    32C00E9F              LW,12    PLENGTH
     3627   01 00B6C    32500690              LW,5     ZIOWDS
     3628   01 00B6D    3240000C A            LW,4     12
     3629   01 00B6E    205FFFFF A            AI,5     -1                REDUCE BY ONE WORD FOR
     3630                            *                                    COMPATABILITY W H DBUF,X,0,1
     3631                            *
     3632   01 00B6F    25500002 A            SLS,5    2                 CONVERT TO BYTE COUNT
     3633                            *
     3634   01 00B70    3650000C A            DW,5     12                LOOP COUNT
     3635   01 00B71    32700005 A            LW,7     5
     3636   01 00B72    3770000C A            MW,7     12
     3637   01 00B73    35700E9B              STW,7    PATOVLTH
     3638   01 00B74    25C00318 A            SCD,12   24
     3639   01 00B75    3290068F              LW,9     ZIOADR
     3640   01 00B76    25900002 A            SLS,9    2                 CONVERT TO BYTE ADDRESS
     3641   01 00B77    3A500005 A            LCW,5    5
     3642   01 00B78    22600000 A            LI,6     0
     3643   01 00B79    72AC0D90              LB,10    PATTERN,6
     3644   01 00B7A    75AC0009 A            STB,10   9,6
     3645   01 00B7B    20600001 A            AI,6     1
     3646   01 00B7C    31600004 A            CW,6     4
     3647   01 00B7D    69100B79              BCS,1    %-4
     3648   01 00B7E    30900006 A            AW,9     6
     3649   01 00B7F    65500B78              BIR,5    %-7
     3650   01 00B80    22500040 A            LI,5     64                                                *C00
     3651   01 00B81    47500E99              STS,5    KEYWORD                                           *C00
     3652   01 00B82    6AF00525              BAL,15   ZSCIR             RESTORE REGISTERS
     3653   01 00B83    E8000EA7              B        *RETURN
     3654                            *
     3655   01 00B84    22400000 A   PATNORM  LI,4     0
     3656   01 00B85    225FFF80 A            LI,5     -128
     3657   01 00B86    354A0E90              STW,4    IOBUFF+128,5
     3658   01 00B87    65500B86              BIR,5    %-1
     3659   01 00B88    32700696              LW,7     P1
     3660   01 00B89    4B700FCC              AND,7    L(7)
     3661   01 00B8A    680E0B8B              B        %+1,7
     3662   01 00B8B    68000B94              B        PAT000
     3663   01 00B8C    68000B98              B        PAT001
     3664   01 00B8D    68000B9C              B        PAT002
     3665   01 00B8E    68000B9F              B        PAT003
     3666   01 00B8F    68000BBD              B        PAT004
     3667   01 00B90    68000BC1              B        PAT005
     3668   01 00B91    68000BCD              B        PAT006
     3669   01 00B92    E800000F A            B        *15
     3670                            *
     3671   01 00B93    00000000 A   PATZERO  DATA     0
     3672                            *
     3673   01 00B94    22800004 A   PAT000   LI,8     4                 FOUR BYTES
     3674   01 00B95    22900B93              LI,9     PATZERO
     3675   01 00B96    68000BEF              B        PSPREAD
     3676                            *
     3677   01 00B97    FFFFFFFF A   PATONES  DATA     -1
     3678                            *
     3679   01 00B98    22800004 A   PAT001   LI,8     4
     3680   01 00B99    22900B97              LI,9     PATONES
     3681   01 00B9A    68000BEF              B        PSPREAD
     3682                            *
     3683   01 00B9B    AA55AA55 A   PATALT10 DATA     X'AA55AA55'
     3684                            *
     3685   01 00B9C    22800004 A   PAT002   LI,8     4
     3686   01 00B9D    22900B9B              LI,9     PATALT10
     3687   01 00B9E    68000BEF              B        PSPREAD
     3688                            *
     3689   01 00B9F    22500001 A   PAT003   LI,5     1
     3690   01 00BA0    6AE00AAE              BAL,14   EOTCTEST+3        TEST FOR EXECUTION OF EOTC
     3691   01 00BA1    72520E9D              LB,5     EOTC,1
     3692   01 00BA2    4B500FD0              AND,5    =15
     3693   01 00BA3    21500001 A            CI,5     1                 FORMAT 1, ASYNCHRONOUS, CASE SHIFT
     3694   01 00BA4    69300BA6              BCS,3    %+2
     3695   01 00BA5    20500004 A            AI,5     4
     3696   01 00BA6    75560BA8              STB,5    %+2,3             COUNT
     3697   01 00BA7    22500001 A            LI,5     1
     3698   01 00BA8    25500000 A            SLS,5    0
     3699   01 00BA9    64500BAA              BDR,5    %+1               REDUCE BY ONE BYTE (EOTC NOT SPREAD)
     3700   01 00BAA    35500008 A            STW,5    8
     3701   01 00BAB    72600E9D              LB,6     EOTC
     3702   01 00BAC    20600001 A            AI,6     1
     3703   01 00BAD    22400000 A            LI,4     0
     3704   01 00BAE    2270000C A            LI,7     12
     3705   01 00BAF    31700E99              CW,7     KEYWORD           ANY SYNC CHARACTER DECLARED
     3706                            *
     3707   01 00BB0    68400BB6              BCR,4    PAT3ASYN          NO, ASYNCHRONOUS
     3708   01 00BB1    71600E9E              CB,6     SYNC
     3709   01 00BB2    69300BB6              BCS,3    PAT3ASYN          SYNC NOT EQUAL TO EOTC PLUS ONE
     3710   01 00BB3    64500BB4              BDR,5    %+1
     3711   01 00BB4    756A0D90              STB,6    PATTERN,5
     3712   01 00BB5    20600001 A            AI,6     1
     3713   01 00BB6    3A500005 A   PAT3ASYN LCW,5    5
     3714   01 00BB7    75680D90              STB,6    PATTERN,4
     3715   01 00BB8    20600001 A            AI,6     1
     3716   01 00BB9    20400001 A            AI,4     1
     3717   01 00BBA    65500BB7              BIR,5    %-3
     3718   01 00BBB    22900D90              LI,9     PATTERN
     3719   01 00BBC    68000BEF              B        PSPREAD
     3720                            *
     3721   01 00BBD    22500100 A   PAT004   LI,5     256
     3722   01 00BBE    6AE00BE3              BAL,14   GBYTES
     3723   01 00BBF    22900E10              LI,9     IOBUFF
     3724   01 00BC0    68000BEF              B        PSPREAD
     3725                            *
     3726   01 00BC1    22500200 A   PAT005   LI,5     512
     3727   01 00BC2    6AE00BE3              BAL,14   GBYTES
     3728   01 00BC3    22400000 A            LI,4     0
     3729   01 00BC4    52680E10              LH,6     IOBUFF,4
     3730   01 00BC5    6AE00BD9              BAL,14   CV02
     3731   01 00BC6    75780E10              STB,7    IOBUFF,4
     3732   01 00BC7    20400001 A            AI,4     1
     3733   01 00BC8    31400008 A            CW,4     8
     3734   01 00BC9    68200BC4              BCR,2    %-5
     3735   01 00BCA    2580007F A            SLS,8     -1
     3736   01 00BCB    22900E10              LI,9     IOBUFF
     3737   01 00BCC    68000BEF              B         PSPREAD
     3738                            *
     3739   01 00BCD    35F006A4     PAT006   STW,15   P15
     3740   01 00BCE    22F00004 A            LI,15    4
     3741   01 00BCF    35F00696              STW,15   P1
     3742   01 00BD0    6AF00B60              BAL,15   PATSE             FIRST GET
     3743   01 00BD1    225FFF00 A            LI,5     -256               PATTERN
     3744   01 00BD2    22400000 A            LI,4     0                   IN EBCDIC,
     3745   01 00BD3    72680D90              LB,6     PATTERN,4            THEN
     3746   01 00BD4    727C0EAD              LB,7     CVTAB2,6              CONVERT
     3747   01 00BD5    75780D90              STB,7    PATTERN,4              TO ASCII
     3748   01 00BD6    20400001 A            AI,4     1                       AND STORE
     3749   01 00BD7    65500BD3              BIR,5    %-4                      IT IN
     3750   01 00BD8    E80006A4              B        *P15                      PATTERN TABLE
     3751                            *
     3752   01 00BD9    21600030 A   CV02     CI,6     3**4
     3753   01 00BDA    69400BDD              BCS,4    %+3
     3754   01 00BDB    73760006 A            MTB,7     6,3
     3755   01 00BDC    73260006 A            MTB,2     6,3
     3756   01 00BDD    2560017C A            SLD,6    -4
     3757   01 00BDE    2560007C A            SLS,6    -4
     3758   01 00BDF    64200BD9              BDR,2    CV02
     3759   01 00BE0    22200002 A            LI,2     2
     3760   01 00BE1    72700007 A            LB,7     7
     3761   01 00BE2    E800000E A            B        *14
     3762                            *
     3763                            *
     3764   01 00BE3    22800000 A   GBYTES   LI,8     0
     3765   01 00BE4    35F006A3     GBYTES1  STW,15   P14
     3766   01 00BE5    6AF0045B              BAL,15   ZFOC
     3767   01 00BE6    32F006A3              LW,15    P14
     3768   01 00BE7    21A00008 A            CI,10     X'08'
     3769   01 00BE8    E830000E A            BCR,3    *14
     3770   01 00BE9    35800006 A            STW,8    6
     3771   01 00BEA    20800001 A            AI,8     1
     3772   01 00BEB    75AC0E10              STB,10   IOBUFF,6
     3773   01 00BEC    31800005 A            CW,8      5
     3774   01 00BED    E830000E A            BCR,3    *14
     3775   01 00BEE    68000BE4               B       GBYTES1
     3776                            *
     3777                            *
     3778                            *
     3779   01 00BEF    21800000 A   PSPREAD  CI,8     0
     3780   01 00BF0    68300C03              BCR,3    PATDONE+2
     3781   01 00BF1    35800E9F              STW,8    PLENGTH
     3782   01 00BF2    35900EA1              STW,9    PADDR
     3783   01 00BF3    22900100 A            LI,9     256
     3784   01 00BF4    36900008 A            DW,9     8
     3785   01 00BF5    35900007 A            STW,9    7                 LOOP COUNT
     3786   01 00BF6    37900E9F              MW,9     PLENGTH
     3787   01 00BF7    35900EA0              STW,9    TLENGTH
     3788   01 00BF8    22500000 A            LI,5     0
     3789   01 00BF9    22600000 A   PS01     LI,6     0
     3790   01 00BFA    F21C0EA1     PS02     LB,1     *PADDR,6
     3791   01 00BFB    F51A0B4E              STB,1    *PATTNPTR,5
     3792   01 00BFC    20500001 A            AI,5     1
     3793   01 00BFD    20600001 A            AI,6     1
     3794   01 00BFE    31600E9F              CW,6     PLENGTH
     3795   01 00BFF    69100BFA              BCS,1    PS02
     3796   01 00C00    64700BF9              BDR,7    PS01
     3797   01 00C01    22500020 A   PATDONE  LI,5     32
     3798   01 00C02    47500E99              STS,5    KEYWORD
     3799   01 00C03    22000000 A            LI,0     0                 RESTORE
     3800   01 00C04    22100001 A            LI,1     1                  REGISTERS
     3801   01 00C05    E800000F A            B        *15
     3802                            *
     3803                            *
     3804                                     PAGE
     3805                            *
     3806                            *
     3807                            *        C O M P A R E  D A T A  R O U T I N E
     3808                            *
     3809                            *
     3810   01 00C06    20000000 A            DATA     2**28             P1 = DEPTH INTO BUFFER
     3811   01 00C07    00000000 A            DATA     0                 P2 = SELECTED BUFFER
     3812                            *
     3813                            *
     3814                            *
     3815   01 00C08    35F00EA7     CRTDSE   STW,15   RETURN
     3816   01 00C09    33100E9A              MTW,1    PMBKEY
     3817   01 00C0A    35000EA6              STW,0    CSCODE
     3818   01 00C0B    32900EAB              LW,9     BUFLST
     3819   01 00C0C    32500697              LW,5     P2                IS P2 0
     3820   01 00C0D    68300C1B              BCR,3    CRTD02            B IF YES
     3821   01 00C0E    22400000 A            LI,4     0
     3822   01 00C0F    215000F0 A            CI,5     X'F0'
     3823   01 00C10    69200C13              BCS,2    %+3
     3824   01 00C11    32980B4B     CRTD01   LW,9     BUFFPPTR,4        SELECTED BUFFER
     3825   01 00C12    68000C1B              B        CRTD02
     3826   01 00C13    20400001 A            AI,4     1
     3827   01 00C14    215000F1 A            CI,5     X'F1'
     3828   01 00C15    69200C17              BCS,2    %+2
     3829   01 00C16    68000C11              B        CRTD01
     3830   01 00C17    32C00F13              LW,12    MWCRTD            TEXT: 'IMPROPER BUFFER SELECTED :
     3831                            *                                          DIRECTIVE ABORTED'
     3832   01 00C18    02200040 A            LCI      4                 TW ONLY,MESSAGE LEVEL 0
     3833   01 00C19    6AF005C9              BAL,15   ZTWLP
     3834   01 00C1A    6800076F              B        SHUTDOWN
     3835   01 00C1B    66100EAC     CRTD02   AWM,1    CMPNO
     3836   01 00C1C    52C20EAC              LH,12    CMPNO,1
     3837   01 00C1D    6AF004EA              BAL,15   ZBTD
     3838   01 00C1E    6AF004FF              BAL,15   ZBTH
     3839   01 00C1F    35D00FBE              STW,13   TEXT15+10
     3840   01 00C20    32B00FD1              LW,11    =X'40404040'
     3841   01 00C21    75C6000B A            STB,12   11,3
     3842   01 00C22    35B00FBD              STW,11   TEXT15+9
     3843   01 00C23    35000EAA              STW,0    ERRORWD1
     3844   01 00C24    226000FF A            LI,6     255
     3845   01 00C25    31000696              CW,0     P1
     3846   01 00C26    68300C2B              BCR,3    CRTD03
     3847   01 00C27    32600696              LW,6     P1
     3848   01 00C28    31600EA0              CW,6     TLENGTH
     3849   01 00C29    68200C2B              BCR,2    CRTD03
     3850   01 00C2A    32600EA0              LW,6     TLENGTH
     3851   01 00C2B    72520E9D     CRTD03   LB,5     EOTC,1                                            *D00
     3852   01 00C2C    215000F1 A            CI,5     X'F1'                                             *C00
     3853   01 00C2D    68300C56              BCR,3    CRTD06
     3854   01 00C2E    22700000 A            LI,7     0
     3855   01 00C2F    728E0D50     CRTD03A  LB,8     BUFFO,7
     3856   01 00C30    F18E0009 A            CB,8     *9,7
     3857   01 00C31    68300C51              BCR,3    CRTD05
     3858   01 00C32    31000EAA              CW,0     ERRORWD1
     3859   01 00C33    69300C3A              BCS,3    CRTD03B
     3860   01 00C34    35100EAA              STW,1    ERRORWD1
     3861   01 00C35    66100EA7              AWM,1    RETURN            FOR PLACEMARK BRANCH
     3862   01 00C36    66100E9A              AWM,1    PMBKEY
     3863   01 00C37    32C00FA7              LW,12    MW14
     3864   01 00C38    022000E0 A            LCI      14                TW OR LP, MESSAGE LEVEL 2
     3865   01 00C39    6AF005C9              BAL,15   ZTWLP
     3866   01 00C3A    6AF00C3C     CRTD03B  BAL,15   CRTD04
     3867   01 00C3B    68000C51              B        CRTD05
     3868   01 00C3C    35F00EA2     CRTD04   STW,15   SAVE0
     3869   01 00C3D    32C00007 A            LW,12    7
     3870   01 00C3E    20C00001 A            AI,12    1
     3871   01 00C3F    6AF004EA              BAL,15   ZBTD
     3872   01 00C40    6AF004FF              BAL,15   ZBTH
     3873   01 00C41    35D00FB5              STW,13   TEXT15+1
     3874   01 00C42    75800004 A            STB,8    4
     3875   01 00C43    6AD007F4              BAL,13   CONVERT
     3876   01 00C44    35500FB7              STW,5    TEXT15+3          STORE
     3877   01 00C45    6AD007F4              BAL,13   CONVERT            EXPECTED
     3878   01 00C46    35500FB8              STW,5    TEXT15+4            CHAR
     3879   01 00C47    F24E0009 A            LB,4     *9,7
     3880   01 00C48    25400018 A            SLS,4    24
     3881   01 00C49    6AD007F4              BAL,13   CONVERT
     3882   01 00C4A    35500FBA              STW,5    TEXT15+6          STORE
     3883   01 00C4B    6AD007F4              BAL,13   CONVERT            RECEIVED
     3884   01 00C4C    35500FBB              STW,5    TEXT15+7            CHAR
     3885   01 00C4D    32C00FB3              LW,12    MW15
     3886   01 00C4E    022000D0 A            LCI      13                TW OR LP, MESSAGE LEVEL 1
     3887   01 00C4F    6AF005C9              BAL,15   ZTWLP
     3888   01 00C50    E8000EA2              B        *SAVE0
     3889   01 00C51    20700001 A   CRTD05   AI,7     1
     3890   01 00C52    31700006 A            CW,7     6
     3891   01 00C53    69100C2F              BCS,1    CRTD03A
     3892   01 00C54    6AE007A6              BAL,14   INTKEY
     3893   01 00C55    E8000EA7              B        *RETURN
     3894                            *
     3895   01 00C56    22700000 A   CRTD06   LI,7     0
     3896   01 00C57    728E0D50              LB,8     BUFFO,7           GET EXPECTED CHAR
     3897   01 00C58    31000EA6              CW,0     CSCODE
     3898   01 00C59    68300C61              BCR,3    CRTD07
     3899   01 00C5A    69100C5D              BCS,1    %+3               B IF DOWNSHIFT LAST
     3900   01 00C5B    49800FD2              OR,8     L(1**5)
     3901   01 00C5C    68000C5E              B        CRTD06A
     3902   01 00C5D    4B800FD3              AND,8    =X'DF'
     3903   01 00C5E    F18E0009 A   CRTD06A  CB,8     *9,7
     3904   01 00C5F    68300C6F              BCR,3    CRTD07C
     3905   01 00C60    68000C66              B        CRTD07A
     3906   01 00C61    4B800FD3     CRTD07   AND,8    =X'DF'
     3907   01 00C62    F2AE0009 A            LB,10    *9,7
     3908   01 00C63    4BA00FD3              AND,10   =X'DF'
     3909   01 00C64    3180000A A            CW,8     10
     3910   01 00C65    68300C6F              BCR,3    CRTD07C
     3911   01 00C66    31000EAA     CRTD07A  CW,0     ERRORWD1
     3912   01 00C67    69300C6E              BCS,3    CRTD07B
     3913   01 00C68    35100EAA              STW,1    ERRORWD1
     3914   01 00C69    66100EA7              AWM,1    RETURN
     3915   01 00C6A    66100E9A              AWM,1    PMBKEY
     3916   01 00C6B    32C00FA7              LW,12    MW14
     3917   01 00C6C    022000E0 A            LCI      14
     3918   01 00C6D    6AF005C9              BAL,15   ZTWLP
     3919   01 00C6E    6AF00C3C     CRTD07B  BAL,15   CRTD04
     3920   01 00C6F    4B800FD4     CRTD07C  AND,8    =X'1F'
     3921   01 00C70    2180001B A            CI,8     X'1B'             IS CHAR SHIFT UP
     3922   01 00C71    69300C74              BCS,3    %+3               B IF NOT
     3923   01 00C72    224FFFFF A            LI,4     -1                MAKE CSCODE NEG IF UPSHIFT
     3924   01 00C73    35400EA6              STW,4    CSCODE
     3925   01 00C74    2180001F A            CI,8     X'1F'             IS CHAR SHIFT DOWN
     3926   01 00C75    69300C77              BCS,3    %+2               B IF NOT
     3927   01 00C76    35100EA6              STW,1    CSCODE            MAKE CSCODE POS IF DOWNSHIFT
     3928   01 00C77    20700001 A            AI,7     1
     3929   01 00C78    31700006 A            CW,7     6
     3930   01 00C79    69100C57              BCS,1    CRTD06+1
     3931   01 00C7A    6AE007A6              BAL,14   INTKEY
     3932   01 00C7B    E8000EA7              B        *RETURN
     3933                                     PAGE
     3934                            *
     3935                            *
     3936                            *        ABORT ROUTINES
     3937                            *
     3938                            *
     3939                                     BOUND    8
     3940   01 00C7C    00000000 A   ABORT   DATA      0,0
            01 00C7D    00000000 A
     3941   01 00C7E    00000C80             DATA      %+2,7**24
            01 00C7F    07000000 A
     3942   01 00C80    68000C86              B        EOTCDR
     3943   01 00C81    68000C88              B        SYNCDR
     3944   01 00C82    68000C8A              B        DTNDR
     3945   01 00C83    68000C8C              B        PATDR
     3946   01 00C84    68000C98              B        ABORTMG2
     3947   01 00C85    68000C8F              B        PATVDR
     3948                            *
     3949                            *
     3950   01 00C86    32C006F7     EOTCDR   LW,12    AIONAME+6
     3951   01 00C87    68000C91              B        ABORTMG1
     3952                            *
     3953   01 00C88    32C006F8     SYNCDR   LW,12    AIONAME+7
     3954   01 00C89    68000C91              B        ABORTMG1
     3955                            *
     3956   01 00C8A    32C006F9     DTNDR    LW,12    AIONAME+8
     3957   01 00C8B    68000C8D              B        %+2
     3958   01 00C8C    32C006FE     PATDR    LW,12    AIONAME+13                                        *C00
     3959   01 00C8D    6AE007E5              BAL,14   FZBWSC
     3960   01 00C8E    68000C91              B        ABORTMG1
     3961                            *
     3962   01 00C8F    32C00FD5     PATVDR   LW,12    =C'PATV'
     3963   01 00C90    68000C91              B        ABORTMG1
     3964                            *
     3965   01 00C91    35C00F9B     ABORTMG1 STW,12   TEXT12+2
     3966   01 00C92    6AE00ADF              BAL,14   DIRABMSG          'DIRECTIVE ABORTED:  ' MESSAGE
     3967   01 00C93    32C00F98              LW,12    MW12
     3968   01 00C94    02200040 A            LCI      4                 TW ONLY, MESSAGE LEVEL 0
     3969   01 00C95    6AF005C9              BAL,15   ZTWLP
     3970   01 00C96    6D000027 A            WD,0     X'27'             RESET INTERRUPT INHIBITS
     3971   01 00C97    68000288              B        ZPC010
     3972                            *
     3973   01 00C98    75C40F27     ABORTMG2 STB,12   TEXT02+2,2
     3974   01 00C99    32C00F2C              LW,12    MW02
     3975   01 00C9A    02200040 A            LCI      4                 TW ONLY, MESSAGE LEVEL 0
     3976   01 00C9B    6AF005C9              BAL,15   ZTWLP
     3977   01 00C9C    6D000027 A            WD,0     X'27'             RESET INTERRUPT INHIBITS
     3978   01 00C9D    68000288              B        ZPC010
     3979                                     PAGE
     3980                            *
     3981                            *
     3982                                     BOUND    8
     3983                            *
     3984                            *
     3985   01 00C9E    00000000 A   CP01     DATA     0                 THIS DOUBLE WORD GENERATED BY
     3986   01 00C9F    00000000 A            DATA     0                  'SIOVRIDE' CODE IN 'SIO' ROUTINE
     3987                            *                                     WHEN P7 IS NON-ZERO
     3988   01 00CA0    0800064F              GEN,8,24 8,DA(CP01)        TRANSFER IN
     3989   01 00CA1    00000000 A            DATA     0                  CHANNEL
     3990   01 00CA2    80000000 A            DATA     1**31             STOP (WITH INTERRUPT)
     3991   01 00CA3    00000000 A            DATA     0                  ORDER
     3992                            *
     3993   01 00CA4    01003A54              GEN,8,24 1,BA(SYNCBUFF)
     3994   01 00CA5    80000004 A            GEN,8,24 128,4
     3995                            *
     3996   01 00CA6    01003440     CP02     GEN,8,24 1,BA(BUFFA)
     3997   01 00CA7    00000000 A            GEN,8,24 0,0
     3998                            *
     3999   01 00CA8    01003CB8     CP03     GEN,8,24 X'01',BA(TEXT03)
     4000   01 00CA9    0000002C A            DATA     44
     4001                            *
     4002   01 00CAA    02000000 A   CP04     GEN,8,24 2,0               SIO READ ORDER SELECTS STARTING BYTE
     4003   01 00CAB    00000000 A            DATA     0                  ADDRESS, FLAGS, AND BYTE COUNT
     4004                            *                                    NOTE:  ORDER IN CP04 MAY BE
     4005                            *                                    MODIFIED TO INCLUDE NUMBER OF BITS
     4006                            *                                     PER CHARACTER FOR SYNCHRONOUS
     4007                            *                                      READ ORDERS
     4008                            *
     4009   01 00CAC    08000655              GEN,8,24 8,DA(CP04)        TRANSFER IN
     4010   01 00CAD    00000000 A            DATA     0                  CHANNEL
     4011                            *
     4012   01 00CAE    05003340     CP05     GEN,8,24 5,BA(BUFFP)
     4013   01 00CAF    00000000 A            GEN,8,24 0,0
     4014                            *
     4015                            *
     4016   01 00CB0    00003640     CP06     GEN,8,24 0,BA(PATTERN)     ORDER STORED IN SIO DIRECTIVE IS
     4017                            *                                    DISCONNECT CALL, OR ENABLE-DISABLE
     4018                            *                                     RING DETECT
     4019   01 00CB1    44000001 A            GEN,8,24 68,1              FLAGS = IZC, IUE  BYTE COUNT = 1
     4020                            *
     4021                            *
     4022   01 00CB2    05003A40     CP07     GEN,8,24 5,BA(TELNUM)      DIAL ORDER
     4023   01 00CB3    04000000 A            DATA     1**26             FLAG = IUE, BYTE COUNT
     4024                            *                                    FROM DTN ROUTINE
     4025                            *
     4026   01 00CB4    09003640     CP08     GEN,8,24 9,BA(PATTERN)     TRANSMIT LONG SPACE ORDER
     4027   01 00CB5    04000000 A            DATA     1**26             FLAG = IUE, BYTE COUNT FROM
     4028                            *                                    SIO ROUTINE
     4029                            *
     4030   01 00CB6    02003340     CP09     GEN,8,24 2,BA(BUFFP)       READ ORDER FROM SIO DIRECTIVE WITH
     4031                            *                                    COMMAND CHAINING
     4032   01 00CB7    00000000 A            DATA     0                 FLAGS AND BYTE COUNT GENERATED
     4033   01 00CB8    02003440     CP10     GEN,8,24 2,BA(BUFFA)       READ ORDER FROM SIO DIRECTIVE WITH
     4034                            *                                    DATA CHAINING
     4035   01 00CB9    00000000 A            DATA     0                 FLAGS AND BYTE COUNT GENERATED
     4036   01 00CBA    0800065B              GEN,8,24 8,DA(CP09)        TRANSFER IN
     4037   01 00CBB    00000000 A            DATA     0                  CHANNEL
     4038   01 00CBC    00003A54     CP11     GEN,8,24 0,BA(SYNCBUFF)    SYNC CHARACTERS FOR WRITE ORDER
     4039                            *                                    (GENERATED) WITHOUT CHAINING
     4040   01 00CBD    00000000 A            DATA     0                 FLAGS AND BYTE COUNT GENERATED
     4041   01 00CBE    00003540     CP12     GEN,8,24 0,BA(BUFFO)       ORDER GENERATED
     4042   01 00CBF    00000000 A            DATA     0                 FLAGS AND BYTE COUNT GENERATED
     4043   01 00CC0    00003A74              GEN,8,24 0,BA(EOTC)        ORDER GENERATED
     4044   01 00CC1    00000001 A            GEN,8,24 0,1               FLAGS GENERATED
     4045   01 00CC2    00003A54     CP13     GEN,8,24 0,BA(SYNCBUFF)    ORDER GENERATED
     4046   01 00CC3    00000000 A            DATA     0                 FLAGS AND BYTE COUNT GENERATED
     4047   01 00CC4    08000000 A            DATA     1**27             TRANSFER IN CHANNEL TO LOCATIONS
     4048   01 00CC5    00000000 A            DATA     0                  GENERATED IN 'SIOWOWCF' CODE
     4049   01 00CC6    00003540     CP14     GEN,8,24 0,BA(BUFFO)       ORDER GENERATED
     4050   01 00CC7    00000000 A            DATA     0                 FLAGS AND BYTE COUNT GENERATED
     4051   01 00CC8    08000000 A            DATA     1**27             TRANSFER IN CHANNEL TO LOCATIONS
     4052   01 00CC9    00000000 A            DATA     0                  GENERATED IN 'SIOWOWCF' CODE
     4053   01 00CCA    00003540     CP15     GEN,8,24 0,BA(BUFFO)       ORDER GENERATED
     4054   01 00CCB    00000000 A            DATA     0                 FLAGS AND BYTE COUNT GENERATED
     4055   01 00CCC    08000000 A            DATA     1**27             TRANSFER IN CHANNEL TO LOCATIONS
     4056   01 00CCD    00000000 A            DATA     0                  GENERATED IN 'SIOWOWCF' CODE
     4057   01 00CCE    00003A74     CP16     GEN,8,24 0,BA(EOTC)        ORDER GENERATED
     4058   01 00CCF    00000001 A            GEN,8,24 0,1               FLAGS GENERATED
     4059                                     PAGE
     4060                            *
     4061                            *
     4062         01 00CD0           ZTAB     EQU      %
     4063   01 00CD0                 BUFFP    RES      64                PRIMARY BUFFER AREA (READ)
     4064   01 00D10                 BUFFA    RES      64                ALTERNATE BUFFER AREA (READ)
     4065   01 00D50                 BUFFO    RES      64                OUTPUT BUFFER AREA (WRITE)
     4066                            *
     4067   01 00D90                 PATTERN  RES      64
     4068   01 00DD0                 PATCHLOC RES      64
     4069                                     BOUND    8
     4070   01 00E10                 IOBUFF   RES      128
     4071                            *
     4072   01 00E90                 TELNUM   RES      4
     4073   01 00E94    00000000 A   DTNBC    DATA     0
     4074   01 00E95                 SYNCBUFF RES      4
     4075                            *
     4076                            *
     4077   01 00E99    00000000 A   KEYWORD  DATA     0                 ONE BITS INDICATE FOLLOWING:
     4078                            *                                   BIT 31 =  EOTC  PRIMARY
     4079                            *                                   BIT 30 =  EOTC  ALTERNATE
     4080                            *                                   BIT 29 =  SYNC  PRIMARY
     4081                            *                                   BIT 27 = DTN
     4082                            *                                   BIT 26 =  PAT
     4083                            *                                   BIT 25 =  PAT,X,1-255
     4084                            *                                   BIT 24 = SYNC ALTERNATE
     4085   01 00E9A    00000000 A   PMBKEY   DATA     0                 NON-ZERO INDICATES DIRECTIVE WITH
     4086                            *                                    TRANSFERENCE CAPABILITY IN EXECUTION
     4087                                     PAGE
     4088                            *
     4089   01 00E9B    00000000 A   PATOVLTH DATA     0                 LENTH OF PATTERN DIRECTIVE
     4090                            *                                    SPREAD IN MEMORY ABOVE DCP
     4091                            *                                     AND PROGRAM BY PAT,X,1-255
     4092   01 00E9C    00000000 A   ENVIFLAG DATA     0
     4093   01 00E9D    00000000 A   EOTC     DATA     0
     4094   01 00E9E    00000000 A   SYNC     DATA     0
     4095   01 00E9F    00000000 A   PLENGTH  DATA     0
     4096   01 00EA0    00000000 A   TLENGTH  DATA     0
     4097   01 00EA1    00000000 A   PADDR    DATA     0
     4098   01 00EA2    00000000 A   SAVE0    DATA     0
     4099   01 00EA3    00000000 A   SAVE1    DATA     0
     4100   01 00EA4    00000000 A   SAVE2    DATA     0
     4101   01 00EA5    00000000 A   SAVE3    DATA     0
     4102   01 00EA6    00000000 A   CSCODE   DATA     0
     4103   01 00EA7    00000000 A   RETURN   DATA     0
     4104   01 00EA8    00000000 A   TIME     DATA     0
     4105   01 00EA9    00000000 A   TIME1    DATA     0
     4106   01 00EAA    00000000 A   ERRORWD1 DATA     0
     4107   01 00EAB    00000000 A   BUFLST   DATA     0
     4108   01 00EAC    00000000 A   CMPNO    DATA     0
     4109         000001DD           ZTABL    EQU      %-ZTAB
     4110                                     PAGE
     4111                            *        E B C D I C  T O  A S C I I
     4112   01 00EAD    00       A   CVTAB2   DATA,1   0,129,130,3       00-03
            01 00EAD 1  81       A
            01 00EAD 2  82       A
            01 00EAD 3  03       A
     4113   01 00EAE    84       A            DATA,1   132,9,6,135       04-07
            01 00EAE 1  09       A
            01 00EAE 2  06       A
            01 00EAE 3  87       A
     4114   01 00EAF    18       A            DATA,1   24,5,149,139      08-0B
            01 00EAF 1  05       A
            01 00EAF 2  95       A
            01 00EAF 3  8B       A
     4115   01 00EB0    0C       A            DATA,1   12,141,142,15     0C-0F
            01 00EB0 1  8D       A
            01 00EB0 2  8E       A
            01 00EB0 3  0F       A
     4116   01 00EB1    90       A            DATA,1   144,17,18,147     10-13
            01 00EB1 1  11       A
            01 00EB1 2  12       A
            01 00EB1 3  93       A
     4117   01 00EB2    14       A            DATA,1   20,10,150,23      14-17
            01 00EB2 1  0A       A
            01 00EB2 2  96       A
            01 00EB2 3  17       A
     4118   01 00EB3    88       A            DATA,1   136,153,154,27    18-1B
            01 00EB3 1  99       A
            01 00EB3 2  9A       A
            01 00EB3 3  1B       A
     4119   01 00EB4    9C       A            DATA,1   156,29,30,159     1C-1F
            01 00EB4 1  1D       A
            01 00EB4 2  1E       A
            01 00EB4 3  9F       A
     4120                                     PAGE
     4121   01 00EB5    00       A            DATA,1   0,0,0,0           20-23
            01 00EB5 1  00       A
            01 00EB5 2  00       A
            01 00EB5 3  00       A
     4122   01 00EB6    00       A            DATA,1   0,0,0,0           24-27
            01 00EB6 1  00       A
            01 00EB6 2  00       A
            01 00EB6 3  00       A
     4123   01 00EB7    00       A            DATA,1   0,0,0,0           28-2B
            01 00EB7 1  00       A
            01 00EB7 2  00       A
            01 00EB7 3  00       A
     4124   01 00EB8    00       A            DATA,1   0,0,0,0           2C-2F
            01 00EB8 1  00       A
            01 00EB8 2  00       A
            01 00EB8 3  00       A
     4125   01 00EB9    00       A            DATA,1   0,0,0,0           30-33
            01 00EB9 1  00       A
            01 00EB9 2  00       A
            01 00EB9 3  00       A
     4126   01 00EBA    00       A            DATA,1   0,0,0,0           34-37
            01 00EBA 1  00       A
            01 00EBA 2  00       A
            01 00EBA 3  00       A
     4127   01 00EBB    00       A            DATA,1   0,0,0,0           38-3B
            01 00EBB 1  00       A
            01 00EBB 2  00       A
            01 00EBB 3  00       A
     4128   01 00EBC    00       A            DATA,1   0,0,0,0           3C-3F
            01 00EBC 1  00       A
            01 00EBC 2  00       A
            01 00EBC 3  00       A
     4129                                     PAGE
     4130   01 00EBD    A0       A            DATA,1   160,219,123,0     40-43
            01 00EBD 1  DB       A
            01 00EBD 2  7B       A
            01 00EBD 3  00       A
     4131   01 00EBE    00       A            DATA,1   0,0,0,0           44-47
            01 00EBE 1  00       A
            01 00EBE 2  00       A
            01 00EBE 3  00       A
     4132   01 00EBF    00       A            DATA,1   0,0,96,46         48-4B
            01 00EBF 1  00       A
            01 00EBF 2  60       A
            01 00EBF 3  2E       A
     4133   01 00EC0    3C       A            DATA,1   60,40,43,252      4C-4F
            01 00EC0 1  28       A
            01 00EC0 2  2B       A
            01 00EC0 3  FC       A
     4134   01 00EC1    A6       A            DATA,1   166,221,125,0     50-53
            01 00EC1 1  DD       A
            01 00EC1 2  7D       A
            01 00EC1 3  00       A
     4135   01 00EC2    00       A            DATA,1   0,0,0,0           54-57
            01 00EC2 1  00       A
            01 00EC2 2  00       A
            01 00EC2 3  00       A
     4136   01 00EC3    00       A            DATA,1   0,0,33,36         58-5B
            01 00EC3 1  00       A
            01 00EC3 2  21       A
            01 00EC3 3  24       A
     4137   01 00EC4    AA       A            DATA,1   170,169,187,126   5C-5F
            01 00EC4 1  A9       A
            01 00EC4 2  BB       A
            01 00EC4 3  7E       A
     4138                                     PAGE
     4139   01 00EC5    2D       A            DATA,1   45,175,92,0       60-63
            01 00EC5 1  AF       A
            01 00EC5 2  5C       A
            01 00EC5 3  00       A
     4140   01 00EC6    00       A            DATA,1   0,0,0,0           64-67
            01 00EC6 1  00       A
            01 00EC6 2  00       A
            01 00EC6 3  00       A
     4141   01 00EC7    00       A            DATA,1   0,0,222,172       68-6B
            01 00EC7 1  00       A
            01 00EC7 2  DE       A
            01 00EC7 3  AC       A
     4142   01 00EC8    A5       A            DATA,1   165,95,190,63     6C-6F
            01 00EC8 1  5F       A
            01 00EC8 2  BE       A
            01 00EC8 3  3F       A
     4143   01 00EC9    00       A            DATA,1   0,0,0,0           70-73
            01 00EC9 1  00       A
            01 00EC9 2  00       A
            01 00EC9 3  00       A
     4144   01 00ECA    00       A            DATA,1   0,0,0,0           74-77
            01 00ECA 1  00       A
            01 00ECA 2  00       A
            01 00ECA 3  00       A
     4145   01 00ECB    00       A            DATA,1   0,0,58,163        78-7B
            01 00ECB 1  00       A
            01 00ECB 2  3A       A
            01 00ECB 3  A3       A
     4146   01 00ECC    C0       A            DATA,1   192,39,189,34     7C-7F
            01 00ECC 1  27       A
            01 00ECC 2  BD       A
            01 00ECC 3  22       A
     4147                                     PAGE
     4148   01 00ECD    00       A            DATA,1   0,225,226,99      80-83
            01 00ECD 1  E1       A
            01 00ECD 2  E2       A
            01 00ECD 3  63       A
     4149   01 00ECE    E4       A            DATA,1   228,101,102,231   84-87
            01 00ECE 1  65       A
            01 00ECE 2  66       A
            01 00ECE 3  E7       A
     4150   01 00ECF    E8       A            DATA,1   232,105,0,0       88-8B
            01 00ECF 1  69       A
            01 00ECF 2  00       A
            01 00ECF 3  00       A
     4151   01 00ED0    00       A            DATA,1   0,0,0,0           8C-8F
            01 00ED0 1  00       A
            01 00ED0 2  00       A
            01 00ED0 3  00       A
     4152   01 00ED1    00       A            DATA,1   0,106,235,108     90-93
            01 00ED1 1  6A       A
            01 00ED1 2  EB       A
            01 00ED1 3  6C       A
     4153   01 00ED2    ED       A            DATA,1   237,238,111,240   94-97
            01 00ED2 1  EE       A
            01 00ED2 2  6F       A
            01 00ED2 3  F0       A
     4154   01 00ED3    71       A            DATA,1   113,114,0,0       98-9B
            01 00ED3 1  72       A
            01 00ED3 2  00       A
            01 00ED3 3  00       A
     4155   01 00ED4    00       A            DATA,1   0,0,0,0           9C-9F
            01 00ED4 1  00       A
            01 00ED4 2  00       A
            01 00ED4 3  00       A
     4156                                     PAGE
     4157   01 00ED5    00       A            DATA,1   0,0,243,116       A0-A3
            01 00ED5 1  00       A
            01 00ED5 2  F3       A
            01 00ED5 3  74       A
     4158   01 00ED6    F5       A            DATA,1   245,246,119,120   A4-A7
            01 00ED6 1  F6       A
            01 00ED6 2  77       A
            01 00ED6 3  78       A
     4159   01 00ED7    F9       A            DATA,1   249,250,0,0       A8-AB
            01 00ED7 1  FA       A
            01 00ED7 2  00       A
            01 00ED7 3  00       A
     4160   01 00ED8    00       A            DATA,1   0,0,0,0           AC-AF
            01 00ED8 1  00       A
            01 00ED8 2  00       A
            01 00ED8 3  00       A
     4161   01 00ED9    00       A            DATA,1   0,0,0,0           B0-B3
            01 00ED9 1  00       A
            01 00ED9 2  00       A
            01 00ED9 3  00       A
     4162   01 00EDA    00       A            DATA,1   0,0,0,0           B4-B7
            01 00EDA 1  00       A
            01 00EDA 2  00       A
            01 00EDA 3  00       A
     4163   01 00EDB    00       A            DATA,1   0,0,0,0           B8-BB
            01 00EDB 1  00       A
            01 00EDB 2  00       A
            01 00EDB 3  00       A
     4164   01 00EDC    00       A            DATA,1   0,0,0,0           BC-BF
            01 00EDC 1  00       A
            01 00EDC 2  00       A
            01 00EDC 3  00       A
     4165                                     PAGE
     4166   01 00EDD    00       A            DATA,1   0,65,66,195       C0-C3
            01 00EDD 1  41       A
            01 00EDD 2  42       A
            01 00EDD 3  C3       A
     4167   01 00EDE    44       A            DATA,1   68,197,198,71     C4-C7
            01 00EDE 1  C5       A
            01 00EDE 2  C6       A
            01 00EDE 3  47       A
     4168   01 00EDF    48       A            DATA,1   72,201,0,0        C8-CB
            01 00EDF 1  C9       A
            01 00EDF 2  00       A
            01 00EDF 3  00       A
     4169   01 00EE0    00       A            DATA,1   0,0,0,0           CC-CF
            01 00EE0 1  00       A
            01 00EE0 2  00       A
            01 00EE0 3  00       A
     4170   01 00EE1    00       A            DATA,1   0,202,75,204      D0-D3
            01 00EE1 1  CA       A
            01 00EE1 2  4B       A
            01 00EE1 3  CC       A
     4171   01 00EE2    4D       A            DATA,1   77,78,207,80      D4-D7
            01 00EE2 1  4E       A
            01 00EE2 2  CF       A
            01 00EE2 3  50       A
     4172   01 00EE3    D1       A            DATA,1   209,210,0,0       D8-DB
            01 00EE3 1  D2       A
            01 00EE3 2  00       A
            01 00EE3 3  00       A
     4173   01 00EE4    00       A            DATA,1   0,0,0,0           DC-DF
            01 00EE4 1  00       A
            01 00EE4 2  00       A
            01 00EE4 3  00       A
     4174                                     PAGE
     4175   01 00EE5    00       A            DATA,1   0,0,83,212        E0-E3
            01 00EE5 1  00       A
            01 00EE5 2  53       A
            01 00EE5 3  D4       A
     4176   01 00EE6    55       A            DATA,1   85,86,215,216     E4-E7
            01 00EE6 1  56       A
            01 00EE6 2  D7       A
            01 00EE6 3  D8       A
     4177   01 00EE7    59       A            DATA,1   89,90,0,0         E8-EB
            01 00EE7 1  5A       A
            01 00EE7 2  00       A
            01 00EE7 3  00       A
     4178   01 00EE8    00       A            DATA,1   0,0,0,0           EC-EF
            01 00EE8 1  00       A
            01 00EE8 2  00       A
            01 00EE8 3  00       A
     4179   01 00EE9    30       A            DATA,1   48,177,178,51     F0-F3
            01 00EE9 1  B1       A
            01 00EE9 2  B2       A
            01 00EE9 3  33       A
     4180   01 00EEA    B4       A            DATA,1   180,53,54,183     F4-F7
            01 00EEA 1  35       A
            01 00EEA 2  36       A
            01 00EEA 3  B7       A
     4181   01 00EEB    B8       A            DATA,1   184,57,0,0        F8-FB
            01 00EEB 1  39       A
            01 00EEB 2  00       A
            01 00EEB 3  00       A
     4182   01 00EEC    00       A            DATA,1   0,0,0,255         FC-FF
            01 00EEC 1  00       A
            01 00EEC 2  00       A
            01 00EEC 3  FF       A
     4183                            *
     4184                                     PAGE
     4185   01 00EED    05150840 A   CVTAB4   DATA     X'05150840'       HT NL EOM SPACE
     4186   01 00EEE    F0F1F2F3 A            DATA     X'F0F1F2F3'       0 1 2 3
     4187   01 00EEF    F4F5F6F7 A            DATA     X'F4F5F6F7'       4 5 6 7
     4188   01 00EF0    F8F9C1C2 A            DATA     X'F8F9C1C2'       8 9 A B
     4189   01 00EF1    C3C4C5C6 A            DATA     X'C3C4C5C6'       C D E F
     4190   01 00EF2    C7C8C9D1 A            DATA     X'C7C8C9D1'       G H I J
     4191   01 00EF3    D2D3D4D5 A            DATA     X'D2D3D4D5'       K L M N
     4192   01 00EF4    D6D7D8D9 A            DATA     X'D6D7D8D9'       O P Q R
     4193   01 00EF5    E2E3E4E5 A            DATA     X'E2E3E4E5'       S T U V
     4194   01 00EF6    E6E7E8E9 A            DATA     X'E6E7E8E9'       W X Y Z
     4195   01 00EF7    4A4B4C4D A            DATA     X'4A4B4C4D'       ` . < (
     4196   01 00EF8    4E4F505A A            DATA     X'4E4F505A'       + | & !
     4197   01 00EF9    5B5C5D5E A            DATA     X'5B5C5D5E'       % * ) ;
     4198   01 00EFA    5F60616B A            DATA     X'5F60616B'       ~ - / ,
     4199   01 00EFB    6C6D6E6F A            DATA     X'6C6D6E6F'       %  > ?
     4200   01 00EFC    7A7B7C7D A            DATA     X'7A7B7C7D'       : # @ '
     4201   01 00EFD    7E7F7E7F A            DATA     X'7E7F7E7F'       = " = "
     4202                            *
     4203   01 00EFE    FF       A   CVTAB5   DATA,1   255,31,3,7
            01 00EFE 1  1F       A
            01 00EFE 2  03       A
            01 00EFE 3  07       A
     4204   01 00EFF    0F       A            DATA,1   15,31,63,127
            01 00EFF 1  1F       A
            01 00EFF 2  3F       A
            01 00EFF 3  7F       A
     4205                            *
     4206                                     PAGE
     4207                            *
     4208   01 00F00    20483C04 A   MW00     ZFMW     2,0,72,BA(TEXT00)     PROGRAM HEADER MESSAGE      *C00
     4209                            *                                                                   *C00
     4210                            TEXT00   TEXT     '
SIGMA 5-9 DATA SET CONTROLLER TEST
',;          *C00
     4211   01 00F01    15E2C9C7 A                     'PROGRAM 704013-D02  MANUAL 901509 D
'            *D02
            01 00F02    D4C140F5 A
            01 00F03    60F940C4 A
            01 00F04    C1E3C140 A
            01 00F05    E2C5E340 A
            01 00F06    C3D6D5E3 A
            01 00F07    D9D6D3D3 A
            01 00F08    C5D940E3 A
            01 00F09    C5E2E315 A
            01 00F0A    D7D9D6C7 A
            01 00F0B    D9C1D440 A
            01 00F0C    F7F0F4F0 A
            01 00F0D    F1F360C4 A
            01 00F0E    F0F24040 A
            01 00F0F    D4C1D5E4 A
            01 00F10    C1D340F9 A
            01 00F11    F0F1F5F0 A
            01 00F12    F940C415 A
     4212                            *
     4213   01 00F13    102C3C50 A   MWCRTD   ZFMW     1,0,44,BA(CRTDTEXT)
     4214   01 00F14    C9D4D7D9 A   CRTDTEXT TEXT     'IMPROPER BUFFER SELECTED : DIRECTIVE ABORTED'
            01 00F15    D6D7C5D9 A
            01 00F16    40C2E4C6 A
            01 00F17    C6C5D940 A
            01 00F18    E2C5D3C5 A
            01 00F19    C3E3C5C4 A
            01 00F1A    407A40C4 A
            01 00F1B    C9D9C5C3 A
            01 00F1C    E3C9E5C5 A
            01 00F1D    40C1C2D6 A
            01 00F1E    D9E3C5C4 A
     4215                            *
     4216   01 00F1F    10143C80 A   MW01     ZFMW     1,0,20,BA(TEXT01)
     4217   01 00F20    C4C9D9C5 A   TEXT01   TEXT     'DIRECTIVE ABORTED:  '
            01 00F21    C3E3C9E5 A
            01 00F22    C540C1C2 A
            01 00F23    D6D9E3C5 A
            01 00F24    C47A4040 A
     4218                            *
     4219   01 00F25    D7C1D9C1 A   TEXT02   TEXT     'PARAMETER N VALUE ILLEGAL'
            01 00F26    D4C5E3C5 A
            01 00F27    D940D540 A
            01 00F28    E5C1D3E4 A
            01 00F29    C540C9D3 A
            01 00F2A    D3C5C7C1 A
            01 00F2B    D3404040 A
     4220   01 00F2C    102D3C80 A   MW02     ZFMW     1,0,45,BA(TEXT01)
     4221                            *
     4222                            *
     4223   01 00F2D    101D3CB8 A   MW03     ZFMW     1,0,29,BA(TEXT03)
     4224                            *
     4225   01 00F2E    C9D5E3C5 A   TEXT03   TEXT     'INTERRUPT NOT PENDING FOR AIO'
            01 00F2F    D9D9E4D7 A
            01 00F30    E340D5D6 A
            01 00F31    E340D7C5 A
            01 00F32    D5C4C9D5 A
            01 00F33    C740C6D6 A
            01 00F34    D940C1C9 A
            01 00F35    D6404040 A
     4226                            *
     4227   01 00F36    10383CE0 A   MW04     ZFMW     1,0,56,BA(TEXT04)
     4228                            *
     4229                                     BOUND    8
     4230   01 00F38    D5C1D4C5 A   TEXT04   TEXT     'NAME STATUS = 1010 0101 1010 0101  CC = 10  IOP/DC ='
            01 00F39    40E2E3C1 A
            01 00F3A    E3E4E240 A
            01 00F3B    7E40F1F0 A
            01 00F3C    F1F040F0 A
            01 00F3D    F1F0F140 A
            01 00F3E    F1F0F1F0 A
            01 00F3F    40F0F1F0 A
            01 00F40    F14040C3 A
            01 00F41    C3407E40 A
            01 00F42    F1F04040 A
            01 00F43    C9D6D761 A
            01 00F44    C4C3407E A
     4231   01 00F45    40F7C6C6 A            TEXT     ' 7FF'
     4232                            *        ABOVE TEXT IS MODIFIED BY 'AIO', 'ENVI', 'HIO', 'SIO', 'TDV',
     4233                            *         AND 'TIO' DIRECTIVES
     4234                            *
     4235                            *
     4236   01 00F46    10383D1C A   MW05     ZFMW     1,0,56,BA(TEXT05)
     4237   01 00F47    C9D6D761 A   TEXT05   TEXT     'IOP/DC   CC   * T I O *     IOP STATUS    * T D V *'
            01 00F48    C4C34040 A
            01 00F49    40C3C340 A
            01 00F4A    40405C40 A
            01 00F4B    E340C940 A
            01 00F4C    D6405C40 A
            01 00F4D    40404040 A
            01 00F4E    C9D6D740 A
            01 00F4F    E2E3C1E3 A
            01 00F50    E4E24040 A
            01 00F51    40405C40 A
            01 00F52    E340C440 A
            01 00F53    E5405C40 A
     4238   01 00F54    4040C3C3 A            TEXT     '  CC'
     4239                                     BOUND    8
     4240   01 00F56                 TEXT06   RES      22
     4241   01 00F6C    10383D58 A   MW06     ZFMW     1,0,56,BA(TEXT06)
     4242                            *
     4243   01 00F6D    10483DB8 A   MW07     ZFMW     1,0,72,BA(TEXT07)
     4244   01 00F6E    E6C4E340 A   TEXT07   TEXT     'WDT TRAP AT I/O ADDRESS:      CHECK PRIORITY'
            01 00F6F    E3D9C1D7 A
            01 00F70    40C1E340 A
            01 00F71    C961D640 A
            01 00F72    C1C4C4D9 A
            01 00F73    C5E2E27A A
            01 00F74    40404040 A
            01 00F75    4040C3C8 A
            01 00F76    C5C3D240 A
            01 00F77    D7D9C9D6 A
            01 00F78    D9C9E3E8 A
     4245   01 00F79    40C3C1C2 A            TEXT     ' CABLE AND IOP "LAST" SWITCH'
            01 00F7A    D3C540C1 A
            01 00F7B    D5C440C9 A
            01 00F7C    D6D7407F A
            01 00F7D    D3C1E2E3 A
            01 00F7E    7F40E2E6 A
            01 00F7F    C9E3C3C8 A
     4246   01 00F80    101C3E04 A   MW08     ZFMW     1,0,28,BA(TEXT08)
     4247   01 00F81    E2E8D5C3 A   TEXT08   TEXT     'SYNC P2 NOT EQUAL TO EOTC P2'
            01 00F82    40D7F240 A
            01 00F83    D5D6E340 A
            01 00F84    C5D8E4C1 A
            01 00F85    D340E3D6 A
            01 00F86    40C5D6E3 A
            01 00F87    C340D7F2 A
     4248   01 00F88    10113E24 A   MW09     ZFMW     1,0,17,BA(TEXT09)
     4249   01 00F89    C4C9C7C9 A   TEXT09   TEXT     'DIGIT COUNT'
            01 00F8A    E340C3D6 A
            01 00F8B    E4D5E340 A
     4250   01 00F8C    C5D9D9D6 A   TEXT10   TEXT     'ERROR:  LEADING ZERO DTN'
            01 00F8D    D97A4040 A
            01 00F8E    D3C5C1C4 A
            01 00F8F    C9D5C740 A
            01 00F90    E9C5D9D6 A
            01 00F91    40C4E3D5 A
     4251   01 00F92    10183E30 A   MW10     ZFMW     1,0,24,BA(TEXT10)
     4252                            *
     4253   01 00F93    100F3E50 A   MW11     ZFMW     1,0,15,BA(TEXT11)
     4254   01 00F94    E2C9D640 A   TEXT11   TEXT     'SIO ORDER ERROR'
            01 00F95    D6D9C4C5 A
            01 00F96    D940C5D9 A
            01 00F97    D9D6D940 A
     4255                            *
     4256   01 00F98    10163E64 A   MW12     ZFMW     1,0,22,BA(TEXT12)
     4257   01 00F99    C5E7C5C3 A   TEXT12   TEXT     'EXECUTE NAME DIRECTIVE'
            01 00F9A    E4E3C540 A
            01 00F9B    D5C1D4C5 A
            01 00F9C    40C4C9D9 A
            01 00F9D    C5C3E3C9 A
            01 00F9E    E5C54040 A
     4258                            *
     4259   01 00F9F    101C3E80 A   MW13     ZFMW     1,0,28,BA(TEXT13)
     4260   01 00FA0    C5D6E3C3 A   TEXT13   TEXT     'EOTC SAME AS SYNC CHARACTER'
            01 00FA1    40E2C1D4 A
            01 00FA2    C540C1E2 A
            01 00FA3    40E2E8D5 A
            01 00FA4    C340C3C8 A
            01 00FA5    C1D9C1C3 A
            01 00FA6    E3C5D940 A
     4261                            *
     4262   01 00FA7    102C3EA0 A   MW14     ZFMW     1,0,44,BA(TEXT14)
     4263   01 00FA8    C5D9D9D6 A   TEXT14   TEXT     'ERROR DEPTH EXPECTED    RECEIVED  RECORD NO.'
            01 00FA9    D940C4C5 A
            01 00FAA    D7E3C840 A
            01 00FAB    C5E7D7C5 A
            01 00FAC    C3E3C5C4 A
            01 00FAD    40404040 A
            01 00FAE    D9C5C3C5 A
            01 00FAF    C9E5C5C4 A
            01 00FB0    4040D9C5 A
            01 00FB1    C3D6D9C4 A
            01 00FB2    40D5D64B A
     4264                            *
     4265   01 00FB3    102C3ED0 A   MW15     ZFMW     1,0,44,BA(TEXT15)
     4266   01 00FB4    40404040 A   TEXT15   TEXT     '                                            '
            01 00FB5    40404040 A
            01 00FB6    40404040 A
            01 00FB7    40404040 A
            01 00FB8    40404040 A
            01 00FB9    40404040 A
            01 00FBA    40404040 A
            01 00FBB    40404040 A
            01 00FBC    40404040 A
            01 00FBD    40404040 A
            01 00FBE    40404040 A
     4267                            *
     4268   01 00FBF    100C3F00 A   MW35     ZFMW     1,0,12,BA(TEXT35)
     4269   01 00FC0    5C5CD4C1 A   TEXT35   TEXT     '**MARK**    '
            01 00FC1    D9D25C5C A
            01 00FC2    40404040 A
     4270                            *
     4271                            *
     4272                            *
     4273                            *
     4274                            *
     4275         01 00FC3           ZEXADR   EQU      %
     4276   01 00FC3    00000FD6              DATA     L(ZEXADR)         BASE TABLE ADDRESS
     4277         01 00688                    END      ZCMS              TO COMPUTE MEMORY SIZE
            01 00FC4    000000FF A
            01 00FC5    00000002 A
            01 00FC6    7F0003FF A
            01 00FC7    E4D5E4E2 A
            01 00FC8    C5C44015 A
            01 00FC9    E6F27E40 A
            01 00FCA    00001FFF A
            01 00FCB    F0F0F0F0 A
            01 00FCC    00000007 A
            01 00FCD    80808080 A
            01 00FCE    C0C0C0C0 A
            01 00FCF    08000000 A
            01 00FD0    0000000F A
            01 00FD1    40404040 A
            01 00FD2    00000020 A
            01 00FD3    000000DF A
            01 00FD4    0000001F A
            01 00FD5    D7C1E3E5 A
            01 00FD6    00000FC3

  CONTROL SECTION SUMMARY: 01 00FD7   PT 0     02 01072   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   20:19 JUN 20,'83    SIGMA 5-9 DSC TEST 704013-51D02 2-19-73                               PAGE    3
A  ABORT           2284/XPSD    3940-DATA
   ABORTMG1        3951/B       3954/B       3960/B       3963/B       3965-STW
   ABORTMG2        3946/B       3973-STB
   ADDCON          2473/BAL     2582-LI      3290/BAL
   AIOMO           2433/BCR     2438/BCR     2441-LW
   AIONAME         2180-DATA    2430/LW      2637/LW      3086/LW      3129/LW      3178/LW      3950/LW
      3953/LW      3956/LW      3958/LW
   AIONP           2425/BCS     2446-LW
   AIOSE           2230/ZFSAT   2422-STW
   ALRMSE          2242/ZFSAT   3597-MTW
   BUFFA           2722/STW     2871/LB      2879/CB      2902/LB      3568/DATA    3996/GEN     4033/GEN
      4064-RES
   BUFFAPTR        3534/LW      3568-DATA
   BUFFO           2805/STW     3569/DATA    3855/LB      3896/LB      4041/GEN     4049/GEN     4053/GEN
      4065-RES
   BUFFOPTR        3569-DATA
   BUFFP           2718/STW     2906/STB     2917/LB      2921/STB     3567/DATA    4012/GEN     4030/GEN
      4063-RES
   BUFFPPTR        2695/LW      3530/LW      3567-DATA    3824/LW
   BUFLST          2696/STH     3818/LW      4107-DATA
   BYPASS          2310/BCR     2314/BCS     2315/BCR     2318/BCS     2323-LI
   CGMSGLVL        2302/BCR     2333-STCF
   CINTSAVE        2294/STM     2329/LM      2338/LM      2367-RES
   CLOCKWRD        2271/LW      2278-MTW
   CMPNO           3835/AWM     3836/LH      4108-DATA
   CODE             223-CNAME
   CONSLINT        2279/XPSD    2291-DATA    2330/LPSD    2339/LPSD
   CONVERT         2499/BAL     2501/BAL     2504/BAL     2513-LI      3875/BAL     3877/BAL     3881/BAL
      3883/BAL
   CPINTGO         2273/LW      2279-XPSD
   CP01            3028/STB     3030/STW     3031/STB     3043/STS     3047/STH     3057/STH     3059/STH
      3060/LI      3985-DATA    3988/GEN
   CP02            2876/STH     2888/LI      2894/STB     2895/STB     2896/LI      3996-GEN
   CP03            3999-GEN
   CP04            2686/STS     2690/STB     2698/STH     2711/STH     2712/LI      4002-GEN     4009/GEN
   CP05            2877/STH     2898/LI      2899/LH      4012-GEN
   CP06            2748/STB     2749/LI      4016-GEN
   CP07            2762/STB     2763/LI      4022-GEN
   CP08            2771/STB     2772/LI      4026-GEN
   CP09            2715/STS     2730/STB     2734/STB     2738/LI      4030-GEN     4036/GEN
   CP10            2716/STS     2731/STB     2737/STB     4033-GEN
   CP11            2828/STB     2849/STB     2858/STB     2859/LI      4038-GEN
   CP12            2825/STB     2829/STB     2835/STB     2840/STB     2841/STB     2842/LI      2850/STB
      2851/STB     4041-GEN
   CP13            2938/STB     2952/STH     2960/STH     2965/STH     2990/STB     3000/STB     3001/LI
      3002/LD      3007/LI      4045-GEN
   CP14            2932/STB     2946/STB     2953/STH     2959/LI      2964/LI      2968/STW     2976/STB
      2983/LI      2991/STB     3003/STD     3105/STH     4049-GEN
   CP15            2937/STB     2945/STB     2951/LI      2954/STH     2961/STH     2966/LI      2970/STH
      2980/STH     2981/STB     2992/STB     3009/STW     3106/STH     4053-GEN
   CP16            2929/STB     2969/LI      2979/LI      2982/STB     2993/STB     3004/LI      3104/LI
      4057-GEN
   CRTDSE          2244/ZFSAT   3815-STW
   CRTDTEXT        4213/ZFMW    4214-TEXT
   CRTD01          3824-LW      3829/B
   CRTD02          3820/BCR     3825/B       3835-AWM
   CRTD03          3846/BCR     3849/BCR     3851-LB
   CRTD03A         3855-LB      3891/BCS
   CRTD03B         3859/BCS     3866-BAL
   CRTD04          3866/BAL     3868-STW     3919/BAL
   CRTD05          3857/BCR     3867/B       3889-AI
   CRTD06          3853/BCR     3895-LI      3930/BCS
   CRTD06A         3901/B       3903-CB
   CRTD07          3898/BCR     3906-AND
   CRTD07A         3905/B       3911-CW
   CRTD07B         3912/BCS     3919-BAL
   CRTD07C         3904/BCR     3910/BCR     3920-AND
   CSCODE          3817/STW     3897/CW      3924/STW     3927/STW     4102-DATA
   CVTAB2          2903/CB      3746/LB      4112-DATA
   CVTAB4          2918/CB      4185-DATA
   CVTAB5          2778/LB      2869/LB      4203-DATA
   CV02            3730/BAL     3752-CI      3758/BDR
   DBUFSE          2240/ZFSAT   3527-LI
   DBUF01          3552/BCR     3559-LW
   DBUF02          3548/BCR     3558/B       3561-STW
   DIRABMSG        3012/BAL     3393/BAL     3413/BAL     3427-LW      3966/BAL
   DLAYSE          2239/ZFSAT   2400/BAL     3505-STW
   DOWNEXIT        2361/LPSD    2363-DATA
   DSABLINT        2255/LW      2286-WD
   DSARMINT        2256/LW      2287-WD
   DTNBC           2761/LW      3477/STW     4073-DATA
   DTNDR           3944/B       3956-LW
   DTNLT9          3452/BCS     3461-CI
   DTNLZERR        3476/BCR     3492-LW
   DTNLZT          3449/BCR     3460/B       3462/BCR     3469-SCD
   DTNNDERR        3444/BCR     3450/BCS     3487-LW
   DTNSE           2238/ZFSAT   3442-STW
   ENVIFLAG        2324/STW     2357/STW     3123/MTW     3131/MTW     3172/MTW     3180/MTW     3193/AWM
      3213/STW     4092-DATA
   ENVIGO          3210/BCS     3217-TIO
   ENVISE          2235/ZFSAT   3190-STW
   ENVITEST        3207-AWM     3219/BCS     3258/B       3297/LI
   ENVIWDTR        2325/BAL     2358/BAL     3211/BAL     3296/BAL     3301-LW
   ENVIWDTS        3191/BAL     3273-LW
   ENVIWDTT        3278-DATA    3298/STW     3299/LPSD
   EOTC            2776/LB      2862/LB      2863/LB      2864/CB      2866/LB      2867/LB      2878/LB
      3337/STH     3347/CS      3350/CS      3391/CB      3409/LB      3691/LB      3701/LB      3851/LB
      4043/GEN     4057/GEN     4093-DATA
   EOTCDR          3942/B       3950-LW
   EOTCSE          2236/ZFSAT   3314-STW
   EOTCSH          3330/LS      3337-STH
   EOTCTEST        3361-LI      3380/BAL     3690/BAL
   EOTEQSYN        3353-LW      3394/B
   ERRORWD1        3843/STW     3858/CW      3860/STW     3911/CW      3913/STW     4106-DATA
   FZBWSC          2465/BAL     2484-LI      3263/BAL     3581/BAL     3959/BAL
   GBYTES          3722/BAL     3727/BAL     3764-LI
   GBYTES1         3765-STW     3775/B
   HIOSE           2231/ZFSAT   2625-STW
   HTECON          2585/BAL     2590/BAL     2595/BAL     2600/BAL     2609-CI
   INITSE          2101/B       2228/ZFSAT   2254-WD
   INTKEY          2371-MTW     2444/BAL     2449/BAL     2643/BAL     2883/BAL     3020/BAL     3093/BAL
      3107/BAL     3153/BAL     3892/BAL     3931/BAL
   INTKEYNI        2372/BCR     2384-LI
   IOBUFF          3657/STW     3723/LI      3729/LH      3731/STB     3736/LI      3772/STB     4070-RES
   KEYWORD         2753/CW      2787/CW      2808/CW      2814/CW      3024/CW      3335/STS     3339/CW
      3364/CW      3418/STS     3485/STS     3651/STS     3705/CW      3798/STS     4077-DATA
   L                436/DW      2521/OR      2967/OR      3008/OR      3660/AND     3900/OR      4276/DATA
   LBRXPSD         2077/LW      2117-XPSD
   LBRXPSD1        2117/XPSD    2119-RES
   LRAXPSD         2082/LW      2112-XPSD
   LRAXPSD1        2112/XPSD    2114-RES
   MARKSE          2241/ZFSAT   3580-LW
   MIOPDM          2431/BAL     2464-STW     2638/BAL     3087/BAL     3130/BAL     3179/BAL
   MWCRTD          3830/LW      4213-ZFMW
   MW00            2092/LW      4208-ZFMW
   MW01            3427/LW      4216-ZFMW
   MW02            3974/LW      4220-ZFMW
   MW03            2446/LW      4223-ZFMW
   MW04            2441/LW      2640/LW      3088/LW      3150/LW      4227-ZFMW
   MW05            3204/LW      4236-ZFMW
   MW06            3255/LW      3265/STW     4241-ZFMW
   MW07            3293/LW      4243-ZFMW
   MW08            3414/LW      4246-ZFMW
   MW09            3487/LW      4248-ZFMW
   MW10            3492/LW      4251-ZFMW
   MW11            3014/LW      4253-ZFMW
   MW12            3967/LW      4256-ZFMW
   MW13            3353/LW      4259-ZFMW
   MW14            3863/LW      3916/LW      4262-ZFMW
   MW15            3885/LW      4265-ZFMW
   MW35            3583/LW      4268-ZFMW
   NOBICERR        3320-LI      3383/BCR
   NOP              236/LW       240-NOP
   PADDR           3782/STW     3790/LB*     4097-DATA
   PAGE              42/OPEN      43-CNAME
   PATALT10        3683-DATA    3686/LI
   PATCHLOC        2306/NOP     3571/DATA    4068-RES
   PATCHPTR        3571-DATA
   PATDONE         3780/BCR     3797-LI
   PATDR           3945/B       3958-LW
   PATNORM         3617/BCR     3655-LI
   PATONES         3677-DATA    3680/LI
   PATOVLTH        3048/LW      3637/STW     4089-DATA
   PATSE           2243/ZFSAT   3615-LI      3622/BAL     3742/BAL
   PATTERN         2803/LS      3570/DATA    3643/LB      3711/STB     3714/STB     3718/LI      3745/LB
      3747/STB     4016/GEN     4026/GEN     4067-RES
   PATTNPTR        3570-DATA    3791/STB*
   PATVDR          3947/B       3962-LW
   PATZERO         3671-DATA    3674/LI
   PAT000          3662/B       3673-LI
   PAT001          3663/B       3679-LI
   PAT002          3664/B       3685-LI
   PAT003          3665/B       3689-LI
   PAT004          3666/B       3721-LI
   PAT005          3667/B       3726-LI
   PAT006          3668/B       3739-STW
   PAT3ASYN        3707/BCR     3709/BCS     3713-LCW
   PDBIT           2468/BAL     2536-LW
   PDBIT1          2536/LW      2546-DATA
   PIBIT           2472/BAL     2562-STW
   PIBIT1          2563/LW      2571-DATA
   PLENGTH         3624/CW      3626/LW      3781/STW     3786/MW      3794/CW      4095-DATA
   PMBKEY          2309/MTW     2322/STS     2359/STW     2371/MTW     2373/LW      2385/STW     2423/MTW
      2439/MTW     2626/MTW     2630/MTW     2662/MTW     2882/MTW     3019/MTW     3080/MTW     3116/MTW
      3148/MTW     3165/MTW     3214/STW     3816/MTW     3862/AWM     3915/AWM     4085-DATA
   PRAMSAVE        2296/STM     2327/LM      2368-RES
   PSCIM6          3192/BAL     3262-LI
   PSPREAD         3675/B       3681/B       3687/B       3719/B       3724/B       3737/B       3779-CI
   PS01            3789-LI      3796/BDR
   PS02            3790-LB      3795/BCS
   PX              1486/STW     1493/S*      1494/MTW     1499/S*      2156-EQU     2157/EQU
   P0               768/STW      775/LI       784/MTW      786/LI      2140-EQU     2141/EQU     2295/LM
      2298/CW      2328/STM
   P1              1585/AND     1596/LW      1605/AND     1614/LW      1621/AND     1677/LW      1680/LW
      1692/LW*     1693/CW*     1699/LW      1708/LW*     1722/MTW     1727/MTW     1730/LW*     1745/LW
      1746/MTW     2141-EQU     2142/EQU     2398/MTW     2432/MTW     2437/CW      2627/HIO*    2636/LS
      2885/LW      3075/SIO*    3085/LS      3117/TDV*    3126/LS      3166/TIO*    3175/LS      3197/LS
      3221/STB     3325/LS      3386/LS      3445/LW      3506/LW      3529/LS      3531/STW     3550/STW
      3580/LW      3597/MTW     3659/LW      3741/STW     3845/CW      3847/LW
   P10             2150-EQU     2151/EQU
   P11             2151-EQU     2152/EQU
   P12             2152-EQU     2153/EQU     3119/STW     3136/LB      3168/STW
   P13             2153-EQU     2154/EQU     3120/STW     3142/LB      3169/STW
   P14             1691/STW     1695/MTW     1724/MTW     1728/MTW     2154-EQU     2155/EQU     3190/STW
      3215/B*      3765/STW     3767/LW
   P15             1613/STW     1622/BCR*    1624/B*      1663/STW     1719/B*      1893/STW     2155-EQU
      2156/EQU     2464/STW     2476/B*      3739/STW     3750/B*
   P2              1670/LW      1674/MTW     1747/CW      2142-EQU     2143/EQU     2664/CW      2667/LS
      2678/CW      2680/LS      2784/CW      2837/CW      2846/LS      2889/LW      2973/CW      2987/LS
      3029/LW      3033/LS      3140/MTW     3144/LW      3199/CW      3201/LS      3316/LS      3327/LS
      3382/CW      3397/LS      3443/MTW     3447/LW      3532/MTW     3535/STW     3539/LS      3546/STW
      3557/STW     3560/STW     3563/AWM     3616/CW      3618/LS      3620/STW     3819/LW
   P3              1665/LW      1667/STW     1675/LW      1678/SW      1679/STW     1681/SW      1700/SW
      2143-EQU     2144/EQU     2684/CW      2689/LS      2733/LS      2736/LS      2820/CW      2824/LS
      2928/LS      2931/LS      2934/LS      2948/CW      2956/CW      3027/LW      3203/STW     3209/CS
      3331/MTW     3362/LS      3388/MTW     3403/MTW     3446/LW      3547/MTW     3561/STW     3619/STW
      3623/LW
   P4              2144-EQU     2145/EQU     2705/MTB     2708/LS      2724/MTB     2727/LS      2756/MTW
      2759/LS      2766/MTB     2768/LW      2830/MTB     2832/LS      2939/MTB     2942/LS      3052/MTW
      3054/LW
   P5              2145-EQU     2146/EQU     2692/MTW     2811/CW      2853/CW      2855/LS      2995/CW
      2997/LS
   P6              2146-EQU     2147/EQU     2971/STW     2977/MTB     3005/MTW     3061/MTW     3063/LW
      3067/MW      3091/MTW
   P7              2147-EQU     2148/EQU     2672/MTW     3064/MTW
   P8              2148-EQU     2149/EQU
   P9              2149-EQU     2150/EQU
   RETURN          2396/STW     2402/B*      2422/STW     2440/AWM     2445/B*      2450/B*      2625/STW
      2631/AWM     2644/B*      2661/STW     2881/AWM     2884/B*      3018/AWM     3021/B*      3081/AWM
      3094/B*      3108/B*      3115/STW     3132/BCS*    3149/AWM     3154/B*      3164/STW     3181/BCS*
      3314/STW     3340/BCR*    3351/BCS*    3356/B*      3379/STW     3417/B*      3421/B*      3442/STW
      3486/B*      3490/B*      3495/B*      3621/STW     3653/B*      3815/STW     3861/AWM     3893/B*
      3914/AWM     3932/B*      4103-DATA
   REV              193-CNAME
   REVADR           225/LW*      228/LH*      232/AW       233/STW      239-DATA
   REVBRNCH         237/STW      238/B       2094-EQU
   REVCOUNT         187-SET      195/DO       199-SET      199/SET      208/GEN     2095/DO
   REVEND           200/DO       259-REV
   REVHERE          189-SET      201-SET      205/ORG      206/GEN      206/GEN      212-SET      216/ORG
       217/GEN      217/GEN
   REVISION         234/MTW      239/DATA     246-REV
   REVPRINT         225-LW       235/BNEZ    2098/BAL
   REVSTART         188-SET      196-SET      207/ORG
   REVTHERE         190-SET      204-SET      206/GEN      209/ORG      215-SET      217/GEN      218/ORG
   SAVE0           3868/STW     3888/B*      4098-DATA
   SAVE1           4099-DATA
   SAVE2           4100-DATA
   SAVE3           4101-DATA
   SHUTDOWN        2299/BCR     2301/BCR     2342-BAL     3834/B
   SIODIALO        2746/BCR     2752-LI
   SIODO           2984/B       3010/B       3061-MTW
   SIOECHO         2812/BCR     2862-LB
   SIOECHO1        2887/BCR     2898-LI
   SIOECHO2        2901-LI      2910/B
   SIOECHO3        2916-LI      2925/B
   SIOEXU          2713/B       2739/B       2750/B       2764/B       2773/B       2843/B       2860/B
      2891/BCR     2897/B       2926/B       3062/BCR     3075-SIO
   SIOLSO          2744/BCR     2766-MTB
   SIONRB          3035/BCS     3045-LW
   SIONRO          2675/BCS     2741-CI
   SIOODERR        2665/BCR     2669/BCR     3012-BAL
   SIOROWCC        2685/BCS     2715-STS
   SIOSE           2232/ZFSAT   2661-STW
   SIOVLBC         3044/B       3048-LW
   SIOVRIDE        2673/BCS     3023-LI
   SIOWDCO         2974/BCS     2986-LI
   SIOWO           2742/BCR     2775-LI
   SIOWOA          2785/BCR     2797-CI
   SIOWOCCO        2949/BCR     2964-LI
   SIOWODCO        2957/BCR     2962/B       2972-LI
   SIOWOWCF        2821/BCS     2927-LI
   SIOWO1          2796/B       2798/BCR     2801/BCR     2803-LS
   STATOUT         2467/BAL     2471/BAL     2499-BAL
   SYNC            2790/LB      2912/MTB     2914/LB      3346/LW      3420/STH     3708/CB      4094-DATA
   SYNCBUFF        2793/STB     3993/GEN     4038/GEN     4045/GEN     4074-RES
   SYNCDR          3943/B       3953-LW
   SYNCGB          3348/BCS     3402/LS      3409-LB
   SYNCSE          2237/ZFSAT   3379-STW
   SYNCSH          3400/LS      3420-STH
   TDVIOMOC        3139/BCS     3141/BCR     3150-LW
   TDVSE           2233/ZFSAT   3115-STW     3222/BAL
   TDVTIOC         3136-LB      3182/B
   TELNUM          3480/STB     4022/GEN     4072-RES
   TEXT00          4208/ZFMW    4210-TEXT
   TEXT01          4216/ZFMW    4217-TEXT    4220/ZFMW
   TEXT02          3973/STB     4219-TEXT
   TEXT03          3999/GEN     4223/ZFMW    4225-TEXT
   TEXT04          2466/STW     2538/STW     2542/STW     2543/STW     2562/STW     2565/STW     2566/STW
      2568/STH     2586/STB     2591/STB     2596/STB     2601/STB     3223/LH      3226/LD      3229/LW
      3232/LD      3235/LB      3239/LW      3247/LW      3251/LD      3253/LW      3291/LW      4227/ZFMW
      4230-TEXT
   TEXT05          4236/ZFMW    4237-TEXT
   TEXT06          3224/STH     3227/STW     3228/STW     3230/STH     3233/STW     3234/STW     3236/STB
      3238/LW      3244/STD     3249/STW     3252/STD     3254/STH     4240-RES     4241/ZFMW
   TEXT07          3292/STW     4243/ZFMW    4244-TEXT
   TEXT08          4246/ZFMW    4247-TEXT
   TEXT09          4248/ZFMW    4249-TEXT
   TEXT10          4250-TEXT    4251/ZFMW
   TEXT11          4253/ZFMW    4254-TEXT
   TEXT12          3965/STW     4256/ZFMW    4257-TEXT
   TEXT13          4259/ZFMW    4260-TEXT
   TEXT14          4262/ZFMW    4263-TEXT
   TEXT15          3839/STW     3842/STW     3873/STW     3876/STW     3878/STW     3882/STW     3884/STW
      4265/ZFMW    4266-TEXT
   TEXT35          3582/STW     4268/ZFMW    4269-TEXT
   TIME            2278/MTW     2670/STW     3073/MTW     3079/STW     3096/CW      3505/STW     3510/CW
      4104-DATA
   TIME1           2671/STW     3070/STW     3078/LW      3095/LW      4105-DATA
   TIOSE           2234/ZFSAT   3164-STW     3246/BAL
   TLENGTH         3787/STW     3848/CW      3850/LW      4096-DATA
   TRIOSE          2229/ZFSAT   2396-STW
   WDTTRAP         2265/LM      2282-XPSD    3301/LW
   ZADCRC          1371-STW     1909/BAL
   ZADPTR           877/BAL      897/BAL      928/BAL     1026/BAL     1347-LB      1372/BAL
   ZALT            1631-STW     2224/ZFSAT
   ZALT05          1637-CW      1645/B
   ZALT10          1632/BAL     1634/BAL     1641/BAL     1646-CI
   ZAP1             153-CNAME
   ZAS              747-ZFOT
   ZASLNK            90-EQU      918/STW      929/B*
   ZASPRO           924/LW      1981/ZFST2   1982-B
   ZASTRN           747/ZFOT     918-STW
   ZASTRN10         923/BCR      928-BAL
   ZBPT1           1901/BAL     1915/BAL     1927-RD      1973/BAL
   ZBTD            1483-STW     3837/BAL     3871/BAL
   ZBTD10          1489-LI      1496/B
   ZBTD20          1491/BCS     1497-LW
   ZBTD30          1492/DW      1503-DATA
   ZBTH            1322/BAL     1510-STW     1518/BIR     1615/BAL     1682/BAL     1701/BAL     1709/BAL
      1731/BAL     3838/BAL     3872/BAL
   ZCFR            1181-STW     1205/B       1211/BAL     1217/BAL     1232/BAL     1238/BAL     1245/BAL
      1248/BAL     1254/BAL     1257/BAL
   ZCFRCA           103-EQU     1181/STW     1184/CB*     1186/CB*     1189/CW      1197/LCW*    1198/LB*
      1201/LW*     1203/LB*
   ZCFRLNK          102-EQU     1182/STW     1185/BCS*    1187/BCS*    1194/BCS*
   ZCHAR            107-EQU      698/STW     1281/LW      1311/STW
   ZCL              750-ZFOT
   ZCLLNK            83-EQU      808/STW      816/B*
   ZCLTRN           750/ZFOT     808-STW
   ZCMS            2029-LPSD    2084/GEN     2110/DATA    2127/EQU     4277/END
   ZCMST40          299/XPSD    2029/LPSD    2079/GEN     2108-DATA
   ZCMS2           2082-LW      2120/DATA
   ZCMS3           2087-LI      2115/DATA
   ZCMS4           2081/B       2086/B       2088-STW
   ZCMS5           2056/LW      2104-XPSD
   ZCMS6           2031/SW      2105-DATA
   ZCMS7           2106-DATA
   ZCO              748-ZFOT    1070/CB
   ZCOLNK            92-EQU     1053/STW     1105/B*
   ZCONINT          393/DATA    1933-LI      2218/ZFSAT
   ZCOTRN          1022/BAL     1042/BAL     1053-STW
   ZCOTRN10        1064-LI      1084/BCR     1086/B
   ZCOTRN30        1071/BCR     1073/BCR     1078-SAS
   ZCOTRN40        1075/BCR     1081-MTW
   ZCOTRN50        1069/BCS     1087-CB
   ZCOTRN60        1093/BCR     1097-LW
   ZCRC            1385-LB
   ZCSRL           1222/STW     1227/B*      1483/STW     1497/LW      1510/STW     1521/LW      1528/STW
      1539/B*      1567-PZE     1631/STW     1638/BCS*    1648/B*      1766/STW     1768/LB      1773/BCS*
      1775/BCS*    1791/LB      1843/B*
   ZCSS             426/STCF     443/LW       529/LCF      581/LCF      627-DATA
   ZCTL             301/XPSD     302/XPSD     303/XPSD     304/XPSD     306/XPSD     307/XPSD     308/XPSD
       309/XPSD     310/XPSD     313/XPSD     314/XPSD     321/XPSD     322/XPSD     323/XPSD     324/XPSD
       328/XPSD     329/XPSD     330/XPSD     331/XPSD     334/XPSD     335/XPSD     395-DATA    2283/XPSD
   ZCTL1            397/DATA     419-STW
   ZDCP              37-EQU      261/USECT
   ZDCR            1334/LH      1579-BAL     1753/LH      2221/ZFSAT
   ZDECADER        1546-STW
   ZDKB             464/HIO*     661/LH      1294/LH      1573-BAL     1790/LW      1799/CW      2065/STW
      2068/HIO*    2220/ZFSAT   2886/CW
   ZDMP            1657/B       1661-LCFI    2225/ZFSAT   3564/B
   ZDMPA           1686/STW     1687/STW     1688/STB     1698/STB     1705/STW     1706/STW     1707/STB
      1710/STW     1711/STW     1735/STB     1739/STB     1749/ZFMW    2157-EQU
   ZDMP10          1680-LW      1718/BCS
   ZDMP20          1692-LW      1726/BCS     1743/BCS
   ZDMP22          1699-LW      1729/BCS
   ZDMP24          1662/STCF    1713-STB     1723/B       1741/BCS     1744/B
   ZDMP30          1694/BCR     1720-CI
   ZDMP40          1696/BCR     1731-BAL
   ZDMP50          1717/BAL     1725/BAL     1742/BAL     1745-LW
   ZDMP70          1713/STB     1714/LW      1749-ZFMW
   ZDS              675/ZFMW     745-ZFOT
   ZDSFLG           110-EQU      683/STW      769/MTW      777/STW      793/STW     1013/MTW     1146/MTW
      1447/MTW     2063/STW
   ZDSLNK           100-EQU      766/STW      778/B*       782/STW      798/B*
   ZDSPTR           101-EQU      772/STW      796/LW
   ZDSSET           673/BAL      773/LI       782-STW
   ZDSSET10         785/BCR      793-STW
   ZDSTRN           666/BAL      745/ZFOT     766-STW
   ZDSTRN10         770/BCS      775-LI
   ZDTB            1225/BAL     1457-XW
   ZDTB10          1459/AND     1475-DATA
   ZDTB20          1464/AND     1476-DATA
   ZEMS             546/CW      1637/CW      1666/AND     1672/CW      2027-DATA    2030/LW      2032/STW
      2053/LW      3036/LW      3559/LW
   ZEQ              751-ZFOT
   ZEQLNK            84-EQU      838/STW      857/B*
   ZEQTRN           751/ZFOT     838-STW
   ZEQTRN10         843/BCR      847/BCR      851-LI       854/BCR
   ZEQTRN20         849/BCR      855-BIR
   ZEXADR           691/LW      1151/LW      2037/LW      2040/AWM     2044/AW      2075/LW      4275-EQU
      4276/DATA
   ZEXPT0           771/LW       789/LW*      823/LW       826/STW*     867/STW*     872/LW       892/STW*
       921/STW*     925/STW*     967/LW       978/OR      1009/STW*    1010/LB*     1020/STB*    1040/STB*
      1057/LB*     1061/LH*     1101/LB*     1104/STB*    1149/STW*    1152/CW      1166/LW      1347/LB*
      1350/AW      1355/STW     1385/LB*     1398/LB*     1412/STB*    1865/LW*     1876/LB*     1902/LB*
      1916/LB*     1959/STW     1995/STW     2003/LW      2136-EQU     2137/EQU
   ZEXPT1           896/STW*     958/STW*     982/OR      1054/LW      1066/STW*    1080/STW*    1154/STW*
      1268/STW*    1270/LW*     1273/MTB*    1356/STW     1360/MTW     1361/LW      1388/LH*     1390/STW*
      1418/STW*    1856/LW*     1880/LH*     1882/LW      1905/MTW*    1906/LH*     1907/CH*     1952/LW*
      1958/LW*     2137-EQU     2138/EQU
   ZEX00           1174/B       1856-LW      1919/LI      1968/B       1975/B
   ZEX01           1858-BAL     1908/BCR     1910/B
   ZFA              841/BAL     1247-LI
   ZFAN             715/BAL     1256-LI
   ZFCP             118-CNAME
   ZFH             1114/BAL     1188/LI      1237-LI      1633/BAL     1640/BAL
   ZFMW             129-CNAME
   ZFN             1111/BAL     1216-LI      1223/BAL
   ZFNDTB           704/BAL     1112/BAL     1222-STW
   ZFNUP           1110/BAL     1210-LI
   ZFOC             813/BAL     1183/BAL     1265/BAL     1269/BAL     1280-STW     3766/BAL
   ZFOCT           1113/BAL     1231-LI
   ZFOT             122-CNAME
   ZFS              737-ZFOT    1030/CB      1031/BCR*
   ZFSAT            145-CNAME
   ZFSLNK            93-EQU     1144/STW     1147/BCS*
   ZFSPRO          1148/LW      1972/ZFST2   1973-BAL     1982/B
   ZFSTRN           737/ZFOT    1144-STW
   ZFST2            137-CNAME
   ZFTF             109-EQU     1881/STW
   ZGOPRO          1965-LI      2219/ZFSAT
   ZGOPTR           684/STH     1169/STH     1966-LI
   ZHLT            1613-STW     2227/ZFSAT
   ZHLTMSG         1616/STW     1617/LW      1625/ZFMW    1626-TEXT
   ZIL5C            389/DATA     417-STW
   ZIL5F            335-XPSD    2059/LW      2060/STW
   ZIL50            373/DATA     409-STW
   ZIL51            377/DATA     411-STW
   ZIL56            381/DATA     413-STW
   ZIL57            385/DATA     415-STW
   ZIMSGSTR         441/BAL      442/BAL      445/BAL      452/BAL      458/BAL      512/BAL      513/BAL
       518/BAL      519/BAL      606-LI       623/BAL
   ZIMSGST1         611-STB      616/B
   ZIMSGST2         609/BCS      615-AI
   ZINTFLG          112-EQU      427/MTW      430/LW       480/STW      596/STW      653/STW
   ZINTINDX         460/STW      468/LW       550/LW       628-DATA
   ZIOADR          1287/LW      2043/STW     2046/AWM     2054/SW      2134-EQU     2135/EQU     3045/LW
      3549/LW      3639/LW
   ZIOWDS          2055/STW     2135-EQU     2136/EQU     3553/CW      3555/LW      3627/LW
   ZI5C             332/XPSD     387-DATA
   ZI5D             333/XPSD     391-DATA
   ZI50             319/XPSD     371-DATA
   ZI51             320/XPSD     375-DATA
   ZI56             325/XPSD     379-DATA
   ZI57             327/XPSD     383-DATA
   ZKBCRIOA        1573/BAL     1579/BAL     1584-LI
   ZLBADR           693/LW       889/CW      1157/CW      2038/STW     2127-EQU     2128/EQU
   ZLBPTR           694/STW      873/STW*     874/MTW      888/LW       893/MTW      894/LW*     1156/LW
      2039/STW     2128-EQU     2129/EQU
   ZLKADR           689/LW      1362/CW      1991/CW      2005/CW      2051/STW     2129-EQU     2130/EQU
   ZLKAS            920/LI      1989-LI
   ZLKPTR           690/STW     1990/LW      1993/MTW     1994/LW*     2002/LW      2009/STW     2011/LW
      2015/STW*    2016/MTW     2052/STW     2130-EQU     2131/EQU
   ZLKSET          1920/B       1974/BAL     2002-LW
   ZLMSTR           557/BAL      563/BAL      574/BAL      577/BAL      621-LMS
   ZLP              746-ZFOT
   ZLPD            1797/BCR     1801-STH
   ZLPD10          1807/BCR     1812-LB
   ZLPLNK            86-EQU      864/STW      876/BCR*     878/B*
   ZLPPRO           866/LW      1944-ZFST2
   ZLPTRN           746/ZFOT     864-STW
   ZLSTCH           108-EQU      810/LW      1282/STW
   ZMFRCW0         1286/STH     1303/LI      1315-ZFCP
   ZMFRCW1         1298/STH     1316-ZFCP
   ZMFRDA           662/STH     1295/CH      1301/TIO*    1304-SIO     1306/TIO*    1335/CH      1587/STH
      1754/CH      2067/STH     2343/TIO*    2351/HIO*
   ZMFRIOAD         657/LW       988/CW      2045/STW     2133-EQU     2134/EQU
   ZMFRIOF         1290/BCR     1321-LI
   ZMFRLNK          105-EQU     1280/STW     1313/B*
   ZMFRNBA          660/STH     1171/STH     1284-CI      1289/SH      1300/STH     1328/STH     1589/STH
   ZMFRTCBA        1285/BCS     1310-LB
   ZMFRX7           659/STH     1170/LH      1267/LH      1283-LI      1299/AH      1312/MTW     1327/LH
      1588/LH
   ZML1E             81-EQU
   ZML1F             82-EQU
   ZML10             79-EQU     1809/STB     1823/STB     1831/STB
   ZML14             80-EQU
   ZMPMSK           541/AND      629-DATA
   ZMPTWA           788/BAL     1859/BAL     1876-LB
   ZMS              742-ZFOT    1024/CB      1025/BCR*    1044/CB      1045/BCR*    1338/B*
   ZMSGKEY         1598/STH     1774-CI      2336/STB
   ZMSLNK            85-EQU      822/STW      829/B*
   ZMSTRN           742/ZFOT     822-STW
   ZNL              697/LB       726/ZFMW     739-ZFOT     811/CB       814/CB
   ZOPBEG           735-EQU      744/EQU      761/EQU
   ZOPLEN           705/LI       716/LI       761-EQU
   ZOPLN2           744-EQU     1090/LI
   ZOPTBL           706/LW       717/LW       760-EQU
   ZOPTB2           743-EQU     1091/LW
   ZPAGESAV         346-DATA     399/STW      401/STW      403/STW      405/STW      407/STW      409/STW
       411/STW      413/STW      415/STW      417/STW      419/STW      429/STM
   ZPCHK             98-EQU     1055/STW     1098/SW
   ZPCHK1            99-EQU     1056/STW     1085/STW     1097/LW
   ZPCNT             97-EQU     1059/STW     1062/SW      1068/MTW
   ZPC010           482/B        650-BAL      676/B       1333/BCS     1336/BCR     1937/B       2276/B
      2363/DATA    3971/B       3978/B
   ZPC020           663-LW       674/B
   ZPC030           668/LI       673-BAL
   ZPC050           663/LW       675-ZFMW
   ZPC200           681-BAL     2217/ZFSAT
   ZPC210           672/B        697-LB
   ZPC5            1115/BAL     1244-LI
   ZPC6            1116/BAL     1253-LI
   ZPC7            1117/BAL     1264-STW
   ZPC7LNK          104-EQU     1264/STW     1272/BCR*
   ZPC7M           1060/STB     1072/CB      1087/CB      1266/STB     1271-CI
   ZPD              749-ZFOT
   ZPDLNK            89-EQU      906/STW      910/B*
   ZPDTRN           749/ZFOT     906-STW
   ZPFIMSK          515/AND      630-DATA
   ZPFISTR          521/STM      525/LM       631-RES
   ZPL              740-ZFOT
   ZPLLNK            94-EQU     1001/STW     1034/B*
   ZPLTRN           738/ZFOT     739/ZFOT     740/ZFOT     741/ZFOT     748/ZFOT     885/BAL      999-MTW
      1145/BAL     2245/ZFSAT   2246/ZFSAT
   ZPLTRN20        1004/BCR     1008-LW
   ZPLTRN30        1014/BCS     1035-LI
   ZPMADR           687/LW       938/LW      2013/CW      2048/STW     2131-EQU     2132/EQU
   ZPMEN            909/BAL      937-STW      973/B
   ZPMEN10          941-LW       974/BIR
   ZPMEN20          944/BCS      951-CI
   ZPMEN30          946/BCS      961-LI
   ZPMEN40          940/BCR      948/BCS      952/BCS      955/BCS      964/BCS      975-CI
   ZPMLNK            91-EQU      937/STW      960/B*       991/B*
   ZPMPTR           688/STW      939/SW       941/LW*      957/AND*     966/LW*      969/MTW      970/LW*
       972/STW*     984/STW*     986/LW       990/STW     2049/STW     2132-EQU     2133/EQU
   ZPMRQ            927/BAL      936-AI      1162/BAL     1407/B
   ZPRTYP          1079/EXU     1110-BAL
   ZPTY              96-EQU     1063/STW     1067/LB*     1081/MTW
   ZRECOV           651/LW       676-B
   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              736-ZFOT    1032/CB      1033/BCR*
   ZRPLNK            87-EQU      884/STW      895/BCR*     898/B*
   ZRPPRO           891/LW      1951/ZFST2   1952-LW
   ZRPTRN           736/ZFOT     884-STW
   ZSCIR            650/BAL      681/BAL      783/BAL      792/BAL     1562-LI      1669/BAL     1767/BAL
      1858/BAL     1900/BAL     1914/BAL     2062/BAL     2297/BAL     2311/BAL     2342/BAL     3212/BAL
      3652/BAL
   ZSIG9            111-EQU      466/MTW      536/LW       559/LW       584/LW      2088/STW
   ZSMD            1604-LI      2223/ZFSAT
   ZSML            1596-LW      2222/ZFSAT
   ZSML40           465/BAL      485/BAL      503/BAL      523/BAL      549/BAL     1330/BAL     1759-LCFI
      2093/BAL
   ZSNER            722/B        812/BCS      852/B        890/BCR      950/B        989/BCS     1007/B
      1017/BCR     1037/BCR     1077/B       1096/B       1153/BCR     1158/BCS     1165/BCS     1322-BAL
      1365/B       1430/B       1443/B       1450/B       1967/BCR     1992/BCR     2014/BCS
   ZSNERMW         1329/LW      1339-ZFMW
   ZSNMSG          1324/STW     1326/STB     1331/LB      1339/ZFMW    1340-TEXT
   ZSP              738-ZFOT
   ZSRADR          1008/LW      2247-EQU
   ZSRBEG          2166-EQU     2198/EQU
   ZSRLEN           844/LI      1002/LI      2198-EQU
   ZSRTBL           846/CW       848/CW       853/CW       856/STW     1003/CW      2197-EQU
   ZSTCRC          1378-STW     1857/BAL
   ZSTPTR           692/BAL      776/BAL      787/BAL      797/BAL      824/BAL     1167/BAL     1355-STW
      1379/BAL     2076/BAL
   ZSUP            1528-STW     1536/BIR
   ZTAB            2269/STW     4062-EQU     4109/EQU
   ZTABL           2268/LI      4109-EQU
   ZTEMP           1458/STW     1462/AW      1463/STW     1467/AW      1468/STW     1471/AW      1472/STW
      1488/STW     1495/AWM     1500/OR      1501/STW     1519/LW      1529/STW     1537/LW      1538/STW
      1546/STW     1557/XW      1639/STW     1642/STW*    1643/MTW     1644/LW      2138-EQU     2139/EQU
   ZTEMP1          1517/STB     1520/LW      2139-EQU     2140/EQU
   ZTLCMN           400/BAL      402/BAL      404/BAL      406/BAL      408/BAL      410/BAL      412/BAL
       414/BAL      416/BAL      418/BAL      426-STCF
   ZTLCMN1          446-LW       487/B
   ZTLCMN10         472/BCR      532-LI       544/BIR      547/BCS
   ZTLCMN11         549-BAL      579/B
   ZTLCMN12         542/BCS      555-LI
   ZTLCMN13         476/BCR      581-LCF
   ZTLCMN14         478/BCR      530/BCS      552/BCR      582/BCR      583/BCR      595-LI
   ZTLCMN15         597/LPSD     599-DATA
   ZTLCMN16         538/BNE      541-AND
   ZTLCMN17         572/B        578-LW
   ZTLCMN18         561/BNE      573-LCI
   ZTLCMN2          464-HIO      490/B
   ZTLCMN3          434/BCR      484-LW
   ZTLCMN4          462/BCS      489-LW
   ZTLCMN5          470/BCR      492-LI
   ZTLCMN6          495-HIO      499/BIR
   ZTLCMN7          496/BCS      498-AI       527/B
   ZTLCMN8          497/BCS      506-STW
   ZTLCMN9          474/BCR      529-LCF
   ZTLHLT           432/BCS      467/BCR      479-LI       501/BCS      504/B        553/B        599/DATA
   ZTLMSG1          440/LI       632-TEXT     637/ZFMW     638/ZFMW
   ZTLMSG1F         463/LW       637-ZFMW
   ZTLMSG1G         489/LW       638-ZFMW
   ZTLMSG2          511/LI       634-TEXT     639/ZFMW
   ZTLMSG2F         522/LW       639-ZFMW
   ZTLMSG3          555/LI       565/STW      567/STW      569/STW      635-TEXT     640/ZFMW
   ZTLMSG3F         578/LW       640-ZFMW
   ZTLMSG4          636-TEXT     641/ZFMW     642/ZFMW     643/ZFMW
   ZTLMSG4F         484/LW       641-ZFMW
   ZTLMSG5F         502/LW       642-ZFMW
   ZTLMSG6F         548/LW       643-ZFMW
   ZTLOC            438/LB       644-DATA
   ZTL4C            365/DATA     405-STW
   ZTL4D            369/DATA     407-STW
   ZTL40            353/DATA     399-STW
   ZTL41            357/DATA     401-STW      435/AI
   ZTL46            361/DATA     403-STW
   ZTMNCR           664/BAL      696/BAL      828/BAL     1173/BAL     1753-LH
   ZTRN10           685/LI       703-LI       724/BAL      725/B        794/LI
   ZTRN100          695/LW       726-ZFMW     827/LW      1172/LW
   ZTRN40           711/BCS      713/BCS      721-LI       752/ZFOT     753/ZFOT     754/ZFOT     755/ZFOT
       756/ZFOT     757/ZFOT     758/ZFOT     759/ZFOT
   ZTRN50           708/BCR      719/BCR      723-BAL     1012/BCR
   ZTRN60           669/STH      686/STH      724-BAL      774/STH      795/STH     1023/LI      1029/LI
      1043/LI      1046/B       1337/LI
   ZTSTLNK          106-EQU
   ZTST1            868/BAL     1021/BAL     1398-LB
   ZTST1A          1402/BCS     1408-MTW
   ZTST1AA         1404/BCR     1410-LI
   ZTST1B          1409/BCS     1414-CI
   ZTST1C          1418-STW
   ZTST2            908/BAL      926/BAL     1161/BAL     1425-MTW
   ZTST2A          1406/BCS     1415/BCS     1426/BCR     1429-LI      1436/B
   ZTST3            767/BAL      839/BAL     1000/BCR     1041/BAL     1400/BCR     1434-MTW
   ZTST4            959/BAL      983/BAL     1082/BAL     1360-MTW     1419/B
   ZTST6           1440-MTW
   ZTST7            865/BAL      886/BAL      907/BAL      919/BAL     1447-MTW
   ZTW             1794/BCR     1800/BCR     1816-STH
   ZTWLP            227/BAL     1619/BAL     1716/BAL     1764-BCR     1829/AND     2443/BAL     2448/BAL
      2642/BAL     3017/BAL     3090/BAL     3152/BAL     3206/BAL     3257/BAL     3295/BAL     3355/BAL
      3416/BAL     3429/BAL     3489/BAL     3494/BAL     3585/B       3833/BAL     3865/BAL     3887/BAL
      3918/BAL     3969/BAL     3976/BAL
   ZTWLPA          1801/STH     1815/B       1816/STH     1819/BCR     1836-SIO     1838/TIO*    1936/HIO*
   ZTWLPO          1606/STH     1798-LI      2066/STH     2352/TIO*
   ZTWLP01         1771/BCR     1776-STH
   ZTWLP10         1783/STB     1803/LB      1810/STB     1811/LI      1818/LB      1830/MTB     1835/LI
      1845-ZFCP
   ZTWLP11         1786/STH     1787/AH      1788/STH     1789/STB     1802/LI      1812/LB      1814/MTB
      1820/MTB     1827/LB      1841/AH      1842/STH     1847-DATA
   ZTWLP12         1776/STH     1778/STB     1817/LI      1840/LH      1847/DATA    1849-ZFCP
   ZTW10           1828/BCR     1834-LI
   ZTYP            1656-LCFI    2226/ZFSAT
   ZT4C             311/XPSD     363-DATA
   ZT4D             312/XPSD     367-DATA
   ZT40             351-DATA     448/AI      2104/XPSD
   ZT41             300/XPSD     355-DATA
   ZT46             305/XPSD     359-DATA    2282/XPSD
   ZUDFPM            95-EQU      682/STW      965/MTW      980/MTW     1164/MTW
