1 C00   19:52 JUN 20,'83                                                                          PAGE    1
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   19:52 JUN 20,'83    SIGMA 5-9 CHAR ORIENT COMM CONT 704016-51G01 2-20-73                  PAGE    2
A       1                             TITLE 'SIGMA 5-9 CHAR ORIENT COMM CONT 704016-51G01 2-20-73'
        2                            *
        3                            *
        4                            * CATALOG NUMBER 704016             MANUAL NUMBER 901156            *GOO
        5                            *
        6                            *
        7                            *
        8                            *********************                                               *F01
        9                            **** REVISIONS ******                                               *F01
       10                            *********************                                               *F01
       11                            * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
       12                            *
       13                            *
       14                            *
       15                            *REVISION G01 (2-20-73)                                             *G01
       16                            * REVISED DCP INTERUPT HANDLER                                      *G01
       17                            *
       18                            * REVISION G00 (11/25/70)  CHANGES INDICATED IN COLUMNS 69 - 72 BY--*G00
       19                            *  PROGRAM REVISED FOR SIGMA 9 COMPATIBILITY.  INTERRUPT AND TRAP   *G00
       20                            *  HANDLERS MODIFIED FOR SIGMA 5/7/9 COMPATIBILITY.  INITIALIZER    *G00
       21                            *  ROUTINE MODIFIED TO ALLOW OPERATION WITH A KSR/ASR ON ANY VALID  *G00
       22                            *  SINGLE DEVICE ADDRESS.                                           *G00
       23                            *                                                                   *G00
       24                            *NOTE: IF THE KSR/ASR IS NOT AT DEVICE ADDRESS ONE, THE PROGRAM     *G00
       25                            *      WILL COME TO A WAIT.  ENTER THE CORRECT ADDRESS INTO         *G00
       26                            *      REGISTER 4 AND CLEAR THE WAIT.                               *G00
       27                            *
       28                            *
       29                            *REVISION F01 (8/1/70) CHANGES INDICATED IN COLS. 69-72 BY AN       *F01
       30                            *        REV      'PROGRAM REVISED TO:'                             *F01
       31                            *        REV      '1. CORRECT ERROR MESSAGES 27 AND 42'             *F01
       32                            *        REV      '2. ADD A TEST DIRECTIVE''TBTB,D1''THAT ALLOWS'   *F01
       33                            *        REV      'CHECKING OF THE ADDITIONAL FEATURES IN COC '     *F01
       34                            *        REV      'MODEL 7611-A02.'                                 *F01
       35                            *        REV      'D1= LINE NO.'                                    *F01
       36                            *        REV      '3. ADD AN ADDITIONAL PARAMETER TO THE'           *F01
       37                            *        REV      ' ''DARL,D1,D2,D3,D4'' DIRECTIVE.'                *F01
       38                            *        REV      'D4 = 1 NV10 INSTALLED AND TURNAROUND IS DESIRED' *F01
       39                            *        REV      'AT THE COC. SHOULD TURNAROUND BE DESIRED THROUGH'
       40                            *        REV      'DATA SETS OR CLM''S D4 MUST BE ZERO (0)'         *F01
       41                            *        REV      '4. ADD AN ADDITIONAL PAREMETER TO THE '          *F01
       42                            *        REV      ' ''SIO,X1,X2,X3'' DIRECTIVE.'                    *F01
       43                            *        REV      'X3= BYTE COUNT . MAX = X''FE'' DEFAULT = 2'      *F01
       44                            *        REV      '5. ADD AN ADDITIONAL PARAMETER TO THE'           *F01
       45                            *        REV      ' ''ST2,D1,D2'' DIRECTIVE.'                       *F01
       46                            *        REV      'D2 = DELAY TIME PER CHARACTER WHEN TURNAROUND'   *F01
       47                            *        REV      'IS DONE THROUGH DATA SETS OR CLM''S'             *F01
       48                            *        REV      '6. CORRECT SUBROUTINE SHUTDOWN IN TEST,1'        *F01
       49                            *        REV      'SO THAT TEST,1 AND TEST,2 MAY BE RUN IN A    *F01
F0
       50                            *        REV      'SINGLE CONTROL LINE'                             *F01
       51                            *        REV      '7.CORRECT TEST,2 TO CONSIDER FORMAT INFORMATION' *F01
       52                            *        REV      'INPUT THROUGH DIRECTIVES ''DARL'' AND ''DAXL'' ' *F01
       53                            *
       54                            *
       55                            *REVISION F00 (1 FEB. 1970) CHANGES INDICATED IN COLUMNS 71 AND 72 BY *F
       56                            *PROGRAM REVISED: 1. TO CORRECT ERRORS IN DIRECTIVE 'ST1' WHICH       *F
       57                            *                    OCCURED WHEN ATTEMPTING TO RUN WITH 64 LINES     *F
       58                            *                    ACTIVE.                                          *F
       59                            *                 2. RELATED CHANGE IN DIRECTIVE 'DBUF'.              *F
       60                            *                 3. CORRECTED ERRORS IN 'DCP' (CODING AT 'ZCMS')     *F
       61                            *                 4. CHANGES IN DIRECTIVE 'ST1' AND ADDITIONS THERETO *F
       62                            *                    RELATED TO OPERATION OF THE 7640 'CLM' AT FULL   *F
       63                            *                    SPEED.                                           *F
       64                            *                 5. CHANGES IN DIRECTIVES:  'SLS', 'DAXL', 'DXL',    *F
       65                            *                    AND 'T1RP' RELATED TO 4. ABOVE.                  *F
       66                            *                 6. IMPROVEMENT IN ABORT ROUTINE AND 'ENVI' DIRECTIVE*F
       67                            *                    TO SAVE AND DISPLAY, RESPECTIVELY, THE STATUS OF *F
       68                            *                    ACTIVE LINES AT TIME OF ABORT.                   *F
       69                            *                 7. IMPROVEMENTS IN 'COCU' DIRECTIVE TO VALIDATE     *F
       70                            *                    PARAMETER INPUTS.                                *F
       71                            *                 8. CHANGE 'DXLD', 'XDLY' TO LIMIT DELAY VALUE TO    *F
       72                            *                    9999 FOR SIGMA 2/3 CONTROL LINE COMPATABILITY.   *F
       73                            *                 9. ADDITIONS TO 'INIT' AND CODING AT END OF 'ZCMS'  *F
       74                            *                    ROUTINE RELATED TO 4. ABOVE.                     *F
       75                            *
       76                            *
       77                            * REVISION E00 (7/24/69) DOCUMENTATION REFORMATTING CHANGE ONLY       *E
       78                            *
       79                            *
       80                            * REVISION D00 (6 JUNE 1969) CHANGES INDICATED IN COLUMNS 71 AND 72 BY*D
       81                            * PROGRAM REVISED TO ACCOMMODATE DELAY REQUIRED FOR COMM. LINE MULTI- *D
       82                            * PLEXER (7640) TESTING. DXLD PARAMETER RANGE INCREASED TO 65,535 MS. *D
       83                            *
       84                            *
       85                            *REVISION C00 (DEC 11,1968) CHANGES INDICATED IN COLUMNS 71 AND 72 BY *C
       86                            *CORRECTS ASSEMBLER ERROR IN B00 PROGRAM                              *C
       87                            *
       88                            *
       89                            *
       90                            *
       91                            *CATALOG NUMBER   704016-A00  CHARACTER ORIENTED COMMUNICATIONS
       92                            *                          EQUIPTMENT DIAGNOSTIC
       93                            *
       94                            *
       95                            *
       96                                     SYSTEM   SIG7FDP
       97                            *
       98                            *
       99                            *REVISION B00 (7-22-68) CHANGES INDICATED IN COLUMNS 71 AND 72 BY     *B
      100                            *CORRECTS ERROR PRINTOUT WHEN MESSAGE DEVICE IS ASR TYPEWRITER        *B
      101                            *
      102                            *
      103                                     OPEN     PAGE              THIS INHIBITS                     *C
      104         00000000           PAGE     CNAME                       PAGE                             *C
      105                                     PROC                         DIRECTIVE                       *C
      106                                     PEND                          TO PERMIT MAX. LINAGE/PAGE     *C
      107                            *
      108                            *
      109                            *CATALOG NO. 704070 SIGME 5/7 DIAGNOSTIC CONTROL PROGRAM (DCP)
      110                            *
      111                            *
      112   01 00040                          ORG      64
            01 00040
      113                            *                                                                   *GOO
      114                            *                                                                   *GOO
      115         01 00040           ZDCP     EQU      %                                                 *GOO
      116                            *                                                                   *GOO
      117                            *
      118                            * ASSIGN MNEMONIC NAMES TO INDEX REGISTERS
      119                            *
      120         00000001           X1       EQU      1
      121         00000002           X2       EQU      2
      122         00000003           X3       EQU      3
      123         00000004           X4       EQU      4
      124         00000005           X5       EQU      5
      125         00000006           X6       EQU      6
      126         00000007           X7       EQU      7
      127                            *
      128                            * ASSIGN MNEMONIC NAMES TO GENERAL REGISTERS
      129                            *
      130         00000000           R0       EQU      0
      131         00000001           R1       EQU      1
      132         00000002           R2       EQU      2
      133         00000003           R3       EQU      3
      134         00000004           R4       EQU      4
      135         00000005           R5       EQU      5
      136         00000006           R6       EQU      6
      137         00000007           R7       EQU      7
      138         00000008           R8       EQU      8
      139         00000009           R9       EQU      9
      140         0000000A           R10      EQU      X'A'
      141         0000000B           R11      EQU      X'B'
      142         0000000C           R12      EQU      X'C'
      143         0000000D           R13      EQU      X'D'
      144         0000000E           R14      EQU      X'E'
      145         0000000F           R15      EQU      X'F'
      146                                     PAGE
      147                            *
      148                            * EQUATE STATEMENTS TO UTILIZE UNASSIGNED MEMORY LOCATIONS
      149                            *
      150         00000010           ZML10    EQU      X'10'             LOCATIONS 10-IF UTILIZED
      151         00000014           ZML14    EQU      X'14'             BY COMMON TYPE/PRINT ROUTINE
      152         0000001E           ZML1E    EQU      X'1E'
      153         0000001F           ZML1F    EQU      X'1F'
      154         00000022           ZCLLNK   EQU      X'22'             TEMPORARY
      155         00000023           ZEQLNK   EQU      X'23'             LINK STORAGE
      156         00000024           ZMSLNK   EQU      X'24'             FOR TRANSLATOR
      157         00000025           ZLPLNK   EQU      X'25'             SUBROUTINES
      158         00000025           ZRPLNK   EQU      X'25'
      159                            * CPU RESET RECOVERY LOCATION
      160         00000027           ZPDLNK   EQU      X'27'
      161         00000028           ZASLNK   EQU      X'28'
      162         00000029           ZPMLNK   EQU      X'29'
      163         0000002A           ZCOLNK   EQU      X'2A'
      164         0000002B           ZFSLNK   EQU      X'2B'
      165         0000002C           ZPLLNK   EQU      X'2C'
      166         0000002D           ZUDFPM   EQU      X'2D'
      167         0000002E           ZPTY     EQU      X'2E'
      168         0000002F           ZPCNT    EQU      X'2F'
      169         00000030           ZPCHK    EQU      X'30'
      170         00000031           ZPCHK1   EQU      X'31'
      171         00000032           ZDSLNK   EQU      X'32'
      172         00000033           ZDSPTR   EQU      X'33'
      173         00000034           ZCFRLNK  EQU      X'34'
      174         00000035           ZCFRCA   EQU      X'35'
      175         00000036           ZPC7LNK  EQU      X'36'
      176         00000037           ZMFRLNK  EQU      X'37'
      177         00000038           ZTSTLNK  EQU      X'38'
      178         00000039           ZCHAR    EQU      X'39'
      179         0000003A           ZLSTCH   EQU      X'3A'
      180         0000003C           ZFTF     EQU      X'3C'
      181         0000003D           ZDSFLG   EQU      X'3D'
      182         0000003E           ZSIG9    EQU      X'3E'             SIGMA 9 FLAG, 1=SIGMA 9         *GOO
      183         0000003F           ZINTFLG  EQU      X'3F'             INTERRUPT FLAG (COUNTER)        *GOO
      184                            *                                                                   *GOO
      185                            *
      186                            * FORM DIRECTIVES FOR FORMATTED WORDS
      187                            *
      188         00000004           ZFCP     COM,8,24  AF(1),AF(2)      ORDER,BYTE ADDRESS/COUNT
      189         00000004           ZFOT     COM,8,7,17  AF(1),AF(2),AF(3)  OPERATOR, UNUSED, ADDRESS
      190                            *
      191                            * PROCEDURE FOR GENERATION OF FORMATTED MESSAGE WORDS
      192                            *
      193         00000000           ZFMW     CNAME
      194                                     PROC
      195                            LF       GEN,4,4,8,16 ABSVAL(AF(1)),ABSVAL(AF(2)),ABSVAL(AF(3)),;
      196                             ABSVAL(AF(4))
      197                                     PEND
      198                            *
      199                            * PROCEDURE FOR GENERATION OF FORMATTED SUBROUTINE CONTROL TABLE
      200                            *
      201         00000000           ZFST2    CNAME
      202                                     PROC
      203                            LF       GEN,4,2,9,17 ABSVAL(AF(1)),ABSVAL(AF(2)),ABSVAL(AF(3)),;
      204                             ABSVAL(AF(4))
      205                                     PEND
      206                            *
      207                            * PROCEDURE FOR GENERATION OF FORMATTED PARAMETER WORDS
      208                            *
      209         00000000           ZFSAT    CNAME
      210                                     PROC
      211                            LF       GEN,4,2,2,7,17 ABSVAL(AF(1)),ABSVAL(AF(2)),;
      212                             ABSVAL(AF(3)),ABSVAL(AF(4)),ABSVAL(AF(5))
      213                                     PEND
      214                            ******************************************************************* *F01
      215                            ******************************************************************* *F01
      216                            **  TO FACILIATE THE PRINTING OF CHANGES MADE TO                    *F01
      217                            **  THIS PROGRAM A PROCEDURE CALLED BY 'REV' IS USED.               *FO1
      218                            **                                                                  *F01
      219                            **                                                                  *F01
      220                            **   METHOD:                                                        *F01
      221                            **       1. USE REV AS A COMMAND, IT OPERATES                       *F01
      222                            **       SIMILAR TO A TEXT DIRECTIVE.                               *F01
      223                            **       2. A LABEL OF '' REVISION '' MUST ACCOMPANY                *F01
      224                            **       THE FIRST USE OF 'REV'.                                    *F01
      225                            **       3. A LABEL OF '' REVEND '' MUST ACCOMPANY THE              *F01
      226                            **       LAST USE OF ' REV '.                                       *F01
      227                            **       4. ALL ' REV ' STATMENTS MUST BE LOCATED                   *F01
      228                            **       IN THE SAME SECTION OF CODE.                               *F01
      229                            **                                                                  *F01
      230                            **                                                                  *F01
      231                            **                                                                  *F01
      232                            **                                                                  *F01
      233                            **       WHEN USED CORRECTLY  ' REV ' WILL GENERATE THE             *F01
      234                            **       TEXT STRING AND THE NECESSARY CODE TO PRINT THE            *F01
      235                            **       TEXT ON A LINE PER LINE BASSIS.                            *F01
      236                            ** AN EXAMPLE OF USE WOULD BE:                                      *F01
      237                            **       ORG      X'(A LOCATION PAST THE LAST LITERAL OF THIS PROGRAM)'
      238                            **REVISION REV    'REVISION XXX'                                    *F01
      239                            **       REV      'MODIFIED PROGRAM TO PRINT THIS MESSAGE'          *F01
      240                            **REVEND REV      'NO CHANGES TO OPERATING PROCEDURES'              *F01
      241                            **                                                                  *F01
      242                            **NOTE!!! THIS PROCEDURE GENERATES TWO MORE LITERALS.               *F01
      243                            ******************************************************************* *F01
      244                            ******************************************************************* *F01
      245         00000000           REVCOUNT SET      0                                                 *F01
      246         00000000           REVSTART SET      0                                                 *F01
      247         00000000           REVHERE  SET      0                                                 *F01
      248         00000000           REVTHERE SET      0                                                 *F01
      249                            *                                                                   *F01
      250                            *                                                                   *F01
      251         00000000           REV      CNAME                                                      *F01
      252                                     PROC                                                       *F01
      253                                     DO       REVCOUNT=0                                        *F01
      254                            REVSTART SET      %                                                 *F01
      255                            LF       RES      1                                                 *F01
      256                                     FIN                                                        *F01
      257                            REVCOUNT SET      REVCOUNT+1                                        *F01
      258                                     DO       SCOR(LF,REVEND)                                   *F01
      259                            REVHERE  SET      %                                                 *F01
      260                                     RES      1                                                 *F01
      261                                     TEXT     AF                                                *F01
      262                            REVTHERE SET      %                                                 *F01
      263                                     ORG      REVHERE                                           *F01
      264                                     GEN,4,4,8,16  2,0,(4*(REVTHERE-REVHERE))-4,BA(REVHERE)+4   *F01
      265                                     ORG      REVSTART                                          *F01
      266                                     GEN,32   REVCOUNT                                          *F01
      267                                     ORG      REVTHERE                                          *F01
      268                                     CODE                                                       *F01
      269                                     ELSE                                                       *F01
      270                            REVHERE  SET      %                                                 *F01
      271                                     RES      1                                                 *F01
      272                                     TEXT     AF                                                *F01
      273                            REVTHERE SET      %                                                 *F01
      274                                     ORG      REVHERE                                           *F01
      275                                     GEN,4,4,8,16  2,0,(4*(REVTHERE-REVHERE))-4,BA(REVHERE)+4   *F01
      276                                     ORG      REVTHERE                                          *F01
      277                                     FIN                                                        *F01
      278                                     PEND                                                       *F01
      279                            *                                                                   *F01
      280                            *                                                                   *F01
      281         00000000           CODE     CNAME                                                      *F01
      282                                     PROC                                                       *F01
      283                            REVPRINT LW,12    *REVADR                                           *F01
      284                                     LCI      X'F'                                              *G00
      285                                     BAL,15   ZTWLP                                             *G00
      286                                     LH,4     *REVADR                                           *F01
      287                                     AND,4    =X'FF'                                            *F01
      288                                     SLS,4    -2                                                *F01
      289                                     AI,4     1                                                 *F01
      290                                     AW,4     REVADR                                            *F01
      291                                     STW,4    REVADR                                            *F01
      292                                     MTW,-1   REVISION                                          *F01
      293                                     BNEZ     REVPRINT                                          *F01
      294                                     LW,4     NOP                                               *F01
      295                                     STW,4    REVBRNCH                                          *F01
      296                                     B        REVBRNCH                                          *F01
      297                            REVADR   DATA     REVISION+1                                        *F01
      298                            NOP      NOP                                                        *F01
      299                                     PEND                                                       *F01
      300                            *                                                                   *F01
      301                            *
      302                            *                 DELETED UNUSED PROC 'ZAP1'                          *F
      303                                     PAGE
      304                            *
      305                            * SYNTAX ERROR CODE MESSAGES
      306                            *      NO.     MEANING
      307                            *      ---     -------
      308                            *      001    UNDEFINED SPECIAL CHARACTER
      309                            *      010    COMMENTS LINE INITIATOR (ASTERISK) NOT PRECEDED
      310                            *              BY NEW LINE CHARACTER
      311                            *      020    DECIMAL RE-ITERATION COUNT AND/OR PLACE MARKER
      312                            *              IDENTIFIER SUB-FIELD GREATER OR LESS THAN AND/OR
      313                            *               NOT PERMITTED BY DIRECTIVE
      314                            *      021    ALPHABETIC CHARACTERS ENCOUNTERED IN DECIMAL SUB-
      315                            *              FIELD OR ABSENCE OF FIELD SEPARATOR
      316                            *      030    PLACE MARKER IDENTIFIER TABLE OVERFLOW
      317                            *      031    DOUBLY DEFINED PLACE MARKER IDENTIFIERS
      318                            *      032    UNDEFINED PLACE MARKER IDENTIFIERS AT EXECUTE TIME
      319                            *      040    CLOSE LOOP OPERATION WITHOUT PRIOR OPEN LOOP OPER.
      320                            *      041    OPEN LOOP OPERATIONS EXIST AT EXECUTE TIME
      321                            *      050    UNDEFINED MNEMONIC DIRECTIVE
      322                            *      051    DIRECTIVE NON-EXECUTABLE IN CONTROL LINE MODE
      323                            *      052    DIRECTIVE NON-EXECUTABLE IN IMMEDIATE MODE
      324                            *      053    UNDEFINED AND/OR DOUBLY DEFINED MNEMONIC DIRECTIVE
      325                            *              NAME FOR MNEMONIC NAME RE-DEFINITION
      326                            *      054    ILLEGAL FIELD SEPARATOR FOLLOWING DIRECTIVE
      327                            *      055    FIELD SEPARATOR ENTERED PRIOR TO REQUIRED PARAMETER
      328                            *      100    EXECUTE TABLE OVERFLOW-UNCONDITIONAL ABORT
      329                            *      101    EXECUTE TABLE UNDERFLOW-UNCONDITIONAL ABORT
      330                            *      105    GO ERROR UNCONDITIONAL ABORT
      331                            *      110    LINK TABLE OVERFLOW-UNCONDITIONAL ABORT
      332                            *      111    LINK TABLE UNDERFLOW-UNCONDITIONAL ABORT
      333                            *      120    SYMBOLIC INPUT OVERFLOW-UNCONDITIONAL ABORT
      334                            ***************************************************************     *F01
      335                            ********   REVISION NOTICES GO HERE **************************      *F01
      336                            ******************************************************************* *F01
      337                            *                                                                   *G00
      338                            *                                                                   *G00
      339   02 00000                          CSECT                                                      *G00
      340                            *                                                                   *G00
      341                            *                                                                   *G00
      342   02 02700                          ORG      X'2700'                                           *F01
            02 02700
      343                            *                                                                   *GOO
      344                            *                                                                   *GOO
      345   02 02702    E3D640E2 A   REVISION REV      'TO SUPPRESS THIS MESSAGE, SET SSW 4.'            *G00
            02 02703    E4D7D7D9 A
            02 02704    C5E2E240 A
            02 02705    E3C8C9E2 A
            02 02706    40D4C5E2 A
            02 02707    E2C1C7C5 A
            02 02708    6B40E2C5 A
            02 02709    E340E2E2 A
            02 0270A    E640F44B A
            02 02701    20249C08 N
      346   02 0270C    40404040 A    REV ' '                                                            *G00
            02 0270B    20049C30 N
      347   02 0270E    D9C5E5C9 A    REV 'REVISION G00'                                                 *G00
            02 0270F    E2C9D6D5 A
            02 02710    40C7F0F0 A
            02 0270D    200C9C38 N
      348   02 02712    D7D9D6C7 A    REV 'PROGRAM REVISED FOR SIGMA 9 COMPATIBILITY.  INTERRUPT AND'    *GOO
            02 02713    D9C1D440 A
            02 02714    D9C5E5C9 A
            02 02715    E2C5C440 A
            02 02716    C6D6D940 A
            02 02717    E2C9C7D4 A
            02 02718    C140F940 A
            02 02719    C3D6D4D7 A
            02 0271A    C1E3C9C2 A
            02 0271B    C9D3C9E3 A
            02 0271C    E84B4040 A
            02 0271D    C9D5E3C5 A
            02 0271E    D9D9E4D7 A
            02 0271F    E340C1D5 A
            02 02720    C4404040 A
            02 02711    203C9C48 N
      349   02 02722    E3D9C1D7 A    REV 'TRAP HANDLERS MODIFIED FOR SIGMA 5/7/9 COMPATIBILITY.'        *GOO
            02 02723    40C8C1D5 A
            02 02724    C4D3C5D9 A
            02 02725    E240D4D6 A
            02 02726    C4C9C6C9 A
            02 02727    C5C440C6 A
            02 02728    D6D940E2 A
            02 02729    C9C7D4C1 A
            02 0272A    40F561F7 A
            02 0272B    61F940C3 A
            02 0272C    D6D4D7C1 A
            02 0272D    E3C9C2C9 A
            02 0272E    D3C9E3E8 A
            02 0272F    4B404040 A
            02 02721    20389C88 N
      350   02 02731    C9D5C9E3 A    REV 'INITIALIZER ROUTINE MODIFIED TO ALLOW OPERATION WITH A'       *GOO
            02 02732    C9C1D3C9 A
            02 02733    E9C5D940 A
            02 02734    D9D6E4E3 A
            02 02735    C9D5C540 A
            02 02736    D4D6C4C9 A
            02 02737    C6C9C5C4 A
            02 02738    40E3D640 A
            02 02739    C1D3D3D6 A
            02 0273A    E640D6D7 A
            02 0273B    C5D9C1E3 A
            02 0273C    C9D6D540 A
            02 0273D    E6C9E3C8 A
            02 0273E    40C14040 A
            02 02730    20389CC4 N
      351   02 02740    D2E2D961 A    REV 'KSR/ASR ON ANY VALID SINGLE DEVICE ADDRESS.'                  *GOO
            02 02741    C1E2D940 A
            02 02742    D6D540C1 A
            02 02743    D5E840E5 A
            02 02744    C1D3C9C4 A
            02 02745    40E2C9D5 A
            02 02746    C7D3C540 A
            02 02747    C4C5E5C9 A
            02 02748    C3C540C1 A
            02 02749    C4C4D9C5 A
            02 0274A    E2E24B40 A
            02 0273F    202C9D00 N
      352   02 0274C    40404040 A    REV ' '                                                            *GOO
            02 0274B    20049D30 N
      353   02 0274E    D5D6E3C5 A    REV 'NOTE: IF THE KSR/ASR IS NOT AT DEVICE ADDRESS ONE, THE'       *GOO
            02 0274F    7A40C9C6 A
            02 02750    40E3C8C5 A
            02 02751    40D2E2D9 A
            02 02752    61C1E2D9 A
            02 02753    40C9E240 A
            02 02754    D5D6E340 A
            02 02755    C1E340C4 A
            02 02756    C5E5C9C3 A
            02 02757    C540C1C4 A
            02 02758    C4D9C5E2 A
            02 02759    E240D6D5 A
            02 0275A    C56B40E3 A
            02 0275B    C8C54040 A
            02 0274D    20389D38 N
      354   02 0275D    40404040 A    REV '      PROGRAM WILL COME TO A WAIT.  ENTER THE CORRECT'        *GOO
            02 0275E    4040D7D9 A
            02 0275F    D6C7D9C1 A
            02 02760    D440E6C9 A
            02 02761    D3D340C3 A
            02 02762    D6D4C540 A
            02 02763    E3D640C1 A
            02 02764    40E6C1C9 A
            02 02765    E34B4040 A
            02 02766    C5D5E3C5 A
            02 02767    D940E3C8 A
            02 02768    C540C3D6 A
            02 02769    D9D9C5C3 A
            02 0276A    E3404040 A
            02 0275C    20389D74 N
      355   02 0276C    40404040 A    REV '      ADDRESS INTO REGISTER 4 AND CLEAR THE WAIT.'            *GOO
            02 0276D    4040C1C4 A
            02 0276E    C4D9C5E2 A
            02 0276F    E240C9D5 A
            02 02770    E3D640D9 A
            02 02771    C5C7C9E2 A
            02 02772    E3C5D940 A
            02 02773    F440C1D5 A
            02 02774    C440C3D3 A
            02 02775    C5C1D940 A
            02 02776    E3C8C540 A
            02 02777    E6C1C9E3 A
            02 02778    4B404040 A
            02 0276B    20349DB0 N
      356   02 0277A    40404040 A    REV ' '                                                            *GOO
            02 02779    20049DE8 N
      357   02 0277C    D9C5E5C9 A            REV      'REVISION F01'                                    *G00
            02 0277D    E2C9D6D5 A
            02 0277E    40C6F0F1 A
            02 0277B    200C9DF0 N
      358   02 02780    D7D9D6C7 A            REV      'PROGRAM REVISED TO:'                             *F01
            02 02781    D9C1D440 A
            02 02782    D9C5E5C9 A
            02 02783    E2C5C440 A
            02 02784    E3D67A40 A
            02 0277F    20149E00 N
      359   02 02786    F14B40C3 A            REV      '1. CORRECT ERROR MESSAGES 27 AND 42'             *F01
            02 02787    D6D9D9C5 A
            02 02788    C3E340C5 A
            02 02789    D9D9D6D9 A
            02 0278A    40D4C5E2 A
            02 0278B    E2C1C7C5 A
            02 0278C    E240F2F7 A
            02 0278D    40C1D5C4 A
            02 0278E    40F4F240 A
            02 02785    20249E18 N
      360   02 02790    F24B40C1 A            REV      '2. ADD A TEST DIRECTIVE''TBTB,D1''THAT ALLOWS'   *F01
            02 02791    C4C440C1 A
            02 02792    40E3C5E2 A
            02 02793    E340C4C9 A
            02 02794    D9C5C3E3 A
            02 02795    C9E5C57D A
            02 02796    E3C2E3C2 A
            02 02797    6BC4F17D A
            02 02798    E3C8C1E3 A
            02 02799    40C1D3D3 A
            02 0279A    D6E6E240 A
            02 0278F    202C9E40 N
      361   02 0279C    C3C8C5C3 A            REV      'CHECKING OF THE ADDITIONAL FEATURES IN COC '     *F01
            02 0279D    D2C9D5C7 A
            02 0279E    40D6C640 A
            02 0279F    E3C8C540 A
            02 027A0    C1C4C4C9 A
            02 027A1    E3C9D6D5 A
            02 027A2    C1D340C6 A
            02 027A3    C5C1E3E4 A
            02 027A4    D9C5E240 A
            02 027A5    C9D540C3 A
            02 027A6    D6C34040 A
            02 0279B    202C9E70 N
      362   02 027A8    D4D6C4C5 A            REV      'MODEL 7611-A02.'                                 *F01
            02 027A9    D340F7F6 A
            02 027AA    F1F160C1 A
            02 027AB    F0F24B40 A
            02 027A7    20109EA0 N
      363   02 027AD    C4F17E40 A            REV      'D1= LINE NO.'                                    *F01
            02 027AE    D3C9D5C5 A
            02 027AF    40D5D64B A
            02 027AC    200C9EB4 N
      364   02 027B1    F34B40C1 A            REV      '3. ADD AN ADDITIONAL PARAMETER TO THE'           *F01
            02 027B2    C4C440C1 A
            02 027B3    D540C1C4 A
            02 027B4    C4C9E3C9 A
            02 027B5    D6D5C1D3 A
            02 027B6    40D7C1D9 A
            02 027B7    C1D4C5E3 A
            02 027B8    C5D940E3 A
            02 027B9    D640E3C8 A
            02 027BA    C5404040 A
            02 027B0    20289EC4 N
      365   02 027BC    407DC4C1 A            REV      ' ''DARL,D1,D2,D3,D4'' DIRECTIVE.'                *F01
            02 027BD    D9D36BC4 A
            02 027BE    F16BC4F2 A
            02 027BF    6BC4F36B A
            02 027C0    C4F47D40 A
            02 027C1    C4C9D9C5 A
            02 027C2    C3E3C9E5 A
            02 027C3    C54B4040 A
            02 027BB    20209EF0 N
      366   02 027C5    C4F4407E A            REV      'D4 = 1 NV10 INSTALLED AND TURNAROUND IS DESIRED' *F01
            02 027C6    40F140D5 A
            02 027C7    E5F1F040 A
            02 027C8    C9D5E2E3 A
            02 027C9    C1D3D3C5 A
            02 027CA    C440C1D5 A
            02 027CB    C440E3E4 A
            02 027CC    D9D5C1D9 A
            02 027CD    D6E4D5C4 A
            02 027CE    40C9E240 A
            02 027CF    C4C5E2C9 A
            02 027D0    D9C5C440 A
            02 027C4    20309F14 N
      367   02 027D2    C1E340E3 A            REV      'AT THE COC. SHOULD TURNAROUND BE DESIRED THROUGH'
            02 027D3    C8C540C3 A
            02 027D4    D6C34B40 A
            02 027D5    E2C8D6E4 A
            02 027D6    D3C440E3 A
            02 027D7    E4D9D5C1 A
            02 027D8    D9D6E4D5 A
            02 027D9    C440C2C5 A
            02 027DA    40C4C5E2 A
            02 027DB    C9D9C5C4 A
            02 027DC    40E3C8D9 A
            02 027DD    D6E4C7C8 A
            02 027D1    20309F48 N
      368   02 027DF    C4C1E3C1 A            REV      'DATA SETS OR CLM''S D4 MUST BE ZERO (0)'         *F01
            02 027E0    40E2C5E3 A
            02 027E1    E240D6D9 A
            02 027E2    40C3D3D4 A
            02 027E3    7DE240C4 A
            02 027E4    F440D4E4 A
            02 027E5    E2E340C2 A
            02 027E6    C540E9C5 A
            02 027E7    D9D6404D A
            02 027E8    F05D4040 A
            02 027DE    20289F7C N
      369   02 027EA    F44B40C1 A            REV      '4. ADD AN ADDITIONAL PAREMETER TO THE '          *F01
            02 027EB    C4C440C1 A
            02 027EC    D540C1C4 A
            02 027ED    C4C9E3C9 A
            02 027EE    D6D5C1D3 A
            02 027EF    40D7C1D9 A
            02 027F0    C5D4C5E3 A
            02 027F1    C5D940E3 A
            02 027F2    D640E3C8 A
            02 027F3    C5404040 A
            02 027E9    20289FA8 N
      370   02 027F5    407DE2C9 A            REV      ' ''SIO,X1,X2,X3'' DIRECTIVE.'                    *F01
            02 027F6    D66BE7F1 A
            02 027F7    6BE7F26B A
            02 027F8    E7F37D40 A
            02 027F9    C4C9D9C5 A
            02 027FA    C3E3C9E5 A
            02 027FB    C54B4040 A
            02 027F4    201C9FD4 N
      371   02 027FD    E7F37E40 A            REV      'X3= BYTE COUNT . MAX = X''FE'' DEFAULT = 2'      *F01
            02 027FE    C2E8E3C5 A
            02 027FF    40C3D6E4 A
            02 02800    D5E3404B A
            02 02801    40D4C1E7 A
            02 02802    407E40E7 A
            02 02803    7DC6C57D A
            02 02804    40C4C5C6 A
            02 02805    C1E4D3E3 A
            02 02806    407E40F2 A
            02 027FC    20289FF4 N
      372   02 02808    F54B40C1 A            REV      '5. ADD AN ADDITIONAL PARAMETER TO THE'           *F01
            02 02809    C4C440C1 A
            02 0280A    D540C1C4 A
            02 0280B    C4C9E3C9 A
            02 0280C    D6D5C1D3 A
            02 0280D    40D7C1D9 A
            02 0280E    C1D4C5E3 A
            02 0280F    C5D940E3 A
            02 02810    D640E3C8 A
            02 02811    C5404040 A
            02 02807    2028A020 N
      373   02 02813    407DE2E3 A            REV      ' ''ST2,D1,D2'' DIRECTIVE.'                       *F01
            02 02814    F26BC4F1 A
            02 02815    6BC4F27D A
            02 02816    40C4C9D9 A
            02 02817    C5C3E3C9 A
            02 02818    E5C54B40 A
            02 02812    2018A04C N
      374   02 0281A    C4F2407E A            REV      'D2 = DELAY TIME PER CHARACTER WHEN TURNAROUND'   *F01
            02 0281B    40C4C5D3 A
            02 0281C    C1E840E3 A
            02 0281D    C9D4C540 A
            02 0281E    D7C5D940 A
            02 0281F    C3C8C1D9 A
            02 02820    C1C3E3C5 A
            02 02821    D940E6C8 A
            02 02822    C5D540E3 A
            02 02823    E4D9D5C1 A
            02 02824    D9D6E4D5 A
            02 02825    C4404040 A
            02 02819    2030A068 N
      375   02 02827    C9E240C4 A            REV      'IS DONE THROUGH DATA SETS OR CLM''S'             *F01
            02 02828    D6D5C540 A
            02 02829    E3C8D9D6 A
            02 0282A    E4C7C840 A
            02 0282B    C4C1E3C1 A
            02 0282C    40E2C5E3 A
            02 0282D    E240D6D9 A
            02 0282E    40C3D3D4 A
            02 0282F    7DE24040 A
            02 02826    2024A09C N
      376   02 02831    F64B40C3 A            REV      '6. CORRECT SUBROUTINE SHUTDOWN IN TEST,1'        *F01
            02 02832    D6D9D9C5 A
            02 02833    C3E340E2 A
            02 02834    E4C2D9D6 A
            02 02835    E4E3C9D5 A
            02 02836    C540E2C8 A
            02 02837    E4E3C4D6 A
            02 02838    E6D540C9 A
            02 02839    D540E3C5 A
            02 0283A    E2E36BF1 A
            02 02830    2028A0C4 N
      377   02 0283C    E2D640E3 A            REV      'SO THAT TEST,1 AND TEST,2 MAY BE RUN IN A'       *F01
            02 0283D    C8C1E340 A
            02 0283E    E3C5E2E3 A
            02 0283F    6BF140C1 A
            02 02840    D5C440E3 A
            02 02841    C5E2E36B A
            02 02842    F240D4C1 A
            02 02843    E840C2C5 A
            02 02844    40D9E4D5 A
            02 02845    40C9D540 A
            02 02846    C1404040 A
            02 0283B    202CA0F0 N
      378   02 02848    E2C9D5C7 A            REV      'SINGLE CONTROL LINE'                             *F01
            02 02849    D3C540C3 A
            02 0284A    D6D5E3D9 A
            02 0284B    D6D340D3 A
            02 0284C    C9D5C540 A
            02 02847    2014A120 N
      379   02 0284E    F74BC3D6 A            REV      '7.CORRECT TEST,2 TO CONSIDER FORMAT INFORMATION' *F01
            02 0284F    D9D9C5C3 A
            02 02850    E340E3C5 A
            02 02851    E2E36BF2 A
            02 02852    40E3D640 A
            02 02853    C3D6D5E2 A
            02 02854    C9C4C5D9 A
            02 02855    40C6D6D9 A
            02 02856    D4C1E340 A
            02 02857    C9D5C6D6 A
            02 02858    D9D4C1E3 A
            02 02859    C9D6D540 A
            02 0284D    2030A138 N
      380   02 0285B    C9D5D7E4 A            REV      'INPUT THROUGH DIRECTIVES ''DARL'' AND ''DAXL'' ' *G00
            02 0285C    E340E3C8 A
            02 0285D    D9D6E4C7 A
            02 0285E    C840C4C9 A
            02 0285F    D9C5C3E3 A
            02 02860    C9E5C5E2 A
            02 02861    407DC4C1 A
            02 02862    D9D37D40 A
            02 02863    C1D5C440 A
            02 02864    7DC4C1E7 A
            02 02865    D37D4040 A
            02 0285A    202CA16C N
      381   02 02867    40404040 A   REVEND   REV      ' '                                               *G00
            02 02866    2004A19C N
            02 02700    00000025 A
            02 02868    B2C02876
            02 02869    022000F0 A
            02 0286A    6AF005C9 01
            02 0286B    D2402876
            02 0286C    4B402147 01
            02 0286D    2540007E A
            02 0286E    20400001 A
            02 0286F    30402876
            02 02870    35402876
            02 02871    33F02700
            02 02872    69302868
            02 02873    32402877
            02 02874    35401769 01
            02 02875    68001769 01
            02 02876    00002701
            02 02877    02000000 A
      382                            *                                                                   *GOO
      383   02 02878                          USECT    ZDCP                                              *GOO
      384                            *                                                                   *GOO
      385                            *
      386                            * PRE-INITIALIZATION OF CPU TRAP LOCATIONS
      387                            *
      388                            *                                                                   *GOO
      389   01 00040    0F0006D4              XPSD,0   ZCMST40    40 NON-ALLOWED OPERATION               *GOO
      390   01 00041    0F000154              XPSD,0   ZT41       41 UNIMPLEMENTED INSTRUCTION           *GOO
      391   01 00042    0F00017C              XPSD,0   ZCTL       42 PUSHDOWN STACK LIMIT                *GOO
      392   01 00043    0F00017C              XPSD,0   ZCTL       43 FIXED POINT OVERFLOW                *GOO
      393   01 00044    0F00017C              XPSD,0   ZCTL       44 FLOATING POINT FAULT                *GOO
      394   01 00045    0F00017C              XPSD,0   ZCTL       45 DECIMAL ARITHMETIC FAULT            *GOO
      395   01 00046    0F000158              XPSD,0   ZT46       46 WATCHDOG TIMER RUNOUT               *GOO
      396   01 00047    0F00017C              XPSD,0   ZCTL       47 UNASSIGNED                          *GOO
      397   01 00048    0F00017C              XPSD,0   ZCTL       48 CALL1                               *GOO
      398   01 00049    0F00017C              XPSD,0   ZCTL       49 CALL2                               *GOO
      399   01 0004A    0F00017C              XPSD,0   ZCTL       4A CALL3                               *GOO
      400   01 0004B    0F00017C              XPSD,0   ZCTL       4B CALL4                               *GOO
      401   01 0004C    0F00015C              XPSD,0   ZT4C       4C SIGMA 9 MEMORY PARITY ERROR         *GOO
      402   01 0004D    0F000160              XPSD,0   ZT4D       4D SIGMA 9 SEQUENCE CHANGE FAULT       *GOO
      403   01 0004E    0F00017C              XPSD,0   ZCTL       4E UNASSIGNED                          *GOO
      404   01 0004F    0F00017C              XPSD,0   ZCTL       4F  TRAP LOCATIONS                     *GOO
      405                            *                                                                   *GOO
      406                            *                                                                   *GOO
      407                            * PRE-INITIALIZATION OF INTERRUPT LOCATIONS                         *GOO
      408                            *                                                                   *GOO
      409   01 00050    0F000164              XPSD,0   ZI50       50 OPTIONAL POWER ON                   *GOO
      410   01 00051    0F000168              XPSD,0   ZI51       51  POWER OFF INTERRUPTS               *GOO
      411   01 00052    0F00017C              XPSD,0   ZCTL       52 REAL-TIME CLOCKS                    *GOO
      412   01 00053    0F00017C              XPSD,0   ZCTL       53  COUNTER 1-3                        *GOO
      413   01 00054    0F00017C              XPSD,0   ZCTL       54   COUNT PULSES                      *GOO
      414   01 00055    0F00017C              XPSD,0   ZCTL       55 STANDARD COUNTER 4 PULSE            *GOO
      415   01 00056    0F00016C              XPSD,0   ZI56       56 SIGMA 5/7 MEMORY PARITY ERROR       *GOO
      416                            *                               SIGMA 9   SYSTEM FAULT              *GOO
      417   01 00057    0F000170              XPSD,0   ZI57       57 SIGMA 9   MEMORY FAULT              *GOO
      418   01 00058    0F00017C              XPSD,0   ZCTL       58 REAL-TIME CLOCKS                    *GOO
      419   01 00059    0F00017C              XPSD,0   ZCTL       59  COUNTER EQUALS ZERO                *GOO
      420   01 0005A    0F00017C              XPSD,0   ZCTL       5A   1-4 INTERRUPT                     *GOO
      421   01 0005B    0F00017C              XPSD,0   ZCTL       5B    LOCATIONS                        *GOO
      422   01 0005C    0F000174              XPSD,0   ZI5C       5C INPUT/OUTPUT INTERRUPT              *GOO
      423   01 0005D    0F000178              XPSD,0   ZI5D       5D CONSOLE INTERRUPT                   *GOO
      424   01 0005E    0F00017C              XPSD,0   ZCTL       5E UNASSIGNED                          *GOO
      425   01 0005F    0F00017C     ZIL5F    XPSD,0   ZCTL       5F  INTERRUPTS                         *GOO
      426                            *                                                                   *GOO
      427                            *                                                                   *GOO
      428                            * INTERRUPT LOCATIONS INITIALIZED   60 OPTIONAL EXTERNAL GROUPS
      429                            *  AT LOAD TIME TO XPSD,0 ZCTL      61  2-15 LOCATIONS 60-13F
      430                            *                                                                   *GOO
      431                            *                                                                   *GOO
      432                            * COMMON INTERRUPT ROUTINE SAVES REGISTER PAGE AT THIS LOCATION     *GOO
      433                            *                                                                   *GOO
      434   01 00140                          ORG      X'140'                                            *GOO
            01 00140
      435                            *                                                                   *GOO
      436   01 00140    00000000 A   ZPAGESAV DATA,16  0,0,0,0           REGISTER PAGE SAVED HERE        *GOO
                        00000000
                        00000000
                        00000000
            01 00144    00000000 A
                        00000000
                        00000000
                        00000000
            01 00148    00000000 A
                        00000000
                        00000000
                        00000000
            01 0014C    00000000 A
                        00000000
                        00000000
                        00000000
      437                            *                                                                   *GOO
      438                            *                                                                   *GOO
      439                            * PRE-INITIALIZED CPU TRAP/INTERRUPT ROUTINE                        *GOO
      440                            *                                                                   *GOO
      441   01 00150    00000000 A   ZT40     DATA     0          40 NON-ALLOWED OPERATION               *GOO
      442   01 00151    00000000 A            DATA     0                                                 *GOO
      443   01 00152    00000180              DATA     ZTL40                                             *GOO
      444   01 00153    00000000 A            DATA     0                                                 *GOO
      445   01 00154    00000000 A   ZT41     DATA     0          41 UNIMPLEMENTED INSTRUCTION           *GOO
      446   01 00155    00000000 A            DATA     0                                                 *GOO
      447   01 00156    00000182              DATA     ZTL41                                             *GOO
      448   01 00157    00000000 A            DATA     0                                                 *GOO
      449   01 00158    00000000 A   ZT46     DATA     0          46 WATCHDOG TIMER RUNOUT               *GOO
      450   01 00159    00000000 A            DATA     0                                                 *GOO
      451   01 0015A    00000184              DATA     ZTL46                                             *GOO
      452   01 0015B    00000000 A            DATA     0                                                 *GOO
      453   01 0015C    00000000 A   ZT4C     DATA     0          4C SIGMA 9 MEMORY PARITY ERROR         *GOO
      454   01 0015D    00000000 A            DATA     0                                                 *GOO
      455   01 0015E    00000186              DATA     ZTL4C                                             *GOO
      456   01 0015F    00000000 A            DATA     0                                                 *GOO
      457   01 00160    00000000 A   ZT4D     DATA     0          4D SIGMA 9 SEQUENCE CHANGE FAULT       *GOO
      458   01 00161    00000000 A            DATA     0                                                 *GOO
      459   01 00162    00000188              DATA     ZTL4D                                             *GOO
      460   01 00163    00000000 A            DATA     0                                                 *GOO
      461   01 00164    00000000 A   ZI50     DATA     0          50 POWER ON INTERRUPT                  *GOO
      462   01 00165    00000000 A            DATA     0                                                 *GOO
      463   01 00166    0000018A              DATA     ZIL50                                             *GOO
      464   01 00167    00000000 A            DATA     0                                                 *GOO
      465   01 00168    00000000 A   ZI51     DATA     0          51 POWER OFF INTERRUPT                 *GOO
      466   01 00169    00000000 A            DATA     0                                                 *GOO
      467   01 0016A    0000018C              DATA     ZIL51                                             *GOO
      468   01 0016B    00000000 A            DATA     0                                                 *GOO
      469   01 0016C    00000000 A   ZI56     DATA     0          56 SIGMA 5/7 MEMORY PARITY ERROR       *GOO
      470   01 0016D    00000000 A            DATA     0             SIGMA 9   SYSTEM FAULT              *GOO
      471   01 0016E    0000018E              DATA     ZIL56                                             *GOO
      472   01 0016F    00000000 A            DATA     0                                                 *GOO
      473   01 00170    00000000 A   ZI57     DATA     0          57 SIGMA 9 MEMORY FAULT                *GOO
      474   01 00171    00000000 A            DATA     0                                                 *GOO
      475   01 00172    00000190              DATA     ZIL57                                             *GOO
      476   01 00173    00000000 A            DATA     0                                                 *GOO
      477   01 00174    00000000 A   ZI5C     DATA     0          5C INPUT/OUTPUT INTERRUPT              *GOO
      478   01 00175    00000000 A            DATA     0                                                 *GOO
      479   01 00176    00000192              DATA     ZIL5C                                             *GOO
      480   01 00177    00000000 A            DATA     0                                                 *GOO
      481   01 00178    00000000 A   ZI5D     DATA     0          5D CONSOLE INTERRUPT                   *GOO
      482   01 00179    00000000 A            DATA     0                                                 *GOO
      483   01 0017A    00000655              DATA     ZCONINT                                           *GOO
      484   01 0017B    00000000 A            DATA     0                                                 *GOO
      485   01 0017C    00000000 A   ZCTL     DATA     0                                                 *GOO
      486   01 0017D    00000000 A            DATA     0                                                 *GOO
      487   01 0017E    00000194              DATA     ZCTL1      60 - 13F EXTERNAL INTERRUPTS           *GOO
      488   01 0017F    00000000 A            DATA     0                                                 *GOO
      489   01 00180    35F0014F     ZTL40    STW,R15  ZPAGESAV+15       SAVE (R15)                      *GOO
      490   01 00181    6AF00196              BAL,R15  ZTLCMN              MARK INT/TRAP ADDR            *GOO
      491   01 00182    35F0014F     ZTL41    STW,R15  ZPAGESAV+15                                       *GOO
      492   01 00183    6AF00196              BAL,R15  ZTLCMN                                            *GOO
      493   01 00184    35F0014F     ZTL46    STW,R15  ZPAGESAV+15                                       *GOO
      494   01 00185    6AF00196              BAL,R15  ZTLCMN                                            *GOO
      495   01 00186    35F0014F     ZTL4C    STW,R15  ZPAGESAV+15                                       *GOO
      496   01 00187    6AF00196              BAL,R15  ZTLCMN                                            *GOO
      497   01 00188    35F0014F     ZTL4D    STW,R15  ZPAGESAV+15                                       *GOO
      498   01 00189    6AF00196              BAL,R15  ZTLCMN                                            *GOO
      499   01 0018A    35F0014F     ZIL50    STW,R15  ZPAGESAV+15                                       *GOO
      500   01 0018B    6AF00196              BAL,R15  ZTLCMN                                            *GOO
      501   01 0018C    35F0014F     ZIL51    STW,R15  ZPAGESAV+15                                       *GOO
      502   01 0018D    6AF00196              BAL,R15  ZTLCMN                                            *GOO
      503   01 0018E    35F0014F     ZIL56    STW,R15  ZPAGESAV+15                                       *GOO
      504   01 0018F    6AF00196              BAL,R15  ZTLCMN                                            *GOO
      505   01 00190    35F0014F     ZIL57    STW,R15  ZPAGESAV+15                                       *GOO
      506   01 00191    6AF00196              BAL,R15  ZTLCMN                                            *GOO
      507   01 00192    35F0014F     ZIL5C    STW,R15  ZPAGESAV+15                                       *GOO
      508   01 00193    6AF00196              BAL,R15  ZTLCMN                                            *GOO
      509   01 00194    35F0014F     ZCTL1    STW,R15  ZPAGESAV+15       EXTERNAL INTERRUPT              *GOO
      510   01 00195    22F00000 A            LI,R15   0                                                 *GOO
      511                            *                                                                   *GOO
      512                            * COMMON TRAP/INTERRUPT ROUTINE.  (R15) INDICATE LOCATION           *GOO
      513                            * TRAP/INTERRUPT OCCURED IN AND THEREFORE THE TYPE OF UNEXPECTED    *GOO
      514                            * TRAP/INTERRUPT.                                                   *GOO
      515                            *                                                                   *GOO
      516   01 00196    7400024B     ZTLCMN   STCF     ZCSS              SAVE TRAP CONDITION CODES       *GOO
      517   01 00197    3310003F A            MTW,1    ZINTFLG           INCREMENT INTERRUPT FLAG        *GOO
      518   01 00198    022000F0 A            LCI      15                SAVE REGISTERS 0-14             *GOO
      519   01 00199    2B000140              STM,R0   ZPAGESAV                                          *GOO
      520   01 0019A    3210003F A            LW,R1    ZINTFLG           CHECK FOR MULTIPLE INTERRUPTS   *GOO
      521   01 0019B    21100001 A            CI,R1    1                                                 *GOO
      522   01 0019C    693001CB              BCS,3    ZTLHLT              MULTI-INTERRUPTS              *GOO
      523   01 0019D    21F00000 A            CI,R15   0                 COMPUTE TRAP/INT INDEX          *GOO
      524   01 0019E    683001CF              BCR,3    ZTLCMN3                                           *GOO
      525   01 0019F    20FFFE7E N            AI,R15   -ZTL41              REMOVE BIAS FROM INDEX        *GOO
      526   01 001A0    36F02148              DW,R15   L(2)                                              *GOO
      527   01 001A1    3210000F A            LW,X1    R15                 DETERMINE LOCATION            *GOO
      528   01 001A2    72420285              LB,R4    ZTLOC,X1                                          *GOO
      529   01 001A3    25400018 A            SLS,R4   24                CONVERT & STORE LOCATION        *GOO
      530   01 001A4    22700955              LI,X7    BA(ZTLMSG1)+13                                    *GOO
      531   01 001A5    6AE0023C              BAL,R14  ZIMSGSTR                                          *GOO
      532   01 001A6    6AE0023C              BAL,R14  ZIMSGSTR                                          *GOO
      533   01 001A7    3240024B              LW,R4    ZCSS              CONVERT & STORE CONDITION CODE  *GOO
      534   01 001A8    20700005 A            AI,X7    5                                                 *GOO
      535   01 001A9    6AE0023C              BAL,R14  ZIMSGSTR                                          *GOO
      536   01 001AA    3210000F A   ZTLCMN1  LW,R1    R15               CONVERT & STORE PSW1            *GOO
      537   01 001AB    23100004 A            MI,R1    4                                                 *GOO
      538   01 001AC    20100150              AI,R1    ZT40                                              *GOO
      539   01 001AD    B2400001 A            LW,R4    *R1                                               *GOO
      540   01 001AE    222FFFF8 A            LI,X2    -8                                                *GOO
      541   01 001AF    20700006 A            AI,X7    6                                                 *GOO
      542   01 001B0    6AE0023C              BAL,R14  ZIMSGSTR                                          *GOO
      543   01 001B1    652001B0              BIR,X2   %-1                                               *GOO
      544   01 001B2    20100001 A            AI,R1    1                 CONVERT & STORE PSW2            *GOO
      545   01 001B3    B2400001 A            LW,R4    *R1                                               *GOO
      546   01 001B4    222FFFF8 A            LI,X2    -8                                                *GOO
      547   01 001B5    20700006 A            AI,X7    6                                                 *GOO
      548   01 001B6    6AE0023C              BAL,R14  ZIMSGSTR                                          *GOO
      549   01 001B7    652001B6              BIR,X2   %-1                                               *GOO
      550   01 001B8    35F0024C              STW,R15  ZINTINDX                                          *GOO
      551   01 001B9    21F0000B A            CI,R15   11                CHECK FOR EXTERNAL INTERRUPT    *GOO
      552   01 001BA    692001D3              BCS,2    ZTLCMN4             EXTERNAL                      *GOO
      553   01 001BB    32C0027E              LW,R12   ZTLMSG1F          PRINT MESSAGE NO. 1             *GOO
      554   01 001BC    CF00052D     ZTLCMN2  HIO,0    *ZDKB+1           HALT/CLEAR KSR                  *GOO
      555   01 001BD    6AF005C8              BAL,R15  ZSML40              PRINT                         *GOO
      556   01 001BE    3300003E A            MTW,0    ZSIG9             SIGMA 9 TEST                    *GOO
      557   01 001BF    683001CB              BCR,3    ZTLHLT              NO                            *GOO
      558   01 001C0    32F0024C              LW,R15   ZINTINDX          TEST FOR PROCESSOR FAULT INT    *GOO
      559   01 001C1    21F00007 A            CI,R15   7                                                 *GOO
      560   01 001C2    683001D5              BCR,3    ZTLCMN5                                           *GOO
      561   01 001C3    21F00008 A            CI,R15   8               TEST FOR MEMORY FAULT INTERRUPT   *GOO
      562   01 001C4    683001FA              BCR,3    ZTLCMN10                                          *GOO
      563   01 001C5    21F00003 A            CI,R15   3                 TEST FOR MEMORY PARITY TRAP     *GOO
      564   01 001C6    683001F8              BCR,3    ZTLCMN9                                           *GOO
      565   01 001C7    21F00002 A            CI,R15   2                 TEST FOR WATCHDOG TIMER TRAP    *GOO
      566   01 001C8    68300229              BCR,3    ZTLCMN13                                          *GOO
      567   01 001C9    21F00004 A            CI,R15   4                 TEST FOR INSTRUCTION EXCEPTION  *GOO
      568   01 001CA    68300236              BCR,3    ZTLCMN14            TRAP                          *GOO
      569   01 001CB    22000000 A   ZTLHLT   LI,0     0                 CLEAR INTERRUPT FLAG            *GOO
      570   01 001CC    3500003F A            STW,0    ZINTFLG                                           *GOO
      571   01 001CD    2E000000 A            WAIT                       HALT                            *GOO
      572   01 001CE    68000288              B        ZPC010            REINITIALIZE                    *GOO
      573                            *                                                                   *GOO
      574   01 001CF    32C00282     ZTLCMN3  LW,R12   ZTLMSG4F          EXTERNAL INTERRUPT              *GOO
      575   01 001D0    6AF005C8              BAL,R15  ZSML40            PRINT MESSAGE NO. 4             *GOO
      576   01 001D1    22F0000C A            LI,R15   12                SET INDEX FOR PSW1 & PSW2       *GOO
      577   01 001D2    680001AA              B        ZTLCMN1                                           *GOO
      578                            *                                                                   *GOO
      579   01 001D3    32C0027F     ZTLCMN4  LW,R12   ZTLMSG1G          PRINT PSW1 & PSW2 ONLY          *GOO
      580   01 001D4    680001BC              B        ZTLCMN2                                           *GOO
      581                            *                                                                   *GOO
      582   01 001D5    22300000 A   ZTLCMN5  LI,R3    0                 PROCESSOR FAULT INTERRUPT       *GOO
      583   01 001D6    221FFFE0 A            LI,X1    -32               POLL ALL POSSIBLE PROCESSORS    *GOO
      584   01 001D7    22208000 A            LI,R2    X'8000'                                           *GOO
      585   01 001D8    CF600002 A   ZTLCMN6  HIO,R6   *R2                 ** POLP ** COMMAND            *GOO
      586   01 001D9    698001DB              BCS,8    ZTLCMN7               ADDR NOT RECOGNIZED         *GOO
      587   01 001DA    694001E2              BCS,4    ZTLCMN8               PFI PULLED BY THIS PROCESSOR*GOO
      588   01 001DB    20200100 A   ZTLCMN7  AI,R2    X'100'            INCREMENT PROCESSOR ADDRESS     *GOO
      589   01 001DC    651001D8              BIR,X1   ZTLCMN6                                           *GOO
      590   01 001DD    21300000 A            CI,R3    0                 ANY PFI'S FOUND                 *GOO
      591   01 001DE    693001CB              BCS,3    ZTLHLT              YES-EXIT                      *GOO
      592   01 001DF    32C00283              LW,R12   ZTLMSG5F          OUTPUT MESSAGE NO. 5            *GOO
      593   01 001E0    6AF005C8              BAL,R15  ZSML40                                            *GOO
      594   01 001E1    680001CB              B        ZTLHLT            EXIT                            *GOO
      595                            *                                                                   *GOO
      596   01 001E2    35200004 A   ZTLCMN8  STW,R2   R4                PFI PULLED                      *GOO
      597   01 001E3    20404000 A            AI,R4    X'4000'           ISSUE POLR TO RESET PROCESSOR   *GOO
      598   01 001E4    CF600004 A            HIO,R6   *R4                 ** POLR ** COMMAND            *GOO
      599   01 001E5    204F4000 A            AI,R4    -X'C000'          CONVERT & STORE PROCESSOR NO.   *GOO
      600   01 001E6    25400010 A            SLS,R4   16                                                *GOO
      601   01 001E7    22700995              LI,X7    BA(ZTLMSG2)+9                                     *GOO
      602   01 001E8    6AE0023C              BAL,R14  ZIMSGSTR                                          *G00
      603   01 001E9    6AE0023C              BAL,R14  ZIMSGSTR                                          *G00
      604   01 001EA    32400006 A            LW,R4    R6                CONVERT & STORE FAULT STATUS    *GOO
      605   01 001EB    4B40024E              AND,R4   ZPFIMSK                                           *GOO
      606   01 001EC    25400016 A            SLS,R4   22                                                *GOO
      607   01 001ED    20700009 A            AI,X7    9                                                 *GOO
      608   01 001EE    6AE0023C              BAL,R14  ZIMSGSTR                                          *G00
      609   01 001EF    6AE0023C              BAL,R14  ZIMSGSTR                                          *G00
      610   01 001F0    02200030 A            LCI      3                 PRINT MESSAGE NO. 2             *GOO
      611   01 001F1    2B10024F              STM,R1   ZPFISTR                                           *GOO
      612   01 001F2    32C00280              LW,R12   ZTLMSG2F                                          *GOO
      613   01 001F3    6AF005C8              BAL,R15  ZSML40                                            *GOO
      614   01 001F4    02200030 A            LCI      3                                                 *GOO
      615   01 001F5    2A10024F              LM,R1    ZPFISTR                                           *GOO
      616   01 001F6    20300001 A            AI,R3    1                 SET FAULT FOUND                 *GOO
      617   01 001F7    680001DB              B        ZTLCMN7                                           *GOO
      618                            *                                                                   *GOO
      619   01 001F8    7030024B     ZTLCMN9  LCF      ZCSS              MEMORY PARITY TRAP
      620   01 001F9    69F00236              BCS,15   ZTLCMN14          CHECK FOR MEMORY DETERMINED TRAP*GOO
      621                            *                                                                   *GOO
      622   01 001FA    22103FF0 A   ZTLCMN10 LI,1     X'3FF0'           MEMORY DETERMINED TRAP/INTER.   *G00
      623   01 001FB    226FFFFC A            LI,6     -4                                                *G00
      624   01 001FC    02200080 A            LCI      8                 READOUT MSW0                    *GOO
      625   01 001FD    AD400001 A            LMS,R4   *R1                                               *GOO
      626   01 001FE    32F0003E A            LW,15    ZSIG9                                            **G01
      627   01 001FF    21F000E3 A            CI,15    'T'               IS IT SIGMA                    **G01
      628   01 00200    69300203              BNE      ZTLCMN16          B: YES                         **G01
      629   01 00201    4B402149              AND,4    =X'7F0003FF'      CHECK FOR ERROR                **G01
      630   01 00202    68000204              B        %+2                                              **G01
      631   01 00203    4B40024D     ZTLCMN16 AND,4    ZMPMSK            CHECK FOR ERROR                **G01
      632   01 00204    69300210              BCS,3    ZTLCMN12              ERROR                       *GOO
      633   01 00205    20100001 A            AI,1     1                   HANDLE INTERLEVE              *G00
      634   01 00206    656001FC              BIR,6    ZTLCMN10+2                                        *G00
      635   01 00207    20103FFC A            AI,1     X'3FFC'           INCREMENT MEMORY BANK           *G00
      636   01 00208    31100687              CW,R1    ZEMS              CHECK FOR END OF MEMORY         *GOO
      637   01 00209    691001FB              BCS,1    ZTLCMN10+1                                        *GOO
      638   01 0020A    32C00284              LW,R12   ZTLMSG6F          NO ERROR FOUND                  *GOO
      639   01 0020B    6AF005C8     ZTLCMN11 BAL,R15  ZSML40            PRINT MESSAGE NO. 6             *GOO
      640   01 0020C    32F0024C              LW,R15   ZINTINDX          IS THIS A TRAP                  *GOO
      641   01 0020D    21F00003 A            CI,R15   3                                                 *GOO
      642   01 0020E    68300236              BCR,3    ZTLCMN14            YES                           *GOO
      643   01 0020F    680001CB              B        ZTLHLT            EXIT                            *GOO
      644                            *                                                                   *GOO
      645   01 00210    227009A9     ZTLCMN12 LI,X7    BA(ZTLMSG3)+5     MEMORY INDICATES ERROR          *GOO
      646   01 00211    02200080 A            LCI      8                 CONVERT & STORE MSW0            *GOO
      647   01 00212    6AD00246              BAL,R13  ZLMSTR                                            *GOO
      648   01 00213    20700007 A            AI,X7    7                 CONVERT & STORE MSW1            *GOO
      649   01 00214    32F0003E A            LW,15    ZSIG9                                            **G01
      650   01 00215    21F000E3 A            CI,15    'T'               IS IT SIGMA                    **G01
      651   01 00216    69300222              BNE      ZTLCMN18          B: YES                         **G01
      652   01 00217    022000A0 A            LCI      10                                               **G01
      653   01 00218    6AD00246              BAL,13   ZLMSTR            CONVERT &  STORE MSW1          **G01
      654   01 00219    32F0214A              LW,15    ='UNUS'                                          **G01
      655   01 0021A    35F00272              STW,15   ZTLMSG3+9                                        **G01
      656   01 0021B    32F0214B              LW,15    =X'C5C44015'                                     **G01
      657   01 0021C    35F00273              STW,15   ZTLMSG3+10                                       **G01
      658   01 0021D    32F0214C              LW,15    =X'E6F27E40'                                     **G01
      659   01 0021E    35F00271              STW,15   ZTLMSG3+8                                        **G01
      660   01 0021F    022000C0 A            LCI      12                                               **G01
      661   01 00220    AD400001 A            LMS,4    *1                CLEAR MSW0 AND MSW1            **G01
      662   01 00221    68000227              B        ZTLCMN17                                         **G01
      663   01 00222    02200090 A   ZTLCMN18 LCI      9                                                *H00
      664   01 00223    6AD00246              BAL,R13  ZLMSTR                                            *GOO
      665   01 00224    20700007 A            AI,X7    7                 CONVERT & STORE MSW2            *GOO
      666   01 00225    022000E0 A            LCI      14                  CLEAR SNAPSHOT                *GOO
      667   01 00226    6AD00246              BAL,R13  ZLMSTR                                            *GOO
      668   01 00227    32C00281     ZTLCMN17 LW,12    ZTLMSG3F          PRINT MESSAGE NO. 3            **G01
      669   01 00228    6800020B              B        ZTLCMN11                                          *GOO
      670                            *                                                                   *GOO
      671   01 00229    7030024B     ZTLCMN13 LCF      ZCSS              WATCHDOG TIMER TRAP
      672   01 0022A    68400236              BCR,4    ZTLCMN14          CHECK FOR PROCESSOR TIMEOUT     *GOO
      673   01 0022B    68800236              BCR,8    ZTLCMN14          CHECK FOR NO OTHER TRAP PENDING *GOO
      674   01 0022C    32F0003E A            LW,15    ZSIG9                                             *G01
      675   01 0022D    21F000E3 A            CI,15    'T'               IS IT SIGMA                     *G01
      676   01 0022E    69300231              BNE      %+3               YES                             *G01
      677   01 0022F    221FFFC0 A            LI,X1    -64                                               *G01
      678   01 00230    68000232              B        %+2                                               *G01
      679   01 00231    221FFFE4 A            LI,X1    -28               SEND AN RIO TO ALL IOP'S        *GOO
      680   01 00232    22204000 A            LI,R2    X'4000'                                           *GOO
      681   01 00233    CF000002 A            HIO,0    *R2                 ** RIO **  COMMAND            *GOO
      682   01 00234    20200100 A            AI,R2    X'100'                                            *GOO
      683   01 00235    65100233              BIR,X1   %-2                                               *GOO
      684                            *                                                                   *GOO
      685   01 00236    22000000 A   ZTLCMN14 LI,0     0                 PDF F/F SET BY CURRENT TRAP     *GOO
      686   01 00237    3500003F A            STW,0    ZINTFLG                                           *GOO
      687   01 00238    0E10023A              LPSD,1   ZTLCMN15          CLEAR PDF F/F                   *GOO
      688                                     BOUND    8                                                 *GOO
      689   01 0023A    000001CB     ZTLCMN15 DATA     ZTLHLT              CLEAR PDF & WAIT              *GOO
      690   01 0023B    00000000 A            DATA     0                                                 *GOO
      691                            *                                                                   *GOO
      692                            * CONVERT HEXADECIMAL DATA IN R4 TO EBCIDIC AND STORE BYTE BY (X7). *GOO
      693                            * MOST SIGNIFICANT CHARACTER CONVERTED, ONE CHARACTER PER ENTRY TO  *GOO
      694                            * ROUTINE.  CALL: BAL,R14.                                          *GOO
      695                            *                                                                   *GOO
      696   01 0023C    22500000 A   ZIMSGSTR LI,R5    0                 PLACE CHARACTER IN R5           *GOO
      697   01 0023D    25400304 A            SCD,R4   4                                                 *GOO
      698   01 0023E    21500009 A            CI,R5    9                 CHARACTER = 0-9                 *GOO
      699   01 0023F    69200244              BCS,2    ZIMSGST2            NO, A-F                       *GOO
      700   01 00240    205000F0 A            AI,R5    X'F0'             EBCIDIC 0-9                     *GOO
      701   01 00241    755E0000 A   ZIMSGST1 STB,R5   0,X7              STORE CODED CHARACTER           *GOO
      702   01 00242    20700001 A            AI,X7    1                 INCREMENT STORAGE ADDRESS       *GOO
      703   01 00243    E800000E A            B        *R14              EXIT                            *GOO
      704                            *                                                                   *GOO
      705   01 00244    205000B7 A   ZIMSGST2 AI,R5    X'B7'             EBCIDIC A-F                     *GOO
      706   01 00245    68000241              B        ZIMSGST1                                          *GOO
      707                            *                                                                   *GOO
      708                            * PREFORM LMS INSTRUCTION & STORE MEMORY FAULT DATA.                *GOO
      709                            * CALL: BAL,R13                                                     *GOO
      710                            *                                                                   *GOO
      711   01 00246    AD400001 A   ZLMSTR   LMS,R4   *R1               LOAD MEMORY STATUS              *GOO
      712   01 00247    222FFFF8 A            LI,X2    -8                CONVERT & STORE STATUS          *GOO
      713   01 00248    6AE0023C              BAL,R14  ZIMSGSTR                                          *GOO
      714   01 00249    65200248              BIR,X2   %-1                                               *GOO
      715   01 0024A    E800000D A            B        *R13              EXIT                            *GOO
      716                            *                                                                   *GOO
      717   01 0024B    00000000 A   ZCSS     DATA     0                 TRAP-INTERRUPT CONDITION CODES  *GOO
      718   01 0024C    00000000 A   ZINTINDX DATA     0                                                 *GOO
      719   01 0024D    FFF00000 A   ZMPMSK   DATA     X'FFF00000'                                       *GOO
      720   01 0024E    000000FC A   ZPFIMSK  DATA     X'FC'                                             *GOO
      721   01 0024F                 ZPFISTR  RES      3                                                 *GOO
      722   01 00252    E3D9C1D7 A   ZTLMSG1  TEXT     'TRAP/INTER = XX TCC=X PSW1=XXXXXXXX '            *GOO
            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
      723   01 0025B    D7E2E6F2 A            TEXT     'PSW2=XXXXXXXX  REGSAVE=000140
'                  *GOO
            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
      724   01 00263    D7D9D6C3 A   ZTLMSG2  TEXT     'PROC.NO.=XX  F/STAT=XX'                          *GOO
            01 00264    4BD5D64B A
            01 00265    7EE7E740 A
            01 00266    40C661E2 A
            01 00267    E3C1E37E A
            01 00268    E7E74040 A
      725   01 00269    D4E2E6F0 A   ZTLMSG3  TEXT     'MSW0=XXXXXXXX  MSW1=XXXXXXXX  MSW2=XXXXXXXX
'    *GOO
            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
      726   01 00274    E4D5C4C5 A   ZTLMSG4  TEXT     'UNDEF INTER
','NO PROC FAULT
','NO MEM FAULT
'   *GOO
            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
      727   01 0027E    20420948 A   ZTLMSG1F ZFMW     2,0,66,BA(ZTLMSG1)                                *GOO
      728   01 0027F    202C095E A   ZTLMSG1G ZFMW     2,0,44,BA(ZTLMSG1)+22                             *GOO
      729   01 00280    2016098C A   ZTLMSG2F ZFMW     2,0,22,BA(ZTLMSG2)                                *GOO
      730   01 00281    202C09A4 A   ZTLMSG3F ZFMW     2,0,44,BA(ZTLMSG3)                                *GOO
      731   01 00282    200C09D0 A   ZTLMSG4F ZFMW     2,0,12,BA(ZTLMSG4)                                *GOO
      732   01 00283    200E09DC A   ZTLMSG5F ZFMW     2,0,14,BA(ZTLMSG4)+12                             *GOO
      733   01 00284    200D09EA A   ZTLMSG6F ZFMW     2,0,13,BA(ZTLMSG4)+26                             *GOO
      734   01 00285    40       A   ZTLOC    DATA,1   64,65,70,76,77,80,81,86,87,92   INTERRUPT LOCATION*GOO
            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
      735                            *                                                                   *GOO
      736                            *
      737                            * INITIALIZATION FOR MAIN-LINE TRANSLATOR
      738                            *
      739   01 00288    6AF00525     ZPC010   BAL,R15  ZSCIR
      740   01 00289    32F002A2              LW,R15   ZRECOV
      741   01 0028A    35F00026 A            STW,R15  X'26'
      742   01 0028B    3500003F A            STW,R0   ZINTFLG           CLEAR INTERRUPT FLAG            *GOO
      743   01 0028C    6D000023 A            WD,0     X'23'             RESET INTERRUPT INHIBITS        *GOO
      744   01 0028D    22F00C10 A            LI,R15   X'C10'            ARM & ENABLE GROUP 0 INTERRUPTS *GOO
      745   01 0028E    6DF01200 A            WD,R15   X'1200'
      746   01 0028F    32F0068E              LW,R15   ZMFRIOAD
      747   01 00290    25F00402 A            SAS,R15  2
      748   01 00291    55F2045E              STH,R15  ZMFRX7,X1
      749   01 00292    55F2045F              STH,R15  ZMFRNBA,X1
      750   01 00293    52F2052D              LH,R15   ZDKB+1,X1
      751   01 00294    55F20473              STH,R15  ZMFRDA,X1
      752   01 00295    32C002A1     ZPC020   LW,R12   ZPC050
      753   01 00296    6AF005C5              BAL,R15  ZTMNCR
      754   01 00297    22900000 A            LI,R9    0
      755   01 00298    6AF002E3              BAL,R15  ZDSTRN
      756   01 00299    6800029A              B        %+1
      757   01 0029A    22F0029F              LI,R15   ZPC030
      758   01 0029B    55F202CA              STH,R15  ZTRN60,X1
      759   01 0029C    22F00810 A            LI,R15    X'810'
      760   01 0029D    6DF01200 A            WD,R15   X'1200'
      761   01 0029E    680002B3              B        ZPC210
      762   01 0029F    6AF002F0     ZPC030   BAL,R15  ZDSSET
      763   01 002A0    68000295              B        ZPC020
      764   01 002A1    10010B50 A   ZPC050   ZFMW     1,0,1,BA(ZDS)
      765   01 002A2    68000288     ZRECOV   B        ZPC010
      766                                     PAGE
      767                            *
      768                            * CLEAR EXISTENT EXECUTE TABLE AND CONSTRUCT NEW TABLE
      769                            *
      770   01 002A3    6AF00525     ZPC200   BAL,R15  ZSCIR
      771   01 002A4    3500002D A            STW,R0   ZUDFPM
      772   01 002A5    3500003D A            STW,R0   ZDSFLG
      773   01 002A6    55020666              STH,R0   ZGOPTR,X1
      774   01 002A7    22B002B5              LI,R11   ZTRN10
      775   01 002A8    55B202CA              STH,R11  ZTRN60,X1
      776   01 002A9    32B0068C              LW,R11   ZPMADR
      777   01 002AA    35B0068D              STW,R11  ZPMPTR
      778   01 002AB    32B0068A              LW,R11   ZLKADR
      779   01 002AC    35B0068B              STW,R11  ZLKPTR
      780   01 002AD    32B02146              LW,R11   ZEXADR
      781   01 002AE    6AF0049A              BAL,R15  ZSTPTR
      782   01 002AF    32B00688              LW,R11   ZLBADR
      783   01 002B0    35B00689              STW,R11  ZLBPTR
      784   01 002B1    32C002CC              LW,R12   ZTRN100
      785   01 002B2    6AF005C5              BAL,R15  ZTMNCR
      786   01 002B3    72A002D0     ZPC210   LB,R10   ZNL
      787   01 002B4    35A00039 A            STW,R10  ZCHAR
      788                                     PAGE
      789                            *
      790                            * MAIN-LINE TRANSLATOR
      791                            *
      792   01 002B5    22800000 A   ZTRN10   LI,R8    0
      793   01 002B6    6AF00438              BAL,R15  ZFNDTB
      794   01 002B7    227FFFEA A            LI,X7    -ZOPLEN
      795   01 002B8    32BE02E3              LW,R11   ZOPTBL,X7
      796   01 002B9    71A0000B A            CB,R10   R11
      797   01 002BA    683002C9              BCR,3    ZTRN50
      798   01 002BB    657002B8              BIR,X7   %-3
      799   01 002BC    21A000C1 A            CI,R10   X'C1'
      800   01 002BD    691002C7              BCS,1    ZTRN40
      801   01 002BE    21A000E9 A            CI,R10   X'E9'
      802   01 002BF    692002C7              BCS,2    ZTRN40
      803   01 002C0    3280000A A            LW,R8    R10
      804   01 002C1    6AF0044E              BAL,R15  ZFAN+1
      805   01 002C2    227FFFEA A            LI,X7    -ZOPLEN
      806   01 002C3    32BE02E3              LW,R11   ZOPTBL,X7
      807   01 002C4    71A0000B A            CB,R10   R11
      808   01 002C5    683002C9              BCR,3    ZTRN50
      809   01 002C6    657002C3              BIR,X7   %-3
      810   01 002C7    22C00001 A   ZTRN40   LI,R12   X'01'
      811   01 002C8    68000481              B        ZSNER
      812   01 002C9    EAF0000B A   ZTRN50   BAL,R15  *R11
      813   01 002CA    6AF002B5     ZTRN60   BAL,R15  ZTRN10
      814   01 002CB    680002B5              B        ZTRN10
      815   01 002CC    00010B40 A   ZTRN100  ZFMW     0,0,1,BA(ZNL)
      816                                     PAGE
      817                            *
      818                            * SYNTAX TEST LANGUAGE TABLE CONTAINING ALL SPECIAL CHARACTERS
      819                            *  ONE WORD PER SYNTAX OR SPECIAL CHARACTER
      820                            *   BITS 0-7      SYNTAX OR SPECIAL CHARACTER
      821                            *   BITS 8-14     RESERVED
      822                            *   BITS 15-31    SYNTAX PROCESSOR SUBROUTINE ADDRESS
      823                            *
      824         01 002CD           ZOPBEG   EQU      %
      825   01 002CD    5D000335     ZRP      ZFOT     X'5D',0,ZRPTRN    ) CLOSE LOOP
      826   01 002CE    610003FA     ZFS      ZFOT     X'61',0,ZFSTRN    / RELEASE TO EXECUTE
      827   01 002CF    4000038D     ZSP      ZFOT     X'40',0,ZPLTRN    FIELD SEPARATORS
      828   01 002D0    1500038D     ZNL      ZFOT     X'15',0,ZPLTRN    NL
      829   01 002D1    4E00038D     ZPL      ZFOT     X'4E',0,ZPLTRN    +
      830   01 002D2    5000038D              ZFOT     X'50',0,ZPLTRN    +
      831   01 002D3    6000030A     ZMS      ZFOT     X'60',0,ZMSTRN    - FIELD DELETOR
      832         01 002D4           ZOPTB2   EQU      %
      833         00000007           ZOPLN2   EQU      %-ZOPBEG
      834   01 002D4    5B0002E3     ZDS      ZFOT     X'5B',0,ZDSTRN    % IMMEDIATE EXECUTION
      835   01 002D5    4D000326     ZLP      ZFOT     X'4D',0,ZLPTRN    ( OPEN LOOP
      836   01 002D6    7C000349     ZAS      ZFOT     X'7C',0,ZASTRN    ' TRANSFER OR LINK
      837   01 002D7    6B00038D     ZCO      ZFOT     X'6B',0,ZPLTRN    , PARAMETER SEPARATOR
      838   01 002D8    4B000344     ZPD      ZFOT     X'4B',0,ZPDTRN    . PLACE MARKER
      839   01 002D9    5C000301     ZCL      ZFOT     X'5C',0,ZCLTRN    * COMMENTS LINE
      840   01 002DA    7E000312     ZEQ      ZFOT     X'7E',0,ZEQTRN    = MNEMONIC REDEFINITION
      841   01 002DB    7A0002C7              ZFOT     X'7A',0,ZTRN40    0 CURRENTLY
      842   01 002DC    7B0002C7              ZFOT     X'7B',0,ZTRN40    =  UNDEFINED
      843   01 002DD    4C0002C7              ZFOT     X'4C',0,ZTRN40    <   SPECIAL
      844   01 002DE    6C0002C7              ZFOT     X'6C',0,ZTRN40    (   CHARACTERS
      845   01 002DF    5E0002C7              ZFOT     X'5E',0,ZTRN40    ;
      846   01 002E0    6E0002C7              ZFOT     X'6E',0,ZTRN40    >
      847   01 002E1    4F0002C7              ZFOT     X'4F',0,ZTRN40    1
      848   01 002E2    7D0002C7              ZFOT     X'7D',0,ZTRN40    '
      849         01 002E3           ZOPTBL   EQU      %
      850         00000016           ZOPLEN   EQU      %-ZOPBEG
      851                                     PAGE
      852                            *
      853                            * DOLLAR SIGN TRANSLATOR PROCESSOR TO INITIALIZE TRANSLATOR
      854                            *
      855   01 002E3    35F00032 A   ZDSTRN   STW,R15  ZDSLNK
      856   01 002E4    6AF004CB              BAL,R15  ZTST3
      857   01 002E5    35900695              STW,R9   P0
      858   01 002E6    3300003D A            MTW,0    ZDSFLG
      859   01 002E7    693002EC              BCS,3    ZDSTRN10
      860   01 002E8    32F00691              LW,R15   ZEXPT0
      861   01 002E9    35F00033 A            STW,R15  ZDSPTR
      862   01 002EA    22B002F0               LI,R11   ZDSSET
      863   01 002EB    55B202CA              STH,R11  ZTRN60,X1
      864   01 002EC    22B00695     ZDSTRN10 LI,R11   P0
      865   01 002ED    6AF0049A              BAL,R15  ZSTPTR
      866   01 002EE    35B0003D A            STW,R11  ZDSFLG
      867   01 002EF    E8020032 A            B        *ZDSLNK,X1
      868                            *
      869                            * IMMEDIATE EXECUTION OF DIRECTIVE
      870                            *
      871   01 002F0    35F00032 A   ZDSSET   STW,R15  ZDSLNK
      872   01 002F1    6AF00525              BAL,R15  ZSCIR
      873   01 002F2    33000695              MTW,0    P0
      874   01 002F3    683002FB              BCR,3    ZDSSET10
      875   01 002F4    22B00695              LI,R11   P0
      876   01 002F5    6AF0049A              BAL,R15  ZSTPTR
      877   01 002F6    6AF0062D              BAL,R15  ZMPTWA
      878   01 002F7    B2B00691              LW,R11   *ZEXPT0
      879   01 002F8    EAF0000B A            BAL,R15  *R11
      880   01 002F9    680002FA              B        %+1
      881   01 002FA    6AF00525              BAL,R15  ZSCIR
      882   01 002FB    3500003D A   ZDSSET10 STW,R0   ZDSFLG
      883   01 002FC    22B002B5              LI,R11   ZTRN10
      884   01 002FD    55B202CA              STH,R11  ZTRN60,X1
      885   01 002FE    32B00033 A            LW,R11   ZDSPTR
      886   01 002FF    6AF0049A              BAL,R15  ZSTPTR
      887   01 00300    E8000032 A            B        *ZDSLNK
      888                                     PAGE
      889                            *
      890                            * ASTERISK TRANSLATOR PROCESSOR, VERIFIES LEGAL COMMENTS LINE
      891                            *  OR AN ERRONEOUS ENTRY, IF LEGAL WAIT FOR NL TO TERMINATE
      892                            *   COMMENTS LINE AND RETURN TO MAIN-LINE TRANSLATOR, IF ILLEGAL
      893                            *    DELETE CURRENT FIELD AND OUTPUT ERROR MESSAGE AND RETURN TO
      894                            *     MAIN-LINE TRANSLATOR FOR RE-ENTRY OF SAME FIELD
      895                            *      NO EXECUTE TABLE ENTRY
      896                            *
      897   01 00301    35F00022 A   ZCLTRN   STW,R15  ZCLLNK
      898   01 00302    22C00010 A            LI,R12   X'10'
      899   01 00303    32F0003A A            LW,R15   ZLSTCH
      900   01 00304    71F002D0              CB,R15   ZNL
      901   01 00305    69300481              BCS,3    ZSNER
      902   01 00306    6AF0045B              BAL,R15  ZFOC
      903   01 00307    71A002D0              CB,R10   ZNL
      904   01 00308    69300306              BCS,3    %-2
      905   01 00309    E8000022 A            B        *ZCLLNK
      906                            *
      907                            * MINUS SIGN TRANSLATOR PROCESSOR
      908                            *  DELETES CURRENT FIELD FOR RE-ENTRY
      909                            *   NO EXECUTE TABLE ENTRY
      910                            *
      911   01 0030A    35F00024 A   ZMSTRN   STW,R15  ZMSLNK
      912   01 0030B    32B00691              LW,R11   ZEXPT0
      913   01 0030C    6AF0049A              BAL,R15  ZSTPTR
      914   01 0030D    22C00000 A            LI,R12   0
      915   01 0030E    B5C00691              STW,R12  *ZEXPT0
      916   01 0030F    32C002CC              LW,R12   ZTRN100
      917   01 00310    6AF005C5              BAL,R15  ZTMNCR
      918   01 00311    E8000024 A            B        *ZMSLNK
      919                                     PAGE
      920                            *
      921                            * EQUAL TRANSLATOR PROCESSOR, NO EXECUTE TABLE ENTRY
      922                            *  RE-ASSIGN MNEMONIC SUB-ROUTINE, ALPHA CHARACTERS ONLY
      923                            *   VERIFIES MNEMONIC EXISTS AND RE-ASSIGN MNEMONIC NON-EXISTENT
      924                            *    REPLACES (DELETES) CURRENT MNEMONIC NAME
      925                            *     INSERTS NEW MNEMONIC INTO SUBROUTINE DICTIONARY
      926                            *
      927   01 00312    35F00023 A   ZEQTRN   STW,R15  ZEQLNK
      928   01 00313    6AF004CB              BAL,R15  ZTST3
      929   01 00314    32900008 A            LW,R9    R8
      930   01 00315    6AF00447              BAL,R15  ZFA
      931   01 00316    33000008 A            MTW,0    R8
      932   01 00317    6830031F              BCR,3    ZEQTRN10
      933   01 00318    227FFFC4 A            LI,X7    -ZSRLEN
      934   01 00319    35700006 A            STW,X7   X6
      935   01 0031A    318E072B              CW,R8    ZSRTBL,X7
      936   01 0031B    6830031F              BCR,3    ZEQTRN10
      937   01 0031C    319E072B              CW,R9    ZSRTBL,X7
      938   01 0031D    68300323              BCR,3    ZEQTRN20
      939   01 0031E    65700319              BIR,X7   %-5
      940   01 0031F    22C00053 A   ZEQTRN10 LI,R12   X'53'
      941   01 00320    68000481              B        ZSNER
      942   01 00321    319E072B              CW,R9    ZSRTBL,X7
      943   01 00322    6830031F              BCR,3    ZEQTRN10
      944   01 00323    65700321     ZEQTRN20 BIR,X7   %-2
      945   01 00324    358C072B              STW,R8   ZSRTBL,X6
      946   01 00325    E8000023 A            B        *ZEQLNK
      947                                     PAGE
      948                            *
      949                            * LEFT PARAN TRANSLATOR PROCESSOR FOR OPEN LOOP
      950                            *  EXECUTE TABLE ENTRY EQUALS TWO WORDS FOR REITERATION COUNT
      951                            *   GREATER THAN ONE, NON-EXISTENT FOR 0 AND 1
      952                            *
      953   01 00326    35F00025 A   ZLPTRN   STW,R15  ZLPLNK
      954   01 00327    6AF004D2              BAL,R15  ZTST7
      955   01 00328    32F0065A              LW,R15   ZLPPRO
      956   01 00329    B5F00691              STW,R15  *ZEXPT0
      957   01 0032A    6AF004AF              BAL,R15  ZTST1
      958   01 0032B    22F00000 A            LI,R15   0
      959   01 0032C    33000009 A            MTW,0    R9
      960   01 0032D    6820032F              BCR,2    %+2
      961   01 0032E    32F00691              LW,R15   ZEXPT0
      962   01 0032F    B5F00689              STW,R15  *ZLBPTR
      963   01 00330    33100689              MTW,1    ZLBPTR
      964   01 00331    33000009 A            MTW,0    R9
      965   01 00332    E8200025 A            BCR,2    *ZLPLNK
      966   01 00333    6AF00496              BAL,R15  ZADPTR
      967   01 00334    E8000025 A            B        *ZLPLNK
      968                            *
      969                            * RIGHT PARAN TRANSLATOR PROCESSOR FOR CLOSE LOOP
      970                            *  EXECUTE TABLE ENTRY EQUALS TWO WORDS
      971                            *   SECOND WORD CONTAINS ADDRESS OF BASE WORD FOR START OF LOOP
      972                            *
      973   01 00335    35F00025 A   ZRPTRN   STW,R15  ZRPLNK
      974   01 00336    6AF0038D              BAL,R15  ZPLTRN
      975   01 00337    6AF004D2              BAL,R15  ZTST7
      976   01 00338    22C00040 A            LI,R12   X'40'
      977   01 00339    32F00689              LW,R15   ZLBPTR
      978   01 0033A    31F00688              CW,R15   ZLBADR
      979   01 0033B    68300481              BCR,3    ZSNER
      980   01 0033C    32F0065B              LW,R15   ZRPPRO-1
      981   01 0033D    B5F00691              STW,R15  *ZEXPT0
      982   01 0033E    33F00689              MTW,-1   ZLBPTR
      983   01 0033F    B2F00689              LW,R15   *ZLBPTR
      984   01 00340    E8200025 A            BCR,2    *ZRPLNK
      985   01 00341    B5F00692              STW,R15  *ZEXPT1
      986   01 00342    6AF00496              BAL,R15  ZADPTR
      987   01 00343    E8000025 A            B        *ZRPLNK
      988                                     PAGE
      989                            *
      990                            * PERIOD , PLACE MARKER, TRANSLATOR PROCESSOR
      991                            *  LEGAL IF NON-ZERO PLACE MARKER, MARK PLACE IN CONTROL LINE
      992                            *   ILLEGAL IF ZERO PLACE MARKER AND/OR PREVIOUSLY DEFINED
      993                            *     NO EXECUTE TABLE ENTRY, ENTRY TO PLACE MARKER TABLE
      994                            *
      995   01 00344    35F00027 A   ZPDTRN   STW,R15  ZPDLNK
      996   01 00345    6AF004D2              BAL,R15  ZTST7
      997   01 00346    6AF004C5              BAL,R15  ZTST2
      998   01 00347    6AF00356              BAL,R15  ZPMEN
      999   01 00348    E8000027 A            B        *ZPDLNK
     1000                            *
     1001                            * DELTA TRANSLATOR PROCESSOR
     1002                            *  ABSOLUTE TRANSFER REFERENCE TO NON-ZERO PLACE MARKER
     1003                            *   LINK RETURN TRANSFER REFERENCE TO ZERO PLACE MARKER
     1004                            *     ABSOLUTE TRANSFER EQUALS TWO WORD ENTRY TO EXECUTE TABLE
     1005                            *      LINK TRANSFER EQUALS ONE WORD ENTRY TO EXECUTE TABLE
     1006                            *
     1007   01 00349    35F00028 A   ZASTRN   STW,R15  ZASLNK
     1008   01 0034A    6AF004D2              BAL,R15  ZTST7
     1009   01 0034B    22F0066F              LI,R15   ZLKAS
     1010   01 0034C    B5F00691              STW,R15  *ZEXPT0
     1011   01 0034D    33000009 A            MTW,0    R9
     1012   01 0034E    68300353              BCR,3    ZASTRN10
     1013   01 0034F    32F0066D              LW,R15   ZASPRO-1
     1014   01 00350    B5F00691              STW,R15  *ZEXPT0
     1015   01 00351    6AF004C5              BAL,R15  ZTST2
     1016   01 00352    6AF00355              BAL,R15  ZPMRQ
     1017   01 00353    6AF00496     ZASTRN10 BAL,R15  ZADPTR
     1018   01 00354    E8000028 A            B        *ZASLNK
     1019                                     PAGE
     1020                            *
     1021                            * PLACE MARKER PROCESSOR FOR PLACE MARKER TABLE
     1022                            *  PROCESSES PLACE MARKER ENTRIES AND REQUESTS
     1023                            *   ASSUMES R9 CONTAINS BINARY VALUE FOR PLACE MARKER
     1024                            *
     1025   01 00355    20900800 A   ZPMRQ    AI,R9    X'800'
     1026   01 00356    35F00029 A   ZPMEN    STW,R15  ZPMLNK
     1027   01 00357    3270068C              LW,X7    ZPMADR
     1028   01 00358    3870068D              SW,X7    ZPMPTR
     1029   01 00359    6830037C              BCR,3    ZPMEN40
     1030   01 0035A    B2BE068D     ZPMEN10  LW,R11   *ZPMPTR,X7
     1031   01 0035B    25B0046F A            SAS,R11  -17
     1032   01 0035C    21900800 A            CI,R9    X'800'
     1033   01 0035D    69400364              BCS,4    ZPMEN20
     1034   01 0035E    21B00800 A            CI,R11   X'800'
     1035   01 0035F    6940036E              BCS,4    ZPMEN30
     1036   01 00360    3190000B A            CW,R9    R11
     1037   01 00361    6930037B              BCS,3    ZPMEN40-1
     1038   01 00362    22C00031 A            LI,R12   X'31'
     1039   01 00363    68000481              B        ZSNER
     1040   01 00364    21B00800 A   ZPMEN20  CI,R11   X'800'
     1041   01 00365    6940037B              BCS,4    ZPMEN40-1
     1042   01 00366    20B00800 A            AI,R11   X'800'
     1043   01 00367    3190000B A            CW,R9    R11
     1044   01 00368    6930037B              BCS,3    ZPMEN40-1
     1045   01 00369    22B1FFFF A            LI,R11   X'1FFFF'
     1046   01 0036A    CBBE068D              AND,R11  *ZPMPTR,X7
     1047   01 0036B    B5B00692              STW,R11  *ZEXPT1
     1048   01 0036C    6AF0049C              BAL,R15  ZTST4
     1049   01 0036D    E8000029 A            B        *ZPMLNK
     1050   01 0036E    22F003FF A   ZPMEN30  LI,R15   X'3FF'
     1051   01 0036F    4BB0000F A            AND,R11  R15
     1052   01 00370    3190000B A            CW,R9    R11
     1053   01 00371    6930037B              BCS,3    ZPMEN40-1
     1054   01 00372    33F0002D A            MTW,-1   ZUDFPM
     1055   01 00373    B2FE068D              LW,R15   *ZPMPTR,X7
     1056   01 00374    32B00691              LW,R11   ZEXPT0
     1057   01 00375    B5B0000F A            STW,R11  *R15
     1058   01 00376    33F0068D              MTW,-1   ZPMPTR
     1059   01 00377    B2B0068D              LW,R11   *ZPMPTR
     1060   01 00378    33100007 A            MTW,1    X7
     1061   01 00379    B5BE068D              STW,R11  *ZPMPTR,X7
     1062   01 0037A    68000357              B        ZPMEN+1
     1063   01 0037B    6570035A              BIR,X7   ZPMEN10
     1064   01 0037C    21900800 A   ZPMEN40  CI,R9    X'800'
     1065   01 0037D    69400381              BCS,4    %+4
     1066   01 0037E    25900411 A            SAS,R9   17
     1067   01 0037F    49900691              OR,R9    ZEXPT0
     1068   01 00380    68000385              B        %+5
     1069   01 00381    3310002D A            MTW,1    ZUDFPM
     1070   01 00382    25900411 A            SAS,R9   17
     1071   01 00383    49900692              OR,R9    ZEXPT1
     1072   01 00384    6AF0049C              BAL,R15  ZTST4
     1073   01 00385    B590068D              STW,R9   *ZPMPTR
     1074   01 00386    22C00030 A            LI,R12   X'30'
     1075   01 00387    32B0068D              LW,R11   ZPMPTR
     1076   01 00388    3310000B A            MTW,1    R11
     1077   01 00389    31B0068E              CW,R11   ZMFRIOAD
     1078   01 0038A    69200481              BCS,2    ZSNER
     1079   01 0038B    35B0068D              STW,R11  ZPMPTR
     1080   01 0038C    E8000029 A            B        *ZPMLNK
     1081                                     PAGE
     1082                            *
     1083                            * FIELD SEPARATORS,SPACE,PLUS,NEW LINE,ETC.
     1084                            *  PROCESSES LEADING DECIMAL RE-ITERATION COUNT OR PLACE MARKER
     1085                            *   IDENTIFIER FIELD FOR CALLED SUB-ROUTINE
     1086                            *    PROCESSES TRAILING PARAMETERS FOR SUB-ROUTINES
     1087                            *
     1088   01 0038D    33000008 A   ZPLTRN   MTW,0    R8
     1089   01 0038E    683004CB              BCR,3    ZTST3
     1090   01 0038F    35F0002C A            STW,R15  ZPLLNK
     1091   01 00390    227FFFC4 A            LI,X7    -ZSRLEN
     1092   01 00391    318E072B              CW,R8    ZSRTBL,X7
     1093   01 00392    68300396              BCR,3    ZPLTRN20
     1094   01 00393    65700391              BIR,X7   %-2
     1095   01 00394    22C00050 A            LI,R12   X'50'
     1096   01 00395    68000481              B        ZSNER
     1097   01 00396    32BE0767     ZPLTRN20 LW,R11   ZSRADR,X7
     1098   01 00397    B5B00691              STW,R11  *ZEXPT0
     1099   01 00398    F2C00691              LB,R12   *ZEXPT0
     1100   01 00399    4BC00003 A            AND,R12  R3
     1101   01 0039A    683002C9              BCR,3    ZTRN50
     1102   01 0039B    3300003D A            MTW,0    ZDSFLG
     1103   01 0039C    693003B1              BCS,3    ZPLTRN30
     1104   01 0039D    22C00051 A            LI,R12   X'51'
     1105   01 0039E    7110000B A            CB,R1    R11
     1106   01 0039F    68400481              BCR,4    ZSNER
     1107   01 003A0    25B00206 A            SCS,R11  6
     1108   01 003A1    25B00402 A            SAS,R11  2
     1109   01 003A2    F5B00691              STB,R11  *ZEXPT0
     1110   01 003A3    6AF004AF              BAL,R15  ZTST1
     1111   01 003A4    6AF003BD              BAL,R15  ZCOTRN
     1112   01 003A5    22F002CA              LI,R15   ZTRN60
     1113   01 003A6    71A002D3              CB,R10   ZMS
     1114   01 003A7    E83002D3              BCR,3    *ZMS
     1115   01 003A8    6AF00496              BAL,R15  ZADPTR
     1116   01 003A9    22800000 A            LI,R8    0
     1117   01 003AA    22900000 A            LI,R9    0
     1118   01 003AB    22F002CA              LI,R15   ZTRN60
     1119   01 003AC    71A002CE              CB,R10   ZFS
     1120   01 003AD    E83002CE              BCR,3    *ZFS
     1121   01 003AE    71A002CD              CB,R10   ZRP
     1122   01 003AF    E83002CD              BCR,3    *ZRP
     1123   01 003B0    E800002C A            B        *ZPLLNK
     1124   01 003B1    22C00052 A   ZPLTRN30 LI,R12   X'52'
     1125   01 003B2    7120000B A            CB,R2    R11
     1126   01 003B3    68400481              BCR,4    ZSNER
     1127   01 003B4    25B00204 A            SCS,R11  4
     1128   01 003B5    25B00404 A            SAS,R11  4
     1129   01 003B6    F5B00691              STB,R11  *ZEXPT0
     1130   01 003B7    6AF004CB              BAL,R15  ZTST3
     1131   01 003B8    6AF003BD              BAL,R15  ZCOTRN
     1132   01 003B9    22F002CA              LI,R15   ZTRN60
     1133   01 003BA    71A002D3              CB,R10   ZMS
     1134   01 003BB    E83002D3              BCR,3    *ZMS
     1135   01 003BC    680002CA              B        ZTRN60
     1136                                     PAGE
     1137                            *
     1138                            * COMMA TRANSLATOR PROCESSOR
     1139                            *  CALLED ONLY BY FIELD SEPARATOR TRANSLATOR PROCESSOR
     1140                            *   PROCESSES ALL SUB-ROUTINE TRAILING PARAMETERS
     1141                            *
     1142   01 003BD    35F0002A A   ZCOTRN   STW,R15  ZCOLNK
     1143   01 003BE    32B00692              LW,R11   ZEXPT1
     1144   01 003BF    35B00030 A            STW,R11  ZPCHK
     1145   01 003C0    35B00031 A            STW,R11  ZPCHK1
     1146   01 003C1    F2B00691              LB,R11   *ZEXPT0
     1147   01 003C2    25B0047C A            SAS,R11  -4
     1148   01 003C3    35B0002F A            STW,R11  ZPCNT
     1149   01 003C4    75B60457              STB,R11  ZPC7M,X3
     1150   01 003C5    D2B20691              LH,R11   *ZEXPT0,X1
     1151   01 003C6    38B0002F A            SW,R11   ZPCNT
     1152   01 003C7    35B0002E A            STW,R11  ZPTY
     1153   01 003C8    22800000 A   ZCOTRN10 LI,R8    0
     1154   01 003C9    22900000 A            LI,R9    0
     1155   01 003CA    B5800692              STW,R8   *ZEXPT1
     1156   01 003CB    F270002E A            LB,R7    *ZPTY
     1157   01 003CC    33F0002F A            MTW,-1   ZPCNT
     1158   01 003CD    691003DF              BCS,1    ZCOTRN50
     1159   01 003CE    71A002D7              CB,R10   ZCO
     1160   01 003CF    683003D6              BCR,3    ZCOTRN30
     1161   01 003D0    71A60457              CB,R10   ZPC7M,X3
     1162   01 003D1    683003D6              BCR,3    ZCOTRN30
     1163   01 003D2    21700008 A            CI,R7    8
     1164   01 003D3    684003D9              BCR,4    ZCOTRN40
     1165   01 003D4    22C00055 A            LI,R12   X'55'
     1166   01 003D5    68000481              B        ZSNER
     1167   01 003D6    2570047C A   ZCOTRN30 SAS,R7   -4
     1168   01 003D7    670E03F2              EXU      ZPRTYP,X7
     1169   01 003D8    B5900692              STW,R9   *ZEXPT1
     1170   01 003D9    3310002E A   ZCOTRN40 MTW,1    ZPTY
     1171   01 003DA    6AF0049C              BAL,R15  ZTST4
     1172   01 003DB    33000009 A            MTW,0    R9
     1173   01 003DC    683003C8              BCR,3    ZCOTRN10
     1174   01 003DD    35B00031 A            STW,R11  ZPCHK1
     1175   01 003DE    680003C8              B        ZCOTRN10
     1176   01 003DF    71A60457     ZCOTRN50 CB,R10   ZPC7M,X3
     1177   01 003E0    693003E2              BCS,3    %+2
     1178   01 003E1    22A00040 A            LI,R10   X'40'
     1179   01 003E2    227FFFF9 A            LI,X7    -ZOPLN2
     1180   01 003E3    32BE02D4              LW,R11   ZOPTB2,X7
     1181   01 003E4    71A0000B A            CB,R10   R11
     1182   01 003E5    683003E9              BCR,3    ZCOTRN60
     1183   01 003E6    657003E3              BIR,X7   %-3
     1184   01 003E7    22C00054 A            LI,R12   X'54'
     1185   01 003E8    68000481              B        ZSNER
     1186   01 003E9    32B00031 A   ZCOTRN60 LW,R11   ZPCHK1
     1187   01 003EA    38B00030 A            SW,R11   ZPCHK
     1188   01 003EB    25B00404 A            SAS,R11  4
     1189   01 003EC    22F0000F A            LI,R15   X'F'
     1190   01 003ED    F2700691              LB,R7    *ZEXPT0
     1191   01 003EE    4B70000F A            AND,R7   R15
     1192   01 003EF    49B00007 A            OR,R11   R7
     1193   01 003F0    F5B00691              STB,R11  *ZEXPT0
     1194   01 003F1    E800002A A            B        *ZCOLNK
     1195                                     PAGE
     1196                            *
     1197                            * VARIABLE ENTRY TABLE TO PARAMETER PROCESSORS
     1198                            *
     1199   01 003F2    6AF00432     ZPRTYP   BAL,R15  ZFNUP
     1200   01 003F3    6AF00435              BAL,R15  ZFN
     1201   01 003F4    6AF00438              BAL,R15  ZFNDTB
     1202   01 003F5    6AF0043E              BAL,R15  ZFOCT
     1203   01 003F6    6AF00441              BAL,R15  ZFH
     1204   01 003F7    6AF00444              BAL,R15  ZPC5
     1205   01 003F8    6AF0044A              BAL,R15  ZPC6
     1206   01 003F9    6AF00450              BAL,R15  ZPC7
     1207                            *
     1208                            * PARAMETER INFORMATION
     1209                            *  PARAMETER DECODE WORD FORMAT
     1210                            *   BIT 0-3    CODE TYPE
     1211                            *       4      ON-PARAMETER REQUIRED
     1212                            *              OFF-PARAMETER NOT REQUIRED
     1213                            *
     1214                            *  CODE TYPE
     1215                            *      0       NUMERIC 0-9 ONLY; STORE WITH ZONE BITS
     1216                            *      1       NUMERIC 0-9 ONLY; STORE WITHOUT ZONE BITS
     1217                            *      2       NUMERIC 0-9 ONLY; CONVERT TO BINARY
     1218                            *      3       NUMERIC 0-7 ONLY, OCTAL
     1219                            *      4       HEXADECIMAL 0-9 A-F; STORE AS BINARY VALUE
     1220                            *      5       ALPHABETIC ONLY A-Z
     1221                            *      6       ALPHA-NUMERIC ONLY A-Z 0-9
     1222                            *      7       ANY CHARACTER; FIRST CHARACTER REPRESENTS
     1223                            *               TERMINATOR, BOTH NOT PUTAWAY
     1224                            *
     1225                                     PAGE
     1226                            *
     1227                            * FORWARD SLASH TRANSLATOR PROCESSOR, TERMINATE CONTROL
     1228                            *  EXECUTE TABLE ENTRY EQUALS TWO WORDS
     1229                            *   VERFIES ALL LOOPS AND PLACE MARKER REQUESTS PROCESSED
     1230                            *    VERFIES LAST DIRECTIVE PROCESSED
     1231                            *     SAVES THIS ENTRY LOCATION FOR POSSIBLE EXTEND OR PATCH
     1232                            *
     1233   01 003FA    35F0002B A   ZFSTRN   STW,R15  ZFSLNK
     1234   01 003FB    6AF0038D              BAL,R15  ZPLTRN
     1235   01 003FC    3300003D A            MTW,0    ZDSFLG
     1236   01 003FD    E930002B A            BCS,3    *ZFSLNK
     1237   01 003FE    32B00669              LW,R11   ZFSPRO-1
     1238   01 003FF    B5B00691              STW,R11  *ZEXPT0
     1239   01 00400    22C00101 A            LI,R12   X'101'
     1240   01 00401    32B02146              LW,R11   ZEXADR
     1241   01 00402    31B00691              CW,R11   ZEXPT0
     1242   01 00403    68300481              BCR,3    ZSNER
     1243   01 00404    B5B00692              STW,R11  *ZEXPT1
     1244   01 00405    22C00041 A            LI,R12   X'41'
     1245   01 00406    32B00689              LW,R11   ZLBPTR
     1246   01 00407    31B00688              CW,R11   ZLBADR
     1247   01 00408    69200481              BCS,2    ZSNER
     1248   01 00409    33000009 A            MTW,0    R9
     1249   01 0040A    6830040D              BCR,3    %+3
     1250   01 0040B    6AF004C5              BAL,R15  ZTST2
     1251   01 0040C    6AF00355              BAL,R15  ZPMRQ
     1252   01 0040D    22C00032 A            LI,R12   X'32'
     1253   01 0040E    3300002D A            MTW,0    ZUDFPM
     1254   01 0040F    69200481              BCS,2    ZSNER
     1255   01 00410    32B00691              LW,R11   ZEXPT0
     1256   01 00411    6AF0049A              BAL,R15  ZSTPTR
     1257   01 00412    B2B0000B A            LW,R11   *R11
     1258   01 00413    55B20666              STH,R11  ZGOPTR,X1
     1259   01 00414    52C2045E              LH,R12   ZMFRX7,X1
     1260   01 00415    55C2045F              STH,R12  ZMFRNBA,X1
     1261   01 00416    32C002CC              LW,R12   ZTRN100
     1262   01 00417    6AF005C5              BAL,R15  ZTMNCR
     1263   01 00418    68000620              B        ZEX00
     1264                                     PAGE
     1265                            *
     1266                            * COMMON FETCH ROUTINE PARAMETERIZED BY ONE WORD FOLLOWING CALL
     1267                            *  LINK IN R14 AND LINK RETURN IN R15 TO FETCH WITHIN LIMITS
     1268                            *   REGISTER-MINIMUM-MAXIMUM-SHIFT
     1269                            *
     1270   01 00419    35E00035 A   ZCFR     STW,R14  ZCFRCA
     1271   01 0041A    35F00034 A            STW,R15  ZCFRLNK
     1272   01 0041B    6AF0045B              BAL,R15  ZFOC
     1273   01 0041C    F1A20035 A            CB,R10   *ZCFRCA,X1
     1274   01 0041D    E9100034 A            BCS,1    *ZCFRLNK
     1275   01 0041E    F1A40035 A            CB,R10   *ZCFRCA,X2
     1276   01 0041F    E9200034 A            BCS,2    *ZCFRLNK
     1277   01 00420    22F00443              LI,R15   ZFH+2
     1278   01 00421    31F00035 A            CW,R15   ZCFRCA
     1279   01 00422    69300428              BCS,3    %+6
     1280   01 00423    21A000E9 A            CI,R10   X'E9'
     1281   01 00424    69200428              BCS,2    %+4
     1282   01 00425    21A000C6 A            CI,R10   X'C6'
     1283   01 00426    E9200034 A            BCS,2    *ZCFRLNK
     1284   01 00427    20A00009 A            AI,R10   X'9'
     1285   01 00428    32F0000A A            LW,R15   R10
     1286   01 00429    BA700035 A            LCW,X7   *ZCFRCA
     1287   01 0042A    F2E00035 A            LB,R14   *ZCFRCA
     1288   01 0042B    B2E0000E A            LW,R14   *R14
     1289   01 0042C    25FE0200 A            SCS,R15  0,X7
     1290   01 0042D    B2700035 A            LW,X7    *ZCFRCA
     1291   01 0042E    25EE0500 A            SAD,R14  0,X7
     1292   01 0042F    F2F00035 A            LB,R15   *ZCFRCA
     1293   01 00430    B5E0000F A            STW,R14  *R15
     1294   01 00431    6800041B              B        ZCFR+2
     1295                                     PAGE
     1296                            *
     1297                            * FETCH NUMERIC 0-9 UNPACKED ZONE BITS PRESENT
     1298                            *
     1299   01 00432    22900000 A   ZFNUP    LI,R9    0
     1300   01 00433    6AE00419              BAL,R14  ZCFR
     1301   01 00434    09F0F908 A            DATA     X'09F0F908'
     1302                            *
     1303                            * FETCH NUMERIC 0-9 PACKED ZONE BITS NOT PRESENT
     1304                            *
     1305   01 00435    22900000 A   ZFN      LI,R9    0
     1306   01 00436    6AE00419              BAL,R14  ZCFR
     1307   01 00437    09F0F904 A            DATA     X'09F0F904'
     1308                            *
     1309                            * FETCH NUMERIC 0-9 CONVERTED TO BINARY
     1310                            *
     1311   01 00438    35F0052A     ZFNDTB   STW,R15  ZCSRL
     1312   01 00439    6AF00435              BAL,R15  ZFN
     1313   01 0043A    46C00009 A            XW,R12   R9
     1314   01 0043B    6AF004D6              BAL,R15  ZDTB
     1315   01 0043C    46C00009 A            XW,R12   R9
     1316   01 0043D    E800052A              B        *ZCSRL
     1317                            *
     1318                            * FETCH OCTAL 0-7 BINARY VALUE
     1319                            *
     1320   01 0043E    22900000 A   ZFOCT    LI,R9    0
     1321   01 0043F    6AE00419              BAL,R14  ZCFR
     1322   01 00440    09F0F703 A            DATA     X'09F0F703'
     1323                            *
     1324                            * FETCH HEXADECIMAL 0-F BINARY VALUE
     1325                            *
     1326   01 00441    22900000 A   ZFH      LI,R9    0
     1327   01 00442    6AE00419              BAL,R14  ZCFR
     1328   01 00443    09C1F904 A            DATA     X'09C1F904'
     1329                                     PAGE
     1330                            *
     1331                            * FETCH ALPHABETIC A-Z UNPACKED ZONE BITS PRESENT
     1332                            *
     1333   01 00444    22900000 A   ZPC5     LI,R9    0
     1334   01 00445    6AE00419              BAL,R14  ZCFR
     1335   01 00446    09C1E908 A            DATA     X'09C1E908'
     1336   01 00447    22800000 A   ZFA      LI,R8    0
     1337   01 00448    6AE00419              BAL,R14  ZCFR
     1338   01 00449    08C1E908 A            DATA     X'08C1E908'
     1339                            *
     1340                            * FETCH ALPHA -NUMERIC 0-9 A-Z UNPACKED ZONE BITS PRESENT
     1341                            *
     1342   01 0044A    22900000 A   ZPC6     LI,R9    0
     1343   01 0044B    6AE00419              BAL,R14  ZCFR
     1344   01 0044C    09C1F908 A            DATA     X'09C1F908'
     1345   01 0044D    22800000 A   ZFAN     LI,R8    0
     1346   01 0044E    6AE00419              BAL,R14  ZCFR
     1347   01 0044F    08C1F908 A            DATA     X'08C1F908'
     1348                            *
     1349                            * FETCH ANY CHARACTER *SPECIAL APPLICATIONS*
     1350                            *  FIRST CHARACTER REPRESENTS TERMINATOR WITH FIRST AND
     1351                            *   LAST CHARACTER NOT INCLUDED IN BYTE COUNT
     1352                            *
     1353   01 00450    35F00036 A   ZPC7     STW,R15  ZPC7LNK
     1354   01 00451    6AF0045B              BAL,R15  ZFOC
     1355   01 00452    75A60457              STB,R10  ZPC7M,X3
     1356   01 00453    52F2045E              LH,R15   ZMFRX7,X1
     1357   01 00454    B5F00692              STW,R15  *ZEXPT1
     1358   01 00455    6AF0045B              BAL,R15  ZFOC
     1359   01 00456    B2900692              LW,R9    *ZEXPT1
     1360   01 00457    21A00000 A   ZPC7M    CI,R10   0
     1361   01 00458    E8300036 A            BCR,3    *ZPC7LNK
     1362   01 00459    F3100692              MTB,1    *ZEXPT1
     1363   01 0045A    68000455              B        %-5
     1364                                     PAGE
     1365                            *
     1366                            * MAINLINE FETCH ROUTINE VIA TYPEWRITER OR CARD READER
     1367                            *  INPUT CONTROL LINE SYNTAX TO INPUT/OUTPUT AREA
     1368                            *
     1369   01 0045B    35F00037 A   ZFOC     STW,R15  ZMFRLNK
     1370   01 0045C    32A00039 A            LW,R10   ZCHAR
     1371   01 0045D    35A0003A A            STW,R10  ZLSTCH
     1372   01 0045E    22700000 A   ZMFRX7   LI,R7    0
     1373   01 0045F    21700000 A   ZMFRNBA  CI,R7    0
     1374   01 00460    69100479              BCS,1    ZMFRTCBA
     1375   01 00461    5572047E              STH,R7   ZMFRCW0,X1
     1376   01 00462    32A0068F              LW,R10   ZIOADR
     1377   01 00463    25A00402 A            SAS,R10  2
     1378   01 00464    58A2045F              SH,R10   ZMFRNBA,X1
     1379   01 00465    68300480              BCR,3    ZMFRIOF
     1380   01 00466    21A00050 A            CI,R10   80
     1381   01 00467    69100469              BCS,1    %+2
     1382   01 00468    22A00050 A            LI,R10   80
     1383   01 00469    52F2052D              LH,R15   ZDKB+1,X1
     1384   01 0046A    51F20473              CH,R15   ZMFRDA,X1
     1385   01 0046B    6930046D              BCS,3    %+2
     1386   01 0046C    22A00001 A            LI,R10   1
     1387   01 0046D    55A2047F              STH,R10  ZMFRCW1,X1
     1388   01 0046E    50A2045E              AH,R10   ZMFRX7,X1
     1389   01 0046F    55A2045F              STH,R10  ZMFRNBA,X1
     1390   01 00470    CDC00473              TIO,R12  *ZMFRDA
     1391   01 00471    69C00470              BCS,12   %-1
     1392   01 00472    2200023F              LI,R0    DA(ZMFRCW0)
     1393   01 00473    4CC00001 A   ZMFRDA   SIO,R12  1
     1394   01 00474    69C00473              BCS,12   %-1
     1395   01 00475    CDC00473              TIO,R12  *ZMFRDA
     1396   01 00476    72D0000D A            LB,R13   R13
     1397   01 00477    21D00060 A            CI,R13   X'60'
     1398   01 00478    69400475              BCS,4    %-3
     1399   01 00479    72AE0000 A   ZMFRTCBA LB,R10   0,X7
     1400   01 0047A    35A00039 A            STW,R10  ZCHAR
     1401   01 0047B    3310045E              MTW,1    ZMFRX7
     1402   01 0047C    E8000037 A            B        *ZMFRLNK
     1403                                     BOUND 8
     1404   01 0047E    0E0011F8     ZMFRCW0  ZFCP     X'E',BA(%)
     1405   01 0047F    02000001 A   ZMFRCW1  ZFCP     2,1
     1406                                     PAGE
     1407                            *
     1408                            * SYNTAX ERROR REPORTER
     1409                            *
     1410   01 00480    22C00120 A   ZMFRIOF  LI,R12   X'120'
     1411   01 00481    6AF004FF     ZSNER    BAL,R15  ZBTH
     1412   01 00482    25D00208 A            SCS,R13  8
     1413   01 00483    35D00495              STW,R13  ZSNMSG+2
     1414   01 00484    22F00015 A            LI,R15   X'15'
     1415   01 00485    75F60495              STB,R15  ZSNMSG+2,X3
     1416   01 00486    52C2045E              LH,R12   ZMFRX7,X1
     1417   01 00487    55C2045F              STH,R12  ZMFRNBA,X1
     1418   01 00488    32C00492              LW,R12   ZSNERMW
     1419   01 00489    6AF005C8              BAL,R15  ZSML40
     1420   01 0048A    72F00495              LB,R15   ZSNMSG+2
     1421   01 0048B    21F000F0 A            CI,R15   X'F0'
     1422   01 0048C    69200288              BCS,2    ZPC010
     1423   01 0048D    52F20530              LH,R15   ZDCR+1,X1
     1424   01 0048E    51F20473              CH,R15   ZMFRDA,X1
     1425   01 0048F    68300288              BCR,3    ZPC010
     1426   01 00490    22F002CA              LI,R15   ZTRN60
     1427   01 00491    E80002D3              B        *ZMS
     1428   01 00492    100C124C A   ZSNERMW  ZFMW     1,0,12,BA(ZSNMSG)
     1429   01 00493    E2E8D540 A   ZSNMSG   TEXT     'SYN ERR     '
            01 00494    C5D9D940 A
            01 00495    40404040 A
     1430                                     PAGE
     1431                            *
     1432                            * UPDATE EXECUTE TABLE POINTERS TO NEXT ENTRY
     1433                            *  BASED UPON PARAMETER COUNT AND/OR RE-ITERATION COUNT OR
     1434                            *   IDENTIFIER FIELD
     1435                            *
     1436   01 00496    F2B00691     ZADPTR   LB,R11   *ZEXPT0
     1437   01 00497    20B0001C A            AI,R11   X'1C'
     1438   01 00498    25B0047C A            SAS,R11  -4
     1439   01 00499    30B00691              AW,R11   ZEXPT0
     1440                            *
     1441                            * SET EXECUTE TABLE POINTERS FOR BASE WORD AND POSSIBLE
     1442                            *  RE-ITERATION COUNT OR PLACE MARKER ADDRESS FIELD
     1443                            *
     1444   01 0049A    35B00691     ZSTPTR   STW,R11  ZEXPT0
     1445   01 0049B    35B00692              STW,R11  ZEXPT1
     1446                            *
     1447                            * VERIFY EXECUTE TABLE NON-OVERFLOW
     1448                            *
     1449   01 0049C    33100692     ZTST4    MTW,1    ZEXPT1
     1450   01 0049D    32B00692              LW,R11   ZEXPT1
     1451   01 0049E    31B0068A              CW,R11   ZLKADR
     1452   01 0049F    E910000F A            BCS,1    *R15
     1453   01 004A0    22C00100 A            LI,R12   X'100'
     1454   01 004A1    68000481              B        ZSNER
     1455                                     PAGE
     1456                            *
     1457                            * ADVANCE POINTERS AND CLEAR RE-ITERATION COUNT FIELD
     1458                            *  IF EXISTENT IN EXECUTE TABLE ENTRY
     1459                            *
     1460   01 004A2    35F0000E A   ZADCRC   STW,R15  R14
     1461   01 004A3    6AF00496              BAL,R15  ZADPTR
     1462   01 004A4    680004A7              B        %+3
     1463                            *
     1464                            * SET POINTERS AND CLEAR RE-ITERATION COUNT FIELD
     1465                            *  (R11) CONTAINS BASE WORD VALUE
     1466                            *
     1467   01 004A5    35F0000E A   ZSTCRC   STW,R15  R14
     1468   01 004A6    6AF0049A              BAL,R15  ZSTPTR
     1469   01 004A7    32F0000E A            LW,R15   R14
     1470                            *
     1471                            * CLEAR OR RESET RE-ITERATION COUNT FIELD IN EXECUTE TABLE
     1472                            *  ONLY IF RC FIELD IS EXISTENT
     1473                            *
     1474   01 004A8    F2B00691     ZCRC     LB,R11   *ZEXPT0
     1475   01 004A9    21B00008 A            CI,R11   8
     1476   01 004AA    E840000F A            BCR,4    *R15
     1477   01 004AB    D2B00692              LH,R11   *ZEXPT1
     1478   01 004AC    25B00410 A            SAS,R11  16
     1479   01 004AD    B5B00692              STW,R11  *ZEXPT1
     1480   01 004AE    E800000F A            B        *R15
     1481                                     PAGE
     1482                            *
     1483                            * PROCESS LEADING DECIMAL SUB-FIELD ASSUMED BINARY IN R9
     1484                            *  RE-ITERATION COUNT LESS THAN 10K AND GREATER THAN 1
     1485                            *   PLACE MARKER IDENTIFIER LESS THAN 512
     1486                            *
     1487   01 004AF    F2B00691     ZTST1    LB,R11   *ZEXPT0
     1488   01 004B0    21B0000C A            CI,R11   X'C'
     1489   01 004B1    684004CB              BCR,4    ZTST3
     1490   01 004B2    21B00008 A            CI,R11   8
     1491   01 004B3    694004B9              BCS,4    ZTST1A
     1492   01 004B4    33000009 A            MTW,0    R9
     1493   01 004B5    683004BB              BCR,3    ZTST1AA
     1494   01 004B6    219001FF A            CI,R9    511
     1495   01 004B7    692004C9              BCS,2    ZTST2A
     1496   01 004B8    68000355              B        ZPMRQ
     1497   01 004B9    33F00009 A   ZTST1A   MTW,-1   R9
     1498   01 004BA    692004BF              BCS,2    ZTST1B
     1499   01 004BB    22C000F3 A   ZTST1AA  LI,R12   X'F3'
     1500   01 004BC    4BB0000C A            AND,R11  R12
     1501   01 004BD    F5B00691              STB,R11  *ZEXPT0
     1502   01 004BE    E800000F A            B        *R15
     1503   01 004BF    2190270F A   ZTST1B   CI,R9    9999
     1504   01 004C0    692004C9              BCS,2    ZTST2A
     1505   01 004C1    32C00009 A            LW,R12   R9
     1506   01 004C2    25C00410 A            SAS,R12  16
     1507   01 004C3    B5C00692     ZTST1C   STW,R12  *ZEXPT1
     1508   01 004C4    6800049C              B        ZTST4
     1509                                     PAGE
     1510                            *
     1511                            * VERIFIES PLACE MARKER VALUE GREATER THAN ONE
     1512                            *  AND LESS THAN 512 DECIMAL
     1513                            *
     1514   01 004C5    33000009 A   ZTST2    MTW,0    R9
     1515   01 004C6    683004C9              BCR,3    ZTST2A
     1516   01 004C7    21900200 A            CI,R9    X'200'
     1517   01 004C8    E910000F A            BCS,1    *R15
     1518   01 004C9    22C00020 A   ZTST2A   LI,R12   X'20'
     1519   01 004CA    68000481              B        ZSNER
     1520                            *
     1521                            * VERIFY NUMERIC ACCUMULATOR IS EMPTY (ZERO)
     1522                            *
     1523   01 004CB    33000009 A   ZTST3    MTW,0    R9
     1524   01 004CC    E830000F A            BCR,3    *R15
     1525   01 004CD    680004C9              B        ZTST2A
     1526                            *
     1527                            * VERIFY ALPHA ACCUMULATOR EMPTY (ZERO)
     1528                            *
     1529   01 004CE    33000008 A   ZTST6    MTW,0    R8
     1530   01 004CF    E830000F A            BCR,3    *R15
     1531   01 004D0    22C00021 A            LI,R12   X'21'
     1532   01 004D1    68000481              B        ZSNER
     1533                            *
     1534                            * VERIFY TRANSLATOR NOT IN IMMEDIATE MODE
     1535                            *
     1536   01 004D2    3300003D A   ZTST7    MTW,0    ZDSFLG
     1537   01 004D3    E830000F A            BCR,3    *R15
     1538   01 004D4    22C00052 A            LI,R12   X'52'
     1539   01 004D5    68000481              B        ZSNER
     1540                                     PAGE
     1541                            *
     1542                            * DECIMAL TO BINARY CONVERTER FOUR BITS PER DIGIT
     1543                            *  (R12) VALUE TO CONVERT TO R12 AND ZTEMP
     1544                            *   (R15) LINK RETURN VALUE
     1545                            *
     1546   01 004D6    46C0000F A   ZDTB     XW,R12   R15
     1547   01 004D7    35F00693              STW,R15  ZTEMP
     1548   01 004D8    4BF004E8              AND,R15  ZDTB10
     1549   01 004D9    25F0027C A            SCS,R15  -4
     1550   01 004DA    23FFFFFA A            MI,R15   -6
     1551   01 004DB    30F00693              AW,R15   ZTEMP
     1552   01 004DC    35F00693              STW,R15  ZTEMP
     1553   01 004DD    4BF004E9              AND,R15  ZDTB20
     1554   01 004DE    25F00278 A            SCS,R15  -8
     1555   01 004DF    23FFFF64 A            MI,R15   -156
     1556   01 004E0    30F00693              AW,R15   ZTEMP
     1557   01 004E1    35F00693              STW,R15  ZTEMP
     1558   01 004E2    52F0000F A            LH,R15   R15
     1559   01 004E3    23FF2710 A            MI,R15   -55536
     1560   01 004E4    30F00693              AW,R15   ZTEMP
     1561   01 004E5    35F00693              STW,R15  ZTEMP
     1562   01 004E6    46C0000F A            XW,R12   R15
     1563   01 004E7    E800000F A            B        *R15
     1564   01 004E8    F0F0F0F0 A   ZDTB10   DATA     X'F0F0F0F0'
     1565   01 004E9    FF00FF00 A   ZDTB20   DATA     X'FF00FF00'
     1566                                     PAGE
     1567                            *
     1568                            * BINARY TO DECIMAL CONVERTER FOUR BITS PER DIGIT
     1569                            *  (R12) VALUE TO CONVERT TO R12 AND ZTEMP
     1570                            *   (R15) LINK RETURN VALUE
     1571                            *
     1572   01 004EA    35D0052A     ZBTD     STW,R13  ZCSRL
     1573   01 004EB    22D00400 A            LI,R13   X'400'
     1574   01 004EC    46C0000D A            XW,R12   R13
     1575   01 004ED    35C006A5              STW,R12  PX
     1576   01 004EE    22C00000 A            LI,R12   0
     1577   01 004EF    35C00693              STW,R12  ZTEMP
     1578   01 004F0    22C00000 A   ZBTD10   LI,R12   0
     1579   01 004F1    21D0000A A            CI,R13   10
     1580   01 004F2    691004F8              BCS,1    ZBTD20
     1581   01 004F3    36C004FE              DW,R12   ZBTD30
     1582   01 004F4    A5C006A5              S,R12    *PX
     1583   01 004F5    334006A5              MTW,4    PX
     1584   01 004F6    66C00693              AWM,R12  ZTEMP
     1585   01 004F7    680004F0              B        ZBTD10
     1586   01 004F8    32C0052A     ZBTD20   LW,R12   ZCSRL
     1587   01 004F9    46C0000D A            XW,R12   R13
     1588   01 004FA    A5C006A5              S,R12    *PX
     1589   01 004FB    49C00693              OR,R12   ZTEMP
     1590   01 004FC    35C00693              STW,R12  ZTEMP
     1591   01 004FD    E800000F A            B        *R15
     1592   01 004FE    0000000A A   ZBTD30   DATA     10
     1593                                     PAGE
     1594                            *
     1595                            * BINARY TO HEXADECIMAL CONVERTER
     1596                            *  (R12) VALUE TO CONVERT TO R12-R13 AND ZTEMP-ZTEMP1
     1597                            *   (R15) LINK RETURN VALUE
     1598                            *
     1599   01 004FF    3510052A     ZBTH     STW,R1   ZCSRL
     1600   01 00500    221FFFF8 A            LI,X1    -8
     1601   01 00501    22D0000F A            LI,R13   X'F'
     1602   01 00502    25C00304 A            SCD,R12  4
     1603   01 00503    21D000FA A            CI,R13   X'FA'
     1604   01 00504    69100506              BCS,1    %+2
     1605   01 00505    20D000C7 A            AI,R13   X'C7'
     1606   01 00506    75D20695              STB,R13  ZTEMP1+1,X1
     1607   01 00507    65100501              BIR,X1   ZBTH+2
     1608   01 00508    32C00693              LW,R12   ZTEMP
     1609   01 00509    32D00694              LW,R13   ZTEMP1
     1610   01 0050A    3210052A              LW,R1    ZCSRL
     1611   01 0050B    E800000F A            B        *R15
     1612                            *
     1613                            * LEADING ZERO SUPPRESSION ON UNPACKED VALUE
     1614                            *  (R12) CONTAINS VALUE TO SUPPRESS
     1615                            *   (R15) CONTAINS LINK RETURN ADDRESS
     1616                            *
     1617   01 0050C    35F0052A     ZSUP     STW,R15  ZCSRL
     1618   01 0050D    35100693              STW,X1   ZTEMP
     1619   01 0050E    221FFFFC A            LI,X1    -X'4'
     1620   01 0050F    22F000F0 A            LI,R15   X'F0'
     1621   01 00510    71F2000D A            CB,R15   R12+1,X1
     1622   01 00511    69300515              BCS,3    %+4
     1623   01 00512    22F00040 A            LI,R15   X'40'
     1624   01 00513    75F2000D A            STB,R15  R12+1,X1
     1625   01 00514    6510050F              BIR,X1   ZSUP+3
     1626   01 00515    32100693              LW,R1    ZTEMP
     1627   01 00516    35C00693              STW,R12  ZTEMP
     1628   01 00517    E800052A              B        *ZCSRL
     1629                                     PAGE
     1630                            *
     1631                            * DECIMAL ADDER FOUR BITS PER DIGIT
     1632                            *  (R12) CURRENT DECIMAL ADDER VALUE
     1633                            *   (R15) LINK RETURN VALUE
     1634                            *
     1635   01 00518    35100693     ZDECADER STW,R1   ZTEMP
     1636   01 00519    221FFFF8 A            LI,X1    -8
     1637   01 0051A    3310000C A            MTW,1    R12
     1638   01 0051B    21C00008 A            CI,R12   X'8'
     1639   01 0051C    68400520              BCR,4    %+4
     1640   01 0051D    21C00002 A            CI,R12   X'2'
     1641   01 0051E    68400520              BCR,4    %+2
     1642   01 0051F    3360000C A            MTW,6    R12
     1643   01 00520    25C0027C A            SCS,R12  -4
     1644   01 00521    6510051B              BIR,X1   %-6
     1645   01 00522    3210000C A            LW,R1    R12
     1646   01 00523    46100693              XW,R1    ZTEMP
     1647   01 00524    E800000F A            B        *R15
     1648                            *
     1649                            * INITIALIZE COMMON INDEX REGISTERS
     1650                            *
     1651   01 00525    22000000 A   ZSCIR    LI,R0    0
     1652   01 00526    22100001 A            LI,X1    1
     1653   01 00527    22200002 A            LI,X2    2
     1654   01 00528    22300003 A            LI,X3    3
     1655   01 00529    E800000F A            B        *R15
     1656   01 0052A    00000000 A   ZCSRL    PZE
     1657                                     PAGE
     1658                            *
     1659                            * DKB DIRECTIVE ASSIGNING DIRECTIVE INPUT VIA TYPEWRITER
     1660                            *
     1661   01 0052B    40000000 A            DATA     X'40000000'
     1662   01 0052C    6AE00531     ZDKB     BAL,R14  ZKBCRIOA
     1663   01 0052D    00000001 A            DATA     1
     1664                            *
     1665                            * DCR DIRECTIVE ASSIGNING DIRECTIVE INPUT VIA CARD READER
     1666                            *
     1667   01 0052E    40000000 A            DATA     X'40000000'
     1668   01 0052F    6AE00531     ZDCR     BAL,R14  ZKBCRIOA
     1669   01 00530    00000003 A            DATA     3
     1670                            *
     1671                            * PRESERVE TYPEWRITER/CARD READER INPUT/OUTPUT ADDRESS
     1672                            *
     1673                            *                                                                   *GOO
     1674   01 00531    22001FFF A   ZKBCRIOA LI,R0    X'1FFF'           TRUNCATE I/O ADDRESS            *GOO
     1675   01 00532    4B000696              AND,R0   P1
     1676   01 00533    B500000E A            STW,R0   *R14
     1677   01 00534    55020473              STH,R0   ZMFRDA,X1
     1678   01 00535    5202045E              LH,R0    ZMFRX7,X1
     1679   01 00536    5502045F              STH,R0   ZMFRNBA,X1
     1680   01 00537    E800000F A            B        *R15
     1681                                     PAGE
     1682                            *
     1683                            * SML DIRECTIVE ASSIGNING MESSAGE LEVELS TO BE REPORTED
     1684                            *
     1685   01 00538    10000000 A            DATA     X'10000000'
     1686   01 00539    32000696     ZSML     LW,R0    P1
     1687   01 0053A    4B000003 A            AND,R0   R3
     1688   01 0053B    550205D3              STH,R0   ZMSGKEY,X1
     1689   01 0053C    E800000F A            B        *R15
     1690                            *
     1691                            * SMD DIRECTIVE ASSIGNING MESSAGES TO TYPEWRITER OR LINE PRINTER
     1692                            *
     1693   01 0053D    40000000 A            DATA     X'40000000'
     1694                            *                                                                   *GOO
     1695   01 0053E    22001F7F A   ZSMD     LI,R0    X'1F7F'           MASK FOR I/O ADDRESS            *GOO
     1696   01 0053F    4B000696              AND,R0   P1
     1697   01 00540    550205EB              STH,R0   ZTWLPO,X1
     1698   01 00541    E800000F A            B        *R15
     1699                                     PAGE
     1700                            *
     1701                            * HLT DIRECTIVE TO IDENTIFY LOCATION IN CONTROL LINE
     1702                            *
     1703   01 00542    10000000 A            DATA     X'10000000'       P1 DECIMAL IDENTIFIER
     1704   01 00543    35F006A4     ZHLT     STW,R15  P15
     1705   01 00544    32C00696              LW,R12   P1
     1706   01 00545    6AF004FF              BAL,R15  ZBTH
     1707   01 00546    35D00551              STW,R13  ZHLTMSG+1
     1708   01 00547    32C0054F              LW,R12   ZHLTMSG-1
     1709   01 00548    02300070 A            LCFI     7
     1710   01 00549    6AF005C9              BAL,R15  ZTWLP
     1711   01 0054A    22F00001 A            LI,R15   1
     1712   01 0054B    4BF00696              AND,R15  P1
     1713   01 0054C    E82206A4              BCR,2    *P15,X1
     1714   01 0054D    2E000000 A            WAIT
     1715   01 0054E    E80206A4              B        *P15,X1
     1716   01 0054F    10081540 A            ZFMW     1,0,8,BA(ZHLTMSG)
     1717   01 00550    C8D3E340 A   ZHLTMSG  TEXT     'HLT XXXX'
            01 00551    E7E7E7E7 A
     1718                                     PAGE
     1719                            *
     1720                            * ALT DIRECTIVE TO ALTER CONTIGUOUS MAIN MEMORY LOCATIONS
     1721                            *
     1722   01 00552    35F0052A     ZALT     STW,R15  ZCSRL
     1723   01 00553    6AF00561              BAL,R15  ZALT10
     1724   01 00554    6AF00441              BAL,R15  ZFH
     1725   01 00555    6AF00561              BAL,R15  ZALT10
     1726   01 00556    22F1FFFF A            LI,R15   X'1FFFF'
     1727   01 00557    4B90000F A            AND,R9   R15
     1728   01 00558    31900687     ZALT05   CW,R9    ZEMS
     1729   01 00559    E920052A              BCS,2    *ZCSRL
     1730   01 0055A    35900693              STW,R9   ZTEMP
     1731   01 0055B    6AF00441              BAL,R15  ZFH
     1732   01 0055C    6AF00561              BAL,R15  ZALT10
     1733   01 0055D    B5900693              STW,R9   *ZTEMP
     1734   01 0055E    33100693              MTW,1    ZTEMP
     1735   01 0055F    32900693              LW,R9    ZTEMP
     1736   01 00560    68000558              B        ZALT05
     1737   01 00561    21A0006B A   ZALT10   CI,R10   X'6B'
     1738   01 00562    E830000F A            BCR,3    *R15
     1739   01 00563    E800052A              B        *ZCSRL
     1740                                     PAGE
     1741                            *
     1742                            * DMP DIRECTIVE TO DUMP CONTIGUOUS MAIN MEMORY LOCATIONS
     1743                            *
     1744   01 00564    40000000 A            DATA     X'40000000'
     1745   01 00565    40000000 A            DATA     X'40000000'
     1746   01 00566    40000000 A            DATA     X'40000000'
     1747   01 00567    02300070 A   ZTYP     LCFI     7
     1748   01 00568    6800056D              B        ZDMP+1
     1749   01 00569    40000000 A            DATA     X'40000000'       P1 FIRST
     1750   01 0056A    40000000 A            DATA     X'40000000'       P2  LAST
     1751   01 0056B    40000000 A            DATA     X'40000000'       P3   RELATIVE
     1752   01 0056C    023000D0 A   ZDMP     LCFI     13                MSG. LEV. 1
     1753   01 0056D    740605A2              STCF     ZDMP24+2,X3
     1754   01 0056E    35F006A4              STW,R15  P15
     1755   01 0056F    227FFFFD A            LI,X7    -3                TRUNCATE
     1756   01 00570    32CE0699              LW,R12   P3+1,X7
     1757   01 00571    4BC00687              AND,R12  ZEMS
     1758   01 00572    35CE0699              STW,R12  P3+1,X7           ADDRESSES
     1759   01 00573    65700570              BIR,X7   %-3
     1760   01 00574    6AF00525              BAL,R15  ZSCIR
     1761   01 00575    32D00697              LW,R13   P2
     1762   01 00576    3310000D A            MTW,1    R13
     1763   01 00577    31D00687              CW,R13   ZEMS
     1764   01 00578    6820057A              BCR,2    %+2
     1765   01 00579    33F00697              MTW,-1   P2
     1766   01 0057A    32C00698              LW,R12   P3
     1767   01 0057B    6830057E              BCR,3    %+3
     1768   01 0057C    32000696              LW,R0    P1
     1769   01 0057D    38000698              SW,R0    P3
     1770   01 0057E    35000698              STW,R0   P3
     1771   01 0057F    32C00696     ZDMP10   LW,R12   P1
     1772   01 00580    38C00698              SW,R12   P3
     1773   01 00581    6AF004FF              BAL,R15  ZBTH
     1774   01 00582    22F04040 A            LI,R15   X'4040'
     1775   01 00583    55F0000C A            STH,R15  R12
     1776   01 00584    25C00310 A            SCD,R12  16
     1777   01 00585    35C006A6              STW,R12  ZDMPA
     1778   01 00586    35D006A7              STW,R13  ZDMPA+1
     1779   01 00587    75F006A6              STB,R15  ZDMPA
     1780   01 00588    22700007 A            LI,X7    7                 RESET INDEX
     1781   01 00589    22F00000 A            LI,R15   0                 DUPLICATE
     1782   01 0058A    35F006A3              STW,R15  P14               COUNTER
     1783   01 0058B    B2C00696     ZDMP20   LW,R12   *P1               DUPLICATE
     1784   01 0058C    B1C20696              CW,R12   *P1,X1            WORDS ?
     1785   01 0058D    683005A7              BCR,3    ZDMP30
     1786   01 0058E    330006A3              MTW,0    P14               DUPLICATE
     1787   01 0058F    683005B2              BCR,3    ZDMP40            BLOCK ?
     1788   01 00590    22C00060 A            LI,R12   X'60'
     1789   01 00591    75CE06A6              STB,R12  ZDMPA,X7
     1790   01 00592    32C00696     ZDMP22   LW,R12   P1
     1791   01 00593    38C00698              SW,R12   P3
     1792   01 00594    6AF004FF              BAL,R15  ZBTH
     1793   01 00595    22F04040 A            LI,R15   X'4040'
     1794   01 00596    55F0000C A            STH,R15  R12
     1795   01 00597    25C00310 A            SCD,R12  16
     1796   01 00598    35C006A8              STW,R12  ZDMPA+2
     1797   01 00599    35D006A9              STW,R13  ZDMPA+3
     1798   01 0059A    75F006A8              STB,R15  ZDMPA+2
     1799   01 0059B    B2C00696              LW,R12   *P1               SET DUPLICATE
     1800   01 0059C    6AF004FF              BAL,R15  ZBTH              KEY FOR OUTPUT
     1801   01 0059D    35C006AA              STW,R12  ZDMPA+4
     1802   01 0059E    35D006AB              STW,R13  ZDMPA+5
     1803   01 0059F    22700018 A            LI,R7    24
     1804   01 005A0    757205C4     ZDMP24   STB,R7   ZDMP70,X1
     1805   01 005A1    32C005C4              LW,R12   ZDMP70
     1806   01 005A2    023000E0 A            LCFI     14                MSG LEV 2
     1807   01 005A3    6AF005C9              BAL,R15  ZTWLP
     1808   01 005A4    6AF005C0              BAL,R15  ZDMP50
     1809   01 005A5    6910057F              BCS,1    ZDMP10            DUMP
     1810   01 005A6    E80006A4              B        *P15              COMPLETE ?
     1811   01 005A7    21700007 A   ZDMP30   CI,X7    7
     1812   01 005A8    682005AB              BCR,2    %+3
     1813   01 005A9    33F00696              MTW,-1   P1
     1814   01 005AA    680005A0              B        ZDMP24
     1815   01 005AB    331006A3              MTW,1    P14
     1816   01 005AC    6AF005C0              BAL,R15  ZDMP50
     1817   01 005AD    6910058B              BCS,1    ZDMP20
     1818   01 005AE    33F00696              MTW,-1   P1
     1819   01 005AF    33F006A3              MTW,-1   P14
     1820   01 005B0    69200592              BCS,2    ZDMP22
     1821   01 005B1    B2C00696              LW,R12   *P1
     1822   01 005B2    6AF004FF     ZDMP40   BAL,R15  ZBTH              SET NON-DUPLICATE
     1823   01 005B3    33100007 A            MTW,1    X7                WORD FOR OUTPUT
     1824   01 005B4    226FFFF8 A            LI,X6    -8
     1825   01 005B5    25C00308 A            SCD,R12  8
     1826   01 005B6    75DE06A6              STB,R13  ZDMPA,X7
     1827   01 005B7    33100007 A            MTW,1    X7
     1828   01 005B8    656005B5              BIR,X6   %-3
     1829   01 005B9    22F00040 A            LI,R15   X'40'
     1830   01 005BA    75FE06A6              STB,R15  ZDMPA,X7
     1831   01 005BB    2170004E A            CI,X7    78
     1832   01 005BC    692005A0              BCS,2    ZDMP24
     1833   01 005BD    6AF005C0              BAL,R15  ZDMP50
     1834   01 005BE    6910058B              BCS,1    ZDMP20
     1835   01 005BF    680005A0              B        ZDMP24
     1836   01 005C0    32C00696     ZDMP50   LW,R12   P1
     1837   01 005C1    33100696              MTW,1    P1
     1838   01 005C2    31C00697              CW,R12   P2
     1839   01 005C3    E800000F A            B        *R15
     1840   01 005C4    10001A98 A   ZDMP70   ZFMW     1,0,0,BA(ZDMPA)
     1841                            *
     1842                            * TRANSMIT MESSAGE ONLY IF KEYBOARD INPUT DEVICE
     1843                            *
     1844   01 005C5    52D20530     ZTMNCR   LH,R13   ZDCR+1,X1
     1845   01 005C6    51D20473              CH,R13   ZMFRDA,X1
     1846   01 005C7    E830000F A            BCR,3    *R15
     1847                            *
     1848                            * LOAD CONDITIONS FOR TYPEWRITER ONLY MESSAGE LEVEL 0
     1849                            *
     1850   01 005C8    02300040 A   ZSML40   LCFI     4
     1851                                     PAGE
     1852                            *
     1853                            * COMMON TYPEWRITER/LINE PRINTER OUTPUT ROUTINE
     1854                            *
     1855   01 005C9    E8C0000F A   ZTWLP    BCR,12   *R15
     1856   01 005CA    7400000F A            STCF     R15
     1857   01 005CB    35F0052A              STW,R15  ZCSRL
     1858   01 005CC    6AF00525              BAL,R15  ZSCIR
     1859   01 005CD    72F0052A              LB,R15   ZCSRL
     1860   01 005CE    25F0047C A            SAS,R15  -4
     1861   01 005CF    4BF00003 A            AND,R15  R3
     1862   01 005D0    683005D5              BCR,3    ZTWLP01
     1863   01 005D1    6C000000 A            RD,0     0                                                 *G00
     1864   01 005D2    E910052A              BCS,1    *ZCSRL
     1865   01 005D3    21F00004 A   ZMSGKEY  CI,R15   4
     1866   01 005D4    E920052A              BCS,2    *ZCSRL            SUPPRESSED ?
     1867   01 005D5    55C2061E     ZTWLP01  STH,R12  ZTWLP12,X1
     1868   01 005D6    52C0000C A            LH,R12   R12
     1869   01 005D7    75C6061F              STB,R12  ZTWLP12+1,X3
     1870   01 005D8    72C4000C A            LB,R12   R12,X2
     1871   01 005D9    22D0000F A            LI,R13   15
     1872   01 005DA    4BD0000C A            AND,R13  R12
     1873   01 005DB    25C0047C A            SAS,R12  -4
     1874   01 005DC    75C6061B              STB,R12  ZTWLP10+1,X3
     1875   01 005DD    32C0000C A            LW,R12   R12
     1876   01 005DE    683005E0              BCR,3    %+2
     1877   01 005DF    5502061D              STH,R0   ZTWLP11+1,X1
     1878   01 005E0    50D2061D              AH,R13   ZTWLP11+1,X1
     1879   01 005E1    55D2061D              STH,R13  ZTWLP11+1,X1
     1880   01 005E2    7510061C              STB,R1   ZTWLP11
     1881   01 005E3    32F0052D              LW,R15   ZDKB+1
     1882   01 005E4    72C0052A              LB,R12   ZCSRL
     1883   01 005E5    25C0047A A            SAS,R12  -6
     1884   01 005E6    33F0000C A            MTW,-1   R12
     1885   01 005E7    683005FD              BCR,3    ZTW
     1886   01 005E8    22F00002 A            LI,R15   2
     1887   01 005E9    33F0000C A            MTW,-1   R12
     1888   01 005EA    683005EE              BCR,3    ZLPD
     1889   01 005EB    22F00001 A   ZTWLPO   LI,R15   1                                                   *F
     1890   01 005EC    31F0052D              CW,R15   ZDKB+1
     1891   01 005ED    683005FD              BCR,3    ZTW
     1892   01 005EE    55F20611     ZLPD     STH,R15  ZTWLPA,X1
     1893   01 005EF    2200030E              LI,R0    DA(ZTWLP11)
     1894   01 005F0    72C6061B              LB,R12   ZTWLP10+1,X3
     1895   01 005F1    693005F3              BCS,3    %+2
     1896   01 005F2    22C000A0 A            LI,R12   X'A0'
     1897   01 005F3    33F0000C A            MTW,-1   R12
     1898   01 005F4    683005F9              BCR,3    ZLPD10
     1899   01 005F5    20C000C1 A            AI,R12   X'C1'
     1900   01 005F6    75C00010 A            STB,R12  ZML10
     1901   01 005F7    7516061B              STB,R1   ZTWLP10+1,X3
     1902   01 005F8    2200030D              LI,R0    DA(ZTWLP10)
     1903   01 005F9    72C6061D     ZLPD10   LB,R12   ZTWLP11+1,X3
     1904   01 005FA    693005FC              BCS,3    %+2
     1905   01 005FB    7370061C              MTB,7    ZTWLP11
     1906   01 005FC    68000611              B        ZTWLPA
     1907   01 005FD    55F20611     ZTW      STH,R15  ZTWLPA,X1
     1908   01 005FE    2200030F              LI,R0    DA(ZTWLP12)
     1909   01 005FF    72C6061B              LB,R12   ZTWLP10+1,X3
     1910   01 00600    68300611              BCR,3    ZTWLPA
     1911   01 00601    7370061C              MTB,7    ZTWLP11
     1912   01 00602    22F00015 A            LI,R15   X'15'
     1913   01 00603    22100000 A            LI,R1    0
     1914   01 00604    75F20010 A            STB,R15  ZML10,X1
     1915   01 00605    33100001 A            MTW,1    R1
     1916   01 00606    64C00604              BDR,R12  %-2
     1917   01 00607    22F00040 A            LI,R15   X'40'
     1918   01 00608    72C6061D              LB,R12   ZTWLP11+1,X3
     1919   01 00609    6830060F              BCR,3    ZTW10
     1920   01 0060A    4BC005C9              AND,R12  ZTWLP
     1921   01 0060B    7316061B              MTB,1    ZTWLP10+1,X3
     1922   01 0060C    75F20010 A            STB,R15  ZML10,X1
     1923   01 0060D    33100001 A            MTW,1    R1
     1924   01 0060E    64C0060B              BDR,R12  %-3
     1925   01 0060F    22100001 A   ZTW10    LI,R1    1
     1926   01 00610    2200030D              LI,R0    DA(ZTWLP10)
     1927   01 00611    4CC00001 A   ZTWLPA   SIO,R12  1
     1928   01 00612    69C00611              BCS,12   %-1
     1929   01 00613    CDC00611              TIO,R12  *ZTWLPA
     1930   01 00614    69C00613              BCS,12   %-1
     1931   01 00615    5202061F              LH,R0    ZTWLP12+1,X1
     1932   01 00616    5002061D              AH,R0    ZTWLP11+1,X1
     1933   01 00617    5502061D              STH,R0   ZTWLP11+1,X1
     1934   01 00618    E800052A              B        *ZCSRL
     1935                                     BOUND 8
     1936   01 0061A    05000040 A   ZTWLP10  ZFCP     5,X'40'
     1937   01 0061B    80000000 A            ZFCP     X'80',0
     1938   01 0061C    0000030F     ZTWLP11  DATA     DA(ZTWLP12)
     1939   01 0061D    81000000 A            ZFCP     X'81',0
     1940   01 0061E    01000000 A   ZTWLP12  ZFCP     1,0
     1941   01 0061F    00000000 A            DATA     0
     1942                                     PAGE
     1943                            *
     1944                            * THIS SECTION OF CODE COMPRISES THE EXECUTIVE PROGRAM
     1945                            *  EXECUTION OF SPECIFIED SUB-ROUTINES WHICH EXIST IN EXTBL
     1946                            *
     1947   01 00620    B2B00692     ZEX00    LW,R11   *ZEXPT1
     1948   01 00621    6AF004A5              BAL,R15  ZSTCRC
     1949   01 00622    6AF00525     ZEX01    BAL,R15  ZSCIR
     1950   01 00623    6AF0062D              BAL,R15  ZMPTWA
     1951   01 00624    22F00010 A            LI,15    1**4
     1952   01 00625    6DF01200 A            WD,15    (1,X'200')        ARM AND ENABLE C P  INTERRUPT
     1953   01 00626    02000000 A            NOP
     1954   01 00627    02000000 A            NOP
     1955   01 00628    02000000 A            NOP
     1956   01 00629    B2F00691              LW,R15   *ZEXPT0
     1957   01 0062A    EAF0000F A            BAL,R15  *R15
     1958                            *
     1959                            * SUBROUTINES RETURN CONTROL HERE
     1960                            *
     1961   01 0062B    68000641              B        ZRETN1            NORMAL
     1962   01 0062C    6800064C              B        ZRETN2            ABORT/CONDITIONAL
     1963                                     PAGE
     1964                            *
     1965                            * MOVE PARAMETERS TO LABELED WORK AREA P1-P15
     1966                            *
     1967   01 0062D    F2B00691     ZMPTWA   LB,R11   *ZEXPT0
     1968   01 0062E    22C00000 A            LI,R12   0
     1969   01 0062F    21B00008 A            CI,R11   8
     1970   01 00630    68400632              BCR,4    %+2
     1971   01 00631    D2C20692              LH,R12   *ZEXPT1,X1
     1972   01 00632    35C0003C A            STW,R12  ZFTF
     1973   01 00633    32E00692              LW,R14   ZEXPT1
     1974   01 00634    21B0000C A            CI,R11   X'C'
     1975   01 00635    68400637              BCR,4    %+2
     1976   01 00636    3310000E A            MTW,1    R14
     1977   01 00637    25B0047C A            SAS,R11  -4
     1978   01 00638    227FFFF1 A            LI,X7    -15
     1979   01 00639    22C00000 A            LI,R12   0
     1980   01 0063A    33F0000B A            MTW,-1   R11
     1981   01 0063B    6910063E              BCS,1    %+3
     1982   01 0063C    B2C0000E A            LW,R12   *R14
     1983   01 0063D    3310000E A            MTW,1    R14
     1984   01 0063E    35CE06A5              STW,R12  P15+1,X7
     1985   01 0063F    65700639              BIR,X7   %-6
     1986   01 00640    E800000F A            B        *R15
     1987                                     PAGE
     1988                            *
     1989                            * NORMAL RETURN ONE
     1990                            *
     1991   01 00641    6AF00525     ZRETN1   BAL,R15  ZSCIR
     1992   01 00642    6AF00653              BAL,R15  ZBPT1
     1993   01 00643    F2B00691              LB,R11   *ZEXPT0
     1994   01 00644    21B00008 A            CI,R11   8
     1995   01 00645    6840064A              BCR,4    ZRETN1A
     1996   01 00646    B3100692              MTW,1    *ZEXPT1
     1997   01 00647    D2B20692              LH,R11   *ZEXPT1,X1
     1998   01 00648    D1B00692              CH,R11   *ZEXPT1
     1999   01 00649    68200622              BCR,2    ZEX01
     2000   01 0064A    6AF004A2     ZRETN1A  BAL,R15  ZADCRC
     2001   01 0064B    68000622              B        ZEX01
     2002                            *
     2003                            * ABORT AND/OR CONDITIONAL RETURN
     2004                            *
     2005   01 0064C    6AF00525     ZRETN2   BAL,R15  ZSCIR
     2006   01 0064D    6AF00653              BAL,R15  ZBPT1
     2007   01 0064E    F2B00691              LB,R11   *ZEXPT0
     2008   01 0064F    21B00004 A            CI,R11   4
     2009   01 00650    6840064A              BCR,4    ZRETN1A
     2010   01 00651    22F00620              LI,R15   ZEX00
     2011   01 00652    68000677              B        ZLKSET
     2012                                     PAGE
     2013                            *
     2014                            * CHECK BREAKPOINT NO. 1
     2015                            *  RESET CONTINUE EXECUTION OF DIRECTIVES IN CONTROL LINE
     2016                            *  SET   STOP EXECUTION OF DIRECTIVES RETURN FOR DIRECTIVE INPUT
     2017                            *
     2018   01 00653    6C000000 A   ZBPT1    RD,0     0                                                 *G00
     2019   01 00654    E880000F A            BCR,8    *R15
     2020                            *
     2021                            * CONSOLE INTERRUPT INITIATED BY OPERATOR
     2022                            *  STOP EXECUTION OF DIRECTIVES RETURN FOR DIRECTIVE INPUT
     2023                            *
     2024   01 00655    22F00030 A   ZCONINT  LI,R15   X'30'
     2025   01 00656    02000000 A            NOP
     2026   01 00657    02000000 A            NOP
     2027   01 00658    CF000611              HIO,R0   *ZTWLPA
     2028   01 00659    68000288              B        ZPC010
     2029                                     PAGE
     2030                            *
     2031                            * OPEN LOOP PROCESSOR
     2032                            *  CLEARS CURRENT LOOP RE-ITERATION COUNT
     2033                            *   ADVANCES TO NEXT OPERATION
     2034                            *
     2035   01 0065A    0800064A A   ZLPPRO   ZFST2    0,2,0,ZRETN1A
     2036                            *
     2037                            * CLOSE LOOP PROCESSOR
     2038                            *  CHECKS IF OPEN LOOP RE-ITERATION COUNT COMPLETE
     2039                            *   IF COMPLETE ADVANCE TO NEXT OPERATION
     2040                            *    IF NOT UPDATE COUNT AND RESTART LOOP
     2041                            *
     2042   01 0065B    0400065C A            ZFST2    0,1,0,ZRPPRO
     2043   01 0065C    B2C00692     ZRPPRO   LW,R12   *ZEXPT1
     2044   01 0065D    3310000C A            MTW,1    R12
     2045   01 0065E    B310000C A            MTW,1    *R12
     2046   01 0065F    D2B2000C A            LH,R11   *R12,X1
     2047   01 00660    D1B0000C A            CH,R11   *R12
     2048   01 00661    6920064A              BCS,2    ZRETN1A
     2049   01 00662    B2B00692              LW,R11   *ZEXPT1
     2050   01 00663    35B00691              STW,R11  ZEXPT0
     2051   01 00664    6800064A              B        ZRETN1A
     2052                                     PAGE
     2053                            *
     2054                            * GO DIRECTIVE PROCESSOR TO CONTINUE EXECUTION OF DIRECTIVES
     2055                            *
     2056   01 00665    22C00105 A   ZGOPRO   LI,R12   X'105'
     2057   01 00666    22B00000 A   ZGOPTR   LI,R11   0
     2058   01 00667    68300481              BCR,3    ZSNER
     2059   01 00668    68000621              B        ZEX00+1
     2060                            *
     2061                            * END OF LINE PROCESSOR FOR FORWARD SLASH
     2062                            *
     2063   01 00669    0400066A A            ZFST2    0,1,0,ZFSPRO
     2064   01 0066A    6AF00653     ZFSPRO   BAL,R15  ZBPT1
     2065   01 0066B    6AF00677              BAL,R15  ZLKSET
     2066   01 0066C    68000620              B        ZEX00
     2067                            *
     2068                            * ABSOLUTE TRANSFER PROCESSOR
     2069                            *  SAVES CURRENT EXECUTE TABLE POINTER VALUE AS LINK
     2070                            *    RESETS POINTERS TO TRANSFER LOCATION
     2071                            *
     2072   01 0066D    0400066E A            ZFST2    0,1,0,ZASPRO
     2073   01 0066E    6800066B     ZASPRO   B        ZFSPRO+1
     2074                            *
     2075                            * LINK RETURN TRANSFER PROCESSOR
     2076                            *  CHECK IF LINK TABLE EMPTY;IF SO ABORT WITH ERROR MESSAGE
     2077                            *   IF NOT REMOVE LAST LINK ENTRY, REDUCE LINK POINTER BY ONE
     2078                            *    TRANSFER TO NEW OPERATION
     2079                            *
     2080   01 0066F    22C00111 A   ZLKAS    LI,R12   X'111'
     2081   01 00670    32B0068B              LW,R11   ZLKPTR
     2082   01 00671    31B0068A              CW,R11   ZLKADR
     2083   01 00672    68200481              BCR,2    ZSNER
     2084   01 00673    33F0068B              MTW,-1   ZLKPTR
     2085   01 00674    B2B0068B              LW,R11   *ZLKPTR
     2086   01 00675    35B00691              STW,R11  ZEXPT0
     2087   01 00676    6800064A              B        ZRETN1A
     2088                                     PAGE
     2089                            *
     2090                            * PURGE AND/OR INSERT EXECUTE TABLE POINTER AS LINK ADDRESS TO
     2091                            *  LINK TABLE, CHECK IF TABLE FULL; IF SO ABORT WITH ERROR MSG
     2092                            *
     2093   01 00677    32C0068B     ZLKSET   LW,R12   ZLKPTR
     2094   01 00678    32B00691              LW,R11   ZEXPT0
     2095   01 00679    33F0000C A            MTW,-1   R12
     2096   01 0067A    31C0068A              CW,R12   ZLKADR
     2097   01 0067B    6910067F              BCS,1    %+4
     2098   01 0067C    B1B0000C A            CW,R11   *R12
     2099   01 0067D    69300679              BCS,3    %-4
     2100   01 0067E    35C0068B              STW,R12  ZLKPTR
     2101   01 0067F    22C00110 A            LI,R12   X'110'
     2102   01 00680    32D0068B              LW,R13   ZLKPTR
     2103   01 00681    3310000D A            MTW,1    R13
     2104   01 00682    31D0068C              CW,R13   ZPMADR
     2105   01 00683    69200481              BCS,2    ZSNER
     2106   01 00684    B5B0068B              STW,R11  *ZLKPTR
     2107   01 00685    3310068B              MTW,1    ZLKPTR
     2108   01 00686    E800000F A            B        *R15
     2109                                     PAGE
     2110                            *
     2111                            * COMPUTE MEMORY SIZE AND ASSIGN TABLE LENGTHS AND I/O ADDRESS
     2112                            *  EXECUTE TABLE LENGTH = MS/4.96
     2113                            *   LINK TABLE LENGTH = MS/4.16
     2114                            *    PLACE MARKER TABLE LENGTH = MS/4.16
     2115                            *     THIS CODE IS THEN OVERLAYED BY TRANSLATOR
     2116                            *      REMAINDER OF AREA AVAILABLE AS INPUT/OUTPUT AREA
     2117                            *
     2118   01 00687    00020FFF A   ZEMS     DATA     X'20FFF'          LAST MEMORY LOCATION
     2119                                     BOUND 8
     2120   01 00688    0E0006D6     ZCMS     LPSD,0   ZCMST40+2
     2121   01 00689    32A00687              LW,R10   ZEMS
     2122   01 0068A    20AFF000 A            AI,R10   -X'1000'          4K MEMORY INCREMENT (WAS ZCMS6)   *F
     2123   01 0068B    35A00687              STW,R10  ZEMS
     2124   01 0068C    B5A0000A A            STW,R10  *R10
     2125   01 0068D    3310000A A            MTW,1    R10
     2126   01 0068E    25A00478 A            SAS,R10  -8
     2127   01 0068F    35A0000B A            STW,R10  R11
     2128   01 00690    25A00403 A            SAS,R10  3
     2129   01 00691    35A0068F              STW,R10  ZIOADR
     2130   01 00692    30A02146              AW,R10   ZEXADR
     2131   01 00693    35A0068E              STW,R10  ZMFRIOAD
     2132   01 00694    66A0068F              AWM,R10  ZIOADR
     2133   01 00695    38A0000B A            SW,R10   R11
     2134   01 00696    35A0068C              STW,R10  ZPMADR
     2135   01 00697    35A0068D              STW,R10  ZPMPTR
     2136   01 00698    38A0000B A            SW,R10   R11
     2137   01 00699    35A0068A              STW,R10  ZLKADR
     2138   01 0069A    35A0068B              STW,R10  ZLKPTR
     2139   01 0069B    32A00687              LW,R10   ZEMS
     2140   01 0069C    38A0068F              SW,R10   ZIOADR
     2141   01 0069D    35A00690              STW,R10  ZIOWDS
     2142   01 0069E    22B00040 A            LI,R11   X'40'
     2143   01 0069F    32A00687              LW,R10   ZEMS
     2144   01 006A0    38A0000B A            SW,R10   R11
     2145   01 006A1    35A00688              STW,R10  ZLBADR
     2146   01 006A2    35A00689              STW,R10  ZLBPTR
     2147   01 006A3    32A006D1              LW,R10   ZCMS5
     2148   01 006A4    35A00040 A            STW,R10  64
     2149   01 006A5    227FFF20 A            LI,X7    -224
     2150   01 006A6    32A0005F              LW,R10   ZIL5F
     2151                            *DELETED MTW,1    R10                                                 *F
     2152   01 006A7    35AE0140              STW,R10  ZIL5F+225,X7
     2153   01 006A8    657006A7              BIR,X7   %-1               WAS %-2                           *F
     2154   01 006A9    6AF00525              BAL,R15  ZSCIR
     2155   01 006AA    3500003D A            STW,0    ZDSFLG                                              *F
     2156   01 006AB    22400001 A            LI,R4    1                 CHECK FOR ASR/KSR ADDRESS       *GOO
     2157   01 006AC    3540052D              STW,R4   ZDKB+1              SET UP ASR/KSR ADDRESS        *GOO
     2158   01 006AD    554205EB              STH,R4   ZTWLPO,X1                                         *GOO
     2159   01 006AE    55420473              STH,R4   ZMFRDA,X1                                         *GOO
     2160   01 006AF    CF00052D              HIO,0    *ZDKB+1             CHECK FOR ADDRESS RECOGNITION *GOO
     2161   01 006B0    688006B4              BCR,8    %+4                   VALID ADDRESS               *GOO
     2162   01 006B1    2E000000 A            WAIT                         INVALID ADDRESS               *GOO
     2163                            *                                       WAIT FOR OPERATOR TO ENTER  *GOO
     2164                            *                                       R4 WITH CORRECT ADDRESS     *GOO
     2165   01 006B2    4B40214D              AND,R4   =X'1FFF'          MASK ADDRESS                    *GOO
     2166   01 006B3    680006AC              B        %-7                                               *GOO
     2167   01 006B4    32B02146              LW,R11   ZEXADR
     2168   01 006B5    6AF0049A              BAL,R15  ZSTPTR
     2169   01 006B6    32F006DE              LW,15    LBRXPSD           SET TRAP LOC                    *G01
     2170   01 006B7    35F00040 A            STW,15   X'40'                 FOR NON-SIGMA TEST          *G01
     2171   01 006B8    27AE06D4              GEN,8,4,3,17  X'27',10,7,ZCMST40 THIS IS A LBR,10 ZCMS8 INS*G01
     2172   01 006B9    22A000E3 A            LI,10    'T'                   T = NON-SIGMA               *G01
     2173   01 006BA    680006C1              B        ZCMS4                                             *G01
     2174   01 006BB    32F006D8     ZCMS2    LW,15    LRAXPSD           SET TRAP LOC                    *G01
     2175   01 006BC    35F00040 A            STW,15   X'40'                 FOR SIG 9 TEST              *G01
     2176   01 006BD    20A00688              GEN,8,4,20  X'20',10,ZCMS  THIS IS A LRA,10 ZCMS INSTR     *G01
     2177   01 006BE    22A00001 A            LI,10    1                 1 = SIG 8/9                     *G01
     2178   01 006BF    680006C1              B        ZCMS4                                             *G01
     2179   01 006C0    22A00000 A   ZCMS3    LI,10    0                 0 = SIG 5/7                     *G01
     2180   01 006C1    35A0003E A   ZCMS4    STW,10   ZSIG9             SET MACHINE TYPE INDICATOR      *G01
     2181   01 006C2    32C01EC2              LW,12    MW00
     2182   01 006C3    6AF005C8              BAL,15   ZSML40            OUTPUT PROGRAM I.D. ON 'KSR'      *F
     2183   01 006C4    32C0068F              LW,12    ZIOADR                                              *F
     2184   01 006C5    6AF004FF              BAL,15   ZBTH                                                *F
     2185   01 006C6    35D006EA              STW,13   BUFFMSG+5                                           *F
     2186   01 006C7    32C00690              LW,12    ZIOWDS                                              *F
     2187   01 006C8    21C04000 A            CI,12    X'4000'                                             *F
     2188   01 006C9    691006CB              BCS,1    %+2                                                 *F
     2189   01 006CA    22C04000 A            LI,12    X'4000'                                             *F
     2190   01 006CB    30C0068F              AW,12    ZIOADR                                              *F
     2191   01 006CC    6AF004FF              BAL,15   ZBTH                                                *F
     2192   01 006CD    35D006ED              STW,13   BUFFMSG+8                                           *F
     2193   01 006CE    32C006E4              LW,12    BUFFMSG-1                                           *F
     2194   01 006CF    22F01768              LI,15    INITIAL
     2195   01 006D0    680005C8              B        ZSML40
     2196                            *
     2197                            *
     2198   01 006D1    0F000150     ZCMS5    XPSD,0   ZT40
     2199                            *DELETED<<<<ZCMS6 DATA X'1000'      TO SAVE CORE                      *F
     2200   01 006D2    00800000 A   ZCMS7    DATA     X'00800000'       MASK FOR MODE ALTERED BIT       *GOO
     2201                                     BOUND    8
     2202   01 006D4    00000000 A   ZCMST40  DATA     0
     2203   01 006D5    00000000 A            DATA     0
     2204   01 006D6    00000689              DATA     ZCMS+1
     2205   01 006D7    00000000 A            DATA     0
     2206   01 006D8    0F0006DA     LRAXPSD  XPSD,0   LRAXPSD1                                          *G01
     2207                                     BOUND    8                                                 *G01
     2208   01 006DA                 LRAXPSD1 RES      2                                                 *G01
     2209   01 006DC    000006C0              DATA     ZCMS3                                             *G01
     2210   01 006DD    00000000 A            DATA     0                                                 *G01
     2211   01 006DE    0F0006E0     LBRXPSD  XPSD,0   LBRXPSD1                                          *G01
     2212                                     BOUND    8                                                 *G01
     2213   01 006E0                 LBRXPSD1 RES      2                                                 *G01
     2214   01 006E2    000006BB              DATA     ZCMS2                                             *G01
     2215   01 006E3    00000000 A            DATA     0                                                 *G01
     2216                                     PAGE                                                       *G01
     2217                            *
     2218                            * EQUATE STATEMENTS TO OVERLAY CODE FOR COMPUTING MEMORY SIZE
     2219                            *  AND ASSIGNING LENGTH AND BASE ADDRESSES FOR TABLES ETC
     2220                            *
     2221         01 00688           ZLBADR   EQU      ZCMS              OPEN LOOP ADDRESS
     2222         01 00689           ZLBPTR   EQU      ZLBADR+1          AND POINTER
     2223         01 0068A           ZLKADR   EQU      ZLBPTR+1          LINK TABLE ADDRESS
     2224         01 0068B           ZLKPTR   EQU      ZLKADR+1          AND POINTER
     2225         01 0068C           ZPMADR   EQU      ZLKPTR+1          PLACE MARKER ADDRESS
     2226         01 0068D           ZPMPTR   EQU      ZPMADR+1          AND POINTER
     2227         01 0068E           ZMFRIOAD EQU      ZPMPTR+1          MAIN FETCH INPUT/OUTPUT ADDRESS
     2228         01 0068F           ZIOADR   EQU      ZMFRIOAD+1        INPUT/OUTPUT BASE ADDRESS
     2229         01 00690           ZIOWDS   EQU      ZIOADR+1          AND NUMBER OF WORDS
     2230         01 00691           ZEXPT0   EQU      ZIOWDS+1          EXECUTE TABLE BASE
     2231         01 00692           ZEXPT1   EQU      ZEXPT0+1          AND VARIABLE POINTERS
     2232         01 00693           ZTEMP    EQU      ZEXPT1+1          TEMPORARY
     2233         01 00694           ZTEMP1   EQU      ZTEMP+1           LOCATIONS
     2234         01 00695           P0       EQU      ZTEMP1+1
     2235         01 00696           P1       EQU      P0+1              LABELED
     2236         01 00697           P2       EQU      P1+1              PARAMETER
     2237         01 00698           P3       EQU      P2+1              AREA FOR
     2238         01 00699           P4       EQU      P3+1              SUBROUTINES
     2239         01 0069A           P5       EQU      P4+1
     2240         01 0069B           P6       EQU      P5+1
     2241         01 0069C           P7       EQU      P6+1
     2242         01 0069D           P8       EQU      P7+1
     2243         01 0069E           P9       EQU      P8+1
     2244         01 0069F           P10      EQU      P9+1
     2245         01 006A0           P11      EQU      P10+1
     2246         01 006A1           P12      EQU      P11+1
     2247         01 006A2           P13      EQU      P12+1
     2248         01 006A3           P14      EQU      P13+1
     2249         01 006A4           P15      EQU      P14+1
     2250         01 006A5           PX       EQU      P15+1
     2251         01 006A6           ZDMPA    EQU      PX+1                DUMP
     2252                            *DELETED RES      10                ADDED FOLLOWING CODE WHICH MAY    *F
     2253                            *                                   BE OVERLAID BY 'TYP' OR 'DMP'     *F
     2254   01 006E4    20261B94 A            ZFMW     2,0,38,BA(%+1)                                      *F
     2255   01 006E5    C3D3D440 A   BUFFMSG  TEXT     'CLM BUFFER MEMORY X''1234''  -  X''5678''
'        *F
            01 006E6    C2E4C6C6 A
            01 006E7    C5D940D4 A
            01 006E8    C5D4D6D9 A
            01 006E9    E840E77D A
            01 006EA    F1F2F3F4 A
            01 006EB    7D404060 A
            01 006EC    4040E77D A
            01 006ED    F5F6F7F8 A
            01 006EE    7D154040 A
     2256                                     PAGE
     2257                            *
     2258                            * SUB-ROUTINE TABLE WITH FORM DIRECTIVE
     2259                            *  TWO WORDS PER SUB-ROUTINE DIVIDED AS FOLLOWS0
     2260                            *   FIRST WORD = MNEMONIC NAME,FOUR ALPHA CHARACTERS MAXIMUM
     2261                            *   SECOND WORD = SUB-ROUTINE INFO AND ENTRY ADDRESS
     2262                            *
     2263         01 006EF           ZSRBEG   EQU      %
     2264   01 006EF    00C3D3D9 A            DATA     X'C3D3D9'         CLR
     2265   01 006F0    D9C5E3D5 A            DATA     X'D9C5E3D5'       RETN
     2266   01 006F1    0000C7D6 A            DATA     X'C7D6'           GO
     2267   01 006F2    00C4D2C2 A            DATA     X'C4D2C2'         DKB
     2268   01 006F3    00C4C3D9 A            DATA     X'C4C3D9'         DCR
     2269   01 006F4    00E2D4D3 A            DATA     X'E2D4D3'         SML
     2270   01 006F5    00E2D4C4 A            DATA     X'E2D4C4'         SMD
     2271   01 006F6    00C1D3E3 A            DATA     X'C1D3E3'         ALT
     2272   01 006F7    00C4D4D7 A            DATA     X'C4D4D7'         DMP
     2273   01 006F8    00E3E8D7 A            DATA     X'E3E8D7'         TYP
     2274   01 006F9    00C8D3E3 A            DATA     X'C8D3E3'         HLT
     2275   01 006FA    C3D6C3E4 A            DATA     C'COCU'
     2276   01 006FB    C4C1E7D3 A            DATA     C'DAXL'
     2277   01 006FC    C4C1D9D3 A            DATA     C'DARL'
     2278   01 006FD    00C4E7D3 A            DATA     C'DXL'
     2279   01 006FE    00C4D9D3 A            DATA     C'DRL'
     2280   01 006FF    00E2E3F1 A            DATA     C'ST1'
     2281   01 00700    00E2E3F2 A            DATA     C'ST2'
     2282   01 00701    E7C4D3E8 A            DATA     C'XDLY'
     2283   01 00702    C4E7D3C4 A            DATA     C'DXLD'
     2284   01 00703    C5D5E5C9 A            DATA     C'ENVI'
     2285   01 00704    00E2D3E2 A            DATA     C'SLS'
     2286   01 00705    00D7C1E3 A            DATA     C'PAT'
     2287   01 00706    C9D5C9E3 A            DATA     C'INIT'
     2288   01 00707    E3F1D9D7 A            DATA     C'T1RP'
     2289   01 00708    00E2D9E2 A            DATA     C'SRS'
     2290   01 00709    00E2E7E2 A            DATA     C'SXS'
     2291   01 0070A    00E2C9D6 A            DATA     C'SIO'
     2292   01 0070B    00C8C9D6 A            DATA     C'HIO'
     2293   01 0070C    00E3C9D6 A            DATA     C'TIO'
     2294   01 0070D    00D9D6D5 A            DATA     C'RON'
     2295   01 0070E    D9D6C6C6 A            DATA     C'ROFF'
     2296   01 0070F    D9C4D6C6 A            DATA     C'RDOF'
     2297   01 00710    E3C2E3C2 A            DATA     C'TBTB'           TEST BACK TO BACK MODE          *F01
     2298   01 00711    E7C4D6C6 A            DATA     C'XDOF'
     2299   01 00712    E7C4E3C1 A            DATA     C'XDTA'
     2300   01 00713    00E7D3E2 A            DATA     C'XLS'
     2301   01 00714    E7E2E3D7 A            DATA     C'XSTP'
     2302   01 00715    E2D3C9D5 A            DATA     C'SLIN'
     2303   01 00716    E3C5E2E3 A            DATA     C'TEST'
     2304   01 00717    C1D3D9D4 A            DATA     C'ALRM'
     2305   01 00718    C4D3C1E8 A            DATA     C'DLAY'
     2306   01 00719    C3D6C4C5 A            DATA     C'CODE'
     2307   01 0071A    D4C1D9D2 A            DATA     C'MARK'
     2308   01 0071B    C4C2E4C6 A            DATA     C'DBUF'
     2309   01 0071C    E3C9D4C5 A            DATA     C'TIME'
     2310   01 0071D    00E3C4E5 A            DATA     C'TDV'
     2311   01 0071E    C9E3D9D7 A            DATA     C'ITRP'
     2312   01 0071F    00C1C9D6 A            DATA     'AIO'
     2313   01 00720    D1D4D7F1 A            DATA     C'JMP1'
     2314   01 00721    D1D4D7F2 A            DATA     C'JMP2'
     2315   01 00722    00C1C4E4 A            DATA     C'ADU'
     2316   01 00723    D7D5E4D4 A            DATA     C'PNUM'
     2317   01 00724    C4C9C1D3 A            DATA     C'DIAL'
     2318   01 00725    C5C3C8D6 A            DATA     C'ECHO'
     2319   01 00726    00D7C9D5 A            DATA     C'PIN'
     2320   01 00727    E2D6E4E3 A            DATA     C'SOUT'
     2321   01 00728    00C4C9C3 A            DATA     C'DIC'
     2322   01 00729    00C4D6C3 A            DATA     C'DOC'
     2323   01 0072A    00C4D3C3 A            DATA     C'DLC'
     2324         01 0072B           ZSRTBL   EQU      %
     2325         0000003C           ZSRLEN   EQU      %-ZSRBEG
     2326                                     PAGE
     2327                            *
     2328                            * SUBROUTINE ADDRESS TABLE WITH CONTROL INFORMATION
     2329                            *
     2330                            *  BITS 0-3       PARAMETER COUNT
     2331                            *  BITS 4-5       RE-ITERATION/IDENTIFIER CODE
     2332                            *                 00  NO LEADING DECIMAL SUBFIELD PERMITTED
     2333                            *                 01  PLACE MARKER IDENTIFIER REQUEST
     2334                            *                 10  REITERATION COUNT
     2335                            *                 11  ILLEGAL
     2336                            *  BITS 6-7       EXECUTION MODE KEYS
     2337                            *                 00  UNCONDITIONAL
     2338                            *                 01  CONTROL LINE MODE ONLY
     2339                            *                 10  IMMEDIATE MODE ONLY
     2340                            *                 11  OPTIONAL CONTROL OR IMMEDIATE MODE
     2341                            *  BITS 8-14      RESERVED
     2342                            *  BITS 15-31     SUBROUTINE ADDRESS
     2343                            *
     2344   01 0072B    000002A3 A            ZFSAT    0,0,0,0,ZPC200    CLR
     2345   01 0072C    03000655 A            ZFSAT    0,0,3,0,ZCONINT   RETN
     2346   01 0072D    02000665 A            ZFSAT    0,0,2,0,ZGOPRO    GO
     2347   01 0072E    1200052C A            ZFSAT    1,0,2,0,ZDKB      DKB
     2348   01 0072F    1200052F A            ZFSAT    1,0,2,0,ZDCR      DCR
     2349   01 00730    13000539 A            ZFSAT    1,0,3,0,ZSML      SML
     2350   01 00731    1300053E A            ZFSAT    1,0,3,0,ZSMD      SMD
     2351   01 00732    00000552 A            ZFSAT    0,0,0,0,ZALT      ALT
     2352   01 00733    3300056C A            ZFSAT    3,0,3,0,ZDMP      DMP
     2353   01 00734    33000567 A            ZFSAT    3,0,3,0,ZTYP      TYP
     2354   01 00735    17000543 A            ZFSAT    1,1,3,0,ZHLT      HLT
     2355   01 00736    4300085E A            ZFSAT    4,0,3,0,UNIT00
     2356   01 00737    230008E4 A            ZFSAT    2,0,3,0,DAXC00
     2357   01 00738    43000904 A            ZFSAT    4,0,3,0,DARC00                                    *F01
     2358   01 00739    13000908 A            ZFSAT    1,0,3,0,DXC00
     2359   01 0073A    1300090B A            ZFSAT    1,0,3,0,DRC00
     2360   01 0073B    5700099B A            ZFSAT    5,1,3,0,START00   * ADDED 3 PARAMETERS TO 'ST1' DIR.*F
     2361   01 0073C    270012BC A            ZFSAT    2,1,3,0,ST200     ADDED ONE PARAM. TO ST2         *F01
     2362   01 0073D    23000EA7 A            ZFSAT    2,0,3,0,DLAY00
     2363   01 0073E    23000EB9 A            ZFSAT    2,0,3,0,DXLD00
     2364   01 0073F    17000EC6 A            ZFSAT    1,1,3,0,ENVIRO    * WAS '0,0,3,0,ENVIRO             *F
     2365   01 00740    23000EFA A            ZFSAT    2,0,3,0,SLS00
     2366   01 00741    13000F95 A            ZFSAT    1,0,3,0,PAT00
     2367   01 00742    02001768 A            ZFSAT    0,0,2,0,INITIAL
     2368   01 00743    1300119B A            ZFSAT    1,0,3,0,IRPT00
     2369   01 00744    270011F9 A            ZFSAT    2,1,3,0,SRS00
     2370   01 00745    27001211 A            ZFSAT    2,1,3,0,STS00
     2371   01 00746    3700122A A            ZFSAT    3,1,3,0,SIO00                                     *F01
     2372   01 00747    0700124A A            ZFSAT    0,1,3,0,HIO00
     2373   01 00748    1700125B A            ZFSAT    1,1,3,0,TIO00
     2374   01 00749    13001298 A            ZFSAT    1,0,3,0,RON00
     2375   01 0074A    1300129A A            ZFSAT    1,0,3,0,ROFF00
     2376   01 0074B    1300129C A            ZFSAT    1,0,3,0,RDOF00
     2377   01 0074C    1700090E A            ZFSAT    1,1,3,0,TBTB00                                    *F01
     2378   01 0074D    1300129E A            ZFSAT    1,0,3,0,XDOF00
     2379   01 0074E    33000F38 A            ZFSAT    3,0,3,0,XDAT00
     2380   01 0074F    130012A1 A            ZFSAT    1,0,3,0,XLS00
     2381   01 00750    130012A3 A            ZFSAT    1,0,3,0,XSTP00
     2382   01 00751    03000F15 A            ZFSAT    0,0,3,0,SLN00
     2383   01 00752    130016CA A            ZFSAT    1,0,3,0,SELTEST
     2384   01 00753    13000F4F A            ZFSAT    1,0,3,0,ALARM
     2385   01 00754    1B000F06 A            ZFSAT    1,2,3,0,DELAY
     2386   01 00755    12001568 A            ZFSAT    1,0,2,0,CODECON
     2387   01 00756    13000F48 A            ZFSAT    1,0,3,0,MARK00
     2388   01 00757    13000F29 A            ZFSAT    1,0,3,0,IODM00
     2389   01 00758    13000F56 A            ZFSAT    1,0,3,0,TIME00
     2390   01 00759    0300126E A            ZFSAT    0,0,3,0,TDV00
     2391   01 0075A    03000F73 A            ZFSAT    0,0,3,0,ITRP00
     2392   01 0075B    0300127A A            ZFSAT    0,0,3,0,AIO00
     2393   01 0075C    33000000 A            ZFSAT    3,0,3,0,0         DUMMY
     2394   01 0075D    33000000 A            ZFSAT    3,0,3,0,0         DUMMY
     2395   01 0075E    23001724 A            ZFSAT    2,0,3,0,ADU
     2396   01 0075F    2300172E A            ZFSAT    2,0,3,0,PNUM
     2397   01 00760    0700173D A            ZFSAT    0,1,3,0,DIAL
     2398   01 00761    03001445 A            ZFSAT    0,0,3,0,ECHO
     2399   01 00762    030014F7 A            ZFSAT    0,0,3,0,PATIN00
     2400   01 00763    03001530 A            ZFSAT    0,0,3,0,STOUT
     2401   01 00764    3300141D A            ZFSAT    3,0,3,0,DIC00
     2402   01 00765    330013FF A            ZFSAT    3,0,3,0,DOC00
     2403   01 00766    13001432 A            ZFSAT    1,0,3,0,DLC00
     2404         01 00767           ZSRADR   EQU      %
     2405                                     PAGE
     2406                            *
     2407                            *                                                                     *F
     2408                            *                                                                     *F
     2409                            *        A B O R T   S E Q U E N C E   C A L L I N G   P R O C .      *F
     2410                            *                                                                     *F
     2411                            *                                                                     *F
     2412         00000000           ABORT    CNAME                                                        *F
     2413                                     PROC                                                         *F
     2414                            LF       GEN,8,18,6  X'4',0,AF(1)   CAL1,0 WITH ABORT NO. IN IA 26-31.*F
     2415                                     ERROR,0,NUM(AF)=0 'ERROR NUMBER MISSING'                     *F
     2416                                     ERROR,0,AF(1)<0 'ERROR NUMBER NEGATIVE'                      *F
     2417                                     ERROR,0,AF(1)>36 'ERROR NUMBER UNDEFINED'                    *F
     2418                                     PEND                                                         *F
     2419                            *                                                                     *F
     2420                            *                                                                     *F
     2421                            *                                                                     *F
     2422                            *
     2423                            *        D I R E C T I V E  T E S T  P R O C
     2424                            *
     2425                            *
     2426         00000000           TESTIT   CNAME
     2427                                     PROC
     2428                                     OPEN     X
     2429                            X        SET      0
     2430                            I        DO       NUM(AF)
     2431                            X        SET      X|1**AF(I)
     2432                                     FIN
     2433                            LF       BAL,14   TESTER
     2434                                     DATA     X
     2435                                     CLOSE    X
     2436                                     PEND
     2437                            *
     2438                            *
     2439                                     PAGE
     2440                            *
     2441                            *
     2442                            *        F I F O  L I S T  P R O C E S S O R  C A L L I N G  P R O C
     2443                            *
     2444                            *
     2445         00000000           PUSH     CNAME    0
     2446         00000001           PULL     CNAME    1
     2447                                     PROC
     2448                                     OPEN     X
     2449                            X        SET      CF(2)
     2450                                     DO       NAME
     2451                            LF       CAL2,8   0
     2452                                     LW,X     AF(1),1
     2453                                     ELSE
     2454                            LF       CAL2,0   0
     2455                                     STW,X    AF(1),1
     2456                                     FIN
     2457                                     CLOSE    X
     2458                                     PEND
     2459                            *
     2460                            *
     2461                                     PAGE
     2462                            *
     2463                            *
     2464                            *        C O D E  C O N V E R S I O N  P R O C
     2465                            *
     2466                            *
     2467         00000000           RECODE   CNAME
     2468                                     PROC
     2469                                     OPEN     X
     2470                            X        SET      AFA(1)
     2471                            LF       CAL3,X   AF(1)
     2472                                     GEN,16,16 ABSVAL(AF(2)),ABSVAL(AF(3))
     2473                                     CLOSE    X
     2474                                     PEND
     2475                                     PAGE
     2476                            *                 DELETED UNUSED 'RECORD TRANSFER PROCEDURE'          *F
     2477                            *
     2478                            *
     2479                            *        R E C E I V E  I N T E R R U P T  R O U T I N E
     2480                            *                 REGISTERS 6,8,9,10
     2481                            *
     2482                                     BOUND    8
     2483                            *
     2484                            *
     2485   01 00768    00000000 A   RINT     DATA     0,0,%+2,7**24
            01 00769    00000000 A
            01 0076A    0000076C
            01 0076B    07000000 A
     2486   01 0076C    0E30076E              LPSD,3   RINT000
     2487                                     BOUND    8
     2488   01 0076E    00000770     RINT000  DATA     %+2,7**24
            01 0076F    07000000 A
     2489   01 00770    CD901DCC              TIO,9    *IODEVICE
     2490   01 00771    21900001 A            CI,9     1
     2491   01 00772    68400774              BCR,4    %+2
     2492   01 00773    04000002 A            ABORT    2                 RECEIVE BYTE COUNT IS ODD         *F
     2493   01 00774    5A920009 A            LCH,9    9,1
     2494   01 00775    20900082 A            AI,9     130               CALCULATE BYTES INPUT             *F
     2495                            *             WAS 128 WHICH FALSELY INDICATED ABORT 8 WITH 64 LINES   *F
     2496   01 00776    2590007F A            SLS,9    -1                HALFWORD INDEX VALUE
     2497   01 00777    35901DDD              STW,9    SAVE3
     2498   01 00778    31901DDC              CW,9     SAVE2
     2499   01 00779    6810077B              BCR,1    %+2
     2500   01 0077A    33101E09              MTW,1    FLAG3             SET WRAP-AROUND FLAG
     2501   01 0077B    31901DDC              CW,9     SAVE2
     2502   01 0077C    6930077E              BCS,3    %+2
     2503   01 0077D    680007E5              B        RI07
     2504   01 0077E    22600000 A            LI,6     0
     2505   01 0077F    35601E13              STW,6    FLAG13            RESET INTERRUPT ERROR FLAG
     2506   01 00780    32601DDC     RI00     LW,6     SAVE2
     2507   01 00781    528C1BE6     RI01     LH,8     IOBUFF,6
     2508   01 00782    20800040 A            AI,8     1**6
     2509   01 00783    558C1BE6              STH,8    IOBUFF,6          SET INDICATOR
     2510   01 00784    2580017A A            SLD,8    -6                LINE NUMBER IN 9
     2511   01 00785    2580007E A            SLS,8    -2                DATA IN  8
     2512   01 00786    25900066 A            SLS,9    -26               RIGHT JUSTIFY
     2513   01 00787    35900006 A            STW,9    6
     2514   01 00788    35901DD6              STW,9    ERRORWD
     2515                            *                 MOVED 6 LINES HIGHER IN MEMORY (FOL. TIME SAVE)     *F
     2516   01 00789    329C1804              LW,9     RTWT,6                                              *F
     2517                            *DELETED LW,6     RTWT,6                                              *F
     2518   01 0078A    6910078C              BCS,1    %+2               B IF ACTIVE
     2519   01 0078B    04000003 A            ABORT    3                    RECEIVER XX NOT ACTIVE         *F
     2520   01 0078C    32A01E01              LW,10    TIME               SAVE TIME OF                     *F
     2521   01 0078D    35AC19E6              STW,10   RTTWT,6            CURRENT INTERRUPT SERVICE        *F
     2522   01 0078E    331C18E4              MTW,1    RFTWT,6           CHARACTER COUNT                   *F
     2523   01 0078F    72620009 A            LB,6     9,1               GET TURNAROUND TRANSMITTER NO.    *F
     2524                            *DELETED LB,6     6,1                                                 *F
     2525   01 00790    32AC17C4              LW,10    XTWT,6
     2526   01 00791    6C000000 A            RD,0     0
     2527   01 00792    69200796              BCS,2    %+4
     2528   01 00793    21A10000 A            CI,10    1**16
     2529   01 00794    68400796              BCR,4    %+2               B IF TRANSMIT INTERRUPT
     2530   01 00795    04000011 A            ABORT    17                2 RECV INTR:   NO XMIT INTR L=XX  *F
     2531   01 00796    49A0214E              OR,10    L(1**16)          SET INTERRUPT RECEIVED FLAG
     2532   01 00797    35AC17C4              STW,10   XTWT,6
     2533   01 00798    32601DDC              LW,6     SAVE2
     2534   01 00799    22900080 A            LI,9     1**7
     2535   01 0079A    519C1BE6              CH,9     IOBUFF,6
     2536   01 0079B    684007AF              BCR,4    RI03              B IF LS BIT NOT SET
     2537   01 0079C    33101DDC     RI01A    MTW,1    SAVE2
     2538   01 0079D    32601DDC              LW,6     SAVE2
     2539   01 0079E    21600040 A            CI,6     64                **WAS CI,6  63**  64-LINES PROB.  *F
     2540   01 0079F    682007A2              BCR,2    %+3
     2541   01 007A0    22600000 A            LI,6     0
     2542   01 007A1    35601E09              STW,6    FLAG3
     2543   01 007A2    35601DDC              STW,6    SAVE2
     2544   01 007A3    31601DDD              CW,6     SAVE3
     2545   01 007A4    69100781              BCS,1    RI01
     2546   01 007A5    33001E09              MTW,0    FLAG3
     2547   01 007A6    69300781              BCS,3    RI01
     2548   01 007A7    6D000031 A   RI02     WD,0     X'31'             FOLLOWING IS EXIT ROUTINE
     2549   01 007A8    35F00009 A            STW,15   9
     2550   01 007A9    32F01DD2              LW,15    RECBIT
     2551   01 007AA    67001EAD              EXU      ENRI
     2552   01 007AB    32F01DDD              LW,15    SAVE3
     2553   01 007AC    35F01DDC              STW,15   SAVE2
     2554   01 007AD    32F00009 A            LW,15    9
     2555   01 007AE    0E300768              LPSD,3   RINT
     2556                            *
     2557   01 007AF    7290000A A   RI03     LB,9     10                FETCH FORMAT
     2558   01 007B0    4B90214F              AND,9    L(X'70')
     2559   01 007B1    2590007C A            SLS,9    -4
     2560   01 007B2    35900006 A            STW,9    6
     2561   01 007B3    329C1E76              LW,9     RMASK,6
     2562   01 007B4    35901DD7              STW,9    CMASK
     2563   01 007B5    21600001 A            CI,6     1
     2564   01 007B6    693007C0              BCS,3    RI05              BRANCH IF NOT FORMAT 1
     2565   01 007B7    25A00272 A            SCS,10   -14
     2566   01 007B8    22900020 A            LI,9     1**5
     2567   01 007B9    4580000A A            CS,8     10
     2568   01 007BA    683007BF              BCR,3    RI04              BRANCH IF NO CASE SHIFT ERROR
     2569   01 007BB    32601DD6              LW,6     ERRORWD
     2570   01 007BC    331C1964              MTW,1    CSETWT,6
     2571   01 007BD    49602150              OR,6     L(1**8)
     2572   01 007BE    35601DD6              STW,6    ERRORWD
     2573   01 007BF    25A0020E A   RI04     SCS,10   14
     2574   01 007C0    32601DD6     RI05     LW,6     ERRORWD
     2575   01 007C1    4B602151              AND,6    L(63)
     2576                            *                 MOVED 2 INSTRUCTIONS TO FOLLOWING 'ABORT 3'         *F
     2577   01 007C2    32901DD7              LW,9     CMASK
     2578   01 007C3    7266000A A            LB,6     10,3
     2579   01 007C4    F2AC1E9C              LB,10    *PATTERNP,6       GET EXPECTED CHARACTER            *F
     2580                            *DELETED LB,10    PATTERN,6                                           *F
     2581   01 007C5    4580000A A            CS,8     10
     2582   01 007C6    693007CA              BCS,3    %+4
     2583   01 007C7    32901DD6              LW,9     ERRORWD
     2584   01 007C8    21900100 A            CI,9     1**8
     2585   01 007C9    6840079C              BCR,4    RI01A
     2586   01 007CA    72661DD6              LB,6     ERRORWD,3
     2587   01 007CB    331C1924              MTW,1    RETWT,6
     2588   01 007CC    688007CE              BCR,8    %+2                                                 *F
     2589   01 007CD    0400001E A            ABORT    30                'EXCESSIVE ERRORS FOR LINE DD     *F
     2590                            *                 ADDED 2 ABOVE INSTRUCTIONS                          *F
     2591   01 007CE    4B801DD7              AND,8    CMASK
     2592   01 007CF    4BA01DD7              AND,10   CMASK
     2593   01 007D0    75821DD6              STB,8    ERRORWD,1
     2594   01 007D1    75A01DD6              STB,10   ERRORWD
     2595   01 007D2    32801DD6              LW,8     ERRORWD
     2596   01 007D3    31201E2A              CW,2     SPACE0
     2597   01 007D4    682007D7              BCR,2    %+3               B IF SPACE >= 2
     2598   01 007D5    33101E13              MTW,1    FLAG13
     2599   01 007D6    680007E1              B        RI06
     2600   01 007D7    33001E13              MTW,0    FLAG13
     2601   01 007D8    683007DC              BCR,3    %+4               B IF ALL ERRORS REPORTED
     2602   01 007D9    22900000 A            LI,9     0
     2603   01 007DA    35901E13              STW,9    FLAG13
     2604   01 007DB    20800200 A            AI,8     1**9              SET ERROR LOSS FLAG
     2605   01 007DC    05000000 A            PUSH,8   ELIST1
            01 007DD    35821C66
     2606   01 007DE    32801E01              LW,8     TIME
     2607   01 007DF    05000000 A            PUSH,8   ELIST1
            01 007E0    35821C66
     2608   01 007E1    32601DDB     RI06     LW,6     SAVE1
     2609   01 007E2    22940000 A            LI,9     1**18
     2610   01 007E3    479C17C4              STS,9    XTWT,6
     2611   01 007E4    6800079C              B        RI01A
     2612   01 007E5    33001E13     RI07     MTW,0    FLAG13
     2613   01 007E6    683007E8              BCR,3    %+2               B IF FLAG NOT SET
     2614   01 007E7    04000010 A            ABORT    16                2 RECV INTR:   NO DATA XFERRED    *F
     2615   01 007E8    33101E13              MTW,1    FLAG13            SET INTERRUPT ERROR LFAG
     2616   01 007E9    680007A7              B        RI02              EXIT
     2617                            *
     2618                            *
     2619                                     PAGE
     2620                            *
     2621                            *
     2622                            *        T R A N S M I T  I N T E R R U P T  R O U T I N E
     2623                            *
     2624                            *
     2625                                     BOUND    8
     2626                            *
     2627                            *
     2628   01 007EA    00000000 A   XINTR    DATA     0,0,%+2,7**24
            01 007EB    00000000 A
            01 007EC    000007EE
            01 007ED    07000000 A
     2629   01 007EE    35F01DDA              STW,15   SAVE0
     2630   01 007EF    35701DDE              STW,7    SAVE4
     2631   01 007F0    33001E12              MTW,0    FLAG12            ZERO IF PSUEDO INTERRUPT
     2632   01 007F1    693007F4              BCS,3    %+3
     2633   01 007F2    32F00007 A            LW,15    7                 LINE NO IS IN (7)
     2634   01 007F3    680007F5              B        %+2
     2635   01 007F4    67001E75              EXU      LINENO
     2636   01 007F5    4BF02151              AND,15   L(63)
     2637   01 007F6    35F00007 A            STW,15   7                 LINE NO. IS LEFT IN 15
     2638   01 007F7    35F01E03              STW,15   ERRORWD1
     2639   01 007F8    32B01E01              LW,11    TIME
     2640   01 007F9    35BE19A4              STW,11   LDTIMTAB,7
     2641   01 007FA    32BE17C4              LW,11    XTWT,7
     2642   01 007FB    691007FD              BCS,1    %+2
     2643   01 007FC    04000000 A            ABORT    0                 TRANSMITTER XX NOT ACTIVE         *F
     2644   01 007FD    67001E6D              EXU      STS                                                 *F
     2645   01 007FE    69200800              BCS,2    %+2                                                 *F
     2646   01 007FF    04000005 A            ABORT    5                  TRANSMITTER XX NOT INSTALLED     *F
     2647   01 00800    21B20000 A   XI01     CI,11    1**17
     2648   01 00801    68400806              BCR,4    XI02              B IF NOT FIRST TIME
     2649   01 00802    48B02152              EOR,11   L(1**17)
     2650   01 00803    35BE17C4              STW,11   XTWT,7
     2651   01 00804    67001E74              EXU      XSTOP
     2652   01 00805    68000825              B        XI02A
     2653   01 00806    31B02153     XI02     CW,11    L(1**20)
     2654   01 00807    69400846              BCS,4    XI05              B FOR LS
     2655   01 00808    67001E6D              EXU      STS                                                 *F
     2656   01 00809    6910080B              BCS,1    %+2                                                 *F
     2657   01 0080A    04000001 A            ABORT    1                 TRANSMITTER XX BUSY               *F
     2658   01 0080B    31B02154              CW,11    L(1**21)
     2659   01 0080C    6940084C              BCS,4    XI06              B FOR DELAY
     2660   01 0080D    21B10000 A   XI02C    CI,11    1**16             REC INTERRUPT
     2661   01 0080E    6940082C              BCS,4    XI03              YES
     2662   01 0080F    6C000000 A            RD,0     0
     2663   01 00810    6920082C              BCS,2    XI03
     2664   01 00811    35801DE2     XI08     STW,8    SAVE8
     2665   01 00812    35901DE3              STW,9    SAVE9
     2666   01 00813    22800000 A            LI,8     0
     2667   01 00814    22900001 A            LI,9     1
     2668   01 00815    258E0100 A            SLD,8    0,7
     2669   01 00816    479019E5              STS,9    LDBITAB+1
     2670   01 00817    25800360 A            SCD,8    -32
     2671   01 00818    479019E4              STS,9    LDBITAB
     2672   01 00819    32801DE2              LW,8     SAVE8
     2673   01 0081A    32901DE3              LW,9     SAVE9
     2674   01 0081B    67001E74              EXU      XSTOP
     2675   01 0081C    68000825              B        XI02A
     2676   01 0081D    4BB02155     XI02B    AND,11   L(X'FFFEFFFF')
     2677   01 0081E    35BE17C4              STW,11   XTWT,7
     2678   01 0081F    331E18A4              MTW,1    XFTWT,7
     2679   01 00820    7276000B A            LB,7     11,3
     2680   01 00821    F2BE1E9C              LB,11    *PATTERNP,7                                         *F
     2681                            *DELETED LB,11    PATTERN,7                                           *F
     2682   01 00822    25B00008 A            SLS,11   8
     2683   01 00823    49F0000B A            OR,15    11
     2684                            *                 MOVED 3 INSTRUCTIONS TO PRECEDE 'XI01'              *F
     2685   01 00824    67001E72              EXU      XDATA
     2686   01 00825    32F01DDA     XI02A    LW,15    SAVE0
     2687   01 00826    32701DDE              LW,7     SAVE4
     2688   01 00827    33001E12              MTW,0    FLAG12
     2689   01 00828    6830082A              BCR,3    %+2               B FOR PSUEDO INTERRUPT
     2690   01 00829    0E3007EA              LPSD,3   XINTR
     2691   01 0082A    33101E12              MTW,1    FLAG12
     2692   01 0082B    0E0007EA              LPSD,0   XINTR
     2693                            *
     2694   01 0082C    72C0000B A   XI03     LB,12    11
     2695   01 0082D    25C0007C A            SLS,12   -4
     2696   01 0082E    4BC02156              AND,12   L(7)
     2697   01 0082F    21C00001 A            CI,12    1
     2698   01 00830    6930083D              BCS,3    XI04              BRANCH IF NOT FORMAT 1
     2699   01 00831    7276000B A            LB,7     11,3
     2700   01 00832    F2CE1E9C              LB,12    *PATTERNP,7                                         *F
     2701                            *DELETED LB,12    PATTERN,7                                           *F
     2702   01 00833    4BC02157              AND,12   L(X'1F')
     2703   01 00834    3270000F A            LW,7     15
     2704   01 00835    21C0001F A            CI,12    X'1F'
     2705   01 00836    6830083A              BCR,3    %+4               BRANCH IF LWTTERS CODE
     2706   01 00837    21C0001B A            CI,12    X'1B'
     2707   01 00838    6930083D              BCS,3    XI04              BRANCH IF NOT FIGURES CODE
     2708   01 00839    22C80000 A            LI,12    1**19
     2709   01 0083A    4BC02158              AND,12   L(1**19)
     2710   01 0083B    4BB02159              AND,11   L(X'FFF7FFFF')
     2711   01 0083C    49B0000C A            OR,11    12
     2712   01 0083D    21B40000 A   XI04     CI,11    1**18
     2713   01 0083E    69400853              BCS,4    XI07
     2714   01 0083F    32C01DCF     XI04A    LW,12    XLENGTH           *WAS 'TLENGTH'                    *F
     2715   01 00840    51C2000B A            CH,12    11,1
     2716   01 00841    68200844              BCR,2    %+3
     2717   01 00842    20B00001 A            AI,11    1
     2718   01 00843    68000845              B        %+2
     2719   01 00844    4BB0215A              AND,11   L(X'FFFF0000')
     2720   01 00845    6800081D              B        XI02B
     2721                            *
     2722   01 00846    67001E6D     XI05     EXU      STS
     2723   01 00847    68100849              BCR,1    %+2
     2724   01 00848    04000007 A            ABORT    7                 XMITTER XX FAILS TO STAY BUSY     *F
     2725   01 00849    67001E73              EXU      XLS
     2726   01 0084A    331E18A4              MTW,1    XFTWT,7
     2727   01 0084B    68000825              B        XI02A
     2728                            *
     2729   01 0084C    31B0215B     XI06     CW,11    L(1**22)
     2730   01 0084D    69400851              BCS,4    %+4
     2731   01 0084E    49B0215B              OR,11    L(1**22)
     2732   01 0084F    35BE17C4              STW,11   XTWT,7
     2733   01 00850    68000811              B        XI08
     2734   01 00851    4BB0215C              AND,11   L(X'FFBFFFFF')
     2735   01 00852    6800080D              B         XI02C
     2736                            *
     2737   01 00853    6C000000 A   XI07     RD,0     0
     2738   01 00854    69400857              BCS,4    %+3
     2739   01 00855    4BB0215D              AND,11   L(X'FFFBFFFF')
     2740   01 00856    6800083F              B        XI04A
     2741   01 00857    6920081D              BCS,2    XI02B
     2742   01 00858    4BB0215D              AND,11   L(X'FFFBFFFF')
     2743   01 00859    6800081D              B        XI02B
     2744                            *
     2745                            *
     2746                                     PAGE
     2747                            *
     2748                            *
     2749                            *        C O C  U N I T  R O U T I N E
     2750                            *
     2751                            *
     2752   01 0085A    40000000 A            DATA     4**28             COC NO.
     2753   01 0085B    40000000 A            DATA     4**28             DEVICE NO.
     2754   01 0085C    40000000 A            DATA     4**28             RECEIVE INTERRUPT LOCATION
     2755   01 0085D    40000000 A            DATA     4**28             SEND    INTERRUPT LOCATION
     2756                            *
     2757                            *
     2758   01 0085E    32100697     UNIT00   LW,1     P2
     2759   01 0085F    6AE016D5              TESTIT   0
            01 00860    00000001 A
     2760   01 00861    35101DCC              STW,1    IODEVICE
     2761   01 00862    35F00893              STW,15   COCUEXIT+1                                          *F
     2762   01 00863    22400005 A            LI,4     5                 TEST 2, TEST 0 ONLY               *F
     2763   01 00864    35401179              STW,4    CPINT+5                                             *F
     2764   01 00865    CF000697              HIO,0    *P2                                                 *F
     2765   01 00866    698008B1              BCS,8    NRECOGP2                                            *F
     2766   01 00867    22000BCB              LI,0     DA(CP04)                                            *F
     2767   01 00868    CC000697              SIO,0    *P2                                                 *F
     2768   01 00869    CF400697              HIO,4    *P2                                                 *F
     2769   01 0086A    38000004 A            SW,0     4                                                   *F
     2770   01 0086B    6810086E              BCR,1    %+3               BRANCH IF IOP FAST MEM. PRESENT   *F
     2771   01 0086C    32C0205D              LW,12    MW51                                                *F
     2772   01 0086D    680005C8              B        ZSML40                                              *F
     2773   01 0086E    32200696              LW,2     P1
     2774   01 0086F    223000F0 A            LI,3     X'F0'
     2775   01 00870    25200004 A            SLS,2    4
     2776   01 00871    2240000A A            LI,4     10
     2777   01 00872    47281E6B              STS,2    SRS-1,4
     2778   01 00873    64400872              BDR,4    %-1
     2779   01 00874    32E00894              LW,14    TRIGTEST-1                                          *F
     2780   01 00875    46E00046 A            XW,14    X'46'                                               *F
     2781   01 00876    67001E75     COCURD   EXU      LINENO                                              *F
     2782   01 00877    46E00046 A            XW,14    X'46'             RESTORE 'DCP' 'WDT' ACTION        *F
     2783   01 00878    32F00893              LW,15    COCUEXIT+1        RESTORE RETURN ADDRESS            *F
     2784   01 00879    32200698              LW,2     P3
     2785   01 0087A    6AE008BB              BAL,14   UN01
     2786   01 0087B    35201DD8              STW,2    RIADR
     2787   01 0087C    35301DD4              STW,3    RICODE
     2788   01 0087D    35401DD2              STW,4    RECBIT
     2789   01 0087E    6AE008C9              BAL,14   UN02                                                *F
     2790   01 0087F    32200699              LW,2     P4
     2791   01 00880    31200698              CW,2     P3                                                  *F
     2792   01 00881    683008BD              BCR,3    UN01+2            BRANCH IF SAME AS RECEIVE LEVEL   *F
     2793   01 00882    6AE008BB              BAL,14   UN01
     2794   01 00883    35201DD9              STW,2    XIADR
     2795   01 00884    35301DD5              STW,3    XICODE
     2796   01 00885    35401DD3              STW,4    XMTBIT
     2797   01 00886    6AE008C9              BAL,14   UN02                                                *F
     2798   01 00887    22300003 A            LI,3     3
     2799   01 00888    72261DD4              LB,2     RICODE,3
     2800   01 00889    75261EB3              STB,2    ADRICODE,3
     2801   01 0088A    75261EB4              STB,2    DARICODE,3
     2802   01 0088B    75261EB5              STB,2    ENRICODE,3
     2803   01 0088C    75261EB6              STB,2    AERICODE,3
     2804   01 0088D    72261DD5              LB,2     XICODE,3
     2805   01 0088E    75261EB7              STB,2    DAXICODE,3
     2806   01 0088F    75261EB8              STB,2    AEXICODE,3
     2807   01 00890    2240000F A            LI,4     15                TEST 0 THROUGH TEST 3 VALID       *F
     2808   01 00891    35401179              STW,4    CPINT+5                                             *F
     2809   01 00892    E8000893     COCUEXIT B        *%+1                                                *F
     2810   01 00893                          RES      1                                                   *F
     2811   01 00894    0F00089E              XPSD,0   DIOTEST                                             *F
     2812   01 00895    0F000896     TRIGTEST XPSD,0   ADDRGOOD                                            *F
     2813                                     BOUND    8                                                   *F
     2814   01 00896    00000000 A   ADDRGOOD DATA     0,0,%+3,7**24                                       *F
            01 00897    00000000 A
            01 00898    0000089B
            01 00899    07000000 A
     2815   01 0089A    E800000E A            B        *14                                                 *F
     2816   01 0089B    0E20089C              LPSD,2   %+1                                                 *F
     2817   01 0089C    0000089A              DATA     %-2                                                 *F
     2818   01 0089D    00000000 A            DATA     0                                                   *F
     2819   01 0089E    00000000 A   DIOTEST  DATA     0,0,%+2,0                                           *F
            01 0089F    00000000 A
            01 008A0    000008A2
            01 008A1    00000000 A
     2820   01 008A2    67000877              EXU      COCURD+1                                            *F
     2821   01 008A3    32F00893              LW,15    COCUEXIT+1        RESTORE RETURN ADDRESS            *F
     2822   01 008A4    32C008A6              LW,12    %+2                                                 *F
     2823   01 008A5    680005C8              B        ZSML40                                              *F
     2824   01 008A6    2025229C A            ZFMW     2,0,37,BA(%+1)                                      *F
     2825   01 008A7    D7F140C1 A            TEXT     'P1 ADDRESS CAUSES WATCHDOG TIMER TRAP'             *F
            01 008A8    C4C4D9C5 A
            01 008A9    E2E240C3 A
            01 008AA    C1E4E2C5 A
            01 008AB    E240E6C1 A
            01 008AC    E3C3C8C4 A
            01 008AD    D6C740E3 A
            01 008AE    C9D4C5D9 A
            01 008AF    40E3D9C1 A
            01 008B0    D7404040 A
     2826   01 008B1    32C008B3     NRECOGP2 LW,12    %+2                                                 *F
     2827   01 008B2    680005C8              B        ZSML40                                              *F
     2828   01 008B3    201922D0 A            ZFMW     2,0,25,BA(%+1)                                      *F
     2829   01 008B4    D7F240C1 A            TEXT     'P2 ADDRESS NOT RECOGNIZED'                         *F
            01 008B5    C4C4D9C5 A
            01 008B6    E2E240D5 A
            01 008B7    D6E340D9 A
            01 008B8    C5C3D6C7 A
            01 008B9    D5C9E9C5 A
            01 008BA    C4404040 A
     2830                            *
     2831   01 008BB    1920178C     UN01     CLM,2    LIMIT1
     2832   01 008BC    686008C0              BCR,6    %+4
     2833   01 008BD    32C01EDC              LW,12    MW01
     2834   01 008BE    022000C0 A            LCI      12
     2835   01 008BF    680005C9              B        ZTWLP
     2836   01 008C0    35200004 A            STW,2    4
     2837   01 008C1    204FFFA0 A            AI,4     -96
     2838   01 008C2    22500000 A            LI,5     0
     2839   01 008C3    2540037C A            SCD,4    -4
     2840   01 008C4    35400003 A            STW,4    3
     2841   01 008C5    20300002 A            AI,3     2
     2842   01 008C6    25500064 A            SLS,5    -28
     2843   01 008C7    524A1E9D              LH,4     BITAB,5
     2844   01 008C8    E800000E A            B        *14
     2845   01 008C9    32500895     UN02     LW,5     TRIGTEST                                            *F
     2846   01 008CA    B5500002 A            STW,5    *2                                                  *F
     2847   01 008CB    20301200 A            AI,3     X'1200'           ARM AND ENABLE                    *F
     2848   01 008CC    ED400003 A            WD,4     *3                                                  *F
     2849   01 008CD    20300500 A            AI,3     X'500'                                              *F
     2850   01 008CE    ED400003 A            WD,4     *3                TRIGGER                           *F
     2851                            *                 CONTROL WILL PASS TO 'ADDRGOOD' IF LEVEL OPERATIONAL*F
     2852   01 008CF    203FFA00 A            AI,3     -X'600'                                             *F
     2853   01 008D0    ED400003 A            WD,4     *3                DISARM AND DISABLE                *F
     2854   01 008D1    46E0000F A            XW,14    15                                                  *F
     2855   01 008D2    32C00002 A            LW,12    2                                                   *F
     2856   01 008D3    6AF004FF              BAL,15   ZBTH                                                *F
     2857   01 008D4    35D008DC              STW,13   %+8                                                 *F
     2858   01 008D5    32C008D8              LW,12    %+3                                                 *F
     2859   01 008D6    6AF005C8              BAL,15   ZSML40                                              *F
     2860   01 008D7    E800000E A            B        *14                                                 *F
     2861   01 008D8    00212364 A            ZFMW     0,0,33,BA(%+1)                                      *F
     2862   01 008D9    1515C9D5 A            TEXT     '

INTERRUPT 0123 DOES NOT TRIGGER'                 *F
            01 008DA    E3C5D9D9 A
            01 008DB    E4D7E340 A
            01 008DC    F0F1F2F3 A
            01 008DD    40C4D6C5 A
            01 008DE    E240D5D6 A
            01 008DF    E340E3D9 A
            01 008E0    C9C7C7C5 A
            01 008E1    D9404040 A
     2863                            *
     2864                            *
     2865                                     PAGE
     2866                            *
     2867                            *
     2868                            *        L I N E  N U M B E R  R O U T I N E
     2869                            *
     2870                            *
     2871   01 008E2    20000000 A            DATA     2**28
     2872   01 008E3    20000000 A            DATA     2**28
     2873                            *
     2874                            *
     2875   01 008E4    22700008 A   DAXC00   LI,7     1**3
     2876   01 008E5    32400696     LINO     LW,4     P1
     2877   01 008E6    6AE016D5              TESTIT   0,1,2,3
            01 008E7    0000000F A
     2878   01 008E8    4B402151              AND,4    L(63)
     2879   01 008E9    32500697              LW,5     P2
     2880   01 008EA    4B502156              AND,5    L(7)
     2881   01 008EB    49500007 A            OR,5     7
     2882   01 008EC    2550001C A            SLS,5    28
     2883   01 008ED    33000003 A            MTW,0    3
     2884   01 008EE    683008F5              BCR,3    LINO1             BRANCH IF 'DRAL','DRL' DIRECTIVE*F01
     2885   01 008EF    227001B0 A            LI,7     X'1B'**4                                          *F01
     2886   01 008F0    25700210 A            SCS,7    16                                                 .*F
     2887   01 008F1    4A7817C4              LS,7     XTWT,4            SAVE EXISTING 'SLS', 'XDLY' BITS. *F
     2888   01 008F2    49500007 A            OR,5     7                                                   *F
     2889   01 008F3    355817C4              STW,5    XTWT,4
     2890   01 008F4    E800000F A            B        *15
     2891                            *                                                                     *F
     2892   01 008F5    32600698     LINO1    LW,6     P3                                                *F01
     2893   01 008F6    4B602151              AND,6    L(63)
     2894   01 008F7    25600010 A            SLS,6    16
     2895   01 008F8    49500006 A            OR,5     6
     2896   01 008F9    35581804              STW,5    RTWT,4
     2897   01 008FA    33000699              MTW,0    P4                CHECK FOR NEW MODULES           *F01
     2898   01 008FB    E830000F A            BEZ      *15                                               *F01
     2899   01 008FC    326817C4              LW,6     XTWT,4                                            *F01
     2900   01 008FD    4960215E              OR,6     =X'01000000'      SET NEW MODULE FLAG             *F01
     2901   01 008FE    356817C4              STW,6    XTWT,4                                            *F01
     2902   01 008FF    E800000F A            B        *15                                               *F01
     2903                            *
     2904                            *
     2905                                     PAGE
     2906                            *
     2907                            *
     2908   01 00900    20000000 A            DATA     2**28
     2909   01 00901    20000000 A            DATA     2**28
     2910   01 00902    20000000 A            DATA     2**28
     2911   01 00903    20000000 A            DATA     2**28             NEW MODULES INSTALED.           *F01
     2912                            *
     2913                            *
     2914   01 00904    22700008 A   DARC00   LI,7     1**3
     2915   01 00905    22300000 A            LI,3     0
     2916   01 00906    680008E5              B        LINO
     2917                            *
     2918                            *
     2919   01 00907    20000000 A            DATA     2**28
     2920                            *
     2921                            *
     2922   01 00908    22700000 A   DXC00    LI,7     0
     2923   01 00909    680008E5              B        LINO
     2924                            *
     2925                            *
     2926   01 0090A    20000000 A            DATA     2**28
     2927                            *
     2928                            *
     2929   01 0090B    22700000 A   DRC00    LI,7     0
     2930   01 0090C    68000905              B        DARC00+1
     2931                            *
     2932                            *
     2933   01 0090D    20000000 A            DATA     2**28                                             *F01
     2934   01 0090E    35F01DFE     TBTB00   STW,15   RETURN            TEST BACK TO BACK MODE OF       *F01
     2935   01 0090F    32F00696              LW,15    P1                OPERATION                       *F01
     2936   01 00910    67001E70              EXU      DISENGAGE         RESET INTERFACE MODULE.         *F01
     2937   01 00911    220004A0              LI,0     DA(TBTB09)                                        *F01
     2938   01 00912    CD001DCC              TIO,0    *IODEVICE                                         *F01
     2939   01 00913    69C00946              BCS,12   TBTBERR1                                          *F01
     2940   01 00914    CC001DCC              SIO,0    *IODEVICE         SIO TO CLEAR ANY POSSIBLE DATA  *F01
     2941   01 00915    226EB3F8 A            LI,6     -85000            OUT OF COC. 256 BYTES.          *F01
     2942   01 00916    65600916              BIR,6    %                 WAIT AROUND                     *F01
     2943   01 00917    CF001DCC              HIO,0    *IODEVICE                                         *F01
     2944   01 00918    225FFF7F A            LI,5     -129              CLEAR BUFFER OF SUPERFULES      *F01
     2945   01 00919    22600000 A            LI,6     0                 DATA.                           *F01
     2946   01 0091A    356A1C67              STW,6    IOBUFF+129,5                                      *F01
     2947   01 0091B    6550091A              BIR,5    %-1                                               *F01
     2948   01 0091C    22000BCB              LI,0     DA(CP04)                                          *F01
     2949   01 0091D    CD001DCC              TIO,0    *IODEVICE                                         *F01
     2950   01 0091E    69C00946              BCS,12   TBTBERR1                                          *F01
     2951   01 0091F    CC001DCC              SIO,0    *IODEVICE         START BACK TO BACK TEST, 2BYTES.*F01
     2952   01 00920    67001E71              EXU      ENGAGE                                            *F01
     2953   01 00921    226EB3F8 A            LI,6     -85000                                            *F01
     2954   01 00922    65600922              BIR,6    %                                                 *F01
     2955   01 00923    CF001DCC              HIO,0    *IODEVICE         LOAD THE TWO BYTES RECIVED      *F01
     2956   01 00924    52601BE6              LH,6     IOBUFF            INTO REGISTER 6.                *F01
     2957   01 00925    4B60215F              AND,6    =X'1F3F'          AND OUT LONG SPACE FLAG         *F01
     2958   01 00926    7166000F A            CB,6     15,3              CHECK LINE NO REC. AGAINST      *F01
     2959   01 00927    69300949              BNE      LINOERR           LINE NO. EXPECTED..             *F01
     2960   01 00928    25600078 A            SLS,6    -8                                                *F01
     2961   01 00929    71600944              CB,6     LSENGAGE          CHECK ENGAGE FLAG               *F01
     2962   01 0092A    6930093D              BNE      TBTB03            IN THE DATA BYTE RECIVED.       *F01
     2963   01 0092B    22000BCB              LI,0     DA(CP04)                                          *F01
     2964   01 0092C    CD001DCC              TIO,0    *IODEVICE                                         *F01
     2965   01 0092D    69C00946              BCS,12   TBTBERR1                                          *F01
     2966   01 0092E    CC001DCC              SIO,0    *IODEVICE         TWO BYTES                       *F01
     2967   01 0092F    67001E70              EXU      DISENGAGE                                         *F01
     2968   01 00930    226EB3F8 A            LI,6     -85000                                            *F01
     2969   01 00931    65600931              BIR,6    %                                                 *F01
     2970   01 00932    CF001DCC              HIO,0    *IODEVICE         LOAD TWO BYTES RECIVED          *F01
     2971   01 00933    52601BE6              LH,6     IOBUFF            INTO REG. 6.                    *F01
     2972   01 00934    4B60215F              AND,6    =X'1F3F'                                          *F01
     2973   01 00935    7166000F A            CB,6     15,3                                              *F01
     2974   01 00936    69300949              BNE      LINOERR                                           *F01
     2975   01 00937    25600078 A            SLS,6    -8                                                *F01
     2976   01 00938    71600945              CB,6     LSDISENGAGE                                       *F01
     2977   01 00939    6930093B              BNE      TBTB02            CHECK DISINGAGE FLAG            *F01
     2978   01 0093A    E8001DFE              B        *RETURN           IN THE DATA BYTE RECIVED        *F01
     2979   01 0093B    22500000 A   TBTB02   LI,5     0                                                 *F01
     2980   01 0093C    68000953              B        ENGAGEERR                                         *F01
     2981   01 0093D    22500001 A   TBTB03   LI,5     1                                                 *F01
     2982   01 0093E    68000953              B        ENGAGEERR                                         *F01
     2983                                     BOUND    8                                                 *F01
     2984   01 00940    02006F98     TBTB09   GEN,8,24 2,BA(IOBUFF)                                      *F01
     2985   01 00941    0E000080 A            GEN,8,24 X'E',128                                          *F01
     2986   01 00942    02006F98     TBTB10   GEN,8,24 2,BA(IOBUFF)                                      *F01
     2987   01 00943    00000002 A            GEN,8,24 0,2                                               *F01
     2988   01 00944    01000000 A   LSENGAGE DATA     X'01000000'                                       *F01
     2989   01 00945    03000000 A   LSDISENGAGE DATA  X'03000000'                                       *F01
     2990   01 00946    32C0096A     TBTBERR1 LW,12    MW72                                              *F01
     2991   01 00947    32F01DFE              LW,15    RETURN                                            *F01
     2992   01 00948    680005C8              B        ZSML40                                            *F01
     2993   01 00949    32C0000F A   LINOERR  LW,12    15                SHUFFLE DATA INTO MESSAGES      *F01
     2994   01 0094A    22D00000 A            LI,13    0                                                 *F01
     2995   01 0094B    6AF004FF              BAL,15   ZBTH                                              *F01
     2996   01 0094C    35D0097A              STW,13   MW73+11                                           *F01
     2997   01 0094D    52C01BE6              LH,12    IOBUFF            GET RECEIVED DATA               *F01
     2998   01 0094E    22D00000 A            LI,13    0                                                 *F01
     2999   01 0094F    6AF004FF              BAL,15   ZBTH                                              *F01
     3000   01 00950    35D00976              STW,13   MW73+7                                            *F01
     3001   01 00951    32C0096F              LW,12    MW73                                              *F01
     3002   01 00952    6800095E              B        TBTBERR                                           *F01
     3003   01 00953    52C01BE6     ENGAGEERR LH,12   IOBUFF            SHUFFLE DATA INT MESSAGES.      *F01
     3004   01 00954    22D00000 A            LI,13    0                                                 *F01
     3005   01 00955    6AF004FF              BAL,15   ZBTH                                              *F01
     3006   01 00956    670A0964              EXU      TBTB06,5                                          *F01
     3007   01 00957    32C00696              LW,12    P1                                                *F01
     3008   01 00958    670A0962              EXU      TBTB05,5                                          *F01
     3009   01 00959    49C00006 A            OR,12    6                                                 *F01
     3010   01 0095A    22D00000 A            LI,13    0                                                 *F01
     3011   01 0095B    6AF004FF              BAL,15   ZBTH                                              *F01
     3012   01 0095C    670A0966              EXU      TBTB07,5                                          *F01
     3013   01 0095D    670A0968              EXU      TBTB08,5                                          *F01
     3014   01 0095E    32F01DFE     TBTBERR  LW,15    RETURN                                            *F01
     3015   01 0095F    3310000F A            MTW,1    15                ERROR RETURN                    *F01
     3016   01 00960    022000F0 A            LCI      15                                                *F01
     3017   01 00961    680005C9              B        ZTWLP                                             *F01
     3018   01 00962    52600945     TBTB05   LH,6     LSDISENGAGE       VARABLES                        *F01
     3019   01 00963    52600944              LH,6     LSENGAGE              ''                          *F01
     3020   01 00964    35D00995     TBTB06   STW,13   MW75+12              ''                           *F01
     3021   01 00965    35D00987              STW,13   MW74+11              ''                           *F01
     3022   01 00966    35D00991     TBTB07   STW,13   MW75+8               ''                           *F01
     3023   01 00967    35D00983              STW,13   MW74+7               ''                           *F01
     3024   01 00968    32C00989     TBTB08   LW,12    MW75                 ''                           *F01
     3025   01 00969    32C0097C              LW,12    MW74                 ''                           *F01
     3026   01 0096A    101025AC A   MW72     ZFMW     1,0,4*(MW72A-MW72)-4,BA(TEXT72)                   *F01
     3027   01 0096B    E2C9D640 A   TEXT72   TEXT     'SIO NOT ACCEPTED'                                *F01
            01 0096C    D5D6E340 A
            01 0096D    C1C3C3C5 A
            01 0096E    D7E3C5C4 A
     3028         01 0096F           MW72A    EQU      %                                                 *F01
     3029   01 0096F    103025C0 A   MW73     ZFMW     1,0,4*(MW73A-MW73)-4,BA(TEXT73)                   *F01
     3030   01 00970    D3C9D5C5 A   TEXT73   TEXT     'LINE NO. ERROR RECEIVED        EXPECTED        ' *F01
            01 00971    40D5D64B A
            01 00972    40C5D9D9 A
            01 00973    D6D940D9 A
            01 00974    C5C3C5C9 A
            01 00975    E5C5C440 A
            01 00976    40404040 A
            01 00977    404040C5 A
            01 00978    E7D7C5C3 A
            01 00979    E3C5C440 A
            01 0097A    40404040 A
            01 0097B    40404040 A
     3031         01 0097C           MW73A    EQU      %                                                 *F01
     3032   01 0097C    103025F4 A   MW74     ZFMW     1,0,4*(MW74A-MW74)-4,BA(TEXT74)                   *F01
     3033   01 0097D    C5D5C7C1 A   TEXT74   TEXT     'ENGAGE ERROR EXPECTED        RECEIVED         '  *F01
            01 0097E    C7C540C5 A
            01 0097F    D9D9D6D9 A
            01 00980    40C5E7D7 A
            01 00981    C5C3E3C5 A
            01 00982    C4404040 A
            01 00983    40404040 A
            01 00984    40D9C5C3 A
            01 00985    C5C9E5C5 A
            01 00986    C4404040 A
            01 00987    40404040 A
            01 00988    40404040 A
     3034         01 00989           MW74A    EQU      %                                                 *F01
     3035   01 00989    10302628 A   MW75     ZFMW     1,0,4*(MW75A-MW75)-4,BA(TEXT75)                   *F01
     3036   01 0098A    C4C9E2C5 A   TEXT75   TEXT     'DISENGAGE ERROR EXPECTED          RECEIVED     ' *F01
            01 0098B    D5C7C1C7 A
            01 0098C    C540C5D9 A
            01 0098D    D9D6D940 A
            01 0098E    C5E7D7C5 A
            01 0098F    C3E3C5C4 A
            01 00990    40404040 A
            01 00991    40404040 A
            01 00992    4040D9C5 A
            01 00993    C3C5C9E5 A
            01 00994    C5C44040 A
            01 00995    40404040 A
     3037         01 00996           MW75A    EQU      %                                                 *F01
     3038                            *
     3039                            *
     3040                                     PAGE
     3041                            *
     3042                            *
     3043                            *        S T A R T  T E S T S  R O U T I N E
     3044                            *
     3045                            *
     3046   01 00996    20000000 A            DATA     2**28
     3047   01 00997    20000000 A            DATA     2**28
     3048   01 00998    20000000 A            DATA     2**28             P3 = ERROR ABORT COUNT            *F
     3049   01 00999    20000000 A            DATA     2**28             P4 = SLOW LINE CHARACTER COUNT    *F
     3050   01 0099A    20000000 A            DATA     2**28             P5 = LONG SPACE MARK BIAS         *F
     3051                            *
     3052                            *
     3053   01 0099B    35F01DFE     START00  STW,15   RETURN
     3054   01 0099C    6AE016D5              TESTIT   1
            01 0099D    00000002 A
     3055   01 0099E    22F00010 A            LI,15    1**4
     3056   01 0099F    6DF01200 A            WD,15    (1,2**8)
     3057   01 009A0    32500696              LW,5     P1
     3058   01 009A1    23507530 A            MI,5     30000
     3059   01 009A2    35501E02              STW,5    TIME1
     3060   01 009A3    32500697              LW,5     P2
     3061   01 009A4    23500BB8 A            MI,5     3000
     3062   01 009A5    30501E02              AW,5     TIME1                                               *F
     3063   01 009A6    35501E02              STW,5    TIME1                                               *F
     3064   01 009A7    3550069B              STW,5    P6                SAVE TIMEOUT VALUE                *F
     3065   01 009A8    22500100 A            LI,5     256
     3066   01 009A9    35501E2A              STW,5    SPACE0
     3067                            *                                   RE-INITIALIZE                     *F
     3068   01 009AA    35100696              STW,1    P1                 FOR 'TEST'                       *F
     3069   01 009AB    6AF016CA              BAL,15   SELTEST             AND 'ST1' COC MODE              *F
     3070   01 009AC    6AF00525              BAL,15   ZSCIR                                               *F
     3071   01 009AD    35101E12              STW,1    FLAG12
     3072   01 009AE    22501AE6              LI,5     PATTERN           SET UP                            *F
     3073   01 009AF    35501E9C              STW,5    PATTERNP           FOR 'COC' MODE                   *F
     3074   01 009B0    32501DCE              LW,5     TLENGTH             USING 'PAT'                     *F
     3075   01 009B1    35501DCF              STW,5    XLENGTH              DIRECTIVE VALUES               *F
     3076   01 009B2    225FFFC0 A            LI,5     -64
     3077   01 009B3    22400000 A            LI,4     0
     3078   01 009B4    35401E04              STW,4    WCOUNT0
     3079   01 009B5    35401E05              STW,4    PSHDEX
     3080   01 009B6    35401E06              STW,4    PULDEX
     3081   01 009B7    35401E13              STW,4    FLAG13
     3082   01 009B8    35401E99              STW,4    ERRLIMIT                                            *F
     3083   01 009B9    35401E7F              STW,4    ELOSS                                               *F
     3084   01 009BA    32702184              LW,7     =CLMTEND          ZERO OUT 'CLM MODE'               *F
     3085   01 009BB    354E1E9A              STW,4    TRANSITF,7         DATA STORAGE                     *F
     3086   01 009BC    657009BB              BIR,7    %-1                 TEST LOCATIONS.                 *F
     3087   01 009BD    354A18E4     ST1CLR   STW,4    XFTWT+64,5
     3088   01 009BE    354A1A26              STW,4    RTTWT+64,5
     3089   01 009BF    354A1924              STW,4    RFTWT+64,5
     3090   01 009C0    354A1964              STW,4    RETWT+64,5
     3091   01 009C1    354A19A4              STW,4    CSETWT+64,5
     3092   01 009C2    354A19E4              STW,4    LDTIMTAB+64,5
     3093   01 009C3    354A1A66              STW,4    CLMTO+64,5                                          *F
     3094   01 009C4    320A1804              LW,0     XTWT+64,5         FETCH TRANSMIT TEST WORD          *F
     3095   01 009C5    33000699              MTW,0    P4                CHECK FOR CLM MODE              *F01
     3096   01 009C6    693009CD              BNEZ     ST1F01                                            *F01
     3097   01 009C7    32800000 A            LW,8     0                                                 *F01
     3098   01 009C8    4B80215E              AND,8    =1**24            CHECK FOR NEW MODULES           *F01
     3099   01 009C9    683009CD              BEZ      %+4                                               *F01
     3100   01 009CA    22F00040 A            LI,15    X'40'             GET CURRENT LINE NO.            *F01
     3101   01 009CB    30F00005 A            AW,15    5                                                 *F01
     3102   01 009CC    67001E71              EXU      ENGAGE            ENGAGE BACK TO BACK             *F01
     3103   01 009CD    4B002160     ST1F01   AND,0    L(X'F1B00000')    SAVE ONLY ACTIVE FORMATE TYPE   *F01 *F01
     3104   01 009CE    49002152              OR,0     L(1**17)           MULTIPLE LONG SPACE CONTROL,     *F
     3105   01 009CF    350A1804              STW,0    XTWT+64,5          'XDLY' BITS, AND SET FIRST TIME  *F
     3106                            *                                    FLAG                             *F
     3107   01 009D0    655009BD              BIR,5    ST1CLR
     3108   01 009D1    35401E01              STW,4    TIME
     3109   01 009D2    35401DDC              STW,4    SAVE2
     3110   01 009D3    224FFFFE A            LI,4     -2                INITIAL CONSTANT FOR FIRST IN -   *F
     3111   01 009D4    75461036              STB,4    PULLSIZE,3        FIRST OUT ERROR PKOCESSING.       *F
     3112   01 009D5    225FFFC0 A            LI,5     -64                                                 *F
     3113   01 009D6    22400000 A            LI,4     0                                                   *F
     3114   01 009D7    328A1804              LW,8     XTWT+64,5                                           *F
     3115   01 009D8    681009DD              BCR,1    %+5               BRANCH IF THIS LINE IS NOT ACTIVE.*F
     3116   01 009D9    528A18A4              LH,8     LDTWT+32,5        TEST FOR GREATER 'DXLD' ENTRY     *F
     3117   01 009DA    31800004 A            CW,8     4                  INTO 'LDTWT' TABLE.              *F
     3118   01 009DB    682009DD              BCR,2    %+2               BRANCH IF NOT                     *F
     3119                            *                                                                     *F
     3120   01 009DC    524A18A4              LH,4     LDTWT+32,5        GET GREATER 'DXLD' ENTRY          *F
     3121   01 009DD    655009D7              BIR,5    %-6                                                 *F
     3122   01 009DE    20400014 A            AI,4     20                40 MILLISECONDS DELAY (ONE BIT    *F
     3123                            *                                    TIME AT SLOWEST LINE SPEED).     *F
     3124   01 009DF    35401E82              STW,4    MAXDELAY                                            *F
     3125   01 009E0    2040007B A            AI,4     123               (286-40)/2 ADDITIONAL TIME FOR    *F
     3126   01 009E1    35401E83              STW,4    LSDELAY            LONG SPACE ON SLOWEST LINE       *F
     3127   01 009E2    224FFF80 A            LI,4     -128
     3128   01 009E3    225FFFFF A            LI,5     -1
     3129   01 009E4    35581C66              STW,5    IOBUFF+128,4
     3130   01 009E5    654009E4              BIR,4    %-1
     3131   01 009E6    22F000C0 A            LI,15    X'C0'
     3132   01 009E7    67001E6C              EXU      SRS               SYNC 0
     3133   01 009E8    32001E2B              LW,0     CHAIN130          DATA CHAIN; BYTE COUNT = 130      *F
     3134   01 009E9    350017BB              STW,0    CP22+1                                              *F
     3135   01 009EA    22000BDD              LI,0     DA(CP22)                                            *F
     3136   01 009EB    CC001DCC              SIO,0    *IODEVICE
     3137   01 009EC    68C009EE              BCR,12   %+2                                                 *F
     3138   01 009ED    04000004 A   ST01     ABORT    4                 COC DEVICE ADDRESS REJECTED       *F
     3139   01 009EE    22F01000 A            LI,15    1**12
     3140   01 009EF    6DF01200 A            WD,15    (1,X'200')
     3141   01 009F0    225FFFC0 A            LI,5     -64
     3142   01 009F1    32F00005 A   ST1000B  LW,15    5                                                   *F
     3143   01 009F2    328A1844              LW,8     RTWT+64,5         FETCH RECEIVE TEST WORD           *F
     3144   01 009F3    4B802161              AND,8    L(X'F0FF0000')    REMOVE ABORT STATUS FLAGS         *F
     3145   01 009F4    358A1844              STW,8    RTWT+64,5         STORE BACK                        *F
     3146   01 009F5    68100A0C              BCR,1    ST1000A           BRANCH IF NOT ACTIVE              *F
     3147   01 009F6    20F00040 A            AI,15    64                FORM LINE NUMBER                  *F
     3148   01 009F7    35F01E03              STW,15   ERRORWD1                                            *F
     3149   01 009F8    72620008 A            LB,6     8,1               LOAD SECOND BYTE (LINE NO.)       *F
     3150   01 009F9    327C17C4              LW,7     XTWT,6                                              *F
     3151   01 009FA    691009FC              BCS,1    %+2               B IF ACTIVE                       *F
     3152   01 009FB    0400001B A            ABORT    27                RECEIVE XX, TURNAROUND TRANSMITTER*F
     3153                            *                                   IS NOT ACTIVE                     *F
     3154   01 009FC    21710000 A            CI,7     1**16             CHECK FOR REC. INTERRUPT FLAG     *F
     3155   01 009FD    684009FF              BCR,4    %+2               BRANCH IF TRANSMITTER DECLARED    *F
     3156   01 009FE    0400001D A            ABORT    29                RECEIVE XX, TURNAROUND TRANSMITTER*F
     3157                            *                                   ALREADY SELECTED                  *F
     3158                            *                                    FOR TWO RECEIVERS.(DARL P3).     *F
     3159   01 009FF    32902162              LW,9     =7**28                                              *F
     3160   01 00A00    45800007 A            CS,8     7                 COMPARE FORMATS                   *F
     3161   01 00A01    68300A03              BCR,3    %+2               BRANCH IF THE SAME                *F
     3162                            *                                                                     *F
     3163   01 00A02    0400001F A            ABORT    31                RECEIVE XX, TURNAROUND TRANSMITTER*F
     3164                            *                                   FORMAT MISMATCH                   *F
     3165   01 00A03    22A10000 A            LI,10    1**16                                               *F
     3166   01 00A04    66AC17C4              AWM,10   XTWT,6            SET TURN-AROUND ASSIGNED FLAG     *F
     3167                            *                                                                     *F
     3168   01 00A05    67001E6C              EXU      SRS
     3169   01 00A06    68200A08              BCR,2    %+2
     3170   01 00A07    68100A09              BCR,1    %+2
     3171   01 00A08    04000012 A            ABORT    18                RECEIVE XX NOT (OFF AND NOT LS)   *F
     3172   01 00A09    67001E6E              EXU      TRON
     3173   01 00A0A    68200A0C              BCR,2    %+2
     3174   01 00A0B    04000013 A            ABORT    19                RECEIVE XX DID NOT TURN ON        *F
     3175         01 00A0C           ST1000A  EQU      %                 DELETED 'AI,15  1'                *F
     3176   01 00A0C    655009F1              BIR,5    ST1000B
     3177   01 00A0D    32401E01              LW,4     TIME
     3178   01 00A0E    20400003 A            AI,4     3
     3179   01 00A0F    31401E01              CW,4     TIME
     3180   01 00A10    69200A0F              BCS,2    %-1
     3181   01 00A11    225FFFC0 A            LI,5     -64
     3182   01 00A12    22F00000 A            LI,15    0
     3183   01 00A13    330A1804              MTW,0    XTWT+64,5
     3184   01 00A14    68100A16              BCR,1    %+2
     3185   01 00A15    67001E74              EXU      XSTOP
     3186   01 00A16    20F00001 A            AI,15    1
     3187   01 00A17    65500A13              BIR,5    %-4
     3188   01 00A18    225FFFC0 A            LI,5     -64
     3189   01 00A19    22F00000 A            LI,15    0
     3190   01 00A1A    35F01E03     ST1000   STW,15   ERRORWD1
     3191   01 00A1B    330A1804              MTW,0    XTWT+64,5
     3192   01 00A1C    68100A22              BCR,1    %+6
     3193   01 00A1D    67001E6D              EXU      STS
     3194   01 00A1E    69200A20              BCS,2    %+2
     3195   01 00A1F    04000005 A            ABORT    5                 TRANSMITTER XX NOT INSTALLED      *F
     3196   01 00A20    69100A22              BCS,1    %+2
     3197   01 00A21    04000001 A            ABORT    1                 TRANSMITTER XX BUSY               *F
     3198   01 00A22    20F00001 A            AI,15    1
     3199   01 00A23    65500A1A              BIR,5    ST1000
     3200   01 00A24    32401E01              LW,4     TIME
     3201   01 00A25    30401E82              AW,4     MAXDELAY          40 MILLISECONDS PLUS 'CLM' DELAY  *F
     3202                            *                 REPLACED 'AI,4  20' WITH ABOVE INSTRUCTION          *F
     3203   01 00A26    31401E01              CW,4     TIME
     3204   01 00A27    69200A26              BCS,2    %-1
     3205   01 00A28    22F000C1 A            LI,15    X'C1'
     3206   01 00A29    67001E6C              EXU      SRS               SYNC 1
     3207   01 00A2A    225FFFC0 A            LI,5     -64
     3208   01 00A2B    22F00000 A            LI,15    0
     3209   01 00A2C    330A1804              MTW,0    XTWT+64,5
     3210   01 00A2D    68100A2F              BCR,1    %+2
     3211   01 00A2E    67001E73              EXU      XLS
     3212   01 00A2F    20F00001 A            AI,15    1
     3213   01 00A30    65500A2C              BIR,5    %-4
     3214   01 00A31    225FFFC0 A            LI,5     -64
     3215   01 00A32    22F00000 A            LI,15    0
     3216   01 00A33    330A1804     ST1001   MTW,0    XTWT+64,5
     3217   01 00A34    68100A3A              BCR,1    %+6
     3218   01 00A35    67001E6D              EXU      STS
     3219   01 00A36    69200A38              BCS,2    %+2
     3220   01 00A37    04000005 A            ABORT    5                 TRANSMITTER XX NOT INSTALLED      *F
     3221   01 00A38    68100A3A              BCR,1    %+2               BRANCH IF BUSY
     3222   01 00A39    04000006 A            ABORT    6                 XMITTER XX FAILS TO REPORT BUSY   *F
     3223   01 00A3A    20F00001 A            AI,15    1
     3224   01 00A3B    65500A33              BIR,5    ST1001
     3225   01 00A3C    CF001DCC              HIO,0    *IODEVICE
     3226   01 00A3D    225FFF80 A            LI,5     -128
     3227   01 00A3E    22400000 A            LI,4     0
     3228   01 00A3F    354A1C66              STW,4    IOBUFF+128,5
     3229   01 00A40    65500A3F              BIR,5    %-1
     3230   01 00A41    32001E2B              LW,0     CHAIN130          DATA CHAIN; BYTE COUNT = 130      *F
     3231   01 00A42    350017BB              STW,0    CP22+1                                              *F
     3232   01 00A43    22000BDD              LI,0     DA(CP22)                                            *F
     3233   01 00A44    CC001DCC              SIO,0    *IODEVICE
     3234   01 00A45    69C009ED              BCS,12   ST01
     3235   01 00A46    32401E01              LW,4     TIME
     3236   01 00A47    30401E83              AW,4     LSDELAY           LONGSPACE PLUS PROPAGATION DELAY  *F
     3237                            *                 REPLACED 'AI,4  134' WITH ABOVE INSTRUCTION         *F
     3238   01 00A48    31401E01              CW,4     TIME
     3239   01 00A49    69200A48              BCS,2    %-1
     3240   01 00A4A    225FFFC0 A            LI,5     -64
     3241   01 00A4B    22F00000 A            LI,15    0
     3242   01 00A4C    330A1804     ST10000  MTW,0    XTWT+64,5
     3243   01 00A4D    68100A51              BCR,1    %+4
     3244   01 00A4E    67001E6D              EXU      STS
     3245   01 00A4F    68100A51              BCR,1    %+2               B IF STILL BUSY
     3246   01 00A50    04000007 A            ABORT    7                 XMITTER XX FAILS TO STAY BUSY     *F
     3247   01 00A51    20F00001 A            AI,15    1
     3248   01 00A52    65500A4C              BIR,5    ST10000
     3249   01 00A53    CD501DCC              TIO,5    *IODEVICE
     3250   01 00A54    21500001 A            CI,5     1
     3251   01 00A55    68400A57              BCR,4    %+2
     3252   01 00A56    04000002 A            ABORT    2                 RECEIVE BYTE COUNT IS ODD         *F
     3253   01 00A57    5A520005 A            LCH,5    5,1
     3254   01 00A58    20500082 A            AI,5     130               CALcULATE BYTES INPUT             *F
     3255                            *             WAS 128 WHICH FALSELY INDICATED ABORT 8 WITH 64 LINES   *F
     3256   01 00A59    2550007F A            SLS,5    -1                HALF-WORD INDEX
     3257   01 00A5A    205FFFFF A            AI,5     -1
     3258   01 00A5B    35501DDA              STW,5    SAVE0
     3259   01 00A5C    68100A5E              BCR,1    %+2
     3260   01 00A5D    04000008 A            ABORT    8                 INPUT DATA TRANSFER FAILURE       *F
     3261   01 00A5E    524A1BE6     ST1002   LH,4     IOBUFF,5
     3262   01 00A5F    21400080 A            CI,4     1**7
     3263   01 00A60    69400A64              BCS,4    ST1003
     3264   01 00A61    4B402151              AND,4    L(63)
     3265   01 00A62    3540000F A            STW,4    15
     3266   01 00A63    04000009 A            ABORT    9                 RECEIVE XX LS BIT NOT SET         *F
     3267   01 00A64    4B402151     ST1003   AND,4    L(63)
     3268   01 00A65    35401E03              STW,4    ERRORWD1
     3269   01 00A66    33081804              MTW,0    RTWT,4
     3270   01 00A67    69100A69              BCS,1    %+2
     3271   01 00A68    04000003 A            ABORT    3                    RECEIVER XX NOT ACTIVE         *F
     3272   01 00A69    205FFFFF A            AI,5     -1
     3273   01 00A6A    68100A5E              BCR,1    ST1002
     3274   01 00A6B    225FFFC0 A            LI,5     -64
     3275   01 00A6C    22600000 A            LI,6     0
     3276   01 00A6D    2270003F A            LI,7     63
     3277   01 00A6E    330A1844     ST1004   MTW,0    RTWT+64,5
     3278   01 00A6F    68100A7C              BCR,1    ST1007
     3279   01 00A70    3560000F A            STW,6    15
     3280   01 00A71    32401DDA              LW,4     SAVE0
     3281   01 00A72    52881BE6     ST1005   LH,8     IOBUFF,4
     3282   01 00A73    45600008 A            CS,6     8
     3283   01 00A74    68300A78              BCR,3    ST1006
     3284   01 00A75    204FFFFF A            AI,4     -1
     3285   01 00A76    68100A72              BCR,1    ST1005
     3286   01 00A77    0400000B A            ABORT    11                RECEIVE XX FAILED TO XFER DATA    *F
     3287   01 00A78    67001E6C     ST1006   EXU      SRS
     3288   01 00A79    68200A7B              BCR,2    %+2
     3289   01 00A7A    69100A7C              BCS,1    %+2
     3290   01 00A7B    0400000A A            ABORT    10                RECEIVE CC NOT LONG SPACE         *F
     3291   01 00A7C    20600001 A   ST1007   AI,6     1
     3292   01 00A7D    65500A6E              BIR,5    ST1004
     3293   01 00A7E    225FFFC0 A            LI,5     -64
     3294   01 00A7F    22F00000 A            LI,15    0
     3295   01 00A80    330A1804              MTW,0    XTWT+64,5
     3296   01 00A81    68100A83              BCR,1    %+2
     3297   01 00A82    67001E74              EXU      XSTOP
     3298   01 00A83    20F00001 A            AI,15    1
     3299   01 00A84    65500A80              BIR,5    %-4
     3300   01 00A85    32401E01              LW,4     TIME
     3301   01 00A86    30401E83              AW,4     LSDELAY                                             *F
     3302                            *                 REPLACED 'AI,4  20' WITH ABOVE INSTRUCTION          *F
     3303   01 00A87    31401E01              CW,4     TIME
     3304   01 00A88    69200A87              BCS,2    %-1
     3305   01 00A89    225FFFC0 A            LI,5     -64
     3306   01 00A8A    22F00000 A            LI,15    0
     3307   01 00A8B    330A1844     ST1008   MTW,0    RTWT+64,5
     3308   01 00A8C    68100A91              BCR,1    ST1009
     3309   01 00A8D    67001E6C              EXU      SRS
     3310   01 00A8E    69200A90              BCS,2    %+2               BRANCH IF RECEIVER REPORTS 'OFF'  *F
     3311   01 00A8F    69100A91              BCS,1    %+2               BRANCH IF NOT RECEIVING L.S. NOW  *F
     3312   01 00A90    0400000F A            ABORT    15                RECEIVE XX CC NOT (ON AND NOT LS) *F
     3313   01 00A91    20F00001 A   ST1009   AI,15    1
     3314   01 00A92    65500A8B              BIR,5    ST1008
     3315   01 00A93    225FFFC0 A            LI,5     -64
     3316   01 00A94    22F01F00 A            LI,15    X'1F00'
     3317   01 00A95    320A1804     ST109A   LW,0     XTWT+64,5
     3318   01 00A96    68100A9B              BCR,1    ST109B
     3319   01 00A97    4B002162              AND,0    L(7**28)
     3320   01 00A98    31002163              CW,0     L(1**28)
     3321   01 00A99    69300A9B              BCS,3    %+2               B IF NOT FORMAT 1
     3322   01 00A9A    67001E72              EXU      XDATA
     3323   01 00A9B    20F00001 A   ST109B   AI,15    1
     3324   01 00A9C    65500A95              BIR,5    ST109A
     3325   01 00A9D    22400000 A            LI,4     0                                                   *F
     3326   01 00A9E    35401E97              STW,4    RINTCNT                                             *F
     3327   01 00A9F    32401E01              LW,4     TIME
     3328   01 00AA0    30401E83              AW,4     LSDELAY           LONGSPACE PLUS PROPAGATION DELAY  *F
     3329                            *                 REPLACED 'AI,4  143' WITH ABOVE INSTRUCTION         *F
     3330   01 00AA1    31401E01              CW,4     TIME
     3331   01 00AA2    69200AA1              BCS,2    %-1
     3332   01 00AA3    225FFFC0 A            LI,5     -64
     3333   01 00AA4    22F00000 A            LI,15    0
     3334   01 00AA5    67001E74              EXU      XSTOP
     3335   01 00AA6    20F00001 A            AI,15    1
     3336   01 00AA7    65500AA5              BIR,5    %-2
     3337   01 00AA8    22F000C2 A            LI,15    X'C2'
     3338   01 00AA9    67001E6C              EXU      SRS               SYNC 2
     3339   01 00AAA    CF001DCC              HIO,0    *IODEVICE
     3340   01 00AAB    225FFF80 A            LI,5     -128
     3341   01 00AAC    22400000 A            LI,4     0                 CLEAR BUFFER FOR INTERRUPT TEST
     3342   01 00AAD    354A1C66              STW,4    IOBUFF+128,5
     3343   01 00AAE    65500AAD              BIR,5    %-1
     3344   01 00AAF    32001E2B              LW,0     CHAIN130          DATA CHAIN; BYTE COUNT = 130      *F
     3345   01 00AB0    350017BB              STW,0    CP22+1                                              *F
     3346   01 00AB1    22000BDD              LI,0     DA(CP22)                                            *F
     3347   01 00AB2    CC001DCC              SIO,0    *IODEVICE
     3348   01 00AB3    69C009ED              BCS,12   ST01
     3349   01 00AB4    32F01DD3              LW,15    XMTBIT
     3350   01 00AB5    67001EAF              EXU      AEXI
     3351   01 00AB6    32F01DD2              LW,15    RECBIT
     3352   01 00AB7    67001EAE              EXU      AERI
     3353   01 00AB8    6D000023 A            WD,0     X'23'             RESET INHIBITS 'I AND E'          *F
     3354   01 00AB9    2E000000 A            WAIT     0                 'WAIT' TO START NEXT OPERATION    *F
     3355                            *                                    ON COUNT OF 2 MILLISECOND CLOCK  *F
     3356   01 00ABA    22F00000 A            LI,15    0
     3357   01 00ABB    224FFFC0 A            LI,4     -64
     3358   01 00ABC    33081804              MTW,0    XTWT+64,4
     3359   01 00ABD    68100AC2              BCR,1    %+5               BRANCH IF NOT ACTIVE              *F
     3360   01 00ABE    32D81804              LW,13    XTWT+64,4                                           *F
     3361   01 00ABF    4BD02155              AND,13   =X'FFFEFFFF'      DROP REC.INTERRUPT FLAG           *F
     3362   01 00AC0    35D81804              STW,13   XTWT+64,4                                           *F
     3363   01 00AC1    67001E73              EXU      XLS
     3364   01 00AC2    20F00001 A            AI,15    1
     3365   01 00AC3    65400ABC              BIR,4    %-7                                                 *F
     3366   01 00AC4    32401E01              LW,4     TIME              GET CURRENT TIME                  *F
     3367   01 00AC5    35401E86              STW,4    CTIME              AND SAVE                         *F
     3368   01 00AC6    30401E83              AW,4     LSDELAY           LONGSPACE PLUS PROPAGATION DELAY  *F
     3369                            *                 REPLACED 'AI,4  143' WITH ABOVE INSTRUCTION         *F
     3370   01 00AC7    31401E01              CW,4     TIME
     3371   01 00AC8    69200AC7              BCS,2    %-1
     3372   01 00AC9    224FFFC0 A            LI,4     -64
     3373   01 00ACA    22F00000 A            LI,15    0
     3374   01 00ACB    32581804     ST100    LW,5     XTWT+64,4
     3375   01 00ACC    68100AD0              BCR,1    ST100A
     3376   01 00ACD    21520000 A            CI,5     1**17
     3377   01 00ACE    68400AD0              BCR,4    %+2               B IF XMIT INTERRUPT RECEIVED
     3378   01 00ACF    0400000C A            ABORT    12                XMIT INTERRUPT ERROR L=XX         *F
     3379   01 00AD0    20F00001 A   ST100A   AI,15    1
     3380   01 00AD1    65400ACB              BIR,4    ST100
     3381   01 00AD2    22F00000 A            LI,15    0
     3382   01 00AD3    224FFFC0 A            LI,4     -64
     3383   01 00AD4    32581844     ST101    LW,5     RTWT+64,4
     3384   01 00AD5    68100ADE              BCR,1    ST101A
     3385   01 00AD6    72720005 A            LB,7     5,1
     3386   01 00AD7    325E17C4              LW,5     XTWT,7
     3387   01 00AD8    21510000 A            CI,5     1**16
     3388   01 00AD9    69400ADB              BCS,4    %+2               B IF RECEIVE INTRR RECEIVED
     3389   01 00ADA    0400000D A            ABORT    13                RECV INTERRUPT ERROR L=XX         *F
     3390   01 00ADB    4850214E              EOR,5    L(1**16)          CLEAR RECEIVE INTERRUPT FLAG
     3391   01 00ADC    355E17C4              STW,5    XTWT,7
     3392   01 00ADD    33101E97              MTW,1    RINTCNT           NO OF INTERRUPT COUNTS            *F
     3393   01 00ADE    20F00001 A   ST101A   AI,15    1
     3394   01 00ADF    65400AD4              BIR,4    ST101
     3395   01 00AE0    3A701E97              LCW,7    RINTCNT           SET LOOP COUNT                    *F
     3396   01 00AE1    22600000 A            LI,6     0                 SET UP HALF WORD INDEX            *F
     3397   01 00AE2    528C1BE6              LH,8     IOBUFF,6          RECEIVED DATA                     *F
     3398   01 00AE3    21800080 A            CI,8     128                                                 *F
     3399   01 00AE4    69400AE8              BCS,4    %+4               BRANCH IF LONG SPACE RECEIVED     *F
     3400   01 00AE5    22F0003F A            LI,15    X'3F'                                               *F
     3401   01 00AE6    4BF00008 A            AND,15   8                 EXTRACT LINE NUMBER 'MASK=255'    *F
     3402   01 00AE7    0400001C A            ABORT    28                DATA ERROR FOR RECEIVER XX        *F
     3403   01 00AE8    20600001 A            AI,6     1                                                   *F
     3404   01 00AE9    65700AE2              BIR,7    %-7               BRANCH FOR NEXT BUFFER ENTRY      *F
     3405                            *                                                                     *F
     3406   01 00AEA    22A00000 A            LI,10    0                 RESET INPUT                       *F
     3407   01 00AEB    35A01DDC              STW,10   SAVE2              BUFFER POINTER                   *F
     3408   01 00AEC    CF001DCC              HIO,0    *IODEVICE                                           *F
     3409   01 00AED    32001E2B              LW,0     CHAIN130          DATA CHAIN; BYTE COUNT = 130      *F
     3410   01 00AEE    350017BB              STW,0    CP22+1                                              *F
     3411   01 00AEF    22000BDD              LI,0     DA(CP22)          RESET TO START OF I/O BUFFER      *F
     3412   01 00AF0    CC001DCC              SIO,0    *IODEVICE          AND RESTORE D.C. FLAG AND BYTE   *F
     3413                            *                                     COUNT                           *F
     3414   01 00AF1    32400699              LW,4     P4                                                  *F
     3415   01 00AF2    68300B43              BCR,3    NOTCLM            BRANCH IF NOT 'CLM' MODE          *F
     3416                            *                                                                     *F
     3417   01 00AF3    228FFFFF A            LI,8     -1                                                  *F
     3418   01 00AF4    35801E9A              STW,8    TRANSITF                                            *F
     3419   01 00AF5    35801E9B              STW,8    TRANSITF+1                                          *F
     3420   01 00AF6    227FFFC0 A            LI,7     -64               LOAD INDEX WITH NEGATIVE 64       *F
     3421   01 00AF7    329E1844     ST101C   LW,9     RTWT+64,7         GET RTWT                          *F
     3422   01 00AF8    68100B2A              BCR,1    TABEND                                              *F
     3423                            *                                                                     *F
     3424   01 00AF9    2260003F A            LI,6     63                                                  *F
     3425   01 00AFA    52900009 A            LH,9     9                                                   *F
     3426   01 00AFB    4B600009 A            AND,6    9                 EXTRACT TRANSMITTER NO. AND       *F
     3427                            *                                    SAVE IT IN REG.6                 *F
     3428   01 00AFC    32AC17C4              LW,10    XTWT,6            GET XTWT                          *F
     3429   01 00AFD    31A02153              CW,10    =1**20            SHIFT TO TEST 'SLS' FLAG          *F
     3430   01 00AFE    68400B00              BCR,4    %+2               B IF SLS NOT SET                  *F
     3431   01 00AFF    48A02164              EOR,10   =X'8100000'       RESET SLS AND SET TEMP SLS FLAG   *F
     3432   01 00B00    35AC17C4              STW,10   XTWT,6            STORE BACK TO XTWT TABLE          *F
     3433   01 00B01    31A02154              CW,10    =X'200000'        SHIFT TO TEST 'XDLY' FLAG         *F
     3434   01 00B02    69400B05              BCS,4    %+3               B IF (XDLY' FLAG SET              *F
     3435   01 00B03    22B00000 A            LI,11    0                                                   *F
     3436   01 00B04    68000B06              B        %+2                                                 *F
     3437   01 00B05    32BC1844              LW,11    DTWT,6            GET DELAY VALUE AND KEEP IT IN    *F
     3438                            *                                    REG.11                           *F
     3439   01 00B06    32DC19A4              LW,13    LDTIMTAB,6        GET TRANSMIT INTERRUPT TIME       *F
     3440   01 00B07    38D01E86              SW,13    CTIME             SUB SAVED TIME                    *F
     3441   01 00B08    35D01E87              STW,13   CSAVE             SAVE IT IN CSAVE                  *F
     3442   01 00B09    25D0007D A            SLS,13   -3                DIVIDE BY 8                       *F
     3443                            *                                    AND SAVE IT IN REG.13            *F
     3444   01 00B0A    32C01E87              LW,12    CSAVE             RESTORE FOR FOLLOWING COMPARE     *F
     3445   01 00B0B    31C01E96              CW,12    CSLL                                                *F
     3446   01 00B0C    69100B0F              BCS,1    %+3               BRANCH IF LESS                    *F
     3447   01 00B0D    35C01E96              STW,12   CSLL                                                *F
     3448                            *                                                                     *F
     3449   01 00B0E    35601E94              STW,6    SLLNO             SAVE SLOW LINE NUMBER             *F
     3450                            *                                                                     *F
     3451   01 00B0F    46C0000D A            XW,12    13                GET SAVED BIT TIME FROM REG.13    *F
     3452   01 00B10    32AC17C4              LW,10    XTWT,6            GET XTWT                          *F
     3453   01 00B11    4BA02162              AND,10   =X'70000000'      MASK ALL BUT FORMAT '1'           *F
     3454   01 00B12    31A02163              CW,10    =X'10000000'      IS THIS FORMAT '1'                *F
     3455   01 00B13    69300B16              BCS,3    %+3               BRANCH IF NOT FORMAT 1            *F
     3456   01 00B14    36D02165              DW,13    =128              DIVIDE BY 128                     *F
     3457   01 00B15    30D0000C A            AW,13    12                                                  *F
     3458   01 00B16    31C01E8A              CW,12    1SLOWBIT                                            *F
     3459   01 00B17    69100B19              BCS,1    %+2               BRANCH IF LESS                    *F
     3460   01 00B18    35C01E8A              STW,12   1SLOWBIT                                            *F
     3461   01 00B19    32AE1A26              LW,10    RTTWT+64,7        GET RECEIVE INTERRUPT TIME        *F
     3462   01 00B1A    38A01E86              SW,10    CTIME             SAVE RECEIVE TIME                 *F
     3463   01 00B1B    31A01E87              CW,10    CSAVE                                               *F
     3464   01 00B1C    69100B22              BCS,1    %+6               BRANCH IF RINT B4 XINT (NOT CLM)  *F
     3465                            *                                                                     *F
     3466   01 00B1D    32C01E87              LW,12    CSAVE             GET XMIT TIME                     *F
     3467   01 00B1E    30C0000B A            AW,12    11                ADD 'XDLY' FOR THIS LINE          *F
     3468   01 00B1F    31C0000A A            CW,12    10                                                  *F
     3469   01 00B20    69100B24              BCS,1    %+4               B IF LESS                         *F
     3470   01 00B21    68000B25              B        %+4               USE TRANSMIT AND 'XDLY' SUM       *F
     3471                            *                                                                     *F
     3472   01 00B22    32C01E87              LW,12    CSAVE             XMIT TIME                         *F
     3473   01 00B23    68000B25              B        %+2                                                 *F
     3474   01 00B24    32C0000A A            LW,12    10                RECEIVE TIME                      *F
     3475                            *                                                                     *F
     3476   01 00B25    30C01E8A              AW,12    1SLOWBIT                                            *F
     3477   01 00B26    31C01E84              CW,12    SLINE                                               *F
     3478   01 00B27    69100B2A              BCS,1    TABEND            B IF LESS THEN SLINE              *F
     3479   01 00B28    35C01E84              STW,12   SLINE             STORE NEW VALUE                   *F
     3480                            *                                                                     *F
     3481   01 00B29    35601E89              STW,6    SLOWLINE          STORE IN 'SLOWLINE'               *F
     3482                            *                                                                     *F
     3483   01 00B2A    65700AF7     TABEND   BIR,7    ST101C                                              *F
     3484                            *                                                                     *F
     3485   01 00B2B    32B01E84              LW,11    SLINE                                               *F
     3486   01 00B2C    32A01E8A              LW,10    1SLOWBIT                                            *F
     3487   01 00B2D    25A00001 A            SLS,10   1                 DOUBLE                            *F
     3488   01 00B2E    30B0000A A            AW,11    10                                                  *F
     3489   01 00B2F    23B00100 A            MI,11    256               MULTIPLY BY 256 CHARACTERS        *F
     3490   01 00B30    30B01E01              AW,11    TIME                                                *F
     3491   01 00B31    35B01E02              STW,11   TIME1                                               *F
     3492                            *                                                                     *F
     3493   01 00B32    227FFF00 A            LI,7     -256              LOOP COUNT                        *F
     3494   01 00B33    32800688              LW,8     ZLBADR            LOAD PATERN TABLE LOWER POINTER   *F
     3495   01 00B34    208FFFC0 A            AI,8     -64               MOVE THE POINTER 64 SPACES        *F
     3496   01 00B35    22600000 A            LI,6     0                                                   *F
     3497   01 00B36    F56C0008 A            STB,6    *8,6                                                *F
     3498   01 00B37    20600001 A            AI,6     1                 INCREMENT THE TABLE               *F
     3499   01 00B38    65700B36              BIR,7    %-2                                                 *F
     3500   01 00B39    35801E9C              STW,8    PATTERNP          STORE TABLE POINTER               *F
     3501                            *                                   THE ABOVE 8 INSTRUCTIONS USED TO  *F
     3502                            *                                    BUILD INCREMENTING BINARY        *F
     3503                            *                                     PATTERN IN UPPER CORE           *F
     3504   01 00B3A    32B00699              LW,11    P4                SET UP                            *F
     3505   01 00B3B    23B003E8 A            MI,11    1000               ONE OF THE                       *F
     3506   01 00B3C    3AB0000B A            LCW,11   11                  TERMINATE CONDITIONS            *F
     3507   01 00B3D    20BFFFFF A            AI,11    -1                                                  *F
     3508   01 00B3E    35B01E80              STW,11   COUNTOUT             FOR 'CLM' MODE TESTING.        *F
     3509   01 00B3F    224FFFFF A            LI,4     -1                SET FLAG FOR                      *F
     3510   01 00B40    35400699              STW,4    P4                 'CLM' MODE.                      *F
     3511   01 00B41    224000FF A            LI,4     255                                                 *F
     3512   01 00B42    35401DCF              STW,4    XLENGTH                                             *F
     3513                            *                                                                     *F
     3514   01 00B43    22700000 A   NOTCLM   LI,7     0                 ZERO INDEX COUNT                  *F
     3515                            *                                                                     *F
     3516   01 00B44    22400000 A            LI,4     0                                                   *F
     3517   01 00B45    354E18A4     ST101D   STW,4    XFTWT,7           INITIALIZE TABLES                 *F
     3518   01 00B46    20700001 A            AI,7     1                 MOVE INDEX                        *F
     3519   01 00B47    21700242 A            CI,7     PATTERN-XFTWT     TABLE LENGTH (XFTWT+RFTWT+RETWT,  *F
     3520   01 00B48    69100B45              BCS,1    ST101D                         +RTTWT+LDTIMTAB      *F
     3521                            *                                                +LDBITAB)            *F
     3522   01 00B49    22000BD2              LI,0     DA(CP10)
     3523                            *                 OUTPUT 'BEGIN TURNAROUND TESTING' ON KSR            *F
     3524   01 00B4A    CC00052D              SIO,0    *ZDKB+1                                             *F
     3525   01 00B4B    22F000C3 A            LI,15    X'C3'
     3526   01 00B4C    67001E6C              EXU      SRS               SYNC 3
     3527   01 00B4D    F2F01E9C              LB,15    *PATTERNP                                           *F
     3528                            *DELETED LB,15    PATTERN                                             *F
     3529   01 00B4E    25F00008 A            SLS,15   8
     3530   01 00B4F    224FFFC0 A            LI,4     -64
     3531   01 00B50    22500000 A   ST101B   LI,5      0
     3532   01 00B51    355818E4              STW,5    XFTWT+64,4
     3533   01 00B52    35581924              STW,5    RFTWT+64,4
     3534   01 00B53    32581804              LW,5     XTWT+64,4
     3535   01 00B54    68100B60              BCR,1    ST102
     3536   01 00B55    4B502166              AND,5    =X'F8B00000'      STRIP OFF TIMING,COMPARE FLAGS    *F
     3537                            *                                    AND RECEIVE INTERRUPT FLAGS.     *F
     3538   01 00B56    355E17C4              STW,5    XTWT,7                                              *F
     3539   01 00B57    31502153              CW,5     L(1**20)
     3540   01 00B58    68400B5B              BCR,4    %+3               BRANCH IF NOT LONG SPACE
     3541   01 00B59    67001E73              EXU      XLS
     3542   01 00B5A    68000B5C              B        %+2
     3543   01 00B5B    67001E72              EXU      XDATA
     3544   01 00B5C    67001E6D              EXU      STS
     3545   01 00B5D    68100B5F              BCR,1    %+2               B IF BUSY
     3546   01 00B5E    04000006 A            ABORT    6                 XMITTER XX FAILS TO REPORT BUSY   *F
     3547   01 00B5F    331818E4              MTW,1    XFTWT+64,4        COUNT FIRST CHARACTER             *F
     3548   01 00B60    20F00001 A   ST102    AI,15    1
     3549   01 00B61    65400B50              BIR,4    ST101B
     3550   01 00B62    22000000 A            LI,0     0
     3551   01 00B63    35001E01              STW,0    TIME
     3552                            *                                   THE ABOVE TWO INSTRUCTRUCTIONS    *F
     3553                            *                                    INITIALIZE RUNNING TIME COUNTER  *F
     3554   01 00B64    3A400698              LCW,4    P3                                                  *F
     3555   01 00B65    68300B67              BCR,3    %+2               BRANCH FOR DEFAULT LIMIT          *F
     3556   01 00B66    68000B68              B        %+2                                                 *F
     3557   01 00B67    224FD8F1 A            LI,4     -9999             DEFAULT LIMIT                     *F
     3558   01 00B68    35400698              STW,4    P3                                                  *F
     3559   01 00B69    35401E99              STW,4    ERRLIMIT          (FOR T1RP DIRECTIVE)              *F
     3560                            *                                                                     *F
     3561   01 00B6A    226FFFC0 A            LI,6     -64                                                 *F
     3562   01 00B6B    354C1964              STW,4    RETWT+64,6        PRESET THE                        *F
     3563   01 00B6C    65600B6B              BIR,6    %-1                'RETWT' TABLE                    *F
     3564                            *                                                                     *F
     3565   01 00B6D    32401E01     ST00     LW,4     TIME
     3566   01 00B6E    31401E02              CW,4     TIME1
     3567   01 00B6F    69200BA3              BCS,2    ST00A
     3568   01 00B70    513205D3              CH,3     ZMSGKEY,1
     3569   01 00B71    69200B75              BCS,2    ST00D
     3570   01 00B72    6C000000 A            RD,0     0
     3571   01 00B73    69100B75              BCS,1    %+2
     3572   01 00B74    0F000FFA              XPSD,0   ERROR
     3573   01 00B75    6C000000 A   ST00D    RD,0     0
     3574   01 00B76    69200BA1              BCS,2    ST00B
     3575   01 00B77    224FFFC0 A            LI,4     -64
     3576   01 00B78    65400B78              BIR,4    %
     3577   01 00B79    22400000 A            LI,4     0
     3578   01 00B7A    22500000 A            LI,5     0
     3579   01 00B7B    464019E4              XW,4     LDBITAB
     3580   01 00B7C    465019E5              XW,5     LDBITAB+1
     3581   01 00B7D    22700000 A            LI,7     0
     3582   01 00B7E    21500001 A   ST00E    CI,5     1                 IS THIS LINE TIMING ?
     3583   01 00B7F    68400B9A              BCR,4    ST00C             NO
     3584   01 00B80    32DE17C4              LW,13    XTWT,7
     3585   01 00B81    31D0215B              CW,13    L(1**22)           XMIT DELAY TIMING FLAG SET
     3586   01 00B82    68400B8C              BCR,4    ST00G             NO
     3587   01 00B83    35D01DE6              STW,13   SAVE12
     3588   01 00B84    32DE19A4              LW,13    LDTIMTAB,7
     3589   01 00B85    30DE1844              AW,13     DTWT,7
     3590   01 00B86    31D01E01              CW,13    TIME
     3591   01 00B87    69200B8A              BCS,2    ST00H             B IF >
     3592   01 00B88    32D01DE6              LW,13    SAVE12
     3593   01 00B89    68000B8C              B        ST00G
     3594   01 00B8A    32D01DE6     ST00H    LW,13    SAVE12
     3595   01 00B8B    68000B9A              B        ST00C
     3596   01 00B8C    21D10000 A   ST00G    CI,13    1**16             RECEIVE INTERRUPT YET
     3597   01 00B8D    68400B95              BCR,4    ST00F             NO
     3598   01 00B8E    6D000031 A            WD,0     X'31'
     3599   01 00B8F    22000000 A            LI,0     0
     3600   01 00B90    35001E12              STW,0    FLAG12            SET THE FAKE-IT FLAG
     3601   01 00B91    0F0007EA              XPSD,0   XINTR             FAKE IT
     3602   01 00B92    48500001 A            EOR,5    1                 RESET TIMING FLAG
     3603   01 00B93    6D000021 A            WD,0     X'21'
     3604   01 00B94    68000B9A              B        ST00C
     3605   01 00B95    52DE1884     ST00F    LH,13    LDTWT,7                                             *D
     3606   01 00B96    30DE19A4              AW,13    LDTIMTAB,7
     3607   01 00B97    31D01E01              CW,13    TIME              TIME-OUT ?
     3608   01 00B98    69200B9A              BCS,2    ST00C             NO
     3609   01 00B99    0400000E A            ABORT    14       TRANSMISSION PATH DELAY TIMEOUT ERROR L=XX *F
     3610   01 00B9A    2540037F A   ST00C    SCD,4    -1
     3611   01 00B9B    20700001 A            AI,7     1
     3612   01 00B9C    2170003F A            CI,7     63
     3613   01 00B9D    68200B7E              BCR,2    ST00E
     3614   01 00B9E    475019E5              STS,5    LDBITAB+1
     3615   01 00B9F    25400320 A            SCD,4    32
     3616   01 00BA0    475019E4              STS,5    LDBITAB
     3617   01 00BA1    6C000000 A   ST00B    RD,0     0
     3618   01 00BA2    68800B6D              BCR,8    ST00
     3619   01 00BA3    6D000031 A   ST00A    WD,0     X'31'
     3620   01 00BA4    32400699              LW,4     P4                                                  *F
     3621   01 00BA5    69100BBE              BCS,1    CLMMODE           BRANCH IF 'CLM' MODE REQUESTED    *F
     3622   01 00BA6    32F01DD2              LW,15    RECBIT
     3623   01 00BA7    67001EAB              EXU      DARI
     3624   01 00BA8    32F01DD3              LW,15    XMTBIT
     3625   01 00BA9    67001EB0              EXU      DAXI
     3626   01 00BAA    22F01000 A            LI,15    1**12
     3627   01 00BAB    6DF01100 A            WD,15    (1,X'100')
     3628   01 00BAC    6DF01500 A            WD,15    (1,X'500')
     3629   01 00BAD    22F00000 A            LI,15    0
     3630   01 00BAE    22400040 A            LI,4     64
     3631   01 00BAF    67001E6F              EXU      TROFF
     3632   01 00BB0    67001E74              EXU      XSTOP
     3633   01 00BB1    20F00001 A            AI,15    1
     3634   01 00BB2    64400BAF              BDR,4    %-3
     3635   01 00BB3    6C000000 A            RD,0     0
     3636   01 00BB4    6990114D              BCS,9    SHUTDOWN
     3637   01 00BB5    0F000FFA              XPSD,0   ERROR
     3638   01 00BB6    33001E04              MTW,0    WCOUNT0
     3639   01 00BB7    69300BB3              BCS,3    %-4
     3640   01 00BB8    6800114D              B        SHUTDOWN
     3641                            *
     3642                            *                 CHANGED 'ST01' TO 'ABORT' AND MOVE TO FIRST USE.    *F
     3643   01 00BB9    C2C5C7C9 A   CLMMSG   TEXT     'BEGIN CLM TESTING
'                                *F
            01 00BBA    D540C3D3 A
            01 00BBB    D440E3C5 A
            01 00BBC    E2E3C9D5 A
            01 00BBD    C7154040 A
     3644   01 00BBE    227FFFC0 A   CLMMODE  LI,7     -64               LOAD INDEX REG. WITH NEG.64       *F
     3645   01 00BBF    32AE1804              LW,10    XTWT+64,7         GET XTWT                          *F
     3646   01 00BC0    69100BC3              BCS,1    %+3                                                 *F
     3647   01 00BC1    65700BBF              BIR,7    %-2                                                 *F
     3648   01 00BC2    68000BC8              B        %+6               BRANCH IF DONE                    *F
     3649                            *                                                                     *F
     3650   01 00BC3    31A02167              CW,10    =X'8000000'                                         *F
     3651   01 00BC4    68400BC1              BCR,4    CLMMODE+3         BRANCH IF NO TEMP SLS             *F
     3652   01 00BC5    48A02164              EOR,10   =X'08100000'      CLEAR AND RESTORE 'SLS' FLAGS     *F
     3653   01 00BC6    35AE1804              STW,10   XTWT+64,7         STORE BACK IN TABLE               *F
     3654   01 00BC7    68000BC1              B        CLMMODE+3                                           *F
     3655                            *                                                                     *F
     3656   01 00BC8    32A01DD5              LW,10    XICODE            GROUP NO.                         *F
     3657   01 00BC9    20A01500 A            AI,10    X'1500'           DISABLE CONSTANT                  *F
     3658   01 00BCA    32B01DD3              LW,11    XMTBIT            DISABLE TRANSMIT                  *F
     3659   01 00BCB    EDB0000A A            WD,11    *10                INTERRUPT LEVEL                  *F
     3660   01 00BCC    6D000027 A            WD,0     X'27'             RESET INHIBITS                    *F
     3661   01 00BCD    32A01E01              LW,10    TIME              LOAD CURRENT TIME                 *F
     3662   01 00BCE    30A01E83              AW,10    LSDELAY           ADD LSDELAY                       *F
     3663   01 00BCF    30A01E84              AW,10    SLINE             ADD SLOW LINE                     *F
     3664   01 00BD0    35A01E02              STW,10   TIME1             STORE IN TIME1
     3665   01 00BD1    6C000000 A   CLMMODE1 RD,0     0                 READ SENSE SWITCHES               *F
     3666   01 00BD2    69800BA6              BCS,8    ST00A+3           B IF SWITCH ONE  IS SET           *F
     3667   01 00BD3    227FFFC0 A            LI,7     -64               LOAD INDEX REG.                   *F
     3668   01 00BD4    329E1844              LW,9     RTWT+64,7         GET RECEIVE CONTROL WORD FOR LINE *F
     3669   01 00BD5    69100BD8              BCS,1    %+3               BRANCH IF ACTIVE                  *F
     3670   01 00BD6    65700BD4     CLM2     BIR,7    %-2               BRANCH IF NOT DONE                *F
     3671   01 00BD7    68000BE0              B        CLM4              B IF ALL CHAR. COUNTS COMPARE     *F
     3672   01 00BD8    32AE1924              LW,10    RFTWT+64,7        FETCH RFTWT FOR RECEIVE COUNT     *F
     3673                            *                                                                     *F
     3674   01 00BD9    72620009 A            LB,6     9,1                                                 *F
     3675   01 00BDA    31AC18A4              CW,10    XFTWT,6           GET TRANSMIT COUNT                *F
     3676   01 00BDB    68300BD6              BCR,3    CLM2              BRANCH IF EQUAL (SUM EQUALS ZERO) *F
     3677                            *                                                                     *F
     3678   01 00BDC    32401E02     CLM3     LW,4     TIME1             LOAD TIME1                        *F
     3679   01 00BDD    31401E01              CW,4     TIME              COMPARE WITH CURRURENT TIME       *F
     3680   01 00BDE    69200BD1              BCS,2    CLMMODE1          BRANCH IF TIMEOUT NOT REACHED     *F
     3681   01 00BDF    04000014 A            ABORT    20                OUTPUT 'UNABLE' TO PROCEED WITH   *F
     3682                            *                                    CLM TESTING' MESSAGE (ABORT 20)  *F
     3683                            *                                                                     *F
     3684   01 00BE0    227FFFC0 A   CLM4     LI,7     -64               LOAD INDEX                        *F
     3685   01 00BE1    329E1844              LW,9     RTWT+64,7         GET RTWT                          *F
     3686   01 00BE2    69100BE5              BCS,1    %+3               B IF ACTIVE                       *F
     3687   01 00BE3    65700BE1              BIR,7    %-2               INRC. INDEX                       *F
     3688   01 00BE4    68000BE9              B        CLM6                                                *F
     3689                            *                                                                     *F
     3690   01 00BE5    32AE1964              LW,10    RETWT+64,7        RECEIVE ERROR TOTAL               *F
     3691   01 00BE6    38A00698              SW,10    P3                PRESET ERROR LIMIT                *F
     3692   01 00BE7    68300BE3              BCR,3    %-4               BRANCH IF NO ERRORS THIS LINE     *F
     3693   01 00BE8    04000014 A            ABORT    20                OUTPUT 'UNABLE TO PROCEED WITH    *F
     3694                            *                                    CLM TESTING' MESSAGE (ABORT 20)  *F
     3695                            *                                                                     *F
     3696   01 00BE9    6D000037 A   CLM6     WD,0     X'37'             SET INTERRUPT INHIBITS            *F
     3697   01 00BEA    32901DD5              LW,9     XICODE            GROUP CODE                        *F
     3698   01 00BEB    20901400 A            AI,9     X'1400'                                             *F
     3699   01 00BEC    32A01DD3              LW,10    XMTBIT            ENABLE TRANSMIT                   *F
     3700   01 00BED    EDA00009 A            WD,10    *9                 INTERRUPT LEVEL                  *F
     3701   01 00BEE    CF001DCC              HIO,0    *IODEVICE         COC ADDRESS                       *F
     3702   01 00BEF    CDA0052D              TIO,10   *ZDKB+1                                             *F
     3703   01 00BF0    69C00BEF              BCS,12   %-1               B IF I/O ADDRESS NOT REC.         *F
     3704   01 00BF1    22000BDF              LI,0     DA(CP23)          LOAD COMMAND DOUBLE WORD          *F
     3705   01 00BF2    CC00052D              SIO,0    *ZDKB+1           OUTPUT TO TYPEWRITER ONLY         *F
     3706                            *                 OUTPUT MESSAGE 'BEGIN CLM TESTING' ON 'KSR'         *F
     3707   01 00BF3    32A01E20     CLM7     LW,10    CLMXINTC          SET UP CLM XMIT                   *F
     3708   01 00BF4    B5A01DD9              STW,10   *XIADR             INTERRUPT ADDR                   *F
     3709   01 00BF5    32A01E22              LW,10    CLMRINTC          SET UP CLM REC.                   *F
     3710   01 00BF6    B5A01DD8              STW,10   *RIADR             INTERRUPT ADDR                   *F
     3711                            *                                                                     *F
     3712   01 00BF7    227FFFC0 A            LI,7     -64               INDEX                             *F
     3713   01 00BF8    22400000 A            LI,4     0                                                   *F
     3714   01 00BF9    354E18E4              STW,4    XFTWT+64,7        STORE IN 'XFTWT'                  *F
     3715   01 00BFA    354E1924              STW,4    RFTWT+64,7        STORE IN 'RFTWT'                  *F
     3716   01 00BFB    65700BF9              BIR,7    %-2                                                 *F
     3717                            *                                                                     *F
     3718   01 00BFC    22D00000 A            LI,13    0                 ZERO REG.13                       *F
     3719   01 00BFD    225FFFC0 A            LI,5     -64               INDEX                             *F
     3720   01 00BFE    326019E4              LW,6     LDBITAB                                             *F
     3721   01 00BFF    327019E5              LW,7     LDBITAB+1                                           *F
     3722   01 00C00    324A1804     CLM7A    LW,4     XTWT+64,5         FETCH TRANSMIT CONTROL WORD       *F
     3723   01 00C01    4B402154              AND,4    =X'200000'        TEST BIT 9(XDLY)                  *F
     3724   01 00C02    68300C05              BCR,3    %+3                                                 *F
     3725   01 00C03    32AA1884              LW,10    DTWT+64,5         GET INITIAL DELAY VALUE           *F
     3726   01 00C04    68000C08              B        %+4                                                 *F
     3727   01 00C05    21700001 A            CI,7     1                 CHECK START TIMING FLAG IN        *F
     3728   01 00C06    68400C09              BCR,4    %+3                'LDBITAB'                        *F
     3729   01 00C07    22A00001 A            LI,10    1                                                   *F
     3730   01 00C08    35AA1A66              STW,10   CLMTO+64,5        PUT '1' IN 'CLMTO'                *F
     3731   01 00C09    2560017F A            SLD,6    -1                                                  *F
     3732   01 00C0A    32AA1804              LW,10    XTWT+64,5         GET XTWT                          *F
     3733   01 00C0B    4BA02160              AND,10   =X'F1B00000'      SAVE FLAGS NEEDED FOR CLM MODE  *F01
     3734   01 00C0C    35AA1804              STW,10   XTWT+64,5          'ACTIVE',FORMAT','SLS',AND'XDLY  *F
     3735   01 00C0D    69100C10              BCS,1    %+3               BRANCH IF ACTIVE                  *F
     3736   01 00C0E    65500C00     CLM8     BIR,5    CLM7A                                               *F
     3737   01 00C0F    68000C1E              B        CLM9              BRANCH IF DONE                    *F
     3738                            *                                                                     *F
     3739   01 00C10    4BA02162              AND,10   =X'70000000'      MASKING                           *F
     3740   01 00C11    31A02163              CW,10    =X'10000000'      IS IT FORMAT '1'                  *F
     3741   01 00C12    69300C0E              BCS,3    CLM8              BRANCH IF NOT COMPARE             *F
     3742   01 00C13    3550000F A            STW,5    15                FORM LINE NO                      *F
     3743   01 00C14    20F01F40 A            AI,15    X'1F40'            AND SET UP CHAR.                 *F
     3744   01 00C15    75F61E03              STB,15   ERRORWD1,3                                          *F
     3745   01 00C16    67001E6D              EXU      STS                                                 *F
     3746   01 00C17    68100C1D              BCR,1    %+6               BRANCH IF TRANSMITTER IS BUSY     *F
     3747   01 00C18    67001E72              EXU      XDATA             SEND '1F'                         *F
     3748   01 00C19    22400000 A            LI,4     0                                                   *F
     3749   01 00C1A    354A1A66              STW,4    CLMTO+64,5        RESET POSSIBLE                    *F
     3750                            *                                    TIMEOUT COUNT                    *F
     3751   01 00C1B    20D00001 A            AI,13    1                 ADD ONE TO COUNT OF CHAR'S SENT   *F
     3752   01 00C1C    68000C0E              B        CLM8                                                *F
     3753                            *                                                                     *F
     3754   01 00C1D    04000001 A            ABORT    1                 TRANSMITTER XX BUSY               *F
     3755                            *                                                                     *F
     3756   01 00C1E    3240000D A   CLM9     LW,4     13                GET NO. OF CHARACTERS SENT        *F
     3757   01 00C1F    68300C4F              BCR,3    CLM11+8           BRANCH IF NO ACTIVE FORMAT '1'    *F
     3758                            *                                   LINES                             *F
     3759   01 00C20    32F0000D A            LW,15    13                                                  *F
     3760   01 00C21    23F00002 A            MI,15    2                 FORM BYTE COUNT (2BYTE/CHAR. SENT)*F
     3761   01 00C22    35F017BB              STW,15   CP22+1            STORE BYTE COUNT IN IOCD          *F
     3762                            *                                                                     *F
     3763                            *                                                                     *F
     3764   01 00C23    22000BDD              LI,0     DA(CP22)          SET UP 'IOCD' COMMAND DOUBLE WORD *F
     3765   01 00C24    CF001DCC              HIO,0    *IODEVICE                                           *F
     3766   01 00C25    CC001DCC              SIO,0    *IODEVICE                                           *F
     3767   01 00C26    68C00C28              BCR,12   %+2               BRANCH IF ACCEPTED                *F
     3768   01 00C27    04000015 A            ABORT    21                ABORT 21                          *F
     3769                            *                                                                     *F
     3770   01 00C28    22400000 A            LI,4     0                                                   *F
     3771   01 00C29    35401E01              STW,4    TIME              ZERO CURRENT TIME                 *F
     3772   01 00C2A    30401E84              AW,4     SLINE             ADD THE TIME IT TAKES             *F
     3773                            *                                   TO SEND ONE CHAR.                 *F
     3774   01 00C2B    30401E83              AW,4     LSDELAY           ADD LSDELAY                       *F
     3775   01 00C2C    31401E01              CW,4     TIME                                                *F
     3776   01 00C2D    69100C2F              BCS,1    %+2                                                 *F
     3777   01 00C2E    68000C2C              B        %-2               BRANCH TO COMPARE TIME            *F
     3778                            *                                    TO SEND '1F' ON ALL LINES        *F
     3779   01 00C2F    227FFFC0 A            LI,7     -64               INDEX                             *F
     3780   01 00C30    324E1844              LW,4     RTWT+64,7         GET RTWR                          *F
     3781   01 00C31    69100C34              BCS,1    %+3               BRANCH IF ACTIVE                  *F
     3782   01 00C32    65700C30     CLM10    BIR,7    %-2               BRANCH FOR ANOTHER LINE IF        *F
     3783                            *                                    NOT ACTIVE                       *F
     3784   01 00C33    68000C47              B        CLM11             NRANCH ON TAB END                 *F
     3785                            *                                                                     *F
     3786   01 00C34    4B402162              AND,4    =X'70000000'      EXTRACT FORMAT                    *F
     3787   01 00C35    31402163              CW,4     =X'10000000'      IS IT FORMAT '1'                  *F
     3788   01 00C36    69300C32              BCS,3    CLM10             BRANCH IF NOT FORMAT '1'          *F
     3789   01 00C37    22610040 A            LI,6     X'10040'                                            *F
     3790   01 00C38    30600007 A            AW,6     7                 FORM LINE NO.                     *F
     3791   01 00C39    35601E03              STW,6    ERRORWD1          STORE IN ERRORWD LOCATION         *F
     3792                            *                                                                     *F
     3793   01 00C3A    22600000 A            LI,6     0                                                   *F
     3794   01 00C3B    3A50000D A            LCW,5    13                GET 2'COMPLEMENT OF CHAR. SENT    *F
     3795   01 00C3C    52AC1BE6              LH,10    IOBUFF,6                                            *F
     3796   01 00C3D    4BA0214D              AND,10   =X'1FFF'          MASK OFF 3 HIGH ORD DATA BITS     *F
     3797   01 00C3E    20A0E100 A            AI,10    X'E100'           1'S COMP. OF X'1F'+1              *F
     3798   01 00C3F    31A01E03              CW,10    ERRORWD1                                            *F
     3799   01 00C40    68300C44              BCR,3    %+4               BRANCH IF THIS IS THE LINE        *F
     3800   01 00C41    20600001 A            AI,6     1                 ADD ONE TO INDEX                  *F
     3801   01 00C42    65500C3C              BIR,5    %-6               BRANCH BACK IF NOT DONE           *F
     3802   01 00C43    04000016 A            ABORT    22                ABORT 22                          *F
     3803   01 00C44    22800000 A            LI,8     0                 ZERO OUT THIS INPUT               *F
     3804   01 00C45    D58C068F              STH,8    *ZIOADR,6          LINE DATA                        *F
     3805                            *                                                                     *F
     3806                            *                                                                     *F
     3807   01 00C46    68000C32              B        CLM10             NOW LOOK FOR NEXT ACTIVE RECEIVER *F
     3808                            *                                                                     *F
     3809   01 00C47    CD001DCC     CLM11    TIO,0    *IODEVICE                                           *F
     3810   01 00C48    68C00C4A              BCR,12   %+2               BRANCH IF SIO POSSIBLE            *F
     3811                            *                                                                     *F
     3812   01 00C49    04000004 A            ABORT    4                 COC DEVICE ADDRESS REJECTED       *F
     3813                            *                                                                     *F
     3814   01 00C4A    CF001DCC              HIO,0    *IODEVICE                                           *F
     3815   01 00C4B    32401DD4              LW,4     RICODE                                              *F
     3816   01 00C4C    20401200 A            AI,4     X'1200'           ARM AND ENABLE CONSTANT           *F
     3817                            *                                   CLEAR POSSIBLE                    *F
     3818   01 00C4D    32F01DD2              LW,15    RECBIT             RECEIVE INTERRUPT REMAINING      *F
     3819   01 00C4E    EDF00004 A            WD,15    *4                  FROM FORMAT 1 OPERATIONS.       *F
     3820                            *                                                                     *F
     3821   01 00C4F    22400000 A            LI,4     0                 RESET TIME OF LAST                *F
     3822   01 00C50    227FFFC0 A            LI,7     -64                TRANSMIT INTERRUPT TO CAUSE      *F
     3823   01 00C51    354E19E4              STW,4    LDTIMTAB+64,7       'PSEUDO' INTERRUPT FOR LINES    *F
     3824   01 00C52    65700C51              BIR,7    %-1                  HAVING A COUNT OF '1' IN TABLE *F
     3825                            *                                       'CLMTO'.                      *F
     3826   01 00C53    32500690              LW,5     ZIOWDS                                              *F
     3827   01 00C54    23500004 A            MI,5     4                 FOUR TIMES FOR BYTE COUNT         *F
     3828   01 00C55    69200C57              BCS,2    %+2                                                 *F
     3829   01 00C56    04000014 A            ABORT    20                UNABLE TO PROCEED WITH CLM TESTING*F
     3830   01 00C57    21510000 A            CI,5     X'10000'          MAXIMUM EVEN BYTE COUNT           *F
     3831   01 00C58    69100C5A              BCS,1    %+2               BRANCH IF LESS THEN               *F
     3832   01 00C59    22510000 A            LI,5     X'10000'                                            *F
     3833   01 00C5A    555217C1              STH,5    CP24+1,1                                            *F
     3834   01 00C5B    35501E88              STW,5    BYTECNT           INITIALIZE FOR CLMRINT ROUTINE    *F
     3835   01 00C5C    2550007F A            SLS,5    -1                CONVERT TO HALF WORK INDEX COUNT  *F
     3836   01 00C5D    35500E02              STW,5    IOCDWORD          SAVE FOR CODE AT 'CLMRINT6'       *F
     3837   01 00C5E    35501E93              STW,5    LASTWC                                              *F
     3838                            *                                                                     *F
     3839   01 00C5F    226FFFFF A            LI,6     -1                                                  *F
     3840   01 00C60    35600E03              STW,6    IOCDWORD+1                                          *F
     3841                            *                                                                     *F
     3842   01 00C61    22600000 A            LI,6     0                 INITIALIZE POINTER                *F
     3843   01 00C62    3A701E88              LCW,7    BYTECNT           INDEX WITH BUFF SIZE              *F
     3844   01 00C63    22A00000 A            LI,10    0                 CLEAR CORE                        *F
     3845   01 00C64    F5AC068F              STB,10   *ZIOADR,6          USED AS                          *F
     3846   01 00C65    20600001 A            AI,6     1                   CLM MODE                        *F
     3847   01 00C66    65700C64              BIR,7    %-2                  BUFFER                         *F
     3848   01 00C67    32F0068F              LW,15    ZIOADR
     3849   01 00C68    23F00004 A            MI,15    4
     3850   01 00C69    55F217C0              STH,15   CP24,1            BUFFER STARTING ADDRESS
     3851   01 00C6A    22000BE0              LI,0     DA(CP24)
     3852   01 00C6B    CC001DCC              SIO,0    *IODEVICE                                           *F
     3853   01 00C6C    68C00C6F              BCR,12   %+3               BRANCH IF ACCEPTED                *F
     3854   01 00C6D    04000017 A            ABORT    23                TURN AROUND SIO REJECTED          *F
     3855                            *                                                                     *F
     3856   01 00C6E    FA0A1F02 A   MAXCOUNT DATA     -99999998                                           *F
     3857                            *        LW,4     %-1               PRESET FOR A                      *F
     3858   01 00C6F    35401E7E              STW,4    ENDCOUNT           MAX. TOTAL OF                    *F
     3859                            *                                     99,999,999 CHARACTERS.          *F
     3860   01 00C70    22400000 A            LI,4     0                                                   *F
     3861   01 00C71    35401E01              STW,4    TIME              RESET CURRENT TIME                *F
     3862   01 00C72    3240069B              LW,4     P6                GET TIMEOUT VALUE                 *F
     3863   01 00C73    35401E02              STW,4    TIME1                                               *F
     3864   01 00C74    32401DD5              LW,4     XICODE                                              *F
     3865   01 00C75    20401200 A            AI,4     X'1200'           ARM AND ENABLE INT.               *F
     3866   01 00C76    354006A1              STW,4    P12                                                 *F
     3867   01 00C77    32F01DD3              LW,15    XMTBIT            ARM AND ENABLE                    *F
     3868   01 00C78    EDF006A1              WD,15    *P12               INTERRUPT LEVEL                  *F
     3869   01 00C79    33F01036              MTW,15   PULLSIZE          CHANGE 'AI,12  -2' TO 'AI,12  -3' *F
     3870   01 00C7A    6D000023 A            WD,0     X'23'             RESET INHIBITS                    *F
     3871                            *                                                                     *F
     3872   01 00C7B    68000C7C              B        CLME00                                              *F
     3873                            *                                                                     *F
     3874                            *                                                                     *F
     3875                            *                                                                     *F
     3876                            * * * *  C L M   M O D E   E X E C U T I V E  * * * *                 *F
     3877                            *
     3878                            *                                                                     *F
     3879   01 00C7C    32401E8B     CLME00   LW,4     STOPFLAG                                            *F
     3880   01 00C7D    69100C8D              BCS,1    CLME01            BRANCH IF DOING ORDERLY SHUTDOWN  *F
     3881   01 00C7E    6C000000 A            RD,0     0                 READ SENSE SWITCH 0               *F
     3882   01 00C7F    69800CA3              BCS,8    CLMDONE           BRANCH IF ONE IS SET              *F
     3883   01 00C80    32401E01              LW,4     TIME              GET TIMEOUT VALUE                 *F
     3884   01 00C81    31401E02              CW,4     TIME1                                               *F
     3885   01 00C82    69200CA3              BCS,2    CLMDONE           BRANCH FOR TIMEOUT OCCURRED       *F
     3886   01 00C83    32401E80              LW,4     COUNTOUT          TEST FOR P3,P4 COUNT REACHED      *F
     3887   01 00C84    68300CA3              BCR,3    CLMDONE           BRANCH IF COUNTOUT=0              *F
     3888   01 00C85    32401E91              LW,4     PAUSE                                               *F
     3889   01 00C86    68300CF8              BCR,3    NOPAUSE           B IF PAUSE FLAG NOT SET           *F
     3890   01 00C87    69100C9F              BCS,1    FULLBUFF          B IF BUFF FULL                    *F
     3891                            *                                                                     *F
     3892   01 00C88    6C000000 A            RD,0     0                 READ SENSE SWITCHS                *F
     3893   01 00C89    69100CF3              BCS,1    XINTOK            B IF FOUR IS SET (SUPPRESS MSGS)  *F
     3894   01 00C8A    22400004 A            LI,4     4                                                   *F
     3895   01 00C8B    31401E2A              CW,4     SPACE0            CHECK PUSH LIST SPACE COUNT       *F
     3896   01 00C8C    69100CF3              BCS,1    XINTOK            B IF SPACE>4                      *F
     3897                            *                                                                     *F
     3898   01 00C8D    6C000000 A   CLME01   RD,0     0                 READ SENSE SWITCHES               *F
     3899   01 00C8E    69100C93              BCS,1    %+5               B IF SENSE SWITCH 4 SET (SUPPRESS *F
     3900                            *                                     ERR'S)                          *F
     3901   01 00C8F    0F000FFA              XPSD,0   ERROR             GO CHECK HERE ERROR TO REPORT     *F
     3902                            *                                                                     *F
     3903   01 00C90    32401E04              LW,4     WCOUNT0                                             *F
     3904   01 00C91    68300C93              BCR,3    %+2               B IF NO MORE ERRORS IN TABLE      *F
     3905   01 00C92    68000C8D              B        CLME01                                              *F
     3906                            *                                                                     *F
     3907   01 00C93    CD001DCC              TIO,0    *IODEVICE                                           *F
     3908   01 00C94    68C00CC5              BCR,12   SUMMARY           B IF 'COC' NO LONGER BUSY         *F
     3909                            *                                                                     *F
     3910   01 00C95    32401E8D              LW,4     PMBFLAG                                             *F
     3911   01 00C96    68300C7C              BCR,3    CLME00            B IF FLAG IS RESET                *F
     3912   01 00C97    68000C8D              B        CLME01                                              *F
     3913                            *                                                                     *F
     3914   01 00C98    32401E84     LONGDLAY LW,4     SLINE                                               *F
     3915   01 00C99    30401E8E              AW,4     LASTXINT          ADD TIME OF LAST 'XINT'           *F
     3916   01 00C9A    30401E83              AW,4     LSDELAY           PROPAGATION TIME FROM 'DXLD' DIR'S*F
     3917   01 00C9B    31401E01              CW,4     TIME              B FOR CHECKING TIME               *F
     3918   01 00C9C    68100C9E              BCR,1    %+2                                                 *F
     3919   01 00C9D    20E00001 A            AI,14    1                                                   *F
     3920   01 00C9E    E800000E A            B        *14                                                 *F
     3921   01 00C9F    6AE00C98     FULLBUFF BAL,14   LONGDLAY                                            *F
     3922   01 00CA0    68000C8D              B        CLME01            BRANCH IF PAUSE NOT EXCESSIVE     *F
     3923                            *                                                                     *F
     3924   01 00CA1    224FFFFF A            LI,4     -1                                                  *F
     3925   01 00CA2    35401E8D              STW,4    PMBFLAG           SET 'PMBFLAG'                     *F
     3926                            *                                                                     *F
     3927   01 00CA3    227FFFC0 A   CLMDONE  LI,7     -64                                                 *F
     3928   01 00CA4    324E1804              LW,4     XTWT+64,7         GET CTWT                          *F
     3929   01 00CA5    69100CA7              BCS,1    %+2               B IF ACTIVE                       *F
     3930   01 00CA6    68000CAA              B        %+4               B IF NOT ACTIVE                   *F
     3931   01 00CA7    4B402168              AND,4    =X'FFFDFFFF'                                        *F
     3932   01 00CA8    30402152              AW,4     =X'20000'         SET 1ST TIME FLAG                 *F
     3933   01 00CA9    354E1804              STW,4    XTWT+64,7         STORE BACK IN TABLE               *F
     3934   01 00CAA    65700CA4              BIR,7    %-6                                                 *F
     3935                            *                                                                     *F
     3936   01 00CAB    32401E01              LW,4     TIME              SAVE ORDERLY TERMINATION          *F
     3937   01 00CAC    35401E8C              STW,4    STOPTIME           INITIATION TIME VALUE            *F
     3938                            *                                                                     *F
     3939   01 00CAD    224FFFFF A            LI,4     -1                                                  *F
     3940   01 00CAE    35401E8B              STW,4    STOPFLAG          SET IT FOR ORDERLY 'SHUTDOWN'     *F
     3941                            *                                                                     *F
     3942   01 00CAF    6AE00C98              BAL,14   LONGDLAY          DELAY LONG ENOUGH FOR TRANSMITTED *F
     3943   01 00CB0    68000CAF              B        %-1                CHARACTERS TO BE RECEIVED        *F
     3944                            *                                                                     *F
     3945   01 00CB1    227FFFC0 A            LI,7     -64               INDEX                             *F
     3946   01 00CB2    32FE1844              LW,15    RTWT+64,7         GET RTWT                          *F
     3947   01 00CB3    69100CB9              BCS,1    CLME03            BRANCH IF RECEIVER IS ACTIVE      *F
     3948   01 00CB4    65700CB2     CLME02   BIR,7    %-2               BRANCH BACK                       *F
     3949                            *                                                                     *F
     3950   01 00CB5    CF001DCC              HIO,0    *IODEVICE                                           *F
     3951   01 00CB6    68C00CB8              BCR,12   %+2                                                 *F
     3952   01 00CB7    68000C8D              B        CLME01                                              *F
     3953                            *                                                                     *F
     3954   01 00CB8    04000018 A            ABORT    24                COC FAILED TO STAY BUSY           *F
     3955                            *                                                                     *F
     3956   01 00CB9    25F00270 A   CLME03   SCS,15   -16               RIGHT JUSTIFY                     *F
     3957   01 00CBA    4BF02151              AND,15   =63               EXTRACT TURNAROUND TRANSMITTER    *F
     3958   01 00CBB    35F01E03              STW,15   ERRORWD1          SAVE LINE NO. FOR ABORT MESSAGE   *F
     3959   01 00CBC    67001E6D              EXU      STS               SENSE TRANS. STATUS               *F
     3960   01 00CBD    68100CC4              BCR,1    %+7               B IF IT IS STILL BUSY             *F
     3961                            *                                                                     *F
     3962   01 00CBE    22F00040 A            LI,15    64                                                  *F
     3963   01 00CBF    30F00007 A            AW,15    7                                                   *F
     3964   01 00CC0    35F01E03              STW,15   ERRORWD1          SAVE LINE NO. FOR ABORT MESSAGE   *F
     3965   01 00CC1    67001E6F              EXU      TROFF             TURN OFF THE RECEIVER             *F
     3966   01 00CC2    68100CB4              BCR,1    CLME02            BRANCH IF STATUS CORRECT AFTER    *F
     3967                            *                                    'TURN RECEIVE OFF'               *F
     3968   01 00CC3    04000012 A            ABORT    18                RECEIVER XX NOT(OFF AND NOT L.S.  *F
     3969                            *                                                                     *F
     3970   01 00CC4    0400001A A            ABORT    26                TRANSMITTER XX REMAIN BUSY        *F
     3971                            *                                                                     *F
     3972         01 00CC5           SUMMARY  EQU      %                                                   *F
     3973                            *                                                                     *F
     3974   01 00CC5    22F01000 A            LI,15    1**12                                               *F
     3975   01 00CC6    6DF01100 A            WD,15    (1,X'100')        DISARM COUNTERS                   *F
     3976                            *                                                                     *F
     3977   01 00CC7    CD0005EB              TIO,0    *ZTWLPO           WAIT FOR COMPLETION OF            *F
     3978   01 00CC8    69C00CC7              BCS,12   %-1                ANY ERROR REPORT                 *F
     3979                            *                                                                     *F
     3980   01 00CC9    CD00052D              TIO,0    *ZDKB+1           WAIT FOR POSSIBLE                 *F
     3981   01 00CCA    69C00CC9              BCS,12   %-1               'BEGIN CLM TESTING' MESSAGE       *F
     3982                            *                                                                     *F
     3983   01 00CCB    32C020F4              LW,12    MW65                                                *F
     3984   01 00CCC    6AF005C8              BAL,15   ZSML40            OUTPUT ON 'KSR', MESSAGE LEVEL 0  *F
     3985   01 00CCD    32401E8C              LW,4     STOPTIME          USE TEST TERMINATION TIME FOR     *F
     3986   01 00CCE    35401E01              STW,4    TIME               'CLM SUMMARY' AND 'TIRP'         *F
     3987                            *                                     CALCULATIONS.                   *F
     3988   01 00CCF    35400696              STW,4    P1                                                  *F
     3989   01 00CD0    6AF00F56              BAL,15   TIME00            REPORT TERMINATION TIME           *F
     3990                            *                                                                     *F
     3991   01 00CD1    22C00000 A            LI,12    0                                                   *F
     3992   01 00CD2    22500000 A            LI,5     0                                                   *F
     3993   01 00CD3    22600000 A            LI,6     0                                                   *F
     3994   01 00CD4    227FFFC0 A            LI,7     -64                                                 *F
     3995   01 00CD5    30CE1AA6              AW,12    CLMLSREC+64,7                                       *F
     3996   01 00CD6    305E19A4              AW,5     CSETWT+64,7                                         *F
     3997   01 00CD7    306E1964              AW,6     RETWT+64,7                                          *F
     3998   01 00CD8    38600698              SW,6     P3                                                  *F
     3999   01 00CD9    65700CD5              BIR,7    %-4                                                 *F
     4000                            *
     4001   01 00CDA    6AE011F4              BAL,14   CV01                                                *F
     4002   01 00CDB    35C020E2              STW,12   TEXT64+2                                            *F
     4003   01 00CDC    35D020E3              STW,13   TEXT64+3                                            *F
     4004   01 00CDD    32C00005 A            LW,12    5                                                   *F
     4005   01 00CDE    6AE011F4              BAL,14   CV01                                                *F
     4006   01 00CDF    35C020E6              STW,12   TEXT64+6                                            *F
     4007   01 00CE0    35D020E7              STW,13   TEXT64+7                                            *F
     4008   01 00CE1    32C00006 A            LW,12    6                                                   *F
     4009   01 00CE2    6AE011F4              BAL,14   CV01                                                *F
     4010   01 00CE3    35C020EA              STW,12   TEXT64+10                                           *F
     4011   01 00CE4    35D020EB              STW,13   TEXT64+11                                           *F
     4012                            *                                                                     *F
     4013   01 00CE5    32C01E8F              LW,12    XCOUNT            GET XMIT CHAR. COUNT              *F
     4014   01 00CE6    6AE011F4              BAL,14   CV01              B TO CONVERSION ROUTINE           *F
     4015   01 00CE7    35C020EE              STW,12   TEXT64+14                                           *F
     4016   01 00CE8    35D020EF              STW,13   TEXT64+15                                           *F
     4017                            *                                                                     *F
     4018   01 00CE9    32C01E90              LW,12    RCOUNT            GET REC. CHAR. COUNT              *F
     4019   01 00CEA    6AE011F4              BAL,14   CV01              B TO CONVERSION ROUTINE           *F
     4020   01 00CEB    35C020F2              STW,12   TEXT64+18                                           *F
     4021   01 00CEC    35D020F3              STW,13   TEXT64+19                                           *F
     4022                            *                                                                     *F
     4023   01 00CED    32C020DF              LW,12    MW64                                                *F
     4024   01 00CEE    6AF005C8              BAL,15   ZSML40            OUTPUT ON 'KSR', MESSAGE LEVEL 0  *F
     4025   01 00CEF    32401E8D              LW,4     PMBFLAG                                             *F
     4026   01 00CF0    68300CF2              BCR,3    %+2                                                 *F
     4027   01 00CF1    33101DFE              MTW,1    RETURN            ADD ONE TO'RETURN'                *F
     4028   01 00CF2    6800114D              B        SHUTDOWN          TAKE PLACEMARK BRANCH             *F
     4029   01 00CF3    72461DD5     XINTOK   LB,4     XICODE,3          ENABLE TRANSMIT                   *F
     4030   01 00CF4    20401400 A            AI,4     X'1400'            INTERRUPT                        *F
     4031   01 00CF5    3540069F              STW,4    P10                 LEVEL                           *F
     4032   01 00CF6    32F01DD3              LW,15    XMTBIT               TO RESUME                      *F
     4033   01 00CF7    EDF0069F              WD,15    *P10                  SENDING                       *F
     4034                            *                                                                     *F
     4035   01 00CF8    227FFFC0 A   NOPAUSE  LI,7     -64                                                 *F
     4036   01 00CF9    3570069D              STW,7    P8                                                  *F
     4037   01 00CFA    3270069D              LW,7     P8                                                  *F
     4038   01 00CFB    324E1844              LW,4     RTWT+64,7         GET RTWT                          *F
     4039   01 00CFC    69100D01              BCS,1    %+5               BRANCH IF RECEIVER ACTIVE         *F
     4040                            *                                                                     *F
     4041   01 00CFD    6D000027 A   CLME04   WD,0     X'27'             RESET INHIBITS (SET FOR PSEUDO    *F
     4042                            *                                    INTURRUPTS)                      *F
     4043                            *                                                                     *F
     4044   01 00CFE    3310069D              MTW,1    P8                                                  *F
     4045   01 00CFF    68800CFA              BCR,8    NOPAUSE+2         B IF MORE LINES TO tEST           *F
     4046   01 00D00    68000C8D              B        CLME01                                              *F
     4047                            *                                                                     *F
     4048   01 00D01    22F00040 A            LI,15    64                FORM LINE                         *F
     4049   01 00D02    30F00007 A            AW,15    7                  NUMBER                           *F
     4050   01 00D03    67001E6C              EXU      SRS               TEST FOR DATA SET READY           *F
     4051   01 00D04    69300D06              BCS,3    %+2                                                 *F
     4052   01 00D05    04000024 A            ABORT    36                RECEIVER  XX NOT INSTALLED        *F
     4053                            *                                                                     *F
     4054   01 00D06    25400210 A            SCS,4    16                RIGHT JUSTIFY FOR LINE NO.        *F
     4055   01 00D07    4B402151              AND,4    =63               EXTRACT TURNAROUND TRANSMITTER.   *F
     4056   01 00D08    35401E98              STW,4    EXECLINE          SAVE TRANSMI LINE NO.             *F
     4057   01 00D09    35401E03              STW,4    ERRORWD1          SAVE FOR ABORT MESSAGES           *F
     4058   01 00D0A    72760004 A            LB,7     4,3                                                 *F
     4059   01 00D0B    32AE17C4              LW,10    XTWT,7            GET TRANSMIT TEST WORD            *F
     4060   01 00D0C    69100D0E              BCS,1    %+2               B IF ACTIVE                       *F
     4061                            *                                                                     *F
     4062   01 00D0D    04000000 A            ABORT    0                 TRANSMITTER XX NOT ACTIVE         *F
     4063                            *                                                                     *F
     4064   01 00D0E    31A02154              CW,10    =1**21                                              *F
     4065   01 00D0F    69400D12              BCS,4    %+3               B IF 'XDLY' FLAG IS SET           *F
     4066   01 00D10    324E1A26              LW,4     CLMTO,7           GET TIME-OUT VALUE FOR THIS LINE  *F
     4067   01 00D11    68300CFD              BCR,3    CLME04            B IF ZERO (NOT TIMING 'MARK'      *F
     4068                            *                                    LEVEL AFTER SENDING LONG SPACE   *F
     4069   01 00D12    324E1A26              LW,4     CLMTO,7                                             *F
     4070   01 00D13    68200CFD              BCR,2    CLME04            B IF 'XDLY' TYPE LINE WHICH HAS   *F
     4071                            *                                    INITIATED A TRANSMISSION FOR     *F
     4072                            *                                     WHICH AN INTERRUPT HAS NOT YET  *F
     4073                            *                                      OCCURRED.                      *F
     4074   01 00D14    304E19A4              AW,4     LDTIMTAB,7        ADD LAST TRANSMIT TIME FOR THIS   *F
     4075                            *                                    LINE                             *F
     4076   01 00D15    31401E01              CW,4     TIME              TEST FOR TIMEOUT                  *F
     4077   01 00D16    69200CFD              BCS,2    CLME04            B IF NO TIME OUT                  *F
     4078                            *                                                                     *F
     4079   01 00D17    6D000037 A            WD,0     X'37'             SET INHIBITS                      *F
     4080   01 00D18    324E17C4              LW,4     XTWT,7                                              *F
     4081   01 00D19    2540040A A            SAS,4    10                RIGHT JUSTIFY                     *F
     4082   01 00D1A    25400461 A            SAS,4    -31               PRESET TIMEOUT                    *F
     4083   01 00D1B    354E1A26              STW,4    CLMTO,7            VALUE WORD.                      *F
     4084   01 00D1C    22400CFD              LI,4     CLME04            RETURN ADDRESS                    *F
     4085   01 00D1D    35400D26              STW,4    CLMXINT            AT INTERRUPT ROUTINE EXIT        *F
     4086   01 00D1E    32402169              LW,4     =X'80000000'      PSEUDO INTERRUPT FLAG             *F
     4087   01 00D1F    30401E98              AW,4     EXECLINE          ADD LINE NO.                      *F
     4088   01 00D20    35400D27              STW,4    CLMXINT+1                                           *F
     4089                            *                                                                     *F
     4090   01 00D21    32F00007 A            LW,15    7                                                   *F
     4091   01 00D22    68000D53              B        CLMXINTP          PSEUDO ENTRANCE                   *F
     4092                            *                                                                     *F
     4093                            *                                                                     *F
     4094                            *                                                                     *F
     4095                            * * * *  C L M  M O D E  T R A N S M I T .   R O U T I N E            *F
     4096                            *                                                                     *F
     4097                            *                                                                     *F
     4098                            *                                                                     *F
     4099   01 00D23                          RES      1                                                   *F
     4100                                     BOUND    8                                                   *F
     4101   01 00D24                          RES      2                 SAVE REGISTERS '15',AND '7'       *F
     4102   01 00D26    00000000 A   CLMXINT  DATA     0,0,%+2,7**24     SAVE 'PSD' HERE                   *F
            01 00D27    00000000 A
            01 00D28    00000D2A
            01 00D29    07000000 A
     4103                            *                                   SET INTERRUPT INHIBITS            *F
     4104   01 00D2A    15E00D24              STD,14   CLMXINT-2         SAVE '15' AND '14'                *F
     4105   01 00D2B    35700D23              STW,7    CLMXINT-3         SAVE '7'                          *F
     4106                            *                                                                     *F
     4107                            *                                                                     *F
     4108   01 00D2C    67001E75              EXU      LINENO            GET LINE NO. CAUSING INTERRUPT    *F
     4109   01 00D2D    4BF02151              AND,15   L(63)                                               *F
     4110   01 00D2E    35F01E03              STW,15   ERRORWD1          SAVE FOR ABORT MESSAGES           *F
     4111                            *                                                                     *F
     4112   01 00D2F    3270000F A            LW,7     15                LINE NO. IN REG. 15               *F
     4113   01 00D30    32AE17C4              LW,10    XTWT,7                                              *F
     4114   01 00D31    69100D34              BCS,1    %+3               B IF ACTIVE LINE                  *F
     4115                            *                                                                     *F
     4116   01 00D32    04000000 A            ABORT    0                 TRANSMITTER XX NOT ACTIVE         *F
     4117                            *                                                                     *F
     4118   01 00D33    04000005 A            ABORT    5                 TRANSMITTER XX NOT INSTALLED      *F
     4119                            *                 LINE NO. IN REG.15                                  *F
     4120   01 00D34    67001E6D              EXU      STS               SENSE XMITTER STATUS              *F
     4121   01 00D35    68200D33              BCR,2    %-2               B IF NO 'CLEAR TO SEND' SIGNAL    *F
     4122                            *                                                                     *F
     4123   01 00D36    31F01E89              CW,15    SLOWLINE                                            *F
     4124   01 00D37    69300D4E              BCS,3    CLMXINT3          B IF NOT SLOWEST LINE             *F
     4125                            *                                                                     *F
     4126   01 00D38    33101E80              MTW,1    COUNTOUT                                            *F
     4127   01 00D39    69300D4E              BCS,3    CLMXINT3          B IF COUNT NOT EXHAUSTED          *F
     4128                            *                                   (COUNT=P4X1000)                   *F
     4129         01 00D3A           CLMXINT0 EQU      %                 ORDERLY SHUTDOWN WHEN ENTERED     *F
     4130                            *                                                                     *F
     4131   01 00D3A    227FFFC0 A            LI,7     -64               LOOP COUNT                        *F
     4132   01 00D3B    32AE1804              LW,10    XTWT+64,7         SET 'FIRST TIME'                  *F
     4133   01 00D3C    4BA02168              AND,10   =X'FFFDFFFF'       FLAG ON EACH                     *F
     4134   01 00D3D    30A02152              AW,10    =X'20000'           LINE TO CAUSE AN ORDERLY        *F
     4135   01 00D3E    35AE1804              STW,10   XTWT+64,7            CYCLE DOWN.                    *F
     4136   01 00D3F    22A00000 A            LI,10    0                 PREVENT ANY                       *F
     4137   01 00D40    35AE1A66              STW,10   CLMTO+64,7         'PSEUDO'                         *F
     4138   01 00D41    65700D3B              BIR,7    %-6                 INTERRUPTS                      *F
     4139                            *                                                                     *F
     4140                            *                                   SEND STOP TRANSMIT                *F
     4141   01 00D42    67001E74     CLMXINT1 EXU      XSTOP              ON THIS LINE                     *F
     4142   01 00D43    68100D4B              BCR,1    CLMXINT2          B IF STATUS INCORRECT             *F
     4143                            *                                                                     *F
     4144   01 00D44    32701E03              LW,7     ERRORWD1          RESTORE LINE NO. INDEX            *F
     4145   01 00D45    32B01E01              LW,11    TIME              SAVE TIME OF LAST SERVICE         *F
     4146   01 00D46    35BE19A4              STW,11   LDTIMTAB,7         THROUGH TRANSMIT                 *F
     4147   01 00D47    35B01E8E              STW,11   LASTXINT            INTERRUPT ROUTINE               *F
     4148                            *                                                                     *F
     4149   01 00D48    12E00D24              LD,14    CLMXINT-2         RESTORE '15' AND '14'             *F
     4150   01 00D49    32700D23              LW,7     CLMXINT-3         RESTORE '7'                       *F
     4151                            *                                                                     *F
     4152   01 00D4A    0E300D26              LPSD,3   CLMXINT           CLEAR INTERRUPT AND EXIT.         *F
     4153                            *                                                                     *F
     4154   01 00D4B    B2A00DBB     CLMXINT2 LW,10    *CLMXINTB-1       'STOP TRANSMIT' INITATED WHILE    *F
     4155   01 00D4C    35AE1A26              STW,10   CLMTO,7            TRANSMITTING 'LONG SPACE',SO     *F
     4156   01 00D4D    68000D44              B        CLMXINT1+2          WAIT LONG ENOUGH FOR SEND       *F
     4157                            *                                      MODULE TO RECOVER.             *F
     4158   01 00D4E    32AE17C4     CLMXINT3 LW,10    XTWT,7                                              *F
     4159   01 00D4F    21A20000 A            CI,10    1**17                                               *F
     4160   01 00D50    69400D70              BCS,4    CLMXINT6          B IF FIRST TIME FLAG SET          *F
     4161   01 00D51    31A02154              CW,10    =1**21                                              *F
     4162   01 00D52    69400D73              BCS,4    CLMXINT7          B IF 'XDLY' FLAG SET              *F
     4163                            *                                                                     *F
     4164         01 00D53           CLMXINTP EQU      %                 PSEUDO INTERRUPT ENTERS HERE      *F
     4165   01 00D53    31A0216A              CW,10    =1**26                                              *F
     4166   01 00D54    69400DB0              BCS,4    CLMXINTA          B IF LONG SPACE NEXT FLAG SET     *F
     4167                            *                                                                     *F
     4168   01 00D55    35F01E03              STW,15   ERRORWD1          SAVE LINE FOR POSSIBLE ERR. MSG.  *F
     4169   01 00D56    3270000F A            LW,7     15                GET LINE NO.                      *F
     4170   01 00D57    22F000FF A            LI,15    255               GET COUNT                         *F
     4171   01 00D58    4BFE18A4              AND,15   XFTWT,7                                             *F
     4172   01 00D59    331E18A4              MTW,1    XFTWT,7           ADD '1' TO 'XFTWT'                *F
     4173   01 00D5A    25F00408 A            SAS,15   8                 POSITION CHARACTER                *F
     4174   01 00D5B    30F01E03              AW,15    ERRORWD1          LINE NUMBER                       *F
     4175   01 00D5C    67001E6D              EXU      STS                                                 *F
     4176   01 00D5D    69100D5F              BCS,1    %+2               B IF TRANSMITTER READY            *F
     4177   01 00D5E    04000001 A            ABORT    1                 TRANSMITTER XX BUSY               *F
     4178   01 00D5F    67001E72              EXU      XDATA             SEND THE CHARACTER                *F
     4179   01 00D60    72F4000F A            LB,15    15,2                                                *F
     4180   01 00D61    32AE17C4              LW,10    XTWT,7                                              *F
     4181   01 00D62    22E00000 A            LI,14    0                                                   *F
     4182   01 00D63    21F000FF A            CI,15    X'FF'                                               *F
     4183   01 00D64    69300D68              BCS,3    %+4                                                 *F
     4184   01 00D65    31A0216B              CW,10    =9**20                                              *F
     4185   01 00D66    68400D68              BCR,4    %+2                                                 *F
     4186   01 00D67    32E0216A              LW,14    =1**26                                              *F
     4187   01 00D68    4BA0216C              AND,10   =X'FBFFFFF0'      DROP BIT POSITIONS 28-31, FLAG    *F
     4188   01 00D69    49A0000E A            OR,10    14                SET L.S. NEXT FLAG                *F
     4189   01 00D6A    35AE17C4              STW,10   XTWT,7            RESTORE 'XTWT'                    *F
     4190                            *                                                                     *F
     4191   01 00D6B    33101E7E     CLMXINT4 MTW,1    ENDCOUNT          TEST FOR REACHING TOTAL           *F
     4192   01 00D6C    69300D6E              BCS,3    %+2                CHARACTERS LIMIT.                *F
     4193   01 00D6D    68000D3A              B        CLMXINT0          NOW CAUSE AN ORDERLY SHUTDOWN     *F
     4194   01 00D6E    33101E8F              MTW,1    XCOUNT                                              *F
     4195   01 00D6F    69200D44              BCS,2    CLMXINT1+2        B IF LOW ORDER TOTAL > 0          *F
     4196                            *                                                                     *F
     4197   01 00D70    22A00000 A   CLMXINT6 LI,10    0                                                   *F
     4198   01 00D71    35AE1A26              STW,10   CLMTO,7           RESET TIME-OUT VALUE FOR          *F
     4199                            *                                    ORDERLY SHUT-DOWN CYCLE          *F
     4200   01 00D72    68000D42              B        CLMXINT1                                            *F
     4201   01 00D73    32F01E03     CLMXINT7 LW,15    ERRORWD1          GET LINE NO.                      *F
     4202   01 00D74    67001E6D              EXU      STS               SENSE TRANSMITTER STATUS          *F
     4203   01 00D75    68100D79              BCR,1    %+4               B IF NOW SENDING LONG SPACE       *F
     4204   01 00D76    32BE1844              LW,11    DTWT,7            GET DELAY VALUE                   *F
     4205   01 00D77    35BE1A26              STW,11   CLMTO,7           SET RESTART TIME VALUE            *F
     4206   01 00D78    68000D42              B        CLMXINT1                                            *F
     4207                            *                                                                     *F
     4208   01 00D79    32BE1A26              LW,11    CLMTO,7                                             *F
     4209   01 00D7A    69300D7D              BCS,3    %+3                                                 *F
     4210                            *                                   INTERRUPT FROM INITIAL LONG SPACE *F
     4211   01 00D7B    32AE1844              LW,10    DTWT,7                                              *F
     4212   01 00D7C    68000D98              B        CLMXINT8+3                                          *F
     4213                            *                                                                     *F
     4214   01 00D7D    69100D87              BCS,1    %+10                                                *F
     4215                            *                                                                     *F
     4216   01 00D7E    31BE1844              CW,11    DTWT,7            COMPARE WITH 'XDLY' VALUE, BRANCH *F
     4217   01 00D7F    69300DB0              BCS,3    CLMXINTA           IF NOT THE SAME AS PREVIOUS      *F
     4218                            *                                     TIMEOUT VALUE ENTRY.            *F
     4219                            *                                                                     *F
     4220                            *                 'XDLY' VALUE EXCEEDS ONE LONG SPACE TIME            *F
     4221                            *                                                                     *F
     4222                            *                                                                     *F
     4223   01 00D80    46A0000B A            XW,10    11                                                  *F
     4224   01 00D81    30AE19A4              AW,10    LDTIMTAB,7        ADD TIME OF LAST TRANSM           *F
     4225   01 00D82    38A01E01              SW,10    TIME              CURRENT TIME                      *F
     4226   01 00D83    35A0000D A            STW,10   13                                                  *F
     4227   01 00D84    3AA0000A A            LCW,10   10                FORM 1'S                          *F
     4228   01 00D85    20AFFFFF A            AI,10    -1                 COMPLEMENT                       *F
     4229   01 00D86    68000D98              B        CLMXINT8+3                                          *F
     4230                            *                                                                     *F
     4231                            *                                                                     *F
     4232   01 00D87    3AA0000B A            LCW,10   11                FORM 1'S                          *F
     4233   01 00D88    20AFFFFF A            AI,10    -1                 COMPLEMENT                       *F
     4234   01 00D89    35AE1A26              STW,10   CLMTO,7           SAVE REMAINING COUNT              *F
     4235   01 00D8A    32A01E01              LW,10    TIME                                                *F
     4236   01 00D8B    38AE19A4              SW,10    LDTIMTAB,7        LAST TRANSMIT INTERRUPT SERVICE   *F
     4237   01 00D8C    31AE1A26              CW,10    CLMTO,7                                             *F
     4238   01 00D8D    69100D8F              BCS,1    %+2               B IF 1 CHAR.< REMAINING TIME      *F
     4239   01 00D8E    68000D99              B        CLMXINT8+4        SEND PARTIAL LONG SPACE           *F
     4240                            *                                                                     *F
     4241   01 00D8F    3AA0000A A            LCW,10   10                FORM 1'S COMPLEMENT               *F
     4242   01 00D90    30AE1A26              AW,10    CLMTO,7           SUB. 1 L. S. TIME FROM COUNT      *F
     4243   01 00D91    68300D99              BCR,3    CLMXINT8+4        B IF EOUAL                        *F
     4244                            *                                                                     *F
     4245   01 00D92    3AA0000A A            LCW,10   10                FORM 1'S                          *F
     4246   01 00D93    20AFFFFF A            AI,10    -1                 COMPLEMENT AND                   *F
     4247   01 00D94    68000D98              B        CLMXINT8+3         SAVE REMAINING TIME              *F
     4248                            *                                                                     *F
     4249                            *                 LINE NO. IN REG. 15                                 *F
     4250   01 00D95    67001E6D     CLMXINT8 EXU      STS               SENSE XMITTER STATUS              *F
     4251   01 00D96    68100DA5              BCR,1    CLMXINT9          B IF BUSY                         *F
     4252   01 00D97    22A00000 A            LI,10    0                 ZERO OUT TIMEOUT FOR FIRST L.S.   *F
     4253   01 00D98    35AE1A26              STW,10   CLMTO,7                                             *F
     4254   01 00D99    67001E73              EXU      XLS               SEND LONG SPACE                   *F
     4255   01 00D9A    68100D9C              BCR,1    %+2               B IF STATUS CORRECT               *F
     4256                            *                                                                     *F
     4257   01 00D9B    04000006 A            ABORT    6                 XMITTER XX FAILS TO REPORT BUSY   *F
     4258                            *                                                                     *F
     4259   01 00D9C    331E1AA6              MTW,1    CLMXLS,7          COUNT LONG SPACES TRANSMITTED     *F
     4260   01 00D9D    68000D44              B        CLMXINT1+2        NOW SAVE TIME OF SERVICE AND EXIT.*F
     4261                            *                                                                     *F
     4262   01 00D9E    32B0216D              LW,11    =X'FBFFFFFF'      RESET LON SPACE NEXT FLAG         *F
     4263   01 00D9F    4BBE17C4              AND,11   XTWT,7                                              *F
     4264   01 00DA0    35BE17C4              STW,11   XTWT,7            STORE BACK                        *F
     4265   01 00DA1    B2B00DBB              LW,11    *CLMXINTB-1                                         *F
     4266   01 00DA2    30B0069A              AW,11    P5                                                  *F
     4267   01 00DA3    68000DA6              B        %+3                                                 *F
     4268                            *                                                                     *F
     4269   01 00DA4    331E17C4              MTW,1    XTWT,7            SET FLAG TO START NEXT TIME       *F
     4270                            *                                                                     *F
     4271   01 00DA5    32B01E8A     CLMXINT9 LW,11    1SLOWBIT                                            *F
     4272   01 00DA6    35BE1A26              STW,11   CLMTO,7           STORE RESTART TIME VALUE          *F
     4273   01 00DA7    68000D42              B        CLMXINT1          NOW GO SEND STOP TRANSMIT         *F
     4274                            *                                                                     *F
     4275   01 00DA8    31A02153              CW,10    =1**20            TEST FOR 'SLS' FLAG SET           *F
     4276   01 00DA9    69400DBC              BCS,4    CLMXINTB          BRANCH IF WAIT TO RECEIVE LS MODE *F
     4277   01 00DAA    22A00700 A            LI,10    7**8              GET CURRENT CHARACTER COUNT.      *F
     4278   01 00DAB    4BAE18A4              AND,10   XFTWT,7            AND EXTRACT MULTIPLES OF 256     *F
     4279   01 00DAC    25A00278 A            SCS,10   -8                                                  *F
     4280   01 00DAD    38A0000B A            SW,10    11                SUBTRACT CURRENT COUNT            *F
     4281   01 00DAE    69100D9E              BCS,1    CLMXINT9-7        B IF COUNT EXHAUSTED              *F
     4282   01 00DAF    68000DBE              B        CLMXINTB+2        COUNT AND SEND ONE LONG SPACE     *F
     4283         01 00DB0           CLMXINTA EQU      %                                                   *F
     4284   01 00DB0    22B0000F A            LI,11    15                                                  *F
     4285   01 00DB1    4AB0000A A            LS,11    10                EXTRACT COUNT                     *F
     4286   01 00DB2    68300DA4              BCR,3    CLMXINT9-1        BRANCH FOR INITIAL DELAY AFTER    *F
     4287                            *                                    X'FF' CHARACTER.                 *F
     4288   01 00DB3    21B00008 A            CI,11    8                                                   *F
     4289   01 00DB4    69400D9E              BCS,4    CLMXINT9-7        BRANCH WHEN MAXIMUM COUNT REACHED.*F
     4290                            *                                                                     *F
     4291   01 00DB5    31A0216E              CW,10    =1**23            TEST FOR 'SLS EXTENTION' FLAG SET *F
     4292   01 00DB6    69400DA8              BCS,4    CLMXINT9+3        B IF MULTIPLE LONG SPACE          *F
     4293   01 00DB7    331E17C4              MTW,1    XTWT,7            STEP COUNT FOR NEXT TIME          *F
     4294   01 00DB8    21B00002 A            CI,11    2                                                   *F
     4295   01 00DB9    69100D95              BCS,1    CLMXINT8          GO SEND A SINGLE LONG SPACE       *F
     4296   01 00DBA    68000D9E              B        CLMXINT9-7        NOW SEND STOP TRANSMIT            *F
     4297                            *                                                                     *F
     4298   01 00DBB    00001E96              DATA     CSLL              HAS TIME OF SLOWEST LINE LONG SP. *F
     4299                            *                                                                     *F
     4300   01 00DBC    31A0216F     CLMXINTB CW,10    =1**25            LONG SPACE RECEIVED FLAG          *F
     4301   01 00DBD    69400DC0              BCS,4    %+3                                                 *F
     4302                            *                                                                     *F
     4303   01 00DBE    331E17C4              MTW,1    XTWT,7            COUNT AND SEND                    *F
     4304   01 00DBF    68000D99              B        CLMXINT8+4         ONE LONG SPACE
     4305                            *                                                                     *F
     4306   01 00DC0    32B0216C              LW,11    =X'FBFFFFF0'      RESET L.S. NEXT FLAG AND LS COUNT *F
     4307   01 00DC1    68000D9F              B        CLMXINT9-6                                          *F
     4308                            *                                                                     *F
     4309                            *                                                                     *F
     4310                            * * * *  C L M   M O D E   R E C E I V E   I N T .    R O U T I N E * *F
     4311                            *                                                                     *F
     4312                            *                                                                     *F
     4313                                     BOUND    8                                                   *F
     4314                            *                                                                     *F
     4315                            *                                                                     *F
     4316   01 00DC2    00000000 A   CLMRINT  DATA     0,0,%+2,7**24     SAVE CURRURENT 'PSD' HERE         *F
            01 00DC3    00000000 A
            01 00DC4    00000DC6
            01 00DC5    07000000 A
     4317   01 00DC6    0E300DCC              LPSD,3   CLMRINT0          CLEAR INTERRUPT                   *F
     4318   01 00DC7                          RES      5                 SAVE REGISTERS HERE 5,6,7,12,13   *F
     4319                                     BOUND    8                  BUT LEAVE                        *F
     4320   01 00DCC    30000DCE     CLMRINT0 GEN,4,28 3,%+2             CC = 3                            *F
     4321   01 00DCD    07000000 A            DATA     7**24             SET INHIBITS                      *F
     4322   01 00DCE    2B500DC7              STM,5    CLMRINT0-5        SAVE                              *F
     4323   01 00DCF    15C00DCA              STD,12   CLMRINT0-2         REGISTERS                        *F
     4324                            *                                                                     *F
     4325   01 00DD0    32801E9A              LW,8     TRANSITF                                            *F
     4326   01 00DD1    68300DD8              BCR,3    CLMRINT1          B IF NOT INITIAL INTERRUPT        *F
     4327                            *                                                                     *F
     4328   01 00DD2    32901E8F              LW,9     XCOUNT                                              *F
     4329   01 00DD3    68300DD8              BCR,3    CLMRINT1          B IF SPURIOUS RECEIVE INT.        *F
     4330   01 00DD4    25900401 A            SAS,9    1                 DOUBLE FOR SAFETY MARGIN          *F
     4331   01 00DD5    35901E9B              STW,9    TRANSITF+1                                          *F
     4332   01 00DD6    33101E9A              MTW,1    TRANSITF          RESET FLAG  (WAS -1 BFFORE)       *F
     4333   01 00DD7    33101E95              MTW,1    BUFFPASS                                            *F
     4334                            *                                                                     *F
     4335   01 00DD8    CDA01DCC     CLMRINT1 TIO,10   *IODEVICE         FETCH BYTE COUNT                  *F
     4336   01 00DD9    21B00001 A            CI,11    1                                                   *F
     4337   01 00DDA    68400DDC              BCR,4    %+2                                                 *F
     4338   01 00DDB    04000002 A            ABORT    2                 RECEIVE BYTE COUNT IS ODD         *F
     4339                            *                                                                     *F
     4340   01 00DDC    2290FFFF A            LI,9     X'FFFF'                                             *F
     4341   01 00DDD    4A90000B A            LS,9     11                                                  *F
     4342   01 00DDE    2590047F A            SAS,9    -1                CONVERT TO NO. OF INPUT SERVICES. *F
     4343   01 00DDF    46901E93              XW,9     LASTWC            GET OLD, SAVE NEW                 *F
     4344                            *                                                                     *F
     4345   01 00DE0    31901E93              CW,9     LASTWC                                              *F
     4346   01 00DE1    69300E06              BCS,3    CLMRINT5          B IF BYTE COUNT CHANGED           *F
     4347                            *                                                                     *F
     4348   01 00DE2    32801E8F     CLMRINT2 LW,8     XCOUNT                                              *F
     4349   01 00DE3    38801E90              SW,8     RCOUNT                                              *F
     4350   01 00DE4    68100DE6              BCR,1    %+2                                                 *F
     4351   01 00DE5    04000019 A            ABORT    25                MORE CHAR. RECEIVED THAN          *F
     4352                            *                                    TRANSMITTED                      *F
     4353   01 00DE6    30801E9B              AW,8     TRANSITF+1        BUFFER MARGIN VALUE               *F
     4354   01 00DE7    25800401 A            SAS,8    1                 DOUBLE FOR BYTE COUNT VALUE       *F
     4355   01 00DE8    32901E88              LW,9     BYTECNT                                             *F
     4356   01 00DE9    38900008 A            SW,9     8                 SUBTRACT BUFFER SIZE              *F
     4357   01 00DEA    25900461 A            SAS,9    -31                                                 *F
     4358   01 00DEB    32801E92              LW,8     ERRPAUSE                                            *F
     4359   01 00DEC    25800001 A            SLS,8    1                                                   *F
     4360   01 00DED    2580037F A            SCD,8    -1                                                  *F
     4361   01 00DEE    31801E91              CW,8     PAUSE                                               *F
     4362   01 00DEF    69300DF4              BCS,3    CLMRINT4          B IF NOT EOUAL TO LAST TIME       *F
     4363                            *                                                                     *F
     4364   01 00DF0    12C00DCA     CLMRINT3 LD,12    CLMRINT0-2        RESTORE                           *F
     4365   01 00DF1    02200030 A            LCI      3                  GENERAL                          *F
     4366   01 00DF2    2A500DC7              LM,5     CLMRINT0-5          REGISTERS                       *F
     4367                            *                                                                     *F
     4368   01 00DF3    0E300DC2              LPSD,3   CLMRINT           CLEAR INTERRUPT AND EXIT          *F
     4369                            *                                                                     *F
     4370   01 00DF4    32901E91     CLMRINT4 LW,9     PAUSE             SAVE OLD VALUE                    *F
     4371   01 00DF5    35801E91              STW,8    PAUSE             INFORMATION WAS IN 'ERRPAUSE'     *F
     4372   01 00DF6    33001E91              MTW,0    PAUSE                                               *F
     4373   01 00DF7    68300DFC              BCR,3    %+5               B NOW 'NOPAUSE' STATE             *F
     4374   01 00DF8    32800009 A            LW,8     9                                                   *F
     4375   01 00DF9    68300DFB              BCR,3    %+2               B IF NO LONGER 'NOPAUSE'          *F
     4376   01 00DFA    68000DF0              B        CLMRINT3          B IF PAUSE + TO -, OR - TO +      *F
     4377   01 00DFB    20800100 A            AI,8     X'100'            DISABLE BIAS                      *F
     4378   01 00DFC    20801400 A            AI,8     X'1400'           ENABLE CONST. (NOPAUSE=0)         *F
     4379   01 00DFD    30801DD5              AW,8     XICODE                                              *F
     4380   01 00DFE    32901DD3              LW,9     XMTBIT            LEVEL SELECTED BY REG. '9'        *F
     4381   01 00DFF    ED900008 A            WD,9     *8                ENABLE OR DISABLE TRANSMIT INT.   *F
     4382   01 00E00    68000DF0              B        CLMRINT3          B TO EXIT                         *F
     4383                                     BOUND    8                 DOUBLE WORD BOUNDARY              *F
     4384   01 00E02    00000000 A   IOCDWORD DATA     0                                                   *F
     4385   01 00E03    00000000 A            DATA     0                                                   *F
     4386   01 00E04    00000000 A   WORDSIN  DATA     0,0                                                 *F
            01 00E05    00000000 A
     4387   01 00E06    38901E93     CLMRINT5 SW,9     LASTWC            SUBTRACT PREVIOUS 'LASTWC'        *F
     4388   01 00E07    69100E0E              BCS,1    %+7               B IF WRAP-AROUND HAS OCCURRED     *F
     4389                            *                                                                     *F
     4390   01 00E08    3AA00009 A   CLMRINT6 LCW,10   9                                                   *F
     4391   01 00E09    20AFFFFF A            AI,10    -1                1'S COMPLEMENT COUNT              *F
     4392   01 00E0A    35A00E04              STW,10   WORDSIN                                             *F
     4393                            *                                                                     *F
     4394   01 00E0B    33100E04              MTW,1    WORDSIN           TEST FOR DONE                     *F
     4395   01 00E0C    68800E12              BCR,8    %+6               B IF NOT                          *F
     4396   01 00E0D    68000DE2              B        CLMRINT2          IF DONE  CHECKING DATA            *F
     4397                            *                                                                     *F
     4398   01 00E0E    25900401 A            SAS,9    1                 DOUBLE FOR BYTE VALUE             *F
     4399   01 00E0F    30901E88              AW,9     BYTECNT           BUFFER SIZE                       *F
     4400   01 00E10    2590047F A            SAS,9    -1                CONVERT BACK  TO WORD VALUE       *F
     4401   01 00E11    68000E08              B        CLMRINT6                                            *F
     4402                            *                                                                     *F
     4403   01 00E12    33100E03              MTW,1    IOCDWORD+1                                          *F
     4404   01 00E13    32500E03              LW,5     IOCDWORD+1                                          *F
     4405   01 00E14    31500E02              CW,5     IOCDWORD          BUFFER END PLUS 1                 *F
     4406   01 00E15    69300E1A              BCS,3    %+5               B IF NOT WRAP-AROUND WORD         *F
     4407   01 00E16    33101E95              MTW,1    BUFFPASS          INDICATE NEXT PASS THRU BUFFER    *F
     4408   01 00E17    22BFFFFF A            LI,11    -1                STARTING I/O BUFFER ADDRESS       *F
     4409   01 00E18    35B00E03              STW,11   IOCDWORD+1                                          *F
     4410   01 00E19    68000E12              B        %-7                                                 *F
     4411                            *                                                                     *F
     4412   01 00E1A    22800001 A            LI,8     1                                                   *F
     4413   01 00E1B    4B801E95              AND,8    BUFFPASS          WILL BE ONE FOR FIRST PASS        *F
     4414   01 00E1C    25800406 A            SAS,8    6                 MAKE 0 OR X'40' BUFFER EVEN-ODD   *F
     4415   01 00E1D    D08A068F              AH,8     *ZIOADR,5         GET 'DATA BYTE', LS BIT AND LINE# *F
     4416   01 00E1E    D58A068F              STH,8    *ZIOADR,5         RESTORE WITH SERVICED FLAG        *F
     4417   01 00E1F    4B802170              AND,8    =X'FFBF'          EXTRACT FROM DATA WORD            *F
     4418   01 00E20    2270003F A            LI,7     63                                                  *F
     4419   01 00E21    4A700008 A            LS,7     8                 EXTRACT LINE NUMBER               *F
     4420   01 00E22    35701E03              STW,7    ERRORWD1                                            *F
     4421   01 00E23    32AE1804              LW,10    RTWT,7                                              *F
     4422   01 00E24    69100E26              BCS,1    %+2               BRANCH IF ACTIVE                  *F
     4423                            *                                                                     *F
     4424   01 00E25    04000003 A            ABORT    3                    RECEIVER XX NOT ACTIVE         *F
     4425                            *                                                                     *F
     4426   01 00E26    32B01E01              LW,11    TIME              SAVE TIME OF CURRENT              *F
     4427   01 00E27    35BE19E6              STW,11   RTTWT,7            RECEIVER SERVICE                 *F
     4428                            *                                                                     *F
     4429   01 00E28    21800080 A            CI,8     1**7              CHECK FOR 'M' BIT                 *F
     4430   01 00E29    69400E89              BCS,4    CLMRINT9          B IN L.S. RECEIVED                *F
     4431                            *                                                                     *F
     4432   01 00E2A    22B000FF A            LI,11    255               EXTRACT 8 LOW ORDER BITS OF       *F
     4433   01 00E2B    4BBE18E4              AND,11   RFTWT,7            CHARACTER COUNT FOR 'EXPECTED'   *F
     4434   01 00E2C    331E18E4              MTW,1    RFTWT,7                                             *F
     4435   01 00E2D    33101E90              MTW,1    RCOUNT                                              *F
     4436                            *                                                                     *F
     4437   01 00E2E    7262000A A            LB,6     10,1              GET TURNAROUND TRANSMITTER NO.    *F
     4438   01 00E2F    3300000B A            MTW,0    11                                                  *F
     4439   01 00E30    69300E45              BCS,3    NLSNEXT                                             *F
     4440                            *                                                                     *F
     4441   01 00E31    329C17C4              LW,9     XTWT,6                                              *F
     4442   01 00E32    2190000F A            CI,9     15                                                  *F
     4443   01 00E33    68400E45              BCR,4    NLSNEXT           B IF NOT COUNTING L.S.'S          *F
     4444   01 00E34    3190216E              CW,9     =1**23            CHECK 'SLS EXTENSION' FLAG        *F
     4445   01 00E35    69400E37              BCS,4    %+2               B IF NOT 'SINGLE LS MODE'         *F
     4446                            *                                                                     *F
     4447   01 00E36    04000023 A            ABORT    35                L.S. MISSING FOR RECEIVER DD      *F
     4448                            *                                                                     *F
     4449   01 00E37    31902153              CW,9     =1**20                                              *F
     4450   01 00E38    69400E36              BCS,4    %-2               B IF NOT MULTIPLE LS MODE         *F
     4451                            *                                                                     *F
     4452   01 00E39    3190216F              CW,9     =1**25                                              *F
     4453   01 00E3A    68400E36              BCR,4    %-4               BRANCH IF L.S. NOT RECEIVED       *F
     4454                            *                                                                     *F
     4455   01 00E3B    32902171              LW,9     =X'FDFFFFFD'      RESET LSNEXT FLAG, LS COUNT       *F
     4456   01 00E3C    68000E46              B        NLSNEXT+1                                           *F
     4457                            *                                                                     *F
     4458   01 00E3D    00000000 A            DATA     0,X'C0',X'80',0,0 FORMATS 0-4                       *F
            01 00E3E    000000C0 A
            01 00E3F    00000080 A
            01 00E40    00000000 A
            01 00E41    00000000 A
     4459   01 00E42    000000C0 A            DATA     X'C0'             FORMAT 5 MASK = X'1F' FOR COMPARE *F
     4460   01 00E43    000000C0 A            DATA     X'C0'             FORMAT 6 MASK = X'3F' FOR COMPARE *F
     4461   01 00E44    00000000 A            DATA     0                 FORMAT 7 MASK = X'FF' FOR COMPARE *F
     4462                            *                                                                     *F
     4463                            *                                                                     *F
     4464   01 00E45    32902172     NLSNEXT  LW,9     =X'FDFFFFFF'      RESET LONG SPACE RECEIVED FLAG    *F
     4465   01 00E46    4B9C17C4              AND,9    XTWT,6                                              *F
     4466   01 00E47    359C17C4              STW,9    XTWT,6            UPDATE 'XTWT'                     *F
     4467                            *                                                                     *F
     4468   01 00E48    22C00000 A            LI,12    0                                                   *F
     4469   01 00E49    72840008 A            LB,8     8,2                                                 *F
     4470   01 00E4A    5580000B A            STH,8    11                SAVE RECEIVED DATA                *F
     4471   01 00E4B    3250000A A            LW,5     10                GET 'RTWT'                        *F
     4472   01 00E4C    4B502162              AND,5    =7**28            EXTRACT FORMAT NUMBER             *F
     4473   01 00E4D    31502163              CW,5     =1**28                                              *F
     4474   01 00E4E    69300E61              BCS,3    CLMRINT7          B IF NOT FORMAT 1                 *F
     4475                            *                                                                     *F
     4476                            *                                                                     *F
     4477   01 00E4F    32502158              LW,5     =1**19            CASE SHIFT BIT POSITION           *F
     4478   01 00E50    4B500009 A            AND,5    9                 XTWT                              *F
     4479   01 00E51    25500202 A            SCS,5    2                                                   *F
     4480   01 00E52    49C00005 A            OR,12    5                                                   *F
     4481   01 00E53    4B902159              AND,9    =X'FFF7FFFF'                                        *F
     4482   01 00E54    4B800E55              AND,8    %+1                                                 *F
     4483   01 00E55    2180001F A            CI,8     X'1F'                                               *F
     4484   01 00E56    68300E5A              BCR,3    %+4               B IF SHIFT DOWN                   *F
     4485   01 00E57    2180001B A            CI,8     X'1B'                                               *F
     4486   01 00E58    69300E5B              BCS,3    %+3               B IF NOT SHIFT UP                 *F
     4487   01 00E59    30902158              AW,9     =1**19                                              *F
     4488   01 00E5A    359C17C4              STW,9    XTWT,6            STORE NEW 'XTWT'                  *F
     4489                            *                                                                     *F
     4490   01 00E5B    3290000B A            LW,9     11                                                  *F
     4491   01 00E5C    4B902154              AND,9    =1**21            EXTRACT BIT 6 OF RECEIVED DATA    *F
     4492   01 00E5D    31500009 A            CW,5     9                                                   *F
     4493   01 00E5E    68300E61              BCR,3    %+3               BRANCH IF EXPECTED C.S. = R'CVD.  *F
     4494   01 00E5F    20C00100 A            AI,12    1**8                                                *F
     4495   01 00E60    331E1964              MTW,1    CSETWT,7          ADD '1' TO CASE SHIFT ERROR COUNT *F
     4496                            *                                                                     *F
     4497                            *                                                                     *F
     4498                            *                                                                     *F
     4499   01 00E61    3260000A A   CLMRINT7 LW,6     10                                                  *F
     4500   01 00E62    25600464 A            SAS,6    -28                                                 *F
     4501   01 00E63    329C1E7E              LW,9     RMASK+8,6         GET MASK FOR THIS FORMAT          *F
     4502   01 00E64    4580000B A            CS,8     11                COMPARE RECEIVED (8) WITH         *F
     4503                            *                                    EXPECTED (11) UNDER MASK (9)     *F
     4504   01 00E65    69300E68              BCS,3    %+3               BRANCH IF COMPARE ERROR           *F
     4505   01 00E66    21C00100 A            CI,12    1**8              C.S. ERR FLAG; ALWAYS 0 IF NOT F.1*F
     4506   01 00E67    68400E0B              BCR,4    CLMRINT6+3                                          *F
     4507                            *                                                                     *F
     4508                            *                                                                     *F
     4509                            *        RECEIVED DATA IN 8-15 OF REG. 11, EXPECTED DATA IN 24-31     *F
     4510                            *        OF REG. 11, C.S. ERROR FLAG IN BIT 23 OF REG. 12, AND        *F
     4511                            *        EXPECTED CASE SHIFT FLAG IN BIT 10 OF REG. 12.               *F
     4512                            *                                                                     *F
     4513                            *                                                                     *F
     4514   01 00E68    331E1924              MTW,1    RETWT,7           ADD '1' TO TE                     *F
     4515   01 00E69    68800E6B              BCR,8    %+2                                                 *F
     4516   01 00E6A    0400001E A            ABORT    30                EXCESSIVE ERRORS FOR LINE XX      *F
     4517                            *                                                                     *F
     4518   01 00E6B    713605D3              CB,3     ZMSGKEY,3                                           *F
     4519   01 00E6C    69200E0B              BCS,2    CLMRINT6+3        B IF MESSAGE LEVEL < 3            *F
     4520                            *                                                                     *F
     4521   01 00E6D    31301E2A              CW,3     SPACE0                                              *F
     4522   01 00E6E    68200E73              BCR,2    %+5               B IF PUSH LIST SPACE =, > 3       *F
     4523   01 00E6F    33101E92              MTW,1    ERRPAUSE                                            *F
     4524                            *                                                                     *F
     4525   01 00E70    33101E13              MTW,1    FLAG13                                              *F
     4526   01 00E71    68000E0B              B        CLMRINT6+3        GO TEST FOR MORE INPUT DATA       *F
     4527                            *                                                                     *F
     4528   01 00E72    04000002 A   CLMRINT8 ABORT    2                 RECEIVE BYTE COUNT IS ODD         *F
     4529                            *                                                                     *F
     4530   01 00E73    22800000 A            LI,8     0                                                   *F
     4531   01 00E74    46801E13              XW,8     FLAG13            RESET FLAG                        *F
     4532   01 00E75    68300E77              BCR,3    %+2               BRANCH IF NO ERROR LOSS           *F
     4533   01 00E76    22800200 A            LI,8     X'200'            ERROR LOSS BIT                    *F
     4534   01 00E77    30801E03              AW,8     ERRORWD1          RECEIVE LINE NUMBER               *F
     4535   01 00E78    4980000C A            OR,8     12                MERGE CASE SHIFT ERROR FLAG       *F
     4536   01 00E79    4B90000B A            AND,9    11                MASK EXPECTED FOR FORMAT          *F
     4537   01 00E7A    5582000B A            STH,8    11,1                                                *F
     4538   01 00E7B    328C0E45              LW,8     NLSNEXT,6         EXPECTED BITS,FORMATS 1,2,5 AND 6 *F
     4539   01 00E7C    49900008 A            OR,9     8                 'EXPECTED', AFTER FORMAT MASK     *F
     4540   01 00E7D    72C2000C A            LB,12    12,1                                                *F
     4541   01 00E7E    4990000C A            OR,9     12                MERGE EXPECTED CASE SHIFT FLAG    *F
     4542   01 00E7F    7590000B A            STB,9    11                                                  *F
     4543   01 00E80    05000000 A            PUSH,11  ELIST1            PUSH ERROR WORD INTO ERROR LIST   *F
            01 00E81    35B21C66
     4544                            *                                                                     *F
     4545   01 00E82    32801E01              LW,8     TIME              LOAD CURRENT TIME                 *F
     4546   01 00E83    05000000 A            PUSH,8   ELIST1                                              *F
            01 00E84    35821C66
     4547                            *                                                                     *F
     4548   01 00E85    32800E03              LW,8     IOCDWORD+1        END POINTER OF 'CLM' BUFFER       *F
     4549   01 00E86    05000000 A            PUSH,8   ELIST1                                              *F
            01 00E87    35821C66
     4550                            *                                                                     *F
     4551   01 00E88    68000E0B              B        CLMRINT6+3        GO TEST FOR MORE INPUT DATA       *F
     4552                            *                                                                     *F
     4553   01 00E89    2260003F A   CLMRINT9 LI,6     63                                                  *F
     4554   01 00E8A    25A00470 A            SAS,10   -16               RIGHT JUSTIFY FOR LINE NO.        *F
     4555   01 00E8B    4B60000A A            AND,6    10                EXTRACT THE LINE NO.              *F
     4556   01 00E8C    328C17C4              LW,8     XTWT,6                                              *F
     4557   01 00E8D    3180216E              CW,8     =1**23            B IF 'SLS' MODE 2 OR 3            *F
     4558   01 00E8E    69400E92              BCS,4    %+4                                                 *F
     4559   01 00E8F    31802153              CW,8     =1**20                                              *F
     4560   01 00E90    69400E92              BCS,4    %+2               B IF 'SLS' MODE 1                 *F
     4561                            *                                                                     *F
     4562                            *                 ILLEGAL LONG SPACE DETECTED                         *F
     4563   01 00E91    04000020 A            ABORT    32                ILLEGAL L.S. ON RECEIVER DD       *F
     4564                            *                                                                     *F
     4565   01 00E92    35800009 A            STW,8    9                 SAVE 'XTWT' IN '9'                *F
     4566   01 00E93    328E18E4              LW,8     RFTWT,7           GET CURRENT COUNT                 *F
     4567   01 00E94    208FFFFF A            AI,8     -1                BACK UP ONE CHARACTER             *F
     4568   01 00E95    4B802147              AND,8    =255              MASK OUT                          *F
     4569   01 00E96    218000FF A            CI,8     255                                                 *F
     4570   01 00E97    69300E9D              BCS,3    %+6               B IF X'FF' NOT LAST CHAR. REC.    *F
     4571                            *                                                                     *F
     4572   01 00E98    331E1A66              MTW,1    CLMLSREC,7        STEP L.S. RECEIVED COUNTER FOR    *F
     4573                            *                                    THIS LINE                        *F
     4574   01 00E99    3280216F              LW,8     =1**25            L.S. RECEIVED FLAG                *F
     4575   01 00E9A    4B800009 A            AND,8    9                 'XTWT' IN '9'                     *F
     4576   01 00E9B    68300E9E              BCR,3    %+3               B IF FIRST LONG SPACE IN ROW.     *F
     4577                            *                                                                     *F
     4578   01 00E9C    04000022 A            ABORT    34                DOUBLE L.S. FOR RECEIVER DD       *F
     4579                            *                                                                     *F
     4580   01 00E9D    04000021 A            ABORT    33                INCORRECT L.S. ON RECEIVER DD     *F
     4581                            *                                                                     *F
     4582   01 00E9E    328C17C4              LW,8     XTWT,6                                              *F
     4583   01 00E9F    31802173              CW,8     =5**21            MODE 2,3 'SLS' OR 'XDLY'          *F
     4584   01 00EA0    69400EA2              BCS,4    %+2               B IF MULTIPLE L.S. MODE           *F
     4585   01 00EA1    4B802174              AND,8    =X'FFFFFFF0'      DROP L.S. COUNT                   *F
     4586   01 00EA2    3080216F              AW,8     =X'2000000'       SET RECEIVED LONG SPACE FLAG      *F
     4587   01 00EA3    358C17C4              STW,8    XTWT,6            STORE BACK                        *F
     4588   01 00EA4    68000E0B              B        CLMRINT6+3        GO TEST FOR MORE INPUT DATA       *F
     4589                            *
     4590                            *
     4591                                     PAGE
     4592                            *
     4593                            *
     4594                            *        D E C L A R E  D E L A Y  V A L U E  R O U T I N E
     4595                            *
     4596                            *
     4597   01 00EA5    20000000 A            DATA     2**28
     4598   01 00EA6    20000000 A            DATA     2**28
     4599                            *
     4600                            *
     4601   01 00EA7    32100696     DLAY00   LW,1     P1
     4602   01 00EA8    6AE016D5              TESTIT   1
            01 00EA9    00000002 A
     4603   01 00EAA    4B102151              AND,1    L(X'3F')
     4604   01 00EAB    32402154              LW,4     L(1**21)
     4605   01 00EAC    32000697              LW,0     P2
     4606   01 00EAD    69300EAF              BCS,3    %+2
     4607   01 00EAE    22400000 A            LI,4     0
     4608   01 00EAF    2100270F A            CI,0     9999              LIMIT DELAY                       *F
     4609   01 00EB0    69100EB2              BCS,1    %+2                TO 9999 FOR SIGMA 2/3            *F
     4610   01 00EB1    2200270F A            LI,0     9999                CONTROL LINE COMPATABILITY      *F
     4611   01 00EB2    2500007F A            SLS,0    -1
     4612   01 00EB3    35021844              STW,0    DTWT,1            SET DELAY VALUE
     4613   01 00EB4    32502154              LW,5     L(1**21)
     4614   01 00EB5    474217C4              STS,4    XTWT,1
     4615   01 00EB6    E800000F A            B        *15
     4616                            *
     4617                            *
     4618                                     PAGE
     4619                            *
     4620                            *
     4621                            *        T R A N S M I S S I O N  L I N E  D E L A Y  R O U T I N E
     4622                            *
     4623                            *
     4624   01 00EB7    20000000 A            DATA     2**28
     4625   01 00EB8    20000000 A            DATA     2**28
     4626                            *
     4627                            *
     4628   01 00EB9    6AE016D5     DXLD00   TESTIT   1
            01 00EBA    00000002 A
     4629   01 00EBB    32500696              LW,5     P1
     4630   01 00EBC    4B502151              AND,5    L(63)
     4631   01 00EBD    32400697              LW,4     P2
     4632   01 00EBE    68300EC3              BCR,3    %+5               BRANCH IF PARAMETER ZERO          *F
     4633   01 00EBF    2140270F A            CI,4     9999              LIMIT                             *F
     4634   01 00EC0    69100EC2              BCS,1    %+2                DELAY TO                         *F
     4635   01 00EC1    2240270F A            LI,4     9999                9999 MILLISECONDS               *F
     4636   01 00EC2    2540007F A            SLS,4    -1
     4637   01 00EC3    554A1884              STH,4    LDTWT,5                                             *D
     4638   01 00EC4    E800000F A            B        *15
     4639                            *
     4640                            *
     4641                                     PAGE
     4642                            *
     4643                            *
     4644                            *        E N V I R O N M E N T  S E A R C H  R O U T I N E
     4645                            *
     4646                            *
     4647   01 00EC5    00000000 A            DATA     0                 P1 = ERROR ABORT NUMBER           *F
     4648                            *                                                                     *F
     4649   01 00EC6    6AE016D5     ENVIRO   TESTIT   0,1,2
            01 00EC7    00000007 A
     4650   01 00EC8    35F01DFE              STW,15   RETURN
     4651   01 00EC9    227FFFC0 A            LI,7     -64
     4652   01 00ECA    22800000 A            LI,8     0
     4653   01 00ECB    32C00696              LW,12    P1                                                  *F
     4654   01 00ECC    68300ED2              BCR,3    %+6               BRANCH IF NORMAL SEARCH MODE      *F
     4655   01 00ECD    20CF0000 A            AI,12    -65536                                              *F
     4656   01 00ECE    51C01FD2              CH,12    TEXT29+6                                            *F
     4657   01 00ECF    69300ED1              BCS,3    %+2               BRANCH IF P1 NOT NO. OF LAST ABORT*F
     4658   01 00ED0    33101DFE              MTW,1    RETURN            SET TO TAKE PLACE MARK BRANCH     *F
     4659   01 00ED1    32C02153              LW,12    =16**16                          (AT ABORT    )'    *F
     4660   01 00ED2    30C01FCB              AW,12    MW29              'ENVIRONMENT:'                    *F
     4661                            *                                                                     *F
     4662   01 00ED3    022000F0 A            LCI      15
     4663   01 00ED4    6AF005C9              BAL,15   ZTWLP
     4664   01 00ED5    32C00696     ENVI00   LW,12    P1                                                  *F
     4665   01 00ED6    68300EDC              BCR,3    ENVI01            BRANCH IF NORMAL SEARCH MODE      *F
     4666   01 00ED7    324E1844              LW,4     RTWT+64,7                                           *F
     4667   01 00ED8    68100EEE              BCR,1    ENVI02            BRANCH IF THIS R'CVR NOT 'ACTIVE' *F
     4668   01 00ED9    55400004 A            STH,4    4                 POSITION ABORT STATUS             *F
     4669   01 00EDA    4B402175              AND,4    =X'30300000'                                        *F
     4670   01 00EDB    68000EE3              B        ENVI01+7          NOW GO TO COMMON CODE.            *F
     4671   01 00EDC    32F00008 A   ENVI01   LW,15    8
     4672   01 00EDD    67001E6D              EXU      STS
     4673   01 00EDE    74000004 A            STCF     4
     4674   01 00EDF    67001E6C              EXU      SRS
     4675   01 00EE0    74020004 A            STCF     4,1
     4676   01 00EE1    31402175              CW,4     L(X'30300000')
     4677   01 00EE2    68400EEE              BCR,4    ENVI02
     4678   01 00EE3    6AD0103A              BAL,13   CONVERT
     4679   01 00EE4    55521FD6              STH,5    TEXT30+2,1
     4680   01 00EE5    25400004 A            SLS,4    4
     4681   01 00EE6    6AD0103A              BAL,13   CONVERT
     4682   01 00EE7    55521FD8              STH,5    TEXT30+4,1
     4683   01 00EE8    32500008 A            LW,5     8
     4684   01 00EE9    6AE00EF1              BAL,14   LCON
     4685   01 00EEA    55421FD4              STH,4    TEXT30,1
     4686   01 00EEB    32C01FD3              LW,12    MW30
     4687   01 00EEC    022000F0 A            LCI      15
     4688   01 00EED    6AF005C9              BAL,15   ZTWLP
     4689   01 00EEE    20800001 A   ENVI02   AI,8     1
     4690   01 00EEF    65700ED5              BIR,7    ENVI00            TEST REMAINING LINES              *F
     4691   01 00EF0    E8001DFE              B        *RETURN
     4692                            *
     4693                            *
     4694                                     PAGE
     4695                            *
     4696                            *
     4697   01 00EF1    22400000 A   LCON     LI,4     0
     4698   01 00EF2    36402176              DW,4     L(10)
     4699   01 00EF3    49502177              OR,5     L(X'F0')
     4700   01 00EF4    49402177              OR,4     L(X'F0')
     4701   01 00EF5    25500008 A            SLS,5    8
     4702   01 00EF6    49400005 A            OR,4     5
     4703   01 00EF7    E800000E A            B        *14
     4704                            *
     4705                            *
     4706                                     PAGE
     4707                            *
     4708                            *
     4709                            *        S E N D  L O N G  S P A C E  R O U T I N E
     4710                            *
     4711                            *
     4712   01 00EF8    20000000 A            DATA     2**28
     4713   01 00EF9    20000000 A            DATA     2**28
     4714                            *
     4715                            *
     4716   01 00EFA    32200696     SLS00    LW,2     P1
     4717   01 00EFB    6AE016D5              TESTIT   1
            01 00EFC    00000002 A
     4718   01 00EFD    4B202151              AND,2    L(X'3F')
     4719   01 00EFE    4B300697              AND,3    P2                                                  *F
     4720   01 00EFF    72360F04              LB,3     MODE,3                                              *F
     4721   01 00F00    75320000 A            STB,3    0,1                                                 *F
     4722   01 00F01    3210216B              LW,1     =9**20                                              *F
     4723   01 00F02    470417C4              STS,0    XTWT,2
     4724   01 00F03    E800000F A            B        *15
     4725                            *
     4726   01 00F04    00       A   MODE     DATA,1   0,1**4,8**4,9**4  'SLS' MODES 0,1,2,3 (2,3 CLM ONLY)*F
            01 00F04 1  10       A
            01 00F04 2  80       A
            01 00F04 3  90       A
     4727                            *
     4728                                     PAGE
     4729                            *
     4730                            *
     4731                            *        D E L A Y  R O U T I N E
     4732                            *
     4733                            *
     4734   01 00F05    20000000 A            DATA     2**28
     4735                            *
     4736                            *
     4737   01 00F06    6AE016D5     DELAY    TESTIT   0,1,2,3
            01 00F07    0000000F A
     4738   01 00F08    35001E01              STW,0    TIME
     4739   01 00F09    35401DFF              STW,4    DSAVE1
     4740   01 00F0A    35501E00              STW,5    DSAVE2
     4741   01 00F0B    32500696              LW,5     P1
     4742   01 00F0C    2550007F A            SLS,5    -1
     4743   01 00F0D    22401000 A            LI,4     1**12
     4744   01 00F0E    6D401200 A            WD,4     (1,X'200')
     4745   01 00F0F    31501E01              CW,5     TIME
     4746   01 00F10    69200F0F              BCS,2    %-1
     4747   01 00F11    6D401100 A            WD,4     (1,X'100')
     4748   01 00F12    32401DFF              LW,4     DSAVE1
     4749   01 00F13    32501E00              LW,5     DSAVE2
     4750   01 00F14    E800000F A            B        *15
     4751                            *
     4752                            *
     4753                                     PAGE
     4754                            *
     4755                            *
     4756                            *        S E N S E  L I N E  N U M B E R
     4757                            *
     4758                            *
     4759   01 00F15    6AE016D5     SLN00    TESTIT   0,1,2,3
            01 00F16    0000000F A
     4760   01 00F17    35F01DFE              STW,15   RETURN
     4761   01 00F18    22F00000 A            LI,15    0
     4762   01 00F19    67001E75              EXU      LINENO
     4763   01 00F1A    74000006 A            STCF     6
     4764   01 00F1B    75F00004 A            STB,15   4
     4765   01 00F1C    6AD0103A              BAL,13   CONVERT
     4766   01 00F1D    35501FED              STW,5    TEXT33+2
     4767   01 00F1E    6AD0103A              BAL,13   CONVERT
     4768   01 00F1F    35561FEB              STW,5    TEXT33,3
     4769   01 00F20    72400006 A            LB,4     6
     4770   01 00F21    2540007A A            SLS,4    -6
     4771   01 00F22    6AD0103A              BAL,13   CONVERT
     4772   01 00F23    55501FF0              STH,5    TEXT33+5
     4773   01 00F24    32C01FEA              LW,12    MW33
     4774   01 00F25    022000E0 A            LCI      14
     4775   01 00F26    6AF005C9              BAL,15   ZTWLP
     4776   01 00F27    E8001DFE              B        *RETURN
     4777                            *
     4778                            *
     4779                                     PAGE
     4780                            *
     4781                            *
     4782                            *        I O  B U F F E R  D U M P E R
     4783                            *
     4784                            *
     4785   01 00F28    20000000 A            DATA     2**28
     4786                            *
     4787                            *
     4788   01 00F29    22401BE6     IODM00   LI,4     IOBUFF
     4789   01 00F2A    32500696              LW,5     P1
     4790   01 00F2B    68300F2F              BCR,3    %+4                                                 *F
     4791   01 00F2C    205FFFFF A            AI,5     -1
     4792   01 00F2D    21500020 A            CI,5     32                                                  *F
     4793   01 00F2E    69100F30              BCS,1    %+2                                                 *F
     4794   01 00F2F    20500020 A            AI,5     32                                                  *F
     4795   01 00F30    30500004 A            AW,5     4
     4796   01 00F31    35500697              STW,5    P2
     4797   01 00F32    35400696              STW,4    P1
     4798   01 00F33    35100698              STW,1    P3
     4799   01 00F34    6800056C              B        ZDMP              LET D C P DO-IT
     4800                            *
     4801                            *
     4802                                     PAGE
     4803                            *
     4804                            *
     4805                            *        T R A N S M I T  D A T A  R O U T I N E
     4806                            *
     4807                            *
     4808   01 00F35    20000000 A            DATA     2**28
     4809   01 00F36    40000000 A            DATA     4**28
     4810   01 00F37    20000000 A            DATA     2**28
     4811                            *
     4812                            *
     4813   01 00F38    6AE016D5     XDAT00   TESTIT   1,2,3
            01 00F39    0000000E A
     4814   01 00F3A    35F01DFE              STW,15   RETURN
     4815   01 00F3B    33000697              MTW,0    P2
     4816   01 00F3C    68300F41              BCR,3    %+5
     4817   01 00F3D    72F01BE6              LB,15    IOBUFF
     4818   01 00F3E    30F00698              AW,15    P3
     4819   01 00F3F    75F01BE6              STB,15   IOBUFF
     4820   01 00F40    68000F43              B        %+3
     4821   01 00F41    72F01AE6              LB,15    PATTERN
     4822   01 00F42    30F00698              AW,15    P3
     4823   01 00F43    25F00008 A            SLS,15   8
     4824   01 00F44    49F00696              OR,15    P1
     4825   01 00F45    67001E72              EXU      XDATA
     4826   01 00F46    E8001DFE              B        *RETURN
     4827                            *
     4828                            *
     4829                                     PAGE
     4830                            *
     4831                            *
     4832                            *        M A R K  I D E N T I F Y  R O U T I N E
     4833                            *
     4834                            *
     4835   01 00F47    60000000 A            DATA     6**28
     4836                            *
     4837   01 00F48    32400696     MARK00   LW,4     P1
     4838   01 00F49    49402178              OR,4     =X'40404040'      GUARANTEE PRINTING CHARACTER      *F
     4839   01 00F4A    35401FF8              STW,4    TEXT35+2
     4840   01 00F4B    32C01FF5              LW,12    MW35
     4841   01 00F4C    022000D0 A            LCI      13
     4842   01 00F4D    680005C9              B        ZTWLP
     4843                            *
     4844                            *
     4845                                     PAGE
     4846                            *
     4847                            *
     4848                            *        A L A R M  R O U T I N E
     4849                            *
     4850                            *
     4851   01 00F4E    40000000 A            DATA     4**28
     4852                            *
     4853                            *
     4854   01 00F4F    33000696     ALARM    MTW,0    P1
     4855   01 00F50    69300F53              BCS,3    %+3
     4856   01 00F51    6D000040 A            WD,0     X'40'
     4857   01 00F52    E800000F A            B        *15
     4858   01 00F53    6D000041 A            WD,0     X'41'
     4859   01 00F54    E800000F A            B        *15
     4860                            *
     4861                                     PAGE
     4862                            *
     4863                            *
     4864                            *        T I M E  C O N V E R S I O N  R O U T I N E
     4865                            *
     4866                            *
     4867   01 00F55    40000000 A            DATA     4**28
     4868                            *
     4869                            *
     4870   01 00F56    35F006A4     TIME00   STW,15   P15
     4871   01 00F57    22400000 A            LI,4     0
     4872   01 00F58    32500696              LW,5     P1
     4873   01 00F59    36402179              DW,4     L(1800000)
     4874   01 00F5A    32C00005 A            LW,12    5
     4875   01 00F5B    6AE011F4              BAL,14   CV01
     4876   01 00F5C    55D21FFB              STH,13   TEXT36+1,1        HOURS
     4877   01 00F5D    25400160 A            SLD,4    -32
     4878   01 00F5E    3640217A              DW,4     L(30000)
     4879   01 00F5F    32C00005 A            LW,12    5
     4880   01 00F60    6AE011F4              BAL,14   CV01
     4881   01 00F61    75D41FFC              STB,13   TEXT36+2,2        MIN
     4882   01 00F62    25D00078 A            SLS,13   -8
     4883   01 00F63    75D21FFC              STB,13   TEXT36+2,1
     4884   01 00F64    25400160 A            SLD,4    -32
     4885   01 00F65    3640217B              DW,4     L(500)
     4886   01 00F66    32C00005 A            LW,12    5
     4887   01 00F67    6AE011F4              BAL,14   CV01
     4888   01 00F68    55D01FFD              STH,13   TEXT36+3          SEC
     4889   01 00F69    25400001 A            SLS,4    1                 COUNT X2 = MILLISECONDS
     4890   01 00F6A    32C00004 A            LW,12    4
     4891   01 00F6B    6AE011F4              BAL,14   CV01
     4892   01 00F6C    55D01FFE              STH,13   TEXT36+4          MILLISECONDS
     4893   01 00F6D    25D00070 A            SLS,13   -16
     4894   01 00F6E    75D61FFD              STB,13   TEXT36+3,3
     4895   01 00F6F    32C01FF9              LW,12    MW36
     4896   01 00F70    022000D0 A            LCI      13
     4897   01 00F71    6AF005C9              BAL,15   ZTWLP
     4898   01 00F72    E80006A4               B       *P15
     4899                            *
     4900                            *
     4901                                     PAGE
     4902                            *
     4903                            *
     4904                            *        I N T E R R U P T  T I M E  R E P O R T E R
     4905                            *
     4906                            *
     4907   01 00F73    35F01DFE     ITRP00   STW,15   RETURN
     4908   01 00F74    511205D3              CH,1     ZMSGKEY,1
     4909   01 00F75    E920000F A            BCS,2    *15
     4910   01 00F76    22600000 A            LI,6     0
     4911   01 00F77    328C1804     ITRP01   LW,8     RTWT,6
     4912   01 00F78    69100F7D              BCS,1    ITRP03            B IF ACTIVE
     4913   01 00F79    20600001 A   ITRP02   AI,6     1
     4914   01 00F7A    21600040 A            CI,6     64
     4915   01 00F7B    69100F77              BCS,1    ITRP01
     4916   01 00F7C    E8001DFE              B        *RETURN
     4917   01 00F7D    72720008 A   ITRP03   LB,7     8,1               TRANSMIT LINE NUMBER
     4918   01 00F7E    72560006 A            LB,5     6,3
     4919   01 00F7F    6AE00EF1              BAL,14   LCON
     4920   01 00F80    55422013              STH,4    TEXT39+2,1
     4921   01 00F81    72520008 A            LB,5     8,1
     4922   01 00F82    6AE00EF1              BAL,14   LCON
     4923   01 00F83    55422017              STH,4    TEXT40+2,1
     4924   01 00F84    32C02010              LW,12    MW39
     4925   01 00F85    022000F0 A            LCI      15
     4926   01 00F86    6AF005C9              BAL,15   ZTWLP
     4927   01 00F87    325C19E6              LW,5     RTTWT,6           RECEIVE TIME
     4928   01 00F88    35500696              STW,5    P1
     4929   01 00F89    6AF00F56              BAL,15   TIME00
     4930   01 00F8A    32C02014              LW,12    MW40
     4931   01 00F8B    022000F0 A            LCI      15
     4932   01 00F8C    6AF005C9              BAL,15   ZTWLP
     4933   01 00F8D    325E19A4              LW,5     LDTIMTAB,7        TRANSMIT TIME
     4934   01 00F8E    35500696              STW,5    P1
     4935   01 00F8F    6AF00F56              BAL,15   TIME00
     4936   01 00F90    32C002CC              LW,12    ZTRN100           CARRIAGE RETURN
     4937   01 00F91    022000F0 A            LCI      15
     4938   01 00F92    6AF005C9              BAL,15   ZTWLP
     4939   01 00F93    68000F79              B        ITRP02
     4940                            *
     4941                            *
     4942                                     PAGE
     4943                            *
     4944                            *
     4945                            *        P A T T E R N  R O U T I N E
     4946                            *
     4947                            *
     4948   01 00F94    40000000 A            DATA     4**28
     4949                            *
     4950                            *
     4951   01 00F95    6AE016D5     PAT00    TESTIT   0,1,2,3
            01 00F96    0000000F A
     4952   01 00F97    35F01DFD              STW,15   SAVE35
     4953   01 00F98    22400000 A            LI,4     0
     4954   01 00F99    225FFF80 A            LI,5     -128
     4955   01 00F9A    354A1C66              STW,4    IOBUFF+128,5
     4956   01 00F9B    65500F9A              BIR,5    %-1
     4957   01 00F9C    32700696              LW,7     P1
     4958   01 00F9D    4B702156              AND,7    L(7)
     4959   01 00F9E    680E0F9F              B        %+1,7
     4960   01 00F9F    68000FA7              B        PAT000
     4961   01 00FA0    68000FAA              B        PAT001
     4962   01 00FA1    68000FAD              B        PAT002
     4963   01 00FA2    68000FB0              B        PAT003
     4964   01 00FA3    68000FB8              B        PAT004
     4965   01 00FA4    68000FBC              B        PAT005
     4966   01 00FA5    E800000F A            B        *15
     4967   01 00FA6    E800000F A            B        *15
     4968                            *
     4969   01 00FA7    22800004 A   PAT000   LI,8     4                 FOUR BYTES
     4970   01 00FA8    22901E1B              LI,9     PATT00
     4971   01 00FA9    68000FDC              B        PSPREAD
     4972                            *
     4973   01 00FAA    22800004 A   PAT001   LI,8     4
     4974   01 00FAB    22901E1C              LI,9     PATT01
     4975   01 00FAC    68000FDC              B        PSPREAD
     4976                            *
     4977   01 00FAD    22800004 A   PAT002   LI,8     4
     4978   01 00FAE    22901E1D              LI,9     PATT02
     4979   01 00FAF    68000FDC              B        PSPREAD
     4980                            *
     4981   01 00FB0    22700000 A   PAT003   LI,7     0
     4982   01 00FB1    757E1AE6              STB,7    PATTERN,7
     4983   01 00FB2    20700001 A            AI,7     1
     4984   01 00FB3    21700100 A            CI,7     256
     4985   01 00FB4    69100FB1              BCS,1    %-3
     4986   01 00FB5    227000FF A            LI,7     255
     4987   01 00FB6    35701DCE              STW,7    TLENGTH
     4988   01 00FB7    68000FEE              B        PS03
     4989                            *
     4990   01 00FB8    22500100 A   PAT004   LI,5     256
     4991   01 00FB9    6AE00FD2              BAL,14   GBYTES
     4992   01 00FBA    22901BE6              LI,9     IOBUFF
     4993   01 00FBB    68000FDC              B        PSPREAD
     4994                            *
     4995   01 00FBC    22500200 A   PAT005   LI,5     512
     4996   01 00FBD    6AE00FD2              BAL,14   GBYTES
     4997   01 00FBE    22400000 A            LI,4     0
     4998   01 00FBF    52681BE6              LH,6     IOBUFF,4
     4999   01 00FC0    6AE00FC8              BAL,14   CV02
     5000   01 00FC1    75781BE6              STB,7    IOBUFF,4
     5001   01 00FC2    20400001 A            AI,4     1
     5002   01 00FC3    31400008 A            CW,4     8
     5003   01 00FC4    68200FBF              BCR,2    %-5
     5004   01 00FC5    2580007F A            SLS,8     -1
     5005   01 00FC6    22901BE6              LI,9     IOBUFF
     5006   01 00FC7    68000FDC              B         PSPREAD
     5007                            *
     5008   01 00FC8    21600030 A   CV02     CI,6     3**4
     5009   01 00FC9    69400FCC              BCS,4    %+3
     5010   01 00FCA    73760006 A            MTB,7     6,3
     5011   01 00FCB    73260006 A            MTB,2     6,3
     5012   01 00FCC    2560017C A            SLD,6    -4
     5013   01 00FCD    2560007C A            SLS,6    -4
     5014   01 00FCE    64200FC8              BDR,2    CV02
     5015   01 00FCF    22200002 A            LI,2     2
     5016   01 00FD0    72700007 A            LB,7     7
     5017   01 00FD1    E800000E A            B        *14
     5018                            *
     5019                            *
     5020   01 00FD2    22800000 A   GBYTES   LI,8     0
     5021   01 00FD3    6AF0045B     GBYTES1  BAL,15   ZFOC
     5022   01 00FD4    21A00008 A            CI,10    X'08'
     5023   01 00FD5    E830000E A            BCR,3    *14
     5024   01 00FD6    35800006 A            STW,8    6
     5025   01 00FD7    20800001 A            AI,8     1
     5026   01 00FD8    75AC1BE6              STB,10   IOBUFF,6
     5027   01 00FD9    31800005 A            CW,8     5
     5028   01 00FDA    E830000E A            BCR,3    *14
     5029   01 00FDB    68000FD3              B        GBYTES1
     5030                            *
     5031                            *
     5032                            *
     5033   01 00FDC    35801DCD     PSPREAD  STW,8    PLENGTH
     5034   01 00FDD    35901DD0              STW,9    PADDR
     5035   01 00FDE    22900100 A            LI,9     256
     5036   01 00FDF    36900008 A            DW,9     8
     5037   01 00FE0    35900007 A            STW,9    7                 LOOP COUNT
     5038   01 00FE1    37901DCD              MW,9     PLENGTH
     5039   01 00FE2    68300FE4              BCR,3    %+2
     5040   01 00FE3    209FFFFF A            AI,9     -1
     5041   01 00FE4    35901DCE              STW,9    TLENGTH           PATTERN TABLE LENGTH -1
     5042   01 00FE5    22500000 A            LI,5     0
     5043   01 00FE6    22600000 A   PS01     LI,6     0
     5044   01 00FE7    F21C1DD0     PS02     LB,1     *PADDR,6
     5045   01 00FE8    F51A1E1A              STB,1    *PTPOINT,5
     5046   01 00FE9    20500001 A            AI,5     1
     5047   01 00FEA    20600001 A            AI,6     1
     5048   01 00FEB    31601DCD              CW,6     PLENGTH
     5049   01 00FEC    69100FE7              BCS,1    PS02
     5050   01 00FED    64700FE6              BDR,7    PS01
     5051   01 00FEE    22700040 A   PS03     LI,7     64
     5052   01 00FEF    22605F13              LI,6     BA(XTWT)+3
     5053   01 00FF0    22500000 A            LI,5     0
     5054   01 00FF1    755C0000 A            STB,5    0,6
     5055   01 00FF2    20600004 A            AI,6     4
     5056   01 00FF3    64700FF1              BDR,7    %-2
     5057   01 00FF4    22000000 A            LI,0     0
     5058   01 00FF5    22100001 A            LI,1     1
     5059   01 00FF6    22200002 A            LI,2     2
     5060   01 00FF7    22300003 A            LI,3     3
     5061   01 00FF8    E8001DFD              B        *SAVE35
     5062                            *
     5063                            *
     5064                                     PAGE
     5065                            *
     5066                            *
     5067                            *        E R R O R  R E P O R T  S U B R O U T I N E
     5068                            *
     5069                            *
     5070                                     BOUND    8
     5071                            *
     5072   01 00FFA    00000000 A   ERROR    DATA     0,0,%+2,7**24
            01 00FFB    00000000 A
            01 00FFC    00000FFE
            01 00FFD    07000000 A
     5073   01 00FFE    CD0005EB              TIO,0    *ZTWLPO
     5074   01 00FFF    69C01039              BCS,12   ERR01
     5075   01 01000    05800000 A            PULL,4   ELIST1
            01 01001    32421C66
     5076   01 01002    05800000 A            PULL,5   ELIST1
            01 01003    32521C66
     5077   01 01004    68101006              BCR,1    %+2
     5078   01 01005    0E000FFA              LPSD,0   ERROR
     5079   01 01006    35501DDF              STW,5    SAVE5
     5080   01 01007    6AD0103A              BAL,13   CONVERT
     5081   01 01008    35501EF0              STW,5    TEXT03+2
     5082   01 01009    6AD0103A              BAL,13   CONVERT
     5083   01 0100A    35501EF1              STW,5    TEXT03+3
     5084   01 0100B    6AD0103A              BAL,13   CONVERT
     5085   01 0100C    35501EF3              STW,5    TEXT03+5
     5086   01 0100D    6AD0103A              BAL,13   CONVERT
     5087   01 0100E    35501EF4              STW,5    TEXT03+6
     5088   01 0100F    32502178              LW,5     L(X'40404040')                                      *F
     5089   01 01010    35501EF8              STW,5    TEXT03+10
     5090   01 01011    71100004 A            CB,1     4
     5091   01 01012    68401015              BCR,4    %+3
     5092   01 01013    2250005C A            LI,5     C'*'
     5093   01 01014    75521EF8              STB,5    TEXT03+10,1
     5094   01 01015    71200004 A            CB,2     4
     5095   01 01016    68401019              BCR,4    %+3               B IF NO ERROR LOSS
     5096   01 01017    2250005B A            LI,5     C'%'
     5097   01 01018    75501EF8              STB,5    TEXT03+10
     5098   01 01019    72520004 A            LB,5     4,1
     5099   01 0101A    22400000 A            LI,4     0
     5100   01 0101B    36402176              DW,4     L(10)
     5101   01 0101C    49502177              OR,5     L(X'F0')
     5102   01 0101D    49402177              OR,4     L(X'F0')
     5103   01 0101E    25500008 A            SLS,5    8
     5104   01 0101F    49400005 A            OR,4     5
     5105   01 01020    55421EEE              STH,4    TEXT03,1
     5106   01 01021    6D000031 A            WD,0     X'31'
     5107   01 01022    32C01DDF              LW,12    SAVE5
     5108   01 01023    6AF004FF              BAL,15   ZBTH
     5109   01 01024    35C01EF6              STW,12   TEXT03+8
     5110   01 01025    35D01EF7              STW,13   TEXT03+9
     5111   01 01026    32C006A1              LW,12    P12               TEST FOR 'CLM' MODE               *F
     5112   01 01027    68301030              BCR,3    %+9               BRANCH IF NOT                     *F
     5113   01 01028    05800000 A            PULL,12  ELIST1            GET 'MEM' WORD                    *F
            01 01029    32C21C66
     5114   01 0102A    69101039              BCS,1    ERR01             BRANCH IF LIST EXHAUSTED          *F
     5115   01 0102B    25C0047F A            SAS,12   -1                CONVERT HALFWORD TO WORD INDEX    *F
     5116   01 0102C    30C0068F              AW,12    ZIOADR            CLM BUFFER BASE ADDRESS           *F
     5117   01 0102D    6AF004FF              BAL,15   ZBTH                                                *F
     5118   01 0102E    35D01EFA              STW,13   TEXT03+12                                           *F
     5119   01 0102F    22C0000A A            LI,12    10                '  MEM=XXXX'                      *F
     5120   01 01030    20C0002B A            AI,12    43                                                  *F
     5121   01 01031    35C01795              STW,12   CP03+1            BYTE COUNT                        *F
     5122   01 01032    22000BCA              LI,0     DA(CP03)
     5123   01 01033    CC0005EB              SIO,0    *ZTWLPO
     5124   01 01034    22000000 A            LI,0     0                                                   *F
     5125   01 01035    32C01E2A              LW,12    SPACE0            REMAINING ROOM IN ERROR LIST      *F
     5126   01 01036    20CFFFFE A   PULLSIZE AI,12    -2                SUBTRACT 2 (3 IF 'CLM' MODE) WORDS
     5127   01 01037    68201039              BCR,2    ERR01
     5128   01 01038    35001E92              STW,0    ERRPAUSE          RESET ERROR LIST BYPASS COUNT
     5129   01 01039    0E000FFA     ERR01    LPSD,0   ERROR
     5130                            *
     5131   01 0103A    22500000 A   CONVERT  LI,5     0
     5132   01 0103B    25400301 A            SCD,4    1
     5133   01 0103C    25500007 A            SLS,5    7
     5134   01 0103D    25400301 A            SCD,4    1
     5135   01 0103E    25500007 A            SLS,5    7
     5136   01 0103F    25400301 A            SCD,4    1
     5137   01 01040    25500007 A            SLS,5    7
     5138   01 01041    25400301 A            SCD,4    1
     5139   01 01042    4950217C              OR,5     L(X'F0F0F0F0')
     5140   01 01043    E800000D A            B        *13
     5141                            *
     5142                            *
     5143                                     PAGE
     5144                            *
     5145                            *
     5146                            *        A B O R T   R O U T I N E S
     5147                            *
     5148                            *
     5149                                     BOUND    8
     5150   01 01044                          RES      16                                                  *F
     5151                            *
     5152   01 01054    00000000 A   ABORTLOC DATA     0,0,STATSAVE,7**24                                  *F
            01 01055    00000000 A
            01 01056    00001062
            01 01057    07000000 A
     5153                            *                                   ABORT NUMBERS                     *F
     5154   01 01058    04020600 A            GEN,8,8,8,8 4,2,6,0        0,1,2,3                           *F
     5155   01 01059    070A0314 A            GEN,8,8,8,8 7,10,3,20      4,5,6,7                           *F
     5156   01 0105A    0C0D0F0E A            GEN,8,8,8,8 12,13,15,14    8,9,10,11                         *F
     5157   01 0105B    12131110 A            GEN,8,8,8,8 18,19,17,16    12,13,14,15                       *F
     5158   01 0105C    15161718 A            GEN,8,8,8,8 21,22,23,24    16,17,18,19                       *F
     5159   01 0105D    1D1E1F20 A            GEN,8,8,8,8 29,30,31,32    20,21,22,23                       *F
     5160   01 0105E    21232219 A            GEN,8,8,8,8 33,35,34,25    24,25,26,27                       *F
     5161   01 0105F    1C1B241A A            GEN,8,8,8,8 28,27,36,26    28,29,30,31                       *F
     5162   01 01060    25262728 A            GEN,8,8,8,8 37,38,39,40    32,33,34,35                       *F
     5163   01 01061    08000000 A            GEN,8,24 8,0               36 (LAST)                         *F
     5164                            *                                                                     *F
     5165   01 01062    2B001044     STATSAVE STM,0    ABORTLOC-16                                         *F
     5166   01 01063    46F00008 A            XW,15    8                                                   *F
     5167   01 01064    22601000 A            LI,6     1**12             BIT POSITION 19                   *F
     5168   01 01065    6D601500 A            WD,6     X'1500'           STOP THE CLOCK (DISABLE)          *F
     5169                            *                                                                     *F
     5170                            *    FOLLOWING CODE SAVES STATUS OF EACH LINE AT TIME OF AN ABORT.    *F
     5171                            *                                                                     *F
     5172   01 01066    226FFFC0 A            LI,6     -64                                                 *F
     5173   01 01067    22FFFFFF A            LI,15    -1                                                  *F
     5174   01 01068    20F00001 A   STATUS   AI,15    1                                                   *F
     5175   01 01069    22500000 A            LI,5     0                                                   *F
     5176   01 0106A    67001E6D              EXU      STS                                                 *F
     5177   01 0106B    74040005 A            STCF     5,2                                                 *F
     5178   01 0106C    67001E6C              EXU      SRS                                                 *F
     5179   01 0106D    74060005 A            STCF     5,3                                                 *F
     5180   01 0106E    475C1844              STS,5    RTWT+64,6                                           *F
     5181   01 0106F    65601068              BIR,6    STATUS                                              *F
     5182                            *                                                                     *F
     5183   01 01070    330006A1              MTW,0    P12                                                 *F
     5184   01 01071    6830107C              BCR,3    %+11              BRANCH IF NOT IN CLM MODE         *F
     5185   01 01072    32501E83              LW,5     LSDELAY                                             *F
     5186   01 01073    30500005 A            AW,5     5                 DOUBLE                            *F
     5187   01 01074    32601E01              LW,6     TIME                                                *F
     5188   01 01075    30500006 A            AW,5     6                                                   *F
     5189   01 01076    22401000 A            LI,4     1**12                                               *F
     5190   01 01077    6D401200 A            WD,4     X'1200'           START CLOCK AGAIN                 *F
     5191   01 01078    31501E01              CW,5     TIME                                                *F
     5192   01 01079    69101078              BCS,1    %-1               DELAY 2 X LSDELAY                 *F
     5193   01 0107A    6D401100 A            WD,4     X'1100'                                             *F
     5194   01 0107B    35601E01              STW,6    TIME              RESTORE ACTUAL ABORT TIME         *F
     5195                            *                                                                     *F
     5196                            *                                                                     *F
     5197                            *                                                                     *F
     5198   01 0107C    F2661054              LB,6     *ABORTLOC,3       GET ABORT NUMBER                  *F
     5199   01 0107D    32C00006 A            LW,12    6                 SET ABORT NUMBER IN               *F
     5200   01 0107E    6AF004EA              BAL,15   ZBTD                                                *F
     5201   01 0107F    6AF004FF              BAL,15   ZBTH               'ENVI,AN'                        *F
     5202   01 01080    55D01FD2              STH,13   TEXT29+6            MESSAGE TEXT                    *F
     5203                            *                                                                     *F
     5204   01 01081    46F00008 A            XW,15    8                 RESTORE LINE NUMBER               *F
     5205   01 01082    726C1058              LB,6     ABORTLOC+4,6                                        *F
     5206   01 01083    680C1084              B        %+1,6             GO TO CODE FOR THIS ABORT NUMBER. *F
     5207                            *                                                                     *F
     5208                            *
     5209   01 01084    32C01EFB              LW,12    MW04
     5210   01 01085    680010CD              B        NOTACTR           1
     5211   01 01086    680010E2              B        XNOTRDY
     5212                            *
     5213   01 01087    680010AD              B        NOTBUSY           3
     5214                            *
     5215   01 01088    32C01F03              LW,12    MW05
     5216   01 01089    680010CF              B        NOTACT
     5217                            *
     5218   01 0108A    680010E0              B        ODDBC
     5219                            *
     5220   01 0108B    680010EC              B        NOTRECOG                                            *F
     5221                            *
     5222   01 0108C    32C01F48              LW,12    MW13
     5223   01 0108D    680010E7              B        NINSTALL
     5224                            *
     5225   01 0108E    32C01F50              LW,12    MW14
     5226   01 0108F    680010E7              B        NINSTALL
     5227                            *
     5228   01 01090    680010B2              B        RINTFAIL          12
     5229                            *
     5230   01 01091    680010B4              B        LSPFAIL           13
     5231                            *
     5232   01 01092    680010B9              B        DXFAIL            14
     5233                            *
     5234   01 01093    680010BE              B        RNRPTLS           15
     5235                            *
     5236                                     PAGE
     5237                            *
     5238                            *
     5239                            *
     5240                            *                 DELETED 'ABORT1' CODING (NOW SURPLUS)               *F
     5241   01 01094    680010C3              B        RNONNLS           0
     5242                            *
     5243   01 01095    680010C8              B        LDTIMOUT          1
     5244                            *
     5245   01 01096    680010EE              B        XINTFAIL          2
     5246                            *
     5247   01 01097    680010F4              B        RINFAIL           3
     5248                            *
     5249   01 01098    680010F6              B        FAILRDY           4
     5250                            *
     5251   01 01099    680010FB              B        RNODATA            5
     5252                            *
     5253   01 0109A    680010FD              B        R2INTR            6
     5254                            *
     5255   01 0109B    68001102              B        RNOFFLS           7
     5256                            *
     5257   01 0109C    68001107              B        RDNTON            8
     5258   01 0109D    6800110C              B        NONACTR           9  (27)                           *F
     5259   01 0109E    68001111              B        INCF              10 (31)                           *F
     5260   01 0109F    68001116              B        1XF2R             11 (29)                           *F
     5261   01 010A0    6800111B              B        NOLS              12 (28)                           *F
     5262   01 010A1    68001120              B        TIMEOUT           13 (20)                           *F
     5263   01 010A2    68001122              B        IONA              14 (21)                           *F
     5264   01 010A3    68001124              B        LNF1              15 (22)                           *F
     5265                            *                                                                     *F
     5266   01 010A4    68001129              B        SIONA             16 (23)                           *F
     5267   01 010A5    6800112B              B        DEVNB             17 (24)                           *F
     5268   01 010A6    6800112D              B        TNSB              18 (26)                           *F
     5269   01 010A7    68001132              B        MCRTX             19 (25)                           *F
     5270   01 010A8    68001134              B        EEFL              20 (30)                           *F
     5271   01 010A9    68001139              B        ILSOR             21 (32)                           *F
     5272   01 010AA    6800113E              B        IRLSOR            22 (33)                           *F
     5273   01 010AB    68001143              B        DLSIR             23 (34)                           *F
     5274   01 010AC    68001148              B        LSMFR             24 (35)                           *F
     5275                            *
     5276                                     PAGE
     5277                            *
     5278   01 010AD    7256000F A   NOTBUSY  LB,5     15,3
     5279   01 010AE    6AE00EF1              BAL,14   LCON
     5280   01 010AF    55401F8F              STH,4    TEXT22+2
     5281   01 010B0    32C01F8C              LW,12    MW22
     5282   01 010B1    680010D3              B        TAMSG
     5283                            *
     5284   01 010B2    32C01F95     RINTFAIL LW,12    MW23
     5285   01 010B3    680010D3              B        TAMSG
     5286                            *
     5287   01 010B4    7256000F A   LSPFAIL  LB,5     15,3
     5288   01 010B5    6AE00EF1              BAL,14   LCON
     5289   01 010B6    55401FA0              STH,4    TEXT24+2
     5290   01 010B7    32C01F9D              LW,12    MW24
     5291   01 010B8    680010D3              B        TAMSG
     5292                            *
     5293   01 010B9    7256000F A   DXFAIL   LB,5     15,3
     5294   01 010BA    6AE00EF1              BAL,14   LCON
     5295   01 010BB    55401FA8              STH,4    TEXT25+2
     5296   01 010BC    32C01FA5              LW,12    MW25
     5297   01 010BD    680010D3              B        TAMSG
     5298                            *
     5299   01 010BE    7256000F A   RNRPTLS  LB,5     15,3
     5300   01 010BF    6AE00EF1              BAL,14   LCON
     5301   01 010C0    55401FB1              STH,4    TEXT26+2
     5302   01 010C1    32C01FAE              LW,12    MW26
     5303   01 010C2    680010D3              B        TAMSG
     5304                            *
     5305   01 010C3    7256000F A   RNONNLS  LB,5     15,3
     5306   01 010C4    6AE00EF1              BAL,14   LCON
     5307   01 010C5    55401FB9              STH,4    TEXT27+2
     5308   01 010C6    32C01FB6              LW,12    MW27
     5309   01 010C7    680010D3              B        TAMSG
     5310                            *
     5311   01 010C8    72560007 A   LDTIMOUT LB,5     7,3
     5312   01 010C9    6AE00EF1              BAL,14   LCON
     5313   01 010CA    55421FCA              STH,4    TEXT28+10,1
     5314   01 010CB    32C01FBF              LW,12    MW28
     5315   01 010CC    680010D3              B        TAMSG
     5316                            *
     5317   01 010CD    72561DD6     NOTACTR  LB,5     ERRORWD,3
     5318   01 010CE    680010D0              B        NOTACT+1
     5319                            *
     5320   01 010CF    72561E03     NOTACT   LB,5     ERRORWD1,3
     5321   01 010D0    6AE00EF1              BAL,14   LCON
     5322   01 010D1    55401EFF              STH,4    TEXT04+3
     5323   01 010D2    55401F07              STH,4    TEXT05+3
     5324   01 010D3    22F010F0 A   TAMSG    LI,15    X'10F0'
     5325   01 010D4    6DF01100 A            WD,15    (1,X'100')
     5326   01 010D5    6DF01500 A            WD,15    (1,X'500')
     5327   01 010D6    022000C0 A            LCI      12
     5328   01 010D7    6AF005C9              BAL,15   ZTWLP
     5329   01 010D8    32C01F0B              LW,12    MW06
     5330   01 010D9    022000C0 A            LCI      12
     5331   01 010DA    6AF005C9              BAL,15   ZTWLP
     5332   01 010DB    33101DFE              MTW,1    RETURN
     5333   01 010DC    32C01E01              LW,12    TIME
     5334   01 010DD    35C00696              STW,12   P1
     5335   01 010DE    6AF00F56              BAL,15   TIME00
     5336   01 010DF    6800114D              B        SHUTDOWN
     5337                            *
     5338   01 010E0    32C01F30     ODDBC    LW,12    MW10
     5339   01 010E1    680010D3              B        TAMSG
     5340                            *
     5341   01 010E2    72561E03     XNOTRDY  LB,5     ERRORWD1,3
     5342   01 010E3    6AE00EF1              BAL,14   LCON
     5343   01 010E4    55401F45              STH,4    TEXT12+3
     5344   01 010E5    32C01F41              LW,12    MW12
     5345   01 010E6    680010D3              B        TAMSG
     5346                            *
     5347   01 010E7    7256000F A   NINSTALL LB,5     15,3
     5348   01 010E8    6AE00EF1              BAL,14   LCON
     5349   01 010E9    55401F4C              STH,4    TEXT13+3
     5350   01 010EA    55401F54              STH,4    TEXT14+3
     5351   01 010EB    680010D3              B        TAMSG
     5352                            *
     5353   01 010EC    32C01EE4     NOTRECOG LW,12    MW02                                                *F
     5354   01 010ED    680010D3              B        TAMSG
     5355                            *
     5356   01 010EE    32C01F84     XINTFAIL LW,12    MW21
     5357   01 010EF    7256000F A            LB,5     15,3
     5358   01 010F0    6AE00EF1              BAL,14   LCON
     5359   01 010F1    55401F8B              STH,4    TEXT21+6
     5360   01 010F2    55401FE0              STH,4    TEXT31+6
     5361   01 010F3    680010D3              B        TAMSG
     5362                            *
     5363   01 010F4    32C01FD9     RINFAIL  LW,12    MW31
     5364   01 010F5    680010EF              B        XINTFAIL+1
     5365                            *
     5366   01 010F6    7256000F A   FAILRDY  LB,5     15,3
     5367   01 010F7    6AE00EF1              BAL,14   LCON
     5368   01 010F8    55401FE4              STH,4    TEXT32+2
     5369   01 010F9    32C01FE1              LW,12    MW32
     5370   01 010FA    680010D3              B        TAMSG
     5371                            *
     5372   01 010FB    32C01F38     RNODATA  LW,12    MW11
     5373   01 010FC    680010D3              B        TAMSG
     5374                            *
     5375   01 010FD    72561DD6     R2INTR   LB,5      ERRORWD,3
     5376   01 010FE    6AE00EF1              BAL,14   LCON
     5377   01 010FF    5542200F              STH,4    TEXT38+7,1
     5378   01 01100    32C02007              LW,12    MW38
     5379   01 01101    680010D3               B        TAMSG
     5380                            *
     5381   01 01102    7256000F A   RNOFFLS  LB,5     15,3
     5382   01 01103    6AE00EF1              BAL,14   LCON
     5383   01 01104    55402022              STH,4    TEXT42+2
     5384   01 01105    32C0201F              LW,12    MW42
     5385   01 01106    680010D3              B        TAMSG
     5386                            *
     5387   01 01107    7256000F A   RDNTON   LB,5     15,3
     5388   01 01108    6AE00EF1              BAL,14   LCON
     5389   01 01109    5540202B              STH,4    TEXT43+2
     5390   01 0110A    32C02028              LW,12    MW43
     5391   01 0110B    680010D3              B        TAMSG
     5392                            *
     5393   01 0110C    72561E03     NONACTR  LB,5     ERRORWD1,3        GET LINE NO. FROM 'ERRORWD1'  (27)*F
     5394   01 0110D    6AE00EF1              BAL,14   LCON              B TO 'LCON SUBROUTINE'            *F
     5395   01 0110E    554020AA              STH,4    TEXT59+2          PUT RECEIVER NO. IN CORRECT POS.  *F
     5396   01 0110F    32C020A7              LW,12    MW59              OUTPUT MESSAGE '59'               *F
     5397   01 01110    680010D3              B        TAMSG                                               *F
     5398                            *                                                                     *F
     5399   01 01111    72561E03     INCF     LB,5     ERRORWD1,3                                      (31)*F
     5400   01 01112    6AE00EF1              BAL,14   LCON                                                *F
     5401   01 01113    554020FB              STH,4    TEXT61+2                                            *F
     5402   01 01114    32C020F8              LW,12    MW61                                                *F
     5403   01 01115    680010D3              B        TAMSG                                               *F
     5404                            *                                                                     *F
     5405   01 01116    72561E03     1XF2R    LB,5     ERRORWD1,3                                      (29)*F
     5406   01 01117    6AE00EF1              BAL,14   LCON                                                *F
     5407   01 01118    554020B8              STH,4    TEXT60+2                                            *F
     5408   01 01119    32C020B5              LW,12    MW60                                                *F
     5409   01 0111A    680010D3              B        TAMSG                                               *F
     5410                            *                                                                     *F
     5411   01 0111B    7256000F A   NOLS     LB,5     15,3                                            (28)*F
     5412   01 0111C    6AE00EF1              BAL,14   LCON                                                *F
     5413   01 0111D    554020CA              STH,4    TEXT62+6                                            *F
     5414   01 0111E    32C020C3              LW,12    MW62                                                *F
     5415   01 0111F    680010D3              B        TAMSG                                               *F
     5416                            *                                                                     *F
     5417   01 01120    32C0206A     TIMEOUT  LW,12    MW52                                            (20)*F
     5418   01 01121    680010D3              B        TAMSG                                               *F
     5419                            *                                                                     *F
     5420   01 01122    32C02074     IONA     LW,12    MW53                                            (21)*F
     5421   01 01123    680010D3              B        TAMSG                                               *F
     5422                            *                                                                     *F
     5423   01 01124    72561E03     LNF1     LB,5     ERRORWD1,3                                      (22)*F
     5424   01 01125    6AE00EF1              BAL,14   LCON                                                *F
     5425   01 01126    55422085              STH,4    TEXT54+8,1                                          *F
     5426   01 01127    32C0207C              LW,12    MW54                                                *F
     5427   01 01128    680010D3              B        TAMSG                                               *F
     5428                            *                                                                     *F
     5429   01 01129    32C02087     SIONA    LW,12    MW55                                            (23)*F
     5430   01 0112A    680010D3              B        TAMSG                                               *F
     5431                            *                                                                     *F
     5432   01 0112B    32C0208E     DEVNB    LW,12    MW56                                            (24)*F
     5433   01 0112C    680010D3              B        TAMSG                                               *F
     5434                            *                                                                     *F
     5435   01 0112D    72561E03     TNSB     LB,5     ERRORWD1,3                                      (26)*F
     5436   01 0112E    6AE00EF1              BAL,14   LCON                                                *F
     5437   01 0112F    554020A3              STH,4    TEXT58+3                                            *F
     5438   01 01130    32C0209F              LW,12    MW58                                                *F
     5439   01 01131    680010D3              B        TAMSG                                               *F
     5440                            *                                                                     *F
     5441   01 01132    32C02095     MCRTX    LW,12    MW57                                                *F
     5442   01 01133    680010D3              B        TAMSG                                               *F
     5443                            *                                                                     *F
     5444   01 01134    72561E03     EEFL     LB,5     ERRORWD1,3                                          *F
     5445   01 01135    6AE00EF1              BAL,14   LCON                                                *F
     5446   01 01136    5540210E              STH,4    TEXT66+7                                            *F
     5447   01 01137    32C02106              LW,12    MW66                                                *F
     5448   01 01138    680010D3              B        TAMSG                                               *F
     5449                            *                                                                     *F
     5450   01 01139    72561E03     ILSOR    LB,5     ERRORWD1,3                                          *F
     5451   01 0113A    6AE00EF1              BAL,14   LCON                                                *F
     5452   01 0113B    55402117              STH,4    TEXT67+7                                            *F
     5453   01 0113C    32C0210F              LW,12    MW67                                                *F
     5454   01 0113D    680010D3              B        TAMSG                                               *F
     5455                            *                                                                     *F
     5456   01 0113E    72561E03     IRLSOR   LB,5     ERRORWD1,3                                          *F
     5457   01 0113F    6AE00EF1              BAL,14   LCON                                                *F
     5458   01 01140    55402120              STH,4    TEXT68+7                                            *F
     5459   01 01141    32C02118              LW,12    MW68                                                *F
     5460   01 01142    680010D3              B        TAMSG                                               *F
     5461                            *                                                                     *F
     5462   01 01143    72561E03     DLSIR    LB,5     ERRORWD1,3                                          *F
     5463   01 01144    6AE00EF1              BAL,14   LCON                                                *F
     5464   01 01145    55402129              STH,4    TEXT69+7                                            *F
     5465   01 01146    32C02121              LW,12    MW69                                                *F
     5466   01 01147    680010D3              B        TAMSG                                               *F
     5467                            *                                                                     *F
     5468   01 01148    72561E03     LSMFR    LB,5     ERRORWD1,3                                          *F
     5469   01 01149    6AE00EF1              BAL,14   LCON                                                *F
     5470   01 0114A    55402132              STH,4    TEXT70+7                                            *F
     5471   01 0114B    32C0212A              LW,12    MW70                                                *F
     5472   01 0114C    680010D3              B        TAMSG                                               *F
     5473   01 0114D    6D000035 A   SHUTDOWN WD,0     X'35'
     5474   01 0114E    227FFFC0 A            LI,7     -64                                                 *F
     5475   01 0114F    32CE1804     SHUTDWN1 LW,12    XTWT+64,7                                         *F01
     5476   01 01150    32D02167              LW,13    =1**27                                              *F
     5477   01 01151    4BD0000C A            AND,13   12                EXTRACT 'TEMP. SLS' FLAG BIT      *F
     5478   01 01152    25D00279 A            SCS,13   -7                                                  *F
     5479   01 01153    4BC02160              AND,12   =X'F1B00000'      EXTRACT 'TEMP',SLS FLAG BIT     *F01
     5480   01 01154    49C0000D A            OR,12    13                                                  *F
     5481   01 01155    22F00040 A            LI,15    X'40'             GET CURRENT LINE NO.            *F01
     5482   01 01156    30F00007 A            AW,15    7                                                 *F01
     5483   01 01157    67001E70              EXU      DISENGAGE         MODE OF OPERATION.              *F01
     5484   01 01158    6570114F              BIR,7    SHUTDWN1                                          *F01
     5485   01 01159    227EB3F8 A            LI,7     -85000            DELAY                           *F01
     5486   01 0115A    6570115A              BIR,7    %                                                 *F01
     5487   01 0115B    CF001DCC              HIO,0    *IODEVICE
     5488   01 0115C    CD0005EB              TIO,0    *ZTWLPO
     5489   01 0115D    6940115C              BCS,4    %-1
     5490   01 0115E    22F010F0 A            LI,15    X'10F0'
     5491   01 0115F    6DF01100 A            WD,15    (1,X'100')
     5492   01 01160    6DF01500 A            WD,15    (1,X'500')
     5493   01 01161    32001EB1              LW,0     DAINT
     5494   01 01162    32101EB2              LW,1     DEINT
     5495   01 01163    22FFFFFF A            LI,15    -1
     5496   01 01164    22EFFFF0 A            LI,14    -16
     5497   01 01165    67000000 A            EXU      0
     5498   01 01166    67000001 A            EXU      1
     5499   01 01167    20000001 A            AI,0     1
     5500   01 01168    20100001 A            AI,1     1
     5501   01 01169    65E01165              BIR,14   %-4
     5502   01 0116A    32001E74              LW,0     XSTOP
     5503   01 0116B    32101E6F              LW,1     TROFF
     5504   01 0116C    22F00000 A            LI,15    0
     5505   01 0116D    22EFFFC0 A            LI,14    -64
     5506   01 0116E    67000000 A            EXU      0
     5507   01 0116F    67000001 A            EXU      1
     5508   01 01170    20F00001 A            AI,15    1
     5509   01 01171    65E0116E              BIR,14   %-3
     5510   01 01172    6D000027 A            WD,0     X'27'             RESET INHIBITS                    *F
     5511   01 01173    E8001DFE              B        *RETURN
     5512                            *
     5513                                     BOUND    8
     5514                            *
     5515   01 01174    00000000 A   CPINT    DATA     0,0,%+2,7**24
            01 01175    00000000 A
            01 01176    00001178
            01 01177    07000000 A
     5516   01 01178    0E30117A              LPSD,3   %+2
     5517   01 01179    00000000 A            DATA     0
     5518   01 0117A    0000114D              DATA     SHUTDOWN
     5519   01 0117B    05000000 A            DATA     5**24
     5520                            *
     5521                                     PAGE
     5522                            *
     5523                            *
     5524                            *        F I F O  L I S T  P R O C E S S O R
     5525                            *
     5526                            *
     5527                                     BOUND    8
     5528                            *
     5529                            *
     5530   01 0117C    00000000 A   FIFO0    DATA     0,0,%+2,7**24
            01 0117D    00000000 A
            01 0117E    00001180
            01 0117F    07000000 A
     5531   01 01180    33001E2A              MTW,0    SPACE0
     5532   01 01181    68301197              BCR,3    FIFOABOR
     5533   01 01182    33F01E2A              MTW,15   SPACE0
     5534   01 01183    33101E04              MTW,1    WCOUNT0
     5535   01 01184    33101E05              MTW,1    PSHDEX
     5536   01 01185    32001E05              LW,0     PSHDEX
     5537   01 01186    6800118E              B        LISTPROC
     5538   01 01187    02000000 A            NOP
     5539   01 01188    33001E04              MTW,0    WCOUNT0
     5540   01 01189    68301197              BCR,3    FIFOABOR
     5541   01 0118A    33101E2A              MTW,1    SPACE0
     5542   01 0118B    33F01E04              MTW,15   WCOUNT0
     5543   01 0118C    33101E06              MTW,1    PULDEX
     5544   01 0118D    32001E06              LW,0     PULDEX
     5545   01 0118E    4B002147     LISTPROC AND,0    L(255)
     5546   01 0118F    3310117C              MTW,1    FIFO0
     5547   01 01190    46100000 A            XW,1     0
     5548   01 01191    E700117C              EXU      *FIFO0
     5549   01 01192    32100000 A            LW,1     0
     5550   01 01193    22000000 A            LI,0     0
     5551   01 01194    7500117C              STB,0    FIFO0
     5552   01 01195    3310117C              MTW,1    FIFO0
     5553   01 01196    0E00117C              LPSD,0   FIFO0
     5554                            *
     5555   01 01197    22000010 A   FIFOABOR LI,0     1**4              ABORT EXIT
     5556   01 01198    3310117C              MTW,1    FIFO0
     5557   01 01199    68001194              B        %-5
     5558                            *
     5559                            *
     5560                                     PAGE
     5561                            *
     5562                            *
     5563                            *        T E S T  1  I N F O R M A T I O N  R E P O R T
     5564                            *
     5565                            *
     5566   01 0119A    20000000 A            DATA     2**28
     5567                            *
     5568                            *
     5569   01 0119B    35F01DFE     IRPT00   STW,15   RETURN
     5570   01 0119C    6AE016D5              TESTIT   1
            01 0119D    00000002 A
     5571   01 0119E    32501E01              LW,5     TIME
     5572   01 0119F    35500696              STW,5    P1
     5573   01 011A0    6AF00F56              BAL,15   TIME00
     5574   01 011A1    22900040 A            LI,9     64
     5575   01 011A2    22600000 A            LI,6     0
     5576   01 011A3    328C1804              LW,8     RTWT,6
     5577   01 011A4    691011AB              BCS,1    IRPT02
     5578   01 011A5    20600001 A   IRPT01   AI,6     1
     5579   01 011A6    649011A3              BDR,9    %-3
     5580   01 011A7    32C002CC              LW,12    ZTRN100           CARRIAGE RETURN
     5581   01 011A8    022000D0 A            LCI      13
     5582   01 011A9    6AF005C9              BAL,15   ZTWLP
     5583   01 011AA    E8001DFE              B        *RETURN
     5584   01 011AB    72720008 A   IRPT02   LB,7     8,1                XMIT LINE NUMBER
     5585   01 011AC    32CE18A4              LW,12    XFTWT,7
     5586   01 011AD    6AE011F4              BAL,14   CV01
     5587   01 011AE    35C01F1B              STW,12   TEXT08+5          XMIT FREQ
     5588   01 011AF    35D01F1C              STW,13   TEXT08+6
     5589   01 011B0    32CC1924              LW,12    RETWT,6
     5590   01 011B1    38C01E99              SW,12    ERRLIMIT                                            *F
     5591   01 011B2    6AE011F4              BAL,14   CV01
     5592   01 011B3    35C01F1E              STW,12   TEXT08+8          TOTAL ERRORS
     5593   01 011B4    35D01F1F              STW,13   TEXT08+9
     5594   01 011B5    325C1924              LW,5     RETWT,6
     5595   01 011B6    38501E99              SW,5     ERRLIMIT                                            *F
     5596   01 011B7    23400064 A            MI,4     100
     5597   01 011B8    364E18A4              DW,4     XFTWT,7
     5598   01 011B9    32C00005 A            LW,12    5
     5599   01 011BA    6AE011F4              BAL,14   CV01
     5600   01 011BB    55D01F21              STH,13   TEXT08+11         MS 2 DIG OF % ERROR
     5601   01 011BC    25400160 A            SLD,4    -32
     5602   01 011BD    234003E8 A            MI,4     1000
     5603   01 011BE    364E18A4              DW,4     XFTWT,7
     5604   01 011BF    32C00005 A            LW,12    5
     5605   01 011C0    6AE011F4              BAL,14   CV01
     5606   01 011C1    55D01F22              STH,13   TEXT08+12         LS 2 DIG OF % ERROR
     5607   01 011C2    25D00070 A            SLS,13   -16
     5608   01 011C3    75D61F21              STB,13   TEXT08+11,3       REMAINING DIGIT
     5609   01 011C4    32500006 A            LW,5     6
     5610   01 011C5    6AE00EF1              BAL,14   LCON
     5611   01 011C6    55421F16              STH,4    TEXT08,1
     5612   01 011C7    32500007 A            LW,5     7
     5613   01 011C8    6AE00EF1              BAL,14   LCON
     5614   01 011C9    55401F27              STH,4    TEXT08+17         XMIT LINE NUMBER
     5615   01 011CA    5540213E              STH,4    TEXT71+10                                           *F
     5616   01 011CB    325E18A4              LW,5     XFTWT,7
     5617   01 011CC    23401388 A            MI,4     5000
     5618   01 011CD    36401E01              DW,4     TIME
     5619   01 011CE    32C00005 A            LW,12    5
     5620   01 011CF    6AE011F4              BAL,14   CV01
     5621   01 011D0    35D01F29              STW,13   TEXT08+19         MS 4 DIG OF RATE
     5622   01 011D1    32CC18E4              LW,12    RFTWT,6
     5623   01 011D2    6AE011F4              BAL,14   CV01
     5624   01 011D3    35C01F18              STW,12   TEXT08+2          RECEIVE FREQ
     5625   01 011D4    35D01F19              STW,13   TEXT08+3
     5626   01 011D5    32CC1964              LW,12    CSETWT,6
     5627   01 011D6    6AE011F4              BAL,14   CV01
     5628   01 011D7    35C01F24              STW,12   TEXT08+14         CASE SHIFT ERRORS
     5629   01 011D8    35D01F25              STW,13   TEXT08+15
     5630   01 011D9    32C01F15              LW,12    MW08
     5631   01 011DA    022000E0 A            LCI      14
     5632   01 011DB    6AF005C9              BAL,15   ZTWLP
     5633   01 011DC    327C1804              LW,7     RTWT,6            REG.6 HAS RECEIVE LINE NO.        *F
     5634   01 011DD    72720007 A            LB,7     7,1               GET TRANSMIT LINE NO              *F
     5635   01 011DE    32CE1AA6              LW,12    CLMXLS,7          XMIT L.S. COUNT                   *F
     5636   01 011DF    683011A5              BCR,3    IRPT01                                              *F
     5637   01 011E0    6AE011F4              BAL,14   CV01              B TO CONVERSION ROUTINE           *F
     5638   01 011E1    55D02141              STH,13   TEXT71+13         *F
     5639   01 011E2    25C00170 A            SLD,12   -16                                                 *F
     5640   01 011E3    35D02140              STW,13   TEXT71+12                                           *F
     5641                            *                                                                     *F
     5642   01 011E4    32CC1A66              LW,12    CLMLSREC,6        RECEIVE L.S. COUNT                *F
     5643   01 011E5    6AE011F4              BAL,14   CV01                                                *F
     5644   01 011E6    55D0213A            STH,13     TEXT71+6                                            *F
     5645   01 011E7    25C00170 A            SLD,12   -16                                                 *F
     5646   01 011E8    35D02139              STW,13   TEXT71+5                                            *F
     5647                            *                                                                     *F
     5648   01 011E9    32DE17C4              LW,13    XTWT,7            GET 'XTWT'                        *F
     5649   01 011EA    25C0010B A            SLD,12   11                MAKE 'L.S.' AND 'L.S.             *F
     5650   01 011EB    25C0027E A            SCS,12   -2                 EXTENSION BITS CONTIGOUS.        *F
     5651   01 011EC    25C00301 A            SCD,12   1                                                   *F
     5652   01 011ED    4BC00003 A            AND,12   3                                                   *F
     5653   01 011EE    20C040F0 A            AI,12    X'40F0'                                             *F
     5654   01 011EF    75C02144              STB,12   TEXT71+16                                           *F
     5655                            *
     5656   01 011F0    32C02133              LW,12    MW71                                                *F
     5657   01 011F1    022000E0 A            LCI      14                LP OR TW, ML=2.                   *F
     5658   01 011F2    6AE005C9              BAL,14   ZTWLP                                               *F
     5659                            *
     5660   01 011F3    680011A5              B        IRPT01
     5661                            *
     5662                            *
     5663                            *
     5664                            *
     5665   01 011F4    6AF004EA     CV01     BAL,15   ZBTD
     5666   01 011F5    6AF004FF              BAL,15   ZBTH
     5667   01 011F6    E800000E A            B        *14
     5668                            *
     5669                            *
     5670                                     PAGE
     5671                            *
     5672                            *
     5673                            *        S E N S E  R E C E I V E R  S T A T U S
     5674                            *
     5675                            *
     5676   01 011F7    20000000 A            DATA     2**28
     5677   01 011F8    40000000 A            DATA     4**28
     5678                            *
     5679                            *
     5680   01 011F9    35F01DFE     SRS00    STW,15   RETURN
     5681   01 011FA    6AE016D5              TESTIT   0,1,2,3
            01 011FB    0000000F A
     5682   01 011FC    32F00696              LW,15    P1
     5683   01 011FD    32E00697              LW,14    P2
     5684   01 011FE    67001E6C              EXU      SRS
     5685   01 011FF    7400000C A            STCF     12
     5686   01 01200    25E00004 A            SLS,14   4
     5687   01 01201    71E0000C A            CB,14    12
     5688   01 01202    68401204              BCR,4    %+2
     5689   01 01203    33101DFE              MTW,1    RETURN
     5690   01 01204    3240000C A            LW,4     12
     5691   01 01205    6AD0103A              BAL,13   CONVERT
     5692   01 01206    55501F5D              STH,5    TEXT15+4
     5693   01 01207    3250000F A            LW,5     15
     5694   01 01208    4B502151              AND,5    L(63)
     5695   01 01209    6AE00EF1              BAL,14   LCON
     5696   01 0120A    55421F5B              STH,4    TEXT15+2,1
     5697   01 0120B    32C01F58              LW,12    MW15
     5698   01 0120C    022000E0 A            LCI      14
     5699   01 0120D    6AF005C9              BAL,15   ZTWLP
     5700   01 0120E    E8001DFE              B        *RETURN
     5701                            *
     5702                            *
     5703                                     PAGE
     5704                            *
     5705                            *
     5706                            *        S E N S E  T R A N S M I T T E R  S T A T U S
     5707                            *
     5708                            *
     5709   01 0120F    20000000 A            DATA     2**28
     5710   01 01210    40000000 A            DATA     4**28
     5711                            *
     5712                            *
     5713   01 01211    6AE016D5     STS00    TESTIT   0,1,2,3
            01 01212    0000000F A
     5714   01 01213    35F01DFE              STW,15   RETURN
     5715   01 01214    32F00696              LW,15    P1
     5716   01 01215    32C00697              LW,12    P2
     5717   01 01216    25C00004 A            SLS,12   4
     5718   01 01217    67001E6D              EXU      STS
     5719   01 01218    7400000D A            STCF     13
     5720   01 01219    71C0000D A            CB,12    13
     5721   01 0121A    6840121C              BCR,4    %+2
     5722   01 0121B    33101DFE              MTW,1    RETURN
     5723   01 0121C    3240000D A            LW,4     13
     5724   01 0121D    6AD0103A              BAL,13   CONVERT
     5725   01 0121E    55521F63              STH,5    TEXT16+4,1
     5726   01 0121F    3250000F A            LW,5     15
     5727   01 01220    4B502151              AND,5    L(63)
     5728   01 01221    6AE00EF1              BAL,14   LCON
     5729   01 01222    55401F62              STH,4    TEXT16+3
     5730   01 01223    32C01F5E              LW,12    MW16
     5731   01 01224    022000E0 A            LCI      14
     5732   01 01225    6AF005C9              BAL,15   ZTWLP
     5733   01 01226    E8001DFE              B        *RETURN
     5734                            *
     5735                            *
     5736                                     PAGE
     5737                            *
     5738                            *
     5739                            *        S I O    R O U T I N E
     5740                            *
     5741                            *
     5742   01 01227    40000000 A            DATA     4**28
     5743   01 01228    40000000 A            DATA     4**28
     5744   01 01229    40000000 A            DATA     4**28            BYTE COUNT.                      *F01
     5745                            *
     5746                            *
     5747   01 0122A    6AE016D5     SIO00    TESTIT   0,1,2,3
            01 0122B    0000000F A
     5748   01 0122C    35F01DFE              STW,15   RETURN
     5749   01 0122D    12801796              LD,8     CP04              COMMAND DOUBLE WORD             *F01
     5750   01 0122E    32000696              LW,0     P1
     5751   01 0122F    75000008 A            STB,0    8                 CDW FLAGS                       *F01
     5752   01 01230    22400000 A            LI,4     0
     5753   01 01231    33000697              MTW,0    P2
     5754   01 01232    68301234              BCR,3    %+2
     5755   01 01233    22400010 A            LI,4     X'10'
     5756   01 01234    75400009 A            STB,4    9                                                 *F01
     5757   01 01235    32000698              LW,0     P3                GET BYTE COUNT.                 *F01
     5758   01 01236    4B00217D              AND,0    =X'FE'            SET MAX BYTE COUNT              *F01
     5759   01 01237    68301239              BEZ      %+2               USE STD BYTE CNT. OF 2          *F01
     5760   01 01238    55020009 A            STH,0    9,1               PUT BYTE COUNT IN CDW           *F01
     5761   01 01239    15801248              STD,8    TEMPDW                                            *F01
     5762   01 0123A    22000924              LI,0     DA(TEMPDW)                                        *F01
     5763   01 0123B    CC401DCC              SIO,4    *IODEVICE
     5764   01 0123C    74000006 A            STCF     6
     5765   01 0123D    68C0123F              BCR,12   %+2
     5766   01 0123E    33101DFE              MTW,1    RETURN
     5767   01 0123F    32400005 A            LW,4     5
     5768   01 01240    6AB0128F              BAL,11   STATOUT
     5769   01 01241    35C01F68              STW,12   TEXT17+3
     5770   01 01242    35A01F69              STW,10   TEXT17+4
     5771   01 01243    35E01F6B              STW,14   TEXT17+6
     5772   01 01244    32C01F64              LW,12    MW17
     5773   01 01245    022000F0 A            LCI      15
     5774   01 01246    6AF005C9              BAL,15   ZTWLP
     5775   01 01247    E8001DFE              B        *RETURN
     5776                                     BOUND    8                                                 *F01
     5777   01 01248    00000000 A   TEMPDW   DATA     0,0                                               *F01
            01 01249    00000000 A
     5778                            *
     5779                            *
     5780                                     PAGE
     5781                            *
     5782                            *
     5783                            *        H I O  R O U T I N E
     5784                            *
     5785                            *
     5786   01 0124A    6AE016D5     HIO00    TESTIT   0,1,2,3
            01 0124B    0000000F A
     5787   01 0124C    35F01DFE              STW,15   RETURN
     5788   01 0124D    CF401DCC              HIO,4    *IODEVICE
     5789   01 0124E    74000006 A            STCF     6
     5790   01 0124F    68C01251              BCR,12   %+2
     5791   01 01250    33101DFE              MTW,1    RETURN
     5792   01 01251    32400005 A            LW,4     5
     5793   01 01252    6AB0128F              BAL,11   STATOUT
     5794   01 01253    35C01F70              STW,12   TEXT18+3
     5795   01 01254    35A01F71              STW,10   TEXT18+4
     5796   01 01255    35E01F73              STW,14   TEXT18+6
     5797   01 01256    32C01F6C              LW,12    MW18
     5798   01 01257    022000F0 A            LCI      15
     5799   01 01258    6AF005C9              BAL,15   ZTWLP
     5800   01 01259    E8001DFE              B        *RETURN
     5801                            *
     5802                            *
     5803                                     PAGE
     5804                            *
     5805                            *
     5806                            *        T I O  R O U T I N E
     5807                            *
     5808                            *
     5809   01 0125A    40000000 A            DATA     4**28
     5810                            *
     5811                            *
     5812   01 0125B    6AE016D5     TIO00    TESTIT   0,1,2,3
            01 0125C    0000000F A
     5813   01 0125D    35F01DFE              STW,15   RETURN
     5814   01 0125E    CD401DCC              TIO,4    *IODEVICE
     5815   01 0125F    74000006 A            STCF     6
     5816   01 01260    32700696              LW,7     P1
     5817   01 01261    25700004 A            SLS,7    4
     5818   01 01262    71700006 A            CB,7     6
     5819   01 01263    68401265              BCR,4    %+2
     5820   01 01264    33101DFE              MTW,1    RETURN
     5821   01 01265    32400005 A            LW,4     5
     5822   01 01266    6AB0128F              BAL,11   STATOUT
     5823   01 01267    35C01F78              STW,12   TEXT19+3
     5824   01 01268    35A01F79              STW,10   TEXT19+4
     5825   01 01269    35E01F7B              STW,14   TEXT19+6
     5826   01 0126A    32C01F74              LW,12    MW19
     5827   01 0126B    022000F0 A            LCI      15
     5828   01 0126C    6AF005C9              BAL,15   ZTWLP
     5829   01 0126D    E8001DFE              B        *RETURN
     5830                            *
     5831                            *
     5832                                     PAGE
     5833                            *
     5834                            *
     5835                            *        T D V  R O U T I N E
     5836                            *
     5837                            *
     5838   01 0126E    6AE016D5     TDV00    TESTIT   0,1,2,3
            01 0126F    0000000F A
     5839   01 01270    CE401DCC              TDV,4    *IODEVICE
     5840   01 01271    74000006 A            STCF     6
     5841   01 01272    32400005 A            LW,4     5
     5842   01 01273    6AB0128F              BAL,11   STATOUT
     5843   01 01274    35C02003              STW,12   TEXT37+3
     5844   01 01275    35A02004              STW,10   TEXT37+4
     5845   01 01276    35E02006              STW,14   TEXT37+6
     5846   01 01277    32C01FFF              LW,12    MW37
     5847   01 01278    022000F0 A            LCI      15
     5848   01 01279    680005C9              B        ZTWLP
     5849                            *
     5850                            *
     5851                                     PAGE
     5852                            *
     5853                            *
     5854                            *        A I O  R O U T I N E
     5855                            *
     5856                            *
     5857   01 0127A    6AE016D5     AIO00    TESTIT   0,1,2,3
            01 0127B    0000000F A
     5858   01 0127C    35F01DFE              STW,15   RETURN
     5859   01 0127D    6E400000 A            AIO,4    0
     5860   01 0127E    74000006 A            STCF     6
     5861   01 0127F    75460006 A            STB,4    6,3
     5862   01 01280    68801283              BCR,8    %+3
     5863   01 01281    32C0203A              LW,12    MW45
     5864   01 01282    6800128C              B        AIO01
     5865   01 01283    33101DFE              MTW,1    RETURN
     5866   01 01284    6AB0128F              BAL,11   STATOUT
     5867   01 01285    35C02034              STW,12   TEXT44+3
     5868   01 01286    35A02035              STW,10   TEXT44+4
     5869   01 01287    35E02039              STW,14   TEXT44+8
     5870   01 01288    72C60006 A            LB,12    6,3
     5871   01 01289    6AF004FF              BAL,15   ZBTH
     5872   01 0128A    55D02037              STH,13   TEXT44+6
     5873   01 0128B    32C02030              LW,12    MW44
     5874   01 0128C    022000F0 A   AIO01    LCI      15
     5875   01 0128D    6AF005C9              BAL,15   ZTWLP
     5876   01 0128E    E8001DFE              B        *RETURN
     5877                            *
     5878                            *
     5879                                     PAGE
     5880                            *
     5881                            *
     5882   01 0128F    6AD0103A     STATOUT  BAL,13   CONVERT
     5883   01 01290    3550000C A            STW,5    12
     5884   01 01291    6AD0103A              BAL,13   CONVERT
     5885   01 01292    3550000A A            STW,5    10
     5886   01 01293    32400006 A            LW,4     6
     5887   01 01294    6AD0103A              BAL,13   CONVERT
     5888   01 01295    3550000E A            STW,5    14
     5889   01 01296    E800000B A            B        *11
     5890                            *
     5891                            *
     5892                                     PAGE
     5893                            *
     5894                            *
     5895                            *        G E N E R A L I Z E D  F U N C T I O N  E X E C U T I O N
     5896                            *
     5897                            *
     5898   01 01297    20000000 A            DATA     2**28
     5899   01 01298    0F0012A6     RON00    XPSD,0   EXUF
     5900   01 01299    20000002 A            DATA     2**28+2
     5901   01 0129A    0F0012A6     ROFF00   XPSD,0   EXUF
     5902   01 0129B    20000003 A            DATA     2**28+3
     5903   01 0129C    0F0012A6     RDOF00   XPSD,0   EXUF
     5904   01 0129D    20000004 A            DATA     2**28+4
     5905   01 0129E    0F0012A6     XDOF00   XPSD,0   EXUF
     5906   01 0129F    20000005 A            DATA     2**28+5
     5907   01 012A0    20000006 A            DATA     2**28+6
     5908   01 012A1    0F0012A6     XLS00    XPSD,0   EXUF
     5909   01 012A2    20000007 A            DATA     2**28+7
     5910   01 012A3    0F0012A6     XSTP00   XPSD,0   EXUF
     5911   01 012A4    20000008 A            DATA     2**28+8
     5912                            *
     5913                            *
     5914                                     BOUND    8
     5915                            *
     5916   01 012A6    00000000 A   EXUF     DATA     0,0,%+2,0
            01 012A7    00000000 A
            01 012A8    000012AA
            01 012A9    00000000 A
     5917   01 012AA    6AE016D5              TESTIT   0,1,2,3
            01 012AB    0000000F A
     5918   01 012AC    35F01DFE              STW,15   RETURN
     5919   01 012AD    32F00696              LW,15    P1
     5920   01 012AE    B27012A6              LW,7     *EXUF
     5921   01 012AF    670E1E6C              EXU      SRS,7
     5922   01 012B0    74000004 A            STCF     4
     5923   01 012B1    6AD0103A              BAL,13   CONVERT
     5924   01 012B2    55501FF4              STH,5    TEXT34+2
     5925   01 012B3    72C60007 A            LB,12    7,3
     5926   01 012B4    6AF004FF              BAL,15   ZBTH
     5927   01 012B5    75D61FF2              STB,13   TEXT34,3
     5928   01 012B6    32C01FF1              LW,12    MW34
     5929   01 012B7    022000F0 A            LCI      15
     5930   01 012B8    6AF005C9              BAL,15   ZTWLP
     5931   01 012B9    E8001DFE              B        *RETURN
     5932                            *
     5933                            *
     5934                                     PAGE
     5935                            *        T E S T  2  S P E C I A L  L O G I C  T E S T
     5936   01 012BA    20000000 A            DATA     2**28
     5937   01 012BB    20000000 A            DATA     2**28             DELAY TIME                      *F01
     5938   01 012BC    6AE016D5     ST200    TESTIT   2
            01 012BD    00000004 A
     5939   01 012BE    35F01DDC              STW,15   SAVE2
     5940   01 012BF    225FFFC0 A            LI,5     -X'40'            CHECK FOR NEW MODULES           *F01
     5941   01 012C0    30500696              AW,5     P1                INSTALLED                       *F01
     5942   01 012C1    326A1804              LW,6     XTWT+64,5                                         *F01
     5943   01 012C2    4B60215E              AND,6    =X'01000000'                                      *F01
     5944   01 012C3    683012C8              BEZ      %+5                                               *F01
     5945   01 012C4    32F00696              LW,15    P1                                                *F01
     5946   01 012C5    35F013D0              STW,15   PP1                                               *F01
     5947   01 012C6    67001E71              EXU      ENGAGE                                            *F01
     5948   01 012C7    225EB3F8 A            LI,5     -85000                                            *F01
     5949   01 012C8    655012C8              BIR,5    %                                                 *F01
     5950   01 012C9    CE501DCC     ONE0     TDV,5    *IODEVICE
     5951   01 012CA    74001DDF              STCF     SAVE5
     5952   01 012CB    35501DE1              STW,5    SAVE7
     5953   01 012CC    68C012CF              BCR,12   %+3               B IF IO ADDR RECOG
     5954   01 012CD    6AE013D1              BAL,14   ERRORRTN
     5955   01 012CE    C0000001 A            GEN,2,30 3,1               ERROR  1
     5956   01 012CF    72600005 A            LB,6     5                 STATUS BYTE INTO 6
     5957   01 012D0    21600000 A            CI,6     0                 STATUS BYTE SHOULD CONTAIN ALL ZEROS
     5958   01 012D1    683012D4              BCR,3    ONE1              B IF STATUS BYTE WAS ALL ZEROS
     5959   01 012D2    6AE013D1              BAL,14   ERRORRTN
     5960   01 012D3    C0000002 A            GEN,2,30 3,2               ERROR  2
     5961   01 012D4    CF501DCC     ONE1     HIO,5    *IODEVICE         BUSY RESET
     5962   01 012D5    74001DDF              STCF     SAVE5
     5963   01 012D6    35501DE1              STW,5    SAVE7
     5964   01 012D7    688012DA              BCR,8    %+3               B IF IO ADDR RECOG
     5965   01 012D8    6AE013D1              BAL,14   ERRORRTN
     5966   01 012D9    C0000003 A            GEN,2,30 3,3               ERROR  3
     5967   01 012DA    684012DD              BCR,4    %+3
     5968   01 012DB    6AE013D1              BAL,14   ERRORRTN          IO WAS BUSY,ERROR COND.
     5969   01 012DC    C0000004 A            GEN,2,30 3,4               ERROR  4
     5970   01 012DD    72600005 A            LB,6     5
     5971   01 012DE    21600010 A            CI,6     X'10'
     5972   01 012DF    683012E2              BCR,3    ONE2
     5973   01 012E0    6AE013D1              BAL,14   ERRORRTN
     5974   01 012E1    C0000005 A            GEN,2,30 3,5               ERROR  5
     5975   01 012E2    CD501DCC     ONE2     TIO,5    *IODEVICE
     5976   01 012E3    74001DDF              STCF     SAVE5
     5977   01 012E4    35501DE1              STW,5    SAVE7
     5978   01 012E5    688012E8              BCR,8    %+3
     5979   01 012E6    6AE013D1              BAL,14   ERRORRTN          ADDRESS RECOGNITION BAD
     5980   01 012E7    C0000006 A            GEN,2,30 3,6               ERROR  6
     5981   01 012E8    684012EB              BCR,4    %+3
     5982   01 012E9    6AE013D1              BAL,14   ERRORRTN          SIO CANNOT BE ACCEPTED
     5983   01 012EA    C0000007 A            GEN,2,30 3,7               ERROR  7
     5984   01 012EB    72600005 A            LB,6     5                 STATUS INTO 6
     5985   01 012EC    21600010 A            CI,6     X'10'
     5986   01 012ED    683012F0              BCR,3    ONE3
     5987   01 012EE    6AE013D1              BAL,14   ERRORRTN          STATUS DIDN'T COMPARE CORRECTLY
     5988   01 012EF    C0000008 A            GEN,2,30 3,8               ERROR  8
     5989   01 012F0    22500000 A   ONE3     LI,5     0
     5990   01 012F1    6E500000 A            AIO,5    0
     5991   01 012F2    74001DDF              STCF     SAVE5
     5992   01 012F3    35501DE1              STW,5    SAVE7
     5993   01 012F4    698012F7              BCS,8    %+3               B IF NO INT
     5994   01 012F5    6AE013D1              BAL,14   ERRORRTN
     5995   01 012F6    C0000009 A            GEN,2,30 3,9               ERROR  9
     5996   01 012F7    684012F5              BCR,4    %-2
     5997   01 012F8    32500696              LW,5     P1                RCVR LINE #
     5998   01 012F9    4B502151              AND,5    =63               ENSURE RL<64
     5999   01 012FA    326A1804              LW,6     RTWT,5
     6000   01 012FB    691012FE              BCS,1    %+3               B IF RL ACTIVE
     6001   01 012FC    6AE013D1              BAL,14   ERRORRTN
     6002   01 012FD    0000000B A            DATA     11                ERROR  11
     6003   01 012FE    72720006 A            LB,7     6,1               TX LINE #
     6004   01 012FF    328E17C4              LW,8     XTWT,7
     6005   01 01300    69101303              BCS,1    %+3               B IF TX LINE ACTIVE
     6006   01 01301    6AE013D1              BAL,14   ERRORRTN
     6007   01 01302    0000000C A            DATA     12                ERROR  12
     6008   01 01303    32F00007 A            LW,15    7                 TX LINE #
     6009   01 01304    67001E74              EXU      XSTOP
     6010   01 01305    32F00005 A            LW,15    5                 RCVR LINE NUM
     6011   01 01306    67001E6E              EXU      TRON
     6012   01 01307    220FFFB0 A            LI,0     -80
     6013   01 01308    65001308              BIR,0    %
     6014   01 01309    35501DDA              STW,5    SAVE0
     6015   01 0130A    35701DDB              STW,7    SAVE1             TX LINE #
     6016   01 0130B    22000BD4              LI,0     DA(CP12)
     6017   01 0130C    CC501DCC     ONE4     SIO,5    *IODEVICE
     6018   01 0130D    74001DDF              STCF     SAVE5
     6019   01 0130E    35501DE1              STW,5    SAVE7
     6020   01 0130F    68801312              BCR,8    %+3
     6021   01 01310    6AE013D1              BAL,14   ERRORRTN          ADDR NOT RECOS
     6022   01 01311    C000000D A            GEN,2,30 3,13              ERROR  13
     6023   01 01312    68401315              BCR,4    %+3
     6024   01 01313    6AE013D1              BAL,14   ERRORRTN          SIO NOT ACCEPTED
     6025   01 01314    C000000E A            GEN,2,30 3,14              ERROR  14
     6026   01 01315    72600005 A            LB,6     5
     6027   01 01316    21600010 A            CI,6     X'10'
     6028   01 01317    6830131A              BCR,3    ONE5
     6029   01 01318    6AE013D1              BAL,14   ERRORRTN          STATUS DIDN'T COMPARE
     6030   01 01319    C000000F A            GEN,2,30 3,15              ERROR  15
     6031   01 0131A    CD501DCC     ONE5     TIO,5    *IODEVICE
     6032   01 0131B    74001DDF              STCF     SAVE5
     6033   01 0131C    35501DE1              STW,5    SAVE7
     6034   01 0131D    68801320              BCR,8    %+3               B IF ADDR RECOG
     6035   01 0131E    6AE013D1              BAL,14   ERRORRTN
     6036   01 0131F    C0000010 A            GEN,2,30 3,16              ERROR  16
     6037   01 01320    69401323              BCS,4    %+3               B IF SIO NOT POSSIBLE
     6038   01 01321    6AE013D1              BAL,14   ERRORRTN          SIO SHOULDN'T BE POSSIBLE
     6039   01 01322    C0000011 A            GEN,2,30 3,17              ERROR  17
     6040   01 01323    72600005 A            LB,6     5
     6041   01 01324    21600076 A            CI,6     X'76'
     6042   01 01325    68301328              BCR,3    ONE6
     6043   01 01326    6AE013D1              BAL,14   ERRORRTN          STATUS DOESN'T COMPARE
     6044   01 01327    C0000012 A            GEN,2,30 3,18              ERROR  18
     6045   01 01328    22500000 A   ONE6     LI,5     0
     6046   01 01329    6E500000 A            AIO,5    0
     6047   01 0132A    74001DDF              STCF     SAVE5
     6048   01 0132B    35501DE1              STW,5    SAVE7
     6049   01 0132C    6980132F              BCS,8    %+3               B IF NO INT
     6050   01 0132D    6AE013D1              BAL,14   ERRORRTN
     6051   01 0132E    C0000013 A            GEN,2,30 3,19              ERROR  19
     6052   01 0132F    6840132D              BCR,4    %-2
     6053   01 01330    CD501DCC     ONE7     TIO,5    *IODEVICE
     6054   01 01331    74001DDF              STCF     SAVE5
     6055   01 01332    35501DE1              STW,5    SAVE7
     6056   01 01333    68801336              BCR,8    %+3               B IF ADDRESS RECOG
     6057   01 01334    6AE013D1              BAL,14   ERRORRTN
     6058   01 01335    C0000015 A            GEN,2,30 3,21              ERROR  21
     6059   01 01336    69401339              BCS,4    %+3               B IF ACCEPTABLE SIO IMPOSSIBLE
     6060   01 01337    6AE013D1              BAL,14   ERRORRTN
     6061   01 01338    C0000016 A            GEN,2,30 3,22              ERROR  22
     6062   01 01339    72600005 A            LB,6     5
     6063   01 0133A    21600076 A            CI,6     X'76'
     6064   01 0133B    6830133E              BCR,3    ONE8
     6065   01 0133C    6AE013D1              BAL,14   ERRORRTN          STATUS DIDN'T AGREE
     6066   01 0133D    C0000017 A            GEN,2,30 3,23              ERROR  23
     6067   01 0133E    CF501DCC     ONE8     HIO,5    *IODEVICE
     6068   01 0133F    74001DDF              STCF     SAVE5
     6069   01 01340    35501DE1              STW,5    SAVE7
     6070   01 01341    68801344              BCR,8    %+3               B IF ADDRESS RECOG
     6071   01 01342    6AE013D1              BAL,14   ERRORRTN
     6072   01 01343    C0000018 A            GEN,2,30 3,24              ERROR  24
     6073   01 01344    69401347              BCS,4    %+3               B IF BUSY
     6074   01 01345    6AE013D1              BAL,14   ERRORRTN
     6075   01 01346    C0000019 A            GEN,2,30 3,25              ERROR  25
     6076   01 01347    72600005 A            LB,6     5
     6077   01 01348    21600076 A            CI,6     X'76'
     6078   01 01349    6830134C              BCR,3    ONE9              B IF STATUS AGREES
     6079   01 0134A    6AE013D1              BAL,14   ERRORRTN
     6080   01 0134B    C000001A A            GEN,2,30 3,26              ERROR  26
     6081   01 0134C    CD501DCC     ONE9     TIO,5    *IODEVICE
     6082   01 0134D    74001DDF              STCF     SAVE5
     6083   01 0134E    35501DE1              STW,5    SAVE7
     6084   01 0134F    68801352              BCR,8    %+3               B IF ADDR RECOG
     6085   01 01350    6AE013D1              BAL,14   ERRORRTN
     6086   01 01351    C000001B A            GEN,2,30 3,27              ERROR  27
     6087   01 01352    68401355              BCR,4    %+3               B IF SIO POSSIBLE
     6088   01 01353    6AE013D1              BAL,14   ERRORRTN
     6089   01 01354    C000001C A            GEN,2,30 3,28              ERROR  28
     6090   01 01355    72600005 A            LB,6     5
     6091   01 01356    21600010 A            CI,6     X'10'
     6092   01 01357    6830135A              BCR,3    %+3
     6093   01 01358    6AE013D1              BAL,14   ERRORRTN          STATUS DOESN'T AGREE
     6094   01 01359    C000001D A            GEN,2,30 3,29              ERROR  29
     6095   01 0135A    35300696              STW,3    P1                PATTERN INTO P1
     6096   01 0135B    6AF00F95              BAL,15   PAT00             DO PATTERN ROUTINE
     6097   01 0135C    22000BD9              LI,0     DA(CP17)          DISCARD ANY OUTSTANDING         *F01
     6098   01 0135D    CC001DCC              SIO,0    *IODEVICE         DATA THAT MAY BE IN THE COC     *F01
     6099   01 0135E    225EC780 A            LI,5     -80000            BUFFERS.                        *F01
     6100   01 0135F    6550135F              BIR,5    %                                                 *F01
     6101   01 01360    CF001DCC              HIO,0    *IODEVICE                                         *F01
     6102   01 01361    225FFF7F A            LI,5     -129
     6103   01 01362    22600000 A            LI,6     0
     6104   01 01363    356A1C67              STW,6    IOBUFF+129,5      CLEARS IO BUFF(256 BYTES)
     6105   01 01364    65501363              BIR,5    %-1
     6106   01 01365    3250217E              LW,5     =X'1000'          SELECTS CNTR 4 CNT PULSE
     6107   01 01366    6D501200 A            WD,5     X'1200'           ARM ENABLE INT GR 0
     6108   01 01367    32A00697              LW,10    P2                USE P2 DELAY IF SPECIFIED       *F01
     6109   01 01368    6830136B              BEZ      %+3               USE 208 IF = TO ZERO.           *F01
     6110   01 01369    25A0007F A            SLS,10   -1                2 MILISECOND INCREMENTS.        *F01
     6111   01 0136A    6800136C              B        %+2                                               *F01
     6112   01 0136B    22A00068 A            LI,10    104
     6113   01 0136C    22000BD3              LI,0     DA(CP11)
     6114   01 0136D    CC501DCC              SIO,5    *IODEVICE
     6115   01 0136E    74001DDF              STCF     SAVE5
     6116   01 0136F    35501DE1              STW,5    SAVE7
     6117   01 01370    68C01373              BCR,12   %+3
     6118   01 01371    6AE013D1              BAL,14   ERRORRTN
     6119   01 01372    C000001E A            GEN,2,30 3,30              ERROR  30
     6120   01 01373    226FFF01 A            LI,6     -255
     6121   01 01374    72FC1B26     MARY     LB,15    PATTERN+64,6
     6122   01 01375    25F00008 A            SLS,15   8                 CHAR INTO 16-23
     6123   01 01376    48F01DDB              EOR,15   SAVE1             TX LINE #
     6124   01 01377    67001E72              EXU      XDATA             SEND DATA
     6125   01 01378    22700000 A            LI,7     0                 INIT TIME COUNT
     6126   01 01379    35701E01              STW,7    TIME              TIME=0
     6127   01 0137A    32F01DDB     SENSE    LW,15    SAVE1             TX LINE INTO 15
     6128   01 0137B    67001E6D              EXU      STS               SENSE TX STATUS
     6129   01 0137C    69101381              BCS,1    SENT              B IF TX NOT BUSY
     6130   01 0137D    31A01E01              CW,10    TIME
     6131   01 0137E    6920137A              BCS,2    SENSE
     6132   01 0137F    6AE013D1              BAL,14   ERRORRTN          TIME RAN OUT
     6133   01 01380    0000001F A            DATA     31                ERROR  31
     6134   01 01381    65601374     SENT     BIR,6    MARY
     6135   01 01382    22501000 A            LI,5     X'1000'
     6136   01 01383    6D501100 A            WD,5     X'1100'           DISARMS INT
     6137   01 01384    32F01DDB              LW,15    SAVE1
     6138   01 01385    67001E74              EXU      XSTOP             STOP TX
     6139   01 01386    32F01DDA              LW,15    SAVE0
     6140   01 01387    67001E6F              EXU      TROFF             TURN OFF RCVR
     6141   01 01388    CD501DCC              TIO,5    *IODEVICE
     6142   01 01389    74001DDF              STCF     SAVE5
     6143   01 0138A    35501DE1              STW,5    SAVE7
     6144   01 0138B    6880138E              BCR,8    %+3               B IF ADDR RECOG
     6145   01 0138C    6AE013D1              BAL,14   ERRORRTN
     6146   01 0138D    C0000020 A            GEN,2,30 3,32              ERROR  32
     6147   01 0138E    69401391              BCS,4    %+3
     6148   01 0138F    6AE013D1              BAL,14   ERRORRTN
     6149   01 01390    C0000021 A            GEN,2,30 3,33              ERROR  33
     6150   01 01391    72600005 A            LB,6     5
     6151   01 01392    21600098 A            CI,6     X'98'
     6152   01 01393    68301396              BCR,3    %+3
     6153   01 01394    6AE013D1              BAL,14   ERRORRTN
     6154   01 01395    C0000022 A            GEN,2,30 3,34              ERROR  34
     6155   01 01396    22500000 A            LI,5     0
     6156   01 01397    6E500000 A            AIO,5    0
     6157   01 01398    74001DDF              STCF     SAVE5
     6158   01 01399    35501DE1              STW,5    SAVE7
     6159   01 0139A    6880139D              BCR,8    %+3
     6160   01 0139B    6AE013D1              BAL,14   ERRORRTN
     6161   01 0139C    C0000023 A            GEN,2,30 3,35              ERROR  35
     6162   01 0139D    6840139B              BCR,4    %-2
     6163   01 0139E    32601DCC              LW,6     IODEVICE
     6164   01 0139F    25500210 A            SCS,5    16
     6165   01 013A0    25600010 A            SLS,6    16
     6166   01 013A1    4960217F              OR,6     =X'18'
     6167   01 013A2    31500006 A            CW,5     6
     6168   01 013A3    683013A6              BCR,3    %+3               B IF ADR AND INTS AGREE
     6169   01 013A4    6AE013D1              BAL,14   ERRORRTN
     6170   01 013A5    C0000024 A            GEN,2,30 3,36              ERROR  36
     6171   01 013A6    32501DDB              LW,5     SAVE1
     6172   01 013A7    326A17C4              LW,6     XTWT,5
     6173   01 013A8    25600204 A            SCS,6    4
     6174   01 013A9    4B602156              AND,6    =7
     6175   01 013AA    326C1E76              LW,6     RMASK,6
     6176   01 013AB    25600008 A            SLS,6    8
     6177   01 013AC    221FFF01 A            LI,1     -255
     6178   01 013AD    72821B26     POP      LB,8     PATTERN+64,1      LOADS FROM PATTERN01
     6179   01 013AE    25800008 A            SLS,8    8                 SHIFTS CHAR TO 16-23
     6180   01 013AF    4B800006 A            AND,8    6                 MASKS OUT BITS
     6181   01 013B0    48801DDA              EOR,8    SAVE0             CHAR IN 16-23,RCVR LINE # IN 26-31
     6182   01 013B1    52521C66              LH,5     IOBUFF+128,1      CHAR RECEIVED
     6183   01 013B2    25500008 A            SLS,5    8                 CHAR INTO 16-23
     6184   01 013B3    4B500006 A            AND,5    6
     6185   01 013B4    20100001 A            AI,1     1
     6186   01 013B5    52721C66              LH,7     IOBUFF+128,1      LINE NUM AND NEXT CHAR
     6187   01 013B6    25700078 A            SLS,7    -8
     6188   01 013B7    49500007 A            OR,5     7
     6189   01 013B8    31500008 A            CW,5     8
     6190   01 013B9    683013C0              BCR,3    CMP
     6191   01 013BA    201000FF A            AI,1     255
     6192   01 013BB    32C00001 A            LW,12    1
     6193   01 013BC    6AF004EA              BAL,15   ZBTD
     6194   01 013BD    35C01DE1              STW,12   SAVE7
     6195   01 013BE    6AE013D1              BAL,14   ERRORRTN          6 AND 8 DIDNT AGREE
     6196   01 013BF    40000025 A            GEN,2,30 1,37              ERROR  37
     6197   01 013C0    21100000 A   CMP      CI,1     0
     6198   01 013C1    691013AD              BCS,1    POP
     6199   01 013C2    CF501DCC              HIO,5    *IODEVICE
     6200   01 013C3    225FFFC0 A            LI,5     -X'40'            CHECK FOR NEW MODULES           *F01
     6201   01 013C4    305013D0              AW,5     PP1               INSTALLED                       *F01
     6202   01 013C5    326A1804              LW,6     XTWT+64,5                                         *F01
     6203   01 013C6    4B60215E              AND,6    =X'01000000'                                      *F01
     6204   01 013C7    683013CC              BEZ      %+5                                               *F01
     6205   01 013C8    32F013D0              LW,15    PP1                                               *F01
     6206   01 013C9    67001E70              EXU      DISENGAGE                                         *F01
     6207   01 013CA    22000BD9              LI,0     DA(CP17)          CLEAR COC OF OUTSTANDING        *F01
     6208   01 013CB    CC001DCC              SIO,0    *IODEVICE         DATA.                           *F01
     6209   01 013CC    225EB3F8 A            LI,5     -85000                                            *F01
     6210   01 013CD    655013CD              BIR,5    %                                                 *F01
     6211   01 013CE    CF001DCC              HIO,0    *IODEVICE                                         *F01
     6212   01 013CF    E8001DDC              B        *SAVE2            NORMAL BRANCH
     6213   01 013D0    00000000 A   PP1      DATA     0                 LINE NO.                        *F01
     6214   01 013D1    B250000E A   ERRORRTN LW,5     *14
     6215   01 013D2    35501DDD              STW,5    SAVE3
     6216   01 013D3    6AF00525              BAL,15   ZSCIR             R0=0---R3=3
     6217   01 013D4    72C60005 A            LB,12    5,3               ERROR #
     6218   01 013D5    6AF004EA              BAL,15   ZBTD
     6219   01 013D6    6AF004FF              BAL,15   ZBTH              ERROR # IN EBCDIC
     6220   01 013D7    55D02049              STH,13   TEXT46+5
     6221   01 013D8    32C02043              LW,12    MW46
     6222   01 013D9    022000F0 A            LCI      15
     6223   01 013DA    6AF005C9              BAL,15   ZTWLP             'TEST 2 ERROR NUMBER XX'
     6224   01 013DB    224FFFF8 A            LI,4     -8
     6225   01 013DC    32501DDD     TAB02    LW,5     SAVE3
     6226   01 013DD    681013E4              BCR,1    TAB03
     6227   01 013DE    35401DDE              STW,4    SAVE4
     6228   01 013DF    35501DDD              STW,5    SAVE3
     6229   01 013E0    67081EC2              EXU      TAB01+8,4
     6230   01 013E1    02300000 A            LCFI     0
     6231   01 013E2    32501DDD     TAB05    LW,5     SAVE3
     6232   01 013E3    32401DDE              LW,4     SAVE4
     6233   01 013E4    654013E8     TAB03    BIR,4    TAB04
     6234   01 013E5    33101DDC              MTW,1    SAVE2
     6235   01 013E6    CF501DCC              HIO,5    *IODEVICE
     6236   01 013E7    E8001DDC              B        *SAVE2            PLACEMARK BRANCH
     6237   01 013E8    25500001 A   TAB04    SLS,5    1
     6238   01 013E9    35501DDD              STW,5    SAVE3
     6239   01 013EA    680013DC              B        TAB02
     6240   01 013EB    35F01DE0     TAB06    STW,15   SAVE6
     6241   01 013EC    32401DDF              LW,4     SAVE5
     6242   01 013ED    6AD0103A              BAL,13   CONVERT
     6243   01 013EE    3550204C              STW,5    TEXT47+1
     6244   01 013EF    32C0204A              LW,12    MW47
     6245   01 013F0    022000F0 A            LCI      15
     6246   01 013F1    6AF005C9              BAL,15   ZTWLP
     6247   01 013F2    E8001DE0              B        *SAVE6
     6248   01 013F3    35F01DE0     TAB07    STW,15   SAVE6
     6249   01 013F4    32C01DE1              LW,12    SAVE7
     6250   01 013F5    6AF004FF              BAL,15   ZBTH
     6251   01 013F6    35C0204F              STW,12   TEXT48+1
     6252   01 013F7    35D02050              STW,13   TEXT48+2
     6253   01 013F8    32C0204D              LW,12    MW48
     6254   01 013F9    022000F0 A            LCI      15
     6255   01 013FA    6AF005C9              BAL,15   ZTWLP
     6256   01 013FB    E8001DE0              B        *SAVE6
     6257                                     PAGE
     6258                            *        D E C L A R E  O U T P U T  C H A N N E L
     6259                            *
     6260   01 013FC    20000000 A            DATA     2**28
     6261   01 013FD    20000000 A            DATA     2**28
     6262   01 013FE    20000000 A            DATA     2**28
     6263   01 013FF    35F01DFE     DOC00    STW,15   RETURN
     6264   01 01400    6AE016D5              TESTIT   3
            01 01401    00000008 A
     6265   01 01402    32400696              LW,4     P1
     6266   01 01403    2140003F A            CI,4     63
     6267   01 01404    69201414              BCS,2    DOC4              B IF OC IS KB
     6268   01 01405    22500008 A            LI,5     8
     6269   01 01406    31501DCB              CW,5     ONO
     6270   01 01407    68201416              BCR,2    DOC5
     6271   01 01408    32600697              LW,6     P2                CODE
     6272   01 01409    75620004 A            STB,6    4,1
     6273   01 0140A    32600698              LW,6     P3
     6274   01 0140B    49602165              OR,6     =X'80'
     6275   01 0140C    75600004 A            STB,6    4
     6276   01 0140D    225FFFF8 A   DOC3     LI,5     -8
     6277   01 0140E    326A1DC8              LW,6     OCNL+8,5
     6278   01 0140F    68301411              BCR,3    %+2
     6279   01 01410    6550140E              BIR,5    %-2
     6280   01 01411    354A1DC8              STW,4    OCNL+8,5
     6281   01 01412    66101DCB              AWM,1    ONO
     6282   01 01413    E8001DFE              B        *RETURN
     6283   01 01414    35101DCA     DOC4     STW,1    KBO
     6284   01 01415    E8001DFE              B        *RETURN
     6285   01 01416    32C02051     DOC5     LW,12    MW49
     6286   01 01417    022000F0 A            LCI      15
     6287   01 01418    6AF005C9              BAL,15   ZTWLP
     6288   01 01419    E8001DFE              B        *RETURN
     6289                                     PAGE
     6290                            *
     6291                            *        D E C L A R E  I N P U T  C H A N N E L
     6292   01 0141A    20000000 A            DATA     2**28
     6293   01 0141B    20000000 A            DATA     2**28
     6294   01 0141C    20000000 A            DATA     2**28
     6295   01 0141D    35F01DFE     DIC00    STW,15   RETURN
     6296   01 0141E    6AE016D5              TESTIT   3
            01 0141F    00000008 A
     6297   01 01420    32400696              LW,4     P1
     6298   01 01421    2140003F A            CI,4     63
     6299   01 01422    6920142E              BCS,2    DIC01             B IF KB
     6300   01 01423    32600001 A            LW,6     1
     6301   01 01424    2560027F A            SCS,6    -1
     6302   01 01425    32500697              LW,5     P2
     6303   01 01426    75520006 A            STB,5    6,1
     6304   01 01427    49400006 A            OR,4     6
     6305   01 01428    32600698              LW,6     P3
     6306   01 01429    25600018 A            SLS,6    24
     6307   01 0142A    49400006 A            OR,4     6
     6308   01 0142B    35401DC8              STW,4    ICNL
     6309   01 0142C    35001DC9              STW,0    KBI
     6310   01 0142D    E8001DFE              B        *RETURN
     6311   01 0142E    35101DC9     DIC01    STW,1    KBI
     6312   01 0142F    35001DC8              STW,0    ICNL
     6313   01 01430    E8001DFE              B        *RETURN
     6314                                     PAGE
     6315                            *        D E L E T E  O U T P U T  C H A N N E L
     6316   01 01431    20000000 A            DATA     2**28
     6317   01 01432    35F01DFE     DLC00    STW,15   RETURN
     6318   01 01433    6AE016D5              TESTIT   3
            01 01434    00000008 A
     6319   01 01435    32400696              LW,4     P1
     6320   01 01436    21400040 A            CI,4     64
     6321   01 01437    6910143A              BCS,1    DLC01             B IF NOT KB
     6322   01 01438    35001DCA              STW,0    KBO
     6323   01 01439    E8001DFE              B        *RETURN
     6324   01 0143A    225FFFF8 A   DLC01    LI,5     -8
     6325   01 0143B    326A1DC8     DLC02    LW,6     OCNL+8,5
     6326   01 0143C    72760006 A            LB,7     6,3
     6327   01 0143D    31400007 A            CW,4     7
     6328   01 0143E    68301441              BCR,3    DLC03
     6329   01 0143F    6550143B              BIR,5    DLC02
     6330   01 01440    E8001DFE              B        *RETURN           NOT HERE
     6331   01 01441    350A1DC8     DLC03    STW,0    OCNL+8,5
     6332   01 01442    225FFFFF A            LI,5     -1
     6333   01 01443    66501DCB              AWM,5    ONO
     6334   01 01444    E8001DFE              B        *RETURN
     6335                                     PAGE
     6336                            *
     6337                            *        S T A R T  E C H O  T E S T
     6338                            *
     6339   01 01445    6AE016D5     ECHO     TESTIT   3
            01 01446    00000008 A
     6340   01 01447    35F01DDC              STW,15   SAVE2
     6341   01 01448    6D000023 A            WD,0     X'23'             RESET EXT AND IO INT INHIBITS
     6342   01 01449    35000696              STW,0    P1
     6343   01 0144A    6AF00F95              BAL,15   PAT00             CLEAR IOBUFF AND PATTERN TABLES
     6344   01 0144B    22400100 A            LI,4     256
     6345   01 0144C    35401DBF              STW,4    COMP
     6346   01 0144D    35001E10              STW,0    FLAG10            RESET HIO FLAG
     6347   01 0144E    35001E11              STW,0    FLAG11            RESET EOM FLAG
     6348   01 0144F    35001E12              STW,0    FLAG12            RESET ODD CODE FLAG
     6349   01 01450    35001E14              STW,0    FLAG14            RESET MESG FLAG
     6350   01 01451    35001E15              STW,0    FLAG15            RESET  FIRST TIME FLAG
     6351   01 01452    35001DBE              STW,0    POINTER
     6352   01 01453    35001E18              STW,0    FLAG18            RESET MESG COMPLETE FLAG
     6353   01 01454    35101E19              STW,1    FLAG19
     6354   01 01455    6AC014E5              BAL,12   ECH40
     6355   01 01456    31001DCA              CW,0     KBO               IS KB OUTPUT
     6356   01 01457    6830145F              BCR,3    ECH01             B IF NOT
     6357   01 01458    525205EB              LH,5     ZTWLPO,1          ADDRESS OF MESG DEVICE
     6358   01 01459    CFD00005 A            HIO,13   *5
     6359   01 0145A    6ED00000 A            AIO,13   0
     6360   01 0145B    35101E10              STW,1    FLAG10            HIO FLAG FOR MESG DEVICE
     6361   01 0145C    55001DCA              STH,0    KBO               CLEAR INT POINTER
     6362   01 0145D    22500020 A            LI,5     1**5
     6363   01 0145E    6D501200 A            WD,5     X'1200'           ARM-ENABLE IO INTS
     6364   01 0145F    31001DC9     ECH01    CW,0     KBI               IS BK INPUT
     6365   01 01460    6830148F              BCR,3    ECH20             B IF TERMINAL
     6366   01 01461    31001DCA              CW,0     KBO               IS KB OUTPUT
     6367   01 01462    68301467              BCR,3    ECH02             B IF TERMINAL
     6368   01 01463    32C02051              LW,12    MW49
     6369   01 01464    022000F0 A            LCI      15
     6370   01 01465    6AF005C9              BAL,15   ZTWLP             'ILLEGAL OUTPUT ENTRY'
     6371   01 01466    E8001DDC              B        *SAVE2
     6372   01 01467    22000BD5     ECH02    LI,0     DA(CP13)
     6373   01 01468    32F01DD3              LW,15    XMTBIT
     6374   01 01469    67001EAF              EXU      AEXI              ARM-ENABLE EXT XMIT INT
     6375   01 0146A    4C500001 A            SIO,5    1                 KB IS INPUT
     6376   01 0146B    22000000 A            LI,0     0
     6377   01 0146C    4D500001 A   ECH03    TIO,5    1
     6378   01 0146D    52D20005 A            LH,13    5,1               GET BYTE COUNT
     6379   01 0146E    31D01DBF              CW,13    COMP              BC=COMP
     6380   01 0146F    6930147F              BCS,3    ECH04
     6381   01 01470    6C000000 A            RD,0     0                 IS SENSE SW1 SET
     6382   01 01471    69801479              BCS,8    ECH03A            YES,EXIT
     6383   01 01472    31001E11              CW,0     FLAG11            EOM FLAG SET
     6384   01 01473    6830146C              BCR,3    ECH03
     6385   01 01474    224FFFF8 A            LI,4     -8
     6386   01 01475    31081E0F              CW,0     FLAG1+8,4         HAS XSTOP BEEN SENT
     6387   01 01476    69301478              BCS,3    %+2               B IF YES
     6388   01 01477    68001474              B        %-3
     6389   01 01478    65401475              BIR,4    %-3
     6390   01 01479    4F500001 A   ECH03A   HIO,5    1
     6391   01 0147A    6E500001 A            AIO,5    1
     6392   01 0147B    35001E11              STW,0    FLAG11
     6393   01 0147C    32F01DD3              LW,15    XMTBIT
     6394   01 0147D    67001EB0              EXU      DAXI              DISARM EXT XMIT INT
     6395   01 0147E    E8001DDC              B        *SAVE2
     6396   01 0147F    32401DBE     ECH04    LW,4     POINTER
     6397   01 01480    72A81BE6              LB,10    IOBUFF,4
     6398   01 01481    21A00008 A            CI,10    8                 IS CHAR EOM?
     6399   01 01482    69301484              BCS,3    %+2               B IF NOT
     6400   01 01483    35101E11              STW,1    FLAG11            SET EOM FLAG
     6401   01 01484    0600002B A            RECODE   X'2B',2,1
            01 01485    00020001 A
     6402   01 01486    75A81AE6              STB,10   PATTERN,4         ASCII CHAR
     6403   01 01487    30400001 A            AW,4     1
     6404   01 01488    21400100 A            CI,4     256
     6405   01 01489    6910148B              BCS,1    %+2
     6406   01 0148A    32400000 A            LW,4     0
     6407   01 0148B    35401DBE              STW,4    POINTER
     6408   01 0148C    35D01DBF              STW,13   COMP              BC INTO COMP
     6409   01 0148D    6AF014CA              BAL,15   ECH30
     6410   01 0148E    6800146C              B        ECH03
     6411   01 0148F    72F61DC8     ECH20    LB,15    ICNL,3            FETCH LINE NO
     6412   01 01490    75041DC8              STB,0    ICNL,2
     6413   01 01491    31001E10              CW,0     FLAG10            IS KB OUTPUT
     6414   01 01492    68301499              BCR,3    ECH20A            B IF NOT
     6415   01 01493    55001DCA              STH,0    KBO
     6416   01 01494    35001DEB              STW,0    SAVE17
     6417   01 01495    3280005C A            LW,8     X'5C'
     6418   01 01496    35801DED              STW,8    SAVE19
     6419   01 01497    32801E28              LW,8     T3IOLINK
     6420   01 01498    3580005C A            STW,8    X'5C'
     6421   01 01499    67001E6E     ECH20A   EXU      TRON
     6422   01 0149A    6D000031 A            WD,0     X'31'             INHIBIT EXT INTS
     6423   01 0149B    67001E73              EXU      XLS               SEND LONG SPACE
     6424   01 0149C    228001F4 A            LI,8     500
     6425   01 0149D    35800696              STW,8    P1
     6426   01 0149E    35F01DEF              STW,15   SAVE21
     6427   01 0149F    6AF00F06              BAL,15   DELAY
     6428   01 014A0    32F01DEF              LW,15    SAVE21
     6429   01 014A1    67001E74              EXU      XSTOP             SEND XSTOP
     6430   01 014A2    6D000021 A            WD,0     X'21'             RESET EXT INTS
     6431   01 014A3    72421DC8              LB,4     ICNL,1            GET CODE
     6432   01 014A4    35401E12              STW,4    FLAG12            ODD CODE FLAG
     6433   01 014A5    22000BD7              LI,0     DA(CP15)
     6434   01 014A6    CC501DCC     ECH21    SIO,5    *IODEVICE
     6435   01 014A7    22000000 A            LI,0     0
     6436   01 014A8    32F01DD2              LW,15    RECBIT
     6437   01 014A9    67001EAE              EXU      AERI              ARM-ENABLE EXT REC INT
     6438   01 014AA    32F01DD3              LW,15    XMTBIT
     6439   01 014AB    67001EAF              EXU      AEXI              ARM ENABLE EXT XMIT INT
     6440   01 014AC    6C000000 A   ECH22    RD,0     0                 IS SENSE SW1 SET
     6441   01 014AD    698014B1              BCS,8    ECH23
     6442   01 014AE    31001E11              CW,0     FLAG11            EOM SET?
     6443   01 014AF    683014AC              BCR,3    ECH22
     6444   01 014B0    680014C4              B        ECH24
     6445   01 014B1    72F61DC8     ECH23    LB,15    ICNL,3
     6446   01 014B2    67001E6F              EXU      TROFF
     6447   01 014B3    35001E12              STW,0    FLAG12
     6448   01 014B4    525205EB              LH,5     ZTWLPO,1
     6449   01 014B5    CFD00005 A            HIO,13   *5
     6450   01 014B6    CFD01DCC              HIO,13   *IODEVICE
     6451   01 014B7    6ED00000 A            AIO,13   0
     6452   01 014B8    6ED00000 A            AIO,13   0
     6453   01 014B9    31001DCA              CW,0     KBO
     6454   01 014BA    683014BD              BCR,3    %+3
     6455   01 014BB    32801DED              LW,8     SAVE19
     6456   01 014BC    3580005C A            STW,8    X'5C'
     6457   01 014BD    32F01DD2              LW,15    RECBIT
     6458   01 014BE    67001EAB              EXU      DARI              DISARM EXT REC INT
     6459   01 014BF    32F01DD3              LW,15    XMTBIT
     6460   01 014C0    67001EB0              EXU      DAXI              DISARM EXT XMIT INT
     6461   01 014C1    22400020 A            LI,4     1**5
     6462   01 014C2    6D401100 A            WD,4     X'1100'
     6463   01 014C3    E8001DDC              B        *SAVE2
     6464   01 014C4    224FFFF8 A   ECH24    LI,4     -8
     6465   01 014C5    31081E0F              CW,0     FLAG1+8,4         HAS XSTOP BEEN SENT
     6466   01 014C6    693014C8              BCS,3    %+2               B IF YES
     6467   01 014C7    680014C4              B        %-3
     6468   01 014C8    654014C5              BIR,4    %-3
     6469   01 014C9    680014B1              B        ECH23
     6470   01 014CA    35F01DDE     ECH30    STW,15   SAVE4
     6471   01 014CB    224FFFF8 A            LI,4     -8
     6472   01 014CC    32581DC8     ECH31    LW,5     OCNL+8,4
     6473   01 014CD    683014D0              BCR,3    ECH32             B IF NOT ACTIVE
     6474   01 014CE    32681E0F              LW,6     FLAG1+8,4
     6475   01 014CF    692014D9              BCS,2    ECH34
     6476   01 014D0    654014CC     ECH32    BIR,4    ECH31
     6477   01 014D1    31001DCA              CW,0     KBO
     6478   01 014D2    683014D7              BCR,3    ECH33             B IF KB(LP) NOT OUTPUT
     6479   01 014D3    31001E10              CW,0     FLAG10
     6480   01 014D4    693014E0              BCS,3    ECH35             B IF FLAG SET
     6481   01 014D5    02000000 A            NOP
     6482   01 014D6    02000000 A            NOP
     6483   01 014D7    32F01DDE     ECH33    LW,15    SAVE4
     6484   01 014D8    E800000F A            B        *15
     6485   01 014D9    72F60005 A   ECH34    LB,15    5,3               LINE NO. INTO 15
     6486   01 014DA    6D000031 A            WD,0     X'31'             INHIBIT EXT INTS
     6487   01 014DB    35101E0F              STW,1    FLAG9             FAKE-IT FLAG
     6488   01 014DC    0F001602              XPSD,0   T3XINT            GO TO XMIT INT RTN
     6489   01 014DD    35001E0F              STW,0    FLAG9             RESET FAKE-IT FLAG
     6490   01 014DE    6D000021 A            WD,0     X'21'             RESET EXT INTS
     6491   01 014DF    680014D0              B        ECH32
     6492   01 014E0    31101E18     ECH35    CW,1     FLAG18            IS MESG COMPLETE FLAG SET
     6493   01 014E1    683014D7              BCR,3    ECH33             B IF YES
     6494   01 014E2    35101E13              STW,1    FLAG13            SET FAKE IT FLAG
     6495   01 014E3    0F001662              XPSD,0   XIKB
     6496   01 014E4    680014D7              B        ECH33
     6497   01 014E5    6D000031 A   ECH40    WD,0     X'31'             INHIBIT EXT INTS
     6498   01 014E6    226FFFF8 A            LI,6     -8
     6499   01 014E7    325C1DC8     ECH41    LW,5     OCNL+8,6
     6500   01 014E8    683014F3              BCR,3    ECH42             B IF NOT ACTIVE
     6501   01 014E9    75040005 A            STB,0    5,2               CLEAR INT POINTER
     6502   01 014EA    355C1DC8              STW,5    OCNL+8,6
     6503   01 014EB    72F60005 A            LB,15    5,3               GET LINE NO
     6504   01 014EC    67001E73              EXU      XLS               SEND LONG SPACE
     6505   01 014ED    35F01DEF              STW,15   SAVE21
     6506   01 014EE    228001F4 A            LI,8     500
     6507   01 014EF    35800696              STW,8    P1
     6508   01 014F0    6AF00F06              BAL,15   DELAY
     6509   01 014F1    32F01DEF              LW,15    SAVE21
     6510   01 014F2    67001E74              EXU      XSTOP             SEND XSTOP
     6511   01 014F3    353C1E0F     ECH42    STW,3    FLAG9,6
     6512   01 014F4    656014E7              BIR,6    ECH41
     6513   01 014F5    6D000021 A            WD,0     X'21'             RESET EXT INTS
     6514   01 014F6    E800000C A            B        *12
     6515                                     PAGE
     6516                            *        D E C L A R E  P A T T E R N  I N P U T
     6517                            *
     6518                            *                 THIS DIRECTIVE ALLOWS THE OPERATOR TO TYPE A PATTERN
     6519                            *                  OF 256 CHARACTERS OR UNTIL EOM/BREAK IS TYPED.
     6520                            *
     6521                            *
     6522   01 014F7    6AE016D5     PATIN00  TESTIT   3
            01 014F8    00000008 A
     6523   01 014F9    35F01DDC              STW,15   SAVE2
     6524   01 014FA    6D000021 A            WD,0     X'21'             RESET EXT INT INHIBIT
     6525   01 014FB    35001DBE              STW,0    POINTER
     6526   01 014FC    35001E10              STW,0    FLAG10            RESET HIO FLAG
     6527   01 014FD    35001E11              STW,0    FLAG11            RESET EOM FLAG
     6528   01 014FE    35001E12              STW,0    FLAG12            RESET ODD CODE FLAG
     6529   01 014FF    35101E14              STW,1    FLAG14            RESET MESG FLAG
     6530   01 01500    35001E15              STW,0    FLAG15            RESET  FIRST TIME FLAG
     6531   01 01501    35101E19              STW,1    FLAG19
     6532   01 01502    22400100 A            LI,4     256
     6533   01 01503    35401DBF              STW,4    COMP
     6534   01 01504    31001DC9     PATIN02  CW,0     KBI               IS KB INPUT?
     6535   01 01505    68301517              BCR,3    PATIN10           B IF NOT KB
     6536   01 01506    22500100 A            LI,5     256               NO. OF BYTES MAX.               *F01
     6537   01 01507    6AE00FD2              BAL,14   GBYTES            GET BYTES UNTILL EOM OR MAX.    *F01
     6538   01 01508    35801DBF              STW,8    COMP              NO. OF BYTES RECIVED.           *F01
     6539   01 01509    22400000 A            LI,4     0
     6540   01 0150A    72A81BE6     PATIN05  LB,10    IOBUFF,4
     6541   01 0150B    0600002B A            RECODE   X'2B',2,1         TRANSLATE EBCDIC TO ASCII
            01 0150C    00020001 A
     6542   01 0150D    75A81AE6              STB,10   PATTERN,4
     6543   01 0150E    20400001 A            AI,4     1
     6544   01 0150F    31401DBF              CW,4     COMP
     6545   01 01510    68301512              BCR,3    %+2
     6546   01 01511    6800150A              B        PATIN05
     6547   01 01512    32401DBF     PATIN06  LW,4     COMP
     6548   01 01513    35401DBE              STW,4    POINTER
     6549   01 01514    204FFFFF A            AI,4     -1
     6550   01 01515    35401DCE              STW,4    TLENGTH
     6551   01 01516    E8001DDC              B        *SAVE2
     6552   01 01517    72421DC8     PATIN10  LB,4     ICNL,1            FETCH CODE
     6553   01 01518    35401E12              STW,4    FLAG12            INPUT CODE INTO ODD CODE FLAG
     6554   01 01519    72F61DC8              LB,15    ICNL,3            GET LINE NO.
     6555   01 0151A    67001E6E              EXU      TRON              TURN RECEIVER ON
     6556   01 0151B    75041DC8              STB,0    ICNL,2            CLEAR INTERNAL POINTER
     6557   01 0151C    22000BD9              LI,0     DA(CP17)
     6558   01 0151D    32F01DD2              LW,15    RECBIT
     6559   01 0151E    67001EAE              EXU      AERI              ARM-ENABLE EXT REC INT
     6560   01 0151F    CC501DCC              SIO,5    *IODEVICE
     6561   01 01520    22000000 A            LI,0     0
     6562   01 01521    CD501DCC     PATIN11  TIO,5    *IODEVICE
     6563   01 01522    68C01527              BCR,12   PATIN12           B IF BC EQUAL ZERO
     6564   01 01523    6C000000 A            RD,0     0                 IS SENSE SW 1 SET
     6565   01 01524    69801527              BCS,8    PATIN12           B IF YES
     6566   01 01525    31001E11              CW,0     FLAG11            IS EOM SET
     6567   01 01526    68301521              BCR,3    PATIN11           B IF NO
     6568   01 01527    32F01DD2     PATIN12  LW,15    RECBIT
     6569   01 01528    67001EAB              EXU      DARI              DISARM EXT REC INT
     6570   01 01529    CF701DCC              HIO,7    *IODEVICE
     6571   01 0152A    72F61DC8              LB,15    ICNL,3            GET LINE NO.
     6572   01 0152B    67001E6F              EXU      TROFF
     6573   01 0152C    35001E12              STW,0    FLAG12
     6574   01 0152D    CF501DCC              HIO,5    *IODEVICE
     6575   01 0152E    6E500000 A            AIO,5    0
     6576   01 0152F    E8001DDC              B        *SAVE2
     6577                                     PAGE
     6578                            *
     6579                            *        S T A R T  O U T P U T
     6580                            *
     6581                            *                 THIS DIRECTIVE PERMITS THE OPERATOR TO OUTPUT EITHER
     6582                            *                  THE MESSAGE DECLARED IN DECLARE PATTERN INPUT(PIN) OR
     6583                            *                   THE CHARACTERS GENERATED BY DECLARE TEST PATTERN
     6584                            *                    (PAT) TO THE OUTPUT DEVICES DEFINED BY THE DECLARE
     6585                            *                     OUTPUT CHANNEL DIRECTIVE(DOC).
     6586                            *
     6587   01 01530    6AE016D5     STOUT    TESTIT   3
            01 01531    00000008 A
     6588   01 01532    35F01DDC              STW,15   SAVE2
     6589   01 01533    35001E18              STW,0    FLAG18            RESET MESG COMPLETE FLAG
     6590   01 01534    6D000023 A            WD,0     X'23'             RESET EXT AND IO INT INHIBITS
     6591   01 01535    31101E14              CW,1     FLAG14            IS MESG FLAG SET
     6592   01 01536    6830153A              BCR,3    STOUT0
     6593   01 01537    32401DCE              LW,4     TLENGTH
     6594   01 01538    30400001 A            AW,4     1
     6595   01 01539    35401DBE              STW,4    POINTER
     6596   01 0153A    35101E14     STOUT0   STW,1    FLAG14
     6597   01 0153B    31001DCA              CW,0     KBO
     6598   01 0153C    68301548              BCR,3    STOUT1            B IF NOT
     6599   01 0153D    35101DEB              STW,1    SAVE17
     6600   01 0153E    525205EB              LH,5     ZTWLPO,1
     6601   01 0153F    CF500005 A            HIO,5    *5
     6602   01 01540    22400020 A            LI,4     1**5
     6603   01 01541    6D401200 A            WD,4     X'1200'
     6604   01 01542    35101E10              STW,1    FLAG10
     6605   01 01543    3280005C A            LW,8     X'5C'
     6606   01 01544    35801DED              STW,8    SAVE19
     6607   01 01545    32801E28              LW,8     T3IOLINK
     6608   01 01546    3580005C A            STW,8    X'5C'
     6609   01 01547    55001DCA              STH,0    KBO
     6610   01 01548    31001DCB     STOUT1   CW,0     ONO
     6611   01 01549    68301555              BCR,3    STOUT2
     6612   01 0154A    224FFFF8 A            LI,4     -8
     6613   01 0154B    32581DC8     STOUT1A  LW,5     OCNL+8,4
     6614   01 0154C    68301551              BCR,3    STOUT1B
     6615   01 0154D    75040005 A            STB,0    5,2
     6616   01 0154E    35581DC8              STW,5    OCNL+8,4
     6617   01 0154F    7556000F A            STB,5    15,3
     6618   01 01550    67001E74              EXU      XSTOP
     6619   01 01551    35181E0F     STOUT1B  STW,1    FLAG9,4
     6620   01 01552    6540154B              BIR,4    STOUT1A
     6621   01 01553    32F01DD3              LW,15    XMTBIT
     6622   01 01554    67001EAF              EXU      AEXI              ARM-ENABLE EXT XMIT INT
     6623   01 01555    6AF014CA     STOUT2   BAL,15   ECH30
     6624   01 01556    31001DCA              CW,0     KBO
     6625   01 01557    6830155E              BCR,3    STOUT3
     6626   01 01558    31001E10              CW,0     FLAG10            IS KB LP DONE
     6627   01 01559    68301555              BCR,3    STOUT2
     6628   01 0155A    22400020 A            LI,4     1**5
     6629   01 0155B    6D401100 A            WD,4     X'1100'
     6630   01 0155C    32801DED              LW,8     SAVE19
     6631   01 0155D    3580005C A            STW,8    X'5C'
     6632   01 0155E    31001DCB     STOUT3   CW,0     ONO
     6633   01 0155F    68301564              BCR,3    STOUT4
     6634   01 01560    224FFFF8 A            LI,4     -8
     6635   01 01561    31081E0F              CW,0     FLAG9,4
     6636   01 01562    68301555              BCR,3    STOUT2
     6637   01 01563    65401561              BIR,4    %-2
     6638   01 01564    32F01DD3     STOUT4   LW,15    XMTBIT
     6639   01 01565    67001EB0              EXU      DAXI              DISARM EXT XMIT INT
     6640   01 01566    E8001DDC              B        *SAVE2
     6641                                     PAGE
     6642                            *
     6643                            *
     6644                            *        C O N V E R S I O N  T A B L E  R O U T I N E
     6645                            *
     6646                            *
     6647   01 01567    40000000 A            DATA     4**28
     6648                            *
     6649                            *
     6650   01 01568    6AE016D5     CODECON  TESTIT   3
            01 01569    00000008 A
     6651   01 0156A    35F01DFE              STW,15   RETURN
     6652   01 0156B    32421EA7              LW,4     CONPRT,1          GET TABLE PARAMETERS
     6653   01 0156C    35401DDA              STW,4    SAVE0             ADDRESS
     6654   01 0156D    72400004 A            LB,4     4                 LENGTH
     6655   01 0156E    35401DDB              STW,4    SAVE1
     6656   01 0156F    22500000 A            LI,5     0                 CHARACTER COUNTED
     6657   01 01570    22800000 A            LI,8     0
     6658   01 01571    52420473              LH,4     ZMFRDA,1
     6659   01 01572    55401DDC              STH,4    SAVE2             SAVE CURRENT DEVICE ADDRESS
     6660   01 01573    22E0052D              LI,14    ZDKB+1
     6661   01 01574    52F20696              LH,15    P1,1
     6662   01 01575    51F2052D              CH,15    ZDKB+1,1
     6663   01 01576    68301578              BCR,3    %+2               B IF TYPEWRITTER
     6664   01 01577    22E00530              LI,14    ZDCR+1
     6665   01 01578    6AF00531              BAL,15   ZKBCRIOA          SET DEVICE ADDRESS
     6666   01 01579    35001DDD              STW,0    SAVE3             POINTER TO INPUT AREA
     6667   01 0157A    6AF0045B     CODE01   BAL,15   ZFOC              GET ONE BYTE
     6668   01 0157B    21A00008 A            CI,10    X'08'
     6669   01 0157C    6830158C              BCR,3    CODE03            B IF EOM
     6670   01 0157D    21A0006B A            CI,10    C','
     6671   01 0157E    68301587              BCR,3    CODE02            B IF COMMA
     6672   01 0157F    21A00040 A            CI,10    C' '
     6673   01 01580    6830157A              BCR,3    CODE01            B IF BLANK
     6674   01 01581    3260000A A            LW,6     10
     6675   01 01582    6AE00FC8              BAL,14   CV02              CONVERT CHAR TO HEX DIGIT
     6676   01 01583    4B702180              AND,7    L(15)
     6677   01 01584    25800004 A            SLS,8    4
     6678   01 01585    49800007 A            OR,8     7                 MERGE HEX DIGIT
     6679   01 01586    6800157A              B        CODE01
     6680   01 01587    F58A1DDA     CODE02    STB,8    *SAVE0,5          STORE BYTE IN TABLE
     6681   01 01588    22800000 A            LI,8     0
     6682   01 01589    20500001 A            AI,5     1
     6683   01 0158A    31501DDB              CW,5     SAVE1
     6684   01 0158B    6820157A              BCR,2    CODE01
     6685   01 0158C    22800000 A   CODE03   LI,8     0
     6686   01 0158D    31501DDB     CODE04   CW,5     SAVE1
     6687   01 0158E    69201592              BCS,2    CODE05
     6688   01 0158F    F58A1DDA              STB,8    *SAVE0,5
     6689   01 01590    20500001 A            AI,5     1
     6690   01 01591    6800158D              B        CODE04
     6691   01 01592    32401DDD     CODE05   LW,4     SAVE3
     6692   01 01593    5542045E              STH,4    ZMFRX7,1
     6693   01 01594    5542045F              STH,4    ZMFRNBA,1
     6694   01 01595    52401DDC              LH,4     SAVE2
     6695   01 01596    55420473              STH,4    ZMFRDA,1
     6696   01 01597    E8001DFE              B        *RETURN
     6697                            *
     6698                            *
     6699                                     PAGE
     6700                            *
     6701                            *        T E S T  3  R E C E I V E  I N T E R R U P T  R O U T I N E
     6702                            *
     6703                                     BOUND    8
     6704   01 01598    00000000 A   T3RINT   DATA     0,0,%+2,1**24
            01 01599    00000000 A
            01 0159A    0000159C
            01 0159B    01000000 A
     6705   01 0159C    35401DE4              STW,4    SAVE10
     6706   01 0159D    35501DE6              STW,5    SAVE12
     6707   01 0159E    35601DE8              STW,6    SAVE14
     6708   01 0159F    35701DE9              STW,7    SAVE15
     6709   01 015A0    35A01DF6              STW,10   SAVE28
     6710   01 015A1    35F01DF7              STW,15   SAVE29
     6711   01 015A2    32401DBE              LW,4     POINTER
     6712   01 015A3    52581BE6              LH,5     IOBUFF,4          GET CHAR
     6713   01 015A4    75500006 A            STB,5    6
     6714   01 015A5    25600002 A            SLS,6    2                 DELETE ALL BUT LINE NO
     6715   01 015A6    25600066 A            SLS,6    -26
     6716   01 015A7    71661DC8              CB,6     ICNL,3            IS IT INPUT LINE
     6717   01 015A8    693015ED              BCS,3    T3RINT10          B IF NOT
     6718   01 015A9    31502165              CW,5     L(1**7)           IS IT LONG SPACE?
     6719   01 015AA    684015B1              BCR,4    T3RINTB           B IF NOT
     6720   01 015AB    71101DC8              CB,1     ICNL
     6721   01 015AC    684015B0              BCR,4    T3RINTA           B IF NOT HALF DUPLEX
     6722   01 015AD    31101E19              CW,1     FLAG19            IS THIS THE FIRST INT
     6723   01 015AE    692015B0              BCS,2    T3RINTA           B IF NOT
     6724   01 015AF    680015D5              B        T3RINT5A
     6725   01 015B0    35101E11     T3RINTA  STW,1    FLAG11            SET EOM FLAG
     6726   01 015B1    25500078 A   T3RINTB  SLS,5    -8                REMOVE LINE NO
     6727   01 015B2    31001E12              CW,0     FLAG12            IS 'ODD CODE'FLAG SET?
     6728   01 015B3    683015B9              BCR,3    T3RINT1           B IF NOT
     6729   01 015B4    32A00005 A            LW,10    5
     6730   01 015B5    72821DC8              LB,8     ICNL,1            GET CODE
     6731   01 015B6    0600002B A            RECODE   X'2B',8,1         CONVERT ODD CODE TO ASCII
            01 015B7    00080001 A
     6732   01 015B8    35A00005 A            STW,10   5
     6733   01 015B9    25500220 A   T3RINT1  SCS,5    32                CHECK PARITY,SHOULD BE EVEN
     6734   01 015BA    688015BF              BCR,8    T3RINT2           B IF PARITY OK
     6735   01 015BB    32C02057              LW,12    MW50
     6736   01 015BC    022000F0 A            LCI      15
     6737   01 015BD    6AF005C9              BAL,15   ZTWLP             'RECEIVE PARITY ERROR'
     6738   01 015BE    22000000 A            LI,0     0
     6739   01 015BF    75581AE6     T3RINT2  STB,5    PATTERN,4
     6740   01 015C0    31001E14              CW,0     FLAG14            IS MESSAGE FLAG SET
     6741   01 015C1    693015DD              BCS,3    T3RINT6           B IF YES
     6742   01 015C2    31101E11     T3RINT3  CW,1     FLAG11            WAS CHAR LONG SPACE?
     6743   01 015C3    683015CB              BCR,3    T3RINT4           B IF YES
     6744   01 015C4    214000FF A            CI,4     255
     6745   01 015C5    683015C8              BCR,3    %+3               B IF EQUAL
     6746   01 015C6    30400001 A            AW,4     1                 POINTER+1
     6747   01 015C7    680015D1              B        T3RINT5
     6748   01 015C8    35101E15              STW,1    FLAG15            SET FIRST TIME FLAG
     6749   01 015C9    32400000 A            LW,4     0
     6750   01 015CA    680015D1              B        T3RINT5
     6751   01 015CB    31400000 A   T3RINT4  CW,4     0                 POINTER = ZERO?
     6752   01 015CC    683015CE              BCR,3    %+2               B IF YES
     6753   01 015CD    680015D1              B        T3RINT5
     6754   01 015CE    31001E15              CW,0     FLAG15
     6755   01 015CF    683015D1              BCR,3    %+2               B IF FIRST TIME FLAG NOT SET
     6756   01 015D0    224000FF A            LI,4     255
     6757   01 015D1    35401DBE     T3RINT5  STW,4    POINTER
     6758   01 015D2    31101E14              CW,1     FLAG14            IS MESSAGE FLAG SET
     6759   01 015D3    683015D5              BCR,3    %+2               B IF YES
     6760   01 015D4    6AF014CA              BAL,15   ECH30
     6761   01 015D5    32401DE4     T3RINT5A LW,4     SAVE10
     6762   01 015D6    32501DE6              LW,5     SAVE12
     6763   01 015D7    32601DE8              LW,6     SAVE14
     6764   01 015D8    32701DE9              LW,7     SAVE15
     6765   01 015D9    32A01DF6              LW,10    SAVE28
     6766   01 015DA    32F01DF7              LW,15    SAVE29
     6767   01 015DB    35001E19              STW,0    FLAG19
     6768   01 015DC    0E301598              LPSD,3   T3RINT
     6769   01 015DD    31001E11     T3RINT6  CW,0     FLAG11            WAS LAST CHAR LONG SPACE?
     6770   01 015DE    683015E6              BCR,3    T3RINT8           B IF NOT
     6771   01 015DF    35401DBE              STW,4    POINTER
     6772   01 015E0    35401DCE              STW,4    TLENGTH
     6773   01 015E1    CF501DCC     T3RINT7  HIO,5    *IODEVICE
     6774   01 015E2    6E500000 A            AIO,5    0
     6775   01 015E3    72F61DC8              LB,15    ICNL,3
     6776   01 015E4    67001E6F              EXU      TROFF
     6777   01 015E5    680015D5              B        T3RINT5A
     6778   01 015E6    20400001 A   T3RINT8  AI,4     1
     6779   01 015E7    35401DBE              STW,4    POINTER
     6780   01 015E8    21400100 A            CI,4     256
     6781   01 015E9    683015E1              BCR,3    T3RINT7
     6782   01 015EA    204FFFFF A            AI,4     -1
     6783   01 015EB    35401DCE              STW,4    TLENGTH
     6784   01 015EC    680015D5              B        T3RINT5A
     6785   01 015ED    7566000C A   T3RINT10 STB,6    12,3
     6786   01 015EE    6AF004EA              BAL,15   ZBTD
     6787   01 015EF    6AF004FF              BAL,15   ZBTH
     6788   01 015F0    25D00008 A            SLS,13   8
     6789   01 015F1    35D01EFF              STW,13   TEXT04+3          'RECEIVER     NOT ACTIVE'
     6790   01 015F2    32C01EFB              LW,12    MW04
     6791   01 015F3    52D205EB              LH,13    ZTWLPO,1
     6792   01 015F4    CFD0000D A            HIO,13   *13
     6793   01 015F5    022000F0 A            LCI      15
     6794   01 015F6    6AF005C9              BAL,15   ZTWLP
     6795   01 015F7    22000000 A            LI,0     0
     6796   01 015F8    35101E11              STW,1    FLAG11            SET EOM FLAG
     6797   01 015F9    35101E18              STW,1    FLAG18            SET MESG COMPLETE FLAG
     6798   01 015FA    CFD01DCC              HIO,13   *IODEVICE
     6799   01 015FB    6ED00000 A            AIO,13   0
     6800   01 015FC    6ED00000 A            AIO,13   0
     6801   01 015FD    224FFFF8 A            LI,4     -8
     6802   01 015FE    35181E0F              STW,1    FLAG9,4
     6803   01 015FF    654015FE              BIR,4    %-1
     6804   01 01600    680015D1              B        T3RINT5
     6805                                     PAGE
     6806                            *
     6807                            *        T E S T  3  X M I T  I N T E R R U P T  R O U T I N E
     6808                            *
     6809                                     BOUND    8
     6810   01 01602    00000000 A   T3XINT   DATA     0,0,%+2,1**24
            01 01603    00000000 A
            01 01604    00001606
            01 01605    01000000 A
     6811   01 01606    35401DEE              STW,4    SAVE20
     6812   01 01607    35501DF0              STW,5    SAVE22
     6813   01 01608    35601DF1              STW,6    SAVE23
     6814   01 01609    35701DF2              STW,7    SAVE24
     6815   01 0160A    35D01DF8              STW,13   SAVE30
     6816   01 0160B    35F01DF9              STW,15   SAVE31
     6817   01 0160C    31101E0F              CW,1     FLAG9             IS FAKE IT FLAG SET?
     6818   01 0160D    68301610              BCR,3    %+3               B IF YES
     6819   01 0160E    67001E75              EXU      LINENO
     6820   01 0160F    4BF02151              AND,15   =X'3F'            LINE NO ONLY IN R15
     6821   01 01610    224FFFF8 A            LI,4     -8
     6822   01 01611    32581DC8              LW,5     OCNL+8,4
     6823   01 01612    71F60005 A            CB,15    5,3
     6824   01 01613    68301634              BCR,3    T3XINT1
     6825   01 01614    65401611              BIR,4    %-3
     6826   01 01615    75F6000C A            STB,15   12,3
     6827   01 01616    6AF004EA              BAL,15   ZBTD
     6828   01 01617    6AF004FF              BAL,15   ZBTH
     6829   01 01618    35D01F8B              STW,13   TEXT21+6
     6830   01 01619    32C01F84              LW,12    MW21              'XMIT INTERRUPT ERROR L=    '
     6831   01 0161A    52D205EB              LH,13    ZTWLPO,1
     6832   01 0161B    CFD0000D A            HIO,13   *13
     6833   01 0161C    022000F0 A            LCI      15
     6834   01 0161D    6AF005C9              BAL,15   ZTWLP
     6835   01 0161E    22000000 A            LI,0     0
     6836   01 0161F    35101E11              STW,1    FLAG11            SET EOM FLAG
     6837   01 01620    35101E18              STW,1    FLAG18            SET MESG COMPLETE FLAG
     6838   01 01621    224FFFF8 A            LI,4     -8
     6839   01 01622    35181E0F              STW,1    FLAG9,4
     6840   01 01623    65401622              BIR,4    %-1
     6841   01 01624    224FFFFF A            LI,4     -1
     6842   01 01625    35401DEE              STW,4    SAVE20
     6843   01 01626    CFD01DCC              HIO,13   *IODEVICE
     6844   01 01627    6ED00000 A            AIO,13   0
     6845   01 01628    6ED00000 A            AIO,13   0
     6846   01 01629    32401DEE     T3XINT0  LW,4     SAVE20
     6847   01 0162A    32501DF0              LW,5     SAVE22
     6848   01 0162B    32601DF1              LW,6     SAVE23
     6849   01 0162C    32701DF2              LW,7     SAVE24
     6850   01 0162D    32D01DF8              LW,13    SAVE30
     6851   01 0162E    32F01DF9              LW,15    SAVE31
     6852   01 0162F    31101E0F              CW,1     FLAG9
     6853   01 01630    68301632              BCR,3    %+2
     6854   01 01631    0E301602              LPSD,3   T3XINT
     6855   01 01632    35001E0F              STW,0    FLAG9
     6856   01 01633    0E001602              LPSD,0   T3XINT
     6857   01 01634    72640005 A   T3XINT1  LB,6     5,2               GET INTERNAL POINTER
     6858   01 01635    31601DBE              CW,6     POINTER           IS IT EQUAL POINTER?
     6859   01 01636    6930163F              BCS,3    T3XINT2           B IF NOT
     6860   01 01637    67001E74              EXU      XSTOP
     6861   01 01638    31001E14              CW,0     FLAG14            IS MESG FLAG SET
     6862   01 01639    6830163D              BCR,3    %+4
     6863   01 0163A    22DFFFFF A            LI,13    -1
     6864   01 0163B    35D81E0F              STW,13   FLAG9,4
     6865   01 0163C    6800163E              B        %+2
     6866   01 0163D    35181E0F              STW,1    FLAG9,4           SET XSTOP FLAG
     6867   01 0163E    68001629              B        T3XINT0
     6868   01 0163F    72700005 A   T3XINT2  LB,7     5
     6869   01 01640    4B700001 A            AND,7    1                 IS IT HALF DUPLEX?
     6870   01 01641    68301652              BCR,3    T3XINT5           B IF NOT
     6871   01 01642    72F61DC8              LB,15    ICNL,3
     6872   01 01643    67001E6F              EXU      TROFF             TURN RCVR OFF
     6873   01 01644    68001652              B        T3XINT5
     6874   01 01645    30600001 A   T3XINT4  AW,6     1
     6875   01 01646    21600100 A            CI,6     256
     6876   01 01647    6910164E              BCS,1    T3XINT4B          B IF LESS
     6877   01 01648    31001E14              CW,0     FLAG14            IS MESG FLAG SET
     6878   01 01649    6830164D              BCR,3    T3XINT4A          B IF NOT
     6879   01 0164A    22DFFFFF A            LI,13    -1
     6880   01 0164B    35D81E0F              STW,13   FLAG9,4
     6881   01 0164C    68001629              B        T3XINT0
     6882   01 0164D    22600000 A   T3XINT4A LI,6     0
     6883   01 0164E    75640005 A   T3XINT4B STB,6    5,2               ZERO INTERNAL POINTER
     6884   01 0164F    35581DC8              STW,5    OCNL+8,4
     6885   01 01650    35081E0F              STW,0    FLAG9,4
     6886   01 01651    68001629              B        T3XINT0
     6887   01 01652    72DC1AE6     T3XINT5  LB,13    PATTERN,6         GET CHAR
     6888   01 01653    72820005 A            LB,8     5,1               GET CODE
     6889   01 01654    68301657              BCR,3    T3XINT6           B IF OUTPUT CODE IS ASCII
     6890   01 01655    86100037 A            RECODE *X'37',8,1          CONVERT TO ODD CODE
            01 01656    00080001 A
     6891   01 01657    25D00008 A   T3XINT6  SLS,13   8
     6892   01 01658    49F0000D A            OR,15    13
     6893   01 01659    67001E6D     T3XINT7  EXU      STS               SENSE XMITR STATUS
     6894   01 0165A    6920165C              BCS,2    %+2
     6895   01 0165B    6800165D              B        %+2
     6896   01 0165C    69101660              BCS,1    %+4
     6897   01 0165D    6C000000 A            RD,0     0
     6898   01 0165E    68801659              BCR,8    T3XINT7
     6899   01 0165F    69801629              BCS,8    T3XINT0
     6900   01 01660    67001E72              EXU      XDATA             SEND CHAR
     6901   01 01661    68001645              B        T3XINT4
     6902                                     PAGE
     6903                            *
     6904                            *        T E S T  3  K B / L P  I N T E R R U P T  R O U T I N E
     6905                            *
     6906                                     BOUND    8
     6907   01 01662    00000000 A   XIKB     DATA     0,0,%+2,7**24
            01 01663    00000000 A
            01 01664    00001666
            01 01665    07000000 A
     6908   01 01666    35501DF3              STW,5    SAVE25
     6909   01 01667    35601DF4              STW,6    SAVE26
     6910   01 01668    35701DF5              STW,7    SAVE27
     6911   01 01669    35A01DFA              STW,10   SAVE32
     6912   01 0166A    35C01DFB              STW,12   SAVE33
     6913   01 0166B    35D01DFC              STW,13   SAVE34
     6914   01 0166C    31101E13              CW,1     FLAG13            IS FAKE IT FLAG SET?
     6915   01 0166D    68301674              BCR,3    XIKB2             B IF YES
     6916   01 0166E    6E500000 A            AIO,5    0
     6917   01 0166F    4B502181     XIKB1    AND,5    =X'7FF'
     6918   01 01670    31500001 A            CW,5     1                 IS IT KB?
     6919   01 01671    68301673              BCR,3    %+2               B IF YES
     6920   01 01672    35101DEC              STW,1    SAVE18            LP FLAG
     6921   01 01673    68001676              B        %+3
     6922   01 01674    525205EB     XIKB2    LH,5     ZTWLPO,1
     6923   01 01675    6800166F              B        XIKB1
     6924   01 01676    72621DCA              LB,6     KBO,1             GET INT POINTER
     6925   01 01677    31601DBE              CW,6     POINTER           INT POINTER=POINTER?
     6926   01 01678    6930168A              BCS,3    XIKB3
     6927   01 01679    31001DEC     XIKB2A   CW,0     SAVE18            IS LP OUTPUT
     6928   01 0167A    68301680              BCR,3    XIKB2B            B IF NOT
     6929   01 0167B    CDD00005 A            TIO,13   *5
     6930   01 0167C    25D00203 A            SCS,13   3
     6931   01 0167D    4BD00003 A            AND,13   3
     6932   01 0167E    21D00003 A            CI,13    3
     6933   01 0167F    6830167B              BCR,3    %-4               B IF NOT
     6934   01 01680    31001E13     XIKB2B   CW,0     FLAG13            IS FAKE IT FLAG SET
     6935   01 01681    68301683              BCR,3    %+2               B IF NOT
     6936   01 01682    6ED00000 A            AIO,13   0
     6937   01 01683    CFD00005 A            HIO,13   *5
     6938   01 01684    31001E14              CW,0     FLAG14            IS MESG FLAG SET
     6939   01 01685    68301688              BCR,3    %+3               B IF NOT
     6940   01 01686    6ED00000 A            AIO,13   0
     6941   01 01687    35101E18              STW,1    FLAG18            SET MESG COMPLETE FLAG
     6942   01 01688    35101E10              STW,1    FLAG10            SET HIO FLAG
     6943   01 01689    6800169B              B        XIKB4
     6944   01 0168A    72AC1AE6     XIKB3    LB,10    PATTERN,6         GET CHAR
     6945   01 0168B    8610002B A            RECODE   *X'2B',2,1        CONVERT TO EBCDIC
            01 0168C    00020001 A
     6946   01 0168D    31101DEC              CW,1     SAVE18            IS OUTPUT LP
     6947   01 0168E    683016A7              BCR,3    XIKB10            B IF LP
     6948   01 0168F    75A01BE6              STB,10   IOBUFF
     6949   01 01690    22000BDA              LI,0     DA(CP18)
     6950   01 01691    CCD00005 A            SIO,13   *5
     6951   01 01692    69C01691              BCS,12   %-1
     6952   01 01693    20600001 A            AI,6     1
     6953   01 01694    75621DCA              STB,6    KBO,1
     6954   01 01695    22000000 A            LI,0     0
     6955   01 01696    31001E14              CW,0     FLAG14            IS MESG FLAG SET
     6956   01 01697    6830169A              BCR,3    %+3               B IF NOT
     6957   01 01698    31601DBE              CW,6     POINTER           HAS LAST CHAR BEEN SENT
     6958   01 01699    68301679              BCR,3    XIKB2A            B IF YES
     6959   01 0169A    35001E10              STW,0    FLAG10
     6960   01 0169B    32501DF3     XIKB4    LW,5     SAVE25
     6961   01 0169C    32601DF4              LW,6     SAVE26
     6962   01 0169D    32701DF5              LW,7     SAVE27
     6963   01 0169E    32A01DFA              LW,10    SAVE32
     6964   01 0169F    32C01DFB              LW,12    SAVE33
     6965   01 016A0    32D01DFC              LW,13    SAVE34
     6966   01 016A1    35001DEC               STW,0    SAVE18           RESET LP FLAG
     6967   01 016A2    31101E13              CW,1     FLAG13
     6968   01 016A3    683016A5              BCR,3    %+2
     6969   01 016A4    0E301662              LPSD,3   XIKB
     6970   01 016A5    35001E13              STW,0    FLAG13
     6971   01 016A6    0E001662              LPSD,0   XIKB
     6972   01 016A7    227FFFEA A   XIKB10   LI,7     -22               LOAD
     6973   01 016A8    32902178              LW,9     =X'40404040'       LPBUFF
     6974   01 016A9    359E1DBE              STW,9    LPBUFF+22,7         WITH
     6975   01 016AA    657016A9              BIR,7    %-1                  SPACES
     6976   01 016AB    31A02182              CW,10    =X'15'            IS CHAR NL?
     6977   01 016AC    693016BD              BCS,3    XIKB12            B IF NOT
     6978   01 016AD    35001DEB              STW,0    SAVE17            LP COUNTER
     6979   01 016AE    22C000C1 A            LI,12    X'C1'             SPACE 1 LINE
     6980   01 016AF    75C01DA8              STB,12   LPBUFF
     6981   01 016B0    22000BDB              LI,0     DA(CP19)
     6982   01 016B1    CCD00005 A            SIO,13   *5                ADVANCE PAPER
     6983   01 016B2    69C016B1              BCS,12   %-1
     6984   01 016B3    22000000 A   XIKB11   LI,0     0
     6985   01 016B4    66101DEB              AWM,1    SAVE17
     6986   01 016B5    30600001 A            AW,6     1
     6987   01 016B6    75621DCA              STB,6    KBO,1
     6988   01 016B7    31001E14              CW,0     FLAG14            IS MESG FLAG SET
     6989   01 016B8    683016BB              BCR,3    %+3               B IF NOT
     6990   01 016B9    31601DBE              CW,6     POINTER
     6991   01 016BA    68301679              BCR,3    XIKB2A
     6992   01 016BB    35001E10              STW,0    FLAG10
     6993   01 016BC    6800169B              B        XIKB4
     6994   01 016BD    32701DEB     XIKB12   LW,7     SAVE17
     6995   01 016BE    75AE1DA8              STB,10   LPBUFF,7
     6996   01 016BF    22000060 A            LI,0     X'60'
     6997   01 016C0    75001DA8              STB,0    LPBUFF
     6998   01 016C1    22000BDC              LI,0     DA(CP21)
     6999   01 016C2    CCD00005 A            SIO,13   *5
     7000   01 016C3    69C016C2              BCS,12   %-1
     7001   01 016C4    21700057 A            CI,7     87
     7002   01 016C5    691016B3              BCS,1    XIKB11
     7003   01 016C6    22000000 A            LI,0     0
     7004   01 016C7    35001DEB              STW,0    SAVE17
     7005   01 016C8    680016B3              B        XIKB11
     7006                                     PAGE
     7007                            *
     7008                            *
     7009                            *        S E L E C T  T E S T S  R O U T I N E
     7010                            *
     7011                            *
     7012   01 016C9    20000000 A            DATA     2**28
     7013                            *
     7014                            *
     7015   01 016CA    32100696     SELTEST  LW,1     P1
     7016   01 016CB    4B102156              AND,1    L(7)
     7017   01 016CC    72221EA5              LB,2     BIT01,1
     7018   01 016CD    35101E16              STW,1    FLAG16
     7019   01 016CE    35201E17              STW,2    FLAG17
     7020   01 016CF    6702170B              EXU      INITSEL,1
     7021   01 016D0    E800000F A            B        *15
     7022                            *
     7023                            *
     7024                            *        D I R E C T I V E  T E S T  R O U T I N E
     7025                            *
     7026                            *
     7027   01 016D1    32C01F2A     TIT00    LW,12    MW09
     7028   01 016D2    022000C0 A            LCI      12
     7029   01 016D3    22F00288              LI,15    ZPC010
     7030   01 016D4    680005C9              B        ZTWLP
     7031   01 016D5    B200000E A   TESTER   LW,0     *14               GET LEGALITY BITS
     7032   01 016D6    20E00001 A            AI,14    1
     7033   01 016D7    4B001179              AND,0    CPINT+5           X'F' IF 'COCU' P3,P4 VALID;       *F
     7034                            *                                    OTHERWISE MASK IS X'5'           *F
     7035   01 016D8    31001E17              CW,0     FLAG17
     7036   01 016D9    684016D1              BCR,4    TIT00
     7037   01 016DA    22000000 A            LI,0     0
     7038   01 016DB    E800000E A            B        *14
     7039                            *
     7040                            *
     7041                                     PAGE
     7042                            *
     7043                            *
     7044                            *        R E C O D E  S U B R O U T I N E
     7045                            *
     7046                            *
     7047                                     BOUND    8
     7048                            *
     7049                            *
     7050   01 016DC    00000000 A   RECODE   DATA     0,0,%+2,7**24
            01 016DD    00000000 A
            01 016DE    000016E0
            01 016DF    07000000 A
     7051   01 016E0    680016E2              B        RE000
     7052   01 016E1    680016E2              B        RE000
     7053                            *
     7054   01 016E2    74001DE7     RE000    STCF     SAVE13
     7055   01 016E3    02200040 A            LCI      4
     7056   01 016E4    2B401DE1              STM,4    SAVE7
     7057   01 016E5    B24016DC              LW,4     *RECODE
     7058   01 016E6    B25216DC              LW,5     *RECODE,1
     7059   01 016E7    52720005 A            LH,7     5,1
     7060   01 016E8    BA700007 A            LCW,7    *7                NEGATIVE COUNT
     7061   01 016E9    52600005 A            LH,6     5
     7062   01 016EA    B2600006 A            LW,6     *6
     7063   01 016EB    326C1EA7              LW,6     CONPRT,6
     7064   01 016EC    72500006 A            LB,5     6
     7065   01 016ED    35501DE5              STW,5    SAVE11
     7066   01 016EE    70301DE7              LCF      SAVE13
     7067   01 016EF    691016FC              BCS,1    RE010
     7068   01 016F0    72580000 A   RE001    LB,5     0,4
     7069   01 016F1    31501DE5              CW,5     SAVE11
     7070   01 016F2    682016F4              BCR,2    %+2               BRANCH IF > TAB LENGTH
     7071   01 016F3    22500000 A            LI,5     0
     7072   01 016F4    F25A0006 A            LB,5     *6,5
     7073   01 016F5    75580000 A            STB,5    0,4
     7074   01 016F6    20400001 A            AI,4     1
     7075   01 016F7    657016F0              BIR,7    RE001
     7076   01 016F8    02200040 A   RE002    LCI      4
     7077   01 016F9    2A401DE1              LM,4     SAVE7
     7078   01 016FA    332016DC              MTW,2    RECODE
     7079   01 016FB    0E0016DC              LPSD,0   RECODE
     7080                            *
     7081   01 016FC    35801DE8     RE010    STW,8    SAVE14
     7082   01 016FD    22500000 A   RE011    LI,5     0
     7083   01 016FE    72880000 A            LB,8     0,4
     7084   01 016FF    F18A0006 A   RE012    CB,8     *6,5
     7085   01 01700    69301706              BCS,3    RE014
     7086   01 01701    75580000 A   RE013    STB,5    0,4
     7087   01 01702    20400001 A            AI,4     1
     7088   01 01703    657016FD              BIR,7    RE011
     7089   01 01704    32801DE8              LW,8     SAVE14
     7090   01 01705    680016F8              B        RE002
     7091                            *
     7092   01 01706    20500001 A   RE014    AI,5     1
     7093   01 01707    31501DE5              CW,5     SAVE11
     7094   01 01708    682016FF              BCR,2    RE012
     7095   01 01709    22500000 A            LI,5     0                 HERE IF NOT FOUND
     7096   01 0170A    68001701              B        RE013
     7097                            *
     7098                            *
     7099                                     PAGE
     7100                            *
     7101                            *
     7102   01 0170B    02000000 A   INITSEL  NOP
     7103   01 0170C    68001713              B        INIT01
     7104   01 0170D    02000000 A            NOP
     7105   01 0170E    6800171D              B        INIT03
     7106   01 0170F    02000000 A            NOP
     7107   01 01710    02000000 A            NOP
     7108   01 01711    02000000 A            NOP
     7109   01 01712    02000000 A            NOP
     7110                            *
     7111                            *
     7112   01 01713    32401E1E     INIT01   LW,4     RLINK
     7113   01 01714    B5401DD8              STW,4    *RIADR
     7114   01 01715    32401E1F              LW,4     XLINK
     7115   01 01716    B5401DD9              STW,4    *XIADR
     7116   01 01717    22400100 A   INITCOM  LI,4     256
     7117   01 01718    35401E2A              STW,4    SPACE0
     7118   01 01719    35001E04              STW,0    WCOUNT0
     7119   01 0171A    35001E05              STW,0    PSHDEX
     7120   01 0171B    35001E06              STW,0    PULDEX
     7121   01 0171C    E800000F A            B        *15
     7122                            *
     7123                            *
     7124   01 0171D    32401E26     INIT03   LW,4     T3XLINK
     7125   01 0171E    B5401DD9              STW,4    *XIADR
     7126   01 0171F    32401E27              LW,4     T3RLINK
     7127   01 01720    B5401DD8              STW,4    *RIADR
     7128   01 01721    68001717              B        INITCOM
     7129                            *
     7130                            *
     7131                                     PAGE
     7132                            *                 A D U ROUTINE
     7133   01 01722    40000000 A            DATA     4**28             D C NUMBER
     7134   01 01723    20000000 A            DATA     2**28             DIALER NUMBER
     7135                            *
     7136   01 01724    32400696     ADU      LW,4     P1
     7137   01 01725    25400004 A            SLS,4    4
     7138   01 01726    32500697              LW,5     P2
     7139   01 01727    4B502180              AND,5    =15
     7140   01 01728    30400005 A            AW,4     5
     7141   01 01729    3540172B              STW,4    ADUIO
     7142   01 0172A    E800000F A            B        *15
     7143                            *
     7144   01 0172B    00000000 A   ADUIO    DATA     0
     7145                                     PAGE
     7146                            *                 ADU  PHONE NUMBER ROUTINE
     7147   01 0172C    40000000 A            DATA     4**28
     7148   01 0172D    20000000 A            DATA     2**28             DIGITS
     7149   01 0172E    32400696     PNUM     LW,4     P1
     7150   01 0172F    22700007 A            LI,7     7
     7151   01 01730    2540017C A            SLD,4    -4
     7152   01 01731    25500064 A            SLS,5    -28
     7153   01 01732    755E173B              STB,5    PHONEN,7
     7154   01 01733    64701730              BDR,7    %-3
     7155   01 01734    7540173B              STB,4    PHONEN
     7156   01 01735    32400697              LW,4     P2
     7157   01 01736    75461767              STB,4    ADCP01+1,3
     7158   01 01737    22505CF4              LI,5     BA(PHONEN+2)
     7159   01 01738    38500004 A            SW,5     4
     7160   01 01739    35501766              STW,5    ADCP01
     7161   01 0173A    E800000F A            B        *15
     7162                            *
     7163   01 0173B    00000000 A   PHONEN   DATA     0
     7164   01 0173C    00000000 A            DATA     0
     7165                            *
     7166                                     PAGE
     7167                            *                 DIALER ROUTINE
     7168   01 0173D    35F01764     DIAL     STW,15   DIALRT
     7169   01 0173E    6D000022 A            WD,0     X'22'
     7170   01 0173F    35001763              STW,0    ADXFLG
     7171   01 01740    35001761              STW,0    UCINTFLG
     7172   01 01741    32401753              LW,4     ADIOIL
     7173   01 01742    3540005C A            STW,4    X'5C'
     7174   01 01743    22500020 A            LI,5     X'20'
     7175   01 01744    6D501200 A            WD,5     X'1200'
     7176   01 01745    22000BB3              LI,0     DA(ADCP01)
     7177   01 01746    CC00172B              SIO,0    *ADUIO
     7178   01 01747    68C01750              BCR,12   DIAL01
     7179   01 01748    33101761              MTW,1    UCINTFLG
     7180   01 01749    22500020 A   DIALEX   LI,5     X'20'
     7181   01 0174A    6D501100 A            WD,5     X'1100'
     7182   01 0174B    32F01764              LW,15    DIALRT
     7183   01 0174C    33001761              MTW,0    UCINTFLG
     7184   01 0174D    6830174F              BCR,3    %+2
     7185   01 0174E    20F00001 A            AI,15    1                 PLACEMARK BRANCH
     7186   01 0174F    E800000F A            B        *15
     7187   01 01750    33001763     DIAL01   MTW,0    ADXFLG
     7188   01 01751    69301749              BCS,3    DIALEX
     7189   01 01752    68001750              B        %-2
     7190                                     PAGE
     7191   01 01753    0F001754     ADIOIL   XPSD,0   ADIOI
     7192                                     BOUND    8
     7193   01 01754    00000000 A   ADIOI    DATA     0
     7194   01 01755    00000000 A            DATA     0
     7195   01 01756    00001758              DATA     %+2
     7196   01 01757    00000000 A            DATA     0
     7197   01 01758    6E400000 A            AIO,4    0
     7198   01 01759    35401762              STW,4    ADAIOR
     7199   01 0175A    6840175C              BCR,4    %+2
     7200   01 0175B    33101761              MTW,1    UCINTFLG
     7201   01 0175C    33101763              MTW,1    ADXFLG
     7202   01 0175D    7146172B              CB,4     ADUIO,3
     7203   01 0175E    68301760              BCR,3    %+2
     7204   01 0175F    33101761              MTW,1    UCINTFLG
     7205   01 01760    0E301754              LPSD,3   ADIOI
     7206                            *
     7207   01 01761    00000000 A   UCINTFLG DATA     0
     7208   01 01762    00000000 A   ADAIOR   DATA     0
     7209   01 01763    00000000 A   ADXFLG   DATA     0
     7210   01 01764    00000000 A   DIALRT   DATA     0
     7211                                     BOUND    8
     7212   01 01766    00005CED     ADCP01   DATA     BA(PHONEN)+1
     7213   01 01767    14000001 A            DATA     X'14000001'
     7214                                     PAGE
     7215                            *
     7216                            *
     7217                            *        I N I T I A L I Z E R
     7218                            *
     7219                            *
     7220   01 01768    6D000037 A   INITIAL  WD,0     X'37'
     7221         01 01769           REVBRNCH EQU      %                                                 *F01
     7222         00000000                    DO       REVCOUNT=0                                        *F01
     7223                        *S*          NOP                                                        *F01
     7224                                     ELSE                                                       *F01
     7225   01 01769    6AF02868 02           BAL,15   REVPRINT                                          *F01
     7226                                     FIN                                                        *F01
     7227   01 0176A    32001EB1              LW,0     DAINT
     7228   01 0176B    32101EB2              LW,1     DEINT
     7229   01 0176C    22FFFFFF A            LI,15    -1
     7230   01 0176D    22EFFFF0 A            LI,14    -16
     7231   01 0176E    67000000 A            EXU      0
     7232   01 0176F    67000001 A            EXU      1
     7233   01 01770    20000001 A            AI,0     1
     7234   01 01771    20100001 A            AI,1     1
     7235   01 01772    65E0176E              BIR,14   %-4
     7236   01 01773    22000000 A            LI,0     0
     7237   01 01774    22100656 A            LI,1     ZTABL
     7238   01 01775    350217C3              STW,0    ZTAB-1,1
     7239   01 01776    64101775              BDR,1    %-1
     7240   01 01777    221FFFE4 A            LI,1     CLMTEND                                             *F
     7241   01 01778    35021E9A              STW,0    TRANSITF,1                                          *F
     7242   01 01779    65101778              BIR,1    %-1                                                 *F
     7243   01 0177A    22400005 A            LI,4     5                 INITIALIZE FOR                    *F
     7244   01 0177B    35401179              STW,4    CPINT+5            TESTS 0 AND 2 ONLY.              *F
     7245   01 0177C    22400100 A            LI,4     256
     7246   01 0177D    35401E2A              STW,4    SPACE0
     7247   01 0177E    32101E21              LW,1     CLINK
     7248   01 0177F    35100048 A            STW,1    X'48'
     7249   01 01780    32101E25              LW,1     TLINK
     7250   01 01781    35100055 A            STW,1    X'55'
     7251   01 01782    32101E23              LW,1     PLINK
     7252   01 01783    35100049 A            STW,1    X'49'
     7253   01 01784    32101E29              LW,1     RCLINK
     7254   01 01785    3510004A A            STW,1    X'4A'
     7255   01 01786    32101E24              LW,1     ALINK
     7256   01 01787    3510005D A            STW,1    X'5D'
     7257   01 01788    72101EA5              LB,1     BIT01
     7258   01 01789    35101E17              STW,1    FLAG17            TEST MODE 0
     7259                            *                 DELETED TWO INSTRUCTIONS WHICH ARE NOW SURPLUS      *F
     7260   01 0178A    6D000027 A            WD,0     X'27'             RESET INHIBITS                    *F
     7261   01 0178B    68000288              B        ZPC010
     7262                            *
     7263                            *
     7264                                     PAGE
     7265                            *
     7266                                     BOUND    8
     7267   01 0178C    0000013F A   LIMIT1   DATA     X'13F'
     7268   01 0178D    00000060 A            DATA     X'60'
     7269                            *
     7270                            *
     7271   01 0178E    00006F98     CP01     DATA     BA(IOBUFF)
     7272   01 0178F    80000080 A            GEN,8,24 X'80',128
     7273                            *
     7274   01 01790    08000BC7              GEN,8,24 8,DA(CP01)
     7275   01 01791    00000000 A            GEN,32   0
     7276                            *
     7277   01 01792    06006F98     CP02     GEN,8,24 6,BA(IOBUFF)
     7278   01 01793    00000100 A            GEN,8,24 0,256
     7279                            *
     7280   01 01794    05007BB7     CP03     GEN,8,24 5,BA(TEXT03)-1                                      *B
     7281   01 01795    0000002D A            DATA     45                                                  *B
     7282                            *
     7283   01 01796    00006F98     CP04     DATA     BA(IOBUFF)
     7284   01 01797    00000002 A            DATA     2
     7285                            *
     7286   01 01798    06006F98     CP05     GEN,8,24 6,BA(IOBUFF)
     7287   01 01799    00000200 A            GEN,8,24 0,512
     7288                            *
     7289   01 0179A    06006F98     CP06     GEN,8,24 6,BA(IOBUFF)
     7290   01 0179B    00000000 A            DATA     0
     7291                            *
     7292   01 0179C    00006F98     CP07     DATA     BA(IOBUFF)
     7293   01 0179D    80000002 A            GEN,8,24 128,2
     7294                            *
     7295   01 0179E    08000BCE              GEN,8,24 8,DA(CP07)
     7296   01 0179F    00000000 A            DATA     0
     7297                            *
     7298   01 017A0    06006F98     CP08     GEN,8,24 6,BA(IOBUFF)
     7299   01 017A1    02000100 A            GEN,8,24 2,256
     7300                            *
     7301   01 017A2    06006F98     CP09     GEN,8,24 6,BA(IOBUFF)
     7302   01 017A3    00000001 A            DATA     1
     7303                            *
     7304   01 017A4    05008060     CP10     GEN,8,24 5,BA(TEXT41)                                        *B
     7305   01 017A5    0000001B A            DATA     27                                                  *B
     7306                            *
     7307   01 017A6    00006F9B     CP11     GEN,8,24 0,BA(IOBUFF)+3    EXERCIZES OVER-WORD BOUNDARIES
     7308   01 017A7    140001FE A            GEN,8,24 20,510
     7309                            *
     7310   01 017A8    00006F98     CP12     DATA     BA(IOBUFF)
     7311   01 017A9    00000003 A            DATA     3
     7312                            *
     7313   01 017AA    06006F98     CP13     GEN,8,24 6,BA(IOBUFF)
     7314   01 017AB    82000100 A            GEN,8,24 130,256
     7315                            *
     7316   01 017AC    08000BD5     CP14     GEN,8,24 8,DA(CP13)
     7317   01 017AD    00000000 A            DATA     0
     7318                            *
     7319   01 017AE    00006F98     CP15     GEN,8,24 0,BA(IOBUFF)
     7320   01 017AF    82000200 A            GEN,8,24 130,512
     7321                            *
     7322   01 017B0    08000BD7     CP16     GEN,8,24 8,DA(CP15)
     7323   01 017B1    00000000 A            DATA     0
     7324                            *
     7325   01 017B2    00006F98     CP17     GEN,8,24 0,BA(IOBUFF)
     7326   01 017B3    02000200 A            GEN,8,24 2,512
     7327                            *
     7328   01 017B4    05006F98     CP18     GEN,8,24 5,BA(IOBUFF)
     7329   01 017B5    10000001 A            GEN,8,24 16,1
     7330                            *
     7331   01 017B6    030076A0     CP19     GEN,8,24 3,BA(LPBUFF)
     7332   01 017B7    12000001 A            GEN,8,24 18,1
     7333                            *
     7334   01 017B8    050076A0     CP21     GEN,8,24 5,BA(LPBUFF)
     7335   01 017B9    12000057 A            GEN,8,24 18,87
     7336   01 017BA    02006F98     CP22     GEN,8,24 2,BA(IOBUFF)      STARTING BUFFER ADD               *F
     7337   01 017BB    00000000 A            DATA     0                                                   *F
     7338                            *                                                                     *F
     7339   01 017BC    08000BDD              GEN,8,24 8,DA(CP22)        TIC FOR CODE FOLLOWING 'SYNC 0'   *F
     7340   01 017BD    00000000 A            DATA     0                  (NEAR LABLE 'ST01' IN 'ST1' DIR.)*F
     7341                            *                                                                     *F
     7342   01 017BE    05002EE4     CP23     GEN,8,24 5,BA(CLMMSG)      STARTING BUFFER ADDRESS           *F
     7343   01 017BF    00000012 A            DATA     18                                                  *F
     7344   01 017C0    02000000 A   CP24     GEN,8,24 2,0
     7345   01 017C1    80000000 A            GEN,8,24 X'80',0
     7346   01 017C2    08000BE0              GEN,8,24 8,DA(CP24)
     7347   01 017C3    00000000 A            GEN,32   0
     7348                                     PAGE
     7349                            *
     7350                            *
     7351         01 017C4           ZTAB     EQU      %
     7352   01 017C4                 XTWT     RES      64                TRANSMIT  TEST WORD TABLE
     7353   01 01804                 RTWT     RES      64                RECEIVE   TEST WORD TABLE
     7354   01 01844                 DTWT     RES      64                DELAY     TEST WORD TABLE
     7355   01 01884                 LDTWT    RES      32
     7356   01 018A4                 XFTWT    RES      64                TRANSMIT FREQUENCY
     7357   01 018E4                 RFTWT    RES      64
     7358   01 01924                 RETWT    RES      64                RECEIVE ERROR TEST WORD TABLE
     7359   01 01964                 CSETWT   RES      64
     7360   01 019A4                 LDTIMTAB RES      64
     7361   01 019E4                 LDBITAB  RES      2
     7362   01 019E6                 RTTWT    RES      64
     7363   01 01A26                 CLMTO    RES      64                TABLE OF TIMEOUT VALUES FOR       *F
     7364                            *                                    'CLM' MODE; ONE WORD FOR EACH    *F
     7365                            *                                     LINE. (ZERO) INITIALIZED CON-   *F
     7366                            *                                      DITION AND STATE RESTORED AT   *F
     7367                            *                                       INITIATION OF PSEUDO TRANSMIT *F
     7368                            *                                        INTERRUT.                    *F
     7369   01 01A66                 CLMLSREC RES      64                COUNT OF LONG SPACE RECEIVED      *F
     7370                            *                                    PER LINE IN THE 'CLM' MODE       *F
     7371   01 01AA6                 CLMXLS   RES      64
     7372                            *                                                                     *F
     7373                            *
     7374   01 01AE6                 PATTERN  RES      256
     7375                                     BOUND    8
     7376   01 01BE6                 IOBUFF   RES      128
     7377                            *
     7378   01 01C66                 ELIST1   RES      256
     7379                            *
     7380   01 01D66                 CVTAB0   RES      1
     7381   01 01D67                 CVTAB1   RES      64
     7382   01 01DA7                 CVTAB3   RES      1
     7383   01 01DA8                 LPBUFF   RES      22
     7384   01 01DBE                 POINTER  RES      1
     7385   01 01DBF                 COMP     RES      1
     7386   01 01DC0                 OCNL     RES      8
     7387   01 01DC8                 ICNL     RES      1
     7388   01 01DC9                 KBI      RES      1
     7389   01 01DCA                 KBO      RES      1
     7390   01 01DCB                 ONO      RES      1
     7391                                     PAGE
     7392                            *
     7393   01 01DCC    00000000 A   IODEVICE DATA     0
     7394   01 01DCD    00000000 A   PLENGTH  DATA     0
     7395   01 01DCE    00000000 A   TLENGTH  DATA     0
     7396   01 01DCF    00000000 A   XLENGTH  DATA     0                                                   *F
     7397   01 01DD0    00000000 A   PADDR    DATA     0
     7398   01 01DD1    00000000 A   EMODE    DATA     0                 ERROR MODE FLAG
     7399   01 01DD2    00000000 A   RECBIT   DATA     0
     7400   01 01DD3    00000000 A   XMTBIT   DATA     0
     7401   01 01DD4    00000000 A   RICODE   DATA     0
     7402   01 01DD5    00000000 A   XICODE   DATA     0
     7403   01 01DD6    00000000 A   ERRORWD  DATA     0
     7404   01 01DD7    00000000 A   CMASK    DATA     0
     7405   01 01DD8    00000000 A   RIADR    DATA     0
     7406   01 01DD9    00000000 A   XIADR    DATA     0
     7407   01 01DDA    00000000 A   SAVE0    DATA     0
     7408   01 01DDB    00000000 A   SAVE1    DATA     0
     7409   01 01DDC    00000000 A   SAVE2    DATA     0
     7410   01 01DDD    00000000 A   SAVE3    DATA     0
     7411   01 01DDE    00000000 A   SAVE4    DATA     0
     7412   01 01DDF    00000000 A   SAVE5    DATA     0
     7413   01 01DE0    00000000 A   SAVE6    DATA     0
     7414   01 01DE1    00000000 A   SAVE7    DATA     0
     7415   01 01DE2    00000000 A   SAVE8    DATA     0
     7416   01 01DE3    00000000 A   SAVE9    DATA     0
     7417   01 01DE4    00000000 A   SAVE10   DATA     0
     7418   01 01DE5    00000000 A   SAVE11   DATA     0
     7419   01 01DE6    00000000 A   SAVE12   DATA     0
     7420   01 01DE7    00000000 A   SAVE13   DATA     0
     7421   01 01DE8    00000000 A   SAVE14   DATA     0
     7422   01 01DE9    00000000 A   SAVE15   DATA     0
     7423   01 01DEA    00000000 A   SAVE16   DATA     0
     7424   01 01DEB    00000000 A   SAVE17   DATA     0
     7425   01 01DEC    00000000 A   SAVE18   DATA     0
     7426   01 01DED    00000000 A   SAVE19   DATA     0
     7427   01 01DEE    00000000 A   SAVE20   DATA     0
     7428   01 01DEF    00000000 A   SAVE21   DATA     0
     7429   01 01DF0    00000000 A   SAVE22   DATA     0
     7430   01 01DF1    00000000 A   SAVE23   DATA     0
     7431   01 01DF2    00000000 A   SAVE24   DATA     0
     7432   01 01DF3    00000000 A   SAVE25   DATA     0
     7433   01 01DF4    00000000 A   SAVE26   DATA     0
     7434   01 01DF5    00000000 A   SAVE27   DATA     0
     7435   01 01DF6    00000000 A   SAVE28   DATA     0
     7436   01 01DF7    00000000 A   SAVE29   DATA     0
     7437   01 01DF8    00000000 A   SAVE30   DATA     0
     7438   01 01DF9    00000000 A   SAVE31   DATA     0
     7439   01 01DFA    00000000 A   SAVE32   DATA     0
     7440   01 01DFB    00000000 A   SAVE33   DATA     0
     7441   01 01DFC    00000000 A   SAVE34   DATA     0
     7442   01 01DFD    00000000 A   SAVE35   DATA     0
     7443   01 01DFE    00000000 A   RETURN   DATA     0
     7444   01 01DFF    00000000 A   DSAVE1   DATA     0
     7445   01 01E00    00000000 A   DSAVE2   DATA     0
     7446   01 01E01    00000000 A   TIME     DATA     0
     7447   01 01E02    00000000 A   TIME1    DATA     0
     7448   01 01E03    00000000 A   ERRORWD1 DATA     0
     7449   01 01E04    00000000 A   WCOUNT0  DATA     0
     7450   01 01E05    00000000 A   PSHDEX   DATA     0
     7451   01 01E06    00000000 A   PULDEX   DATA     0
     7452   01 01E07    00000000 A   FLAG1    DATA     0
     7453   01 01E08    00000000 A   FLAG2    DATA     0
     7454   01 01E09    00000000 A   FLAG3    DATA     0
     7455   01 01E0A    00000000 A   FLAG4    DATA     0
     7456   01 01E0B    00000000 A   FLAG5    DATA     0
     7457   01 01E0C    00000000 A   FLAG6    DATA     0
     7458   01 01E0D    00000000 A   FLAG7    DATA     0
     7459   01 01E0E    00000000 A   FLAG8    DATA     0
     7460   01 01E0F    00000000 A   FLAG9    DATA     0
     7461   01 01E10    00000000 A   FLAG10   DATA     0
     7462   01 01E11    00000000 A   FLAG11   DATA     0
     7463   01 01E12    00000000 A   FLAG12   DATA     0
     7464   01 01E13    00000000 A   FLAG13   DATA     0
     7465   01 01E14    00000000 A   FLAG14   DATA     0
     7466   01 01E15    00000000 A   FLAG15   DATA     0
     7467   01 01E16    00000000 A   FLAG16   DATA     0
     7468   01 01E17    00000000 A   FLAG17   DATA     0
     7469   01 01E18    00000000 A   FLAG18   DATA     0
     7470   01 01E19    00000000 A   FLAG19   DATA     0
     7471         00000656           ZTABL    EQU      %-ZTAB
     7472                                     PAGE
     7473   01 01E1A    00001AE6     PTPOINT  DATA     PATTERN
     7474   01 01E1B    00000000 A   PATT00   DATA     0
     7475   01 01E1C    FFFFFFFF A   PATT01   DATA     -1
     7476   01 01E1D    AA55AA55 A   PATT02   DATA     X'AA55AA55'
     7477   01 01E1E    0F000768     RLINK    XPSD,0   RINT
     7478   01 01E1F    0F0007EA     XLINK    XPSD,0   XINTR
     7479   01 01E20    0F000D26     CLMXINTC XPSD,0   CLMXINT                                             *F
     7480   01 01E21    0F001054     CLINK    XPSD,0   ABORTLOC                                            *F
     7481   01 01E22    0F000DC2     CLMRINTC XPSD,0   CLMRINT                                             *F
     7482   01 01E23    0F40117C     PLINK    XPSD,4   FIFO0
     7483   01 01E24    0F001174     ALINK    XPSD,0   CPINT
     7484   01 01E25    33101E01     TLINK    MTW,1    TIME
     7485   01 01E26    0F001602     T3XLINK  XPSD,0   T3XINT
     7486   01 01E27    0F001598     T3RLINK  XPSD,0   T3RINT
     7487   01 01E28    0F001662     T3IOLINK XPSD,0   XIKB
     7488   01 01E29    0F4016DC     RCLINK   XPSD,4   RECODE
     7489   01 01E2A    00000100 A   SPACE0   DATA     256
     7490   01 01E2B    80000082 A   CHAIN130 DATA     X'80000082'       DATA    CHAIN, BYTE COUNT = 130   *F
     7491                            *                 DELETED 'C4LINK'                                    *F
     7492                                     PAGE
     7493                            *        E B C D I C  T O  A S C I I
     7494   01 01E2C    00       A   CVTAB2   DATA,1   0,129,130,3       00-03
            01 01E2C 1  81       A
            01 01E2C 2  82       A
            01 01E2C 3  03       A
     7495   01 01E2D    84       A            DATA,1   132,9,6,135       04-07
            01 01E2D 1  09       A
            01 01E2D 2  06       A
            01 01E2D 3  87       A
     7496   01 01E2E    18       A            DATA,1   24,5,149,139      08-0B
            01 01E2E 1  05       A
            01 01E2E 2  95       A
            01 01E2E 3  8B       A
     7497   01 01E2F    0C       A            DATA,1   12,141,142,15     0C-0F
            01 01E2F 1  8D       A
            01 01E2F 2  8E       A
            01 01E2F 3  0F       A
     7498   01 01E30    90       A            DATA,1   144,17,18,147     10-13
            01 01E30 1  11       A
            01 01E30 2  12       A
            01 01E30 3  93       A
     7499   01 01E31    14       A            DATA,1   20,10,150,23      14-17
            01 01E31 1  0A       A
            01 01E31 2  96       A
            01 01E31 3  17       A
     7500   01 01E32    88       A            DATA,1   136,153,154,27    18-1B
            01 01E32 1  99       A
            01 01E32 2  9A       A
            01 01E32 3  1B       A
     7501   01 01E33    9C       A            DATA,1   156,29,30,159     1C-1F
            01 01E33 1  1D       A
            01 01E33 2  1E       A
            01 01E33 3  9F       A
     7502                                     PAGE
     7503   01 01E34    00       A            DATA,1   0,0,0,0           20-23
            01 01E34 1  00       A
            01 01E34 2  00       A
            01 01E34 3  00       A
     7504   01 01E35    00       A            DATA,1   0,0,0,0           24-27
            01 01E35 1  00       A
            01 01E35 2  00       A
            01 01E35 3  00       A
     7505   01 01E36    00       A            DATA,1   0,0,0,0           28-2B
            01 01E36 1  00       A
            01 01E36 2  00       A
            01 01E36 3  00       A
     7506   01 01E37    00       A            DATA,1   0,0,0,0           2C-2F
            01 01E37 1  00       A
            01 01E37 2  00       A
            01 01E37 3  00       A
     7507   01 01E38    00       A            DATA,1   0,0,0,0           30-33
            01 01E38 1  00       A
            01 01E38 2  00       A
            01 01E38 3  00       A
     7508   01 01E39    00       A            DATA,1   0,0,0,0           34-37
            01 01E39 1  00       A
            01 01E39 2  00       A
            01 01E39 3  00       A
     7509   01 01E3A    00       A            DATA,1   0,0,0,0           38-3B
            01 01E3A 1  00       A
            01 01E3A 2  00       A
            01 01E3A 3  00       A
     7510   01 01E3B    00       A            DATA,1   0,0,0,0           3C-3F
            01 01E3B 1  00       A
            01 01E3B 2  00       A
            01 01E3B 3  00       A
     7511                                     PAGE
     7512   01 01E3C    A0       A            DATA,1   160,0,123,0       40-43
            01 01E3C 1  00       A
            01 01E3C 2  7B       A
            01 01E3C 3  00       A
     7513   01 01E3D    00       A            DATA,1   0,0,0,0           44-47
            01 01E3D 1  00       A
            01 01E3D 2  00       A
            01 01E3D 3  00       A
     7514   01 01E3E    00       A            DATA,1   0,0,96,46         48-4B
            01 01E3E 1  00       A
            01 01E3E 2  60       A
            01 01E3E 3  2E       A
     7515   01 01E3F    3C       A            DATA,1   60,40,43,219      4C-4F
            01 01E3F 1  28       A
            01 01E3F 2  2B       A
            01 01E3F 3  DB       A
     7516   01 01E40    A6       A            DATA,1   166,221,125,0     50-53
            01 01E40 1  DD       A
            01 01E40 2  7D       A
            01 01E40 3  00       A
     7517   01 01E41    00       A            DATA,1   0,0,0,0           54-57
            01 01E41 1  00       A
            01 01E41 2  00       A
            01 01E41 3  00       A
     7518   01 01E42    00       A            DATA,1   0,0,33,36         58-5B
            01 01E42 1  00       A
            01 01E42 2  21       A
            01 01E42 3  24       A
     7519   01 01E43    AA       A            DATA,1   170,169,187,126   5C-5F
            01 01E43 1  A9       A
            01 01E43 2  BB       A
            01 01E43 3  7E       A
     7520                                     PAGE
     7521   01 01E44    2D       A            DATA,1   45,175,92,0       60-63
            01 01E44 1  AF       A
            01 01E44 2  5C       A
            01 01E44 3  00       A
     7522   01 01E45    00       A            DATA,1   0,0,0,0           64-67
            01 01E45 1  00       A
            01 01E45 2  00       A
            01 01E45 3  00       A
     7523   01 01E46    00       A            DATA,1   0,0,222,172       68-6B
            01 01E46 1  00       A
            01 01E46 2  DE       A
            01 01E46 3  AC       A
     7524   01 01E47    A5       A            DATA,1   165,95,190,63     6C-6F
            01 01E47 1  5F       A
            01 01E47 2  BE       A
            01 01E47 3  3F       A
     7525   01 01E48    00       A            DATA,1   0,0,0,0           70-73
            01 01E48 1  00       A
            01 01E48 2  00       A
            01 01E48 3  00       A
     7526   01 01E49    00       A            DATA,1   0,0,0,0           74-77
            01 01E49 1  00       A
            01 01E49 2  00       A
            01 01E49 3  00       A
     7527   01 01E4A    00       A            DATA,1   0,0,58,163        78-7B
            01 01E4A 1  00       A
            01 01E4A 2  3A       A
            01 01E4A 3  A3       A
     7528   01 01E4B    C0       A            DATA,1   192,39,189,34     7C-7F
            01 01E4B 1  27       A
            01 01E4B 2  BD       A
            01 01E4B 3  22       A
     7529                                     PAGE
     7530   01 01E4C    00       A            DATA,1   0,225,226,99      80-83
            01 01E4C 1  E1       A
            01 01E4C 2  E2       A
            01 01E4C 3  63       A
     7531   01 01E4D    E4       A            DATA,1   228,101,102,231   84-87
            01 01E4D 1  65       A
            01 01E4D 2  66       A
            01 01E4D 3  E7       A
     7532   01 01E4E    E8       A            DATA,1   232,105,0,0       88-8B
            01 01E4E 1  69       A
            01 01E4E 2  00       A
            01 01E4E 3  00       A
     7533   01 01E4F    00       A            DATA,1   0,0,0,0           8C-8F
            01 01E4F 1  00       A
            01 01E4F 2  00       A
            01 01E4F 3  00       A
     7534   01 01E50    00       A            DATA,1   0,106,235,108     90-93
            01 01E50 1  6A       A
            01 01E50 2  EB       A
            01 01E50 3  6C       A
     7535   01 01E51    ED       A            DATA,1   237,238,111,240   94-97
            01 01E51 1  EE       A
            01 01E51 2  6F       A
            01 01E51 3  F0       A
     7536   01 01E52    71       A            DATA,1   113,114,0,0       98-9B
            01 01E52 1  72       A
            01 01E52 2  00       A
            01 01E52 3  00       A
     7537   01 01E53    00       A            DATA,1   0,0,0,0           9C-9F
            01 01E53 1  00       A
            01 01E53 2  00       A
            01 01E53 3  00       A
     7538                                     PAGE
     7539   01 01E54    00       A            DATA,1   0,0,243,116       A0-A3
            01 01E54 1  00       A
            01 01E54 2  F3       A
            01 01E54 3  74       A
     7540   01 01E55    F5       A            DATA,1   245,246,119,120   A4-A7
            01 01E55 1  F6       A
            01 01E55 2  77       A
            01 01E55 3  78       A
     7541   01 01E56    F9       A            DATA,1   249,250,0,0       A8-AB
            01 01E56 1  FA       A
            01 01E56 2  00       A
            01 01E56 3  00       A
     7542   01 01E57    00       A            DATA,1   0,0,0,0           AC-AF
            01 01E57 1  00       A
            01 01E57 2  00       A
            01 01E57 3  00       A
     7543   01 01E58    00       A            DATA,1   0,0,0,0           B0-B3
            01 01E58 1  00       A
            01 01E58 2  00       A
            01 01E58 3  00       A
     7544   01 01E59    00       A            DATA,1   0,0,0,0           B4-B7
            01 01E59 1  00       A
            01 01E59 2  00       A
            01 01E59 3  00       A
     7545   01 01E5A    00       A            DATA,1   0,0,0,0           B8-BB
            01 01E5A 1  00       A
            01 01E5A 2  00       A
            01 01E5A 3  00       A
     7546   01 01E5B    00       A            DATA,1   0,0,0,0           BC-BF
            01 01E5B 1  00       A
            01 01E5B 2  00       A
            01 01E5B 3  00       A
     7547                                     PAGE
     7548   01 01E5C    00       A            DATA,1   0,65,66,195       C0-C3
            01 01E5C 1  41       A
            01 01E5C 2  42       A
            01 01E5C 3  C3       A
     7549   01 01E5D    44       A            DATA,1   68,197,198,71     C4-C7
            01 01E5D 1  C5       A
            01 01E5D 2  C6       A
            01 01E5D 3  47       A
     7550   01 01E5E    48       A            DATA,1   72,201,0,0        C8-CB
            01 01E5E 1  C9       A
            01 01E5E 2  00       A
            01 01E5E 3  00       A
     7551   01 01E5F    00       A            DATA,1   0,0,0,0           CC-CF
            01 01E5F 1  00       A
            01 01E5F 2  00       A
            01 01E5F 3  00       A
     7552   01 01E60    00       A            DATA,1   0,202,75,204      D0-D3
            01 01E60 1  CA       A
            01 01E60 2  4B       A
            01 01E60 3  CC       A
     7553   01 01E61    4D       A            DATA,1   77,78,207,80      D4-D7
            01 01E61 1  4E       A
            01 01E61 2  CF       A
            01 01E61 3  50       A
     7554   01 01E62    D1       A            DATA,1   209,210,0,0       D8-DB
            01 01E62 1  D2       A
            01 01E62 2  00       A
            01 01E62 3  00       A
     7555   01 01E63    00       A            DATA,1   0,0,0,0           DC-DF
            01 01E63 1  00       A
            01 01E63 2  00       A
            01 01E63 3  00       A
     7556                                     PAGE
     7557   01 01E64    00       A            DATA,1   0,0,83,212        E0-E3
            01 01E64 1  00       A
            01 01E64 2  53       A
            01 01E64 3  D4       A
     7558   01 01E65    55       A            DATA,1   85,86,215,216     E4-E7
            01 01E65 1  56       A
            01 01E65 2  D7       A
            01 01E65 3  D8       A
     7559   01 01E66    59       A            DATA,1   89,90,0,0         E8-EB
            01 01E66 1  5A       A
            01 01E66 2  00       A
            01 01E66 3  00       A
     7560   01 01E67    00       A            DATA,1   0,0,0,0           EC-EF
            01 01E67 1  00       A
            01 01E67 2  00       A
            01 01E67 3  00       A
     7561   01 01E68    30       A            DATA,1   48,177,178,51     F0-F3
            01 01E68 1  B1       A
            01 01E68 2  B2       A
            01 01E68 3  33       A
     7562   01 01E69    B4       A            DATA,1   180,53,54,183     F4-F7
            01 01E69 1  35       A
            01 01E69 2  36       A
            01 01E69 3  B7       A
     7563   01 01E6A    B8       A            DATA,1   184,57,0,0        F8-FB
            01 01E6A 1  39       A
            01 01E6A 2  00       A
            01 01E6A 3  00       A
     7564   01 01E6B    00       A            DATA,1   0,0,0,255         FC-FF
            01 01E6B 1  00       A
            01 01E6B 2  00       A
            01 01E6B 3  FF       A
     7565                            *
     7566                                     PAGE
     7567                            *
     7568   01 01E6C    6DF03000 A   SRS      WD,15    X'3000'           SENSE RECEIVER STATUS
     7569   01 01E6D    6DF03004 A   STS      WD,15    X'3004'           SENSE TRANSMITTER STATUS
     7570   01 01E6E    6DF03001 A   TRON     WD,15    X'3001'           TURN RECEIVER ON
     7571   01 01E6F    6DF03002 A   TROFF    WD,15    X'3002'           TURN RECEIVER OFF
     7572   01 01E70    6DF03003 A   DISENGAGE WD,15   X'3003'           DISINGAGE BACK TO BACK          *F01
     7573   01 01E71    6DF03007 A   ENGAGE   WD,15    X'3007'           ENGAGE BACK TO BACK             *F01
     7574   01 01E72    6DF03005 A   XDATA    WD,15    X'3005'           TRANSMIT DATA
     7575   01 01E73    6DF0300D A   XLS      WD,15    X'300D'           TRANSMIT LONG SPACE
     7576   01 01E74    6DF0300E A   XSTOP    WD,15    X'300E'           TRANSMIT STOP
     7577   01 01E75    6CF03000 A   LINENO   RD,15    X'3000'           SENSE LINE NUMBER
     7578                            *
     7579                            *
     7580                                     PAGE
     7581                            *
     7582   01 01E76    00000000 A   RMASK    DATA     0
     7583   01 01E77    0000001F A            DATA     31
     7584   01 01E78    0000007F A            DATA     127
     7585   01 01E79    000000FF A            DATA     255
     7586   01 01E7A    000000FF A            DATA     255
     7587   01 01E7B    0000001F A            DATA     31                                                  *F
     7588   01 01E7C    0000003F A            DATA     63                                                  *F
     7589   01 01E7D    000000FF A            DATA     255
     7590                            *        ADDED    FOLLOWING TEMPORARY STORAGE LOCATIONS FOR 'CLM' MODE*F
     7591                            *                                                                     *F
     7592         01 01E7E           CLMTBGIN EQU      %                                                   *F
     7593                            *                                                                     *F
     7594   01 01E7E    FA0A1F02 A   ENDCOUNT DATA     -99999998
     7595   01 01E7F    00000000 A   ELOSS    DATA     0                 ERROR LOSS FLAG                   *F
     7596   01 01E80    00000000 A   COUNTOUT DATA     0,0               HIGH ORDER IN 1'S COMP.           *F
            01 01E81    00000000 A
     7597   01 01E82    00000000 A   MAXDELAY DATA     0                 MAXIMUM 'DXLD' ENTRY (ST1 DIR.)   *F
     7598                            *                                                                     *F
     7599   01 01E83    00000000 A   LSDELAY  DATA     0                 LONG SPACE DELAY
     7600   01 01E84    00000000 A   SLINE    DATA     0                                                   *F
     7601   01 01E85    00000000 A   DELYAL   DATA     0                                                   *F
     7602   01 01E86    00000000 A   CTIME    DATA     0                                                   *F
     7603   01 01E87    00000000 A   CSAVE    DATA     0                                                   *F
     7604   01 01E88    00000000 A   BYTECNT  DATA     0                                                   *F
     7605                            *                                                                     *F
     7606   01 01E89    00000000 A   SLOWLINE DATA     0                 LINE NO. OF SLOWEST LINE          *F
     7607   01 01E8A    00000000 A   1SLOWBIT DATA     0                 ONE BIT TIME FOR THAT LINE        *F
     7608   01 01E8B    00000000 A   STOPFLAG DATA     0                 ONE OF PROG. CONTROL FLAGS        *F
     7609   01 01E8C    00000000 A   STOPTIME DATA     0                 NOMAL TERMINATION TIME D-W SAVE   *F
     7610   01 01E8D    00000000 A   PMBFLAG  DATA     0                 ONE OF PROG. CONTROL FLAGS        *F
     7611   01 01E8E    00000000 A   LASTXINT DATA     0                 TIME OF LAST TRANSMIT INTERRUPT   *F
     7612   01 01E8F    00000000 A   XCOUNT   DATA     0                 TOTAL NO. CHAR TRANS.             *F
     7613   01 01E90    00000000 A   RCOUNT   DATA     0                 TOTAL NO. CHAR REC.               *F
     7614   01 01E91    00000000 A   PAUSE    DATA     0                 FLAG 0 = NO PAUSE                 *F
     7615                            *                                        - = BUFFER FULL PAUSE        *F
     7616                            *                                        + = ERROR LIST FULL PAUSE    *F
     7617   01 01E92    00000000 A   ERRPAUSE DATA     0                 COUNT OF ERROR LIST BYPASSES      *F
     7618                            *                                   COUNT RESET BY ERROR REPORT 'SIO' *F
     7619   01 01E93    00000000 A   LASTWC   DATA     0                 INITIALIZED TO STARTING WORD COUNT*F
     7620   01 01E94    00000000 A   SLLNO    DATA     0                 SLOWEST LINE NO (ACTUAL)          *F
     7621   01 01E95    00000000 A   BUFFPASS DATA     0                 COUNT OF BUFFER WRAP-AROUNDS +1.  *F
     7622   01 01E96    00000000 A   CSLL     DATA     0                 ACTUAL TIME
     7623   01 01E97    00000000 A   RINTCNT  DATA     0                                                   *F
     7624                            *                                                                     *F
     7625   01 01E98    00000000 A   EXECLINE DATA     0                                                   *F
     7626   01 01E99    00000000 A   ERRLIMIT DATA     0                 0 OR PRESET ERROR LIMIT FOR       *F
     7627                            *                                    P3 ENTRY FOR 'ST1' DIRECTIVE     *F
     7628                            *                                     (DEFAULT LIMIT OF 9999)         *F
     7629                            *                                                                     *F
     7630         FFFFFFE4           CLMTEND  EQU      CLMTBGIN-%                                          *F
     7631                            *                                                                     *F
     7632   01 01E9A    FFFFFFFF A   TRANSITF DATA     -1,0              FLAG AND VALUE OF 'IN TRANSIT' CNT*F
            01 01E9B    00000000 A
     7633                            *                                                                     *F
     7634                            *                                                                     *F
     7635   01 01E9C    00001AE6     PATTERNP DATA     PATTERN
     7636                            *
     7637                                     BOUND    4
     7638   01 01E9D    80004000 A   BITAB    DATA     X'80004000'
     7639   01 01E9E    20001000 A            DATA     X'20001000'
     7640   01 01E9F    08000400 A            DATA     X'08000400'
     7641   01 01EA0    02000100 A            DATA     X'02000100'
     7642   01 01EA1    00800040 A            DATA     X'00800040'
     7643   01 01EA2    00200010 A            DATA     X'00200010'
     7644   01 01EA3    00080004 A            DATA     X'00080004'
     7645   01 01EA4    00020001 A            DATA     X'00020001'
     7646                            *
     7647   01 01EA5    01020408 A   BIT01    DATA     X'01020408'
     7648   01 01EA6    10204080 A            DATA     X'10204080'
     7649                            *
     7650   01 01EA7    03001D66     CONPRT   GEN,8,24 3,CVTAB0
     7651   01 01EA8    FF001D67              GEN,8,24 255,CVTAB1
     7652   01 01EA9    FF001E2C              GEN,8,24 255,CVTAB2
     7653   01 01EAA    03001DA7              GEN,8,24 3,CVTAB3
     7654                                     PAGE
     7655                            *
     7656   01 01EAB    EDF01EB4     DARI     WD,15    *DARICODE
     7657   01 01EAC    EDF01EB3     ADRI     WD,15    *ADRICODE
     7658   01 01EAD    EDF01EB5     ENRI     WD,15    *ENRICODE
     7659   01 01EAE    EDF01EB6     AERI     WD,15    *AERICODE
     7660   01 01EAF    EDF01EB8     AEXI     WD,15    *AEXICODE
     7661   01 01EB0    EDF01EB7     DAXI     WD,15    *DAXICODE
     7662   01 01EB1    6DF01100 A   DAINT    WD,15    (1,X'100')
     7663   01 01EB2    6DF01500 A   DEINT    WD,15    (1,X'500')
     7664                            *
     7665   01 01EB3    00001300 A   ADRICODE DATA     X'1300'
     7666   01 01EB4    00001100 A   DARICODE DATA     X'1100'
     7667   01 01EB5    00001400 A   ENRICODE DATA     X'1400'
     7668   01 01EB6    00001200 A   AERICODE DATA     X'1200'
     7669   01 01EB7    00001100 A   DAXICODE DATA     X'1100'
     7670   01 01EB8    00001200 A   AEXICODE DATA     X'1200'
     7671   01 01EB9    00000000 A            DATA     0
     7672                            *
     7673   01 01EBA    6AF013EB     TAB01    BAL,15   TAB06
     7674   01 01EBB    6AF013F3              BAL,15   TAB07
     7675   01 01EBC    6AF0125B              BAL,15   TIO00
     7676   01 01EBD    6AF0127A              BAL,15   AIO00
     7677   01 01EBE    6AF0124A              BAL,15   HIO00
     7678   01 01EBF    6AF0126E              BAL,15   TDV00
     7679   01 01EC0    680013E2              B        TAB05
     7680   01 01EC1    680013E2              B        TAB05
     7681                                     PAGE
     7682                            *
     7683   01 01EC2    20617B0C A   MW00     ZFMW     2,0,97,BA(TEXT00)     PROGRAM HEADER MESSAGE      *G00
     7684                            *                                                                   *G00
     7685                            TEXT00   TEXT 'SIGMA 5/7/9 CHARACTER ORIENTED COMMUNICATIONS ',;    *G00
     7686                                          'CONTROLLER TEST
',;                                  *G00
     7687   01 01EC3    E2C9C7D4 A                 'PROGRAM 704016-G01  MANUAL 901156 G'                 *G01
            01 01EC4    C140F561 A
            01 01EC5    F761F940 A
            01 01EC6    C3C8C1D9 A
            01 01EC7    C1C3E3C5 A
            01 01EC8    D940D6D9 A
            01 01EC9    C9C5D5E3 A
            01 01ECA    C5C440C3 A
            01 01ECB    D6D4D4E4 A
            01 01ECC    D5C9C3C1 A
            01 01ECD    E3C9D6D5 A
            01 01ECE    E240C3D6 A
            01 01ECF    D5E3D9D6 A
            01 01ED0    D3D3C5D9 A
            01 01ED1    40E3C5E2 A
            01 01ED2    E315D7D9 A
            01 01ED3    D6C7D9C1 A
            01 01ED4    D440F7F0 A
            01 01ED5    F4F0F1F6 A
            01 01ED6    60C7F0F1 A
            01 01ED7    4040D4C1 A
            01 01ED8    D5E4C1D3 A
            01 01ED9    40F9F0F1 A
            01 01EDA    F1F5F640 A
            01 01EDB    C7404040 A
     7688                            *UPDATES REVISION LEVELS                                              *C
     7689                            *
     7690   01 01EDC    101C7B74 A   MW01     ZFMW     1,0,28,BA(TEXT01)
     7691   01 01EDD    C9D3D3C5 A   TEXT01   TEXT     'ILLEGAL INTERRUPT ADDRESS   '
            01 01EDE    C7C1D340 A
            01 01EDF    C9D5E3C5 A
            01 01EE0    D9D9E4D7 A
            01 01EE1    E340C1C4 A
            01 01EE2    C4D9C5E2 A
            01 01EE3    E2404040 A
     7692                            *
     7693   01 01EE4    101C7B94 A   MW02     ZFMW     1,0,28,BA(TEXT02)
     7694   01 01EE5    C3D6C340 A   TEXT02   TEXT     'COC DEVICE ADDRESS REJECTED '
            01 01EE6    C4C5E5C9 A
            01 01EE7    C3C540C1 A
            01 01EE8    C4C4D9C5 A
            01 01EE9    E2E240D9 A
            01 01EEA    C5D1C5C3 A
            01 01EEB    E3C5C440 A
     7695   01 01EEC    40404015 A            DATA     X'40404015'                                         *B
     7696   01 01EED    40404015 A            DATA     X'40404015'
     7697   01 01EEE    D37E4040 A   TEXT03   TEXT     'L=    E=          R=          T=            '
            01 01EEF    4040C57E A
            01 01EF0    40404040 A
            01 01EF1    40404040 A
            01 01EF2    4040D97E A
            01 01EF3    40404040 A
            01 01EF4    40404040 A
            01 01EF5    4040E37E A
            01 01EF6    40404040 A
            01 01EF7    40404040 A
            01 01EF8    40404040 A
     7698   01 01EF9    D4C5D47E A            TEXT     'MEM=XXXX'                                          *F
            01 01EFA    E7E7E7E7 A
     7699                            *
     7700   01 01EFB    101C7BF0 A   MW04     ZFMW     1,0,28,BA(TEXT04)
     7701   01 01EFC    404040D9 A   TEXT04   TEXT     '   RECEIVER     NOT ACTIVE  '
            01 01EFD    C5C3C5C9 A
            01 01EFE    E5C5D940 A
            01 01EFF    40404040 A
            01 01F00    D5D6E340 A
            01 01F01    C1C3E3C9 A
            01 01F02    E5C54040 A
     7702                            *
     7703   01 01F03    101C7C10 A   MW05     ZFMW     1,0,28,BA(TEXT05)
     7704   01 01F04    E3D9C1D5 A   TEXT05   TEXT     'TRANSMITTER     NOT ACTIVE  '
            01 01F05    E2D4C9E3 A
            01 01F06    E3C5D940 A
            01 01F07    40404040 A
            01 01F08    D5D6E340 A
            01 01F09    C1C3E3C9 A
            01 01F0A    E5C54040 A
     7705                            *
     7706   01 01F0B    10107C30 A   MW06     ZFMW     1,0,16,BA(TEXT06)
     7707   01 01F0C    E3C5E2E3 A   TEXT06   TEXT     'TESTING ABORTED '
            01 01F0D    C9D5C740 A
            01 01F0E    C1C2D6D9 A
            01 01F0F    E3C5C440 A
     7708                            *
     7709   01 01F10    100E7C44 A   MW07     ZFMW     1,0,14,BA(TEXT07)
     7710   01 01F11    E3C9D4C5 A   TEXT07   TEXT     'TIME=   :  :  '
            01 01F12    7E404040 A
            01 01F13    7A40407A A
            01 01F14    40404040 A
     7711                            *
     7712   01 01F15    10507C58 A   MW08     ZFMW     1,0,80,BA(TEXT08)
     7713   01 01F16    D97E4040 A   TEXT08   TEXT     'R=   CR=         CX=         TE='
            01 01F17    40C3D97E A
            01 01F18    40404040 A
            01 01F19    40404040 A
            01 01F1A    40C3E77E A
            01 01F1B    40404040 A
            01 01F1C    40404040 A
            01 01F1D    40E3C57E A
     7714   01 01F1E    40404040 A            TEXT     '         %E=  .     CSE=        '
            01 01F1F    40404040 A
            01 01F20    406CC57E A
            01 01F21    40404B40 A
            01 01F22    40404040 A
            01 01F23    C3E2C57E A
            01 01F24    40404040 A
            01 01F25    40404040 A
     7715   01 01F26    4040E77E A            TEXT     '  X=   RATE=    '
            01 01F27    404040D9 A
            01 01F28    C1E3C57E A
            01 01F29    40404040 A
     7716                            *
     7717   01 01F2A    10147CAC A   MW09     ZFMW     1,0,20,BA(TEXT09)
     7718   01 01F2B    C9D3D3C5 A   TEXT09   TEXT     'ILLEGAL DIRECTIVE!!!'
            01 01F2C    C7C1D340 A
            01 01F2D    C4C9D9C5 A
            01 01F2E    C3E3C9E5 A
            01 01F2F    C55A5A5A A
     7719                            *
     7720   01 01F30    101A7CC4 A   MW10     ZFMW     1,0,26,BA(TEXT10)
     7721   01 01F31    D9C5C3C5 A   TEXT10   TEXT     'RECEIVE BYTE COUNT IS ODD!'
            01 01F32    C9E5C540 A
            01 01F33    C2E8E3C5 A
            01 01F34    40C3D6E4 A
            01 01F35    D5E340C9 A
            01 01F36    E240D6C4 A
            01 01F37    C45A4040 A
     7722                            *
     7723   01 01F38    10207CE4 A   MW11     ZFMW     1,0,32,BA(TEXT11)
     7724   01 01F39    F240D9C5 A   TEXT11   TEXT     '2 RECV  INTRR : NO DATA XFERED  '
            01 01F3A    C3E54040 A
            01 01F3B    C9D5E3D9 A
            01 01F3C    D9407A40 A
            01 01F3D    D5D640C4 A
            01 01F3E    C1E3C140 A
            01 01F3F    E7C6C5D9 A
            01 01F40    C5C44040 A
     7725                            *
     7726   01 01F41    10187D08 A   MW12     ZFMW     1,0,24,BA(TEXT12)
     7727   01 01F42    E3D9C1D5 A   TEXT12   TEXT     'TRANSMITTER    BUSY     '
            01 01F43    E2D4C9E3 A
            01 01F44    E3C5D940 A
            01 01F45    404040C2 A
            01 01F46    E4E2E840 A
            01 01F47    40404040 A
     7728                            *
     7729   01 01F48    101C7D24 A   MW13     ZFMW     1,0,28,BA(TEXT13)
     7730   01 01F49    D9C5C3C5 A   TEXT13   TEXT     'RECEIVER       NOT INSTALLED'
            01 01F4A    C9E5C5D9 A
            01 01F4B    40404040 A
            01 01F4C    404040D5 A
            01 01F4D    D6E340C9 A
            01 01F4E    D5E2E3C1 A
            01 01F4F    D3D3C5C4 A
     7731                            *
     7732   01 01F50    101C7D44 A   MW14     ZFMW     1,0,28,BA(TEXT14)
     7733   01 01F51    E3D9C1D5 A   TEXT14   TEXT     'TRANSMITTER    NOT INSTALLED'
            01 01F52    E2D4C9E3 A
            01 01F53    E3C5D940 A
            01 01F54    404040D5 A
            01 01F55    D6E340C9 A
            01 01F56    D5E2E3C1 A
            01 01F57    D3D3C5C4 A
     7734                            *
     7735   01 01F58    10127D64 A   MW15     ZFMW     1,0,18,BA(TEXT15)
     7736   01 01F59    D9C5C3C5 A   TEXT15   TEXT     'RECEIVER     CC=  '
            01 01F5A    C9E5C5D9 A
            01 01F5B    40404040 A
            01 01F5C    40C3C37E A
            01 01F5D    40404040 A
     7737                            *
     7738   01 01F5E    10147D7C A   MW16     ZFMW     1,0,20,BA(TEXT16)
     7739   01 01F5F    E3D9C1D5 A   TEXT16   TEXT     'TRANSMITTER    CC=  '
            01 01F60    E2D4C9E3 A
            01 01F61    E3C5D940 A
            01 01F62    404040C3 A
            01 01F63    C37E4040 A
     7740                            *
     7741   01 01F64    101C7D94 A   MW17     ZFMW     1,0,28,BA(TEXT17)
     7742   01 01F65    E2C9D640 A   TEXT17   TEXT     'SIO STATUS           CC=  '
            01 01F66    E2E3C1E3 A
            01 01F67    E4E24040 A
            01 01F68    40404040 A
            01 01F69    40404040 A
            01 01F6A    40C3C37E A
            01 01F6B    40404040 A
     7743                            *
     7744   01 01F6C    101C7DB4 A   MW18     ZFMW     1,0,28,BA(TEXT18)
     7745   01 01F6D    C8C9D640 A   TEXT18   TEXT     'HIO STATUS           CC=  '
            01 01F6E    E2E3C1E3 A
            01 01F6F    E4E24040 A
            01 01F70    40404040 A
            01 01F71    40404040 A
            01 01F72    40C3C37E A
            01 01F73    40404040 A
     7746                            *
     7747   01 01F74    101C7DD4 A   MW19     ZFMW     1,0,28,BA(TEXT19)
     7748   01 01F75    E3C9D640 A   TEXT19   TEXT     'TIO STATUS           CC=  '
            01 01F76    E2E3C1E3 A
            01 01F77    E4E24040 A
            01 01F78    40404040 A
            01 01F79    40404040 A
            01 01F7A    40C3C37E A
            01 01F7B    40404040 A
     7749                            *
     7750   01 01F7C    101A7DF4 A   MW20     ZFMW     1,0,26,BA(TEXT20)
     7751   01 01F7D    E3C5E2E3 A   TEXT20   TEXT     'TEST 2 OUTPUT LIST IS FULL'
            01 01F7E    40F240D6 A
            01 01F7F    E4E3D7E4 A
            01 01F80    E340D3C9 A
            01 01F81    E2E340C9 A
            01 01F82    E240C6E4 A
            01 01F83    D3D34040 A
     7752                            *
     7753   01 01F84    101A7E14 A   MW21     ZFMW     1,0,26,BA(TEXT21)
     7754   01 01F85    E7D4C9E3 A   TEXT21   TEXT     'XMIT INTERRUPT ERROR  L=    '
            01 01F86    40C9D5E3 A
            01 01F87    C5D9D9E4 A
            01 01F88    D7E340C5 A
            01 01F89    D9D9D6D9 A
            01 01F8A    4040D37E A
            01 01F8B    40404040 A
     7755                            *
     7756   01 01F8C    10207E34 A   MW22     ZFMW     1,0,32,BA(TEXT22)
     7757   01 01F8D    E7D4C9E3 A   TEXT22   TEXT     'XMITTER    FAILS TO REPORT BUSY '
            01 01F8E    E3C5D940 A
            01 01F8F    404040C6 A
            01 01F90    C1C9D3E2 A
            01 01F91    40E3D640 A
            01 01F92    D9C5D7D6 A
            01 01F93    D9E340C2 A
            01 01F94    E4E2E840 A
     7758                            *
     7759   01 01F95    101C7E58 A   MW23     ZFMW     1,0,28,BA(TEXT23)
     7760   01 01F96    C9D5D7E4 A   TEXT23   TEXT     'INPUT DATA TRANSFER FAILURE '
            01 01F97    E340C4C1 A
            01 01F98    E3C140E3 A
            01 01F99    D9C1D5E2 A
            01 01F9A    C6C5D940 A
            01 01F9B    C6C1C9D3 A
            01 01F9C    E4D9C540 A
     7761                            *
     7762   01 01F9D    101C7E78 A   MW24     ZFMW     1,0,28,BA(TEXT24)
     7763   01 01F9E    D9C5C3C5 A   TEXT24   TEXT     'RECEIVE     LS BIT NOT SET  '
            01 01F9F    C9E5C540 A
            01 01FA0    40404040 A
            01 01FA1    D3E240C2 A
            01 01FA2    C9E340D5 A
            01 01FA3    D6E340E2 A
            01 01FA4    C5E34040 A
     7764                            *
     7765   01 01FA5    10207E98 A   MW25     ZFMW     1,0,32,BA(TEXT25)
     7766   01 01FA6    D9C5C3C5 A   TEXT25   TEXT     'RECEIVE    FAILED TO XFER DATA  '
            01 01FA7    C9E5C540 A
            01 01FA8    404040C6 A
            01 01FA9    C1C9D3C5 A
            01 01FAA    C440E3D6 A
            01 01FAB    40E7C6C5 A
            01 01FAC    D940C4C1 A
            01 01FAD    E3C14040 A
     7767                            *
     7768   01 01FAE    101C7EBC A   MW26     ZFMW     1,0,28,BA(TEXT26)
     7769   01 01FAF    D9C5C3C5 A   TEXT26   TEXT     'RECEIVE    CC NOT LONG SPACE'
            01 01FB0    C9E5C540 A
            01 01FB1    404040C3 A
            01 01FB2    C340D5D6 A
            01 01FB3    E340D3D6 A
            01 01FB4    D5C740E2 A
            01 01FB5    D7C1C3C5 A
     7770                            *
     7771   01 01FB6    10207EDC A   MW27     ZFMW     1,0,32,BA(TEXT27)
     7772   01 01FB7    D9C5C3C5 A   TEXT27   TEXT     'RECEIVE    CC                   '                *F01
            01 01FB8    C9E5C540 A
            01 01FB9    404040C3 A
            01 01FBA    C3404040 A
            01 01FBB    40404040 A
            01 01FBC    40404040 A
            01 01FBD    40404040 A
            01 01FBE    40404040 A
     7773                            *
     7774   01 01FBF    102C7F00 A   MW28     ZFMW     1,0,44,BA(TEXT28)
     7775   01 01FC0    E3D9C1D5 A   TEXT28   TEXT     'TRANSMISSION PATH DELAY TIME-OUT ERROR  L=  '
            01 01FC1    E2D4C9E2 A
            01 01FC2    E2C9D6D5 A
            01 01FC3    40D7C1E3 A
            01 01FC4    C840C4C5 A
            01 01FC5    D3C1E840 A
            01 01FC6    E3C9D4C5 A
            01 01FC7    60D6E4E3 A
            01 01FC8    40C5D9D9 A
            01 01FC9    D6D94040 A
            01 01FCA    D37E4040 A
     7776                            *
     7777   01 01FCB    100C7F30 A   MW29     ZFMW     1,0,12,BA(TEXT29)
     7778   01 01FCC    C5D5E5C9 A   TEXT29   TEXT     'ENVIRONMENT:'
            01 01FCD    D9D6D5D4 A
            01 01FCE    C5D5E37A A
     7779   01 01FCF    40404DC1 A            TEXT     '  (AT ABORT    )'                                  *F
            01 01FD0    E340C1C2 A
            01 01FD1    D6D9E340 A
            01 01FD2    4040405D A
     7780                            *
     7781   01 01FD3    10147F50 A   MW30     ZFMW     1,0,20,BA(TEXT30)
     7782   01 01FD4    D37E4040 A   TEXT30   TEXT     'L=    XCC=    RCC=  '
            01 01FD5    4040E7C3 A
            01 01FD6    C37E4040 A
            01 01FD7    4040D9C3 A
            01 01FD8    C37E4040 A
     7783                            *
     7784   01 01FD9    101C7F68 A   MW31     ZFMW     1,0,28,BA(TEXT31)
     7785   01 01FDA    D9C5C3E5 A   TEXT31   TEXT     'RECV INTERRUPT ERROR  L=    '
            01 01FDB    40C9D5E3 A
            01 01FDC    C5D9D9E4 A
            01 01FDD    D7E340C5 A
            01 01FDE    D9D9D6D9 A
            01 01FDF    4040D37E A
            01 01FE0    40404040 A
     7786                            *
     7787   01 01FE1    10207F88 A   MW32     ZFMW     1,0,32,BA(TEXT32)
     7788   01 01FE2    E7D4C9E3 A   TEXT32   TEXT     'XMITTER    FAILS TO STAY BUSY   '
            01 01FE3    E3C5D940 A
            01 01FE4    404040C6 A
            01 01FE5    C1C9D3E2 A
            01 01FE6    40E3D640 A
            01 01FE7    E2E3C1E8 A
            01 01FE8    40C2E4E2 A
            01 01FE9    E8404040 A
     7789                            *
     7790                            *
     7791   01 01FEA    10167FAC A   MW33     ZFMW     1,0,22,BA(TEXT33)
     7792   01 01FEB    E2C5D5E2 A   TEXT33   TEXT     'SENSE L=         CC=    '
            01 01FEC    C540D37E A
            01 01FED    40404040 A
            01 01FEE    40404040 A
            01 01FEF    40C3C37E A
            01 01FF0    40404040 A
     7793                            *
     7794   01 01FF1    100C7FC8 A   MW34     ZFMW     1,0,12,BA(TEXT34)
     7795   01 01FF2    C67E4040 A   TEXT34   TEXT     'F=   CC=    '
            01 01FF3    40C3C37E A
            01 01FF4    40404040 A
     7796                            *
     7797   01 01FF5    100C7FD8 A   MW35     ZFMW     1,0,12,BA(TEXT35)
     7798   01 01FF6    5C5CD4C1 A   TEXT35   TEXT     '**MARK**    '
            01 01FF7    D9D25C5C A
            01 01FF8    40404040 A
     7799                            *
     7800   01 01FF9    10147FE8 A   MW36     ZFMW     1,0,20,BA(TEXT36)
     7801   01 01FFA    E3C9D4C5 A   TEXT36   TEXT     'TIME=   :  :  :     '
            01 01FFB    7E404040 A
            01 01FFC    7A40407A A
            01 01FFD    40407A40 A
            01 01FFE    40404040 A
     7802                            *
     7803   01 01FFF    101C8000 A   MW37     ZFMW     1,0,28,BA(TEXT37)
     7804   01 02000    E3C4E540 A   TEXT37   TEXT     'TDV STATUS           CC=    '
            01 02001    E2E3C1E3 A
            01 02002    E4E24040 A
            01 02003    40404040 A
            01 02004    40404040 A
            01 02005    40C3C37E A
            01 02006    40404040 A
     7805                            *
     7806                            *
     7807   01 02007    10208020 A   MW38      ZFMW    1,0,32,BA(TEXT38)
     7808   01 02008    F240D9C5 A   TEXT38    TEXT     '2 RECV INTR  : NO XMIT INTR L=  '
            01 02009    C3E540C9 A
            01 0200A    D5E3D940 A
            01 0200B    407A40D5 A
            01 0200C    D640E7D4 A
            01 0200D    C9E340C9 A
            01 0200E    D5E3D940 A
            01 0200F    D37E4040 A
     7809                            *
     7810   01 02010    100C8044 A   MW39     ZFMW     1,0,12,BA(TEXT39)
     7811   01 02011    D9C5C3C5 A   TEXT39   TEXT     'RECEIVE     '
            01 02012    C9E5C540 A
            01 02013    40404040 A
     7812                            *
     7813   01 02014    100C8054 A   MW40     ZFMW     1,0,12,BA(TEXT40)
     7814   01 02015    E3D9C1D5 A   TEXT40   TEXT     'TRANSMIT    '
            01 02016    E2D4C9E3 A
            01 02017    40404040 A
     7815                            *
     7816   01 02018    15C2C5C7 A   TEXT41   TEXT     '
BEGIN TURN-AROUND TESTING
'                       *B
            01 02019    C9D540E3 A
            01 0201A    E4D9D560 A
            01 0201B    C1D9D6E4 A
            01 0201C    D5C440E3 A
            01 0201D    C5E2E3C9 A
            01 0201E    D5C71540 A
     7817                            *
     7818   01 0201F    10208080 A   MW42     ZFMW     1,0,32,BA(TEXT42)
     7819   01 02020    D9C5C3C5 A   TEXT42   TEXT     'RECEIVE    (NOT OFF AND NOT LS)'                 *F01
            01 02021    C9E5C540 A
            01 02022    4040404D A
            01 02023    D5D6E340 A
            01 02024    D6C6C640 A
            01 02025    C1D5C440 A
            01 02026    D5D6E340 A
            01 02027    D3E25D40 A
     7820                            *
     7821   01 02028    101A80A4 A   MW43     ZFMW     1,0,26,BA(TEXT43)
     7822   01 02029    D9C5C3C5 A   TEXT43   TEXT     'RECEIVE    DID NOT TURN ON'
            01 0202A    C9E5C540 A
            01 0202B    404040C4 A
            01 0202C    C9C440D5 A
            01 0202D    D6E340E3 A
            01 0202E    E4D9D540 A
            01 0202F    D6D54040 A
     7823   01 02030    102280C4 A   MW44     ZFMW     1,0,34,BA(TEXT44)
     7824   01 02031    C1C9D640 A   TEXT44   TEXT     'AIO STATUS           DC=     CC=    '
            01 02032    E2E3C1E3 A
            01 02033    E4E24040 A
            01 02034    40404040 A
            01 02035    40404040 A
            01 02036    40C4C37E A
            01 02037    40404040 A
            01 02038    40C3C37E A
            01 02039    40404040 A
     7825                            *
     7826   01 0203A    101E80EC A   MW45     ZFMW     1,0,30,BA(TEXT45)
     7827   01 0203B    C9D5E3C5 A   TEXT45   TEXT     'INTERRUPT NOT PENDING FOR AIO '
            01 0203C    D9D9E4D7 A
            01 0203D    E340D5D6 A
            01 0203E    E340D7C5 A
            01 0203F    D5C4C9D5 A
            01 02040    C740C6D6 A
            01 02041    D940C1C9 A
            01 02042    D6404040 A
     7828                            *
     7829   01 02043    10168110 A   MW46     ZFMW     1,0,22,BA(TEXT46)
     7830   01 02044    E3C5E2E3 A   TEXT46   TEXT     'TEST 2 ERROR NUMBER  '
            01 02045    40F240C5 A
            01 02046    D9D9D6D9 A
            01 02047    40D5E4D4 A
            01 02048    C2C5D940 A
            01 02049    40404040 A
     7831                            *
     7832   01 0204A    1008812C A   MW47     ZFMW     1,0,8,BA(TEXT47)
     7833   01 0204B    40C3C37E A   TEXT47   TEXT     ' CC=    '
            01 0204C    40404040 A
     7834                            *
     7835   01 0204D    100C8138 A   MW48     ZFMW     1,0,12,BA(TEXT48)
     7836   01 0204E    40C5E67E A   TEXT48   TEXT     ' EW=        '
            01 0204F    40404040 A
            01 02050    40404040 A
     7837                            *
     7838   01 02051    10148148 A   MW49     ZFMW     1,0,20,BA(TEXT49)
     7839   01 02052    C9D3D3C5 A   TEXT49   TEXT     'ILLEGAL OUTPUT ENTRY'
            01 02053    C7C1D340 A
            01 02054    D6E4E3D7 A
            01 02055    E4E340C5 A
            01 02056    D5E3D9E8 A
     7840                            *
     7841   01 02057    10148160 A   MW50     ZFMW     1,0,20,BA(TEXT50)
     7842   01 02058    D9C5C3C5 A   TEXT50   TEXT     'RECEIVE PARITY ERROR'
            01 02059    C9E5C540 A
            01 0205A    D7C1D9C9 A
            01 0205B    E3E840C5 A
            01 0205C    D9D9D6D9 A
     7843                            *
     7844   01 0205D    202E8178 A   MW51     ZFMW     2,0,46,BA(%+1)                                      *F
     7845   01 0205E    C9D6D740 A            TEXT     'IOP CHANNEL REGISTER (FAST MEMORY) MALFUNCTION'    *F
            01 0205F    C3C8C1D5 A
            01 02060    D5C5D340 A
            01 02061    D9C5C7C9 A
            01 02062    E2E3C5D9 A
            01 02063    404DC6C1 A
            01 02064    E2E340D4 A
            01 02065    C5D4D6D9 A
            01 02066    E85D40D4 A
            01 02067    C1D3C6E4 A
            01 02068    D5C3E3C9 A
            01 02069    D6D54040 A
     7846   01 0206A    102481AC A   MW52     ZFMW     1,0,36,BA(TEXT52) ML=0.BC=36                    (20)*F
     7847   01 0206B    E4D5C1C2 A   TEXT52   TEXT     'UNABLE TO PROCEED WITH CLM TESTING  '              *F
            01 0206C    D3C540E3 A
            01 0206D    D640D7D9 A
            01 0206E    D6C3C5C5 A
            01 0206F    C440E6C9 A
            01 02070    E3C840C3 A
            01 02071    D3D440E3 A
            01 02072    C5E2E3C9 A
            01 02073    D5C74040 A
     7848                            *                                                                     *F
     7849   01 02074    101C81D4 A   MW53     ZFMW     1,0,28,BA(TEXT53) ML=0.BC=28                    (21)*F
     7850   01 02075    E2C9D640 A   TEXT53   TEXT     'SIO FOR FORMAT ONE REJECTED '                      *F
            01 02076    C6D6D940 A
            01 02077    C6D6D9D4 A
            01 02078    C1E340D6 A
            01 02079    D5C540D9 A
            01 0207A    C5D1C5C3 A
            01 0207B    E3C5C440 A
     7851                            *                                                                     *F
     7852   01 0207C    102481F4 A   MW54     ZFMW     1,0,36,BA(TEXT54) ML=0.BC=40                    (22)*F
     7853   01 0207D    C6C1C9D3 A   TEXT54   TEXT     'FAILED TO RECEIVE X''1F'' FOR LINE      '          *F
            01 0207E    C5C440E3 A
            01 0207F    D640D9C5 A
            01 02080    C3C5C9E5 A
            01 02081    C540E77D A
            01 02082    F1C67D40 A
            01 02083    C6D6D940 A
            01 02084    D3C9D5C5 A
            01 02085    40404040 A
            01 02086    40404040 A
     7854                            *                                                                     *F
     7855   01 02087    10188220 A   MW55     ZFMW     1,0,24,BA(TEXT55) ML=0.BC=24                    (23)*F
     7856   01 02088    E3E4D9D5 A   TEXT55   TEXT     'TURN AROUND SIO REJECTED'                          *F
            01 02089    40C1D9D6 A
            01 0208A    E4D5C440 A
            01 0208B    E2C9D640 A
            01 0208C    D9C5D1C5 A
            01 0208D    C3E3C5C4 A
     7857                            *                                                                     *F
     7858   01 0208E    1018823C A   MW56     ZFMW     1,0,24,BA(TEXT56) ML=0.BC=24                    (24)*F
     7859   01 0208F    C3D6C340 A   TEXT56   TEXT     'COC FAILED TO STAY BUSY'                           *F
            01 02090    C6C1C9D3 A
            01 02091    C5C440E3 A
            01 02092    D640E2E3 A
            01 02093    C1E840C2 A
            01 02094    E4E2E840 A
     7860                            *                                                                     *F
     7861   01 02095    10248258 A   MW57     ZFMW     1,0,36,BA(TEXT57) ML=0.BC=36                    (25)*F
     7862   01 02096    D4D6D9C5 A   TEXT57   TEXT     'MORE CHAR RECEIVED THAN TRANSMITTED '              *F
            01 02097    40C3C8C1 A
            01 02098    D940D9C5 A
            01 02099    C3C5C9E5 A
            01 0209A    C5C440E3 A
            01 0209B    C8C1D540 A
            01 0209C    E3D9C1D5 A
            01 0209D    E2D4C9E3 A
            01 0209E    E3C5C440 A
     7863                            *                                                                     *F
     7864   01 0209F    101C8280 A   MW58     ZFMW     1,0,28,BA(TEXT58) ML=0.BC=28                    (26)*F
     7865   01 020A0    E3D9C1D5 A   TEXT58   TEXT     'TRANSMITTER    REMAINS BUSY '                      *F
            01 020A1    E2D4C9E3 A
            01 020A2    E3C5D940 A
            01 020A3    404040D9 A
            01 020A4    C5D4C1C9 A
            01 020A5    D5E240C2 A
            01 020A6    E4E2E840 A
     7866                            *                                                                     *F
     7867   01 020A7    103482A0 A   MW59     ZFMW     1,0,52,BA(TEXT59) ML=0.BC=52                    (27)*F
     7868   01 020A8    D9C5C3C5 A   TEXT59   TEXT     'RECEIVE XX,  TURNAROUND TRANSMITTER '              *F
            01 020A9    C9E5C540 A
            01 020AA    E7E76B40 A
            01 020AB    40E3E4D9 A
            01 020AC    D5C1D9D6 A
            01 020AD    E4D5C440 A
            01 020AE    E3D9C1D5 A
            01 020AF    E2D4C9E3 A
            01 020B0    E3C5D940 A
     7869   01 020B1    C9E240D5 A            TEXT     'IS NOT ACTIVE   '                                  *F
            01 020B2    D6E340C1 A
            01 020B3    C3E3C9E5 A
            01 020B4    C5404040 A
     7870                            *                                                                     *F
     7871   01 020B5    103482D8 A   MW60     ZFMW     1,0,52,BA(TEXT60) ML=0.BC=52                    (29)*F
     7872   01 020B6    D9C5C3C5 A   TEXT60   TEXT     'RECEIVE XX,  TURNAROUND TRANSMITTER '              *F
            01 020B7    C9E5C540 A
            01 020B8    E7E76B40 A
            01 020B9    40E3E4D9 A
            01 020BA    D5C1D9D6 A
            01 020BB    E4D5C440 A
            01 020BC    E3D9C1D5 A
            01 020BD    E2D4C9E3 A
            01 020BE    E3C5D940 A
     7873   01 020BF    C1D3D9C5 A            TEXT     'ALREADY SELECTED'                                  *F
            01 020C0    C1C4E840 A
            01 020C1    E2C5D3C5 A
            01 020C2    C3E3C5C4 A
     7874                            *                                                                     *F
     7875                            *                                                                     *F
     7876   01 020C3    101C8310 A   MW62     ZFMW     1,0,28,BA(TEXT62) ML=0.BC=28                    (28)*F
     7877   01 020C4    C4C1E3C1 A   TEXT62   TEXT     'DATA ERROR FOR RECEIVER DD  '                      *F
            01 020C5    40C5D9D9 A
            01 020C6    D6D940C6 A
            01 020C7    D6D940D9 A
            01 020C8    C5C3C5C9 A
            01 020C9    E5C5D940 A
            01 020CA    C4C44040 A
     7878                            *                                                                     *F
     7879   01 020CB    10488330 A   MW63     ZFMW     1,0,72,BA(TEXT63) ML=2.BC=72                        *F
     7880   01 020CC    D3D6D5C7 A   TEXT63   TEXT     'LONG SPACE RECEIVED  00000'                        *F
            01 020CD    40E2D7C1 A
            01 020CE    C3C540D9 A
            01 020CF    C5C3C5C9 A
            01 020D0    E5C5C440 A
            01 020D1    40F0F0F0 A
            01 020D2    F0F04040 A
     7881   01 020D3    6B40E3D9 A            TEXT     ', TRANSMITTER XX  SENT 00000 FOR MODE 3 ''SLS'''   *F
            01 020D4    C1D5E2D4 A
            01 020D5    C9E3E3C5 A
            01 020D6    D940E7E7 A
            01 020D7    4040E2C5 A
            01 020D8    D5E340F0 A
            01 020D9    F0F0F0F0 A
            01 020DA    40C6D6D9 A
            01 020DB    40D4D6C4 A
            01 020DC    C540F340 A
            01 020DD    7DE2D3E2 A
            01 020DE    7D404040 A
     7882                            *                                                                     *F
     7883   01 020DF    10508380 A   MW64     ZFMW     1,0,80,BA(TEXT64)                                   *F
     7884   01 020E0    C3D3D47A A   TEXT64   TEXT     'CLM: LS=00000000    CSE=00000000     RE=00000000'  *F
            01 020E1    40D3E27E A
            01 020E2    F0F0F0F0 A
            01 020E3    F0F0F0F0 A
            01 020E4    40404040 A
            01 020E5    C3E2C57E A
            01 020E6    F0F0F0F0 A
            01 020E7    F0F0F0F0 A
            01 020E8    40404040 A
            01 020E9    40D9C57E A
            01 020EA    F0F0F0F0 A
            01 020EB    F0F0F0F0 A
     7885   01 020EC    40E3E7C3 A            TEXT     ' TXC=00000000    TRC=00000000   '                  *F
            01 020ED    7EF0F0F0 A
            01 020EE    F0F0F0F0 A
            01 020EF    F0404040 A
            01 020F0    40E3D9C3 A
            01 020F1    7EF0F0F0 A
            01 020F2    F0F0F0F0 A
            01 020F3    F0404040 A
     7886                            *                                                                     *F
     7887   01 020F4    100C83D4 A   MW65     ZFMW     1,0,12,BA(TEXT65) ML=0.BC=12                        *F
     7888   01 020F5    C3D3D440 A   TEXT65   TEXT     'CLM SUMMARY'                                       *F
            01 020F6    E2E4D4D4 A
            01 020F7    C1D9E840 A
     7889                            *                                                                     *F
     7890   01 020F8    303483E4 A   MW61     ZFMW     3,0,52,BA(TEXT61) ML=0.BC=52                    (31)*F
     7891   01 020F9    D9C5C3C5 A   TEXT61   TEXT     'RECEIVE XX,  TURNAROUND TRANSMITTER '              *F
            01 020FA    C9E5C540 A
            01 020FB    E7E76B40 A
            01 020FC    40E3E4D9 A
            01 020FD    D5C1D9D6 A
            01 020FE    E4D5C440 A
            01 020FF    E3D9C1D5 A
            01 02100    E2D4C9E3 A
            01 02101    E3C5D940 A
     7892   01 02102    C6D6D9D4 A            TEXT     'FORMAT MISMATCH '                                  *F
            01 02103    C1E340D4 A
            01 02104    C9E2D4C1 A
            01 02105    E3C3C840 A
     7893                            *                                                                     *F
     7894   01 02106    101E841C A   MW66     ZFMW     1,0,30,BA(TEXT66) ML=0.BC=30                    (30)*F
     7895   01 02107    C5E7C3C5 A   TEXT66   TEXT     'EXCESSIVE ERRORS FOR  LINE  DD  '                  *F
            01 02108    E2E2C9E5 A
            01 02109    C540C5D9 A
            01 0210A    D9D6D9E2 A
            01 0210B    40C6D6D9 A
            01 0210C    4040D3C9 A
            01 0210D    D5C54040 A
            01 0210E    C4C44040 A
     7896                            *                                                                     *F
     7897   01 0210F    101E8440 A   MW67     ZFMW     1,0,30,BA(TEXT67) ML=0.BC=30                    (32)*F
     7898   01 02110    C9D3D3C5 A   TEXT67   TEXT     'ILLEGAL L. S. ON RECEIVER   DD  '                  *F
            01 02111    C7C1D340 A
            01 02112    D34B40E2 A
            01 02113    4B40D6D5 A
            01 02114    40D9C5C3 A
            01 02115    C5C9E5C5 A
            01 02116    D9404040 A
            01 02117    C4C44040 A
     7899                            *                                                                     *F
     7900   01 02118    10208464 A   MW68     ZFMW     1,0,32,BA(TEXT68) ML=0.BC=32                    (33)*F
     7901   01 02119    C9D5C3D6 A   TEXT68   TEXT     'INCORRECT L. S. ON RECEIVER DD  '                  *F
            01 0211A    D9D9C5C3 A
            01 0211B    E340D34B A
            01 0211C    40E24B40 A
            01 0211D    D6D540D9 A
            01 0211E    C5C3C5C9 A
            01 0211F    E5C5D940 A
            01 02120    C4C44040 A
     7902                            *                                                                     *F
     7903   01 02121    101E8488 A   MW69     ZFMW     1,0,30,BA(TEXT69) ML=0.BC=30                    (34)*F
     7904   01 02122    C4D6E4C2 A   TEXT69   TEXT     'DOUBLE L. S. FOR RECEIVER   DD  '                  *F
            01 02123    D3C540D3 A
            01 02124    4B40E24B A
            01 02125    40C6D6D9 A
            01 02126    40D9C5C3 A
            01 02127    C5C9E5C5 A
            01 02128    D9404040 A
            01 02129    C4C44040 A
     7905                            *                                                                     *F
     7906   01 0212A    101E84AC A   MW70     ZFMW     1,0,30,BA(TEXT70) ML=0.BC=30                    (35)*F
     7907   01 0212B    D34BE24B A   TEXT70   TEXT     'L.S. MISSING FOR RECEIVER   DD  '                  *F
            01 0212C    40D4C9E2 A
            01 0212D    E2C9D5C7 A
            01 0212E    40C6D6D9 A
            01 0212F    40D9C5C3 A
            01 02130    C5C9E5C5 A
            01 02131    D9404040 A
            01 02132    C4C44040 A
     7908   01 02133    104784D0 A   MW71     ZFMW     1,0,71,BA(TEXT71)                                   *F
     7909                            TEXT71   TEXT     'LONG SPACE RECEIVED 000000 ',;                     *F
     7910   01 02134    D3D6D5C7 A                     ' TRANSMITTER XX SENT 000000 FOR MODE D ''SLS'''    *F
            01 02135    40E2D7C1 A
            01 02136    C3C540D9 A
            01 02137    C5C3C5C9 A
            01 02138    E5C5C440 A
            01 02139    F0F0F0F0 A
            01 0213A    F0F04040 A
            01 0213B    E3D9C1D5 A
            01 0213C    E2D4C9E3 A
            01 0213D    E3C5D940 A
            01 0213E    E7E740E2 A
            01 0213F    C5D5E340 A
            01 02140    F0F0F0F0 A
            01 02141    F0F040C6 A
            01 02142    D6D940D4 A
            01 02143    D6C4C540 A
            01 02144    C4407DE2 A
            01 02145    D3E27D40 A
     7911         01 02146           ZEXADR   EQU      %                                                   *D
     7912   01 02146    00002183              DATA     L(ZEXADR)         BASE TABLE ADDRESS                *D
     7913         01 00688                    END      ZCMS              TO COMPUTE MEMORY SIZE
            01 02147    000000FF A
            01 02148    00000002 A
            01 02149    7F0003FF A
            01 0214A    E4D5E4E2 A
            01 0214B    C5C44015 A
            01 0214C    E6F27E40 A
            01 0214D    00001FFF A
            01 0214E    00010000 A
            01 0214F    00000070 A
            01 02150    00000100 A
            01 02151    0000003F A
            01 02152    00020000 A
            01 02153    00100000 A
            01 02154    00200000 A
            01 02155    FFFEFFFF A
            01 02156    00000007 A
            01 02157    0000001F A
            01 02158    00080000 A
            01 02159    FFF7FFFF A
            01 0215A    FFFF0000 A
            01 0215B    00400000 A
            01 0215C    FFBFFFFF A
            01 0215D    FFFBFFFF A
            01 0215E    01000000 A
            01 0215F    00001F3F A
            01 02160    F1B00000 A
            01 02161    F0FF0000 A
            01 02162    70000000 A
            01 02163    10000000 A
            01 02164    08100000 A
            01 02165    00000080 A
            01 02166    F8B00000 A
            01 02167    08000000 A
            01 02168    FFFDFFFF A
            01 02169    80000000 A
            01 0216A    04000000 A
            01 0216B    00900000 A
            01 0216C    FBFFFFF0 A
            01 0216D    FBFFFFFF A
            01 0216E    00800000 A
            01 0216F    02000000 A
            01 02170    0000FFBF A
            01 02171    FDFFFFFD A
            01 02172    FDFFFFFF A
            01 02173    00A00000 A
            01 02174    FFFFFFF0 A
            01 02175    30300000 A
            01 02176    0000000A A
            01 02177    000000F0 A
            01 02178    40404040 A
            01 02179    001B7740 A
            01 0217A    00007530 A
            01 0217B    000001F4 A
            01 0217C    F0F0F0F0 A
            01 0217D    000000FE A
            01 0217E    00001000 A
            01 0217F    00000018 A
            01 02180    0000000F A
            01 02181    000007FF A
            01 02182    00000015 A
            01 02183    00002146
            01 02184    FFFFFFE4 A

  CONTROL SECTION SUMMARY: 01 02185   PT 0     02 02878   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   19:52 JUN 20,'83    SIGMA 5-9 CHAR ORIENT COMM CONT 704016-51G01 2-20-73                  PAGE    3
A  ABORT           2412-CNAME
   ABORTLOC        5152-DATA    5165/STM     5198/LB*     5205/LB      7480/XPSD
   ADAIOR          7198/STW     7208-DATA
   ADCP01          7157/STB     7160/STW     7176/LI      7212-DATA
   ADDRGOOD        2812/XPSD    2814-DATA
   ADIOI           7191/XPSD    7193-DATA    7205/LPSD
   ADIOIL          7172/LW      7191-XPSD
   ADRI            7657-WD
   ADRICODE        2800/STB     7657/WD*     7665-DATA
   ADU             2395/ZFSAT   7136-LW
   ADUIO           7141/STW     7144-DATA    7177/SIO*    7202/CB
   ADXFLG          7170/STW     7187/MTW     7201/MTW     7209-DATA
   AERI            3352/EXU     6437/EXU     6559/EXU     7659-WD
   AERICODE        2803/STB     7659/WD*     7668-DATA
   AEXI            3350/EXU     6374/EXU     6439/EXU     6622/EXU     7660-WD
   AEXICODE        2806/STB     7660/WD*     7670-DATA
   AIO00           2392/ZFSAT   5857-TESTIT  7676/BAL
   AIO01           5864/B       5874-LCI
   ALARM           2384/ZFSAT   4854-MTW
   ALINK           7255/LW      7483-XPSD
   BITAB           2843/LH      7638-DATA
   BIT01           7017/LB      7257/LB      7647-DATA
   BUFFMSG         2185/STW     2192/STW     2193/LW      2255-TEXT
   BUFFPASS        4333/MTW     4407/MTW     4413/AND     7621-DATA
   BYTECNT         3834/STW     3843/LCW     4355/LW      4399/AW      7604-DATA
   CHAIN130        3133/LW      3230/LW      3344/LW      3409/LW      7490-DATA
   CLINK           7247/LW      7480-XPSD
   CLMDONE         3882/BCS     3885/BCS     3887/BCR     3927-LI
   CLME00          3872/B       3879-LW      3911/BCR
   CLME01          3880/BCS     3898-RD      3905/B       3912/B       3922/B       3952/B       4046/B
   CLME02          3948-BIR     3966/BCR
   CLME03          3947/BCS     3956-SCS
   CLME04          4041-WD      4067/BCR     4070/BCR     4077/BCS     4084/LI
   CLMLSREC        3995/AW      4572/MTW     5642/LW      7369-RES
   CLMMODE         3621/BCS     3644-LI      3651/BCR     3654/B
   CLMMODE1        3665-RD      3680/BCS
   CLMMSG          3643-TEXT    7342/GEN
   CLMRINT         4316-DATA    4368/LPSD    7481/XPSD
   CLMRINTC        3709/LW      7481-XPSD
   CLMRINT0        4317/LPSD    4320-GEN     4322/STM     4323/STD     4364/LD      4366/LM
   CLMRINT1        4326/BCR     4329/BCR     4335-TIO
   CLMRINT2        4348-LW      4396/B
   CLMRINT3        4364-LD      4376/B       4382/B
   CLMRINT4        4362/BCS     4370-LW
   CLMRINT5        4346/BCS     4387-SW
   CLMRINT6        4390-LCW     4401/B       4506/BCR     4519/BCS     4526/B       4551/B       4588/B
   CLMRINT7        4474/BCS     4499-LW
   CLMRINT8        4528-ABORT
   CLMRINT9        4430/BCS     4553-LI
   CLMTBGIN        7592-EQU     7630/EQU
   CLMTEND         3084/LW      7240/LI      7630-EQU
   CLMTO           3093/STW     3730/STW     3749/STW     4066/LW      4069/LW      4083/STW     4137/STW
      4155/STW     4198/STW     4205/STW     4208/LW      4234/STW     4237/CW      4242/AW      4253/STW
      4272/STW     7363-RES
   CLMXINT         4085/STW     4088/STW     4102-DATA    4104/STD     4105/STW     4149/LD      4150/LW
      4152/LPSD    7479/XPSD
   CLMXINTA        4166/BCS     4217/BCS     4283-EQU
   CLMXINTB        4154/LW*     4265/LW*     4276/BCS     4282/B       4300-CW
   CLMXINTC        3707/LW      7479-XPSD
   CLMXINTP        4091/B       4164-EQU
   CLMXINT0        4129-EQU     4193/B
   CLMXINT1        4141-EXU     4156/B       4195/BCS     4200/B       4206/B       4260/B       4273/B
   CLMXINT2        4142/BCR     4154-LW
   CLMXINT3        4124/BCS     4127/BCS     4158-LW
   CLMXINT4        4191-MTW
   CLMXINT6        4160/BCS     4197-LI
   CLMXINT7        4162/BCS     4201-LW
   CLMXINT8        4212/B       4229/B       4239/B       4243/BCR     4247/B       4250-EXU     4295/BCS
      4304/B
   CLMXINT9        4251/BCR     4271-LW      4281/BCS     4286/BCR     4289/BCS     4292/BCS     4296/B
      4307/B
   CLMXLS          4259/MTW     5635/LW      7371-RES
   CLM10           3782-BIR     3788/BCS     3807/B
   CLM11           3757/BCR     3784/B       3809-TIO
   CLM2            3670-BIR     3676/BCR
   CLM3            3678-LW
   CLM4            3671/B       3684-LI
   CLM6            3688/B       3696-WD
   CLM7            3707-LW
   CLM7A           3722-LW      3736/BIR
   CLM8            3736-BIR     3741/BCS     3752/B
   CLM9            3737/B       3756-LW
   CMASK           2562/STW     2577/LW      2591/AND     2592/AND     7404-DATA
   CMP             6190/BCR     6197-CI
   COCUEXIT        2761/STW     2783/LW      2809-B       2821/LW
   COCURD          2781-EXU     2820/EXU
   CODE             281-CNAME
   CODECON         2386/ZFSAT   6650-TESTIT
   CODE01          6667-BAL     6673/BCR     6679/B       6684/BCR
   CODE02          6671/BCR     6680-STB
   CODE03          6669/BCR     6685-LI
   CODE04          6686-CW      6690/B
   CODE05          6687/BCS     6691-LW
   COMP            6345/STW     6379/CW      6408/STW     6533/STW     6538/STW     6544/CW      6547/LW
      7385-RES
   CONPRT          6652/LW      7063/LW      7650-GEN
   CONVERT         4678/BAL     4681/BAL     4765/BAL     4767/BAL     4771/BAL     5080/BAL     5082/BAL
      5084/BAL     5086/BAL     5131-LI      5691/BAL     5724/BAL     5882/BAL     5884/BAL     5887/BAL
      5923/BAL     6242/BAL
   COUNTOUT        3508/STW     3886/LW      4126/MTW     7596-DATA
   CPINT           2763/STW     2808/STW     5515-DATA    7033/AND     7244/STW     7483/XPSD
   CP01            7271-DATA    7274/GEN
   CP02            7277-GEN
   CP03            5121/STW     5122/LI      7280-GEN
   CP04            2766/LI      2948/LI      2963/LI      5749/LD      7283-DATA
   CP05            7286-GEN
   CP06            7289-GEN
   CP07            7292-DATA    7295/GEN
   CP08            7298-GEN
   CP09            7301-GEN
   CP10            3522/LI      7304-GEN
   CP11            6113/LI      7307-GEN
   CP12            6016/LI      7310-DATA
   CP13            6372/LI      7313-GEN     7316/GEN
   CP14            7316-GEN
   CP15            6433/LI      7319-GEN     7322/GEN
   CP16            7322-GEN
   CP17            6097/LI      6207/LI      6557/LI      7325-GEN
   CP18            6949/LI      7328-GEN
   CP19            6981/LI      7331-GEN
   CP21            6998/LI      7334-GEN
   CP22            3134/STW     3135/LI      3231/STW     3232/LI      3345/STW     3346/LI      3410/STW
      3411/LI      3761/STW     3764/LI      7336-GEN     7339/GEN
   CP23            3704/LI      7342-GEN
   CP24            3833/STH     3850/STH     3851/LI      7344-GEN     7346/GEN
   CSAVE           3441/STW     3444/LW      3463/CW      3466/LW      3472/LW      7603-DATA
   CSETWT          2570/MTW     3091/STW     3996/AW      4495/MTW     5626/LW      7359-RES
   CSLL            3445/CW      3447/STW     4298/DATA    7622-DATA
   CTIME           3367/STW     3440/SW      3462/SW      7602-DATA
   CVTAB0          7380-RES     7650/GEN
   CVTAB1          7381-RES     7651/GEN
   CVTAB2          7494-DATA    7652/GEN
   CVTAB3          7382-RES     7653/GEN
   CV01            4001/BAL     4005/BAL     4009/BAL     4014/BAL     4019/BAL     4875/BAL     4880/BAL
      4887/BAL     4891/BAL     5586/BAL     5591/BAL     5599/BAL     5605/BAL     5620/BAL     5623/BAL
      5627/BAL     5637/BAL     5643/BAL     5665-BAL
   CV02            4999/BAL     5008-CI      5014/BDR     6675/BAL
   DAINT           5493/LW      7227/LW      7662-WD
   DARC00          2357/ZFSAT   2914-LI      2930/B
   DARI            3623/EXU     6458/EXU     6569/EXU     7656-WD
   DARICODE        2801/STB     7656/WD*     7666-DATA
   DAXC00          2356/ZFSAT   2875-LI
   DAXI            3625/EXU     6394/EXU     6460/EXU     6639/EXU     7661-WD
   DAXICODE        2805/STB     7661/WD*     7669-DATA
   DEINT           5494/LW      7228/LW      7663-WD
   DELAY           2385/ZFSAT   4737-TESTIT  6427/BAL     6508/BAL
   DELYAL          7601-DATA
   DEVNB           5267/B       5432-LW
   DIAL            2397/ZFSAT   7168-STW
   DIALEX          7180-LI      7188/BCS
   DIALRT          7168/STW     7182/LW      7210-DATA
   DIAL01          7178/BCR     7187-MTW
   DIC00           2401/ZFSAT   6295-STW
   DIC01           6299/BCS     6311-STW
   DIOTEST         2811/XPSD    2819-DATA
   DISENGAGE       2936/EXU     2967/EXU     5483/EXU     6206/EXU     7572-WD
   DLAY00          2362/ZFSAT   4601-LW
   DLC00           2403/ZFSAT   6317-STW
   DLC01           6321/BCS     6324-LI
   DLC02           6325-LW      6329/BIR
   DLC03           6328/BCR     6331-STW
   DLSIR           5273/B       5462-LB
   DOC00           2402/ZFSAT   6263-STW
   DOC3            6276-LI
   DOC4            6267/BCS     6283-STW
   DOC5            6270/BCR     6285-LW
   DRC00           2359/ZFSAT   2929-LI
   DSAVE1          4739/STW     4748/LW      7444-DATA
   DSAVE2          4740/STW     4749/LW      7445-DATA
   DTWT            3437/LW      3589/AW      3725/LW      4204/LW      4211/LW      4216/CW      4612/STW
      7354-RES
   DXC00           2358/ZFSAT   2922-LI
   DXFAIL          5232/B       5293-LB
   DXLD00          2363/ZFSAT   4628-TESTIT
   ECHO            2398/ZFSAT   6339-TESTIT
   ECH01           6356/BCR     6364-CW
   ECH02           6367/BCR     6372-LI
   ECH03           6377-TIO     6384/BCR     6410/B
   ECH03A          6382/BCS     6390-HIO
   ECH04           6380/BCS     6396-LW
   ECH20           6365/BCR     6411-LB
   ECH20A          6414/BCR     6421-EXU
   ECH21           6434-SIO
   ECH22           6440-RD      6443/BCR
   ECH23           6441/BCS     6445-LB      6469/B
   ECH24           6444/B       6464-LI
   ECH30           6409/BAL     6470-STW     6623/BAL     6760/BAL
   ECH31           6472-LW      6476/BIR
   ECH32           6473/BCR     6476-BIR     6491/B
   ECH33           6478/BCR     6483-LW      6493/BCR     6496/B
   ECH34           6475/BCS     6485-LB
   ECH35           6480/BCS     6492-CW
   ECH40           6354/BAL     6497-WD
   ECH41           6499-LW      6512/BIR
   ECH42           6500/BCR     6511-STW
   EEFL            5270/B       5444-LB
   ELIST1          2605/PUSH    2607/PUSH    4543/PUSH    4546/PUSH    4549/PUSH    5075/PULL    5076/PULL
      5113/PULL    7378-RES
   ELOSS           3083/STW     7595-DATA
   EMODE           7398-DATA
   ENDCOUNT        3858/STW     4191/MTW     7594-DATA
   ENGAGE          2952/EXU     3102/EXU     5947/EXU     7573-WD
   ENGAGEERR       2980/B       2982/B       3003-LH
   ENRI            2551/EXU     7658-WD
   ENRICODE        2802/STB     7658/WD*     7667-DATA
   ENVIRO          2364/ZFSAT   4649-TESTIT
   ENVI00          4664-LW      4690/BIR
   ENVI01          4665/BCR     4670/B       4671-LW
   ENVI02          4667/BCR     4677/BCR     4689-AI
   ERRLIMIT        3082/STW     3559/STW     5590/SW      5595/SW      7626-DATA
   ERROR           3572/XPSD    3637/XPSD    3901/XPSD    5072-DATA    5078/LPSD    5129/LPSD
   ERRORRTN        5954/BAL     5959/BAL     5965/BAL     5968/BAL     5973/BAL     5979/BAL     5982/BAL
      5987/BAL     5994/BAL     6001/BAL     6006/BAL     6021/BAL     6024/BAL     6029/BAL     6035/BAL
      6038/BAL     6043/BAL     6050/BAL     6057/BAL     6060/BAL     6065/BAL     6071/BAL     6074/BAL
      6079/BAL     6085/BAL     6088/BAL     6093/BAL     6118/BAL     6132/BAL     6145/BAL     6148/BAL
      6153/BAL     6160/BAL     6169/BAL     6195/BAL     6214-LW
   ERRORWD         2514/STW     2569/LW      2572/STW     2574/LW      2583/LW      2586/LB      2593/STB
      2594/STB     2595/LW      5317/LB      5375/LB      7403-DATA
   ERRORWD1        2638/STW     3148/STW     3190/STW     3268/STW     3744/STB     3791/STW     3798/CW
      3958/STW     3964/STW     4057/STW     4110/STW     4144/LW      4168/STW     4174/AW      4201/LW
      4420/STW     4534/AW      5320/LB      5341/LB      5393/LB      5399/LB      5405/LB      5423/LB
      5435/LB      5444/LB      5450/LB      5456/LB      5462/LB      5468/LB      7448-DATA
   ERRPAUSE        4358/LW      4523/MTW     5128/STW     7617-DATA
   ERR01           5074/BCS     5114/BCS     5127/BCR     5129-LPSD
   EXECLINE        4056/STW     4087/AW      7625-DATA
   EXUF            5899/XPSD    5901/XPSD    5903/XPSD    5905/XPSD    5908/XPSD    5910/XPSD    5916-DATA
      5920/LW*
   FAILRDY         5249/B       5366-LB
   FIFOABOR        5532/BCR     5540/BCR     5555-LI
   FIFO0           5530-DATA    5546/MTW     5548/EXU*    5551/STB     5552/MTW     5553/LPSD    5556/MTW
      7482/XPSD
   FLAG1           6386/CW      6465/CW      6474/LW      7452-DATA
   FLAG10          6346/STW     6360/STW     6413/CW      6479/CW      6526/STW     6604/STW     6626/CW
      6942/STW     6959/STW     6992/STW     7461-DATA
   FLAG11          6347/STW     6383/CW      6392/STW     6400/STW     6442/CW      6527/STW     6566/CW
      6725/STW     6742/CW      6769/CW      6796/STW     6836/STW     7462-DATA
   FLAG12          2631/MTW     2688/MTW     2691/MTW     3071/STW     3600/STW     6348/STW     6432/STW
      6447/STW     6528/STW     6553/STW     6573/STW     6727/CW      7463-DATA
   FLAG13          2505/STW     2598/MTW     2600/MTW     2603/STW     2612/MTW     2615/MTW     3081/STW
      4525/MTW     4531/XW      6494/STW     6914/CW      6934/CW      6967/CW      6970/STW     7464-DATA
   FLAG14          6349/STW     6529/STW     6591/CW      6596/STW     6740/CW      6758/CW      6861/CW
      6877/CW      6938/CW      6955/CW      6988/CW      7465-DATA
   FLAG15          6350/STW     6530/STW     6748/STW     6754/CW      7466-DATA
   FLAG16          7018/STW     7467-DATA
   FLAG17          7019/STW     7035/CW      7258/STW     7468-DATA
   FLAG18          6352/STW     6492/CW      6589/STW     6797/STW     6837/STW     6941/STW     7469-DATA
   FLAG19          6353/STW     6531/STW     6722/CW      6767/STW     7470-DATA
   FLAG2           7453-DATA
   FLAG3           2500/MTW     2542/STW     2546/MTW     7454-DATA
   FLAG4           7455-DATA
   FLAG5           7456-DATA
   FLAG6           7457-DATA
   FLAG7           7458-DATA
   FLAG8           7459-DATA
   FLAG9           6487/STW     6489/STW     6511/STW     6619/STW     6635/CW      6802/STW     6817/CW
      6839/STW     6852/CW      6855/STW     6864/STW     6866/STW     6880/STW     6885/STW     7460-DATA
   FULLBUFF        3890/BCS     3921-BAL
   GBYTES          4991/BAL     4996/BAL     5020-LI      6537/BAL
   GBYTES1         5021-BAL     5029/B
   HIO00           2372/ZFSAT   5786-TESTIT  7677/BAL
   I               2430-DO      2431/SET
   ICNL            6308/STW     6312/STW     6411/LB      6412/STB     6431/LB      6445/LB      6552/LB
      6554/LB      6556/STB     6571/LB      6716/CB      6720/CB      6730/LB      6775/LB      6871/LB
      7387-RES
   ILSOR           5271/B       5450-LB
   INCF            5259/B       5399-LB
   INITCOM         7116-LI      7128/B
   INITIAL         2194/LI      2367/ZFSAT   7220-WD
   INITSEL         7020/EXU     7102-NOP
   INIT01          7103/B       7112-LW
   INIT03          7105/B       7124-LW
   IOBUFF          2507/LH      2509/STH     2535/CH      2946/STW     2956/LH      2971/LH      2984/GEN
      2986/GEN     2997/LH      3003/LH      3129/STW     3228/STW     3261/LH      3281/LH      3342/STW
      3397/LH      3795/LH      4788/LI      4817/LB      4819/STB     4955/STW     4992/LI      4998/LH
      5000/STB     5005/LI      5026/STB     6104/STW     6182/LH      6186/LH      6397/LB      6540/LB
      6712/LH      6948/STB     7271/DATA    7277/GEN     7283/DATA    7286/GEN     7289/GEN     7292/DATA
      7298/GEN     7301/GEN     7307/GEN     7310/DATA    7313/GEN     7319/GEN     7325/GEN     7328/GEN
      7336/GEN     7376-RES
   IOCDWORD        3836/STW     3840/STW     4384-DATA    4403/MTW     4404/LW      4405/CW      4409/STW
      4548/LW
   IODEVICE        2489/TIO*    2760/STW     2938/TIO*    2940/SIO*    2943/HIO*    2949/TIO*    2951/SIO*
      2955/HIO*    2964/TIO*    2966/SIO*    2970/HIO*    3136/SIO*    3225/HIO*    3233/SIO*    3249/TIO*
      3339/HIO*    3347/SIO*    3408/HIO*    3412/SIO*    3701/HIO*    3765/HIO*    3766/SIO*    3809/TIO*
      3814/HIO*    3852/SIO*    3907/TIO*    3950/HIO*    4335/TIO*    5487/HIO*    5763/SIO*    5788/HIO*
      5814/TIO*    5839/TDV*    5950/TDV*    5961/HIO*    5975/TIO*    6017/SIO*    6031/TIO*    6053/TIO*
      6067/HIO*    6081/TIO*    6098/SIO*    6101/HIO*    6114/SIO*    6141/TIO*    6163/LW      6199/HIO*
      6208/SIO*    6211/HIO*    6235/HIO*    6434/SIO*    6450/HIO*    6560/SIO*    6562/TIO*    6570/HIO*
      6574/HIO*    6773/HIO*    6798/HIO*    6843/HIO*    7393-DATA
   IODM00          2388/ZFSAT   4788-LI
   IONA            5263/B       5420-LW
   IRLSOR          5272/B       5456-LB
   IRPT00          2368/ZFSAT   5569-STW
   IRPT01          5578-AI      5636/BCR     5660/B
   IRPT02          5577/BCS     5584-LB
   ITRP00          2391/ZFSAT   4907-STW
   ITRP01          4911-LW      4915/BCS
   ITRP02          4913-AI      4939/B
   ITRP03          4912/BCS     4917-LB
   KBI             6309/STW     6311/STW     6364/CW      6534/CW      7388-RES
   KBO             6283/STW     6322/STW     6355/CW      6361/STH     6366/CW      6415/STH     6453/CW
      6477/CW      6597/CW      6609/STH     6624/CW      6924/LB      6953/STB     6987/STB     7389-RES
   L                526/DW      2531/OR      2558/AND     2571/OR      2575/AND     2636/AND     2649/EOR
      2653/CW      2658/CW      2676/AND     2696/AND     2702/AND     2709/AND     2710/AND     2719/AND
      2729/CW      2731/OR      2734/AND     2739/AND     2742/AND     2878/AND     2880/AND     2893/AND
      3103/AND     3104/OR      3144/AND     3264/AND     3267/AND     3319/AND     3320/CW      3390/EOR
      3539/CW      3585/CW      4109/AND     4603/AND     4604/LW      4613/LW      4630/AND     4676/CW
      4698/DW      4699/OR      4700/OR      4718/AND     4873/DW      4878/DW      4885/DW      4958/AND
      5088/LW      5100/DW      5101/OR      5102/OR      5139/OR      5545/AND     5694/AND     5727/AND
      6676/AND     6718/CW      7016/AND     7912/DATA
   LASTWC          3837/STW     4343/XW      4345/CW      4387/SW      7619-DATA
   LASTXINT        3915/AW      4147/STW     7611-DATA
   LBRXPSD         2169/LW      2211-XPSD
   LBRXPSD1        2211/XPSD    2213-RES
   LCON            4684/BAL     4697-LI      4919/BAL     4922/BAL     5279/BAL     5288/BAL     5294/BAL
      5300/BAL     5306/BAL     5312/BAL     5321/BAL     5342/BAL     5348/BAL     5358/BAL     5367/BAL
      5376/BAL     5382/BAL     5388/BAL     5394/BAL     5400/BAL     5406/BAL     5412/BAL     5424/BAL
      5436/BAL     5445/BAL     5451/BAL     5457/BAL     5463/BAL     5469/BAL     5610/BAL     5613/BAL
      5695/BAL     5728/BAL
   LDBITAB         2669/STS     2671/STS     3579/XW      3580/XW      3614/STS     3616/STS     3720/LW
      3721/LW      7361-RES
   LDTIMOUT        5243/B       5311-LB
   LDTIMTAB        2640/STW     3092/STW     3439/LW      3588/LW      3606/AW      3823/STW     4074/AW
      4146/STW     4224/AW      4236/SW      4933/LW      7360-RES
   LDTWT           3116/LH      3120/LH      3605/LH      4637/STH     7355-RES
   LIMIT1          2831/CLM     7267-DATA
   LINENO          2635/EXU     2781/EXU     4108/EXU     4762/EXU     6819/EXU     7577-RD
   LINO            2876-LW      2916/B       2923/B
   LINOERR         2959/BNE     2974/BNE     2993-LW
   LINO1           2884/BCR     2892-LW
   LISTPROC        5537/B       5545-AND
   LNF1            5264/B       5423-LB
   LONGDLAY        3914-LW      3921/BAL     3942/BAL
   LPBUFF          6974/STW     6980/STB     6995/STB     6997/STB     7331/GEN     7334/GEN     7383-RES
   LRAXPSD         2174/LW      2206-XPSD
   LRAXPSD1        2206/XPSD    2208-RES
   LSDELAY         3126/STW     3236/AW      3301/AW      3328/AW      3368/AW      3662/AW      3774/AW
      3916/AW      5185/LW      7599-DATA
   LSDISENGAGE     2976/CB      2989-DATA    3018/LH
   LSENGAGE        2961/CB      2988-DATA    3019/LH
   LSMFR           5274/B       5468-LB
   LSPFAIL         5230/B       5287-LB
   MARK00          2387/ZFSAT   4837-LW
   MARY            6121-LB      6134/BIR
   MAXCOUNT        3856-DATA
   MAXDELAY        3124/STW     3201/AW      7597-DATA
   MCRTX           5269/B       5441-LW
   MODE            4720/LB      4726-DATA
   MW00            2181/LW      7683-ZFMW
   MW01            2833/LW      7690-ZFMW
   MW02            5353/LW      7693-ZFMW
   MW04            5209/LW      6790/LW      7700-ZFMW
   MW05            5215/LW      7703-ZFMW
   MW06            5329/LW      7706-ZFMW
   MW07            7709-ZFMW
   MW08            5630/LW      7712-ZFMW
   MW09            7027/LW      7717-ZFMW
   MW10            5338/LW      7720-ZFMW
   MW11            5372/LW      7723-ZFMW
   MW12            5344/LW      7726-ZFMW
   MW13            5222/LW      7729-ZFMW
   MW14            5225/LW      7732-ZFMW
   MW15            5697/LW      7735-ZFMW
   MW16            5730/LW      7738-ZFMW
   MW17            5772/LW      7741-ZFMW
   MW18            5797/LW      7744-ZFMW
   MW19            5826/LW      7747-ZFMW
   MW20            7750-ZFMW
   MW21            5356/LW      6830/LW      7753-ZFMW
   MW22            5281/LW      7756-ZFMW
   MW23            5284/LW      7759-ZFMW
   MW24            5290/LW      7762-ZFMW
   MW25            5296/LW      7765-ZFMW
   MW26            5302/LW      7768-ZFMW
   MW27            5308/LW      7771-ZFMW
   MW28            5314/LW      7774-ZFMW
   MW29            4660/AW      7777-ZFMW
   MW30            4686/LW      7781-ZFMW
   MW31            5363/LW      7784-ZFMW
   MW32            5369/LW      7787-ZFMW
   MW33            4773/LW      7791-ZFMW
   MW34            5928/LW      7794-ZFMW
   MW35            4840/LW      7797-ZFMW
   MW36            4895/LW      7800-ZFMW
   MW37            5846/LW      7803-ZFMW
   MW38            5378/LW      7807-ZFMW
   MW39            4924/LW      7810-ZFMW
   MW40            4930/LW      7813-ZFMW
   MW42            5384/LW      7818-ZFMW
   MW43            5390/LW      7821-ZFMW
   MW44            5873/LW      7823-ZFMW
   MW45            5863/LW      7826-ZFMW
   MW46            6221/LW      7829-ZFMW
   MW47            6244/LW      7832-ZFMW
   MW48            6253/LW      7835-ZFMW
   MW49            6285/LW      6368/LW      7838-ZFMW
   MW50            6735/LW      7841-ZFMW
   MW51            2771/LW      7844-ZFMW
   MW52            5417/LW      7846-ZFMW
   MW53            5420/LW      7849-ZFMW
   MW54            5426/LW      7852-ZFMW
   MW55            5429/LW      7855-ZFMW
   MW56            5432/LW      7858-ZFMW
   MW57            5441/LW      7861-ZFMW
   MW58            5438/LW      7864-ZFMW
   MW59            5396/LW      7867-ZFMW
   MW60            5408/LW      7871-ZFMW
   MW61            5402/LW      7890-ZFMW
   MW62            5414/LW      7876-ZFMW
   MW63            7879-ZFMW
   MW64            4023/LW      7883-ZFMW
   MW65            3983/LW      7887-ZFMW
   MW66            5447/LW      7894-ZFMW
   MW67            5453/LW      7897-ZFMW
   MW68            5459/LW      7900-ZFMW
   MW69            5465/LW      7903-ZFMW
   MW70            5471/LW      7906-ZFMW
   MW71            5656/LW      7908-ZFMW
   MW72            2990/LW      3026-ZFMW    3026/ZFMW
   MW72A           3026/ZFMW    3028-EQU
   MW73            2996/STW     3000/STW     3001/LW      3029-ZFMW    3029/ZFMW
   MW73A           3029/ZFMW    3031-EQU
   MW74            3021/STW     3023/STW     3025/LW      3032-ZFMW    3032/ZFMW
   MW74A           3032/ZFMW    3034-EQU
   MW75            3020/STW     3022/STW     3024/LW      3035-ZFMW    3035/ZFMW
   MW75A           3035/ZFMW    3037-EQU
   NINSTALL        5223/B       5226/B       5347-LB
   NLSNEXT         4439/BCS     4443/BCR     4456/B       4464-LW      4538/LW
   NOLS            5261/B       5411-LB
   NONACTR         5258/B       5393-LB
   NOP              294/LW       298-NOP
   NOPAUSE         3889/BCR     4035-LI      4045/BCR
   NOTACT          5216/B       5318/B       5320-LB
   NOTACTR         5210/B       5317-LB
   NOTBUSY         5213/B       5278-LB
   NOTCLM          3415/BCR     3514-LI
   NOTRECOG        5220/B       5353-LW
   NRECOGP2        2765/BCS     2826-LW
   OCNL            6277/LW      6280/STW     6325/LW      6331/STW     6472/LW      6499/LW      6502/STW
      6613/LW      6616/STW     6822/LW      6884/STW     7386-RES
   ODDBC           5218/B       5338-LW
   ONE0            5950-TDV
   ONE1            5958/BCR     5961-HIO
   ONE2            5972/BCR     5975-TIO
   ONE3            5986/BCR     5989-LI
   ONE4            6017-SIO
   ONE5            6028/BCR     6031-TIO
   ONE6            6042/BCR     6045-LI
   ONE7            6053-TIO
   ONE8            6064/BCR     6067-HIO
   ONE9            6078/BCR     6081-TIO
   ONO             6269/CW      6281/AWM     6333/AWM     6610/CW      6632/CW      7390-RES
   PADDR           5034/STW     5044/LB*     7397-DATA
   PAGE             103/OPEN     104-CNAME
   PATIN00         2399/ZFSAT   6522-TESTIT
   PATIN02         6534-CW
   PATIN05         6540-LB      6546/B
   PATIN06         6547-LW
   PATIN10         6535/BCR     6552-LB
   PATIN11         6562-TIO     6567/BCR
   PATIN12         6563/BCR     6565/BCS     6568-LW
   PATTERN         3072/LI      3519/CI      4821/LB      4982/STB     6121/LB      6178/LB      6402/STB
      6542/STB     6739/STB     6887/LB      6944/LB      7374-RES     7473/DATA    7635/DATA
   PATTERNP        2579/LB*     2680/LB*     2700/LB*     3073/STW     3500/STW     3527/LB*     7635-DATA
   PATT00          4970/LI      7474-DATA
   PATT01          4974/LI      7475-DATA
   PATT02          4978/LI      7476-DATA
   PAT00           2366/ZFSAT   4951-TESTIT  6096/BAL     6343/BAL
   PAT000          4960/B       4969-LI
   PAT001          4961/B       4973-LI
   PAT002          4962/B       4977-LI
   PAT003          4963/B       4981-LI
   PAT004          4964/B       4990-LI
   PAT005          4965/B       4995-LI
   PAUSE           3888/LW      4361/CW      4370/LW      4371/STW     4372/MTW     7614-DATA
   PHONEN          7153/STB     7155/STB     7158/LI      7163-DATA    7212/DATA
   PLENGTH         5033/STW     5038/MW      5048/CW      7394-DATA
   PLINK           7251/LW      7482-XPSD
   PMBFLAG         3910/LW      3925/STW     4025/LW      7610-DATA
   PNUM            2396/ZFSAT   7149-LW
   POINTER         6351/STW     6396/LW      6407/STW     6525/STW     6548/STW     6595/STW     6711/LW
      6757/STW     6771/STW     6779/STW     6858/CW      6925/CW      6957/CW      6990/CW      7384-RES
   POP             6178-LB      6198/BCS
   PP1             5946/STW     6201/AW      6205/LW      6213-DATA
   PSHDEX          3079/STW     5535/MTW     5536/LW      7119/STW     7450-DATA
   PSPREAD         4971/B       4975/B       4979/B       4993/B       5006/B       5033-STW
   PS01            5043-LI      5050/BDR
   PS02            5044-LB      5049/BCS
   PS03            4988/B       5051-LI
   PTPOINT         5045/STB*    7473-DATA
   PULDEX          3080/STW     5543/MTW     5544/LW      7120/STW     7451-DATA
   PULL            2446-CNAME
   PULLSIZE        3111/STB     3869/MTW     5126-AI
   PUSH            2445-CNAME
   PX              1575/STW     1582/S*      1583/MTW     1588/S*      2250-EQU     2251/EQU
   P0               857/STW      864/LI       873/MTW      875/LI      2234-EQU     2235/EQU
   P1              1675/AND     1686/LW      1696/AND     1705/LW      1712/AND     1768/LW      1771/LW
      1783/LW*     1784/CW*     1790/LW      1799/LW*     1813/MTW     1818/MTW     1821/LW*     1836/LW
      1837/MTW     2235-EQU     2236/EQU     2773/LW      2876/LW      2935/LW      3007/LW      3057/LW
      3068/STW     3988/STW     4601/LW      4629/LW      4653/LW      4664/LW      4716/LW      4741/LW
      4789/LW      4797/STW     4824/OR      4837/LW      4854/MTW     4872/LW      4928/STW     4934/STW
      4957/LW      5334/STW     5572/STW     5682/LW      5715/LW      5750/LW      5816/LW      5919/LW
      5941/AW      5945/LW      5997/LW      6095/STW     6265/LW      6297/LW      6319/LW      6342/STW
      6425/STW     6507/STW     6661/LH      7015/LW      7136/LW      7149/LW
   P10             2244-EQU     2245/EQU     4031/STW     4033/WD*
   P11             2245-EQU     2246/EQU
   P12             2246-EQU     2247/EQU     3866/STW     3868/WD*     5111/LW      5183/MTW
   P13             2247-EQU     2248/EQU
   P14             1782/STW     1786/MTW     1815/MTW     1819/MTW     2248-EQU     2249/EQU
   P15             1704/STW     1713/BCR*    1715/B*      1754/STW     1810/B*      1984/STW     2249-EQU
      2250/EQU     4870/STW     4898/B*
   P2              1761/LW      1765/MTW     1838/CW      2236-EQU     2237/EQU     2758/LW      2764/HIO*
      2767/SIO*    2768/HIO*    2879/LW      3060/LW      4605/LW      4631/LW      4719/AND     4796/STW
      4815/MTW     5683/LW      5716/LW      5753/MTW     6108/LW      6271/LW      6302/LW      7138/LW
      7156/LW
   P3              1756/LW      1758/STW     1766/LW      1769/SW      1770/STW     1772/SW      1791/SW
      2237-EQU     2238/EQU     2784/LW      2791/CW      2892/LW      3554/LCW     3558/STW     3691/SW
      3998/SW      4798/STW     4818/AW      4822/AW      5757/LW      6273/LW      6305/LW
   P4              2238-EQU     2239/EQU     2790/LW      2897/MTW     3095/MTW     3414/LW      3504/LW
      3510/STW     3620/LW
   P5              2239-EQU     2240/EQU     4266/AW
   P6              2240-EQU     2241/EQU     3064/STW     3862/LW
   P7              2241-EQU     2242/EQU
   P8              2242-EQU     2243/EQU     4036/STW     4037/LW      4044/MTW
   P9              2243-EQU     2244/EQU
   RCLINK          7253/LW      7488-XPSD
   RCOUNT          4018/LW      4349/SW      4435/MTW     7613-DATA
   RDNTON          5257/B       5387-LB
   RDOF00          2376/ZFSAT   5903-XPSD
   RECBIT          2550/LW      2788/STW     3351/LW      3622/LW      3818/LW      6436/LW      6457/LW
      6558/LW      6568/LW      7399-DATA
   RECODE          2467-CNAME   7050-DATA    7057/LW*     7058/LW*     7078/MTW     7079/LPSD    7488/XPSD
   RETURN          2934/STW     2978/B*      2991/LW      3014/LW      3053/STW     4027/MTW     4650/STW
      4658/MTW     4691/B*      4760/STW     4776/B*      4814/STW     4826/B*      4907/STW     4916/B*
      5332/MTW     5511/B*      5569/STW     5583/B*      5680/STW     5689/MTW     5700/B*      5714/STW
      5722/MTW     5733/B*      5748/STW     5766/MTW     5775/B*      5787/STW     5791/MTW     5800/B*
      5813/STW     5820/MTW     5829/B*      5858/STW     5865/MTW     5876/B*      5918/STW     5931/B*
      6263/STW     6282/B*      6284/B*      6288/B*      6295/STW     6310/B*      6313/B*      6317/STW
      6323/B*      6330/B*      6334/B*      6651/STW     6696/B*      7443-DATA
   RETWT           2587/MTW     3090/STW     3562/STW     3690/LW      3997/AW      4514/MTW     5589/LW
      5594/LW      7358-RES
   REV              251-CNAME
   REVADR           283/LW*      286/LH*      290/AW       291/STW      297-DATA
   REVBRNCH         295/STW      296/B       7221-EQU
   REVCOUNT         245-SET      253/DO       257-SET      257/SET      266/GEN     7222/DO
   REVEND           258/DO       381-REV
   REVHERE          247-SET      259-SET      263/ORG      264/GEN      264/GEN      270-SET      274/ORG
       275/GEN      275/GEN
   REVISION         292/MTW      297/DATA     345-REV
   REVPRINT         283-LW       293/BNEZ    7225/BAL
   REVSTART         246-SET      254-SET      265/ORG
   REVTHERE         248-SET      262-SET      264/GEN      267/ORG      273-SET      275/GEN      276/ORG
   RE000           7051/B       7052/B       7054-STCF
   RE001           7068-LB      7075/BIR
   RE002           7076-LCI     7090/B
   RE010           7067/BCS     7081-STW
   RE011           7082-LI      7088/BIR
   RE012           7084-CB      7094/BCR
   RE013           7086-STB     7096/B
   RE014           7085/BCS     7092-AI
   RFTWT           2522/MTW     3089/STW     3533/STW     3672/LW      3715/STW     4433/AND     4434/MTW
      4566/LW      5622/LW      7357-RES
   RIADR           2786/STW     3710/STW*    7113/STW*    7127/STW*    7405-DATA
   RICODE          2787/STW     2799/LB      3815/LW      7401-DATA
   RINFAIL         5247/B       5363-LW
   RINT            2485-DATA    2555/LPSD    7477/XPSD
   RINTCNT         3326/STW     3392/MTW     3395/LCW     7623-DATA
   RINTFAIL        5228/B       5284-LW
   RINT000         2486/LPSD    2488-DATA
   RI00            2506-LW
   RI01            2507-LH      2545/BCS     2547/BCS
   RI01A           2537-MTW     2585/BCR     2611/B
   RI02            2548-WD      2616/B
   RI03            2536/BCR     2557-LB
   RI04            2568/BCR     2573-SCS
   RI05            2564/BCS     2574-LW
   RI06            2599/B       2608-LW
   RI07            2503/B       2612-MTW
   RLINK           7112/LW      7477-XPSD
   RMASK           2561/LW      4501/LW      6175/LW      7582-DATA
   RNODATA         5251/B       5372-LW
   RNOFFLS         5255/B       5381-LB
   RNONNLS         5241/B       5305-LB
   RNRPTLS         5234/B       5299-LB
   ROFF00          2375/ZFSAT   5901-XPSD
   RON00           2374/ZFSAT   5899-XPSD
   RTTWT           2521/STW     3088/STW     3461/LW      4427/STW     4927/LW      7362-RES
   RTWT            2516/LW      2896/STW     3143/LW      3145/STW     3269/MTW     3277/MTW     3307/MTW
      3383/LW      3421/LW      3668/LW      3685/LW      3780/LW      3946/LW      4038/LW      4421/LW
      4666/LW      4911/LW      5180/STS     5576/LW      5633/LW      5999/LW      7353-RES
   R2INTR          5253/B       5375-LB
   SAVE0           2629/STW     2686/LW      3258/STW     3280/LW      6014/STW     6139/LW      6181/EOR
      6653/STW     6680/STB*    6688/STB*    7407-DATA
   SAVE1           2608/LW      6015/STW     6123/EOR     6127/LW      6137/LW      6171/LW      6655/STW
      6683/CW      6686/CW      7408-DATA
   SAVE10          6705/STW     6761/LW      7417-DATA
   SAVE11          7065/STW     7069/CW      7093/CW      7418-DATA
   SAVE12          3587/STW     3592/LW      3594/LW      6706/STW     6762/LW      7419-DATA
   SAVE13          7054/STCF    7066/LCF     7420-DATA
   SAVE14          6707/STW     6763/LW      7081/STW     7089/LW      7421-DATA
   SAVE15          6708/STW     6764/LW      7422-DATA
   SAVE16          7423-DATA
   SAVE17          6416/STW     6599/STW     6978/STW     6985/AWM     6994/LW      7004/STW     7424-DATA
   SAVE18          6920/STW     6927/CW      6946/CW      6966/STW     7425-DATA
   SAVE19          6418/STW     6455/LW      6606/STW     6630/LW      7426-DATA
   SAVE2           2498/CW      2501/CW      2506/LW      2533/LW      2537/MTW     2538/LW      2543/STW
      2553/STW     3109/STW     3407/STW     5939/STW     6212/B*      6234/MTW     6236/B*      6340/STW
      6371/B*      6395/B*      6463/B*      6523/STW     6551/B*      6576/B*      6588/STW     6640/B*
      6659/STH     6694/LH      7409-DATA
   SAVE20          6811/STW     6842/STW     6846/LW      7427-DATA
   SAVE21          6426/STW     6428/LW      6505/STW     6509/LW      7428-DATA
   SAVE22          6812/STW     6847/LW      7429-DATA
   SAVE23          6813/STW     6848/LW      7430-DATA
   SAVE24          6814/STW     6849/LW      7431-DATA
   SAVE25          6908/STW     6960/LW      7432-DATA
   SAVE26          6909/STW     6961/LW      7433-DATA
   SAVE27          6910/STW     6962/LW      7434-DATA
   SAVE28          6709/STW     6765/LW      7435-DATA
   SAVE29          6710/STW     6766/LW      7436-DATA
   SAVE3           2497/STW     2544/CW      2552/LW      6215/STW     6225/LW      6228/STW     6231/LW
      6238/STW     6666/STW     6691/LW      7410-DATA
   SAVE30          6815/STW     6850/LW      7437-DATA
   SAVE31          6816/STW     6851/LW      7438-DATA
   SAVE32          6911/STW     6963/LW      7439-DATA
   SAVE33          6912/STW     6964/LW      7440-DATA
   SAVE34          6913/STW     6965/LW      7441-DATA
   SAVE35          4952/STW     5061/B*      7442-DATA
   SAVE4           2630/STW     2687/LW      6227/STW     6232/LW      6470/STW     6483/LW      7411-DATA
   SAVE5           5079/STW     5107/LW      5951/STCF    5962/STCF    5976/STCF    5991/STCF    6018/STCF
      6032/STCF    6047/STCF    6054/STCF    6068/STCF    6082/STCF    6115/STCF    6142/STCF    6157/STCF
      6241/LW      7412-DATA
   SAVE6           6240/STW     6247/B*      6248/STW     6256/B*      7413-DATA
   SAVE7           5952/STW     5963/STW     5977/STW     5992/STW     6019/STW     6033/STW     6048/STW
      6055/STW     6069/STW     6083/STW     6116/STW     6143/STW     6158/STW     6194/STW     6249/LW
      7056/STM     7077/LM      7414-DATA
   SAVE8           2664/STW     2672/LW      7415-DATA
   SAVE9           2665/STW     2673/LW      7416-DATA
   SELTEST         2383/ZFSAT   3069/BAL     7015-LW
   SENSE           6127-LW      6131/BCS
   SENT            6129/BCS     6134-BIR
   SHUTDOWN        3636/BCS     3640/B       4028/B       5336/B       5473-WD      5518/DATA
   SHUTDWN1        5475-LW      5484/BIR
   SIONA           5266/B       5429-LW
   SIO00           2371/ZFSAT   5747-TESTIT
   SLINE           3477/CW      3479/STW     3485/LW      3663/AW      3772/AW      3914/LW      7600-DATA
   SLLNO           3449/STW     7620-DATA
   SLN00           2382/ZFSAT   4759-TESTIT
   SLOWLINE        3481/STW     4123/CW      7606-DATA
   SLS00           2365/ZFSAT   4716-LW
   SPACE0          2596/CW      3066/STW     3895/CW      4521/CW      5125/LW      5531/MTW     5533/MTW
      5541/MTW     7117/STW     7246/STW     7489-DATA
   SRS             2777/STS     3132/EXU     3168/EXU     3206/EXU     3287/EXU     3309/EXU     3338/EXU
      3526/EXU     4050/EXU     4674/EXU     5178/EXU     5684/EXU     5921/EXU     7568-WD
   SRS00           2369/ZFSAT   5680-STW
   START00         2360/ZFSAT   3053-STW
   STATOUT         5768/BAL     5793/BAL     5822/BAL     5842/BAL     5866/BAL     5882-BAL
   STATSAVE        5152/DATA    5165-STM
   STATUS          5174-AI      5181/BIR
   STOPFLAG        3879/LW      3940/STW     7608-DATA
   STOPTIME        3937/STW     3985/LW      7609-DATA
   STOUT           2400/ZFSAT   6587-TESTIT
   STOUT0          6592/BCR     6596-STW
   STOUT1          6598/BCR     6610-CW
   STOUT1A         6613-LW      6620/BIR
   STOUT1B         6614/BCR     6619-STW
   STOUT2          6611/BCR     6623-BAL     6627/BCR     6636/BCR
   STOUT3          6625/BCR     6632-CW
   STOUT4          6633/BCR     6638-LW
   STS             2644/EXU     2655/EXU     2722/EXU     3193/EXU     3218/EXU     3244/EXU     3544/EXU
      3745/EXU     3959/EXU     4120/EXU     4175/EXU     4202/EXU     4250/EXU     4672/EXU     5176/EXU
      5718/EXU     6128/EXU     6893/EXU     7569-WD
   STS00           2370/ZFSAT   5713-TESTIT
   ST00            3565-LW      3618/BCR
   ST00A           3567/BCS     3619-WD      3666/BCS
   ST00B           3574/BCS     3617-RD
   ST00C           3583/BCR     3595/B       3604/B       3608/BCS     3610-SCD
   ST00D           3569/BCS     3573-RD
   ST00E           3582-CI      3613/BCR
   ST00F           3597/BCR     3605-LH
   ST00G           3586/BCR     3593/B       3596-CI
   ST00H           3591/BCS     3594-LW
   ST01            3138-ABORT   3234/BCS     3348/BCS
   ST1CLR          3087-STW     3107/BIR
   ST1F01          3096/BNEZ    3103-AND
   ST100           3374-LW      3380/BIR
   ST100A          3375/BCR     3379-AI
   ST1000          3190-STW     3199/BIR
   ST1000A         3146/BCR     3175-EQU
   ST1000B         3142-LW      3176/BIR
   ST10000         3242-MTW     3248/BIR
   ST1001          3216-MTW     3224/BIR
   ST1002          3261-LH      3273/BCR
   ST1003          3263/BCS     3267-AND
   ST1004          3277-MTW     3292/BIR
   ST1005          3281-LH      3285/BCR
   ST1006          3283/BCR     3287-EXU
   ST1007          3278/BCR     3291-AI
   ST1008          3307-MTW     3314/BIR
   ST1009          3308/BCR     3313-AI
   ST101           3383-LW      3394/BIR
   ST101A          3384/BCR     3393-AI
   ST101B          3531-LI      3549/BIR
   ST101C          3421-LW      3483/BIR
   ST101D          3517-STW     3520/BCS
   ST102           3535/BCR     3548-AI
   ST109A          3317-LW      3324/BIR
   ST109B          3318/BCR     3323-AI
   ST200           2361/ZFSAT   5938-TESTIT
   SUMMARY         3908/BCR     3972-EQU
   TABEND          3422/BCR     3478/BCS     3483-BIR
   TAB01           6229/EXU     7673-BAL
   TAB02           6225-LW      6239/B
   TAB03           6226/BCR     6233-BIR
   TAB04           6233/BIR     6237-SLS
   TAB05           6231-LW      7679/B       7680/B
   TAB06           6240-STW     7673/BAL
   TAB07           6248-STW     7674/BAL
   TAMSG           5282/B       5285/B       5291/B       5297/B       5303/B       5309/B       5315/B
      5324-LI      5339/B       5345/B       5351/B       5354/B       5361/B       5370/B       5373/B
      5379/B       5385/B       5391/B       5397/B       5403/B       5409/B       5415/B       5418/B
      5421/B       5427/B       5430/B       5433/B       5439/B       5442/B       5448/B       5454/B
      5460/B       5466/B       5472/B
   TBTBERR         3002/B       3014-LW
   TBTBERR1        2939/BCS     2950/BCS     2965/BCS     2990-LW
   TBTB00          2377/ZFSAT   2934-STW
   TBTB02          2977/BNE     2979-LI
   TBTB03          2962/BNE     2981-LI
   TBTB05          3008/EXU     3018-LH
   TBTB06          3006/EXU     3020-STW
   TBTB07          3012/EXU     3022-STW
   TBTB08          3013/EXU     3024-LW
   TBTB09          2937/LI      2984-GEN
   TBTB10          2986-GEN
   TDV00           2390/ZFSAT   5838-TESTIT  7678/BAL
   TEMPDW          5761/STD     5762/LI      5777-DATA
   TESTER          2433/BAL     7031-LW
   TESTIT          2426-CNAME
   TEXT00          7683/ZFMW    7685-TEXT
   TEXT01          7690/ZFMW    7691-TEXT
   TEXT02          7693/ZFMW    7694-TEXT
   TEXT03          5081/STW     5083/STW     5085/STW     5087/STW     5089/STW     5093/STB     5097/STB
      5105/STH     5109/STW     5110/STW     5118/STW     7280/GEN     7697-TEXT
   TEXT04          5322/STH     6789/STW     7700/ZFMW    7701-TEXT
   TEXT05          5323/STH     7703/ZFMW    7704-TEXT
   TEXT06          7706/ZFMW    7707-TEXT
   TEXT07          7709/ZFMW    7710-TEXT
   TEXT08          5587/STW     5588/STW     5592/STW     5593/STW     5600/STH     5606/STH     5608/STB
      5611/STH     5614/STH     5621/STW     5624/STW     5625/STW     5628/STW     5629/STW     7712/ZFMW
      7713-TEXT
   TEXT09          7717/ZFMW    7718-TEXT
   TEXT10          7720/ZFMW    7721-TEXT
   TEXT11          7723/ZFMW    7724-TEXT
   TEXT12          5343/STH     7726/ZFMW    7727-TEXT
   TEXT13          5349/STH     7729/ZFMW    7730-TEXT
   TEXT14          5350/STH     7732/ZFMW    7733-TEXT
   TEXT15          5692/STH     5696/STH     7735/ZFMW    7736-TEXT
   TEXT16          5725/STH     5729/STH     7738/ZFMW    7739-TEXT
   TEXT17          5769/STW     5770/STW     5771/STW     7741/ZFMW    7742-TEXT
   TEXT18          5794/STW     5795/STW     5796/STW     7744/ZFMW    7745-TEXT
   TEXT19          5823/STW     5824/STW     5825/STW     7747/ZFMW    7748-TEXT
   TEXT20          7750/ZFMW    7751-TEXT
   TEXT21          5359/STH     6829/STW     7753/ZFMW    7754-TEXT
   TEXT22          5280/STH     7756/ZFMW    7757-TEXT
   TEXT23          7759/ZFMW    7760-TEXT
   TEXT24          5289/STH     7762/ZFMW    7763-TEXT
   TEXT25          5295/STH     7765/ZFMW    7766-TEXT
   TEXT26          5301/STH     7768/ZFMW    7769-TEXT
   TEXT27          5307/STH     7771/ZFMW    7772-TEXT
   TEXT28          5313/STH     7774/ZFMW    7775-TEXT
   TEXT29          4656/CH      5202/STH     7777/ZFMW    7778-TEXT
   TEXT30          4679/STH     4682/STH     4685/STH     7781/ZFMW    7782-TEXT
   TEXT31          5360/STH     7784/ZFMW    7785-TEXT
   TEXT32          5368/STH     7787/ZFMW    7788-TEXT
   TEXT33          4766/STW     4768/STW     4772/STH     7791/ZFMW    7792-TEXT
   TEXT34          5924/STH     5927/STB     7794/ZFMW    7795-TEXT
   TEXT35          4839/STW     7797/ZFMW    7798-TEXT
   TEXT36          4876/STH     4881/STB     4883/STB     4888/STH     4892/STH     4894/STB     7800/ZFMW
      7801-TEXT
   TEXT37          5843/STW     5844/STW     5845/STW     7803/ZFMW    7804-TEXT
   TEXT38          5377/STH     7807/ZFMW    7808-TEXT
   TEXT39          4920/STH     7810/ZFMW    7811-TEXT
   TEXT40          4923/STH     7813/ZFMW    7814-TEXT
   TEXT41          7304/GEN     7816-TEXT
   TEXT42          5383/STH     7818/ZFMW    7819-TEXT
   TEXT43          5389/STH     7821/ZFMW    7822-TEXT
   TEXT44          5867/STW     5868/STW     5869/STW     5872/STH     7823/ZFMW    7824-TEXT
   TEXT45          7826/ZFMW    7827-TEXT
   TEXT46          6220/STH     7829/ZFMW    7830-TEXT
   TEXT47          6243/STW     7832/ZFMW    7833-TEXT
   TEXT48          6251/STW     6252/STW     7835/ZFMW    7836-TEXT
   TEXT49          7838/ZFMW    7839-TEXT
   TEXT50          7841/ZFMW    7842-TEXT
   TEXT52          7846/ZFMW    7847-TEXT
   TEXT53          7849/ZFMW    7850-TEXT
   TEXT54          5425/STH     7852/ZFMW    7853-TEXT
   TEXT55          7855/ZFMW    7856-TEXT
   TEXT56          7858/ZFMW    7859-TEXT
   TEXT57          7861/ZFMW    7862-TEXT
   TEXT58          5437/STH     7864/ZFMW    7865-TEXT
   TEXT59          5395/STH     7867/ZFMW    7868-TEXT
   TEXT60          5407/STH     7871/ZFMW    7872-TEXT
   TEXT61          5401/STH     7890/ZFMW    7891-TEXT
   TEXT62          5413/STH     7876/ZFMW    7877-TEXT
   TEXT63          7879/ZFMW    7880-TEXT
   TEXT64          4002/STW     4003/STW     4006/STW     4007/STW     4010/STW     4011/STW     4015/STW
      4016/STW     4020/STW     4021/STW     7883/ZFMW    7884-TEXT
   TEXT65          7887/ZFMW    7888-TEXT
   TEXT66          5446/STH     7894/ZFMW    7895-TEXT
   TEXT67          5452/STH     7897/ZFMW    7898-TEXT
   TEXT68          5458/STH     7900/ZFMW    7901-TEXT
   TEXT69          5464/STH     7903/ZFMW    7904-TEXT
   TEXT70          5470/STH     7906/ZFMW    7907-TEXT
   TEXT71          5615/STH     5638/STH     5640/STW     5644/STH     5646/STW     5654/STB     7908/ZFMW
      7909-TEXT
   TEXT72          3026/ZFMW    3027-TEXT
   TEXT73          3029/ZFMW    3030-TEXT
   TEXT74          3032/ZFMW    3033-TEXT
   TEXT75          3035/ZFMW    3036-TEXT
   TIME            2520/LW      2606/LW      2639/LW      3108/STW     3177/LW      3179/CW      3200/LW
      3203/CW      3235/LW      3238/CW      3300/LW      3303/CW      3327/LW      3330/CW      3366/LW
      3370/CW      3490/AW      3551/STW     3565/LW      3590/CW      3607/CW      3661/LW      3679/CW
      3771/STW     3775/CW      3861/STW     3883/LW      3917/CW      3936/LW      3986/STW     4076/CW
      4145/LW      4225/SW      4235/LW      4426/LW      4545/LW      4738/STW     4745/CW      5187/LW
      5191/CW      5194/STW     5333/LW      5571/LW      5618/DW      6126/STW     6130/CW      7446-DATA
      7484/MTW
   TIMEOUT         5262/B       5417-LW
   TIME00          2389/ZFSAT   3989/BAL     4870-STW     4929/BAL     4935/BAL     5335/BAL     5573/BAL
   TIME1           3059/STW     3062/AW      3063/STW     3491/STW     3566/CW      3664/STW     3678/LW
      3863/STW     3884/CW      7447-DATA
   TIO00           2373/ZFSAT   5812-TESTIT  7675/BAL
   TIT00           7027-LW      7036/BCR
   TLENGTH         3074/LW      4987/STW     5041/STW     6550/STW     6593/LW      6772/STW     6783/STW
      7395-DATA
   TLINK           7249/LW      7484-MTW
   TNSB            5268/B       5435-LB
   TRANSITF        3085/STW     3418/STW     3419/STW     4325/LW      4331/STW     4332/MTW     4353/AW
      7241/STW     7632-DATA
   TRIGTEST        2779/LW      2812-XPSD    2845/LW
   TROFF           3631/EXU     3965/EXU     5503/LW      6140/EXU     6446/EXU     6572/EXU     6776/EXU
      6872/EXU     7571-WD
   TRON            3172/EXU     6011/EXU     6421/EXU     6555/EXU     7570-WD
   T3IOLINK        6419/LW      6607/LW      7487-XPSD
   T3RINT          6704-DATA    6768/LPSD    7486/XPSD
   T3RINTA         6721/BCR     6723/BCS     6725-STW
   T3RINTB         6719/BCR     6726-SLS
   T3RINT1         6728/BCR     6733-SCS
   T3RINT10        6717/BCS     6785-STB
   T3RINT2         6734/BCR     6739-STB
   T3RINT3         6742-CW
   T3RINT4         6743/BCR     6751-CW
   T3RINT5         6747/B       6750/B       6753/B       6757-STW     6804/B
   T3RINT5A        6724/B       6761-LW      6777/B       6784/B
   T3RINT6         6741/BCS     6769-CW
   T3RINT7         6773-HIO     6781/BCR
   T3RINT8         6770/BCR     6778-AI
   T3RLINK         7126/LW      7486-XPSD
   T3XINT          6488/XPSD    6810-DATA    6854/LPSD    6856/LPSD    7485/XPSD
   T3XINT0         6846-LW      6867/B       6881/B       6886/B       6899/BCS
   T3XINT1         6824/BCR     6857-LB
   T3XINT2         6859/BCS     6868-LB
   T3XINT4         6874-AW      6901/B
   T3XINT4A        6878/BCR     6882-LI
   T3XINT4B        6876/BCS     6883-STB
   T3XINT5         6870/BCR     6873/B       6887-LB
   T3XINT6         6889/BCR     6891-SLS
   T3XINT7         6893-EXU     6898/BCR
   T3XLINK         7124/LW      7485-XPSD
   UCINTFLG        7171/STW     7179/MTW     7183/MTW     7200/MTW     7204/MTW     7207-DATA
   UNIT00          2355/ZFSAT   2758-LW
   UN01            2785/BAL     2792/BCR     2793/BAL     2831-CLM
   UN02            2789/BAL     2797/BAL     2845-LW
   WCOUNT0         3078/STW     3638/MTW     3903/LW      5534/MTW     5539/MTW     5542/MTW     7118/STW
      7449-DATA
   WORDSIN         4386-DATA    4392/STW     4394/MTW
   X               2428/OPEN    2429-SET     2431-SET     2431/SET     2434/DATA    2435/CLOSE
   X               2448/OPEN    2449-SET     2452/LW      2455/STW     2457/CLOSE
   X               2469/OPEN    2470-SET     2471/CAL3    2473/CLOSE
   XCOUNT          4013/LW      4194/MTW     4328/LW      4348/LW      7612-DATA
   XDATA           2685/EXU     3322/EXU     3543/EXU     3747/EXU     4178/EXU     4825/EXU     6124/EXU
      6900/EXU     7574-WD
   XDAT00          2379/ZFSAT   4813-TESTIT
   XDOF00          2378/ZFSAT   5905-XPSD
   XFTWT           2678/MTW     2726/MTW     3087/STW     3517/STW     3519/CI      3532/STW     3547/MTW
      3675/CW      3714/STW     4171/AND     4172/MTW     4278/AND     5585/LW      5597/DW      5603/DW
      5616/LW      7356-RES
   XIADR           2794/STW     3708/STW*    7115/STW*    7125/STW*    7406-DATA
   XICODE          2795/STW     2804/LB      3656/LW      3697/LW      3864/LW      4029/LB      4379/AW
      7402-DATA
   XIKB            6495/XPSD    6907-DATA    6969/LPSD    6971/LPSD    7487/XPSD
   XIKB1           6917-AND     6923/B
   XIKB10          6947/BCR     6972-LI
   XIKB11          6984-LI      7002/BCS     7005/B
   XIKB12          6977/BCS     6994-LW
   XIKB2           6915/BCR     6922-LH
   XIKB2A          6927-CW      6958/BCR     6991/BCR
   XIKB2B          6928/BCR     6934-CW
   XIKB3           6926/BCS     6944-LB
   XIKB4           6943/B       6960-LW      6993/B
   XINTFAIL        5245/B       5356-LW      5364/B
   XINTOK          3893/BCS     3896/BCS     4029-LB
   XINTR           2628-DATA    2690/LPSD    2692/LPSD    3601/XPSD    7478/XPSD
   XI01            2647-CI
   XI02            2648/BCR     2653-CW
   XI02A           2652/B       2675/B       2686-LW      2727/B
   XI02B           2676-AND     2720/B       2741/BCS     2743/B
   XI02C           2660-CI      2735/B
   XI03            2661/BCS     2663/BCS     2694-LB
   XI04            2698/BCS     2707/BCS     2712-CI
   XI04A           2714-LW      2740/B
   XI05            2654/BCS     2722-EXU
   XI06            2659/BCS     2729-CW
   XI07            2713/BCS     2737-RD
   XI08            2664-STW     2733/B
   XLENGTH         2714/LW      3075/STW     3512/STW     7396-DATA
   XLINK           7114/LW      7478-XPSD
   XLS             2725/EXU     3211/EXU     3363/EXU     3541/EXU     4254/EXU     6423/EXU     6504/EXU
      7575-WD
   XLS00           2380/ZFSAT   5908-XPSD
   XMTBIT          2796/STW     3349/LW      3624/LW      3658/LW      3699/LW      3867/LW      4032/LW
      4380/LW      6373/LW      6393/LW      6438/LW      6459/LW      6621/LW      6638/LW      7400-DATA
   XNOTRDY         5211/B       5341-LB
   XSTOP           2651/EXU     2674/EXU     3185/EXU     3297/EXU     3334/EXU     3632/EXU     4141/EXU
      5502/LW      6009/EXU     6138/EXU     6429/EXU     6510/EXU     6618/EXU     6860/EXU     7576-WD
   XSTP00          2381/ZFSAT   5910-XPSD
   XTWT            2525/LW      2532/STW     2610/STS     2641/LW      2650/STW     2677/STW     2732/STW
      2887/LS      2889/STW     2899/LW      2901/STW     3094/LW      3105/STW     3114/LW      3150/LW
      3166/AWM     3183/MTW     3191/MTW     3209/MTW     3216/MTW     3242/MTW     3295/MTW     3317/LW
      3358/MTW     3360/LW      3362/STW     3374/LW      3386/LW      3391/STW     3428/LW      3432/STW
      3452/LW      3534/LW      3538/STW     3584/LW      3645/LW      3653/STW     3722/LW      3732/LW
      3734/STW     3928/LW      3933/STW     4059/LW      4080/LW      4113/LW      4132/LW      4135/STW
      4158/LW      4180/LW      4189/STW     4263/AND     4264/STW     4269/MTW     4293/MTW     4303/MTW
      4441/LW      4465/AND     4466/STW     4488/STW     4556/LW      4582/LW      4587/STW     4614/STS
      4723/STS     5052/LI      5475/LW      5648/LW      5942/LW      6004/LW      6172/LW      6202/LW
      7352-RES
   ZADCRC          1460-STW     2000/BAL
   ZADPTR           966/BAL      986/BAL     1017/BAL     1115/BAL     1436-LB      1461/BAL
   ZALT            1722-STW     2351/ZFSAT
   ZALT05          1728-CW      1736/B
   ZALT10          1723/BAL     1725/BAL     1732/BAL     1737-CI
   ZAS              836-ZFOT
   ZASLNK           161-EQU     1007/STW     1018/B*
   ZASPRO          1013/LW      2072/ZFST2   2073-B
   ZASTRN           836/ZFOT    1007-STW
   ZASTRN10        1012/BCR     1017-BAL
   ZBPT1           1992/BAL     2006/BAL     2018-RD      2064/BAL
   ZBTD            1572-STW     5200/BAL     5665/BAL     6193/BAL     6218/BAL     6786/BAL     6827/BAL
   ZBTD10          1578-LI      1585/B
   ZBTD20          1580/BCS     1586-LW
   ZBTD30          1581/DW      1592-DATA
   ZBTH            1411/BAL     1599-STW     1607/BIR     1706/BAL     1773/BAL     1792/BAL     1800/BAL
      1822/BAL     2184/BAL     2191/BAL     2856/BAL     2995/BAL     2999/BAL     3005/BAL     3011/BAL
      5108/BAL     5117/BAL     5201/BAL     5666/BAL     5871/BAL     5926/BAL     6219/BAL     6250/BAL
      6787/BAL     6828/BAL
   ZCFR            1270-STW     1294/B       1300/BAL     1306/BAL     1321/BAL     1327/BAL     1334/BAL
      1337/BAL     1343/BAL     1346/BAL
   ZCFRCA           174-EQU     1270/STW     1273/CB*     1275/CB*     1278/CW      1286/LCW*    1287/LB*
      1290/LW*     1292/LB*
   ZCFRLNK          173-EQU     1271/STW     1274/BCS*    1276/BCS*    1283/BCS*
   ZCHAR            178-EQU      787/STW     1370/LW      1400/STW
   ZCL              839-ZFOT
   ZCLLNK           154-EQU      897/STW      905/B*
   ZCLTRN           839/ZFOT     897-STW
   ZCMS            2120-LPSD    2176/GEN     2204/DATA    2221/EQU     7913/END
   ZCMST40          389/XPSD    2120/LPSD    2171/GEN     2202-DATA
   ZCMS2           2174-LW      2214/DATA
   ZCMS3           2179-LI      2209/DATA
   ZCMS4           2173/B       2178/B       2180-STW
   ZCMS5           2147/LW      2198-XPSD
   ZCMS7           2200-DATA
   ZCO              837-ZFOT    1159/CB
   ZCOLNK           163-EQU     1142/STW     1194/B*
   ZCONINT          483/DATA    2024-LI      2345/ZFSAT
   ZCOTRN          1111/BAL     1131/BAL     1142-STW
   ZCOTRN10        1153-LI      1173/BCR     1175/B
   ZCOTRN30        1160/BCR     1162/BCR     1167-SAS
   ZCOTRN40        1164/BCR     1170-MTW
   ZCOTRN50        1158/BCS     1176-CB
   ZCOTRN60        1182/BCR     1186-LW
   ZCRC            1474-LB
   ZCSRL           1311/STW     1316/B*      1572/STW     1586/LW      1599/STW     1610/LW      1617/STW
      1628/B*      1656-PZE     1722/STW     1729/BCS*    1739/B*      1857/STW     1859/LB      1864/BCS*
      1866/BCS*    1882/LB      1934/B*
   ZCSS             516/STCF     533/LW       619/LCF      671/LCF      717-DATA
   ZCTL             391/XPSD     392/XPSD     393/XPSD     394/XPSD     396/XPSD     397/XPSD     398/XPSD
       399/XPSD     400/XPSD     403/XPSD     404/XPSD     411/XPSD     412/XPSD     413/XPSD     414/XPSD
       418/XPSD     419/XPSD     420/XPSD     421/XPSD     424/XPSD     425/XPSD     485-DATA
   ZCTL1            487/DATA     509-STW
   ZDCP             115-EQU      383/USECT
   ZDCR            1423/LH      1668-BAL     1844/LH      2348/ZFSAT   6664/LI
   ZDECADER        1635-STW
   ZDKB             554/HIO*     750/LH      1383/LH      1662-BAL     1881/LW      1890/CW      2157/STW
      2160/HIO*    2347/ZFSAT   3524/SIO*    3702/TIO*    3705/SIO*    3980/TIO*    6660/LI      6662/CH
   ZDMP            1748/B       1752-LCFI    2352/ZFSAT   4799/B
   ZDMPA           1777/STW     1778/STW     1779/STB     1789/STB     1796/STW     1797/STW     1798/STB
      1801/STW     1802/STW     1826/STB     1830/STB     1840/ZFMW    2251-EQU
   ZDMP10          1771-LW      1809/BCS
   ZDMP20          1783-LW      1817/BCS     1834/BCS
   ZDMP22          1790-LW      1820/BCS
   ZDMP24          1753/STCF    1804-STB     1814/B       1832/BCS     1835/B
   ZDMP30          1785/BCR     1811-CI
   ZDMP40          1787/BCR     1822-BAL
   ZDMP50          1808/BAL     1816/BAL     1833/BAL     1836-LW
   ZDMP70          1804/STB     1805/LW      1840-ZFMW
   ZDS              764/ZFMW     834-ZFOT
   ZDSFLG           181-EQU      772/STW      858/MTW      866/STW      882/STW     1102/MTW     1235/MTW
      1536/MTW     2155/STW
   ZDSLNK           171-EQU      855/STW      867/B*       871/STW      887/B*
   ZDSPTR           172-EQU      861/STW      885/LW
   ZDSSET           762/BAL      862/LI       871-STW
   ZDSSET10         874/BCR      882-STW
   ZDSTRN           755/BAL      834/ZFOT     855-STW
   ZDSTRN10         859/BCS      864-LI
   ZDTB            1314/BAL     1546-XW
   ZDTB10          1548/AND     1564-DATA
   ZDTB20          1553/AND     1565-DATA
   ZEMS             636/CW      1728/CW      1757/AND     1763/CW      2118-DATA    2121/LW      2123/STW
      2139/LW      2143/LW
   ZEQ              840-ZFOT
   ZEQLNK           155-EQU      927/STW      946/B*
   ZEQTRN           840/ZFOT     927-STW
   ZEQTRN10         932/BCR      936/BCR      940-LI       943/BCR
   ZEQTRN20         938/BCR      944-BIR
   ZEXADR           780/LW      1240/LW      2130/AW      2167/LW      7911-EQU     7912/DATA
   ZEXPT0           860/LW       878/LW*      912/LW       915/STW*     956/STW*     961/LW       981/STW*
      1010/STW*    1014/STW*    1056/LW      1067/OR      1098/STW*    1099/LB*     1109/STB*    1129/STB*
      1146/LB*     1150/LH*     1190/LB*     1193/STB*    1238/STW*    1241/CW      1255/LW      1436/LB*
      1439/AW      1444/STW     1474/LB*     1487/LB*     1501/STB*    1956/LW*     1967/LB*     1993/LB*
      2007/LB*     2050/STW     2086/STW     2094/LW      2230-EQU     2231/EQU
   ZEXPT1           985/STW*    1047/STW*    1071/OR      1143/LW      1155/STW*    1169/STW*    1243/STW*
      1357/STW*    1359/LW*     1362/MTB*    1445/STW     1449/MTW     1450/LW      1477/LH*     1479/STW*
      1507/STW*    1947/LW*     1971/LH*     1973/LW      1996/MTW*    1997/LH*     1998/CH*     2043/LW*
      2049/LW*     2231-EQU     2232/EQU
   ZEX00           1263/B       1947-LW      2010/LI      2059/B       2066/B
   ZEX01           1949-BAL     1999/BCR     2001/B
   ZFA              930/BAL     1336-LI
   ZFAN             804/BAL     1345-LI
   ZFCP             188-COM
   ZFH             1203/BAL     1277/LI      1326-LI      1724/BAL     1731/BAL
   ZFMW             193-CNAME
   ZFN             1200/BAL     1305-LI      1312/BAL
   ZFNDTB           793/BAL     1201/BAL     1311-STW
   ZFNUP           1199/BAL     1299-LI
   ZFOC             902/BAL     1272/BAL     1354/BAL     1358/BAL     1369-STW     5021/BAL     6667/BAL
   ZFOCT           1202/BAL     1320-LI
   ZFOT             189-COM
   ZFS              826-ZFOT    1119/CB      1120/BCR*
   ZFSAT            209-CNAME
   ZFSLNK           164-EQU     1233/STW     1236/BCS*
   ZFSPRO          1237/LW      2063/ZFST2   2064-BAL     2073/B
   ZFSTRN           826/ZFOT    1233-STW
   ZFST2            201-CNAME
   ZFTF             180-EQU     1972/STW
   ZGOPRO          2056-LI      2346/ZFSAT
   ZGOPTR           773/STH     1258/STH     2057-LI
   ZHLT            1704-STW     2354/ZFSAT
   ZHLTMSG         1707/STW     1708/LW      1716/ZFMW    1717-TEXT
   ZIL5C            479/DATA     507-STW
   ZIL5F            425-XPSD    2150/LW      2152/STW
   ZIL50            463/DATA     499-STW
   ZIL51            467/DATA     501-STW
   ZIL56            471/DATA     503-STW
   ZIL57            475/DATA     505-STW
   ZIMSGSTR         531/BAL      532/BAL      535/BAL      542/BAL      548/BAL      602/BAL      603/BAL
       608/BAL      609/BAL      696-LI       713/BAL
   ZIMSGST1         701-STB      706/B
   ZIMSGST2         699/BCS      705-AI
   ZINTFLG          183-EQU      517/MTW      520/LW       570/STW      686/STW      742/STW
   ZINTINDX         550/STW      558/LW       640/LW       718-DATA
   ZIOADR          1376/LW      2129/STW     2132/AWM     2140/SW      2183/LW      2190/AW      2228-EQU
      2229/EQU     3804/STH*    3845/STB*    3848/LW      4415/AH*     4416/STH*    5116/AW
   ZIOWDS          2141/STW     2186/LW      2229-EQU     2230/EQU     3826/LW
   ZI5C             422/XPSD     477-DATA
   ZI5D             423/XPSD     481-DATA
   ZI50             409/XPSD     461-DATA
   ZI51             410/XPSD     465-DATA
   ZI56             415/XPSD     469-DATA
   ZI57             417/XPSD     473-DATA
   ZKBCRIOA        1662/BAL     1668/BAL     1674-LI      6665/BAL
   ZLBADR           782/LW       978/CW      1246/CW      2145/STW     2221-EQU     2222/EQU     3494/LW
   ZLBPTR           783/STW      962/STW*     963/MTW      977/LW       982/MTW      983/LW*     1245/LW
      2146/STW     2222-EQU     2223/EQU
   ZLKADR           778/LW      1451/CW      2082/CW      2096/CW      2137/STW     2223-EQU     2224/EQU
   ZLKAS           1009/LI      2080-LI
   ZLKPTR           779/STW     2081/LW      2084/MTW     2085/LW*     2093/LW      2100/STW     2102/LW
      2106/STW*    2107/MTW     2138/STW     2224-EQU     2225/EQU
   ZLKSET          2011/B       2065/BAL     2093-LW
   ZLMSTR           647/BAL      653/BAL      664/BAL      667/BAL      711-LMS
   ZLP              835-ZFOT
   ZLPD            1888/BCR     1892-STH
   ZLPD10          1898/BCR     1903-LB
   ZLPLNK           157-EQU      953/STW      965/BCR*     967/B*
   ZLPPRO           955/LW      2035-ZFST2
   ZLPTRN           835/ZFOT     953-STW
   ZLSTCH           179-EQU      899/LW      1371/STW
   ZMFRCW0         1375/STH     1392/LI      1404-ZFCP
   ZMFRCW1         1387/STH     1405-ZFCP
   ZMFRDA           751/STH     1384/CH      1390/TIO*    1393-SIO     1395/TIO*    1424/CH      1677/STH
      1845/CH      2159/STH     6658/LH      6695/STH
   ZMFRIOAD         746/LW      1077/CW      2131/STW     2227-EQU     2228/EQU
   ZMFRIOF         1379/BCR     1410-LI
   ZMFRLNK          176-EQU     1369/STW     1402/B*
   ZMFRNBA          749/STH     1260/STH     1373-CI      1378/SH      1389/STH     1417/STH     1679/STH
      6693/STH
   ZMFRTCBA        1374/BCS     1399-LB
   ZMFRX7           748/STH     1259/LH      1356/LH      1372-LI      1388/AH      1401/MTW     1416/LH
      1678/LH      6692/STH
   ZML1E            152-EQU
   ZML1F            153-EQU
   ZML10            150-EQU     1900/STB     1914/STB     1922/STB
   ZML14            151-EQU
   ZMPMSK           631/AND      719-DATA
   ZMPTWA           877/BAL     1950/BAL     1967-LB
   ZMS              831-ZFOT    1113/CB      1114/BCR*    1133/CB      1134/BCR*    1427/B*
   ZMSGKEY         1688/STH     1865-CI      3568/CH      4518/CB      4908/CH
   ZMSLNK           156-EQU      911/STW      918/B*
   ZMSTRN           831/ZFOT     911-STW
   ZNL              786/LB       815/ZFMW     828-ZFOT     900/CB       903/CB
   ZOPBEG           824-EQU      833/EQU      850/EQU
   ZOPLEN           794/LI       805/LI       850-EQU
   ZOPLN2           833-EQU     1179/LI
   ZOPTBL           795/LW       806/LW       849-EQU
   ZOPTB2           832-EQU     1180/LW
   ZPAGESAV         436-DATA     489/STW      491/STW      493/STW      495/STW      497/STW      499/STW
       501/STW      503/STW      505/STW      507/STW      509/STW      519/STM
   ZPCHK            169-EQU     1144/STW     1187/SW
   ZPCHK1           170-EQU     1145/STW     1174/STW     1186/LW
   ZPCNT            168-EQU     1148/STW     1151/SW      1157/MTW
   ZPC010           572/B        739-BAL      765/B       1422/BCS     1425/BCR     2028/B       7029/LI
      7261/B
   ZPC020           752-LW       763/B
   ZPC030           757/LI       762-BAL
   ZPC050           752/LW       764-ZFMW
   ZPC200           770-BAL     2344/ZFSAT
   ZPC210           761/B        786-LB
   ZPC5            1204/BAL     1333-LI
   ZPC6            1205/BAL     1342-LI
   ZPC7            1206/BAL     1353-STW
   ZPC7LNK          175-EQU     1353/STW     1361/BCR*
   ZPC7M           1149/STB     1161/CB      1176/CB      1355/STB     1360-CI
   ZPD              838-ZFOT
   ZPDLNK           160-EQU      995/STW      999/B*
   ZPDTRN           838/ZFOT     995-STW
   ZPFIMSK          605/AND      720-DATA
   ZPFISTR          611/STM      615/LM       721-RES
   ZPL              829-ZFOT
   ZPLLNK           165-EQU     1090/STW     1123/B*
   ZPLTRN           827/ZFOT     828/ZFOT     829/ZFOT     830/ZFOT     837/ZFOT     974/BAL     1088-MTW
      1234/BAL
   ZPLTRN20        1093/BCR     1097-LW
   ZPLTRN30        1103/BCS     1124-LI
   ZPMADR           776/LW      1027/LW      2104/CW      2134/STW     2225-EQU     2226/EQU
   ZPMEN            998/BAL     1026-STW     1062/B
   ZPMEN10         1030-LW      1063/BIR
   ZPMEN20         1033/BCS     1040-CI
   ZPMEN30         1035/BCS     1050-LI
   ZPMEN40         1029/BCR     1037/BCS     1041/BCS     1044/BCS     1053/BCS     1064-CI
   ZPMLNK           162-EQU     1026/STW     1049/B*      1080/B*
   ZPMPTR           777/STW     1028/SW      1030/LW*     1046/AND*    1055/LW*     1058/MTW     1059/LW*
      1061/STW*    1073/STW*    1075/LW      1079/STW     2135/STW     2226-EQU     2227/EQU
   ZPMRQ           1016/BAL     1025-AI      1251/BAL     1496/B
   ZPRTYP          1168/EXU     1199-BAL
   ZPTY             167-EQU     1152/STW     1156/LB*     1170/MTW
   ZRECOV           740/LW       765-B
   ZRETN1          1961/B       1991-BAL
   ZRETN1A         1995/BCR     2000-BAL     2009/BCR     2035/ZFST2   2048/BCS     2051/B       2087/B
   ZRETN2          1962/B       2005-BAL
   ZRP              825-ZFOT    1121/CB      1122/BCR*
   ZRPLNK           158-EQU      973/STW      984/BCR*     987/B*
   ZRPPRO           980/LW      2042/ZFST2   2043-LW
   ZRPTRN           825/ZFOT     973-STW
   ZSCIR            739/BAL      770/BAL      872/BAL      881/BAL     1651-LI      1760/BAL     1858/BAL
      1949/BAL     1991/BAL     2005/BAL     2154/BAL     3070/BAL     6216/BAL
   ZSIG9            182-EQU      556/MTW      626/LW       649/LW       674/LW      2180/STW
   ZSMD            1695-LI      2350/ZFSAT
   ZSML            1686-LW      2349/ZFSAT
   ZSML40           555/BAL      575/BAL      593/BAL      613/BAL      639/BAL     1419/BAL     1850-LCFI
      2182/BAL     2195/B       2772/B       2823/B       2827/B       2859/BAL     2992/B       3984/BAL
      4024/BAL
   ZSNER            811/B        901/BCS      941/B        979/BCR     1039/B       1078/BCS     1096/B
      1106/BCR     1126/BCR     1166/B       1185/B       1242/BCR     1247/BCS     1254/BCS     1411-BAL
      1454/B       1519/B       1532/B       1539/B       2058/BCR     2083/BCR     2105/BCS
   ZSNERMW         1418/LW      1428-ZFMW
   ZSNMSG          1413/STW     1415/STB     1420/LB      1428/ZFMW    1429-TEXT
   ZSP              827-ZFOT
   ZSRADR          1097/LW      2404-EQU
   ZSRBEG          2263-EQU     2325/EQU
   ZSRLEN           933/LI      1091/LI      2325-EQU
   ZSRTBL           935/CW       937/CW       942/CW       945/STW     1092/CW      2324-EQU
   ZSTCRC          1467-STW     1948/BAL
   ZSTPTR           781/BAL      865/BAL      876/BAL      886/BAL      913/BAL     1256/BAL     1444-STW
      1468/BAL     2168/BAL
   ZSUP            1617-STW     1625/BIR
   ZTAB            7238/STW     7351-EQU     7471/EQU
   ZTABL           7237/LI      7471-EQU
   ZTEMP           1547/STW     1551/AW      1552/STW     1556/AW      1557/STW     1560/AW      1561/STW
      1577/STW     1584/AWM     1589/OR      1590/STW     1608/LW      1618/STW     1626/LW      1627/STW
      1635/STW     1646/XW      1730/STW     1733/STW*    1734/MTW     1735/LW      2232-EQU     2233/EQU
   ZTEMP1          1606/STB     1609/LW      2233-EQU     2234/EQU
   ZTLCMN           490/BAL      492/BAL      494/BAL      496/BAL      498/BAL      500/BAL      502/BAL
       504/BAL      506/BAL      508/BAL      516-STCF
   ZTLCMN1          536-LW       577/B
   ZTLCMN10         562/BCR      622-LI       634/BIR      637/BCS
   ZTLCMN11         639-BAL      669/B
   ZTLCMN12         632/BCS      645-LI
   ZTLCMN13         566/BCR      671-LCF
   ZTLCMN14         568/BCR      620/BCS      642/BCR      672/BCR      673/BCR      685-LI
   ZTLCMN15         687/LPSD     689-DATA
   ZTLCMN16         628/BNE      631-AND
   ZTLCMN17         662/B        668-LW
   ZTLCMN18         651/BNE      663-LCI
   ZTLCMN2          554-HIO      580/B
   ZTLCMN3          524/BCR      574-LW
   ZTLCMN4          552/BCS      579-LW
   ZTLCMN5          560/BCR      582-LI
   ZTLCMN6          585-HIO      589/BIR
   ZTLCMN7          586/BCS      588-AI       617/B
   ZTLCMN8          587/BCS      596-STW
   ZTLCMN9          564/BCR      619-LCF
   ZTLHLT           522/BCS      557/BCR      569-LI       591/BCS      594/B        643/B        689/DATA
   ZTLMSG1          530/LI       722-TEXT     727/ZFMW     728/ZFMW
   ZTLMSG1F         553/LW       727-ZFMW
   ZTLMSG1G         579/LW       728-ZFMW
   ZTLMSG2          601/LI       724-TEXT     729/ZFMW
   ZTLMSG2F         612/LW       729-ZFMW
   ZTLMSG3          645/LI       655/STW      657/STW      659/STW      725-TEXT     730/ZFMW
   ZTLMSG3F         668/LW       730-ZFMW
   ZTLMSG4          726-TEXT     731/ZFMW     732/ZFMW     733/ZFMW
   ZTLMSG4F         574/LW       731-ZFMW
   ZTLMSG5F         592/LW       732-ZFMW
   ZTLMSG6F         638/LW       733-ZFMW
   ZTLOC            528/LB       734-DATA
   ZTL4C            455/DATA     495-STW
   ZTL4D            459/DATA     497-STW
   ZTL40            443/DATA     489-STW
   ZTL41            447/DATA     491-STW      525/AI
   ZTL46            451/DATA     493-STW
   ZTMNCR           753/BAL      785/BAL      917/BAL     1262/BAL     1844-LH
   ZTRN10           774/LI       792-LI       813/BAL      814/B        883/LI
   ZTRN100          784/LW       815-ZFMW     916/LW      1261/LW      4936/LW      5580/LW
   ZTRN40           800/BCS      802/BCS      810-LI       841/ZFOT     842/ZFOT     843/ZFOT     844/ZFOT
       845/ZFOT     846/ZFOT     847/ZFOT     848/ZFOT
   ZTRN50           797/BCR      808/BCR      812-BAL     1101/BCR
   ZTRN60           758/STH      775/STH      813-BAL      863/STH      884/STH     1112/LI      1118/LI
      1132/LI      1135/B       1426/LI
   ZTSTLNK          177-EQU
   ZTST1            957/BAL     1110/BAL     1487-LB
   ZTST1A          1491/BCS     1497-MTW
   ZTST1AA         1493/BCR     1499-LI
   ZTST1B          1498/BCS     1503-CI
   ZTST1C          1507-STW
   ZTST2            997/BAL     1015/BAL     1250/BAL     1514-MTW
   ZTST2A          1495/BCS     1504/BCS     1515/BCR     1518-LI      1525/B
   ZTST3            856/BAL      928/BAL     1089/BCR     1130/BAL     1489/BCR     1523-MTW
   ZTST4           1048/BAL     1072/BAL     1171/BAL     1449-MTW     1508/B
   ZTST6           1529-MTW
   ZTST7            954/BAL      975/BAL      996/BAL     1008/BAL     1536-MTW
   ZTW             1885/BCR     1891/BCR     1907-STH
   ZTWLP            285/BAL     1710/BAL     1807/BAL     1855-BCR     1920/AND     2835/B       3017/B
      4663/BAL     4688/BAL     4775/BAL     4842/B       4897/BAL     4926/BAL     4932/BAL     4938/BAL
      5328/BAL     5331/BAL     5582/BAL     5632/BAL     5658/BAL     5699/BAL     5732/BAL     5774/BAL
      5799/BAL     5828/BAL     5848/B       5875/BAL     5930/BAL     6223/BAL     6246/BAL     6255/BAL
      6287/BAL     6370/BAL     6737/BAL     6794/BAL     6834/BAL     7030/B
   ZTWLPA          1892/STH     1906/B       1907/STH     1910/BCR     1927-SIO     1929/TIO*    2027/HIO*
   ZTWLPO          1697/STH     1889-LI      2158/STH     3977/TIO*    5073/TIO*    5123/SIO*    5488/TIO*
      6357/LH      6448/LH      6600/LH      6791/LH      6831/LH      6922/LH
   ZTWLP01         1862/BCR     1867-STH
   ZTWLP10         1874/STB     1894/LB      1901/STB     1902/LI      1909/LB      1921/MTB     1926/LI
      1936-ZFCP
   ZTWLP11         1877/STH     1878/AH      1879/STH     1880/STB     1893/LI      1903/LB      1905/MTB
      1911/MTB     1918/LB      1932/AH      1933/STH     1938-DATA
   ZTWLP12         1867/STH     1869/STB     1908/LI      1931/LH      1938/DATA    1940-ZFCP
   ZTW10           1919/BCR     1925-LI
   ZTYP            1747-LCFI    2353/ZFSAT
   ZT4C             401/XPSD     453-DATA
   ZT4D             402/XPSD     457-DATA
   ZT40             441-DATA     538/AI      2198/XPSD
   ZT41             390/XPSD     445-DATA
   ZT46             395/XPSD     449-DATA
   ZUDFPM           166-EQU      771/STW     1054/MTW     1069/MTW     1253/MTW
   1SLOWBIT        3458/CW      3460/STW     3476/AW      3486/LW      4271/LW      7607-DATA
   1XF2R           5260/B       5405-LB
