BANNER TELEFILE,TELE-PCL,PCLCO.
1
D
 TTTTTTTTTTTT     EEEEEEEEEEEEE    LL               EEEEEEEEEEEEE    FFFFFFFFFFFFF      IIIIIIII       LL               EEEEEEEEEEEEE
 TTTTTTTTTTTT     EEEEEEEEEEEEE    LL               EEEEEEEEEEEEE    FFFFFFFFFFFFF      IIIIIIII       LL               EEEEEEEEEEEEE
      TT          EE               LL               EE               FF                    II          LL               EE
      TT          EE               LL               EE               FF                    II          LL               EE
      TT          EE               LL               EE               FF                    II          LL               EE
      TT          EEEEEEEE         LL               EEEEEEEE         FFFFFFFF              II          LL               EEEEEEEE
      TT          EEEEEEEE         LL               EEEEEEEE         FFFFFFFF              II          LL               EEEEEEEE
      TT          EE               LL               EE               FF                    II          LL               EE
      TT          EE               LL               EE               FF                    II          LL               EE
      TT          EE               LL         LL    EE               FF                    II          LL         LL    EE
      TT          EEEEEEEEEEEEE    LLLLLLLLLLLLL    EEEEEEEEEEEEE    FF                 IIIIIIII       LLLLLLLLLLLLL    EEEEEEEEEEEEE
      TT          EEEEEEEEEEEEE    LLLLLLLLLLLLL    EEEEEEEEEEEEE    FF                 IIIIIIII       LLLLLLLLLLLLL    EEEEEEEEEEEEE
D
 TTTTTTTTTTTT     EEEEEEEEEEEEE    LL               EEEEEEEEEEEEE    -------------    PPPPPPPPPPPP      CCCCCCCCCCC     LL
 TTTTTTTTTTTT     EEEEEEEEEEEEE    LL               EEEEEEEEEEEEE    ------------     PPPPPPPPPPPPP    CCCCCCCCCCCCC    LL
      TT          EE               LL               EE               --       --      PP         PP    CC         CC    LL
      TT          EE               LL               EE                       --       PP         PP    CC               LL
      TT          EE               LL               EE                      --        PP         PP    CC               LL
      TT          EEEEEEEE         LL               EEEEEEEE               --         PPPPPPPPPPPPP    CC               LL
      TT          EEEEEEEE         LL               EEEEEEEE              --          PPPPPPPPPPPP     CC               LL
      TT          EE               LL               EE                   --           PP               CC               LL
      TT          EE               LL               EE                  --            PP               CC               LL
      TT          EE               LL         LL    EE                 --       --    PP               CC         CC    LL         LL
      TT          EEEEEEEEEEEEE    LLLLLLLLLLLLL    EEEEEEEEEEEEE     ------------    PP               CCCCCCCCCCCCC    LLLLLLLLLLLLL
      TT          EEEEEEEEEEEEE    LLLLLLLLLLLLL    EEEEEEEEEEEEE    -------------    PP                CCCCCCCCCCC     LLLLLLLLLLLLL
D
                  PPPPPPPPPPPP      CCCCCCCCCCC     LL                CCCCCCCCCCC      OOOOOOOOOOO
                  PPPPPPPPPPPPP    CCCCCCCCCCCCC    LL               CCCCCCCCCCCCC    OOOOOOOOOOOOO
                  PP         PP    CC         CC    LL               CC         CC    OO         OO
                  PP         PP    CC               LL               CC               OO         OO
                  PP         PP    CC               LL               CC               OO         OO
                  PPPPPPPPPPPPP    CC               LL               CC               OO         OO
                  PPPPPPPPPPPP     CC               LL               CC               OO         OO
                  PP               CC               LL               CC               OO         OO
                  PP               CC               LL               CC               OO         OO
                  PP               CC         CC    LL         LL    CC         CC    OO         OO
                  PP               CCCCCCCCCCCCC    LLLLLLLLLLLLL    CCCCCCCCCCCCC    OOOOOOOOOOOOO
                  PP                CCCCCCCCCCC     LLLLLLLLLLLLL     CCCCCCCCCCC      OOOOOOOOOOO
D
1
D
 TTTTTTTTTTTT     EEEEEEEEEEEEE    LL               EEEEEEEEEEEEE    FFFFFFFFFFFFF      IIIIIIII       LL               EEEEEEEEEEEEE
 TTTTTTTTTTTT     EEEEEEEEEEEEE    LL               EEEEEEEEEEEEE    FFFFFFFFFFFFF      IIIIIIII       LL               EEEEEEEEEEEEE
      TT          EE               LL               EE               FF                    II          LL               EE
      TT          EE               LL               EE               FF                    II          LL               EE
      TT          EE               LL               EE               FF                    II          LL               EE
      TT          EEEEEEEE         LL               EEEEEEEE         FFFFFFFF              II          LL               EEEEEEEE
      TT          EEEEEEEE         LL               EEEEEEEE         FFFFFFFF              II          LL               EEEEEEEE
      TT          EE               LL               EE               FF                    II          LL               EE
      TT          EE               LL               EE               FF                    II          LL               EE
      TT          EE               LL         LL    EE               FF                    II          LL         LL    EE
      TT          EEEEEEEEEEEEE    LLLLLLLLLLLLL    EEEEEEEEEEEEE    FF                 IIIIIIII       LLLLLLLLLLLLL    EEEEEEEEEEEEE
      TT          EEEEEEEEEEEEE    LLLLLLLLLLLLL    EEEEEEEEEEEEE    FF                 IIIIIIII       LLLLLLLLLLLLL    EEEEEEEEEEEEE
D
 TTTTTTTTTTTT     EEEEEEEEEEEEE    LL               EEEEEEEEEEEEE    -------------    PPPPPPPPPPPP      CCCCCCCCCCC     LL
 TTTTTTTTTTTT     EEEEEEEEEEEEE    LL               EEEEEEEEEEEEE    ------------     PPPPPPPPPPPPP    CCCCCCCCCCCCC    LL
      TT          EE               LL               EE               --       --      PP         PP    CC         CC    LL
      TT          EE               LL               EE                       --       PP         PP    CC               LL
      TT          EE               LL               EE                      --        PP         PP    CC               LL
      TT          EEEEEEEE         LL               EEEEEEEE               --         PPPPPPPPPPPPP    CC               LL
      TT          EEEEEEEE         LL               EEEEEEEE              --          PPPPPPPPPPPP     CC               LL
      TT          EE               LL               EE                   --           PP               CC               LL
      TT          EE               LL               EE                  --            PP               CC               LL
      TT          EE               LL         LL    EE                 --       --    PP               CC         CC    LL         LL
      TT          EEEEEEEEEEEEE    LLLLLLLLLLLLL    EEEEEEEEEEEEE     ------------    PP               CCCCCCCCCCCCC    LLLLLLLLLLLLL
      TT          EEEEEEEEEEEEE    LLLLLLLLLLLLL    EEEEEEEEEEEEE    -------------    PP                CCCCCCCCCCC     LLLLLLLLLLLLL
D
                  PPPPPPPPPPPP      CCCCCCCCCCC     LL                CCCCCCCCCCC      OOOOOOOOOOO
                  PPPPPPPPPPPPP    CCCCCCCCCCCCC    LL               CCCCCCCCCCCCC    OOOOOOOOOOOOO
                  PP         PP    CC         CC    LL               CC         CC    OO         OO
                  PP         PP    CC               LL               CC               OO         OO
                  PP         PP    CC               LL               CC               OO         OO
                  PPPPPPPPPPPPP    CC               LL               CC               OO         OO
                  PPPPPPPPPPPP     CC               LL               CC               OO         OO
                  PP               CC               LL               CC               OO         OO
                  PP               CC               LL               CC               OO         OO
                  PP               CC         CC    LL         LL    CC         CC    OO         OO
                  PP               CCCCCCCCCCCCC    LLLLLLLLLLLLL    CCCCCCCCCCCCC    OOOOOOOOOOOOO
                  PP                CCCCCCCCCCC     LLLLLLLLLLLLL     CCCCCCCCCCC      OOOOOOOOOOO
D
ASSIGN M:CI,(FILE,CI:PCLCO,PCLH00CI),(IN),(SAVE)
ASSIGN M:SI,(FILE,SI:PCLCO,PCLH00SI),(IN),(SAVE)
ASSIGN M:BO,(FILE,BO:PCLCO,PCLH00BO),(OUT),(SAVE)
ASSIGN M:LL,(DEVICE,LO),(OUT)
1* AP * 22:32 JUN 16,'85                                                                          PAGE    1
A      1                      .010  +0                                  Pre-release H02
       2                      .020  H02   SET         1                 DIFFERENTIATE BETWEEN H01/H02
       3                   124.000  +124                                PCL SIDR      32008
       4                   124.010           REF      MAXSEV
       5                   256.000  +256,256                            Pre-release H01
       6                   256.010  *
       7                   372.000  +372,374                            PCL SIDR      ?-2-?
       8                   372.010           BE       DENOK
       9                   372.020           AI,R3    -1600
      10                   372.030           BE       DENOK
      11                   372.040           CI,R3    6250-1600
      12                   372.050           BNE      ANS4
      13                   372.060           LI,R3    2**9
      14                   372.070  DENOK    EQU,0    %                 1=>800,0=>1600,2=>6250
      15                   526.000  +526                                Tele-PCL SIDR 4.21
      16                   526.010           DO       H02
      17                   526.020           CI,R3    0                 THIS ALLOWS THE USER TO SAY
      18                   526.030           BG       RANGEGO           C FILENAME (NUMBER-NUMBER)
      19                   526.040           CI,R5    1                 OR
      20                   526.050           BNE      RANGEEND          C FILENAME (NUMBER-)
      21                   526.060           CI,R6    1                 OR
      22                   526.070           BE       RANGEEND          C FILENAME (-NUMBER)
      23                   526.080           LI,R3    1
      24                   526.090           B        RANGEGO
      25                   526.100  RANGEEND LW,R3    =X'7FFFFFFF'
      26                   526.110  RANGEGO  EQU,0    %
      27                   526.120           FIN
      28                   611.000  +611,611                            Pre-release H02
      29                   614.000  +614,614                            Tele-PCL SIDR 4.10H
      30                   614.010        DO          H02
      31                   614.020           LW,R3    =X'FFFFFF'        MAXIMUM 3 BYTE KEY
      32                   614.030        ELSE
      33                   614.040           LW,R3    =9999999          DEFAULT MAX
      34                   614.050        FIN
      35                   782.000  +782,782                            PCL SIDR      32008
      36                   782.010           OPT      'DEOD',X'84000019',15
      37                  1214.000  +1214                               PCL SIDR      32008
      38                  1214.010           LI,R13   2                 SET STEP CCS IF ERROR
      39                  1214.020           CW,R13   MAXSEV            OCCURS DURING COPYALL/STD
      40                  1214.030           BLE      %+2
      41                  1214.040           STW,R13  MAXSEV
      42                  1252.000  +1252                               Tele-PCL SIDR 4.36
      43                  1252.010           DO       H02
      44                  1252.020           CI,R1    0                 CHECK IF PLATEN WIDTH IS 0
      45                  1252.030           BNE      %+2
      46                  1252.040           LI,R1    80                IF SO, SET TO 80 - INTERNALLY
      47                  1252.050           FIN
      48                  1390.000  +1390,1391                          Tele-PCL SIDR 4.37
      49                  1390.010        DO          H02
      50                  1390.020  ALL95    CI,R6    COPYEND-1         THIS IS DRB'S BAD USE OF A SYMBOL
      51                  1390.030           BNE      0,R6              DO TOP OF FORM INSTEAD OF SPACES
      52                  1390.040           CAL1,1   FPTTOF            IN BATCH AT BEGINNING OF FILE
      53                  1390.050        ELSE
      54                  1390.060  ALL95    CAL1,1   FPTSPACE
      55                  1390.070           CAL1,1   FPTSPACE
      56                  1390.080        FIN
      57                  1417.000  +1417,1417                          Pre-release H01
      58                  1461.000  +1461,1461                          Pre-release H01
      59                  1461.010  COPYSTR12 STW,R1  DEVICE,R7
      60                  9000.000  +END                                Pre-release H01
1* AP * 22:32 JUN 16,'85    PCLCO - COMBINE,COPYTRAN,COPYALL,COPYTO                               PAGE    2
A       1*        00000001           H02   SET         1                 DIFFERENTIATE BETWEEN H01/H02
1* AP * 22:32 JUN 16,'85    PCLCO - COMBINE,COPYTRAN,COPYALL,COPYTO                               PAGE    3
A       1                                     TITLE    'PCLCO - COMBINE,COPYTRAN,COPYALL,COPYTO'
        2                            *
        3                            *        T E L E F I L E   P R O P R I E T A R Y   P R O D U C T
        4                            *
        5                            *        THIS DOCUMENT INCLUDES DATA AND INFORMATION CONSIDERED
        6                            *        PROPRIETARY TO TELEFILE COMPUTER PRODUCTS, INC.  REPRODUCTION,
        7                            *        DUPLICATION, DISCLOSURE OR DISSEMINATION, IN WHOLE OR IN PART,
        8                            *        TO OTHERS THAN REPRESENTATIVES OF THE UNITED STATES GOVERNMENT
        9                            *        SHALL NOT BE MADE WITHOUT PRIOR WRITTEN AUTHORIZATION OF
       10                            *        TELEFILE COMPUTER PRODUCTS, INC. NOTWITHSTANDING THE FORGOING,
       11                            *        USE OF THE DATA OR INFORMATION IN WHOLE OR IN PART FOR DESIGN,
       12                            *        PROCUREMENT OF MANUFACTURE IS STRICTLY FORBIDDEN.
       13                            *
       14                            *M*      COPYTRAN COPY COMMAND TRANSLATOR
       15         00000000           R0       EQU      0
       16         00000001           R1       EQU      1
       17         00000002           R2       EQU      2
       18         00000003           R3       EQU      3
       19         00000004           R4       EQU      4
       20         00000005           R5       EQU      5
       21         00000006           R6       EQU      6
       22         00000007           R7       EQU      7
       23         00000008           R8       EQU      8
       24         00000009           R9       EQU      9
       25         0000000A           R10      EQU      10
       26         0000000B           R11      EQU      11
       27         0000000C           R12      EQU      12
       28         0000000D           R13      EQU      13
       29         0000000E           R14      EQU      14
       30         0000000F           R15      EQU      15
1* AP * 22:32 JUN 16,'85    PCLCO - COMBINE,COPYTRAN,COPYALL,COPYTO                               PAGE    4
A      31                                     PAGE
       32                                     SYSTEM   SIG7
       33                            *
       34                            *P*      NAME:    COPYTRAN
       35                            *P*
       36                            *P*      PURPOSE: TO TRANSLATE ALL ARGUMENTS SPECIFIED IN EITHER THE INPUT OR
       37                            *P*               THE OUTPUT FIELD OF A COPY COMMAND.  THE RESULTS OF THE
       38                            *P*               TRANSLATION ARE ENTERED IN THE ARGUMENT TABLE, ARGTBL.
       39                            *P*               COPYTRAN IS ALSO CALLED TO TRANSLATE THE INPUT FIELD OF A
       40                            *P*               COPYSTD COMMAND.
       41                            *P*
       42                            *DO*
       43                            *P*
       44                            *
       45                            * INPUT
       46                            *        R1       ARGUMENT LEVEL (1-DEVICE,2-FILE)
       47                            *        ARGBUFF  ARGUMENT BUFFER
       48                            *        NCHAR    LENGTH OF CURRENT ARGUMENT
       49                            *        TERM     TERMINATOR FOR CURRENT ARGUMENT
       50                            * OUTPUT
       51                            *        R1       NEXT ARGUMENT LEVEL (0-NONE,1-DEVICE,2-FILE)
       52                            *        ARGTBL   ARGUMENT TABLE (SEE DEVICE-SELECT BELOW)
       53                            *
       54                            *        DEVICE   +0    DEVICE ID CODE
       55                            *                 +1    NUMBER OF REEL NO.
       56                            *                 +2    COMMAND BUFFER INDEX OF FIRST REEL NO.
       57                            *        FILE     +0    FILE ID INDICATOR (1=N,2=N.A,3=N.A.P,6=A)
       58                            *                 +1    COMMAND BUFFER INDEX OF FILE NAME
       59                            *        CODE     +0    DATA CODE/FORMAT ID
       60                            *        MODE     +0 - BYTE 0       BCD/BIN ID CODE
       61                            *                      BYTE 1       NB ID CODE
       62                            *                      BYTE 2       FLAGS FOR EXP,CRPT,JOB,NF
       63                            *                      BYTE 3       VOL
       64                            *                 +1 - BYTE 0       LC/UC ID CODE
       65                            *                      BYTE 1       UNUSED
       66                            *                      BYTE 2       BITS FOR BLK/REC/FMT/CAT/DEN
       67                            *                      BYTE 3       7T/9T/ASCI/EBCD ID CODE
       68                            *                 +2 - BYTE 0       RD/WR
       69                            *                      BYTE 1       K ID CODE
       70                            *                      BYTE 2       TX ID CODE
       71                            *                      BYTE 3       PK/UPK ID CODE
       72                            *                 +3 - BYTE 0       SSP/DSP/VFC ID CODE
       73                            *                      BYTE 1       NC/CR ID CODE
       74                            *                      BYTE 2       FA/NFA ID CODE
       75                            *                      BYTE 3       DEOD ID CODE
       76                            *        SEQUENCE +0    SEQUENCE ID CODE
       77                            *                 +1    NCHAR IN ID
       78                            *                 +2    INITIAL VALUE
       79                            *                 +3    INCREMENT
       80                            *                 +4    MAXIMUM VALUE
       81                            *        SELECT   +0    NO. OF SELECTIONS
       82                            *                 +1    LOW VALUE OF FIRST SELECTION
       83                            *                 +2    HIGH VALUE OF FIRST SELECTION
       84                            *                 +20   HIGH VALUE OF LAST SELECTION
       85                            *
       86                            *FIN*
       87                                     REF      CLRARG
       88                                     REF      ERROR,FIXARG,INTARG,GETARG,BCD2BIN
       89                                     REF      DEVTRAN           TRANSLATE DEVICE SPECIFICATION
       90                                     REF      FILTRAN           TRANSLATE FILE SPECIFICATION
       91                                     REF      DEV%SAV1          SAVE DEVICE CODE FOR TESTARG
       92                                     REF      COPYSK            SELECTIVE COPYALL ON FILE ORG
       93                                     REF      COPYPHY           COPYALL RANGE IN PHYSICAL TAPE ODER
       94                                     REF      ERRFLAG           ERROR CODES
       95                                     REF      HEX2BIN           CONVERT STR FROM HEX
       96                                     REF      IN%ARG            SET RESOURCE TYPE FOR COPYSTD
       97                                     REF      OUT%ARG           DEFAULT COPY TO ME
       98                                     REF      INCRPT            INPUT ENCRYPTION
       99                                     REF      MAXSN             UPPER LIMIT FOR VOL OPT
      100                                     REF      NCHAR,TERM,ARGBUFF,ARGBUF4
      101                                     REF      ARGTBL,DVLARG
      102                                     REF      CODE,MODE,SEQUENCE,SELECT
      103         00000000 S         MODEX4   EQU      MODE+MODE+MODE+MODE
      104                                     REF      CMBX
      105                                     REF      DEVICE            PCL DEVICE TYPE
      106                                     REF      FILE
      107                                     REF      CARDSEQ
      108                                     REF      MBS
      109                                     REF      TABSET,J:JIT
      110                                     REF      M:UC
      111                                     REF      COPYSTDF,SFARG
      112                                     REF      RDTBL,WRTBL,TEXTARG
      113                                     REF      ANSBLK
      114                                     REF      BLKIN
      115                                     REF      RDWRTX            LAST ENTRY TO RDWRT
      116                                     REF      PRTERR            OUTPUT ERROR MESSAGES
      117                                     REF      LISTPOS           TO STRING COPYALL/STD NAMES HORIZ
      118                                     REF      RANGEOUT          HEADER FOR FILES TO LP/UC
      119                                     REF      JB:PCW
      120                                     REF      DCBS              CHECK DO=LO OR UC
      121                                     REF      M:DO              FOR COPYALL/STD ERR MSGS
      122                                     REF      EXPIRE
      123                                     REF      LISTTERM
      124                                     REF      UNTBL,EXTBL
        1*                                    REF      MAXSEV
1* AP * 22:32 JUN 16,'85    PCLCO - COMBINE,COPYTRAN,COPYALL,COPYTO                               PAGE    5
A     125                                     PAGE
      126   04 00000                 COPYTRAN DSECT    1
      127                                     DEF      ALLC              TYPE NAME/ERROR FOR MULTIFILERS
      128                                     DEF      LOSPACE           SO PRTNOF CAN UPSPACE
      129                            *
      130   04 00000    02200070 A            LCI      7                 SAVE REGISTERS
      131   04 00001    8B500007 A            PSM,R5   *R7
      132   04 00002    35100008 A            STW,R1   R8                SAVE LEVEL  1-DEVICE, 2-FILE
      133   04 00003    21800001 A            CI,R8    1                 DEVICE ARGUMENT LEVEL
      134   04 00004    69300033              BNE      FILE1             NO-FILE ARGUMENT LEVEL
      135   04 00005    6AB00000 X            BAL,R11  CLRARG            CLEAR -ARGTBL-
      136   04 00006    324E0000 X            LW,R4    TERM,R7
      137   04 00007    2140004B A            CI,R4    '.'               . ( ) ARE POOR CHOICES
      138   04 00008    6830000A              BE       %+2
      139   04 00009    2140004D A            CI,R4    '('
      140   04 0000A    6830000C              BE       %+2
      141   04 0000B    2140005D A            CI,R4    ')'
      142   04 0000C    6930000F              BNE      DEV1
      143   04 0000D    22100011 A            LI,R1    17                SYNTAX ERROR
      144   04 0000E    6AB00000 X            BAL,R11  ERROR
      145   04 0000F    325E0000 X   DEV1     LW,R5    CMBX,R7
      146                            *
      147   04 00010    6AB00000 X            BAL,R11  DEVTRAN           TRANSLATE DEVICE ID
      148   04 00011    330E0000 X            MTW,0    COPYSTDF,R7       ARE WE COPYING A STD FILE
      149   04 00012    68100025              BGE      DEV3              NO
      150   04 00013    2210000C A            LI,R1    12                MOVE NON-DEVICE ARGS
      151   04 00014    22200003 N            LI,R2    DEVICE+3
      152   04 00015    30200007 A            AW,R2    R7
      153   04 00016    32320003 X            LW,R3    SFARG+3,R1
      154   04 00017    B5320002 A            STW,R3   *R2,R1            FROM COMMAND LINE
      155   04 00018    64100016              BDR,R1   %-2
      156   04 00019    315E0000 X            CW,R5    CMBX,R7           DID WE GET A DEVICE CODE
      157   04 0001A    68300020              BE       DEV2              NO, USE STD FILE ONE
      158   04 0001B    22100061 A            LI,R1    '/'               WILLWE GET A FILE NAME
      159   04 0001C    311E0000 X            CW,R1    TERM,R7
      160   04 0001D    68300025              BE       DEV3              YES, DONT USE OLD DEVICE
      161   04 0001E    351E0000 X            STW,R1   TERM,R7           NO, MAKE SURE WE DO
      162   04 0001F    355E0000 X            STW,R5   CMBX,R7
      163   04 00020    353E0000 X   DEV2     STW,R3   IN%ARG,R7         NO, SAVE COMMAND LINE ONE
      164   04 00021    221FFFFD A            LI,R1    -3                AND MOVE REST OF ARGS
      165   04 00022    32320003 X            LW,R3    SFARG+3,R1
      166   04 00023    B5320002 A            STW,R3   *R2,R1
      167   04 00024    65100022              BIR,R1   %-2
      168   04 00025    6AA0004D     DEV3     BAL,R10  TEST0             SET UP DEV%SAV1
      169   04 00026    325E0000 X            LW,R5    TERM,R7           TEST FOR TERMINATION ON LT. PAREN
      170   04 00027    2150004D A            CI,R5    X'4D'             ARGUMENTS FOR DEVICE
      171   04 00028    6830007F              BE       SPECARG           YES-GO TRANSLATE SPEC. ARGUMENTS
      172   04 00029    21500061 A   DEVRTN   CI,R5    '/'               FILE FOLLOW
      173   04 0002A    69300043              BNE      TESTEND           NO
      174   04 0002B    22100010 A            LI,R1    16                YES, SAVE DEVICE ARGS
      175   04 0002C    32200007 A            LW,R2    R7
      176   04 0002D    3234000F X            LW,R3    ARGTBL+15,R2
      177   04 0002E    3533FFFF X            STW,R3   DVLARG-1,R1
      178   04 0002F    202FFFFF A            AI,R2    -1
      179   04 00030    6410002D              BDR,R1   %-3
      180   04 00031    22800002 A            LI,R8    2                 SET LEVEL TO FILE
      181   04 00032    6800003A              B        FILE2
      182                            *
      183   04 00033    22100010 A   FILE1    LI,R1    16                RESTORE DEVICE ARGS
      184   04 00034    32200007 A            LW,R2    R7
      185   04 00035    3233FFFF X            LW,R3    DVLARG-1,R1
      186   04 00036    3534000F X            STW,R3   ARGTBL+15,R2
      187   04 00037    202FFFFF A            AI,R2    -1
      188   04 00038    64100035              BDR,R1   %-3
      189   04 00039    6AA0004D              BAL,R10  TEST0             SET UP DEV%SAV1
      190   04 0003A    6AB00000 X   FILE2    BAL,R11  FILTRAN           GO-TRANSLATE FILE ID N.A.P
      191   04 0003B    22100001 A            LI,R1    1                 TEST LEGALITY OF FILE
      192   04 0003C    6AA00069              BAL,R10  TESTARG
      193   04 0003D    325E0000 X            LW,R5    TERM,R7           TEST FOR TERMINATION ON LT. PAREN
      194   04 0003E    2150004D A            CI,R5    X'4D'             (
      195   04 0003F    6830007F              BE       SPECARG           YES-GO TRANSLATE SPEC. ARGS.FOR FILE
      196   04 00040    2150006B A   FILRTN   CI,R5    X'6B'             TERM ON ,
      197   04 00041    6830004C              BE       COMBINE1          YES-NEW FILE
      198   04 00042    22800001 A            LI,R8    1                 SET LEVEL TO DEVICE
      199   04 00043    2150005E A   TESTEND  CI,R5    X'5E'             TERM ON ;
      200   04 00044    6830004C              BE       COMBINE1          YES-NEW DEVICE
      201   04 00045    22800000 A            LI,R8    0                 CLEAR ARG. LEVEL
      202   04 00046    21500040 A            CI,R5    X'40'             TERM ON BLANK
      203   04 00047    6830004C              BE       COMBINE1          YES-END OF INPUT FILES
      204   04 00048    21500015 A            CI,R5    X'15'             END OF COMMAND
      205   04 00049    6830004C              BE       COMBINE1          YES-END OF COMMAND
      206   04 0004A    22100011 A            LI,R1    17                ERROR 17
      207   04 0004B    6AB00000 X            BAL,R11  ERROR
      208   04 0004C    6800023A     COMBINE1 B        RETURN
      209                            *
      210   04 0004D    326E0000 X   TEST0    LW,R6    DEVICE,R7         GET DEVICE CODE
      211   04 0004E    21C00002 A            CI,R12   2                 INPUT OR OUTPUT
      212   04 0004F    68300051              BE       %+2
      213   04 00050    20600006 A            AI,R6    6
      214   04 00051    322E0000 X            LW,R2    COPYSTDF,R7       GET COPYSTDF
      215   04 00052    20800000 A            AI,R8    0                 COPYALL FLAG (=-1)
      216   04 00053    68100055              BGE      %+2
      217   04 00054    22200002 A            LI,R2    2
      218   04 00055    32240063              LW,R2    CMNDFLGS,R2
      219   04 00056    30200006 A            AW,R2    R6
      220   04 00057    352E0000 X            STW,R2   DEV%SAV1,R7       SAVE FOR TESTARG
      221   04 00058    22100015 A            LI,R1    21                CHECK CODE FOR LEGAL INPUT
      222   04 00059    21C00002 A            CI,R12   2                 OR OUTPUT VALUE
      223   04 0005A    6930005C              BNE      %+2
      224   04 0005B    22100013 A            LI,R1    19
      225   04 0005C    21600008 A            CI,R6    8
      226   04 0005D    6702004C              EXU      TESTDEV,R1
      227   04 0005E    6AB00000 X            BAL,R11  ERROR
      228         04 0004C           TESTDEV  EQU      %-19
      229   04 0005F    68200066              BLE      TEST2
      230   04 00060    68000066              B        TEST2
      231   04 00061    69200066              BG       TEST2
      232                            *
      233         04 00063           CMNDFLGS EQU      %+1
      234   04 00062    31000800 A            GEN,8,24 49,X'800'
      235   04 00063    27004000 A            GEN,8,24 39,X'4000'
      236   04 00064    27001000 A            GEN,8,24 39,X'1000'
      237   04 00065    27002000 A            GEN,8,24 39,X'2000'
      238   04 00066    22100000 A   TEST2    LI,R1    0                 CHECK FOR REEL# LEGALITY
      239   04 00067    330E0001 X            MTW,0    DEVICE+1,R7
      240   04 00068    E830000A A            BE       *R10
      241   04 00069    326E0000 X   TESTARG  LW,R6    DEV%SAV1,R7       DEVICE CODE
      242   04 0006A    22207F00 A            LI,R2    X'7F00'           CHECK FOR LEGALITY WITH
      243   04 0006B    4B220253              AND,R2   EDITBL,R1
      244   04 0006C    31200006 A            CW,R2    R6                COMMAND TYPE
      245   04 0006D    69400073              BANZ     TESTE             NO GOOD
      246   04 0006E    32220253              LW,R2    EDITBL,R1         LOCATE DEFINING BIT FOR COMBINATION
      247   04 0006F    75200006 A            STB,R2   R6                SAVE ERROR CODE
      248   04 00070    252C007F A            SLS,R2   -1,R6
      249   04 00071    21200000 A            CI,R2    0                 TEST FOR LEGAL COMBINATION
      250   04 00072    E910000A A            BL       *R10
      251   04 00073    46100006 A   TESTE    XW,R1    R6
      252   04 00074    72100001 A            LB,R1    R1                GET ERROR CODE
      253   04 00075    6AB00000 X            BAL,R11  ERROR
      254   04 00076    32100006 A            LW,R1    R6
      255   04 00077    E800000A A            B        *R10
        1*                           *
      257   04 00078    02200070 A   COPYOPT  LCI      7                 ENTRY FOR OPTIONS ONLY
      258   04 00079    8B500007 A            PSM,R5   *R7
      259   04 0007A    228FFFFF A            LI,R8    -1                SET FLAG
      260   04 0007B    6AA0004D              BAL,R10  TEST0             CHECK DEVICE, ETC.
      261   04 0007C    321E0000 X            LW,R1    TERM,R7           CHECK FOR OPTIONS
      262   04 0007D    2110004D A            CI,R1    '('
      263   04 0007E    6930023A              BNE      RETURN
1* AP * 22:32 JUN 16,'85    PCLCO - COMBINE,COPYTRAN,COPYALL,COPYTO                               PAGE    6
A     264                                     PAGE
      265   04 0007F    22B00082     SPECARG  LI,R11   %+3
      266   04 00080    22100000 A   GETARG0  LI,R1    0                 FEW DELIMITER
      267   04 00081    68000000 X            B        GETARG
      268                            *
      269   04 00082    322E0000 X            LW,R2    NCHAR,R7          NULL SPECIAL ARGUMENT
      270   04 00083    69200087              BG       CODE1             NO
      271   04 00084    2210001D A            LI,R1    29                ERROR 29
      272   04 00085    6AB00000 X            BAL,R11  ERROR
      273   04 00086    68000228              B        ENDSPEC
      274                            *
      275   04 00087    22100252     CODE1    LI,R1    CODETBL           SEARCH DATA CODE TABLE FOR MATCH
      276   04 00088    6AB00000 X            BAL,R11  FIXARG
      277   04 00089    21100000 A            CI,R1    0                 FIND A DATA CODE
      278   04 0008A    68300177              BE       RCDSEL1           NOT RECOGNIZABLE, MUST BE A NUMMER
      279   04 0008B    6AA00069              BAL,R10  TESTARG           CHECK VALIDITY
      280   04 0008C    2510007F A            SLS,R1   -1                GET SINGLE INDEX
      281   04 0008D    21100007 A            CI,R1    CODEEND           IS IT A DATA CODE
      282   04 0008E    68100092              BGE      MODE1             NO TRY A MODE
      283   04 0008F    461E0000 X            XW,R1    CODE,R7           STORE AND TEST PREVIOUS SPEC
      284   04 00090    6930021E              BNE      DUPERR
      285   04 00091    68000228              B        ENDSPEC           CHECK PROPER TERMINATION
      286                            *
      287   04 00092    21100021 A   MODE1    CI,R1    MODEEND           GOT A MODE TYPE
      288   04 00093    681000AB              BGE      ANS1              NO, MAYBE ANS TYPE
      289   04 00094    201FFFFA A            AI,R1    -CODEEND+1        GET MODE CODE
      290   04 00095    7222024B              LB,R2    MODEDPL,R1        STORE MODE ID CODE
      291   04 00096    6830009A              BE       KGC0%4
      292   04 00097    F3040007 A            MTB,0    *R7,R2            DO WE HAVE THIS TYPE ALREADY
      293   04 00098    6930021E              BNE      DUPERR
      294   04 00099    F5140007 A            STB,R1   *R7,R2
      295   04 0009A    201FFFEB A   KGC0%4   AI,R1    -(TXOPT-CODEEND+1)
      296   04 0009B    69200104              BG       EXPARG            EXP OR VOL
      297   04 0009C    69300228              BNE      ENDSPEC           NO
      298   04 0009D    330E0004 X            MTW,0    TABSET+4,R7       ARE THERE PCL TABS IN EFFECT
      299   04 0009E    69300228              BNE      ENDSPEC           YES
      300   04 0009F    33000000 X            MTW,0    J:JIT
      301   04 000A0    691000A4              BL       MODE2             ON-LINE MODE
      302   04 000A1    22100030 A   MODE4    LI,R1    48                TX OPTION USED WITHOUT TABS CMD
      303   04 000A2    6AB00000 X            BAL,R11  ERROR
      304   04 000A3    68000228              B        ENDSPEC
      305   04 000A4    7300000F X   MODE2    MTB,0    M:UC+15
      306   04 000A5    683000A1              BE       MODE4             NO TABS IN M:UC
      307   04 000A6    2210000F N            LI,R1    M:UC+15
      308   04 000A7    351E0004 X            STW,R1   TABSET+4,R7       SET ADR FOR USE IN TAB EXPANSION
      309   04 000A8    68000228              B        ENDSPEC           CHECK PROPER TERMINATION
      310                            *
      311   04 000A9    04C6C4E5 A   FMTVAL   TEXTC    'FDVU'
            04 000AA    E4404040 A
      312   04 000AB    21100026 A   ANS1     CI,R1    ANSEND            IS IT ANS TYPE
      313   04 000AC    681000EE              BGE      RW1               NOPE, TRY ACCT/VEHICLE TYPE
      314   04 000AD    201FFFE0 A            AI,R1    -MODEEND+1
      315   04 000AE    32600001 A            LW,R6    R1                SAVE INDEX
      316   04 000AF    323E0000 X            LW,R3    TERM,R7
      317   04 000B0    2130004D A            CI,R3    '('
      318   04 000B1    693000DA              BNE      ANS9              VALUE MUST BE PRESENT
      319   04 000B2    6AB00080              BAL,R11  GETARG0
      320   04 000B3    21600003 A            CI,R6    3                 IS IT FMT OPT
      321   04 000B4    693000C4              BNE      ANS3              NO
      322   04 000B5    322E0000 X            LW,R2    ARGBUFF,R7
      323   04 000B6    73F00002 A            MTB,-1   R2                MUST BE ONE CHAR
      324   04 000B7    693000BD              BNE      ANS4              BAD ONE
      325   04 000B8    25200070 A            SLS,R2   -16
      326   04 000B9    22300004 A            LI,R3    4                 FOUR FORMATS
      327   04 000BA    712600A9              CB,R2    FMTVAL,R3
      328   04 000BB    683000CD              BE       ANS6              GOT ONE
      329   04 000BC    643000BA              BDR,R3   %-2
      330   04 000BD    721C00C0     ANS4     LB,R1    ANSE,R6           GET PROPER ERROR CODE
      331   04 000BE    6AB00000 X            BAL,R11  ERROR
      332   04 000BF    680000D7              B        ANS8
      333                            *
      334   04 000C0    0A363636 A   ANSE     DATA     X'0A363636',X'36393400'
            04 000C1    36393400 A
      335   04 000C2    00010001 A   ANSL     DATA     X'00010001',X'02FF0000'
            04 000C3    02FF0000 A
      336   04 000C4    721C00C2     ANS3     LB,R1    ANSL,R6           GET LOWER LIMIT
      337   04 000C5    22207FFF A            LI,R2    32767             MAX VALUE
      338   04 000C6    6AB00000 X            BAL,R11  INTARG            CONVERT AND TEST
      339                            *        CI,R2    1
      340   04 000C7    681000BD              BGE      ANS4              INVALID, OUT OF RANGE
      341   04 000C8    21600003 A            CI,R6    3                 TEST IF BLK OR REC(1,2)
      342   04 000C9    691000CD              BL       ANS6              YUP 1-32767 IS GOOD
      343   04 000CA    694000E5              BANZ     DEN1              DENSITY (5)
      344   04 000CB    21300080 A            CI,R3    128               MAX CAT
      345   04 000CC    692000BD              BG       ANS4              OUT OF RANGE VALUE
      346   04 000CD    6700021E     ANS6     EXU      DUPERR            LOAD R1 FOR DUPERR
      347   04 000CE    22B00001 A            LI,R11   1                 CHECK PRESENCE BIT
      348   04 000CF    25BC0008 A            SLS,R11  8,R6
      349   04 000D0    31BE0001 X            CW,R11   MODE+1,R7
      350   04 000D1    694000BE              BANZ     ANS4+1
      351   04 000D2    47BE0001 X            STS,R11  MODE+1,R7
      352   04 000D3    21C00002 A            CI,R12   2                 IF INPUT, USE BLKIN INSTEAD
      353   04 000D4    693000D6              BNE      %+2
      354   04 000D5    20600000 N            AI,R6    BLKIN-ANSBLK
      355   04 000D6    353DFFFF X            STW,R3   ANSBLK-1,R6
      356   04 000D7    322E0000 X   ANS8     LW,R2    TERM,R7
      357   04 000D8    2120005D A            CI,R2    ')'
      358   04 000D9    68300218              BE       ENDSPL24
      359   04 000DA    22100011 A   ANS9     LI,R1    17
      360   04 000DB    6800021C              B        ENDSPL26          SYNTAX ERROR
      361                            *
      362   04 000DC    6AB00000 X   CRPT     BAL,R11  HEX2BIN
      363   04 000DD    22600006 A            LI,R6    6                 SET ERROR INDEX
      364   04 000DE    20400000 A            AI,R4    0
      365   04 000DF    693000BD              BNE      ANS4              NO GOOD
      366   04 000E0    21C00002 A            CI,R12   2                 IN OR OUT
      367   04 000E1    683000E3              BE       %+2
      368   04 000E2    20600001 A            AI,R6    1                 OUTCRPT
      369   04 000E3    353DFFFA X            STW,R3   INCRPT-6,R6
      370   04 000E4    680000D7              B        ANS8
      371   04 000E5    21300320 A   DEN1     CI,R3    800               MUST BE 800 OR 1600
        1*  04 000E6    683000EC              BE       DENOK
        2*  04 000E7    203FF9C0 A            AI,R3    -1600
        3*  04 000E8    683000EC              BE       DENOK
        4*  04 000E9    2130122A A            CI,R3    6250-1600
        5*  04 000EA    693000BD              BNE      ANS4
        6*  04 000EB    22300400 A            LI,R3    2**9
        7*        04 000EC           DENOK    EQU,0    %                 1=>800,0=>1600,2=>6250
      375   04 000EC    25300077 A            SLS,R3   -9                MAKE IT 1 OR 0
      376   04 000ED    680000CD              B        ANS6
      377                            *
      378   04 000EE    2110002A A   RW1      CI,R1    RWEND             IF NOT RD,WR,EX,UN
      379   04 000EF    691001A3              BL       RWACCT            MUST BE SEQ OR SPECIAL TYPE
      380   04 000F0    2110002E A            CI,R1    SEQEND            DO WE HAVE SEQUENCE TYPE
      381   04 000F1    681000F9              BGE      SPEC1             NO
      382   04 000F2    201FFFD7 A            AI,R1    -RWEND+1          MAKE SEQUENCE TYPE
      383   04 000F3    330E0000 X            MTW,0    SEQUENCE,R7       CHECK CONFILCT
      384   04 000F4    6930021E              BNE      DUPERR
      385   04 000F5    351E0000 X            STW,R1   SEQUENCE,R7       STORE SEQUENCE ID CODE
      386   04 000F6    21100003 A            CI,R1    3                 CS OR NL
      387   04 000F7    69100228              BL       ENDSPEC           NEITHER- CHECK PROPER TERMINATION
      388   04 000F8    680001C9              B        SPECL2
      389                            *
      390   04 000F9    201FFFD3 A   SPEC1    AI,R1    -SEQEND+1
      391   04 000FA    322200FF              LW,R2    SPEC2,R1          GET WHERE TO STORE
      392   04 000FB    25100004 A            SLS,R1   4
      393   04 000FC    46140000 A            XW,R1    0,R2
      394   04 000FD    21100070 A            CI,R1    X'70'             HAVE WE BEEN HERE
      395   04 000FE    6940021E              BANZ     DUPERR
      396   04 000FF    68000228              B        ENDSPEC
      397                            *
      398         04 000FF           SPEC2    EQU      %-1
      399   04 00100    00000000 N            DATA     COPYSK,COPYSK,COPYSK
            04 00101    00000000 N
            04 00102    00000000 N
      400   04 00103    00000000 N            DATA     COPYPHY
1* AP * 22:32 JUN 16,'85    PCLCO - COMBINE,COPYTRAN,COPYALL,COPYTO                               PAGE    7
A     401                                     PAGE
      402   04 00104    32600001 A   EXPARG   LW,R6    R1                SAVE INDEX
      403   04 00105    22B00001 A            LI,R11   1
      404   04 00106    25BC0007 A            SLS,R11  7,R6
      405   04 00107    31BE0000 X            CW,R11   MODE,R7
      406   04 00108    6940021E              BANZ     DUPERR
      407   04 00109    47BE0000 X            STS,R11  MODE,R7
      408   04 0010A    21600003 A            CI,R6    3                 IS IT JOB OR NF
      409   04 0010B    69200228              BG       ENDSPEC           YUP.
      410   04 0010C    321E0000 X            LW,R1    TERM,R7
      411   04 0010D    201FFFB3 A            AI,R1    -'('
      412   04 0010E    6930018B              BNE      ERR11             BAD SYNTAX
      413   04 0010F    6AB00000 X            BAL,R11  GETARG            GET FIRST ARGUMENT
      414   04 00110    324E0000 X            LW,R4    TERM,R7
      415   04 00111    2140005D A            CI,R4    ')'
      416   04 00112    6460016E              BDR,R6   VOLARG            VOLUME OR CRPT
      417   04 00113    6830013F              BE       EXP5              ONLY ONE ARGUMENT
      418   04 00114    22600000 A            LI,R6    0                 PREPARE FOR SCAN OF MM,DD,YY
      419   04 00115    22800000 N            LI,R8    EXPIRE
      420   04 00116    30800007 A            AW,R8    R7                ADDRESS OF EXPIRE BUFFER
      421   04 00117    322E0000 X   EXP1     LW,R2    ARGBUFF,R7        GET ARGUMENT
      422   04 00118    72100002 A            LB,R1    R2                GET LENGTH
      423   04 00119    68300158              BE       EXPERR1           INVALID
      424   04 0011A    21100002 A            CI,R1    2
      425   04 0011B    69200158              BG       EXPERR1           GR THAN 2
      426   04 0011C    72320002 A   EXP12    LB,R3    R2,R1             TEST FOR NUMERICS
      427   04 0011D    1930015E              CLM,R3   LIMIT1
      428   04 0011E    69900158              BCS,9    EXPERR1           NO GOOD
      429   04 0011F    6410011C              BDR,R1   EXP12
      430   04 00120    72100002 A            LB,R1    R2                GET LENGTH AGAIN
      431   04 00121    4B200211 06           AND,R2   =X'FFFFFF'        MASK OFF COUNT
      432   04 00122    6702015A              EXU      SHIFT-1,R1        RIGHT JUSTIFY
      433   04 00123    49200212 06           OR,R2    =X'F0F0'          INSURE 2 CHARS
      434   04 00124    192C0160              CLM,R2   LIMIT2,R6         TEST VALUE
      435   04 00125    69900158              BCS,9    EXPERR1           NO GOOD
      436   04 00126    D52C0008 A   EXP2     STH,R2   *R8,R6            ENTER VALUE IN BUFFER
      437   04 00127    20600001 A            AI,R6    1
      438   04 00128    670C0169              EXU      BRTAB-1,R6        SELECT BRANCH FOR NEXT ARG
      439   04 00129    2220F0F0 A            LI,R2    X'F0F0'           SET HOUR VALUE
      440   04 0012A    68000126              B        EXP2              GO STORE
      441                            *
      442   04 0012B    321E0000 X   EXP3     LW,R1    TERM,R7
      443   04 0012C    2110006B A            CI,R1    ','               TEST FOR CORRECT DELIMITER
      444   04 0012D    68300132              BE       EXP4
      445   04 0012E    21100061 A            CI,R1    '/'
      446   04 0012F    68300132              BE       EXP4              OK
      447   04 00130    22100011 A            LI,R1    17                BAD SYNTAX
      448   04 00131    6AB00000 X            BAL,R11  ERROR
      449   04 00132    6AB00080     EXP4     BAL,R11  GETARG0
      450   04 00133    68000117              B        EXP1
      451   04 00134    322E0000 X   EXP9     LW,R2    EXPIRE,R7
      452   04 00135    22300000 A   EXP92    LI,R3    0                 CONVERT TO TEXTC FORMAT
      453   04 00136    25200178 A            SLD,R2   -8
      454   04 00137    49200213 06           OR,R2    =X'08000000'      SET 8 CHAR LENGTH
      455   04 00138    352E0000 X            STW,R2   EXPIRE,R7
      456   04 00139    324E0001 X            LW,R4    EXPIRE+1,R7
      457   04 0013A    25400178 A            SLD,R4   -8
      458   04 0013B    49400003 A            OR,R4    R3
      459   04 0013C    354E0001 X            STW,R4   EXPIRE+1,R7
      460   04 0013D    355E0002 X            STW,R5   EXPIRE+2,R7
      461   04 0013E    68000218              B        ENDSPL24
      462                            *
      463   04 0013F    322E0000 X   EXP5     LW,R2    ARGBUFF,R7        ONLY ONE ARG PRESENT
      464   04 00140    323E0001 X            LW,R3    ARGBUFF+1,R7
      465   04 00141    11200168              CD,R2    NEVER             TEST IF 'NEVER'
      466   04 00142    69300145              BNE      %+3
      467   04 00143    25200108 A            SLD,R2   8                 YES - LEFT JUSTIFY
      468   04 00144    68000152              B        EXP6
      469   04 00145    72100002 A            LB,R1    R2                GET LENGTH
      470   04 00146    68300155              BE       EXPERR            INVALID
      471   04 00147    21100003 A            CI,R1    3
      472   04 00148    69200155              BG       EXPERR            GR THAN 3 - INVALID
      473   04 00149    72320002 A   EXP52    LB,R3    R2,R1             TEST FOR NUMERICS
      474   04 0014A    1930015E              CLM,R3   LIMIT1
      475   04 0014B    69900155              BCS,9    EXPERR            NO GOOD
      476   04 0014C    64100149              BDR,R1   EXP52
      477   04 0014D    72100002 A            LB,R1    R2                GET LENGTH AGAIN
      478   04 0014E    4B200211 06           AND,R2   =X'FFFFFF'        MASK OFF COUNT
      479   04 0014F    6702015A              EXU      SHIFT-1,R1        RIGHT JUSTIFY
      480   04 00150    49200214 06           OR,R2    =X'40F0F000'      INSURE LEADING ZEROES
      481   04 00151    32300215 06           LW,R3    =X'F0F04040'      HOUR VALUE
      482   04 00152    352E0000 X   EXP6     STW,R2   EXPIRE,R7         PUT VALUE IN BUFFER
      483   04 00153    353E0001 X            STW,R3   EXPIRE+1,R7
      484   04 00154    68000135              B        EXP92             GO WIND UP
      485   04 00155    22100011 A   EXPERR   LI,R1    17
      486   04 00156    6AB00000 X            BAL,R11  ERROR
      487   04 00157    68000218              B        ENDSPL24
      488   04 00158    22100011 A   EXPERR1  LI,R1    17
      489   04 00159    6AB00000 X            BAL,R11  ERROR
      490   04 0015A    68000127              B        EXP2+1
      491                            *
      492   04 0015B    25200070 A   SHIFT    SLS,R2   -16
      493   04 0015C    25200078 A            SLS,R2   -8
      494   04 0015D    02000000 A            NOP
      495                            *
      496                                     BOUND    8
      497   04 0015E    000000F0 A   LIMIT1   DATA     X'F0',X'F9'
            04 0015F    000000F9 A
      498   04 00160    0000F0F1 A   LIMIT2   DATA     X'F0F1',X'F1F2'   MONTH
            04 00161    0000F1F2 A
      499   04 00162    0000F0F1 A            DATA     X'F0F1',X'F3F1'   DAY
            04 00163    0000F3F1 A
      500   04 00164    00000000 A            DATA     0,0
            04 00165    00000000 A
      501   04 00166    0000F0F0 A            DATA     X'F0F0',X'F9F9'   YEAR
            04 00167    0000F9F9 A
      502   04 00168    05D5C5E5 A   NEVER    TEXTC    'NEVER'
            04 00169    C5D94040 A
      503                            *
      504   04 0016A    6800012B     BRTAB    B        EXP3              GET DAY
      505   04 0016B    02000000 A            NOP                        PUT IN HOUR
      506   04 0016C    6800012B              B        EXP3              GET YEAR
      507   04 0016D    68000134              B        EXP9              WIND UP
1* AP * 22:32 JUN 16,'85    PCLCO - COMBINE,COPYTRAN,COPYALL,COPYTO                               PAGE    8
A     508                                     PAGE
      509   04 0016E    693000DA     VOLARG   BNE      ANS9              MUST BE ( NXT
      510   04 0016F    646000DC              BDR,R6   CRPT              NOT VOLUME AFTER ALL
      511   04 00170    22100001 A            LI,R1    1                 LIMITS FOR VOL
      512   04 00171    22200000 N            LI,R2    MAXSN
      513   04 00172    6AB00000 X            BAL,R11  INTARG
      514                            *        CI,R2    1
      515   04 00173    681000BD              BGE      ANS4              OUT OF RANGE
      516   04 00174    22100003 N            LI,R1    MODEX4+3
      517   04 00175    F5320007 A            STB,R3   *R7,R1
      518   04 00176    680000D7              B        ANS8
1* AP * 22:32 JUN 16,'85    PCLCO - COMBINE,COPYTRAN,COPYALL,COPYTO                               PAGE    9
A     519                                     PAGE
      520   04 00177    22500001 A   RCDSEL1  LI,R5    1                 INITIALIZE X
      521   04 00178    22600002 A            LI,R6    2                 LOOP COUNTER
      522   04 00179    22100001 N            LI,R1    ARGBUF4+1
      523   04 0017A    322E0000 X            LW,R2    NCHAR,R7
      524   04 0017B    6AB00000 X   RCDSEL3  BAL,R11  BCD2BIN           CONVERT SELECTION INTEGER TO BINARY
      525                            *        CI,R4    1
      526   04 0017C    6920018B              BG       ERR11             OVERFLOW
        1*        00000001                    DO       H02
        2*  04 0017D    21300000 A            CI,R3    0                 THIS ALLOWS THE USER TO SAY
        3*  04 0017E    69200186              BG       RANGEGO           C FILENAME (NUMBER-NUMBER)
        4*  04 0017F    21500001 A            CI,R5    1                 OR
        5*  04 00180    69300185              BNE      RANGEEND          C FILENAME (NUMBER-)
        6*  04 00181    21600001 A            CI,R6    1                 OR
        7*  04 00182    68300185              BE       RANGEEND          C FILENAME (-NUMBER)
        8*  04 00183    22300001 A            LI,R3    1
        9*  04 00184    68000186              B        RANGEGO
       10*  04 00185    32300216 06  RANGEEND LW,R3    =X'7FFFFFFF'
       11*        04 00186           RANGEGO  EQU,0    %
       12*                                    FIN
      527   04 00186    31300005 A            CW,R3    R5                TEST ORDER OF VALUES
      528   04 00187    6910018B              BL       ERR11
      529   04 00188    6460018E              BDR,R6   RCDSEL5           GET END OF RANGE
      530   04 00189    21400000 A            CI,R4    0                 NORMAL CONVERSION OF Y(NO TERMINATOR
      531   04 0018A    68300197              BE       ENDRSEL           YES
      532   04 0018B    22100011 A   ERR11    LI,R1    17
      533   04 0018C    6AB00000 X   ERRX     BAL,R11  ERROR
      534   04 0018D    68000228              B        ENDSPEC
      535                            *
      536   04 0018E    35300005 A   RCDSEL5  STW,R3   R5                SET Y=X
      537   04 0018F    21400001 A            CI,R4    1                 TEST FOR (-) TERMINATOR
      538   04 00190    69300197              BNE      ENDRSEL           NO Y VALUE
      539   04 00191    F2420007 A            LB,R4    *R7,R1
      540   04 00192    21400060 A            CI,R4    X'60'
      541   04 00193    6930018B              BNE      ERR11
      542   04 00194    20100001 A            AI,R1    1                 ADVANCE PAST TERMINATOR
      543   04 00195    202FFFFF A            AI,R2    -1                REDUCE NO. OF CHARS
      544   04 00196    6800017B              B        RCDSEL3           CONVERT Y
      545                            *
      546   04 00197    22100002 A   ENDRSEL  LI,R1    2                 TEST FOR LEGALITY
      547   04 00198    6AA00069              BAL,R10  TESTARG
      548   04 00199    22100009 A            LI,R1    9                 ARE THERE SLOTS LEFT
      549   04 0019A    322E0000 X            LW,R2    SELECT,R7
      550   04 0019B    2120000A A            CI,R2    10                RSMAX=10
      551   04 0019C    6810018C              BGE      ERRX              NO
      552   04 0019D    25200001 A            SLS,R2   1                 TWO WORD ENTRIES
      553   04 0019E    30200007 A            AW,R2    R7
      554   04 0019F    35540001 X            STW,R5   SELECT+1,R2
      555   04 001A0    35340002 X            STW,R3   SELECT+2,R2
      556   04 001A1    331E0000 X            MTW,1    SELECT,R7
      557   04 001A2    68000228              B        ENDSPEC
1* AP * 22:32 JUN 16,'85    PCLCO - COMBINE,COPYTRAN,COPYALL,COPYTO                               PAGE   10
A     558                                     PAGE
      559                            * SUBROUTINE TO SCAN READ OR WRITE ACCOUNTS ON COPY OR COPYALL.
      560                            * ENTERED WITH CMBX POINTING TO FIRST ACCT AND R2=1 FOR RD, R2=2
      561                            * FOR WR, R2=3 FOR EXECUTE, R2=4 FOR UNDER.
      562   04 001A3    323E0000 X   RWACCT   LW,R3    TERM,R7
      563   04 001A4    2130004D A            CI,R3    '('
      564   04 001A5    693001BA              BNE      RWACCT5           INVALID SYNTAX
      565   04 001A6    3252019F              LW,R5    ACCTBL-ANSEND+1,R1
      566   04 001A7    322E0000 X            LW,R2    CMBX,R7
      567   04 001A8    352A0001 A            STW,R2   1,R5              SET POINTER TO FIRST ACCT
      568   04 001A9    22600000 A            LI,R6    0                 INITIALIZE COUNT
      569   04 001AA    2210000C A   RWACCT2  LI,R1    12                PERMIT '
      570   04 001AB    6AB00000 X            BAL,R11  GETARG            GET ACCT
      571   04 001AC    330E0000 X            MTW,0    NCHAR,R7
      572   04 001AD    683001C2              BE       RWACCT6           NULL FIELD
      573   04 001AE    20600001 A            AI,R6    1                 BUMP COUNT
      574   04 001AF    32100217 06           LW,R1    =X'05000108'      VALUE FOR TEXTARG
      575   04 001B0    322E0000 X            LW,R2    ARGBUFF,R7
      576   04 001B1    315001C8              CW,R5    ACCTBL+4          CHECK IF VEHICLE.
      577   04 001B2    693001B4              BNE      %+2
      578   04 001B3    20100002 A            AI,R1    2                 TEN MAX FOR UNDER
      579   04 001B4    6AB00000 X            BAL,R11  TEXTARG           EDIT ACCOUNT
      580   04 001B5    322E0000 X   RWACCT1  LW,R2    TERM,R7
      581   04 001B6    2120006B A            CI,R2    ','               ANOTHER ACCOUNT
      582   04 001B7    683001AA              BE       RWACCT2           YES - GO SCAN
      583   04 001B8    2120005D A            CI,R2    ')'               END OF ACCOUNTS
      584   04 001B9    683001BD              BE       RWACCT3           YES
      585   04 001BA    22100011 A   RWACCT5  LI,R1    17                INVALID SYNTAX
      586   04 001BB    6AB00000 X            BAL,R11  ERROR
      587   04 001BC    680001C1              B        RWACCT4
      588   04 001BD    466A0000 A   RWACCT3  XW,R6    0,R5              PUT COUNT IN TABLE
      589   04 001BE    683001C1              BE       RWACCT4
      590   04 001BF    6700021E              EXU      DUPERR
      591   04 001C0    6AB00000 X            BAL,R11  ERROR
      592   04 001C1    68000218     RWACCT4  B        ENDSPL24
      593   04 001C2    2210001D A   RWACCT6  LI,R1    29
      594   04 001C3    6AB00000 X            BAL,R11  ERROR
      595   04 001C4    680001B5              B        RWACCT1
      596                            *
      597         04 001C4           ACCTBL   EQU      %-1
      598   04 001C5    00000000 N            DATA     RDTBL             READ ACCT TABLE
      599   04 001C6    00000000 N            DATA     WRTBL             WRITE ACCT TABLE
      600   04 001C7    00000000 N            DATA     EXTBL             EXECUTE ACCT TABLE.
      601   04 001C8    00000000 N            DATA     UNTBL             UNDER ACCT TABLE.
1* AP * 22:32 JUN 16,'85    PCLCO - COMBINE,COPYTRAN,COPYALL,COPYTO                               PAGE   11
A     602                                     PAGE
      603   04 001C9    350E0001 X   SPECL2   STW,R0   SEQUENCE+1,R7     SET NCHAR IN ID TO ZERO
      604   04 001CA    32200218 06           LW,R2    ='0000'
      605   04 001CB    352E0000 X            STW,R2   CARDSEQ,R7        INITIALIZE SEQUENCE INFO
      606   04 001CC    352E0001 X            STW,R2   CARDSEQ+1,R7
      607   04 001CD    22200001 A            LI,R2    1                 DEFAULT K
      608   04 001CE    32300219 06           LW,R3    =99999999         DEFAULT MAX
      609   04 001CF    201FFFFD A            AI,R1    -3                CSOPTIO..DEFAULTN = 0
      610   04 001D0    683001D5              BE       CSIR14            YES
      612   04 001D1    221003E8 A            LI,R1    1000              DEFAULT N FOR LN
      613   04 001D2    222003E8 A            LI,R2    1000              DEFAULT INCR
        1*        00000001                 DO          H02
        2*  04 001D3    32300211 06           LW,R3    =X'FFFFFF'        MAXIMUM 3 BYTE KEY
        3*                                 ELSE
        4*                       *S*          LW,R3    =9999999          DEFAULT MAX
        5*                                 FIN
      615   04 001D4    334E0001 X            MTW,4    SEQUENCE+1,R7     SET MAX CHARS IN N,K
      616   04 001D5    02200030 A   CSIR14   LCI      3                 STORE DEFAULTS
      617   04 001D6    2B1E0002 X            STM,R1   SEQUENCE+2,R7
      618   04 001D7    321E0000 X            LW,R1    TERM,R7           ARE THERE VALUES
      619   04 001D8    2110004D A            CI,R1    '('
      620   04 001D9    69300228              BNE      ENDSPEC           NO.
      621   04 001DA    22A00001 N            LI,R10   SEQUENCE+1        SET POINTER
      622   04 001DB    321E0000 X            LW,R1    SEQUENCE,R7       IS THIS LN OR CS
      623   04 001DC    21100004 A            CI,R1    4                 LN
      624   04 001DD    683001F3              BE       NEXTARG           YES
      625   04 001DE    2210000C A            LI,R1    12                YES, GET IT
      626   04 001DF    6AB00000 X            BAL,R11  GETARG
      627   04 001E0    321E0000 X            LW,R1    NCHAR,R7          LENGTH OF ID ARGUMENT
      628   04 001E1    683001F0              BE       ENDSPL2           NULL ID
      629   04 001E2    21100004 A            CI,R1    4                 4 CHARS OR LESS
      630   04 001E3    682001E7              BLE      CSIR13            YES
      631   04 001E4    2210000C A            LI,R1    12                ERROR 12
      632   04 001E5    6AB00000 X            BAL,R11  ERROR
      633   04 001E6    22100004 A            LI,R1    4                 TRUNCATE TO 4 CHARS
      634   04 001E7    22200001 N   CSIR13   LI,R2    ARGBUF4+1
      635   04 001E8    351E0001 X            STW,R1   SEQUENCE+1,R7     NO. OF CHARS IN ID
      636   04 001E9    22300000 N            LI,R3    CARDSEQ+CARDSEQ+CARDSEQ+CARDSEQ
      637   04 001EA    6AB00000 X            BAL,R11  MBS               MOVE SEQ ID TO CARDSEQ
      638   04 001EB    322E0001 X            LW,R2    SEQUENCE+1,R7     GET NO. CHARS IN ID
      639   04 001EC    32500219 06           LW,R5    =99999999         COMPUTE MAXIMUM SEQUENCE NO.
      640   04 001ED    3650021A 06           DW,R5    =10
      641   04 001EE    642001ED              BDR,R2   %-1
      642   04 001EF    355E0004 X            STW,R5   SEQUENCE+4,R7     STORE MAX VALUE-RECYCLE VALUE
      643   04 001F0    325E0000 X   ENDSPL2  LW,R5    TERM,R7
      644   04 001F1    2150006B A            CI,R5    ','               DO WE HAVE N VALUE
      645   04 001F2    69300211              BNE      ENDSPL23
      646   04 001F3    20A00001 A   NEXTARG  AI,R10   1                 TO NEXT VALUE
      647   04 001F4    21A00003 N            CI,R10   SEQUENCE+3        IS IT STILL OK
      648   04 001F5    69200211              BG       ENDSPL23          NO, ENDSPL23 WILL GO TO ERR14
      649   04 001F6    6AB00080              BAL,R11  GETARG0           GET A NUMBER
      650   04 001F7    6AB00000 X            BAL,R11  INTARG            WHAT IS IT
      651                            *        CI,R2    1
      652   04 001F8    683001FD              BE       ERR13             NO GOOD
      653   04 001F9    22200008 A            LI,R2    8
      654   04 001FA    382E0001 X            SW,R2    SEQUENCE+1,R7     CHECK VALUE
      655   04 001FB    312E0000 X            CW,R2    NCHAR,R7
      656   04 001FC    681001FF              BGE      %+3
      657   04 001FD    2210000D A   ERR13    LI,R1    13
      658   04 001FE    6AB00000 X            BAL,R11  ERROR
      659   04 001FF    B51E000A A            STW,R1   *R10,R7           STORE IT
      660   04 00200    325E0000 X            LW,R5    TERM,R7
      661   04 00201    322E0000 X            LW,R2    SEQUENCE,R7       PERMIT DOT IF LN
      662   04 00202    21200004 A            CI,R2    4
      663   04 00203    693001F0              BNE      ENDSPL2           MUST BE COMMA OR )
      664   04 00204    231003E8 A            MI,R1    1000              MAKE INTEGER PORTION BIG ENOUGH
      665   04 00205    B51E000A A            STW,R1   *R10,R7
      666   04 00206    2150004B A            CI,R5    '.'               DO WE HAVE A DOT
      667   04 00207    693001F0              BNE      ENDSPL2
      668   04 00208    6AB00080              BAL,R11  GETARG0           GET FRACTION
      669   04 00209    22100000 A            LI,R1    0
      670   04 0020A    222003E7 A            LI,R2    999
      671   04 0020B    6AB00000 X            BAL,R11  INTARG
      672                            *        CI,R2    1
      673   04 0020C    681001FD              BGE      ERR13             BAD #
      674   04 0020D    322E0000 X            LW,R2    NCHAR,R7
      675   04 0020E    571402B6              MH,R1    FMULT,R2
      676   04 0020F    E61E000A A            AWM,R1   *R10,R7
      677   04 00210    680001F0              B        ENDSPL2
      678                            *
      679   04 00211    2210000E A   ENDSPL23 LI,R1    14                SET UP FOR ERROR 14
      680   04 00212    2150005D A            CI,R5    ')'               MUST BE ) HERE
      681   04 00213    6930021C              BNE      ENDSPL26          NOPE
      682   04 00214    330E0003 X            MTW,0    SEQUENCE+3,R7     IS INCREMENT ZERO
      683   04 00215    69300218              BNE      %+3
      684   04 00216    2210002F A            LI,R1    47                NO, ERROR 47
      685   04 00217    6AB00000 X            BAL,R11  ERROR
      686                            *
      687   04 00218    6AB00080     ENDSPL24 BAL,R11  GETARG0
      688   04 00219    321E0000 X            LW,R1    NCHAR,R7          TEST FOR NULL FIELD
      689   04 0021A    68300228              BE       ENDSPEC
      690   04 0021B    2210000F A            LI,R1    15                ERROR 15
      691   04 0021C    6AB00000 X   ENDSPL26 BAL,R11  ERROR
      692   04 0021D    6800023A              B        RETURN            TERMINATOR MISSING AFTER LN OR CS
      693                            *
      694   04 0021E    22100032 A   DUPERR   LI,R1    50                CONFLICTING0OR DUPLICATE OPTION
      695   04 0021F    6AB00000 X            BAL,R11  ERROR
      696   04 00220    321E0000 X            LW,R1    TERM,R7           IF (, FIND )
      697   04 00221    2110004D A            CI,R1    '('
      698   04 00222    69300228              BNE      ENDSPEC
      699   04 00223    6AB00080              BAL,R11  GETARG0
      700   04 00224    321E0000 X            LW,R1    TERM,R7
      701   04 00225    2110005D A            CI,R1    ')'
      702   04 00226    69300080              BNE      GETARG0
      703   04 00227    6AB00080              BAL,R11  GETARG0           SKIP )
      704   04 00228    325E0000 X   ENDSPEC  LW,R5    TERM,R7
      705   04 00229    2150006B A            CI,R5    ','               TERM ON ' '
      706   04 0022A    6830007F              BE       SPECARG           YES, GET NEXT OPTION
      707   04 0022B    2150005D A            CI,R5    X'5D'             TERM ON )
      708   04 0022C    6830022F              BE       ENDSPEC2          YES-END OF SPECIAL ARGUMENTS
      709   04 0022D    22100010 A            LI,R1    16                ERROR 16
      710   04 0022E    6800021C              B        ENDSPL26
      711                            *
      712   04 0022F    325E0000 X   ENDSPEC2 LW,R5    CMBX,R7           SAVE WHERE YOU ARE ON COMMAND
      713   04 00230    6AB00080              BAL,R11  GETARG0
      714   04 00231    330E0000 X            MTW,0    NCHAR,R7          DID WE GET SOMETHING
      715   04 00232    68300236              BE       ENDSPEC3          NO, LEAVE NEW DELIMITER, PLACE
      716   04 00233    22100040 A            LI,R1    ' '               YES, SET BLANK DELIMITER
      717   04 00234    351E0000 X            STW,R1   TERM,R7
      718   04 00235    355E0000 X            STW,R5   CMBX,R7           YES-BACKUP SCAN DONT BURN TO/OVER
      719                            *
      720   04 00236    325E0000 X   ENDSPEC3 LW,R5    TERM,R7           TERM OF DUMMY CHAR. D(S)/FID(S)
      721   04 00237    21800001 A            CI,R8    1                 TEST FOR DEVICE OR FILE LEVEL
      722   04 00238    68300029              BE       DEVRTN            TRANSLATE FIRST FILE
      723   04 00239    69200040              BG       FILRTN            SET NEXT ARG LEVEL
      724                            *
      725   04 0023A    221020FF A   RETURN   LI,R1    X'20FF'           FILE DEVICE MUST HAVE NAME
      726   04 0023B    4B1E0000 X            AND,R1   DEV%SAV1,R7       EXCEPT FOR COPYALL AND COPYSTD DEST
      727   04 0023C    21C00002 A            CI,R12   2
      728   04 0023D    6830023F              BE       %+2
      729   04 0023E    201FFFFA A            AI,R1    -6
      730   04 0023F    21100003 A            CI,R1    3                 IS DEVICE DC
      731   04 00240    69100247              BL       RETURN2           NO
      732   04 00241    21100005 A            CI,R1    5                 OR LT OR DP
      733   04 00242    69200247              BG       RETURN2           NO
      734   04 00243    330E0000 X            MTW,0    FILE,R7           FID SPECIFIED
      735   04 00244    69300247              BNE      RETURN2           YES-OK
      736   04 00245    22100004 A            LI,R1    4
      737   04 00246    6AB00000 X            BAL,R11  ERROR
      738   04 00247    32100008 A   RETURN2  LW,R1    R8
      739   04 00248    02200070 A            LCI      7
      740   04 00249    8A500007 A            PLM,R5   *R7
      741   04 0024A    E800000B A            B        *R11
      742                            *                                   1=ID,2=N,3=K
      743   04 0024B                 MODEDPL  DO1      7
      744   04 0024B    00000000 A            DATA     0
            04 0024C    00000000 A
            04 0024D    00000000 A
            04 0024E    00000000 A
            04 0024F    00000000 A
            04 00250    00000000 A
            04 00251    00000000 A
      745   04 00252    00000063 A   CODETBL  DATA     NOPTS
      746                            * BITS 00-07=INPUT DEVICES:   CR,PR,DC,LT,DP,FT,AT,ME
      747                            * BITS 08-16=OUTPUT DEVICES:  DC,LT,DP,FT,AT,ME,LP,CP,PP
      748                            * BITS 17-23=COMMAND FLAGS:   COPY, COPYALL, COPYSTD
      749                            * BITS 24-31=ERROR CODE IF NOT PERMITTED
      750   04 00253    1E780016 A   EDITBL   DATA     X'1E780016',X'3AE80017',X'FF00001B'
            04 00254    3AE80017 A
            04 00255    FF00001B A
      751         00000000           OPT      CNAME
      752                                     PROC
      753                            LF       EQU      DA(%)-DA(CODETBL)
      754                            TXC      SET      S:UT(AF(1)),' ',' '
      755                                     GEN,8,8,8,8 S:NUMC(AF(1)),TXC(1),TXC(2),TXC(3)
      756                                     DATA     AF(2)
      757                                     DO       NUM(AF)=3
      758                            TXC      SET      %
      759                                     RES,1    BA(MODEDPL)-BA(%)+(TXC-CODETBL)/2-CODEEND
      760                                     DATA,1   AF(3)+MODEX4
      761                                     ORG      TXC
      762                                     FIN
      763                                     PEND
      764                            *
      765   04 00256    00000000 A            DATA     0,0               DUMMY ENTRY
            04 00257    00000000 A
      766   04 00258    01C34040 A            OPT      'C',X'FEF98018'
            04 00259    FEF98018 A
      767   04 0025A    01C84040 A            OPT      'H',X'85110018'   FBCD
            04 0025B    85110018 A
      768   04 0025C    01C14040 A            OPT      'A',X'7EF88018'   ASCII
            04 0025D    7EF88018 A
      769   04 0025E    01E74040 A            OPT      'X',X'00060018'   HEXDUMP
            04 0025F    00060018 A
      770   04 00260    03C2C3C4 A   CODEEND  OPT      'BCD',X'86FF8019',0
            04 00261    86FF8019 A
            04 0024B 1  00       N
      771   04 00262    03C2C9D5 A            OPT      'BIN',X'96FF8019',0
            04 00263    96FF8019 A
            04 0024B 2  00       N
      772   04 00264    02F7E340 A            OPT      '7T',X'16580019',7
            04 00265    16580019 A
            04 0024B 3  07       N
      773   04 00266    02F9E340 A            OPT      '9T',X'16580019',7
            04 00267    16580019 A
            04 0024C    07       N
      774   04 00268    02D7D240 A            OPT      'PK',X'16580019',11
            04 00269    16580019 A
            04 0024C 1  0B       N
      775   04 0026A    03E4D7D2 A            OPT      'UPK',X'04100019',11
            04 0026B    04100019 A
            04 0024C 2  0B       N
      776   04 0026C    03E2E2D7 A            OPT      'SSP',X'160019',12
            04 0026D    00160019 A
            04 0024C 3  0C       N
      777   04 0026E    03C4E2D7 A            OPT      'DSP',X'160019',12
            04 0026F    00160019 A
            04 0024D    0C       N
      778   04 00270    03E5C6C3 A            OPT      'VFC',X'160019',12
            04 00271    00160019 A
            04 0024D 1  0C       N
      779   04 00272    02D5C340 A            OPT      'NC',X'00FF8019',13
            04 00273    00FF8019 A
            04 0024D 2  0D       N
      780   04 00274    02C6C140 A            OPT      'FA',X'00E00019',14
            04 00275    00E00019 A
            04 0024D 3  0E       N
      781   04 00276    03D5C6C1 A            OPT      'NFA',X'00E00019',14
            04 00277    00E00019 A
            04 0024E    0E       N
        1*  04 00278    04C4C5D6 A            OPT      'DEOD',X'84000019',15
            04 00279    84000019 A
            04 0024E 1  0F       N
      783   04 0027A    01D24040 A            OPT      'K',X'00060019',9
            04 0027B    00060019 A
            04 0024E 2  09       N
      784   04 0027C    02C3D940 A            OPT      'CR',X'00FF8019',13
            04 0027D    00FF8019 A
            04 0024E 3  0D       N
      785   04 0027E    04C5C2C3 A            OPT      'EBCD',X'16580019',7
            04 0027F    16580019 A
            04 0024F    07       N
      786   04 00280    04C1E2C3 A            OPT      'ASCI',X'16580019',7
            04 00281    16580019 A
            04 0024F 1  07       N
      787   04 00282    02D5C240 A            OPT      'NB',X'00FF8019',1
            04 00283    00FF8019 A
            04 0024F 2  01       N
      788   04 00284    02D3C340 A            OPT      'LC',X'00FF8019',4
            04 00285    00FF8019 A
            04 0024F 3  04       N
      789   04 00286    02E4C340 A            OPT      'UC',X'00FF8019',4
            04 00287    00FF8019 A
            04 00250    04       N
      790   04 00288    02E3E740 A   TXOPT    OPT      'TX',X'00FF8019',10
            04 00289    00FF8019 A
            04 00250 1  0A       N
      791   04 0028A    03C5E7D7 A            OPT      'EXP',X'00E80019'
            04 0028B    00E80019 A
      792   04 0028C    03E5D6D3 A            OPT      'VOL',X'16580019',3
            04 0028D    16580019 A
            04 00250 3  03       N
      793   04 0028E    04C3D9D7 A            OPT      'CRPT',X'28A00019'
            04 0028F    28A00019 A
      794   04 00290    03D1D6C2 A            OPT      'JOB',X'28A00019'
            04 00291    28A00019 A
      795   04 00292    02D5C640 A            OPT      'NF',X'00060019'
            04 00293    00060019 A
      796   04 00294    03C2D3D2 A   MODEEND  OPT      'BLK',X'FFFF8019'
            04 00295    FFFF8019 A
      797   04 00296    03D9C5C3 A            OPT      'REC',X'FFFF8019'
            04 00297    FFFF8019 A
      798   04 00298    03C6D4E3 A            OPT      'FMT',X'FFFF8019'
            04 00299    FFFF8019 A
      799   04 0029A    03C3C1E3 A            OPT      'CAT',X'02000019'
            04 0029B    02000019 A
      800   04 0029C    03C4C5D5 A            OPT      'DEN',X'00580019'
            04 0029D    00580019 A
      801   04 0029E    02D9C440 A   ANSEND   OPT      'RD',X'00E00019'
            04 0029F    00E00019 A
      802   04 002A0    02E6D940 A            OPT      'WR',X'00E00019'
            04 002A1    00E00019 A
      803   04 002A2    02C5E740 A            OPT      'EX',X'00E00019'
            04 002A3    00E00019 A
      804   04 002A4    02E4D540 A            OPT      'UN',X'00E00019'
            04 002A5    00E00019 A
      805   04 002A6    03D5C3E2 A   RWEND    OPT      'NCS',X'00FF801A'
            04 002A7    00FF801A A
      806   04 002A8    03D5D3D5 A            OPT      'NLN',X'00E0001A'
            04 002A9    00E0001A A
      807   04 002AA    02C3E240 A            OPT      'CS',X'00FF801A'
            04 002AB    00FF801A A
      808   04 002AC    02D3D540 A            OPT      'LN',X'00E0001A'
            04 002AD    00E0001A A
      809   04 002AE    03E2C5D8 A   SEQEND   OPT      'SEQ',X'FF005819'
            04 002AF    FF005819 A
      810   04 002B0    03D2C5E8 A            OPT      'KEY',X'FF005819'
            04 002B1    FF005819 A
      811   04 002B2    03D9C1D5 A            OPT      'RAN',X'FF005819'
            04 002B3    FF005819 A
      812   04 002B4    03D7C8E8 A            OPT      'PHY',X'12005819'
            04 002B5    12005819 A
      813         00000063           NOPTS    EQU      %-CODETBL-1
      814                            *
      815   04 002B6    0000     A   FMULT    DATA,2   0,100,10,1
            04 002B6 2  0064     A
            04 002B7    000A     A
            04 002B7 2  0001     A
1* AP * 22:32 JUN 16,'85    PCLCO - COMBINE,COPYTRAN,COPYALL,COPYTO                               PAGE   12
A     816                                     PAGE
      817                            *
      818                            *P*      NAME:    COPYTO
      819                            *P*
      820                            *P*      PURPOSE: TO PERFORM A SYNTAX ANALYSIS OF THE COPY COMMAND.  COPYTO
      821                            *P*               CALLS THE RDWRT ROUTINE TO PERFORM THE FILE COPY.  FOR
      822                            *P*               COPYING FILES IN A STANDARD FILE, ENTRY IS MADE AT COPYSF
      823                            *P*               FROM COPYALL.
      824                            *P*
      825                            *DO*
      826                            *P*
      827                            *
      828                            * INPUT
      829                            *        R12      COMMAND ACTION CODE
      830                            *        R13      MAXIMUM ERROR SEVERITY
      831                            *        CMBX     COMMAND BUFFER INDEX OF NEXT ARGUMENT
      832                            *        TERM     TERMINATOR OF LAST ARGUMENT TRANSLATED
      833                            * OUTPUT
      834                            *        TOSWT    DEFINED -TO- SWITCH
      835                            *
      836                            *FIN*
      837                                     REF      TRANSACT
      838                                     REF      REVARG            SWITCH ARGTBLS
      839                                     REF      RDWRT             COPY A FILE
      840                                     REF      CLOSEI,CLOSEO
      841                                     REF      TOSWT
      842                                     REF      TOVER
      843                                     REF      BREAK
      844                                     REF      BLDCB
      845                                     REF      M:EI
      846                                     REF      STDBUF            COMMAND BUFFER FOR COPYSTD
      847                                     REF      TOARG
      848                            *
      849   05 00000                 COPYTO   DSECT    1
      850   05 00000    02200070 A            LCI      7                 SAVE REGISTERS
      851   05 00001    8B500007 A            PSM,R5   *R7
      852   05 00002    22600000 A            LI,R6    0                 INITIALIZE COUNT AT 1ST ACTION VERB
      853   05 00003    22800000 A            LI,R8    0                 CLEAR 'TO' CMBX
      854   05 00004    22900000 A            LI,R9    0                 CLEAR 'COPY' CMBX
      855   05 00005    21C00002 A   SCAN1    CI,R12   2                 COPY COMMAND
      856   05 00006    6830000A              BE       SCAN2             YES
      857   05 00007    328E0000 X            LW,R8    CMBX,R7           SAVE CMBX OF -TO- DEVICE
      858   05 00008    350E0000 X            STW,R0   TOSWT,R7          CLEAR OUTPUT SWITCH
      859   05 00009    6800000D              B        SCAN3
      860                            *
      861   05 0000A    329E0000 X   SCAN2    LW,R9    CMBX,R7           SAVE CMBX OF FIRST -COPY- DEVICE
      862   05 0000B    32BE0000 X            LW,R11   TERM,R7           SAVE TERMINATOR TOO
      863   05 0000C    35B00000 X            STW,R11  LISTTERM          IN CASE # OR -
      864   05 0000D    22100001 A   SCAN3    LI,R1    1                 SET ARG. LEVEL TO DEVICE
      865   05 0000E    6AB00000 04  SCAN4    BAL,R11  COPYTRAN          TRANSLATE DEVICE/FILE
      866   05 0000F    21D00003 A            CI,R13   3                 TEST ERROR SEVERITY
      867   05 00010    68100068              BGE      RETRN
      868   05 00011    324E0000 X            LW,R4    TERM,R7
      869   05 00012    21C00002 A            CI,R12   2                 -COPY- COMMAND
      870   05 00013    69300016              BNE      SCANEND           NO
      871   05 00014    21100000 A            CI,R1    0                 ANOTHER DEVICE/FILE FOLLOW
      872   05 00015    6930000E              BNE      SCAN4             YES
      873   05 00016    21400015 A   SCANEND  CI,R4    X'15'             END OF COMMAND
      874   05 00017    6830002C              BE       TO1               YES-END OF COMMAND
      875   05 00018    21400040 A            CI,R4    X'40'             BLANK TERMINATOR
      876   05 00019    6830001D              BE       NXCMR12           YES-END OF INPUT OR OUTPUT
      877   05 0001A    22100011 A   ERR17    LI,R1    17                ERROR 17
      878   05 0001B    6AB00000 X            BAL,R11  ERROR
      879   05 0001C    68000068              B        RETRN
      880                            *
      881   05 0001D    21600000 A   NXCMR12  CI,R6    0                 EDIT NUMBER OF ACTION VERBS
      882   05 0001E    6930001A              BNE      ERR17
      883   05 0001F    22600001 A            LI,R6    1                 SET SECOND ACTION VERB
      884   05 00020    6AB00000 X            BAL,R11  TRANSACT          TRANSLATE SECOND COMMAND ACTION VERB
      885   05 00021    35CE0000 X            STW,R12  TOVER,R7          SAVE TO OR OVER OUTPUT ACTION VERB
      886   05 00022    3220000C A            LW,R2    R12               NO SUCH VERB
      887   05 00023    69300025              BNE      %+2
      888   05 00024    33F00000 X            MTW,-1   ERRFLAG           NO VERB, BAD MESSAGE GOES
      889   05 00025    22C00001 A            LI,R12   1                 SET OUTPUT FOR DEVTRAN
      890   05 00026    22120041 A            LI,R1    X'20041'          MUST BE 1,12 OR 18
      891   05 00027    2514000D A            SLS,R1   13,R2
      892   05 00028    65100005              BIR,R1   SCAN1
      893   05 00029    22100020 A            LI,R1    32                ERROR 32
      894   05 0002A    6AB00000 X            BAL,R11  ERROR
      895   05 0002B    68000068              B        RETRN
1* AP * 22:32 JUN 16,'85    PCLCO - COMBINE,COPYTRAN,COPYALL,COPYTO                               PAGE   13
A     896                                     PAGE
      897   05 0002C    21D00001 A   TO1      CI,R13   1                 TEST ERROR SEVERITY
      898   05 0002D    69200068              BG       RETRN
      899   05 0002E    21800000 A            CI,R8    0                 -TO- COMMAND PRESENT
      900   05 0002F    6930003A              BNE      TO11
      901   05 00030    330E0000 X            MTW,0    TOSWT,R7          IF WEVE GOT A OUTPUT, USE IT
      902   05 00031    6930003B              BNE      COPY1
      903   05 00032    6AB00000 X            BAL,R11  CLRARG
      904   05 00033    335E0000 X            MTW,5    DEVICE,R7         CLRARG SETS DC DEFAULT(3)
      905   05 00034    2210D4C5 A            LI,R1    'ME'
      906   05 00035    70200000 X            LC       J:JIT             IF BATCH, 'ME' DOESN'T WORK TOO WELL
      907   05 00036    69800039              BCS,8    %+3
      908   05 00037    2210D3D7 A            LI,R1    'LP'
      909   05 00038    331E0000 X            MTW,1    DEVICE,R7
      910   05 00039    351E0000 X            STW,R1   OUT%ARG,R7
      911                            *
      912   05 0003A    6AB00000 X   TO11     BAL,R11  REVARG            SAVE -TO- ARGUMENT TABLE
      913                            *
      914   05 0003B    21900000 A   COPY1    CI,R9    0                 -COPY- COMMAND
      915   05 0003C    68300068              BE       RETRN             NO-JUST -TO- COMMAND
      916   05 0003D    350E0002 A            STW,R0   2,R7              RESET HEADER PRINTED FLAG
      917   05 0003E    22C00002 A            LI,R12   2                 SET AT COPY VERB(FOR COMBINE)
      918   05 0003F    22100001 A            LI,R1    1                 SET AT DEVICE
      919   05 00040    359E0000 X   COPY3    STW,R9   CMBX,R7           CMBX OF CURRENT INPUT DEVICE/FILE
      920   05 00041    32B00000 X            LW,R11   LISTTERM          RESTORE TERM
      921   05 00042    35BE0000 X            STW,R11  TERM,R7
      922   05 00043    6AB00000 04           BAL,R11  COPYTRAN          GO-TRANSLATE CURRENT INPUT DEV/FILE
      923   05 00044    32500001 A            LW,R5    R1                SAVE NEXT ARG LEVEL 1-DEV,2-FILE,0--
      924   05 00045    22100402 A            LI,R1    X'402'            OPN NXT, FPARAM
      925   05 00046    330E0000 X            MTW,0    FILE,R7           INPUT FILE TYPE
      926   05 00047    68300049              BE       COPY9             NO
      927   05 00048    22100002 A            LI,R1    2                 SET FPARAM BIT FOR BLDCB
      928   05 00049    329E0000 X   COPY9    LW,R9    CMBX,R7           SAVE CMBX OF NEXT INPUT DEV/FILE
      929   05 0004A    32BE0000 X            LW,R11   TERM,R7           AND TERMINATOR
      930   05 0004B    35B00000 X            STW,R11  LISTTERM
      931   05 0004C    6AB00000 X            BAL,R11  BLDCB
      932   05 0004D    21D00002 A            CI,R13   2
      933   05 0004E    69200064              BG       COPYX             GIVE UP IF SEV 3 ERROR
      934   05 0004F    64A0005C              BDR,R10  COPYEND           NO INPUT HERE
      935   05 00050    321E0000 X            LW,R1    TOSWT,R7          HAVE WE GOT OUTPUT YET
      936   05 00051    69300059              BNE      COPY4             YES, JUST COPY
      937   05 00052    6AB00000 X            BAL,R11  REVARG            BRING UP -TO- ARGUMENTS
      938   05 00053    22100001 A            LI,R1    1                 BUILD OUTPUT DCB
      939   05 00054    6AB00000 X            BAL,R11  BLDCB
      940   05 00055    6AB00000 X            BAL,R11  REVARG            BRING BACK COPY ARGUMENTS
      941   05 00056    52B00000 X            LH,R11   M:EO              IF EO'S NOT OPEN
      942   05 00057    21B00020 A            CI,R11   X'20'             GIVE UP
      943   05 00058    68400068              BAZ      RETRN
      944   05 00059    331E0000 X   COPY4    MTW,1    TOSWT,R7          GOT AN OUTPUT FILE
      945   05 0005A    6A600137 06           BAL,R6   ALL8              GO PRINT FILE NAME
      946   05 0005B    6AB00000 X            BAL,R11  RDWRT             COPY M:EI TO M:EO
      947   05 0005C    6AB00000 X   COPYEND  BAL,R11  CLOSEI            CLOSE CURRENT INPUT FILE
      948   05 0005D    33000000 X            MTW,0    BREAK             BREAK SET
      949   05 0005E    69300064              BNE      COPYX             YES
      950   05 0005F    21D00002 A            CI,R13   2                 IS SEV LESS THAN 3
      951   05 00060    69200064              BG       COPYX
      952   05 00061    22D00000 A            LI,R13   0                 SAVE THE OUTPUT
      953   05 00062    32100005 A            LW,R1    R5                YES-SET 1-DEVICE, 2-FILE
      954   05 00063    69300040              BNE      COPY3             GO PROCESS IT
      955   05 00064    330E0000 X   COPYX    MTW,0    TOSWT,R7          IF NO OUTPUT,
      956   05 00065    68300068              BE       RETRN             NO LAST RECORD
      957   05 00066    6AB00000 X            BAL,R11  RDWRTX            GO COMP LAST RECORD
      958   05 00067    6A600137 06           BAL,R6   ALL8              UPSPACE IF REQ'D
      959   05 00068    6AB00000 X   RETRN    BAL,R11  CLOSEO            GO CLOSE OUTPUT
      960   05 00069    02200070 A            LCI      7                 RESTORE REGISTERS
      961   05 0006A    8A500007 A            PLM,R5   *R7
      962   05 0006B    E800000B A            B        *R11
      963                            *
      964   05 0006C    11000000 N   WRTCOPY  GEN,8,24 X'11',M:UC
      965   05 0006D    34000000 A            DATA     X'34000000'
      966   05 0006E    00000071              DATA     COPYMSG
      967   05 0006F    0000000A A            DATA     10
      968   05 00070    00000000 A            DATA     0
      969   05 00071    4B4BC3D6 A   COPYMSG  TEXT     '..COPYING
'
            05 00072    D7E8C9D5 A
            05 00073    C7154040 A
1* AP * 22:32 JUN 16,'85    PCLCO - COMBINE,COPYTRAN,COPYALL,COPYTO                               PAGE   14
A     970                                     PAGE
      971                            *
      972                            *P*      NAME:    COPYALL
      973                            *P*
      974                            *P*      PURPOSE: TO SCAN THE COPYALL OR COPYSTD COMMAND FOR CORRECT
      975                            *P*               SYNTAX.  IF THE COMMAND IS COPYALL, ALL FILES OR A
      976                            *P*               SPECIFIED SUBSET OF THE FILES ON RAD (IN USER'S
      977                            *P*               ACCOUNT OR ANOTHER ACCOUNT), ON LABELED TAPE, OR
      978                            *P*               ON DISK PACK ARE COPIED TO THE SPECIFIED OUTPUT
      979                            *P*               DEVICE.  IF THE COMMAND IS COPYSTD, THE FILE
      980                            *P*               ITSELF AND ALL FILES NAMED WITHIN THE FILE WILL BE
      981                            *P*               COPIED FROM RAD, LABELED TAPE, OR DISK PACK TO THE
      982                            *P*               SPECIFIED OUTPUT DEVICE.
      983                            *
      984                            *DO*
      985                            *P*
      986                            * INPUT
      987                            *        R12      COMMAND ACTION VERB
      988                            *        R13      MAXIMUM ERROR SEVERITY
      989                            *        ARGTBL   TABLE OF TRANSLATED ARGUMENTS FOR DEVICE
      990                            *        CMBX     COMMAND BUFFER INDEX OF NEXT ARGUMENT
      991                            *        TERM     TERMINATOR OF LAST ARGUMENT TRANSLATED
      992                            * OUTPUT
      993                            *        TOSWT    DEFINE -TO- SWITCH (CLEARED)
      994                            *
      995                            *
      996                            *FIN*
      997                                     REF      PRTNOF
      998                                     REF      UNPRINT
      999                                     REF      F:STD
     1000                                     REF      M:EO,M:LO
     1001                                     REF      TLABEL
     1002                                     REF      TOFILE            IS SELECTION DONE
     1003                                     REF      TESTFNC
     1004                                     REF      OPNNXT
     1005                                     REF      REVIEW
     1006                                     REF      SYNFLAG
     1007                                     REF      GRANCNT
     1008                                     REF      HEX2BCD
     1009                            *
     1010   06 00000                 COPYALL  DSECT    1
     1011   06 00000    02200070 A            LCI      7                 SAVE REGISTERS
     1012   06 00001    8B500007 A            PSM,R5   *R7
     1013   06 00002    350E0000 X            STW,R0   TOSWT,R7
     1014   06 00003    35000000 X            STW,R0   GRANCNT
     1015   06 00004    22100080 A            LI,R1    X'80'
     1016   06 00005    35100000 X            STW,R1   COPYSK            INITIALIZE TO COPY ALL FILES
     1017   06 00006    330E0000 X            MTW,0    COPYSTDF,R7       IS THIS COPYSTD COMMAND
     1018   06 00007    6830000D              BE       EDITDV1           NO
     1019   06 00008    22100001 A            LI,R1    1
     1020   06 00009    6AB00000 04           BAL,R11  COPYTRAN          TRANSLATE FID FOR STD FILE
     1021   06 0000A    21D00003 A            CI,R13   3
     1022   06 0000B    6810008F              BGE      RTURN2            CANT EXECUTE
     1023   06 0000C    6800002E              B        EDITDV3
     1024                            *
     1025   06 0000D    6AB00000 X   EDITDV1  BAL,R11  CLRARG            ZERO -ARGTBL-
     1026   06 0000E    321E0000 X            LW,R1    TERM,R7
     1027   06 0000F    2110004D A            CI,R1    '('               OPTION PRESENT
     1028   06 00010    68300038              BE       COPYSEL           YES
     1029   06 00011    6AB00000 X   EDITDV2  BAL,R11  DEVTRAN
     1030   06 00012    22500040 A            LI,R5    ' '               SET DELIMITER FOR BEFORE ON/TO
     1031   06 00013    322E0000 X            LW,R2    ARGBUFF,R7
     1032   06 00014    3120021B              CW,R2    =X'02D6D540'      TEST FOR 'ON' OR 'TO'
     1033   06 00015    6830002F              BE       EDITDV5
     1034   06 00016    3120021C              CW,R2    =X'02E3D640'      IS INPUT FIELD NULL
     1035   06 00017    6830002F              BE       EDITDV5
     1036   06 00018    322E0000 X            LW,R2    TERM,R7
     1037   06 00019    2120004D A            CI,R2    '('
     1038   06 0001A    68300038              BE       COPYSEL           OPTION PRESENT
     1039   06 0001B    21200015 A            CI,R2    X'15'
     1040   06 0001C    6830002E              BE       EDITDV3           COMMAND IS JUST 'COPYALL'
     1041   06 0001D    33000000 X   EDITDVA  MTW,0    TOFILE            IF ALREADY A RANGE,
     1042   06 0001E    69300027              BNE      EDITDV6           IT ISN'T PERMITTED AGAIN
     1043   06 0001F    2120006B A            CI,R2    ','               IS FROM FILE NULL
     1044   06 00020    68300023              BE       EDITDV7           YES, GET RANGE
     1045   06 00021    21200061 A            CI,R2    '/'               DOES FILE NAME FOLLOW
     1046   06 00022    69300027              BNE      EDITDV6           NO
     1047   06 00023    6AB00000 X   EDITDV7  BAL,R11  REVIEW            GET FILE NAME(S)
     1048   06 00024    322E0000 X            LW,R2    TERM,R7
     1049   06 00025    2120004D A            CI,R2    '('
     1050   06 00026    68300038              BE       COPYSEL
     1051   06 00027    322E0000 X   EDITDV6  LW,R2    DEVICE,R7
     1052   06 00028    2210003A A            LI,R1    X'3A'             INPUT DEVICE MUST HAVE FILES
     1053   06 00029    25140277 A            SCS,R1   -9,R2
     1054   06 0002A    20100000 A            AI,R1    0                 I.E. DC,DP,LT,AT
     1055   06 0002B    6910002E              BL       EDITDV3
     1056   06 0002C    22100022 A            LI,R1    34                ERROR-NOT A VALID DEVICE
     1057   06 0002D    6AB00000 X            BAL,R11  ERROR
     1058                            *
     1059   06 0002E    325E0000 X   EDITDV3  LW,R5    TERM,R7           GET TERM. CHARACTER
     1060   06 0002F    6AB00000 X   EDITDV5  BAL,R11  REVARG            SAVE INPUT ARGS
     1061   06 00030    6AB00000 X            BAL,R11  CLRARG            CLEAR OUTPUT ARGS
     1062   06 00031    21500040 A            CI,R5    X'40'             TERM. ON BLANK
     1063   06 00032    6830003D              BE       TOCMR12           YES
     1064   06 00033    21500015 A            CI,R5    X'15'             OUTPUT FIELD NULL
     1065   06 00034    6830004B              BE       FROM1
     1066   06 00035    22100011 A            LI,R1    17                ERROR 17
     1067   06 00036    6AB00000 X   ERRTN    BAL,R11  ERROR
     1068   06 00037    6800008F              B        RTURN2
     1069                            *
     1070   06 00038    6AB00078 04  COPYSEL  BAL,R11  COPYOPT           GET OPTIONS
     1071   06 00039    330E0002 X            MTW,0    DEVICE+2,R7       HAVE WE BEEN TO DEVTRAN
     1072   06 0003A    68300011              BE       EDITDV2           NO, GO
     1073   06 0003B    322E0000 X            LW,R2    TERM,R7           GET DELIMITER
     1074   06 0003C    6800001D              B        EDITDVA
     1075                            *
     1076   06 0003D    6AB00000 X   TOCMR12  BAL,R11  TRANSACT          TRANSLATE -TO- ACTION VERB
     1077   06 0003E    21C00001 A            CI,R12   1                 ACTION = -TO-
     1078   06 0003F    69200035              BG       ERRTN-1
     1079   06 00040    68300043              BE       %+3
     1080   06 00041    33F00000 X            MTW,-1   ERRFLAG           UNDO "UNDEFINED COMMAND"
     1081   06 00042    68000035              B        ERRTN-1
     1082   06 00043    332E0000 X            MTW,2    DEVICE,R7         MAKE DP DEFAULT (DC NOT OPTIONAL)
     1083   06 00044    6AB00000 X            BAL,R11  DEVTRAN           GET OUTPUT DEVICE
     1084   06 00045    325E0000 X            LW,R5    TERM,R7
     1085   06 00046    21500015 A            CI,R5    X'15'             END OF COMMAND
     1086   06 00047    6830004B              BE       FROM1             YES
     1087   06 00048    2150004D A            CI,R5    '('
     1088   06 00049    69300035              BNE      ERRTN-1
     1089   06 0004A    6AB00078 04           BAL,R11  COPYOPT           GET OPTIONS
     1090                            *
     1091   06 0004B    21D00001 A   FROM1    CI,R13   1                 TEST ERROR SEVERITY
     1092   06 0004C    6920008F              BG       RTURN2            CANNOT EXECUTE
     1093                            *
     1094   06 0004D    350E0002 A            STW,R0   2,R7              RESET ACCESS HEAD NOT PRINTED
     1095   06 0004E    6AB00000 X            BAL,R11  REVARG            RESTORE INPUT ARGUMENTS
     1096   06 0004F    22900000 A            LI,R9    0                 INITIALIZE FILE COUNT
     1097   06 00050    330E0000 X            MTW,0    COPYSTDF,R7
     1098   06 00051    693001AC              BNE      COPYSTD           COPYSTD COMMAND
     1099                            *
     1100   06 00052    22100006 A            LI,R1    6                 BUILD INPUT DCB
     1101   06 00053    6AB00000 X            BAL,R11  BLDCB
     1102   06 00054    350E0000 X            STW,R0   SYNFLAG,R7        INITIALIZE NO SYNONYM NAMES
     1103                            *
     1104   06 00055    7210000A A   TO00     LB,R1    R10
     1105   06 00056    6830005B              BE       TO01              NO ERROR
     1106   06 00057    21100008 A            CI,R1    8                 SYNONYM FILE NAME
     1107   06 00058    6930009E              BNE      ALL7              NO-SOME OTHER ABNORMAL OR ERROR
     1108   06 00059    331E0000 X            MTW,1    SYNFLAG,R7        YES-SET SYNONYM FILE NAME PRESENT
     1109   06 0005A    6800007F              B        ALL4              OPEN NEXT FILE
     1110                            *
     1111   06 0005B    6AB00000 X   TO01     BAL,R11  TESTFNC           TEST IF FILE WANTED
     1112   06 0005C    6800006A              B        TO012             NO
     1113   06 0005D    32300000 X            LW,R3    COPYSK
     1114   06 0005E    21300080 A            CI,R3    X'80'
     1115   06 0005F    6830006C              BE       TO010             ALL FILES ARE WANTED
     1116   06 00060    223000F0 A            LI,R3    X'F0'
     1117   06 00061    4B300005 X            AND,R3   M:EI+5            GET ORG
     1118   06 00062    69300064              BNE      %+2
     1119   06 00063    22300010 A            LI,R3    X'10'             IF 0, SET FOR CONSEC
     1120   06 00064    32100001 X            LW,R1    TLABEL+1
     1121   06 00065    3110021D              CW,R1    ='RFIL'           RANDOM FILE ON TAPE
     1122   06 00066    69300068              BNE      %+2               NO
     1123   06 00067    22300030 A            LI,R3    X'30'             SET ORG FOR RANDOM
     1124   06 00068    31300000 X            CW,R3    COPYSK            DO WE WANT THIS FILE
     1125   06 00069    6830006C              BE       TO010             YES
     1126   06 0006A    6AB00000 X   TO012    BAL,R11  CLOSEI            NO - CLOSE M:EI
     1127   06 0006B    6800007F              B        ALL4
     1128   06 0006C    6AB00000 X   TO010    BAL,R11  REVARG            SAVE INPUT ARGTBL IN TOARG
     1129   06 0006D    22100007 A            LI,R1    7                 BUILD OUTPUT DCB
     1130   06 0006E    6AB00000 X            BAL,R11  BLDCB
     1131   06 0006F    6AB00000 X            BAL,R11  REVARG
     1132   06 00070    21D00002 A            CI,R13   2                 MAJOR ERROR
     1133   06 00071    6920008A              BG       STDERR            YES
     1134   06 00072    32F0000A A            LW,R15   R10
     1135   06 00073    69300078              BNE      ENDCOPY           GO PRINT MSG-FILE NOT OPEN
     1136                            *
     1137   06 00074    6A600137              BAL,R6   ALL8              OUTPUT HEADING IF NEEDED
     1138   06 00075    326E000C X            LW,R6    TOARG+12,R7       SAVE SEQ START FOR EACH FILE
     1139   06 00076    6AB00000 X            BAL,R11  RDWRT             COPY M:EI TO M:EO
     1140   06 00077    356E000C X            STW,R6   TOARG+12,R7
     1141   06 00078    6AB00000 X   ENDCOPY  BAL,R11  CLOSEI            CLOSE INPUT DCB
     1142   06 00079    6AB00000 X            BAL,R11  CLOSEO            CLOSE OUTPUT DCB
     1143   06 0007A    32A0000F A            LW,R10   R15
     1144   06 0007B    6AB000A6              BAL,R11  ALLC              OUTPUT MESSAGE
     1145   06 0007C    21D00002 A            CI,R13   2                 TEST ERROR SEVERITY
     1146   06 0007D    6920008C              BG       RTURN
     1147   06 0007E    6AB00000 X            BAL,R11  PRTERR
     1148                            *
     1149   06 0007F    33000000 X   ALL4     MTW,0    BREAK             BREAK SET
     1150   06 00080    6930008C              BNE      RTURN             YES
     1151   06 00081    22D00000 A            LI,R13   0
     1152   06 00082    35D00000 X            STW,R13  ERRFLAG
     1153   06 00083    330E0000 X            MTW,0    COPYSTDF,R7       GO GET NEXT STD FILE
     1154   06 00084    691001E7              BL       COPYSTR15         IF IN THAT MODE
     1155   06 00085    33000000 X            MTW,0    TOFILE            ANY MORE FILES WANTED
     1156   06 00086    6910018D              BL       RTURN1            NO
     1157   06 00087    6AB00000 X            BAL,R11  OPNNXT
     1158   06 00088    69800092              BCS,8    ALL5              ALL DONE
     1159   06 00089    69300055              BNE      TO00              GOT A NEW NAME, GO DO IT
     1160   06 0008A    22100000 A   STDERR   LI,R1    0                 REPORT I/O ERROR
     1161   06 0008B    6AB00000 X            BAL,R11  ERROR
     1162   06 0008C    6A600137     RTURN    BAL,R6   ALL8              UPSPACE IF REQ'D
     1163   06 0008D    2250016F              LI,R5    COPTEXT           ADDR OF MESSAGE
     1164   06 0008E    6AB00000 X            BAL,R11  PRTNOF
     1165   06 0008F    02200070 A   RTURN2   LCI      7                 RESTORE REGISTERS
     1166   06 00090    8A500007 A            PLM,R5   *R7
     1167   06 00091    E800000B A            B        *R11              RETURN
     1168                            *
     1169   06 00092    72200178     ALL5     LB,R2    NOFILES
     1170   06 00093    21900000 A            CI,R9    0                 IF NOT NO FILES,
     1171   06 00094    6930018D              BNE      RTURN1            DONT SAY SO
     1172   06 00095    22300000 N            LI,R3    M:UC              SELECT ONLINE OR BATCH
     1173   06 00096    33000000 X            MTW,0    J:JIT
     1174   06 00097    6910009A              BL       %+3
     1175   06 00098    22300000 N            LI,R3    M:LO
     1176   06 00099    202FFFFF A            AI,R2    -1                REMOVE NL CHAR
     1177   06 0009A    22E00178              LI,R14   NOFILES
     1178   06 0009B    22400001 A            LI,R4    1                 BTD
     1179   06 0009C    04100131              CAL1,1   FPTLFILE          PRINT - NO FILES IN DIRECTORY
     1180   06 0009D    6800008F              B        RTURN2            EXIT
     1181                            *
     1182   06 0009E    21100002 A   ALL7     CI,R1    2                 END OF DIRECTORY
     1183   06 0009F    6830007F              BE       ALL4              TRY ONCE MORE LEST LT OR AT
     1184   06 000A0    2210FF00 A            LI,R1    X'FF00'
     1185   06 000A1    31100016 X            CW,R1    M:EI+22           IS FILE NAME PRESENT
     1186   06 000A2    6840008A              BAZ      STDERR            NO
     1187   06 000A3    6AB00000 X            BAL,R11  TESTFNC           TEST IF FILE WANTED
     1188   06 000A4    6800007F              B        ALL4              NO - DON'T PRINT ANYTHING
     1189   06 000A5    22B0007F              LI,R11   ALL4              RETURN FROM ALLC
     1190   06 000A6    89B00007 A   ALLC     PSW,R11  *R7
     1191   06 000A7    22100024 A            LI,R1    36
     1192   06 000A8    3220021E              LW,R2    ='    '
     1193   06 000A9    3523FFFF X            STW,R2   TLABEL-1,R1
     1194   06 000AA    641000A9              BDR,R1   %-1
     1195   06 000AB    22E00000 N            LI,R14   TLABEL            BUFFER
     1196   06 000AC    22100017 N            LI,R1    M:EI+23
     1197   06 000AD    6AB00000 X            BAL,R11  UNPRINT           ENTER FILE NAME IN BUFFER
     1198   06 000AE    22100060 A            LI,R1    X'60'             NO POST SPACE
     1199   06 000AF    75100000 X            STB,R1   TLABEL
     1200   06 000B0    32600002 A            LW,R6    R2                SAVE NAME LENGTH
     1201   06 000B1    20900001 A            AI,R9    1                 COUNT THE FILE
     1202   06 000B2    20A00000 A            AI,R10   0
     1203   06 000B3    682000D4              BLE      ALLX              NO ERRORS
     1204   06 000B4    2090FFFF A            AI,R9    X'FFFF'           COUNT NONCOPIED FILES
     1205   06 000B5    22100000 A            LI,R1    0                 IF SEVERITY THREE
     1206   06 000B6    21D00003 A            CI,R13   3                 COMMAND WILL ABORT
     1207   06 000B7    6810012A              BGE      ALLE              SO PRINT FULL MESSAGE
     1208   06 000B8    35100000 X            STW,R1   LISTPOS
     1209   06 000B9    221000C2 A            LI,R1    'B'               2SPACE BEFORE
     1210   06 000BA    75100000 X            STB,R1   TLABEL
     1211   06 000BB    7210000A A            LB,R1    R10
     1212   06 000BC    25100008 A            SLS,R1   8
     1213   06 000BD    5010000A A            AH,R1    R10
     1214   06 000BE    2510007F A            SLS,R1   -1
        1*  06 000BF    22D00002 A            LI,R13   2                 SET STEP CCS IF ERROR
        2*  06 000C0    31D00000 X            CW,R13   MAXSEV            OCCURS DURING COPYALL/STD
        3*  06 000C1    682000C3              BLE      %+2
        4*  06 000C2    35D00000 X            STW,R13  MAXSEV
     1215   06 000C3    6AB00000 X            BAL,R11  HEX2BCD           CONVERT ERR/ABN TO BCD
     1216   06 000C4    3220021E              LW,R2    ='    '           SURROUND CODE WITH 2 BLANKS
     1217   06 000C5    21A0FFF0 A            CI,R10   X'FFF0'           IO ERR OR PCL ERR
     1218   06 000C6    694000C8              BANZ     %+2               IO
     1219   06 000C7    202000B1 A            AI,R2    '1'-' '           PCL
     1220   06 000C8    25200310 A            SCD,R2   16
     1221   06 000C9    32400130              LW,R4    TEXTIN            OUT IN/OUT CR AFTER
     1222   06 000CA    25A0000F A            SLS,R10  15
     1223   06 000CB    25A00071 A            SLS,R10  -15
     1224   06 000CC    21A00000 N            CI,R10   M:EO
     1225   06 000CD    693000CF              BNE      %+2
     1226   06 000CE    3240012F              LW,R4    TEXTOUT
     1227   06 000CF    221FFFF4 A            LI,R1    -12
     1228   06 000D0    20600001 A            AI,R6    1
     1229   06 000D1    72B20005 A            LB,R11   R5,R1
     1230   06 000D2    75BC0000 X            STB,R11  TLABEL,R6
     1231   06 000D3    651000D0              BIR,R1   %-3
     1232   06 000D4    32200006 A   ALLX     LW,R2    R6
     1233   06 000D5    330E0002 A            MTW,0    2,R7              SHOULD WE DO THIS
     1234   06 000D6    693000DD              BNE      ALLP              YES IF FLAG LEFT BY ALL8
     1235   06 000D7    20A00000 A            AI,R10   0                 IS IT AN ERROR MESSAGE
     1236   06 000D8    6830012D              BE       ALLD              NO, NOTHING
     1237   06 000D9    2190FFFF A            CI,R9    X'FFFF'           IF NO FILES YET, NO PAGE
     1238   06 000DA    684000DD              BAZ      ALLP
     1239   06 000DB    221000F1 A            LI,R1    '1'               YES, NEW PAGE
     1240   06 000DC    75100000 X            STB,R1   TLABEL
     1241   06 000DD    22300000 N   ALLP     LI,R3    M:LO
     1242   06 000DE    22400001 A            LI,R4    1
     1243   06 000DF    22100003 A            LI,R1    3
     1244   06 000E0    45100000 X            CS,R1    M:LO
     1245   06 000E1    6930011A              BNE      ALLW
     1246   06 000E2    2210006C A            LI,R1    108               LP WIDTH
     1247   06 000E3    22B0FF00 A            LI,R11   X'FF00'
     1248   06 000E4    4BB00001 X            AND,R11  M:LO+1
     1249   06 000E5    21B09000 A            CI,R11   X'9000'
     1250   06 000E6    693000ED              BNE      KGC1%4
     1251   06 000E7    22100000 N            LI,R1    BA(JB:PCW)
     1252   06 000E8    72120000 A            LB,R1    0,R1
        1*        00000001                    DO       H02
        2*  06 000E9    21100000 A            CI,R1    0                 CHECK IF PLATEN WIDTH IS 0
        3*  06 000EA    693000EC              BNE      %+2
        4*  06 000EB    22100050 A            LI,R1    80                IF SO, SET TO 80 - INTERNALLY
        5*                                    FIN
     1253   06 000EC    35100023 X            STW,R1   TLABEL+35         SET FLAG
     1254   06 000ED    32B00000 X   KGC1%4   LW,R11   LISTPOS
     1255   06 000EE    23B0000C A            MI,R11   12
     1256   06 000EF    3810000B A            SW,R1    R11               SPACE REMAINING
     1257   06 000F0    31100002 A            CW,R1    R2
     1258   06 000F1    681000F4              BGE      %+3               LOTS
     1259   06 000F2    04100185              CAL1,1   LOSPACE
     1260   06 000F3    22B00000 A            LI,R11   0
     1261   06 000F4    3020000B A            AW,R2    R11               SLIDE OVER TO THE NEXT CLOUMN
     1262   06 000F5    3240000B A            LW,R4    R11
     1263   06 000F6    25B0007E A            SLS,R11  -2
     1264   06 000F7    20B00000 N            AI,R11   TLABEL
     1265   06 000F8    721C0000 X            LB,R1    TLABEL,R6
     1266   06 000F9    F51C000B A            STB,R1   *R11,R6
     1267   06 000FA    646000F8              BDR,R6   %-2
     1268   06 000FB    22100040 A            LI,R1    ' '
     1269   06 000FC    20400000 A            AI,R4    0
     1270   06 000FD    68300100              BE       %+3
     1271   06 000FE    75180000 X            STB,R1   TLABEL,R4
     1272   06 000FF    644000FE              BDR,R4   %-1
     1273   06 00100    20200001 A            AI,R2    1                 INCLUDE VFC CHAR
     1274   06 00101    22100100 A            LI,R1    X'100'            SET VFC IF NOT THERE
     1275   06 00102    4B100000 X            AND,R1   M:LO
     1276   06 00103    69300105              BNE      %+2
     1277   06 00104    04100183              CAL1,1   LOVFC
     1278   06 00105    70200000 X            LC       TLABEL
     1279   06 00106    6980011A              BCS,8    ALLW
     1280   06 00107    32100002 A            LW,R1    R2
     1281   06 00108    2010000B A            AI,R1    11
     1282   06 00109    3610021F              DW,R1    =12
     1283   06 0010A    35100000 X            STW,R1   LISTPOS
     1284   06 0010B    70200023 X            LC       TLABEL+35         IF TERM, WRITE WITH SYNC TERM
     1285   06 0010C    6940011A              BCS,4    ALLW
     1286   06 0010D    2310000C A            MI,R1    12                LIMIT WRITE TO PLATEN SIZE
     1287   06 0010E    31100023 X            CW,R1    TLABEL+35
     1288   06 0010F    68200111              BLE      %+2
     1289   06 00110    32100023 X            LW,R1    TLABEL+35
     1290   06 00111    32200001 A            LW,R2    R1
     1291   06 00112    20200001 A            AI,R2    1
     1292   06 00113    22100016 A            LI,R1    22
     1293   06 00114    75140000 X            STB,R1   TLABEL,R2
     1294   06 00115    20200001 A            AI,R2    1
     1295   06 00116    38B0000E A            SW,R11   R14               WRITE FROM *R14 INSTEAD
     1296   06 00117    30E0000B A            AW,R14   R11
     1297   06 00118    23B00004 A            MI,R11   4
     1298   06 00119    3820000B A            SW,R2    R11
     1299   06 0011A    04100131     ALLW     CAL1,1   FPTLFILE          PRINT FILE NAME
     1300   06 0011B    70200000 X            LC       TLABEL            IF ERROR MSG, PUT THRU DO TOO PERHAPS
     1301   06 0011C    68800126              BCR,8    ALLV
     1302   06 0011D    70200000 X            LC       J:JIT
     1303   06 0011E    68800121              BCR,8    %+3
     1304   06 0011F    70200023 X            LC       TLABEL+35         IF ONLINE WASN'T UC, ALWAYS DO IT
     1305   06 00120    69400123              BCS,4    %+3
     1306   06 00121    70200000 X            LC       DCBS
     1307   06 00122    69100126              BCS,1    ALLV
     1308   06 00123    22400001 A            LI,R4    1                 NO VFC
     1309   06 00124    22300000 N            LI,R3    M:DO
     1310   06 00125    04100131              CAL1,1   FPTLFILE
     1311   06 00126    31900220     ALLV     CW,R9    =X'FFFFF'         16 WITH NO GOOD ONES GIVES UP
     1312   06 00127    6940012D              BANZ     ALLD
     1313   06 00128    359E0000 X            STW,R9   CMBX,R7           GARBAGE POINTER
     1314   06 00129    2210002C A            LI,R1    44
     1315   06 0012A    6AB00000 X   ALLE     BAL,R11  ERROR
     1316   06 0012B    33F00000 X            MTW,-1   BREAK
     1317   06 0012C    22D00003 A            LI,R13   3                 DONT ABORT THE JOB THOUGH
     1318   06 0012D    88B00007 A   ALLD     PLW,R11  *R7               RESTORE RETURN ADDR
     1319   06 0012E    E800000B A            B        *R11
     1320   06 0012F    D6E4E340 A   TEXTOUT  TEXT     'OUT'
     1321   06 00130    C9D54040 A   TEXTIN   TEXT     'IN '
     1322   06 00131    91000003 A   FPTLFILE GEN,8,7,17      X'91',0,R3
     1323   06 00132    34000010 A            DATA     X'34000010'
     1324   06 00133    8000000E A            PZE      *R14
     1325   06 00134    80000002 A            PZE      *R2
     1326   06 00135    80000004 A            PZE      *R4
     1327   06 00136    04000000 N   FPTTOF   GEN,8,24 4,M:EO            TOP OF FORM FOR NEW FILE
     1328         06 00137           ALL8     EQU,0    %
     1329                            *        WRITE ..COPYING TO UC IF EI AND EO
     1330                            *        ARENT THE UC DEVICE. THEN DETERMINE IF A LIST OF
     1331                            *        COPIED (COPYALL OR COPYSTD) OR DELETED (DELETEALL)
     1332                            *        FILES IS TO BE OUTPUT TO UC (ONLINE) OR LP (BATCH).
     1333                            *        THIS OCCURS IF EI AND EO ARE NOT UC OR LP.
     1334                            *        THEN PREFACE EACH FILE WITH ITS NAME IF PROPER.
     1335                            *        ONLINE THIS OCCURS IF EO IS LP FOR ALL COPIES, IF EO IS UC
     1336                            *        FOR COPYALL AND COPYSTD.
     1337                            *        BATCH THIS OCCURS IF EO IS LP ONLY FOR COPYALL AND COPYSTD.
     1338   06 00137    22200007 A            LI,R2    7                 MME(UC) IS 8 DEVICE, LP IS 9
     1339   06 00138    312E0000 X            CW,R2    DEVICE,R7         ZERO IS ILLEGAL
     1340   06 00139    684C0000 A            BAZ      0,R6              IF INPUT IS UC, NOTHING HAPPENS.
     1341   06 0013A    32400000 X            LW,R4    J:JIT             GET JOBTYPE FLAG
     1342   06 0013B    32300000 X            LW,R3    COPYSK            NONZERO IF COPYSTD OR COPYALL.
     1343   06 0013C    4B2E0000 X            AND,R2   TOARG,R7          GET OUTPUT DEVICE
     1344   06 0013D    68300147              BE       ALL85             UC OUTPUT, NO COPYING OR LIST
     1345   06 0013E    64300143              BDR,R3   ALL81             MULTIFILE COPY, LIST INSTEAD OF COPYING
     1346   06 0013F    64400144              BDR,R4   ALL82             BATCH, NO COPYING MSG
     1347   06 00140    330E0002 A            MTW,0    2,R7              HAVE WE BEEN HERE ALREADY
     1348   06 00141    69300143              BNE      %+2               YES
     1349   06 00142    0410006C 05           CAL1,1   WRTCOPY           NO, ..COPYING
     1350   06 00143    65400146     ALL81    BIR,R4   %+3               ONLINE, ALWAYS LIST IF NOT UC OUT
     1351   06 00144    21200001 A   ALL82    CI,R2    1                 BATCH, LIST IF OUTPUT NOT LP
     1352   06 00145    68300147              BE       %+2
     1353   06 00146    353E0002 A            STW,R3   2,R7
     1354   06 00147    21200001 A   ALL85    CI,R2    1                 OUTPUT FILENAME HEADER IF LP ONLINE
     1355   06 00148    692C0000 A            BG       0,R6              OR BATCH MANYFILE
     1356   06 00149    22301000 A            LI,R3    X'1000'           CHECK NF OPTION
     1357   06 0014A    4B3E0006 X            AND,R3   TOARG+6,R7
     1358   06 0014B    693C0000 A            BNE      0,R6
     1359   06 0014C    31200000 X            CW,R2    COPYSK            CHECK LP AND COPYALL
     1360   06 0014D    687C0000 A            BCR,7    0,R6              UC, NOT COPYALL
     1361   06 0014E    69100158              BL       ALL9
     1362   06 0014F    6440016B              BDR,R4   ALL95             BATCH TO LP NEEDS SPACES
     1363   06 00150    32300001 X            LW,R3    M:EO+1            IF LO IS LP TOO,
     1364   06 00151    38300001 X            SW,R3    M:LO+1            THEN NO LIST
     1365   06 00152    330E0002 A            MTW,0    2,R7
     1366   06 00153    68200155              BLE      %+2               IF NOT COPYALL/STD,NO CHANGE
     1367   06 00154    353E0002 A            STW,R3   2,R7
     1368   06 00155    32200000 X            LW,R2    M:EO              ONLINE TO LP, IS IT VFC
     1369   06 00156    21200100 A            CI,R2    X'100'
     1370   06 00157    694C0000 A            BANZ     0,R6              YES, NO HEADER
     1371   06 00158    22300003 A   ALL9     LI,R3    3                 USE A DCB WITH A NAME IN IT
     1372   06 00159    45300000 X            CS,R3    M:EI
     1373   06 0015A    683C0000 A            BE       0,R6              NO NAME, NO MESSAGE
     1374   06 0015B    04100136              CAL1,1   FPTTOF            NEW PAGE
     1375   06 0015C    22200020 A            LI,R2    X'20'             IF EI ISN'T OPEN, NO NAME
     1376   06 0015D    51200000 X            CH,R2    M:EI
     1377   06 0015E    684C0000 A            BAZ      0,R6
     1378   06 0015F    04800182              CAL1,8   TIMECAL
     1379   06 00160    22F00000 N            LI,R15   BA(TLABEL)
     1380   06 00161    22E0000F A            LI,R14   15
     1381   06 00162    6AB00000 X            BAL,R11  RANGEOUT
     1382   06 00163    3220000E A            LW,R2    R14               PRINT THE RESULT
     1383   06 00164    22E00000 N            LI,R14   TLABEL
     1384   06 00165    20200001 A            AI,R2    1
     1385   06 00166    22400000 A            LI,R4    0
     1386   06 00167    22300000 N            LI,R3    M:EO
     1387   06 00168    04100131              CAL1,1   FPTLFILE          WRITE LINE
     1388   06 00169    0410017E              CAL1,1   FPTSPACE
     1389   06 0016A    680C0000 A            B        0,R6
        1*        00000001                 DO          H02
        2*  06 0016B    2160005B 05  ALL95    CI,R6    COPYEND-1         THIS IS DRB'S BAD USE OF A SYMBOL
        3*  06 0016C    693C0000 A            BNE      0,R6              DO TOP OF FORM INSTEAD OF SPACES
        4*  06 0016D    04100136              CAL1,1   FPTTOF            IN BATCH AT BEGINNING OF FILE
        5*                                 ELSE
        6*                       *S* ALL95    CAL1,1   FPTSPACE
        7*                       *S*          CAL1,1   FPTSPACE
        8*                                 FIN
     1392   06 0016E    680C0000 A            B        0,R6              GO COPY FILE
     1393   06 0016F    4B4B406C A   COPTEXT  TEXT     '.. % FILES COPIED, % FILES SKIPPED
'
            06 00170    40C6C9D3 A
            06 00171    C5E240C3 A
            06 00172    D6D7C9C5 A
            06 00173    C46B406C A
            06 00174    40C6C9D3 A
            06 00175    C5E240E2 A
            06 00176    D2C9D7D7 A
            06 00177    C5C41540 A
     1394   06 00178    16D5D640 A   NOFILES  TEXTC    'NO FILES IN DIRECTORY
'
            06 00179    C6C9D3C5 A
            06 0017A    E240C9D5 A
            06 0017B    40C4C9D9 A
            06 0017C    C5C3E3D6 A
            06 0017D    D9E81540 A
     1395   06 0017E    11000000 N   FPTSPACE GEN,8,24 17,M:EO
     1396   06 0017F    30000010 A            DATA     X'30000010'
     1397   06 00180    0000021E              DATA     ='    ',1
            06 00181    00000001 A
     1398   06 00182    10000000 N   TIMECAL  GEN,8,24 16,TLABEL
     1399   06 00183    05000000 N   LOVFC    GEN,8,24 5,M:LO
     1400   06 00184    00000010 A            DATA     X'10'
     1401   06 00185    11000000 N   LOSPACE  GEN,8,24 17,M:LO
     1402   06 00186    30000010 A            DATA     X'30000010',='    ',1
            06 00187    0000021E
            06 00188    00000001 A
     1403   06 00189    40160040 A            DATA     X'40160040','    ','    '
            06 0018A    40404040 A
            06 0018B    40404040 A
     1404   06 0018C    84000000 N            GEN,8,24 132,BA(TLABEL+3)
1* AP * 22:32 JUN 16,'85    PCLCO - COMBINE,COPYTRAN,COPYALL,COPYTO                               PAGE   15
A    1405                                     PAGE
     1406   06 0018D    330E0000 X   RTURN1   MTW,0    SYNFLAG,R7        SYNONYM FILE NAME(S) PRESENT
     1407   06 0018E    6830008C              BE       RTURN             NO-RETURN
     1408   06 0018F    321E0000 X            LW,R1    TOARG,R7
     1409   06 00190    21100005 A            CI,R1    5                 IS OUTPUT TO A DEVICE
     1410   06 00191    6920008C              BG       RTURN             YES - DONT COPY SYNONYMS
     1411   06 00192    32100000 X            LW,R1    COPYSK
     1412   06 00193    21100040 A            CI,R1    X'40'             ARE WE COPYING BY ORG
     1413   06 00194    6910008C              BL       RTURN             YES - DONT COPY SYNONYMS
     1414   06 00195    22200000 A            LI,R2    0
     1415   06 00196    32300221              LW,R3    =X'80000000'      RESET END OF RANGE FLAG
     1416   06 00197    47200000 X            STS,R2   TOFILE
     1418   06 00198    6AB00000 X            BAL,R11  BLDCB             GO-BUIL INPUT DCB
     1419   06 00199    6AB00000 X            BAL,R11  REVARG            BACK TO OUTPUT
     1420   06 0019A    20A00000 A            AI,R10   0                 ABLE TO OPEN FIRST FILE
     1421   06 0019B    693001A0              BNE      SYNERROR          NO-CHECK FOR SYNONYM FILE NAME
     1422   06 0019C    6AB00000 X   SYN4     BAL,R11  CLOSEI            YES - GO CLOSE IT
     1423   06 0019D    6AB00000 X            BAL,R11  OPNNXT            OPEN NEXT FILE
     1424   06 0019E    6980008C              BCS,8    RTURN             ALL DONE
     1425   06 0019F    6830008C              BE       RTURN             NOT GETTING ANYWHERE
     1426                            *
     1427   06 001A0    6AB00000 X   SYNERROR BAL,R11  TESTFNC           IF NOT WANTED, SKIP IT
     1428   06 001A1    680001A9              B        SYN3
     1429   06 001A2    7210000A A            LB,R1    R10
     1430   06 001A3    21100008 A            CI,R1    8                 SYNONYM FILE NAME
     1431   06 001A4    6930019C              BNE      SYN4              NO-OPEN NEXT FILE
     1432   06 001A5    22100007 A            LI,R1    7                 OPEN NEXT,FPARAM,OUTPUT
     1433   06 001A6    6AB00000 X            BAL,R11  BLDCB             PUT SYNONYM FILE ON OUTPUT ACCT.
     1434   06 001A7    6AB00000 X            BAL,R11  CLOSEO            CLOSE NEW SYNONYM FILE
     1435   06 001A8    6AB000A6              BAL,R11  ALLC              LIST NAME OR ERROR
     1436   06 001A9    33000000 X   SYN3     MTW,0    TOFILE            END OF RANGE
     1437   06 001AA    6910008C              BL       RTURN             YES
     1438   06 001AB    6800019C              B        SYN4              OPEN NEXT FILE
1* AP * 22:32 JUN 16,'85    PCLCO - COMBINE,COPYTRAN,COPYALL,COPYTO                               PAGE   16
A    1439                                     PAGE
     1440   06 001AC    22100002 A   COPYSTD  LI,R1    2
     1441   06 001AD    6AB00000 X            BAL,R11  BLDCB
     1442   06 001AE    21D00001 A            CI,R13   1
     1443   06 001AF    6920008F              BG       RTURN2
     1444   06 001B0    22100003 A            LI,R1    3
     1445   06 001B1    45100000 X            CS,R1    M:EI              IF DEVICE, DONT COPY TWICE
     1446   06 001B2    683001C1              BE       COPYSTR12
     1447   06 001B3    6AB00000 X            BAL,R11  REVARG            SETUP TO OPEN OUTPUT DCB
     1448   06 001B4    22100007 A            LI,R1    7
     1449   06 001B5    6AB00000 X            BAL,R11  BLDCB             BUILD M:EO
     1450   06 001B6    21D00001 A            CI,R13   1
     1451   06 001B7    6920008A              BG       STDERR
     1452   06 001B8    6AB00000 X            BAL,R11  PRTERR
     1453   06 001B9    6AB00000 X            BAL,R11  REVARG            BRING BACK INPUT ARGUMENTS
     1454   06 001BA    6A600137              BAL,R6   ALL8              OUTPUT HEADING IF NEEDED
     1455   06 001BB    326E000C X            LW,R6    TOARG+12,R7       SAVE SEQ START
     1456   06 001BC    6AB00000 X            BAL,R11  RDWRT             COPY STD FILE
     1457   06 001BD    356E000C X            STW,R6   TOARG+12,R7       RESTORE IT
     1458   06 001BE    32A0000F A            LW,R10   R15
     1459   06 001BF    6AB000A6              BAL,R11  ALLC              LIST NAME
     1460   06 001C0    680001C2              B        %+2
        1*  06 001C1    351E0000 X   COPYSTR12 STW,R1  DEVICE,R7
     1462   06 001C2    52B00000 X            LH,R11   M:EI              IF EI IS OPEN, WE CAN GO ON
     1463   06 001C3    21B00020 A            CI,R11   X'20'
     1464   06 001C4    6840008F              BAZ      RTURN2
     1465   06 001C5    0410020F              CAL1,1   PFIL%STD
     1466   06 001C6    04100203              CAL1,1   OPNSTD            MAKE SCRATCH FILE
     1467   06 001C7    22100000 N            LI,R1    TLABEL            SET UP FOR RED PLIST
     1468   06 001C8    22200000 N            LI,R2    M:EI
     1469   06 001C9    22B001CF              LI,R11   COPYSTR14
     1470   06 001CA    041001F7     COPYSTD6 CAL1,1   SRDFPT
     1471   06 001CB    32300004 X            LW,R3    M:EI+4            GE SIZE
     1472   06 001CC    2530006F A            SLS,R3   -17
     1473   06 001CD    041001FD              CAL1,1   SWRFPT
     1474   06 001CE    680001CA              B        COPYSTD6
     1475   06 001CF    04100207     COPYSTR14 CAL1,1  SPFFPT            PFILE BOF
     1476   06 001D0    6AB00000 X            BAL,R11  CLOSEI
     1477   06 001D1    6AB00000 X            BAL,R11  CLOSEO
     1478   06 001D2    33EE0000 X            MTW,-2   COPYSTDF,R7       SET PHASE2 FLAG
     1479   06 001D3    22100010 A            LI,R1    16
     1480   06 001D4    32500007 A            LW,R5    R7                SAVE STD FILE ARGUMENTS
     1481   06 001D5    205FFFFF N            AI,R5    ARGTBL-1
     1482   06 001D6    B2220005 A            LW,R2    *R5,R1
     1483   06 001D7    3523FFFF X            STW,R2   SFARG-1,R1
     1484   06 001D8    641001D6              BDR,R1   %-2
     1485   06 001D9    322E0000 X            LW,R2    IN%ARG,R7         SAVE RESOURCE TYPE INFO TOO
     1486   06 001DA    46200004 X            XW,R2    SFARG+4
     1487   06 001DB    35200003 X            STW,R2   SFARG+3           AND REPOSITION ACCOUNT FLAG
     1488   06 001DC    22B0008C     COPYSTR13 LI,R11  RTURN
     1489   06 001DD    22100000 N            LI,R1    STDBUF
     1490   06 001DE    30100007 A            AW,R1    R7
     1491   06 001DF    32200222              LW,R2    =X'15151515'
     1492   06 001E0    22300013 A            LI,R3    19
     1493   06 001E1    B5260001 A            STW,R2   *R1,R3            BLANK BUFFER
     1494   06 001E2    643001E1              BDR,R3   %-1
     1495   06 001E3    35220000 A            STW,R2   0,R1
     1496   06 001E4    22200000 N            LI,R2    F:STD             READ F:STD
     1497   06 001E5    041001F7              CAL1,1   SRDFPT            READ STANDARD FILE
     1498   06 001E6    328001F6              LW,R8    COPYSTD0          GET INITIAL FLAG WORD
     1499   06 001E7    6B200008 A   COPYSTR15 INT,R2  R8                GET CODE WORD FOR NEXT NAME
     1500   06 001E8    353E0000 X            STW,R3   CMBX,R7           RIGHT 16 BITS IS CMBX
     1501   06 001E9    4B200223              AND,R2   =X'FF'            TERM IN BYTE 1
     1502   06 001EA    352E0000 X            STW,R2   TERM,R7
     1503   06 001EB    72100008 A            LB,R1    R8                DEVICE,FILE FLAG IN BYTE0
     1504   06 001EC    683001DC              BE       COPYSTR13         NO MORE HERE
     1505   06 001ED    22C00002 A            LI,R12   2                 SET INPUT FLAG FOR COPYTRAN
     1506   06 001EE    6AB00000 04           BAL,R11  COPYTRAN
     1507   06 001EF    328E0000 X            LW,R8    CMBX,R7           SAVE WHERE WE ARE
     1508   06 001F0    322E0000 X            LW,R2    TERM,R7           AND ON WHICH DELIMITER
     1509   06 001F1    55200008 A            STH,R2   R8
     1510   06 001F2    75100008 A            STB,R1   R8                AND WHETHER THERE'S MORE HERE
     1511   06 001F3    22100002 A            LI,R1    2
     1512   06 001F4    6AB00000 X            BAL,R11  BLDCB
     1513   06 001F5    68000055              B        TO00
     1514                            *
     1515   06 001F6    01400001 N   COPYSTD0 GEN,8,8,14,2 1,' ',STDBUF,1
     1516   06 001F7    90000002 A   SRDFPT   GEN,8,24 X'90',R2
     1517   06 001F8    F0000010 A            DATA     X'F0000010'
     1518   06 001F9    0000008A              DATA     STDERR            ERROR ADR
     1519   06 001FA    00000209              DATA     EOF               ABNORMAL ADR
     1520   06 001FB    80000001 A            PZE      *R1               BUFFER ADDRESS
     1521   06 001FC    00000050 A            DATA     80                BUFFER SIZE
     1522   06 001FD    11000000 N   SWRFPT   GEN,8,24 17,F:STD
     1523   06 001FE    F0000010 A            DATA     X'F0000010'
     1524   06 001FF    0000008A              DATA     STDERR,STDERR
            06 00200    0000008A
     1525   06 00201    00000000 N            DATA     TLABEL
     1526   06 00202    80000003 A            PZE      *R3
     1527   06 00203    14000000 N   OPNSTD   GEN,8,24 20,F:STD
     1528   06 00204    C0000000 A            DATA     X'C0000000'
     1529   06 00205    0000008A              DATA     STDERR,STDERR
            06 00206    0000008A
     1530   06 00207    1C000000 N   SPFFPT   GEN,8,24 28,F:STD          M:PFIL,BOF
     1531   06 00208    00000010 A            DATA     X'10'
     1532                            *
     1533   06 00209    7210000A A   EOF      LB,R1    R10
     1534   06 0020A    21100006 A            CI,R1    6
     1535   06 0020B    E830000B A            BE       *R11
     1536   06 0020C    21100005 A            CI,R1    5
     1537   06 0020D    E830000B A            BE       *R11
     1538   06 0020E    6800008A              B        STDERR            REPORT ERROR
     1539                            *
     1540   06 0020F    1C000000 X   PFIL%STD GEN,8,7,17   X'1C',0,M:EI
     1541   06 00210    00000010 A            DATA     X'10'
     1542                                     END
            06 00211    00FFFFFF A
            06 00212    0000F0F0 A
            06 00213    08000000 A
            06 00214    40F0F000 A
            06 00215    F0F04040 A
            06 00216    7FFFFFFF A
            06 00217    05000108 A
            06 00218    F0F0F0F0 A
            06 00219    05F5E0FF A
            06 0021A    0000000A A
            06 0021B    02D6D540 A
            06 0021C    02E3D640 A
            06 0021D    D9C6C9D3 A
            06 0021E    40404040 A
            06 0021F    0000000C A
            06 00220    000FFFFF A
            06 00221    80000000 A
            06 00222    15151515 A
            06 00223    000000FF A

  CONTROL SECTION SUMMARY: 01 00000   PT 0     02 00000   PT 0     03 00000   PT 1     04 002B8   PT 1
                           05 00074   PT 1     06 00224   PT 1
1* AP * 22:32 JUN 16,'85    PCLCO - COMBINE,COPYTRAN,COPYALL,COPYTO                               PAGE   17
A *    SYMBOL VALUES
          ACCTBL/04 001C4          ALLC-06 000A6            ALLD/06 0012D            ALLE/06 0012A
          ALLP/06 000DD            ALLV/06 00126            ALLW/06 0011A            ALLX/06 000D4
          ALL4/06 0007F            ALL5/06 00092            ALL7/06 0009E            ALL8/06 00137
          ALL81/06 00143           ALL82/06 00144           ALL85/06 00147           ALL9/06 00158
          ALL95/06 0016B           ANSE/04 000C0            ANSEND/00000026          ANSL/04 000C2
          ANS1/04 000AB            ANS3/04 000C4            ANS4/04 000BD            ANS6/04 000CD
          ANS8/04 000D7            ANS9/04 000DA            BRTAB/04 0016A           CMNDFLGS/04 00063
          CODEEND/00000007         CODETBL/04 00252         CODE1/04 00087           COMBINE1/04 0004C
          COPTEXT/06 0016F         COPYALL-06 00000         COPYEND/05 0005C         COPYMSG/05 00071
          COPYOPT/04 00078         COPYSEL/06 00038         COPYSTD/06 001AC         COPYSTD0/06 001F6
          COPYSTD6/06 001CA        COPYSTR12/06 001C1       COPYSTR13/06 001DC       COPYSTR14/06 001CF
          COPYSTR15/06 001E7       COPYTO-05 00000          COPYTRAN-04 00000        COPYX/05 00064
          COPY1/05 0003B           COPY3/05 00040           COPY4/05 00059           COPY9/05 00049
          CRPT/04 000DC            CSIR13/04 001E7          CSIR14/04 001D5          DENOK/04 000EC
          DEN1/04 000E5            DEVRTN/04 00029          DEV1/04 0000F            DEV2/04 00020
          DEV3/04 00025            DUPERR/04 0021E          EDITBL/04 00253          EDITDVA/06 0001D
          EDITDV1/06 0000D         EDITDV2/06 00011         EDITDV3/06 0002E         EDITDV5/06 0002F
          EDITDV6/06 00027         EDITDV7/06 00023         ENDCOPY/06 00078         ENDRSEL/04 00197
          ENDSPEC/04 00228         ENDSPEC2/04 0022F        ENDSPEC3/04 00236        ENDSPL2/04 001F0
          ENDSPL23/04 00211        ENDSPL24/04 00218        ENDSPL26/04 0021C        EOF/06 00209
          ERRTN/06 00036           ERRX/04 0018C            ERR11/04 0018B           ERR13/04 001FD
          ERR17/05 0001A           EXPARG/04 00104          EXPERR/04 00155          EXPERR1/04 00158
          EXP1/04 00117            EXP12/04 0011C           EXP2/04 00126            EXP3/04 0012B
          EXP4/04 00132            EXP5/04 0013F            EXP52/04 00149           EXP6/04 00152
          EXP9/04 00134            EXP92/04 00135           FILE1/04 00033           FILE2/04 0003A
          FILRTN/04 00040          FMTVAL/04 000A9          FMULT/04 002B6           FPTLFILE/06 00131
          FPTSPACE/06 0017E        FPTTOF/06 00136          FROM1/06 0004B           GETARG0/04 00080
          H02/00000001             KGC0%4/04 0009A          KGC1%4/06 000ED          LIMIT1/04 0015E
          LIMIT2/04 00160          LOSPACE-06 00185         LOVFC/06 00183           MODEDPL/04 0024B
          MODEEND/00000021         MODEX4/00000000 S        MODE1/04 00092           MODE2/04 000A4
          MODE4/04 000A1           NEVER/04 00168           NEXTARG/04 001F3         NOFILES/06 00178
          NOPTS/00000063           NXCMR12/05 0001D         OPNSTD/06 00203          PFIL%STD/06 0020F
          RANGEEND/04 00185        RANGEGO/04 00186         RCDSEL1/04 00177         RCDSEL3/04 0017B
          RCDSEL5/04 0018E         RETRN/05 00068           RETURN/04 0023A          RETURN2/04 00247
          RTURN/06 0008C           RTURN1/06 0018D          RTURN2/06 0008F          RWACCT/04 001A3
          RWACCT1/04 001B5         RWACCT2/04 001AA         RWACCT3/04 001BD         RWACCT4/04 001C1
          RWACCT5/04 001BA         RWACCT6/04 001C2         RWEND/0000002A           RW1/04 000EE
          R0/00000000              R1/00000001              R10/0000000A             R11/0000000B
          R12/0000000C             R13/0000000D             R14/0000000E             R15/0000000F
          R2/00000002              R3/00000003              R4/00000004              R5/00000005
          R6/00000006              R7/00000007              R8/00000008              R9/00000009
          SCANEND/05 00016         SCAN1/05 00005           SCAN2/05 0000A           SCAN3/05 0000D
          SCAN4/05 0000E           SEQEND/0000002E          SHIFT/04 0015B           SPECARG/04 0007F
          SPECL2/04 001C9          SPEC1/04 000F9           SPEC2/04 000FF           SPFFPT/06 00207
          SRDFPT/06 001F7          STDERR/06 0008A          SWRFPT/06 001FD          SYNERROR/06 001A0
          SYN3/06 001A9            SYN4/06 0019C            TESTARG/04 00069         TESTDEV/04 0004C
          TESTE/04 00073           TESTEND/04 00043         TEST0/04 0004D           TEST2/04 00066
          TEXTIN/06 00130          TEXTOUT/06 0012F         TIMECAL/06 00182         TOCMR12/06 0003D
          TO00/06 00055            TO01/06 0005B            TO010/06 0006C           TO012/06 0006A
          TO1/05 0002C             TO11/05 0003A            TXC/LIST                 TXOPT/0000001B
          VOLARG/04 0016E          WRTCOPY/05 0006C
  *    EXTERNAL SYMBOLS
          ALLC-DEF       ANSBLK-REF     ARGBUFF-REF    ARGBUF4-REF    ARGTBL-REF     BCD2BIN-REF
          BLDCB-REF      BLKIN-REF      BREAK-REF      CARDSEQ-REF    CLOSEI-REF     CLOSEO-REF
          CLRARG-REF     CMBX-REF       CODE-REF       COPYALL-DEF    COPYPHY-REF    COPYSK-REF
          COPYSTDF-REF   COPYTO-DEF     COPYTRAN*DEF   DCBS-REF       DEV%SAV1-REF   DEVICE-REF
          DEVTRAN-REF    DVLARG-REF     ERRFLAG-REF    ERROR-REF      EXPIRE-REF     EXTBL-REF
          F:STD-REF      FILE-REF       FILTRAN-REF    FIXARG-REF     GETARG-REF     GRANCNT-REF
          HEX2BCD-REF    HEX2BIN-REF    IN%ARG-REF     INCRPT-REF     INTARG-REF     J:JIT-REF
          JB:PCW-REF     LISTPOS-REF    LISTTERM-REF   LOSPACE-DEF    M:DO-REF       M:EI-REF
          M:EO-REF       M:LO-REF       M:UC-REF       MAXSEV-REF     MAXSN-REF      MBS-REF
          MODE-REF       NCHAR-REF      OPNNXT-REF     OUT%ARG-REF    PRTERR-REF     PRTNOF-REF
          RANGEOUT-REF   RDTBL-REF      RDWRT-REF      RDWRTX-REF     REVARG-REF     REVIEW-REF
          SELECT-REF     SEQUENCE-REF   SFARG-REF      STDBUF-REF     SYNFLAG-REF    TABSET-REF
          TERM-REF       TESTFNC-REF    TEXTARG-REF    TLABEL-REF     TOARG-REF      TOFILE-REF
          TOSWT-REF      TOVER-REF      TRANSACT-REF   UNPRINT-REF    UNTBL-REF      WRTBL-REF
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1* AP * 22:32 JUN 16,'85    PCLCO - COMBINE,COPYTRAN,COPYALL,COPYTO                               PAGE   18
A  ACCTBL           565/LW       576/CW       597-EQU
   AF               754/SET      755/GEN      756/DATA     757/DO       760/DATA
   ALLC             127/DEF     1144/BAL     1190-PSW     1435/BAL     1459/BAL
   ALLD            1236/BE      1312/BANZ    1318-PLW
   ALLE            1207/BGE     1315-BAL
   ALLP            1234/BNE     1238/BAZ     1241-LI
   ALLV            1301/BCR     1307/BCS     1311-CW
   ALLW            1245/BNE     1279/BCS     1285/BCS     1299-CAL1
   ALLX            1203/BLE     1232-LW
   ALL4            1109/B       1127/B       1149-MTW     1183/BE      1188/B       1189/LI
   ALL5            1158/BCS     1169-LB
   ALL7            1107/BNE     1182-CI
   ALL8             945/BAL      958/BAL     1137/BAL     1162/BAL     1328-EQU     1454/BAL
   ALL81           1345/BDR     1350-BIR
   ALL82           1346/BDR     1351-CI
   ALL85           1344/BE      1354-CI
   ALL9            1361/BL      1371-LI
   ALL95           1362/BDR   1389.2-CI    1389.6-CAL1
   ANSBLK           113/REF      354/AI       355/STW
   ANSE             330/LB       334-DATA
   ANSEND           312/CI       565/LW       801-OPT
   ANSL             335-DATA     336/LB
   ANS1             288/BGE      312-CI
   ANS3             321/BNE      336-LB
   ANS4             324/BNE      330-LB       340/BGE      345/BG       350/BANZ     365/BNE    371.5/BNE
       515/BGE
   ANS6             328/BE       342/BL       346-EXU      376/B
   ANS8             332/B        356-LW       370/B        518/B
   ANS9             318/BNE      359-LI       509/BNE
   ARGBUFF          100/REF      322/LW       421/LW       463/LW       464/LW       575/LW      1031/LW
   ARGBUF4          100/REF      522/LI       634/LI
   ARGTBL           101/REF      176/LW       186/STW     1481/AI
   BA               759/RES      759/RES     1251/LI      1379/LI      1404/GEN
   BCD2BIN           88/REF      524/BAL
   BLDCB            844/REF      931/BAL      939/BAL     1101/BAL     1130/BAL     1418/BAL     1433/BAL
      1441/BAL     1449/BAL     1512/BAL
   BLKIN            114/REF      354/AI
   BREAK            843/REF      948/MTW     1149/MTW     1316/MTW
   BRTAB            438/EXU      504-B
   CARDSEQ          107/REF      605/STW      606/STW      636/LI       636/LI       636/LI       636/LI
   CLOSEI           840/REF      947/BAL     1126/BAL     1141/BAL     1422/BAL     1476/BAL
   CLOSEO           840/REF      959/BAL     1142/BAL     1434/BAL     1477/BAL
   CLRARG            87/REF      135/BAL      903/BAL     1025/BAL     1061/BAL
   CMBX             104/REF      145/LW       156/CW       162/STW      566/LW       712/LW       718/STW
       857/LW       861/LW       919/STW      928/LW      1313/STW     1500/STW     1507/LW
   CMNDFLGS         218/LW       233-EQU
   CODE             102/REF      283/XW
   CODEEND          281/CI       289/AI       295/AI       759/RES      770-OPT
   CODETBL          275/LI       745-DATA     753/EQU      759/RES      813/EQU
   CODE1            270/BG       275-LI
   COMBINE1         197/BE       200/BE       203/BE       205/BE       208-B
   COPTEXT         1163/LI      1393-TEXT
   COPYALL         1010-DSECT
   COPYEND          934/BDR      947-BAL   1389.2/CI
   COPYMSG          966/DATA     969-TEXT
   COPYOPT          257-LCI     1070/BAL     1089/BAL
   COPYPHY           93/REF      400/DATA
   COPYSEL         1028/BE      1038/BE      1050/BE      1070-BAL
   COPYSK            92/REF      399/DATA     399/DATA     399/DATA    1016/STW     1113/LW      1124/CW
      1342/LW      1359/CW      1411/LW
   COPYSTD         1098/BNE     1440-LI
   COPYSTDF         111/REF      148/MTW      214/LW      1017/MTW     1097/MTW     1153/MTW     1478/MTW
   COPYSTD0        1498/LW      1515-GEN
   COPYSTD6        1470-CAL1    1474/B
   COPYSTR12       1446/BE    1460.1-STW
   COPYSTR13       1488-LI      1504/BE
   COPYSTR14       1469/LI      1475-CAL1
   COPYSTR15       1154/BL      1499-INT
   COPYTO           849-DSECT
   COPYTRAN         126-DSECT    865/BAL      922/BAL     1020/BAL     1506/BAL
   COPYX            933/BG       949/BNE      951/BG       955-MTW
   COPY1            902/BNE      914-CI
   COPY3            919-STW      954/BNE
   COPY4            936/BNE      944-MTW
   COPY9            926/BE       928-LW
   CRPT             362-BAL      510/BDR
   CSIR13           630/BLE      634-LI
   CSIR14           610/BE       616-LCI
   DA               753/EQU      753/EQU
   DCBS             120/REF     1306/LC
   DENOK          371.1/BE     371.3/BE     371.7-EQU
   DEN1             343/BANZ     371-CI
   DEV%SAV1          91/REF      220/STW      241/LW       726/AND
   DEVICE           105/REF      151/LI       210/LW       239/MTW      904/MTW      909/MTW     1051/LW
      1071/MTW     1082/MTW     1339/CW    1460.1/STW
   DEVRTN           172-CI       722/BE
   DEVTRAN           89/REF      147/BAL     1029/BAL     1083/BAL
   DEV1             142/BNE      145-LW
   DEV2             157/BE       163-STW
   DEV3             149/BGE      160/BE       168-BAL
   DUPERR           284/BNE      293/BNE      346/EXU      384/BNE      395/BANZ     406/BANZ     590/EXU
       694-LI
   DVLARG           101/REF      177/STW      185/LW
   EDITBL           243/AND      246/LW       750-DATA
   EDITDVA         1041-MTW     1074/B
   EDITDV1         1018/BE      1025-BAL
   EDITDV2         1029-BAL     1072/BE
   EDITDV3         1023/B       1040/BE      1055/BL      1059-LW
   EDITDV5         1033/BE      1035/BE      1060-BAL
   EDITDV6         1042/BNE     1046/BNE     1051-LW
   EDITDV7         1044/BE      1047-BAL
   ENDCOPY         1135/BNE     1141-BAL
   ENDRSEL          531/BE       538/BNE      546-LI
   ENDSPEC          273/B        285/B        297/BNE      299/BNE      304/B        309/B        387/BL
       396/B        409/BG       534/B        557/B        620/BNE      689/BE       698/BNE      704-LW
   ENDSPEC2         708/BE       712-LW
   ENDSPEC3         715/BE       720-LW
   ENDSPL2          628/BE       643-LW       663/BNE      667/BNE      677/B
   ENDSPL23         645/BNE      648/BG       679-LI
   ENDSPL24         358/BE       461/B        487/B        592/B        687-BAL
   ENDSPL26         360/B        681/BNE      691-BAL      710/B
   EOF             1519/DATA    1533-LB
   ERRFLAG           94/REF      888/MTW     1080/MTW     1152/STW
   ERROR             88/REF      144/BAL      207/BAL      227/BAL      253/BAL      272/BAL      303/BAL
       331/BAL      448/BAL      486/BAL      489/BAL      533/BAL      586/BAL      591/BAL      594/BAL
       632/BAL      658/BAL      685/BAL      691/BAL      695/BAL      737/BAL      878/BAL      894/BAL
      1057/BAL     1067/BAL     1161/BAL     1315/BAL
   ERRTN           1067-BAL     1078/BG      1081/B       1088/BNE
   ERRX             533-BAL      551/BGE
   ERR11            412/BNE      526/BG       528/BL       532-LI       541/BNE
   ERR13            652/BE       657-LI       673/BGE
   ERR17            877-LI       882/BNE
   EXPARG           296/BG       402-LW
   EXPERR           470/BE       472/BG       475/BCS      485-LI
   EXPERR1          423/BE       425/BG       428/BCS      435/BCS      488-LI
   EXPIRE           122/REF      419/LI       451/LW       455/STW      456/LW       459/STW      460/STW
       482/STW      483/STW
   EXP1             421-LW       450/B
   EXP12            426-LB       429/BDR
   EXP2             436-STH      440/B        490/B
   EXP3             442-LW       504/B        506/B
   EXP4             444/BE       446/BE       449-BAL
   EXP5             417/BE       463-LW
   EXP52            473-LB       476/BDR
   EXP6             468/B        482-STW
   EXP9             451-LW       507/B
   EXP92            452-LI       484/B
   EXTBL            124/REF      600/DATA
   F:STD            999/REF     1496/LI      1522/GEN     1527/GEN     1530/GEN
   FILE             106/REF      734/MTW      925/MTW
   FILE1            134/BNE      183-LI
   FILE2            181/B        190-BAL
   FILRTN           196-CI       723/BG
   FILTRAN           90/REF      190/BAL
   FIXARG            88/REF      276/BAL
   FMTVAL           311-TEXTC    327/CB
   FMULT            675/MH       815-DATA
   FPTLFILE        1179/CAL1    1299/CAL1    1310/CAL1    1322-GEN     1387/CAL1
   FPTSPACE        1388/CAL1  1389.6/CAL1  1389.7/CAL1    1395-GEN
   FPTTOF          1327-GEN     1374/CAL1  1389.4/CAL1
   FROM1           1065/BE      1086/BE      1091-CI
   GETARG            88/REF      267/B        413/BAL      570/BAL      626/BAL
   GETARG0          266-LI       319/BAL      449/BAL      649/BAL      668/BAL      687/BAL      699/BAL
       702/BNE      703/BAL      713/BAL
   GRANCNT         1007/REF     1014/STW
   HEX2BCD         1008/REF     1215/BAL
   HEX2BIN           95/REF      362/BAL
   H02              0.1-SET    526.1/DO     613.1/DO    1252.1/DO    1389.1/DO
   IN%ARG            96/REF      163/STW     1485/LW
   INCRPT            98/REF      369/STW
   INTARG            88/REF      338/BAL      513/BAL      650/BAL      671/BAL
   J:JIT            109/REF      300/MTW      906/LC      1173/MTW     1302/LC      1341/LW
   JB:PCW           119/REF     1251/LI
   KGC0%4           291/BE       295-AI
   KGC1%4          1250/BNE     1254-LW
   LF               753-EQU
   LIMIT1           427/CLM      474/CLM      497-DATA
   LIMIT2           434/CLM      498-DATA
   LISTPOS          117/REF     1208/STW     1254/LW      1283/STW
   LISTTERM         123/REF      863/STW      920/LW       930/STW
   LOSPACE          128/DEF     1259/CAL1    1401-GEN
   LOVFC           1277/CAL1    1399-GEN
   M:DO             121/REF     1309/LI
   M:EI             845/REF     1117/AND     1185/CW      1196/LI      1372/CS      1376/CH      1445/CS
      1462/LH      1468/LI      1471/LW      1540/GEN
   M:EO             941/LH      1000/REF     1224/CI      1327/GEN     1363/LW      1368/LW      1386/LI
      1395/GEN
   M:LO            1000/REF     1175/LI      1241/LI      1244/CS      1248/AND     1275/AND     1364/SW
      1399/GEN     1401/GEN
   M:UC             110/REF      305/MTB      307/LI       964/GEN     1172/LI
   MAXSEV         124.1/REF   1214.2/CW    1214.4/STW
   MAXSN             99/REF      512/LI
   MBS              108/REF      637/BAL
   MODE             102/REF      103/EQU      103/EQU      103/EQU      103/EQU      349/CW       351/STS
       405/CW       407/STS
   MODEDPL          290/LB       743-DO1      759/RES
   MODEEND          287/CI       314/AI       796-OPT
   MODEX4           103-EQU      516/LI       760/DATA
   MODE1            282/BGE      287-CI
   MODE2            301/BL       305-MTB
   MODE4            302-LI       306/BE
   NCHAR            100/REF      269/LW       523/LW       571/MTW      627/LW       655/CW       674/LW
       688/LW       714/MTW
   NEVER            465/CD       502-TEXTC
   NEXTARG          624/BE       646-AI
   NOFILES         1169/LB      1177/LI      1394-TEXTC
   NOPTS            745/DATA     813-EQU
   NUM              757/DO
   NXCMR12          876/BE       881-CI
   OPNNXT          1004/REF     1157/BAL     1423/BAL
   OPNSTD          1466/CAL1    1527-GEN
   OPT              751-CNAME
   OUT%ARG           97/REF      910/STW
   PFIL%STD        1465/CAL1    1540-GEN
   PRTERR           116/REF     1147/BAL     1452/BAL
   PRTNOF           997/REF     1164/BAL
   RANGEEND       526.5/BNE    526.7/BE    526.10-LW
   RANGEGO        526.3/BG     526.9/B     526.11-EQU
   RANGEOUT         118/REF     1381/BAL
   RCDSEL1          278/BE       520-LI
   RCDSEL3          524-BAL      544/B
   RCDSEL5          529/BDR      536-STW
   RDTBL            112/REF      598/DATA
   RDWRT            839/REF      946/BAL     1139/BAL     1456/BAL
   RDWRTX           115/REF      957/BAL
   RETRN            867/BGE      879/B        895/B        898/BG       915/BE       943/BAZ      956/BE
       959-BAL
   RETURN           208/B        263/BNE      692/B        725-LI
   RETURN2          731/BL       733/BG       735/BNE      738-LW
   REVARG           838/REF      912/BAL      937/BAL      940/BAL     1060/BAL     1095/BAL     1128/BAL
      1131/BAL     1419/BAL     1447/BAL     1453/BAL
   REVIEW          1005/REF     1047/BAL
   RTURN           1146/BG      1150/BNE     1162-BAL     1407/BE      1410/BG      1413/BL      1424/BCS
      1425/BE      1437/BL      1488/LI
   RTURN1          1156/BL      1171/BNE     1406-MTW
   RTURN2          1022/BGE     1068/B       1092/BG      1165-LCI     1180/B       1443/BG      1464/BAZ
   RWACCT           379/BL       562-LW
   RWACCT1          580-LW       595/B
   RWACCT2          569-LI       582/BE
   RWACCT3          584/BE       588-XW
   RWACCT4          587/B        589/BE       592-B
   RWACCT5          564/BNE      585-LI
   RWACCT6          572/BE       593-LI
   RWEND            378/CI       382/AI       805-OPT
   RW1              313/BGE      378-CI
   R0                15-EQU      603/STW      858/STW      916/STW     1013/STW     1014/STW     1094/STW
      1102/STW
   R1                16-EQU      132/STW      143/LI       150/LI       153/LW       154/STW      155/BDR
       158/LI       159/CW       161/STW      164/LI       165/LW       166/STW      167/BIR      174/LI
       177/STW      179/BDR      183/LI       185/LW       188/BDR      191/LI       206/LI       221/LI
       224/LI       226/EXU      238/LI       243/AND      246/LW       251/XW       252/LB       252/LB
       254/LW       261/LW       262/CI       266/LI       271/LI       275/LI       277/CI       280/SLS
       281/CI       283/XW       287/CI       289/AI       290/LB       294/STB      295/AI       302/LI
       307/LI       308/STW      312/CI       314/AI       315/LW       330/LB       336/LB       359/LI
       378/CI       380/CI       382/AI       385/STW      386/CI       390/AI       391/LW       392/SLS
       393/XW       394/CI       402/LW       410/LW       411/AI       422/LB       424/CI       426/LB
       429/BDR      430/LB       432/EXU      442/LW       443/CI       445/CI       447/LI       469/LB
       471/CI       473/LB       476/BDR      477/LB       479/EXU      485/LI       488/LI       511/LI
       516/LI       517/STB      522/LI       532/LI       539/LB       542/AI       546/LI       548/LI
       565/LW       569/LI       574/LW       578/AI       585/LI       593/LI       609/AI       612/LI
       617/STM      618/LW       619/CI       622/LW       623/CI       625/LI       627/LW       629/CI
       631/LI       633/LI       635/STW      657/LI       659/STW      664/MI       665/STW      669/LI
       675/MH       676/AWM      679/LI       684/LI       688/LW       690/LI       694/LI       696/LW
       697/CI       700/LW       701/CI       709/LI       716/LI       717/STW      725/LI       726/AND
       729/AI       730/CI       732/CI       736/LI       738/LW       864/LI       871/CI       877/LI
       890/LI       891/SLS      892/BIR      893/LI       905/LI       908/LI       910/STW      918/LI
       923/LW       924/LI       927/LI       935/LW       938/LI       953/LW      1015/LI      1016/STW
      1019/LI      1026/LW      1027/CI      1052/LI      1053/SCS     1054/AI      1056/LI      1066/LI
      1100/LI      1104/LB      1106/CI      1120/LW      1121/CW      1129/LI      1160/LI      1182/CI
      1184/LI      1185/CW      1191/LI      1193/STW     1194/BDR     1196/LI      1198/LI      1199/STB
      1205/LI      1208/STW     1209/LI      1210/STB     1211/LB      1212/SLS     1213/AH      1214/SLS
      1227/LI      1229/LB      1231/BIR     1239/LI      1240/STB     1243/LI      1244/CS      1246/LI
      1251/LI      1252/LB      1252/LB    1252.2/CI    1252.4/LI      1253/STW     1256/SW      1257/CW
      1265/LB      1266/STB     1268/LI      1271/STB     1274/LI      1275/AND     1280/LW      1281/AI
      1282/DW      1283/STW     1286/MI      1287/CW      1289/LW      1290/LW      1292/LI      1293/STB
      1314/LI      1408/LW      1409/CI      1411/LW      1412/CI      1429/LB      1430/CI      1432/LI
      1440/LI      1444/LI      1445/CS      1448/LI    1460.1/STW     1467/LI      1479/LI      1482/LW
      1483/STW     1484/BDR     1489/LI      1490/AW      1493/STW*    1495/STW     1503/LB      1510/STB
      1511/LI      1520/PZE*    1533/LB      1534/CI      1536/CI
   R10               25-EQU      168/BAL      189/BAL      192/BAL      240/BE*      250/BL*      255/B*
       260/BAL      279/BAL      547/BAL      621/LI       646/AI       647/CI       659/STW*     665/STW*
       676/AWM*     934/BDR     1104/LB      1134/LW      1143/LW      1202/AI      1211/LB      1213/AH
      1217/CI      1222/SLS     1223/SLS     1224/CI      1235/AI      1420/AI      1429/LB      1458/LW
      1533/LB
   R11               26-EQU      135/BAL      144/BAL      147/BAL      190/BAL      207/BAL      227/BAL
       253/BAL      265/LI       272/BAL      276/BAL      303/BAL      319/BAL      331/BAL      338/BAL
       347/LI       348/SLS      349/CW       351/STS      362/BAL      403/LI       404/SLS      405/CW
       407/STS      413/BAL      448/BAL      449/BAL      486/BAL      489/BAL      513/BAL      524/BAL
       533/BAL      570/BAL      579/BAL      586/BAL      591/BAL      594/BAL      626/BAL      632/BAL
       637/BAL      649/BAL      650/BAL      658/BAL      668/BAL      671/BAL      685/BAL      687/BAL
       691/BAL      695/BAL      699/BAL      703/BAL      713/BAL      737/BAL      741/B*       862/LW
       863/STW      865/BAL      878/BAL      884/BAL      894/BAL      903/BAL      912/BAL      920/LW
       921/STW      922/BAL      929/LW       930/STW      931/BAL      937/BAL      939/BAL      940/BAL
       941/LH       942/CI       946/BAL      947/BAL      957/BAL      959/BAL      962/B*      1020/BAL
      1025/BAL     1029/BAL     1047/BAL     1057/BAL     1060/BAL     1061/BAL     1067/BAL     1070/BAL
      1076/BAL     1083/BAL     1089/BAL     1095/BAL     1101/BAL     1111/BAL     1126/BAL     1128/BAL
      1130/BAL     1131/BAL     1139/BAL     1141/BAL     1142/BAL     1144/BAL     1147/BAL     1157/BAL
      1161/BAL     1164/BAL     1167/B*      1187/BAL     1189/LI      1190/PSW     1197/BAL     1215/BAL
      1229/LB      1230/STB     1247/LI      1248/AND     1249/CI      1254/LW      1255/MI      1256/SW
      1260/LI      1261/AW      1262/LW      1263/SLS     1264/AI      1266/STB*    1295/SW      1296/AW
      1297/MI      1298/SW      1315/BAL     1318/PLW     1319/B*      1381/BAL     1418/BAL     1419/BAL
      1422/BAL     1423/BAL     1427/BAL     1433/BAL     1434/BAL     1435/BAL     1441/BAL     1447/BAL
      1449/BAL     1452/BAL     1453/BAL     1456/BAL     1459/BAL     1462/LH      1463/CI      1469/LI
      1476/BAL     1477/BAL     1488/LI      1506/BAL     1512/BAL     1535/BE*     1537/BE*
   R12               27-EQU      211/CI       222/CI       352/CI       366/CI       727/CI       855/CI
       869/CI       885/STW      886/LW       889/LI       917/LI      1077/CI      1505/LI
   R13               28-EQU      866/CI       897/CI       932/CI       950/CI       952/LI      1021/CI
      1091/CI      1132/CI      1145/CI      1151/LI      1152/STW     1206/CI    1214.1/LI    1214.2/CW
    1214.4/STW     1317/LI      1442/CI      1450/CI
   R14               29-EQU     1177/LI      1195/LI      1295/SW      1296/AW      1324/PZE*    1380/LI
      1382/LW      1383/LI
   R15               30-EQU     1134/LW      1143/LW      1379/LI      1458/LW
   R2                17-EQU      151/LI       152/AW       154/STW*     166/STW*     175/LW       176/LW
       178/AI       184/LW       186/STW      187/AI       214/LW       217/LI       218/LW       218/LW
       219/AW       220/STW      242/LI       243/AND      244/CW       246/LW       247/STB      248/SLS
       249/CI       269/LW       290/LB       292/MTB      294/STB      322/LW       323/MTB      325/SLS
       327/CB       337/LI       356/LW       357/CI       391/LW       393/XW       421/LW       422/LB
       426/LB       430/LB       431/AND      433/OR       434/CLM      436/STH      439/LI       451/LW
       453/SLD      454/OR       455/STW      463/LW       465/CD       467/SLD      469/LB       473/LB
       477/LB       478/AND      480/OR       482/STW      492/SLS      493/SLS      512/LI       523/LW
       543/AI       549/LW       550/CI       552/SLS      553/AW       554/STW      555/STW      566/LW
       567/STW      575/LW       580/LW       581/CI       583/CI       604/LW       605/STW      606/STW
       607/LI       613/LI       634/LI       638/LW       641/BDR      653/LI       654/SW       655/CW
       661/LW       662/CI       670/LI       674/LW       675/MH       886/LW       891/SLS     1031/LW
      1032/CW      1034/CW      1036/LW      1037/CI      1039/CI      1043/CI      1045/CI      1048/LW
      1049/CI      1051/LW      1053/SCS     1073/LW      1169/LB      1176/AI      1192/LW      1193/STW
      1200/LW      1216/LW      1219/AI      1220/SCD     1232/LW      1257/CW      1261/AW      1273/AI
      1280/LW      1290/LW      1291/AI      1293/STB     1294/AI      1298/SW      1325/PZE*    1338/LI
      1339/CW      1343/AND     1351/CI      1354/CI      1359/CW      1368/LW      1369/CI      1375/LI
      1376/CH      1382/LW      1384/AI      1414/LI      1416/STS     1468/LI      1482/LW      1483/STW
      1485/LW      1486/XW      1487/STW     1491/LW      1493/STW     1495/STW     1496/LI      1499/INT
      1501/AND     1502/STW     1508/LW      1509/STH     1516/GEN
   R3                18-EQU      153/LW       154/STW      163/STW      165/LW       166/STW      176/LW
       177/STW      185/LW       186/STW      316/LW       317/CI       326/LI       327/CB       329/BDR
       344/CI       355/STW      369/STW      371/CI     371.2/AI     371.4/CI     371.6/LI       375/SLS
       426/LB       427/CLM      452/LI       458/OR       464/LW       473/LB       474/CLM      481/LW
       483/STW      517/STB    526.2/CI     526.8/LI    526.10/LW       527/CW       536/STW      555/STW
       562/LW       563/CI       608/LW     613.2/LW     613.4/LW       636/LI      1113/LW      1114/CI
      1116/LI      1117/AND     1119/LI      1123/LI      1124/CW      1172/LI      1175/LI      1241/LI
      1309/LI      1322/GEN     1342/LW      1345/BDR     1353/STW     1356/LI      1357/AND     1363/LW
      1364/SW      1367/STW     1371/LI      1372/CS      1386/LI      1415/LW      1471/LW      1472/SLS
      1492/LI      1493/STW     1494/BDR     1500/STW     1526/PZE*
   R4                19-EQU      136/LW       137/CI       139/CI       141/CI       364/AI       414/LW
       415/CI       456/LW       457/SLD      458/OR       459/STW      530/CI       537/CI       539/LB
       540/CI       868/LW       873/CI       875/CI      1178/LI      1221/LW      1226/LW      1242/LI
      1262/LW      1269/AI      1271/STB     1272/BDR     1308/LI      1326/PZE*    1341/LW      1346/BDR
      1350/BIR     1362/BDR     1385/LI
   R5                20-EQU      131/PSM      145/LW       156/CW       162/STW      169/LW       170/CI
       172/CI       193/LW       194/CI       196/CI       199/CI       202/CI       204/CI       258/PSM
       460/STW      520/LI     526.4/CI       527/CW       536/STW      554/STW      565/LW       567/STW
       576/CW       588/XW       639/LW       640/DW       642/STW      643/LW       644/CI       660/LW
       666/CI       680/CI       704/LW       705/CI       707/CI       712/LW       718/STW      720/LW
       740/PLM      851/PSM      923/LW       953/LW       961/PLM     1012/PSM     1030/LI      1059/LW
      1062/CI      1064/CI      1084/LW      1085/CI      1087/CI      1163/LI      1166/PLM     1229/LB
      1480/LW      1481/AI      1482/LW*
   R6                21-EQU      210/LW       213/AI       219/AW       225/CI       241/LW       244/CW
       247/STB      248/SLS      251/XW       254/LW       315/LW       320/CI       330/LB       336/LB
       341/CI       348/SLS      354/AI       355/STW      363/LI       368/AI       369/STW      402/LW
       404/SLS      408/CI       416/BDR      418/LI       434/CLM      436/STH      437/AI       438/EXU
       510/BDR      521/LI     526.6/CI       529/BDR      568/LI       573/AI       588/XW       852/LI
       881/CI       883/LI       945/BAL      958/BAL     1137/BAL     1138/LW      1140/STW     1162/BAL
      1200/LW      1228/AI      1230/STB     1232/LW      1265/LB      1266/STB     1267/BDR     1340/BAZ
      1355/BG      1358/BNE     1360/BCR     1370/BANZ    1373/BE      1377/BAZ     1389/B     1389.2/CI
    1389.3/BNE     1392/B       1454/BAL     1455/LW      1457/STW
   R7                22-EQU      131/PSM*     136/LW       145/LW       148/MTW      152/AW       156/CW
       159/CW       161/STW      162/STW      163/STW      169/LW       175/LW       184/LW       193/LW
       210/LW       214/LW       220/STW      239/MTW      241/LW       258/PSM*     261/LW       269/LW
       283/XW       292/MTB*     294/STB*     298/MTW      308/STW      316/LW       322/LW       349/CW
       351/STS      356/LW       383/MTW      385/STW      405/CW       407/STS      410/LW       414/LW
       420/AW       421/LW       442/LW       451/LW       455/STW      456/LW       459/STW      460/STW
       463/LW       464/LW       482/STW      483/STW      517/STB*     523/LW       539/LB*      549/LW
       553/AW       556/MTW      562/LW       566/LW       571/MTW      575/LW       580/LW       603/STW
       605/STW      606/STW      615/MTW      617/STM      618/LW       622/LW       627/LW       635/STW
       638/LW       642/STW      643/LW       654/SW       655/CW       659/STW      660/LW       661/LW
       665/STW      674/LW       676/AWM      682/MTW      688/LW       696/LW       700/LW       704/LW
       712/LW       714/MTW      717/STW      718/STW      720/LW       726/AND      734/MTW      740/PLM*
       851/PSM*     857/LW       858/STW      861/LW       862/LW       868/LW       885/STW      901/MTW
       904/MTW      909/MTW      910/STW      916/STW      919/STW      921/STW      925/MTW      928/LW
       929/LW       935/LW       944/MTW      955/MTW      961/PLM*    1012/PSM*    1013/STW     1017/MTW
      1026/LW      1031/LW      1036/LW      1048/LW      1051/LW      1059/LW      1071/MTW     1073/LW
      1082/MTW     1084/LW      1094/STW     1097/MTW     1102/STW     1108/MTW     1138/LW      1140/STW
      1153/MTW     1166/PLM*    1190/PSW*    1233/MTW     1313/STW     1318/PLW*    1339/CW      1343/AND
      1347/MTW     1353/STW     1357/AND     1365/MTW     1367/STW     1406/MTW     1408/LW      1455/LW
      1457/STW   1460.1/STW     1478/MTW     1480/LW      1485/LW      1490/AW      1500/STW     1502/STW
      1507/LW      1508/LW
   R8                23-EQU      132/STW      133/CI       180/LI       198/LI       201/LI       215/AI
       259/LI       419/LI       420/AW       436/STH*     721/CI       738/LW       853/LI       857/LW
       899/CI      1498/LW      1499/INT     1503/LB      1507/LW      1509/STH     1510/STB
   R9                24-EQU      854/LI       861/LW       914/CI       919/STW      928/LW      1096/LI
      1170/CI      1201/AI      1204/AI      1237/CI      1311/CW      1313/STW
   S:NUMC           755/GEN
   S:UT             754/SET
   SCANEND          870/BNE      873-CI
   SCAN1            855-CI       892/BIR
   SCAN2            856/BE       861-LW
   SCAN3            859/B        864-LI
   SCAN4            865-BAL      872/BNE
   SELECT           102/REF      549/LW       554/STW      555/STW      556/MTW
   SEQEND           380/CI       390/AI       809-OPT
   SEQUENCE         102/REF      383/MTW      385/STW      603/STW      615/MTW      617/STM      621/LI
       622/LW       635/STW      638/LW       642/STW      647/CI       654/SW       661/LW       682/MTW
   SFARG            111/REF      153/LW       165/LW      1483/STW     1486/XW      1487/STW
   SHIFT            432/EXU      479/EXU      492-SLS
   SPECARG          171/BE       195/BE       265-LI       706/BE
   SPECL2           388/B        603-STW
   SPEC1            381/BGE      390-AI
   SPEC2            391/LW       398-EQU
   SPFFPT          1475/CAL1    1530-GEN
   SRDFPT          1470/CAL1    1497/CAL1    1516-GEN
   STDBUF           846/REF     1489/LI      1515/GEN
   STDERR          1133/BG      1160-LI      1186/BAZ     1451/BG      1518/DATA    1524/DATA    1524/DATA
      1529/DATA    1529/DATA    1538/B
   SWRFPT          1473/CAL1    1522-GEN
   SYNERROR        1421/BNE     1427-BAL
   SYNFLAG         1006/REF     1102/STW     1108/MTW     1406/MTW
   SYN3            1428/B       1436-MTW
   SYN4            1422-BAL     1431/BNE     1438/B
   TABSET           109/REF      298/MTW      308/STW
   TERM             100/REF      136/LW       159/CW       161/STW      169/LW       193/LW       261/LW
       316/LW       356/LW       410/LW       414/LW       442/LW       562/LW       580/LW       618/LW
       643/LW       660/LW       696/LW       700/LW       704/LW       717/STW      720/LW       862/LW
       868/LW       921/STW      929/LW      1026/LW      1036/LW      1048/LW      1059/LW      1073/LW
      1084/LW      1502/STW     1508/LW
   TESTARG          192/BAL      241-LW       279/BAL      547/BAL
   TESTDEV          226/EXU      228-EQU
   TESTE            245/BANZ     251-XW
   TESTEND          173/BNE      199-CI
   TESTFNC         1003/REF     1111/BAL     1187/BAL     1427/BAL
   TEST0            168/BAL      189/BAL      210-LW       260/BAL
   TEST2            229/BLE      230/B        231/BG       238-LI
   TEXTARG          112/REF      579/BAL
   TEXTIN          1221/LW      1321-TEXT
   TEXTOUT         1226/LW      1320-TEXT
   TIMECAL         1378/CAL1    1398-GEN
   TLABEL          1001/REF     1120/LW      1193/STW     1195/LI      1199/STB     1210/STB     1230/STB
      1240/STB     1253/STW     1264/AI      1265/LB      1271/STB     1278/LC      1284/LC      1287/CW
      1289/LW      1293/STB     1300/LC      1304/LC      1379/LI      1383/LI      1398/GEN     1404/GEN
      1467/LI      1525/DATA
   TOARG            847/REF     1138/LW      1140/STW     1343/AND     1357/AND     1408/LW      1455/LW
      1457/STW
   TOCMR12         1063/BE      1076-BAL
   TOFILE          1002/REF     1041/MTW     1155/MTW     1416/STS     1436/MTW
   TOSWT            841/REF      858/STW      901/MTW      935/LW       944/MTW      955/MTW     1013/STW
   TOVER            842/REF      885/STW
   TO00            1104-LB      1159/BNE     1513/B
   TO01            1105/BE      1111-BAL
   TO010           1115/BE      1125/BE      1128-BAL
   TO012           1112/B       1126-BAL
   TO1              874/BE       897-CI
   TO11             900/BNE      912-BAL
   TRANSACT         837/REF      884/BAL     1076/BAL
   TXC              754-SET      755/GEN      755/GEN      755/GEN      758-SET      759/RES      761/ORG
   TXOPT            295/AI       790-OPT
   UNPRINT          998/REF     1197/BAL
   UNTBL            124/REF      601/DATA
   VOLARG           416/BDR      509-BNE
   WRTBL            112/REF      599/DATA
   WRTCOPY          964-GEN     1349/CAL1
   %                138/BE       140/BE       155/BDR      167/BIR      179/BDR      188/BDR      212/BE
       216/BGE      223/BNE      228/EQU      233/EQU      265/LI       329/BDR      353/BNE      367/BE
     371.7/EQU      398/EQU      466/BNE   526.11/EQU      577/BNE      597/EQU      641/BDR      656/BGE
       683/BNE      728/BE       753/EQU      758/SET      759/RES      813/EQU      887/BNE      907/BCS
      1079/BE      1118/BNE     1122/BNE     1174/BL      1194/BDR   1214.3/BLE     1218/BANZ    1225/BNE
      1231/BIR   1252.3/BNE     1258/BGE     1267/BDR     1270/BE      1272/BDR     1276/BNE     1288/BLE
      1303/BCR     1305/BCS     1328/EQU     1348/BNE     1350/BIR     1352/BE      1366/BLE     1460/B
      1484/BDR     1494/BDR
