BANNER TELEFILE,TELE-PCL,PCLLS.
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               LL                SSSSSSSSSSS
                  PPPPPPPPPPPPP    CCCCCCCCCCCCC    LL               LL               SSSSSSSSSSSSS
                  PP         PP    CC         CC    LL               LL               SS         SS
                  PP         PP    CC               LL               LL               SS
                  PP         PP    CC               LL               LL               SS
                  PPPPPPPPPPPPP    CC               LL               LL               SSSSSSSSSSSS
                  PPPPPPPPPPPP     CC               LL               LL                SSSSSSSSSSSS
                  PP               CC               LL               LL                          SS
                  PP               CC               LL               LL                          SS
                  PP               CC         CC    LL         LL    LL         LL    SS         SS
                  PP               CCCCCCCCCCCCC    LLLLLLLLLLLLL    LLLLLLLLLLLLL    SSSSSSSSSSSSS
                  PP                CCCCCCCCCCC     LLLLLLLLLLLLL    LLLLLLLLLLLLL     SSSSSSSSSSS
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               LL                SSSSSSSSSSS
                  PPPPPPPPPPPPP    CCCCCCCCCCCCC    LL               LL               SSSSSSSSSSSSS
                  PP         PP    CC         CC    LL               LL               SS         SS
                  PP         PP    CC               LL               LL               SS
                  PP         PP    CC               LL               LL               SS
                  PPPPPPPPPPPPP    CC               LL               LL               SSSSSSSSSSSS
                  PPPPPPPPPPPP     CC               LL               LL                SSSSSSSSSSSS
                  PP               CC               LL               LL                          SS
                  PP               CC               LL               LL                          SS
                  PP               CC         CC    LL         LL    LL         LL    SS         SS
                  PP               CCCCCCCCCCCCC    LLLLLLLLLLLLL    LLLLLLLLLLLLL    SSSSSSSSSSSSS
                  PP                CCCCCCCCCCC     LLLLLLLLLLLLL    LLLLLLLLLLLLL     SSSSSSSSSSS
D
ASSIGN M:CI,(FILE,CI:PCLLS,PCLH00CI),(IN),(SAVE)
ASSIGN M:SI,(FILE,SI:PCLLS,PCLH00SI),(IN),(SAVE)
ASSIGN M:BO,(FILE,BO:PCLLS,PCLH00BO),(OUT),(SAVE)
ASSIGN M:LL,(DEVICE,LO),(OUT)
1* AP * 22:29 JUN 16,'85                                                                          PAGE    1
A      1                      .000  +0                                  Pre-release H02
       2                      .010  H02   SET         1                 DIFFERENTIATE BETWEEN H01/H02
       3                    77.000  +77                                 PCL SIDR      32616,32745
       4                    77.010           REF      MAXSEV,TADATA
       5                   286.000  +286                                PCL SIDR      32745
       6                   286.001  +*286                               Tele-PCL SIDR 4.32
       7                   286.002        DO          H02
       8                   286.004        ELSE
       9                   286.010           STW,R9   TADATA
      10                   287.010        FIN
      11                   289.000  +289,291                            Tele-PCL SIDR 4.32
      12                   289.010        DO          H02
      13                   289.020        ELSE
      14                   289.030           LI,R9    4
      15                   289.040           AND,R9   R8
      16                   289.050           BNE      %+2
      17                   289.060        FIN
      18                   318.000  +318,318                            PCL SIDR      32745
      19                   318.001  +*318,318                           Tele-PCL SIDR 4.32
      20                   318.002        DO          H02
      21                   318.004           BAZ      REVDEL
      22                   318.006        ELSE
      23                   318.010           BANZ     KGCXX4
      24                   318.020           LW,R6    TADATA
      25                   318.030           CI,R6    X'100'
      26                   318.040           BAZ      REVDEL
      27                   318.050  KGCXX4   EQU,0    %
      28                   318.060        FIN
      29                   347.000  +347,349                            PCL SIDR      31537
      30                   347.010           LW,1     =X'00200002'      IF NOT FILE (OR PASSWORDED)
      31                   347.020           CS,1     M:EI              DO PEOF IN CASE MULTIREEL FILE
      32                   347.030           BNE      %+2               ON TAPE
      33                  1059.000  +1059,1059                          Tele-PCL SIDR 4.43
      34                  1059.010        DO          H02
      35                  1059.020           TEXTC    '  UNDER='
      36                  1059.030        ELSE
      37                  1059.040           TEXTC    '  VEHICLE='
      38                  1059.050        FIN
      39                  1121.000  +1121,1121                          Tele-PCL SIDR 4.42
      40                  1121.002        DO          H02
      41                  1121.010           LB,R1    0,R1
      42                  1121.020           BNE      %+2
      43                  1121.030           LI,R1    79
      44                  1121.040           CW,R14   R1
      45                  1121.050        ELSE
      46                  1121.060           CB,R14   0,R1
      47                  1121.070        FIN
      48                  1125.000  +1124                               PCL SIDR      32061
      49                  1125.010  WACCKGC  EQU,0    %
      50                  1131.000  +1131,1134                          PCL SIDR      32061
      51                  1131.010  WACC50   LB,R1    R5
      52                  1131.020           AW,R1    R2
      53                  1131.030           LW,R2    R14
      54                  1131.040           SW,R2    R1
      55                  1131.050           BLE      WACCKGC
      56                  1363.000  +1363                               PCL SIDR      32816
      57                  1363.010           LW,R5    MAXSEV
      58                  1378.000  +1378,1378                          PCL SIDR      32816
      59                  1378.010  REW9     STW,R5   MAXSEV
      60                  1378.020           MTW,-1   ERRFLAG
      61                  1384.000  +1384,1384                          PCL SIDR      32616
      62                  1384.010           BE       REW4KGC           FIX BAD STEP CODE ON
      63                  1397.000  +1397                               PCL SIDR      32616
      64                  1397.010           B        REW4
      65                  1397.020  REW4KGC  STW,R10  MAXSEV            REM AT#... IN BATCH
      66                  1500.000  +1500,1500                          Pre-release H01
      67                  1589.000  +1589,1589                          Pre-release H01
      68                  1686.000  +1686,1686                          Pre-release H01
      69                  1894.000  +1894,1894                          Pre-release H01
      70                  9000.000  +END                                Pre-release H01
1* AP * 22:29 JUN 16,'85    PCLLS - PCL LIST                                                      PAGE    2
A       1*        00000001           H02   SET         1                 DIFFERENTIATE BETWEEN H01/H02
1* AP * 22:29 JUN 16,'85    PCLLS - PCL LIST                                                      PAGE    3
A       1                                     TITLE    'PCLLS - PCL LIST'
        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*      PCLLIST LIST COMMAND PROCESSOR
       15   04 00000                 LIST     DSECT    1
       16   05 00000                 PLSECT   CSECT    1
       17                                     SYSTEM   SIG7
       18         00000000           R0       EQU      0
       19         00000001           R1       EQU      1
       20         00000002           R2       EQU      2
       21         00000003           R3       EQU      3
       22         00000004           R4       EQU      4
       23         00000005           R5       EQU      5
       24         00000006           R6       EQU      6
       25         00000007           R7       EQU      7
       26         00000008           R8       EQU      8
       27         00000009           R9       EQU      9
       28         0000000A           R10      EQU      10
       29         0000000B           R11      EQU      11
       30         0000000C           R12      EQU      12
       31         0000000D           R13      EQU      13
       32         0000000E           R14      EQU      14
       33         0000000F           R15      EQU      15
       34                            * DISPLACEMENTS OF ATTRIBUTES IN PRINT BUFFER
       35         00000002           ORG      EQU      2                 BYTE DISP
       36         00000001           GRAN     EQU      1                 WORD DISP
       37         00000003           REC      EQU      3
       38         00000007           DATE     EQU      7
       39         0000000A           NAME     EQU      10
1* AP * 22:29 JUN 16,'85    PCLLS - PCL LIST                                                      PAGE    4
A      40                                     PAGE
       41                            *P*      NAME:    PCLLIST
       42                            *P*
       43                            *P*      PURPOSE: TO SCAN THE LIST COMMAND FOR CORRECT SYNTAX AND TO
       44                            *P*               LIST THE NAMES OF FILES ON RAD, DISK PACK, OR TAPE AS
       45                            *P*               SPECIFIED BY THE COMMAND.  IF ATTRIBUTES ARE
       46                            *P*               REQUESTED FOR SINGLE FILES OR A FILE DIRECTORY
       47                            *P*               THE ORGANIZATION, RECORD COUNT, SIZE IN GRANULES, AND
       48                            *P*               MODIFICATION DATE FOR EACH FILE ARE LISTED.  DATE
       49                            *P*               ATTRIBUTES ARE ALSO LISTED IF THE EA OPTION IS USED.
       50                            *P*               THIS ROUTINE IS ALSO ENTERED TO PROCESS A REVIEW COMMAND.
       51                            *P*               A TAPE MAY BE IDENTIFIED BY THE 'LIST FT#SN' COMMAND.
       52                                     SPACE    5





       53                            *SUBS
       54                                     REF      CLRARG            INIT ARGTBL
       55                                     REF      GETARG            NEXT FIELD
       56                                     REF      DEVTRAN           DEVICE TYPE
       57                                     REF      BLDCB             OPEN DCB
       58                                     REF      CLOSEI            CLOSE DCB
       59                                     REF      ERROR             REMEMBER ERROR
       60                                     REF      BCD2BIN           XLATE TEXT
       61                                     REF      UNPRINT           NAME PRINTEER
       62                                     REF      SIXBACK           XLATE ANS SN
       63                            *DATA
       64                                     REF      DEVICE            ARGTBL PIECE
       65                                     REF      SFARG             USED TO SAVE DATES
       66                                     REF      TERM              OUT FROM GETARG
       67                                     REF      NCHAR             OUTPUT FROM GETARG
       68                                     REF      ARGBUF4           OUTPUT FROM GETARG
       69                                     REF      EATTRB            EA FLAG
       70                                     REF      WRTFPT            SCRATCH SPACE
       71                                     REF      CMBX              COMMAND POINTER
       72                                     REF      OPNXFPT           SPACE FOR OPNNXT
       73                                     REF      1BUF              BUFFER FOR X TO ABORT, ETC.
       74                                     REF      IN%ARG            INPUT RESOURCE TYOE
       75                                     REF      MAXCMBX           END OF SCANNER INPUT
       76                                     REF      INSER             M:EI LAST SN
       77                                     REF      OUTSER            M:EO LAST SN
        1*                                    REF      MAXSEV,TADATA
       78                            *DCBS
       79                                     REF      M:UC,M:EI,M:LO
       80                            *
       81                                     REF      J:JIT
       82                                     REF      FILTRAN
       83                                     REF      HEX2BCD           MAKE TEXT OF BITS
       84                                     REF      JB:PCW            PLATEN WIDTH
       85                                     REF      M:EISN
       86                                     REF      PRTERR            PRINT ERRORS BEFORE TOF
       87                                     REF      ALLC              TYPE NAME/ERROR FOR DELETEALL
       88                                     REF      M:EO
       89                                     REF      BREAK
       90                                     REF      TOSWT
       91                                     REF      PRTNOF
       92                                     REF      PRTBUF            OUTPUT BUFFER
       93                                     REF      ARGBUFF,MODE,BIN2BCD
       94                                     REF      ATTRB
       95                                     REF      EXTBL,RDTBL,WRTBL,UNTBL
       96                                     REF      FILE
       97                                     REF      OPNFPT
       98                                     REF      IOBUF
       99                                     REF      SYNFLAG
      100                                     REF      ERRFLAG
      101                                     REF      LTSTCMBX
      102                                     REF      COPYSK,FROMFILE,TOFILE,DELETEF
      103                                     REF      REVIEW
      104                                     REF      TLABEL
      105                                     REF      GRANCNT
      106                                     REF      TLBLSIZE
      107                                     REF      COPYPHY
      108                                     REF      LISTCMBX,LISTTERM
      109                                     REF      RSSAVE
      110                                     REF      BOG
      111                            *
      112                                     DEF      TESTFNC
      113                                     DEF      RANGEOUT          FOR COPYALL/STD AND TO LP
      114                                     DEF      REVRP             ONE BYTE READ CAL(FOR BREAK INPCL)
      115                                     DEF      READONE           ONE BYTE READ SUBROUTINE
      116                            *
      117         00000004 S         DATETBL  EQU      TLABEL+4
      118         00000008 S         SEVMAX   EQU      SFARG+8
1* AP * 22:29 JUN 16,'85    PCLLS - PCL LIST                                                      PAGE    5
A     119                                     PAGE
      120   05 00000                          USECT    LIST
      121   04 00000    02200070 A            LCI      7
      122   04 00001    8B500007 A            PSM,R5   *R7
      123   04 00002    04800008 05           CAL1,8   TIMECAL
      124   04 00003    22900000 A            LI,R9    0                 INITIALIZE FILE COUNT
      125   04 00004    350E0000 X            STW,R0   ATTRB,R7          ZERO ATTRIBUTE FLAG
      126   04 00005    35000000 X            STW,R0   EATTRB            ZERO EXT ATTRIBUTE FLAG
      127   04 00006    35000008 X            STW,R0   SEVMAX            MAX SEVERITY
      128   04 00007    350E0000 X            STW,R0   PRTBUF,R7
      129   04 00008    35000000 X            STW,R0   GRANCNT           INITIALIZE GRANULE COUNT
      130   04 00009    22200003 A            LI,R2    3
      131   04 0000A    352E0000 X            STW,R2   WRTFPT,R7
      132   04 0000B    6AB00000 X   LIST24   BAL,R11  CLRARG            CLEAR ARGTBL
      133   04 0000C    322E0000 X   LIST25   LW,R2    TERM,R7
      134   04 0000D    21200015 A            CI,R2    X'15'             'LIST' ONLY
      135   04 0000E    68300028              BE       LIST44
      136   04 0000F    2120004D A            CI,R2    '('               '(A)' POSSIBLE
      137   04 00010    68300143              BE       LIST8             YES
      138   04 00011    6AB00000 X            BAL,R11  DEVTRAN           GO TRANSLATE DEVICE
      139   04 00012    322E0000 X            LW,R2    DEVICE,R7         VALID DEVICE
      140   04 00013    21200003 A            CI,R2    3                 RAD
      141   04 00014    68300021              BE       LIST2             YES
      142   04 00015    21200005 A            CI,R2    5
      143   04 00016    68300025              BE       LIST4             DP
      144   04 00017    22100022 A            LI,R1    34                INVALID DEVICE TYPE
      145   04 00018    33000000 X            MTW,0    DELETEF           IF REVIEW, TAPE ISN'T OK
      146   04 00019    69300024              BNE      LIST3
      147   04 0001A    21200004 A            CI,R2    4                 LT
      148   04 0001B    68300025              BE       LIST4
      149   04 0001C    21200006 A            CI,R2    6
      150   04 0001D    68300028              BE       LIST44            FT
      151   04 0001E    21200007 A            CI,R2    7
      152   04 0001F    68300025              BE       LIST4
      153   04 00020    68000024              B        LIST3
      154   04 00021    321E0001 X   LIST2    LW,R1    DEVICE+1,R7       TAPE REEL NO. SPECIFIED
      155   04 00022    68300025              BE       LIST4             NO-O.K.
      156   04 00023    22100016 A            LI,R1    22                ERROR-REEL NO. SPECIFIED FOR RAD
      157   04 00024    6AB00000 X   LIST3    BAL,R11  ERROR
      158   04 00025    325E0000 X   LIST4    LW,R5    TERM,R7
      159   04 00026    21500061 A            CI,R5    '/'               DOES 'N.A.P' FOLLOW
      160   04 00027    68300189              BE       LIST9             YES
      161   04 00028    325E0000 X   LIST44   LW,R5    TERM,R7
      162   04 00029    2150004D A            CI,R5    '('               DOES 7T,9T, OR 'A' FOLLOW
      163   04 0002A    68300143              BE       LIST8             YES
      164   04 0002B    35500000 X            STW,R5   LISTTERM          SET TERMINATOR
      165   04 0002C    21500015 A            CI,R5    X'15'             PROPER TERMINATION
      166   04 0002D    68300038              BE       LIST5             YES
      167   04 0002E    2150005E A            CI,R5    ';'
      168   04 0002F    68300038              BE       LIST5             NEW DEVICE NEXT
      169   04 00030    2150006B A            CI,R5    ','               MORE TO COME
      170   04 00031    69300036              BNE      LIST18            NO, SYNTAX ERROR
      171   04 00032    330E0000 X            MTW,0    ATTRB,R7          COMMA OK IF FILE NAMES
      172   04 00033    69200038              BG       LIST5
      173   04 00034    33000000 X            MTW,0    FROMFILE          OR RANGE
      174   04 00035    69300189              BNE      LIST9
      175   04 00036    22100011 A   LIST18   LI,R1    17                EH
      176   04 00037    6AB00000 X   LIST6    BAL,R11  ERROR
      177   04 00038    321E0000 X   LIST5    LW,R1    CMBX,R7           SAVE POSITION IN LINE
      178   04 00039    35100000 X            STW,R1   LISTCMBX
      179   04 0003A    21D00001 A            CI,R13   1                 CAN EXECUTE
      180   04 0003B    69200287              BG       LISTEND           NO
      181   04 0003C    22100006 A            LI,R1    6
      182   04 0003D    311E0000 X            CW,R1    DEVICE,R7         CHECK FOR PCL DEVICE.
      183   04 0003E    6830043E              BE       LISTFT            YES.
1* AP * 22:29 JUN 16,'85    PCLLS - PCL LIST                                                      PAGE    6
A     184                                     PAGE
      185   04 0003F    22100004 A   LIST20   LI,R1    4                 OPEN NEXT, INPUT
      186   04 00040    32100049 0C           LW,R1    =X'80004'         TESTFILE, OPEN NEXT, INPUT
      187   04 00041    325E0000 X            LW,R5    ATTRB,R7          ATTRIBUTES WANTED
      188   04 00042    68300047              BE       LIST21            NO
      189   04 00043    22100002 A            LI,R1    2                 FPARAM, INPUT
      190   04 00044    21500001 A            CI,R5    1                 'N.A.P' SPECIFIED
      191   04 00045    68300047              BE       LIST21            YES
      192   04 00046    22100006 A            LI,R1    6                 OPEN NEXT, FPARAM, INPUT
      193   04 00047    04100004 05  LIST21   CAL1,1   FPTSET3           SET ERR/ABN FOR M:LO
      194   04 00048    6AB00000 X            BAL,R11  BLDCB             GO-BUILD INPUT DCB
      195   04 00049    22200002 A            LI,R2    2
      196   04 0004A    7120000A A            CB,R2    R10               ANY FILES PRESENT
      197   04 0004B    683000E0              BE       LIST32            MAYBE, TRY ONE MORE TIME
      198   04 0004C    7300000A A            MTB,0    R10               ERR OR ABN IN BLDCB
      199   04 0004D    69300274              BNE      ERRADD            YES
      200   04 0004E    21D00000 A            CI,R13   0
      201   04 0004F    6930027E              BNE      SOMERR
      202                            *
      203   04 00050                          USECT    PLSECT
      204   05 00000    06000000 X   FPTSET2  GEN,8,7,17 X'06',0,M:EI
      205   05 00001    C0000000 A            DATA     X'C0000000'
      206   05 00002    00000274 04           DATA     ERRADD
      207   05 00003    00000274 04           DATA     ERRADD
      208   05 00004    06000000 N   FPTSET3  GEN,8,24 6,M:LO
      209   05 00005    C0000000 A            DATA     X'C0000000'
      210   05 00006    000002C5 04           DATA     ERRADD2
      211   05 00007    000002C5 04           DATA     ERRADD2
      212   05 00008    10000004 N   TIMECAL  GEN,8,24 X'10',DATETBL
      213                            *
      214   05 00009                          USECT    LIST
      215   04 00050    22E00000 N   LIST1    LI,R14   PRTBUF
      216   04 00051    04100000 05           CAL1,1   FPTSET2           SET ERRADD
      217   04 00052    6AB0010D              BAL,R11  TESTFNC           TEST IF FILE WANTED
      218   04 00053    680000CD              B        LIST33            NO
      219   04 00054    30E00007 A            AW,R14   R7                BUFFER ADDRESS
      220   04 00055    22600000 N            LI,R6    M:LO
      221   04 00056    22100017 N            LI,R1    M:EI+23
      222   04 00057    323E0000 X            LW,R3    ATTRB,R7
      223   04 00058    49300000 X            OR,R3    DELETEF           IF SIMPLE LIST,
      224   04 00059    6930005C              BNE      LIST19            DO IT HORIZONTALLY
      225   04 0005A    20900000 A            AI,R9    0                 IF FIRST FILE, CLEAR BUFFER
      226   04 0005B    69300066              BNE      LIST191
      227   04 0005C    2230003F A   LIST19   LI,R3    63
      228   04 0005D    3220004A 0C           LW,R2    ='    '
      229   04 0005E    B526000E A            STW,R2   *R14,R3
      230   04 0005F    6430005E              BDR,R3   %-1
      231   04 00060    B520000E A            STW,R2   *R14
      232   04 00061    322E0000 X            LW,R2    ATTRB,R7
      233   04 00062    6930019E              BNE      LISTATB           LIST A,EA
      234   04 00063    33000000 X            MTW,0    DELETEF
      235   04 00064    69300088              BNE      LIST17            REVIEW
      236   04 00065    F530000E A            STB,R3   *R14              CLEAR BYTE COUNT
      237   04 00066    F230000E A   LIST191  LB,R3    *R14              WHERE TO PUT THIS ONE
      238   04 00067    69300069              BNE      %+2
      239   04 00068    223FFFFF A            LI,R3    -1                0 IS REALLY -1
      240   04 00069    2530047E A            SAS,R3   -2                GET WORD OF LAST USED BYTE
      241   04 0006A    303E0000 X            AW,R3    WRTFPT,R7
      242   04 0006B    363E0000 X            DW,R3    WRTFPT,R7
      243   04 0006C    373E0000 X            MW,R3    WRTFPT,R7
      244   04 0006D    30E00003 A            AW,R14   R3
      245   04 0006E    6AB00000 X            BAL,R11  UNPRINT
      246   04 0006F    38E00003 A            SW,R14   R3
      247   04 00070    46E00001 A            XW,R14   R1                PUT BUFF ADR IN 1
      248   04 00071    25300002 A            SLS,R3   2                 COMPUTE BYTES ACTUALLY USED
      249   04 00072    30300002 A            AW,R3    R2                IN R3
      250   04 00073    22500000 N            LI,R5    BA(JB:PCW)        GET PLATEN WIDTH
      251   04 00074    725A0000 A            LB,R5    0,R5
      252   04 00075    22B00003 A            LI,R11   3                 ARE WE GOING TO A ME
      253   04 00076    45B00000 X            CS,R11   M:LO
      254   04 00077    6930007B              BNE      KGC0%4            NO, NOT EVEN A DEVICE
      255   04 00078    32B00001 X            LW,R11   M:LO+1
      256   04 00079    21B06F00 A            CI,R11   X'6F00'
      257   04 0007A    6840007C              BAZ      %+2               YES, USE PCW
      258   04 0007B    2250006C A   KGC0%4   LI,R5    108               NO, ASSUME PRINTER
      259   04 0007C    31300005 A            CW,R3    R5                ARE WE OVER THE LIMIT NOW
      260   04 0007D    6820007F              BLE      %+2               NO
      261   04 0007E    F2200001 A            LB,R2    *R1               ANYTHING TO PUT OUT
      262   04 0007F    F5300001 A            STB,R3   *R1               SET NEW SIZE
      263   04 00080    682000C8              BLE      LIST30            NOT YET
      264   04 00081    22300001 A            LI,R3    1
      265   04 00082    04100009 05           CAL1,1   FPTLFILE
      266   04 00083    4610000E A            XW,R1    R14
      267   04 00084    33000000 X            MTW,0    BREAK             IF BREAK HIT, FORGET THIS ONE
      268   04 00085    6830005C              BE       LIST19
      269   04 00086    35100000 X            STW,R1   DELETEF           ENTIRELY (SEE LISTEND)
      270   04 00087    680000CD              B        LIST33
      271   04 00088    6AB00000 X   LIST17   BAL,R11  UNPRINT           ENTER FILE NAME IN BUFFER
      272   04 00089    3210000E A            LW,R1    R14
      273   04 0008A    330E0002 A            MTW,0    2,R7              IS HEADER PRINTED
      274   04 0008B    6930008E              BNE      %+3               YES
      275   04 0008C    331E0002 A            MTW,1    2,R7              SET HEADER FLAG
      276   04 0008D    041000F4              CAL1,1   REVFPT            PRINT HEADING
      277   04 0008E    6AB001D2              BAL,R11  ABN14T            TEST FOR ACCESSABILITY
      278   04 0008F    6AB001B9     REVRET1  BAL,R11  LFILE
      279   04 00090    7230000A A   REVRET2  LB,R3    R10               DID WE GET ERROR
      280   04 00091    213000F7 A            CI,R3    X'F7'             BESIDES 08 (SYNON)
      281   04 00092    694000C6              BANZ     LIST26            YES, NO REQUEST
      282   04 00093    22B000AD              LI,R11   LIST22            SET RETURN
      283   04 00094    02200040 A   READONE  LCI      4                 SAVE A FEW REGS
      284   04 00095    8B800007 A            PSM,R8   *R7
      285   04 00096    0480000E 05           CAL1,8   TSFPT             READ DIFFERENTLY IF HALF DUPLEX
      286   04 00097    25800003 A            SLS,8    3                 OR 2741..MODE2/X10, MODE6/X80
        1*        00000001                 DO          H02
        2*                                 ELSE
        3*                       *S*          STW,R9   TADATA
        4*                                 FIN
      287   04 00098    4980000B A            OR,R8    R11               PUT BOTH BITS TOGETHER
      288   04 00099    2580006B A            SLS,8    -21               AND AT 4
        1*        00000001                 DO          H02
        2*                                 ELSE
        3*                       *S*          LI,R9    4
        4*                       *S*          AND,R9   R8
        5*                       *S*          BNE      %+2
        6*                                 FIN
      292   04 0009A    22900001 A            LI,R9    1                 READ ONE BYTE ON TTYS
      293   04 0009B    35000000 X   REREAD1  STW,R0   1BUF              CLEAR BUFFER
      294   04 0009C    041000EA     REVRP    CAL1,1   READFPT           READ REPLY
      295   04 0009D    6580009F              BIR,R8   %+2               GET REPLY FIRST TIME ONLY
      296   04 0009E    72100000 X            LB,R1    1BUF
      297   04 0009F    32B00000 X            LW,R11   1BUF
      298   04 000A0    228FFF9C A            LI,R8    -100
      299   04 000A1    21B000FF A            CI,R11   X'FF'
      300   04 000A2    6940009B              BANZ     REREAD1           KEEP TRYING
      301   04 000A3    0480000E 05           CAL1,8   TSFPT             CHECK PLATEN POSITION
      302   04 000A4    35900000 X            STW,R9   1BUF              SAVE OUTPUT COUNT
      303   04 000A5    25900067 A            SLS,R9   -25
      304   04 000A6    75900000 X            STB,R9   DELETEF
      305   04 000A7    02200040 A            LCI      4
      306   04 000A8    8A800007 A            PLM,R8   *R7
      307   04 000A9    E800000B A            B        *R11
      308   04 000AA    73000000 X   LIST27   MTB,0    DELETEF           DO WE NEED CR
      309   04 000AB    683000C8              BE       LIST30            NO
      310   04 000AC    680000C6              B        LIST26
      311   04 000AD    211000C5 A   LIST22   CI,R1    'E'               IF E, TERMINATE, REVIEW
      312   04 000AE    693000B0              BNE      %+2
      313   04 000AF    33100000 X            MTW,1    BREAK
      314   04 000B0    211000C4 A            CI,R1    'D'               IS DELETE WANTED
      315   04 000B1    693000AA              BNE      LIST27            NO
      316   04 000B2    52600000 X            LH,R6    1BUF              CHECK OUTPUT COUNT
      317   04 000B3    216000FC A            CI,R6    X'FC'
        1*        00000001                 DO          H02
        2*  04 000B4    684000BD              BAZ      REVDEL
        3*                                 ELSE
        4*                       *S*          BANZ     KGCXX4
        5*                       *S*          LW,R6    TADATA
        6*                       *S*          CI,R6    X'100'
        7*                       *S*          BAZ      REVDEL
        8*                       *S* KGCXX4   EQU,0    %
        9*                                 FIN
      319   04 000B5    041000B7              CAL1,1   WRTQUST
      320   04 000B6    68000050              B        LIST1             TRY AGAIN
      321   04 000B7    11000000 N   WRTQUST  GEN,8,24 17,M:UC
      322   04 000B8    34000010 A            DATA     X'34000010',QUST,3,0
            04 000B9    000000BC
            04 000BA    00000003 A
            04 000BB    00000000 A
      323   04 000BC    6F6F4040 A   QUST     TEXT     '??  '
      324                            *
      325   04 000BD    6AB00000 X   REVDEL   BAL,R11  CLOSEI            CLOSE IN CASE OPEN (REV(A))
      326   04 000BE    22200000 A            LI,R2    0                 SET BUFFER/DISP FOR ABN14T
      327   04 000BF    22100000 N            LI,R1    OPNFPT
      328   04 000C0    30100007 A            AW,R1    R7                SET FPARAM, ABN14T BUFFER ADDR
      329   04 000C1    041000E4              CAL1,1   REVOPN            OPEN FILE
      330   04 000C2    0410004B 05           CAL1,1   FPTDELET          RELEASE FILE
      331   04 000C3    6A600086 0B           BAL,R6   RANDCHK           TEST IF RANDOM FILE
      332   04 000C4    04100103              CAL1,1   WRTDEL            WRITE *DELETED*
      333   04 000C5    20910000 A            AI,R9    X'10000'          COUNT DELETED FILES
      334   04 000C6    041000EF     LIST26   CAL1,1   WRTCR             WRITE CARRIAGE RETURN
      335   04 000C7    75000000 X            STB,R0   DELETEF           RESET CR NEEDED FLAG
      336                            *
      337   04 000C8                          USECT    PLSECT
      338   05 00009    91000006 A   FPTLFILE GEN,8,24 X'91',R6
      339   05 0000A    34000010 A            DATA     X'34000010'
      340   05 0000B    80000001 A            PZE      *R1               BUFFER
      341   05 0000C    80000002 A            PZE      *R2               COUNT
      342   05 0000D    80000003 A            PZE      *R3               BYTE DISPLACEMENT
      343   05 0000E    06600000 A   TSFPT    GEN,12,20 X'066',0
      344                            *
      345   05 0000F                          USECT    LIST
      346   04 000C8    20900001 A   LIST30   AI,R9    1                 INCREMENT FILE COUNT
        1*  04 000C9    3210004B 0C           LW,1     =X'00200002'      IF NOT FILE (OR PASSWORDED)
        2*  04 000CA    45100000 X            CS,1     M:EI              DO PEOF IN CASE MULTIREEL FILE
        3*  04 000CB    693000CD              BNE      %+2               ON TAPE
      350   04 000CC    0410022D              CAL1,1   ATEOF
      351   04 000CD    6AB00000 X   LIST33   BAL,R11  CLOSEI            GO CLOSE M:EI
      352   04 000CE    33000000 X   LIST31   MTW,0    BREAK             BREAK SET
      353   04 000CF    35000000 X            STW,R0   BREAK             CLEAR BREAK
      354   04 000D0    69300281              BNE      LIST40            YES
      355   04 000D1    33000000 X            MTW,0    TOFILE            ANY MORE LISTING WANTED
      356   04 000D2    69100281              BL       LIST40            NO
      357   04 000D3    330E0000 X            MTW,0    ATTRB,R7          WAS FID SPECIFIED
      358   04 000D4    682000E0              BLE      LIST32            NO
      359   04 000D5    32100000 X            LW,R1    LISTCMBX          RESTORE SCAN POINTER
      360   04 000D6    351E0000 X            STW,R1   CMBX,R7
      361   04 000D7    32100000 X            LW,R1    LISTTERM          GET TERMINATOR
      362   04 000D8    351E0000 X            STW,R1   TERM,R7
      363   04 000D9    2110005E A            CI,R1    ';'               NEW DEVICE
      364   04 000DA    6830000B              BE       LIST24            YES
      365   04 000DB    2110006B A            CI,R1    ','               ANOTHER FID
      366   04 000DC    69300281              BNE      LIST40            NO
      367   04 000DD    68000189              B        LIST9             YES - GO PROCESS
      368   04 000DE    04100108     LIST28   CAL1,1   WRTFB             WRITE 'FILE BUSY'
      369   04 000DF    680000C6              B        LIST26
      370   04 000E0    6AB00000 08  LIST32   BAL,R11  OPNNXT
      371   04 000E1    698002CA              BCS,8    LIST50            ALL DONE
      372   04 000E2    6830027C              BE       LIST7             NOT GETTING ANYWHERE
      373   04 000E3    68000050              B        LIST1
      374                            *
      375   04 000E4    14000000 X   REVOPN   GEN,8,7,17 X'14',0,M:EI
      376   04 000E5    C1200000 A            DATA     X'C1200000'
      377   04 000E6    000001D2              DATA     ABN14T,ABN14T
            04 000E7    000001D2
      378   04 000E8    00000004 A            DATA     4                 INOUT
      379   04 000E9    80000001 A            PZE      *R1
      380   04 000EA    10000000 N   READFPT  GEN,8,24 X'10',M:UC
      381   04 000EB    34000000 A            DATA     X'34000000'
      382   04 000EC    00000000 X            PZE      1BUF
      383   04 000ED    80000009 A            PZE      *R9
      384   04 000EE    00000000 A            DATA     0
      385   04 000EF    11000000 N   WRTCR    GEN,8,24 X'11',M:UC
      386   04 000F0    34000010 A            DATA     X'34000010'
      387   04 000F1    000000F9              DATA     REVMSG
      388   04 000F2    00000001 A            DATA     1
      389   04 000F3    00000000 A            DATA     0
      390   04 000F4    11000000 N   REVFPT   GEN,8,24 X'11',M:UC
      391   04 000F5    34000010 A            DATA     X'34000010'
      392   04 000F6    000000F9              DATA     REVMSG
      393   04 000F7    0000001B A            DATA     27
      394   04 000F8    00000000 A            DATA     0
      395   04 000F9    156060C5 A   REVMSG   TEXT     '
--ENTER D TO DELETE FILE.
'
            04 000FA    D5E3C5D9 A
            04 000FB    40C440E3 A
            04 000FC    D640C4C5 A
            04 000FD    D3C5E3C5 A
            04 000FE    40C6C9D3 A
            04 000FF    C54B1540 A
      396   04 00100    405CC4C5 A   DELMSG   TEXT     ' *DELETED*'
            04 00101    D3C5E3C5 A
            04 00102    C45C4040 A
      397   04 00103    11000000 N   WRTDEL   GEN,8,24 X'11',M:UC
      398   04 00104    34000010 A            DATA     X'34000010'
      399   04 00105    00000100              DATA     DELMSG
      400   04 00106    0000000A A            DATA     10
      401   04 00107    00000000 A            DATA     0
      402   04 00108    11000000 N   WRTFB    GEN,8,24 X'11',M:UC
      403   04 00109    34000010 A            DATA     X'34000010'
      404   04 0010A    0000040C              DATA     FILEBUSY
      405   04 0010B    0000000E A            DATA     14
      406   04 0010C    00000000 A            DATA     0
1* AP * 22:29 JUN 16,'85    PCLLS - PCL LIST                                                      PAGE    7
A     407                                     PAGE
      408   04 0010D    72200000 X   TESTFNC  LB,R2    FROMFILE
      409   04 0010E    6830011D              BE       TEST1             NO - FILE WANTED
      410   04 0010F    33000000 X            MTW,0    COPYPHY
      411   04 00110    6930011D              BNE      TEST1             COPYING TAPE IN PHYS ORDER
      412   04 00111    22400001 A            LI,R4    1
      413   04 00112    71400017 X   TEST4    CB,R4    M:EI+23           ARE WE PAST NAME IN DCB
      414   04 00113    E920000B A            BG       *R11              YES - FILE BELOW RANGE
      415   04 00114    72380017 X            LB,R3    M:EI+23,R4        COMPARE FILE NAMES
      416   04 00115    71380000 X            CB,R3    FROMFILE,R4
      417   04 00116    E910000B A            BL       *R11              BELOW RANGE - EXIT
      418   04 00117    6920011D              BG       TEST1
      419   04 00118    20400001 A            AI,R4    1
      420   04 00119    64200112              BDR,R2   TEST4
      421   04 0011A    7240000A A            LB,R4    R10               IF NO SUCH FILE, DONT WANT
      422   04 0011B    21400003 A            CI,R4    3                 FIRST ONE
      423   04 0011C    E830000B A            BE       *R11
      424   04 0011D    73000000 X   TEST1    MTB,0    TOFILE            WAS A TO FILE SPECIFIED
      425   04 0011E    68300139              BE       TEST3             NO - FILE WANTED
      426   04 0011F    22400001 A            LI,R4    1
      427   04 00120    72200000 X            LB,R2    TOFILE
      428   04 00121    33000000 X            MTW,0    COPYPHY           COPYING TAPE IN PHYS ORDER
      429   04 00122    6830012C              BE       TEST5             NO
      430   04 00123    71200017 X            CB,R2    M:EI+23           ARE NAME LENGTHS EQUAL
      431   04 00124    69300139              BNE      TEST3             NO - FILE WANTED
      432   04 00125    72380017 X   TEST6    LB,R3    M:EI+23,R4
      433   04 00126    71380000 X            CB,R3    TOFILE,R4         TEST IF WE HAVE FOUND TO FILE
      434   04 00127    69300139              BNE      TEST3             NO - FILE WANTED
      435   04 00128    20400001 A            AI,R4    1
      436   04 00129    64200125              BDR,R2   TEST6
      437   04 0012A    20B00001 A            AI,R11   1
      438   04 0012B    6800013E              B        TEST7             FOUND - TAKE WANTED EXIT
      439   04 0012C    71400017 X   TEST5    CB,R4    M:EI+23           ARE WE PAST NAME IN DCB
      440   04 0012D    69200139              BG       TEST3             YES - FILE IN RANGE
      441   04 0012E    72380017 X            LB,R3    M:EI+23,R4
      442   04 0012F    71380000 X            CB,R3    TOFILE,R4         COMPARE FILE NAMES
      443   04 00130    69100139              BL       TEST3             IN RANGE
      444   04 00131    6920013B              BG       TEST2             OUT OF RANGE
      445   04 00132    20400001 A            AI,R4    1
      446   04 00133    6420012C              BDR,R2   TEST5
      447   04 00134    72200017 X            LB,R2    M:EI+23
      448   04 00135    71200000 X            CB,R2    TOFILE            END OF RANGE HIT
      449   04 00136    6930013B              BNE      TEST2             YES
      450   04 00137    20B00001 A            AI,R11   1
      451   04 00138    6800013B              B        TEST2
      452   04 00139    20B00001 A   TEST3    AI,R11   1
      453   04 0013A    E800000B A            B        *R11              EXIT FOR FILE WANTED
      454   04 0013B    22100002 A   TEST2    LI,R1    2                 IF TAPE FILES, KEEP LOOKING
      455   04 0013C    31100000 X            CW,R1    M:EI              IF NOT COPYPHY
      456   04 0013D    E940000B A            BANZ     *R11
      457   04 0013E    3210004C 0C  TEST7    LW,R1    =X'80000000'      SET END OF RANGE FLAG
      458   04 0013F    47100000 X            STS,R1   TOFILE
      459   04 00140    E800000B A            B        *R11
1* AP * 22:29 JUN 16,'85    PCLLS - PCL LIST                                                      PAGE    8
A     460                                     PAGE
      461   04 00141    22100006 A   GETARG6  LI,R1    6
      462   04 00142    68000000 X            B        GETARG
      463   04 00143    6AB00141     LIST8    BAL,R11  GETARG6           GET NEXT ARGUMENT
      464   04 00144    321E0000 X            LW,R1    ARGBUFF,R7
      465   04 00145    25100078 A            SLS,R1   -8                MAKE CI'C WORK
      466   04 00146    2111D940 A            CI,R1    X'1D940'          TEST IF 'R'ANGE
      467   04 00147    6930014A              BNE      %+3
      468   04 00148    33100000 X            MTW,1    FROMFILE          SET FLAG FOR RANGE
      469   04 00149    68000170              B        LIST11
      470   04 0014A    2111C140 A            CI,R1    X'1C140'          TEST IF 'A'TTRIBUTES
      471   04 0014B    68300196              BE       LIST10            YES
      472   04 0014C    2112C5C1 A            CI,R1    X'2C5C1'          TEST IF EA
      473   04 0014D    68300194              BE       LIST16            YES
      474   04 0014E    22200003 A            LI,R2    3                 MODE CODE FOR 7T
      475   04 0014F    2112F7E3 A            CI,R1    X'2F7E3'          TEST IF '7T'
      476   04 00150    6830015E              BE       LIST12            7T
      477   04 00151    22200004 A            LI,R2    4                 MODE CODE FOR 9T
      478   04 00152    2112F9E3 A            CI,R1    X'2F9E3'          TEST IF '9T'
      479   04 00153    6830015E              BE       LIST12
      480   04 00154    2113D1D6 A            CI,R1    X'3D1D6'          JO(B)
      481   04 00155    68300166              BE       LIST15
      482   04 00156    2112C3F9 A            CI,R1    X'2C3F9'
      483   04 00157    69200163              BG       LIST14
      484   04 00158    201D3C10 A            AI,R1    -X'2C3F0'         TEST IF COLUMN WIDTH.'CN'
      485   04 00159    69100163              BL       LIST14            <C0
      486   04 0015A    6920015C              BG       %+2
      487   04 0015B    22100063 A            LI,R1    99                C0 MEANS ONE PER LINE
      488   04 0015C    351E0000 X            STW,R1   WRTFPT,R7
      489   04 0015D    68000170              B        LIST11
      490   04 0015E    321E0000 X   LIST12   LW,R1    DEVICE,R7
      491   04 0015F    21100004 A            CI,R1    4
      492   04 00160    6830016F              BE       LIST13            LT - OK
      493   04 00161    21100006 A            CI,R1    6
      494   04 00162    6830016F              BE       LIST13            FT - OK
      495   04 00163    22100019 A   LIST14   LI,R1    25                ERROR-MODE SPEC NOT VALID
      496   04 00164    6AB00000 X            BAL,R11  ERROR
      497   04 00165    68000170              B        LIST11
      498   04 00166    330E0000 X   LIST15   MTW,0    ATTRB,R7          MUST HAVE FILENAME
      499   04 00167    68200163              BLE      LIST14
      500   04 00168    321E0000 X            LW,R1    DEVICE,R7
      501   04 00169    201FFFFD A            AI,R1    -3                DC,DP ONLY
      502   04 0016A    21100005 A            CI,R1    5
      503   04 0016B    69400163              BANZ     LIST14
      504   04 0016C    22100800 A            LI,R1    X'800'
      505   04 0016D    471E0000 X            STS,R1   MODE,R7           SET THE BIT
      506   04 0016E    68000170              B        LIST11
      507   04 0016F    352E0001 X   LIST13   STW,R2   MODE+1,R7         SET CODE FOR 7T OR 9T
      508   04 00170    322E0000 X   LIST11   LW,R2    TERM,R7
      509   04 00171    2120006B A            CI,R2    ','               IS THERE ANOTHER OPTION
      510   04 00172    68300143              BE       LIST8             YES
      511   04 00173    2120005D A            CI,R2    ')'               VALID DELIMITER
      512   04 00174    69300036              BNE      LIST18            NO - ERROR
      513   04 00175    6AB00141              BAL,R11  GETARG6           CHECK NEXT ARG
      514   04 00176    330E0000 X            MTW,0    ATTRB,R7          IF NO N.A.P YET,
      515   04 00177    6820017B              BLE      LIST111           NO DELIMITER HERE
      516   04 00178    330E0000 X            MTW,0    NCHAR,R7          IS ARGUMENT NULL
      517   04 00179    69300036              BNE      LIST18            NO - ERROR
      518   04 0017A    68000028              B        LIST44
      519   04 0017B    330E0000 X   LIST111  MTW,0    NCHAR,R7          IF WE HIT A DELIMITER
      520   04 0017C    69300180              BNE      KGC1%4            NO NEED TO REREAD
      521   04 0017D    330E0002 X            MTW,0    DEVICE+2,R7       HAVE WE BEEN TO DEVTRAN
      522   04 0017E    69300025              BNE      LIST4             YES, DONT GO AGAIN
      523   04 0017F    6800000C              B        LIST25            NO, STILL NEED DEVICE TYPE
      524   04 00180    32100000 X   KGC1%4   LW,R1    LTSTCMBX          IF WE GOBBLED SOMETHING, REGURGITATE
      525   04 00181    351E0000 X            STW,R1   CMBX,R7           IF THERE WAS ONE
      526   04 00182    22100040 A            LI,R1    ' '               SET GOOD DELIMITER FOR REVIEW
      527   04 00183    351E0000 X            STW,R1   TERM,R7
      528   04 00184    330E0002 X            MTW,0    DEVICE+2,R7       IF WE NEED A DEVICE STILL
      529   04 00185    6830000C              BE       LIST25            GO GET ONE
      530   04 00186    330E0000 X            MTW,0    FILE,R7           IF ACCOUNT ALREADY THERE, MUST BE RANGE
      531   04 00187    68300189              BE       LIST9             NO, MUST BE FID
      532   04 00188    33100000 X            MTW,1    FROMFILE
      533   04 00189    33000000 X   LIST9    MTW,0    FROMFILE          IF RANGE, GET IT
      534   04 0018A    6830018D              BE       %+3
      535   04 0018B    6AB00000 X            BAL,R11  REVIEW
      536   04 0018C    68000028              B        LIST44
      537   04 0018D    350E0000 X            STW,R0   MODE,R7           RESET JOB FLAG
      538   04 0018E    6AB00000 X            BAL,R11  FILTRAN
      539   04 0018F    22100001 A            LI,R1    1
      540   04 00190    351E0000 X            STW,R1   ATTRB,R7          SET ATTRIBUTE FLAG FOR 1 FILE
      541   04 00191    2210FFFF A            LI,R1    X'FFFF'           ZERO 1 FILE EA FLAG
      542   04 00192    47000000 X            STS,R0   EATTRB
      543   04 00193    68000028              B        LIST44
      544   04 00194    33100000 X   LIST16   MTW,1    EATTRB            SET 1 FILE EA FLAG
      545   04 00195    221F0001 A            LI,R1    X'F0001'          AND ALL FILES FLAG IF FIRST
      546   04 00196    330E0000 X   LIST10   MTW,0    ATTRB,R7          WAS FID SPECIFIED
      547   04 00197    69200170              BG       LIST11            YES
      548   04 00198    222FFFFF A            LI,R2    -1
      549   04 00199    352E0000 X            STW,R2   ATTRB,R7          SET ATTRB FLAG FOR ALL FILES
      550   04 0019A    64100170              BDR,R1   LIST11            IF NOT FROM EA,
      551   04 0019B    35100000 X            STW,R1   EATTRB            DONT SET ALL FILES EA FLAG
      552   04 0019C    68000170              B        LIST11
1* AP * 22:29 JUN 16,'85    PCLLS - PCL LIST                                                      PAGE    9
A     553                                     PAGE
      554   04 0019D    02000000 N   WEOFLO   GEN,8,24 2,M:LO
      555   04 0019E    462E0002 A   LISTATB  XW,R2    2,R7              IS THIS THE FIRST FILE
      556   04 0019F    693001C3              BNE      LISTATB1          NO - SKIP HEADER
      557   04 001A0    22600000 N            LI,R6    M:LO              OUTPUT TO M:LO
      558   04 001A1    33000000 X            MTW,0    DELETEF           IF REVIEW, ADD DELETE MSG
      559   04 001A2    683001A6              BE       KGC2%4
      560   04 001A3    22600000 N            LI,R6    M:UC              AND WRITE THROUGH UC
      561   04 001A4    041000F4              CAL1,1   REVFPT
      562   04 001A5    73F00000 X            MTB,-1   DELETEF           SET CR NEEDED FLAG
      563   04 001A6    330E0000 X   KGC2%4   MTW,0    ATTRB,R7          NAME LIST OR RAGNE IN ONE ACCOUNT
      564   04 001A7    692001B2              BG       NODATEHD          LIST, NO DATE/ACCOUNT
      565   04 001A8    0410019D              CAL1,1   WEOFLO            TOP OF FORM FOR PRINTERS
      566   04 001A9    22F00000 N            LI,R15   BA(DATETBL)       POINT TO BUFFER
      567   04 001AA    22E0000F A            LI,R14   15                15 BYTES INTO BUFFER
      568   04 001AB    6AB0002A 0B           BAL,R11  RANGEOUT          PUT XX#SSSS.AJSSD RF
      569   04 001AC    3220000E A            LW,R2    R14               SIZE OF OUTPUT
      570   04 001AD    44E00457              ANLZ,R14 PRTBUFI7          RESTORE BUFFER ADDRESS
      571   04 001AE    22300000 A            LI,R3    0
      572   04 001AF    22100004 N            LI,R1    DATETBL           OUTPUT THE LINE
      573   04 001B0    20200001 A            AI,R2    1
      574   04 001B1    04100009 05           CAL1,1   FPTLFILE
      575   04 001B2    72200415     NODATEHD LB,R2    LISTHEAD          LENGTH OF HEADER
      576   04 001B3    22100415              LI,R1    LISTHEAD          BUFFER ADR
      577   04 001B4    32BE0000 X            LW,R11   DEVICE,R7
      578   04 001B5    21B00007 A            CI,R11   7
      579   04 001B6    693001B8              BNE      %+2
      580   04 001B7    22100421              LI,R1    LISTHAT
      581   04 001B8    22B001C3              LI,R11   LISTATB1
      582   04 001B9    22300001 A   LFILE    LI,R3    1                 BTD
      583   04 001BA    22600000 N            LI,R6    M:LO
      584   04 001BB    33000000 X            MTW,0    DELETEF           IF REVIEW, USE UC, START AT
      585   04 001BC    683001C1              BE       LFILE1            START OF LINE
      586   04 001BD    73F00000 X            MTB,-1   DELETEF           SET/CHECK CR NEEDED FLAG
      587   04 001BE    688001C0              BNC      %+2
      588   04 001BF    041000EF              CAL1,1   WRTCR
      589   04 001C0    22600000 N            LI,R6    M:UC
      590   04 001C1    04100009 05  LFILE1   CAL1,1   FPTLFILE          PRINT ATTRIBUTE HEADER
      591   04 001C2    E800000B A            B        *R11
      592   04 001C3    20E0000A A   LISTATB1 AI,R14   NAME
      593   04 001C4    22100017 N            LI,R1    M:EI+23
      594   04 001C5    6AB00000 X            BAL,R11  UNPRINT           ENTER FILE NAME IN BUFFER
      595   04 001C6    22100000 N            LI,R1    PRTBUF
      596   04 001C7    30100007 A            AW,R1    R7
      597   04 001C8    20200028 A            AI,R2    NAME*4            LENGTH OF PRINT LINE
      598   04 001C9    350E0000 X            STW,R0   SYNFLAG,R7        NO SYNON YET
      599   04 001CA    35000000 X            STW,R0   RDTBL             CLEAR ACCN COUNTS
      600   04 001CB    35000000 X            STW,R0   WRTBL
      601   04 001CC    35000000 X            STW,R0   EXTBL
      602   04 001CD    35000000 X            STW,R0   UNTBL
      603   04 001CE    22600008 A            LI,R6    8
      604   04 001CF    350C0003 X            STW,R0   DATETBL-1,R6      ZERO DATE TABLE
      605   04 001D0    646001CF              BDR,R6   %-1
      606   04 001D1    22B001F7              LI,R11   LISTATB2
      607   04 001D2    7230000A A   ABN14T   LB,R3    R10
      608   04 001D3    E830000B A            BE       *R11              ALL IS OK
      609   04 001D4    21300008 A            CI,R3    8                 SYNON IS OK TOO
      610   04 001D5    E830000B A            BE       *R11
      611   04 001D6    02200080 A            LCI      8
      612   04 001D7    8BB00007 A            PSM,R11  *R7
      613   04 001D8    7210000A A            LB,R1    R10
      614   04 001D9    25100008 A            SLS,R1   8
      615   04 001DA    5010000A A            AH,R1    R10
      616   04 001DB    2510007F A            SLS,R1   -1
      617   04 001DC    6AB00000 X            BAL,R11  HEX2BCD
      618   04 001DD    02200030 A            LCI      3
      619   04 001DE    8A000007 A            PLM,R0   *R7
      620   04 001DF    3530000F A            STW,R3   R15
      621   04 001E0    02200040 A            LCI      4
      622   04 001E1    2AB00411              LM,R11   INACCM            GET *INACCESSIBLE*
      623   04 001E2    223FFFEC A            LI,R3    -20
      624   04 001E3    72460010 A            LB,R4    16,R3
      625   04 001E4    20200001 A            AI,R2    1
      626   04 001E5    F5440001 A            STB,R4   *R1,R2
      627   04 001E6    653001E3              BIR,R3   %-3
      628   04 001E7    02200050 A            LCI      5
      629   04 001E8    8AB00007 A            PLM,R11  *R7
      630   04 001E9    21B001F7              CI,R11   LISTATB2          LIST OR REVIEW
      631   04 001EA    68300266              BE       LISTATB9          LIST
      632   04 001EB    75000000 X            STB,R0   DELETEF           REVIEW, RESET CR NEEDED FLAG
      633   04 001EC    6800008F              B        REVRET1           YES
      634   04 001ED    89100007 A   LISTATB2B PSW,1   *R7
      635   04 001EE    7210000C X            LB,R1    M:EI+12           GET KEYM
      636   04 001EF    6AB00000 X            BAL,R11  BIN2BCD
      637   04 001F0    88100007 A            PLW,R1   *R7
      638   04 001F1    222040D2 A            LI,R2    ' K'
      639   04 001F2    55200003 A            STH,R2   R3
      640   04 001F3    35320000 A            STW,R3   0,R1
      641   04 001F4    6800022F              B        LISTATB2A
      642   04 001F5    14000000 N   OPNEI    GEN,8,24 20,M:EI
      643   04 001F6    00000000 A            DATA     0                 NO OPTIONS
      644   04 001F7    32E00002 A   LISTATB2 LW,R14   R2                SAVE LINE LENGTH
      645   04 001F8    322E0000 X            LW,R2    DEVICE,R7
      646   04 001F9    21200004 A            CI,R2    4                 LABELED TAPE?
      647   04 001FA    693001FE              BNE      KGC3%4            NO
      648   04 001FB    32300001 X            LW,R3    TLABEL+1
      649   04 001FC    3130004D 0C           CW,R3    ='RFIL'           IS FILE RANDOM
      650   04 001FD    6830026D              BE       LISTRAND          YES
      651   04 001FE    7300000A A   KGC3%4   MTB,0    R10               IF SYNON, OPEN THE REAL FILE
      652   04 001FF    68300201              BE       %+2
      653   04 00200    041001F5              CAL1,1   OPNEI
      654   04 00201    223000F0 A            LI,R3    X'F0'
      655   04 00202    4B300005 X            AND,R3   M:EI+5            GET ORG/FMT
      656   04 00203    2530007C A            SLS,R3   -4
      657   04 00204    21200007 A            CI,R2    7                 IF AT, USE FMTS
      658   04 00205    69300207              BNE      %+2
      659   04 00206    20300004 A            AI,R3    4
      660   04 00207    72360439              LB,R3    ORGN,R3
      661   04 00208    683001ED              BE       LISTATB2B         KEYED, DO KEYMAX TOO
      662   04 00209    22400002 A            LI,R4    ORG               GET BYTE DISPLACEMENT
      663   04 0020A    F5380001 A            STB,R3   *R1,R4            PUT IN BUFFER
      664   04 0020B    21200007 A            CI,R2    7                 IF AT, PUT ITS ATTRS
      665   04 0020C    6930022F              BNE      LISTATB2A
      666   04 0020D    32500001 A            LW,R5    R1
      667   04 0020E    213000E4 A            CI,R3    'U'               BLOCKS ONLY FOR U FMT
      668   04 0020F    6830021C              BE       LISTATAT7
      669   04 00210    213000C6 A            CI,R3    'F'               REC ONLY FOR FMT F
      670   04 00211    69300217              BNE      LISTATAT2
      671   04 00212    32100012 X            LW,R1    M:EI+18
      672   04 00213    2510006F A            SLS,R1   -17
      673   04 00214    6AB00000 X            BAL,R11  BIN2BCD
      674   04 00215    352A0003 A            STW,R2   REC,R5
      675   04 00216    353A0004 A            STW,R3   REC+1,R5
      676   04 00217    32100003 X   LISTATAT2 LW,R1   M:EI+3            BLKSZ
      677   04 00218    2510006F A            SLS,R1   -17
      678   04 00219    6AB00000 X            BAL,R11  BIN2BCD
      679   04 0021A    352A0001 A            STW,R2   1,R5
      680   04 0021B    353A0002 A            STW,R3   2,R5
      681   04 0021C    0410022D     LISTATAT7 CAL1,1  ATEOF
      682   04 0021D    32100011 X            LW,R1    M:EI+17           BLKCNT
      683   04 0021E    330E0000 X            MTW,0    ATTRB,R7
      684   04 0021F    69200221              BG       %+2
      685   04 00220    66100000 X            AWM,R1   GRANCNT
      686   04 00221    6AB00000 X            BAL,R11  BIN2BCD
      687   04 00222    352A0007 A            STW,R2   7,R5
      688   04 00223    353A0008 A            STW,R3   8,R5
      689   04 00224    2211FFFF A            LI,R1    X'1FFFF'          GET FSN
      690   04 00225    4B100010 X            AND,R1   M:EI+16
      691   04 00226    6AB00000 X            BAL,R11  BIN2BCD
      692   04 00227    353A0006 A            STW,R3   6,R5
      693   04 00228    32100005 A            LW,R1    R5                RESTORE LINE START
      694   04 00229    22A00000 A            LI,R10   0
      695   04 0022A    3220000E A            LW,R2    R14
      696   04 0022B    6AB001B9              BAL,R11  LFILE
      697   04 0022C    680000C8              B        LIST30
      698                            *
      699   04 0022D    1C000000 N   ATEOF    GEN,8,24 X'1C',M:EI
      700   04 0022E    00000000 A            DATA     0
      701                            *
      702   04 0022F    22400001 A   LISTATB2A LI,R4   1                 SET BYTE DISP REGS FOR VLP SEARCH
      703   04 00230    22200002 A            LI,R2    2
      704   04 00231    22300003 A            LI,R3    3
      705   04 00232    32A0000B X            LW,R10   M:EI+11           FPARAM ADDR
      706   04 00233    F250000A A   LISTATB3 LB,R5    *R10              GET VLP CODE
      707   04 00234    21500015 A            CI,R5    X'15'             MAX CODE
      708   04 00235    6920023D              BG       LISTATB4          NOT USEFUL
      709   04 00236    F304000A A            MTB,0    *R10,R2
      710   04 00237    6830023D              BE       LISTATB4          PARAMETER NOT PRESENT
      711   04 00238    02200040 A            LCI      4                 SAVE A FEW REGS
      712   04 00239    8B100007 A            PSM,R1   *R7
      713   04 0023A    670A03E3              EXU      VLPTAB-1,R5       BRANCH IF WANTED - OTHERWISE NOP
      714   04 0023B    02200040 A            LCI      4
      715   04 0023C    8A100007 A            PLM,R1   *R7
      716   04 0023D    F308000A A   LISTATB4 MTB,0    *R10,R4           TEST IF LAST ENTRY
      717   04 0023E    69300243              BNE      LISTATB7          YES
      718   04 0023F    F256000A A            LB,R5    *R10,R3           GET LENGTH OF PARAMETER
      719   04 00240    30A00005 A            AW,R10   R5                INCREMENT VLP POINTER
      720   04 00241    20A00001 A            AI,R10   1                 INCREMENT FOR CODE WORD
      721   04 00242    68000233              B        LISTATB3          GET NEXT CODE
      722   04 00243    22300002 A   LISTATB7 LI,R3    ORG
      723   04 00244    F2260001 A            LB,R2    *R1,R3
      724   04 00245    212000D9 A            CI,R2    'R'               IS ORG RANDOM
      725   04 00246    6830025B              BE       LISTATB6          YES - LEAVE NO. REC BLANK
      726   04 00247    351E0000 X            STW,R1   RSSAVE,R7         SAVE BUFFER ADR
      727   04 00248    22100064 A            LI,R1    100               INITIALIZE PREC COUNT
      728   04 00249    0410000F 05  LISTATB8 CAL1,1   FPTPREC           DO PRECORD TO GET NUM OF RECS
      729                            *
      730   04 0024A                          USECT    PLSECT
      731   05 0000F    1D000000 X   FPTPREC  GEN,8,7,17 X'1D',0,M:EI
      732   05 00010    C0000000 A            DATA     X'C0000000'
      733   05 00011    00000064 A            DATA     100               100 RECS (TO PERMIT BREAKS)
      734   05 00012    0000024E 04           DATA     ABNPREC           ABNORMAL ADR
      735   05 00013                          USECT    LIST
      736   04 0024A    33000000 X            MTW,0    BREAK
      737   04 0024B    693000C8              BNE      LIST30
      738   04 0024C    20100064 A            AI,R1    100
      739   04 0024D    68000249              B        LISTATB8
      740                            *
      741   04 0024E    32200004 X   ABNPREC  LW,R2    M:EI+4
      742   04 0024F    2520006F A            SLS,R2   -17               GET ARS FROM DCB
      743   04 00250    38100002 A            SW,R1    R2                COMPUTE NUM OF RECS IN FILE
      744   04 00251    322E0000 X            LW,R2    DEVICE,R7         IF TAPE ACCUMULATE RECORDS
      745   04 00252    21200004 A            CI,R2    4
      746   04 00253    69300257              BNE      KGC4%4
      747   04 00254    330E0000 X            MTW,0    ATTRB,R7
      748   04 00255    69200257              BG       %+2
      749   04 00256    66100000 X            AWM,R1   GRANCNT
      750   04 00257    6AB00000 X   KGC4%4   BAL,R11  BIN2BCD           CONVERT TO BCD
      751   04 00258    321E0000 X            LW,R1    RSSAVE,R7         RESTORE BUFFER ADR
      752   04 00259    35220003 A            STW,R2   REC,R1            ENTER NUM OF RECS IN PRINT LINE
      753   04 0025A    35320004 A            STW,R3   REC+1,R1
      754   04 0025B    25100002 A   LISTATB6 SLS,R1   2                 SAVE BA(BUFFER IN RSSAVE
      755   04 0025C    351E0000 X            STW,R1   RSSAVE,R7         FOR WACC
      756   04 0025D    6AB00350              BAL,R11  SYNONX            PRINT SYNON
      757   04 0025E    6AB00370              BAL,R11  RACCTX            PRINT READ ACCOUNTS
      758   04 0025F    6AB0038F              BAL,R11  WACCTX            PRINT WRITE ACCOUNTS
      759   04 00260    6AB0037F              BAL,R11  EACCTX            PRINT EXECUTE ACCOUNTS.
      760   04 00261    6AB00386              BAL,R11  UACCTX            PRINT VEHICLE ACCOUNT.
      761   04 00262    3220000E A            LW,R2    R14               PRINT THE LINE
      762   04 00263    321E0000 X            LW,R1    RSSAVE,R7
      763   04 00264    2510007E A            SLS,R1   -2
      764   04 00265    22A00000 A            LI,R10   0                 CLEAR ERROR REG
      765   04 00266    6AB001B9     LISTATB9 BAL,R11  LFILE             PUT IT OUT
      766   04 00267    33000000 X            MTW,0    EATTRB            WAS 'EA' SPECIFIED
      767   04 00268    6830026A              BE       %+2
      768   04 00269    6AB00307              BAL,R11  DATELIST          GO LIST DATE ATTRIBUTES
      769   04 0026A    33000000 X            MTW,0    DELETEF           ARE WE REVIEW
      770   04 0026B    69300090              BNE      REVRET2           YES
      771   04 0026C    680000C8              B        LIST30            GO CLOSE FILE
      772   04 0026D    222000D9 A   LISTRAND LI,R2    'R'               RANDOM FILE ON TAPE
      773   04 0026E    22400002 A            LI,R4    ORG
      774   04 0026F    F5280001 A            STB,R2   *R1,R4            PUT 'R' IN PRINT BUFFER
      775   04 00270    22400001 A            LI,R4    1
      776   04 00271    22A00001 N            LI,R10   TLABEL+1          LOC -1 OF NO OF GRANULES
      777   04 00272    6AB00329              BAL,R11  GRANULE           GO PUT GRANULES IN BUFFER
      778   04 00273    6800022F              B        LISTATB2A         GET REST OF ATTRIBUTES
      779   04 00274    7210000A A   ERRADD   LB,R1    R10
      780   04 00275    2220FF00 A            LI,R2    X'FF00'           IS THERE A NAME
      781   04 00276    31200016 X            CW,R2    M:EI+22
      782   04 00277    6840027C              BAZ      LIST7             NO
      783   04 00278    21100008 A            CI,R1    8                 SYNON
      784   04 00279    68300050              BE       LIST1             YES
      785   04 0027A    330E0000 X            MTW,0    ATTRB,R7          IF SELECTIVE, USE % MESSAGE
      786   04 0027B    68200050              BLE      LIST1             NOT
      787   04 0027C    22100000 A   LIST7    LI,R1    0                 NO-REPORT ERROR
      788   04 0027D    6AB00000 X            BAL,R11  ERROR
      789   04 0027E    6AB002D4     SOMERR   BAL,R11  D2CHK             UPDATE ERR SEVERITY
      790   04 0027F    330E0000 X            MTW,0    ATTRB,R7          WAS FID SPECIFIED
      791   04 00280    692000CE              BG       LIST31            YES
      792   04 00281    32100000 X   LIST40   LW,R1    LISTTERM
      793   04 00282    21100015 A            CI,R1    X'15'             END OF COMMAND
      794   04 00283    68300287              BE       LISTEND
      795   04 00284    2210001E A            LI,R1    30                ERROR - IMPROPER TERMINATION
      796   04 00285    6AB00000 X            BAL,R11  ERROR
      797   04 00286    6AB002D4              BAL,R11  D2CHK
      798   04 00287    325E0000 X   LISTEND  LW,R5    DEVICE,R7
      799   04 00288    325A02BD              LW,R5    LSTTXTS,R5        GET APPROPROPRAITE MESS
      800   04 00289    32D00008 X            LW,R13   SEVMAX            GET MAX LEVEL
      801   04 0028A    21900001 A            CI,R9    1                 IF ONE FILE, NO COUNT
      802   04 0028B    6930028D              BNE      %+2
      803   04 0028C    22900000 A            LI,R9    0
      804   04 0028D    33000000 X            MTW,0    DELETEF           IS THIS ONLINE REVIEW
      805   04 0028E    69300297              BNE      LIST42            YES, NO LAST LINE
      806   04 0028F    330E0000 X            MTW,0    ATTRB,R7
      807   04 00290    69300297              BNE      LIST42            NOT SIMPLE LIST
      808   04 00291    22300001 A            LI,R3    1                 PRINT LAST LINE
      809   04 00292    22100000 N            LI,R1    PRTBUF
      810   04 00293    30100007 A            AW,R1    R7
      811   04 00294    F2200001 A            LB,R2    *R1
      812   04 00295    68300297              BE       %+2
      813   04 00296    04100009 05           CAL1,1   FPTLFILE
      814   04 00297    6AB00000 X   LIST42   BAL,R11  PRTERR            PUT OUT THE ERRORS
      815   04 00298    32800000 X            LW,R8    GRANCNT           GET TOTAL GRANULES
      816   04 00299    25800210 A            SCS,R8   16                THEN THE REST
      817   04 0029A    6AB00000 X            BAL,R11  PRTNOF            PRINT 'XXX TOTAL GRANULES'
      818   04 0029B    330E0000 X            MTW,0    ATTRB,R7          IF NOT SELECTIVE, TOP OF FORM
      819   04 0029C    6810029E              BGE      RETURN
      820   04 0029D    0410019D              CAL1,1   WEOFLO
      821   04 0029E    02200070 A   RETURN   LCI      7
      822   04 0029F    8A500007 A            PLM,R5   *R7               RESTORE REGISTERS
      823   04 002A0    E800000B A            B        *R11              RETURN
      824   04 002A1    4B4B406C A   LSTTEXT  TEXT     '.. % FILES LISTED, % DELETED, %% TOTAL GRANULES
'
            04 002A2    40C6C9D3 A
            04 002A3    C5E240D3 A
            04 002A4    C9E2E3C5 A
            04 002A5    C46B406C A
            04 002A6    40C4C5D3 A
            04 002A7    C5E3C5C4 A
            04 002A8    6B406C6C A
            04 002A9    40E3D6E3 A
            04 002AA    C1D340C7 A
            04 002AB    D9C1D5E4 A
            04 002AC    D3C5E215 A
      825   04 002AD    4B4B406C A   LSTLTXT  TEXT     '.. % FILES LISTED, %%% TOTAL RECORDS
'
            04 002AE    40C6C9D3 A
            04 002AF    C5E240D3 A
            04 002B0    C9E2E3C5 A
            04 002B1    C46B406C A
            04 002B2    6C6C40E3 A
            04 002B3    D6E3C1D3 A
            04 002B4    40D9C5C3 A
            04 002B5    D6D9C4E2 A
            04 002B6    15404040 A
      826   04 002B7    4B4B406C A   LSTATXT  TEXT     '.. % FILES LISTED, %%% TOTAL BLOCKS
'
            04 002B8    40C6C9D3 A
            04 002B9    C5E240D3 A
            04 002BA    C9E2E3C5 A
            04 002BB    C46B406C A
            04 002BC    6C6C40E3 A
            04 002BD    D6E3C1D3 A
            04 002BE    40C2D3D6 A
            04 002BF    C3D2E215 A
      827         04 002BD           LSTTXTS  EQU      %-3               DC IS MIN
      828   04 002C0    000002A1              DATA     LSTTEXT,LSTLTXT,LSTTEXT,LSTLTXT,LSTATXT
            04 002C1    000002AD
            04 002C2    000002A1
            04 002C3    000002AD
            04 002C4    000002B7
      829   04 002C5    22100000 A   ERRADD2  LI,R1    0                 REPORT M:LO ERROR
      830   04 002C6    6AB00000 X            BAL,R11  ERROR
      831   04 002C7    22100038 A            LI,R1    56                ERROR WRITING LO
      832   04 002C8    6AB00000 X            BAL,R11  ERROR
      833   04 002C9    6800029E              B        RETURN
      834   04 002CA    72200018 05  LIST50   LB,R2    NOFILES           GET MESSAGE COUNT
      835   04 002CB    21900000 A            CI,R9    0
      836   04 002CC    69300281              BNE      LIST40            GOT SOME
      837   04 002CD    22100000 N            LI,R1    M:UC              SELECT BATCH OR ONLINE
      838   04 002CE    70200000 X            LC       BOG
      839   04 002CF    69C002D2              BCS,12   %+3               BRANCH IF ONLINE OR GHOST
      840   04 002D0    22100000 N            LI,R1    M:LO
      841   04 002D1    202FFFFF A            AI,R2    -1                REMOVE N/L CHAR
      842   04 002D2    04100013 05           CAL1,1   FPTNOFIL
      843                            *
      844   04 002D3                          USECT    PLSECT
      845   05 00013    91000001 A   FPTNOFIL GEN,8,7,17      X'91',0,R1
      846   05 00014    34000010 A            DATA     X'34000010'
      847   05 00015    00000018              DATA     NOFILES           BUFFER
      848   05 00016    80000002 A            PZE      *R2               COUNT
      849   05 00017    00000001 A            DATA     1                 BTD
      850   05 00018    16D5D640 A   NOFILES  TEXTC    'NO FILES IN DIRECTORY
'
            05 00019    C6C9D3C5 A
            05 0001A    E240C9D5 A
            05 0001B    40C4C9D9 A
            05 0001C    C5C3E3D6 A
            05 0001D    D9E81540 A
      851                            *
      852   05 0001E                          USECT    LIST
      853   04 002D3    6800029E              B        RETURN
      854   04 002D4    31D00008 X   D2CHK    CW,R13   SEVMAX
      855   04 002D5    682002D7              BLE      %+2
      856   04 002D6    35D00008 X            STW,R13  SEVMAX
      857   04 002D7    22D00000 A            LI,R13   0
      858   04 002D8    E800000B A            B        *R11
1* AP * 22:29 JUN 16,'85    PCLLS - PCL LIST                                                      PAGE   10
A     859                                     PAGE
      860                            * SUBROUTINE CDATE MOVES THE CREATION DATE FROM FPARAM TO THE
      861                            * PRINT BUFFER.
      862   04 002D9    22400000 A   CDATE    LI,R4    0
      863   04 002DA    B248000A A            LW,R4    *R10,R4           GET 1ST WORD OF DATE
      864   04 002DB    22500000 A            LI,R5    0
      865   04 002DC    25400170 A            SLD,R4   -16               SEPARATE MONTH AND DAY
      866   04 002DD    25500070 A            SLS,R5   -16
      867   04 002DE    21500F00 A            CI,R5    X'F00'            MORE THAN 9
      868   04 002DF    694002E1              BANZ     %+2
      869   04 002E0    205F1000 A            AI,R5    -X'F000'          NO, ONLY ONE DIGIT
      870   04 002E1    4950004A 0C           OR,R5    ='    '
      871   04 002E2    35520007 A            STW,R5   DATE,R1           PUT DAY IN BUFFER
      872   04 002E3    204F0E1A A            AI,R4    -X'F1F0'+10       CONVERT MOS OVER 9
      873   04 002E4    692002E6              BG       %+2
      874   04 002E5    204000F6 A            AI,R4    X'100'-10         AND THOSE LESS TOO
      875   04 002E6    3258042C              LW,R5    MONTH,R4
      876   04 002E7    35520008 A            STW,R5   DATE+1,R1         PUT MONTH IN BUFFER
      877   04 002E8    EB54000A A            INT,R5   *R10,R2           GET YEAR WORD
      878   04 002E9    25500008 A            SLS,R5   8                 POSITION
      879   04 002EA    4950004A 0C           OR,R5    ='    '
      880   04 002EB    35520009 A            STW,R5   DATE+2,R1         PUT IN BUFFER
      881   04 002EC    F240000A A            LB,R4    *R10              CHK IF LOOKING AT FPARAM CODE '0A'
      882   04 002ED    2140000A A            CI,R4    X'A'
      883   04 002EE    E930000B A            BNE      *R11
      884   04 002EF    B246000A A            LW,R4    *R10,R3           GET HR AND MIN
      885   04 002F0    3250004A 0C           LW,R5    =X'40404040'
      886   04 002F1    25400370 A            SCD,R4   -16               HRS IN R4; MIN IN R5
      887   04 002F2    25500078 A            SLS,R5   -8
      888   04 002F3    2260007A A            LI,R6    ':'
      889   04 002F4    75600005 A            STB,R6   R5                GENERATE HR:MIN FOR BUFFER
      890   04 002F5    25400378 A            SCD,R4   -8                AND POSITION THEM
      891   04 002F6    02200020 A            LCI      2
      892   04 002F7    2B420005 A            STM,R4   DATE-2,R1         AND STORE IN BUFFER
      893   04 002F8    E800000B A            B        *R11              RETURN
1* AP * 22:29 JUN 16,'85    PCLLS - PCL LIST                                                      PAGE   11
A     894                                     PAGE
      895                            * THE FOLLOWING SUBROUTINES HANDLE THE SAVING OF DATE ATTRIBUTES IN
      896                            * DATETBL AND LISTING THESE ATTRIBUTES IF THE 'EA' OPTION WAS USED.
      897   04 002F9    22500000 A   EDATE    LI,R5    0                 EXPIRATION DATE
      898   04 002FA    68000302              B        ADATE1
      899   04 002FB    22500002 A   MDATE    LI,R5    2                 CREATION DATE
      900   04 002FC    68000302              B        ADATE1
      901   04 002FD    F304000A A   BDATE    MTB,0    *R10,R2           BACKUP DATE
      902   04 002FE    E830000B A            BE       *R11              NO DATE ENTERED
      903   04 002FF    22500004 A            LI,R5    4
      904   04 00300    68000302              B        ADATE1
      905   04 00301    22500006 A   ADATE    LI,R5    6                 ACCESS DATE
      906   04 00302    B238000A A   ADATE1   LW,R3    *R10,R4
      907   04 00303    353A0004 X            STW,R3   DATETBL,R5        MOVE DATE FROM VLP TO DATE TABLE
      908   04 00304    B234000A A            LW,R3    *R10,R2
      909   04 00305    353A0005 X            STW,R3   DATETBL+1,R5
      910   04 00306    E800000B A            B        *R11
      911                            *
      912   04 00307    22E00004 A   DATELIST LI,R14   4                 LIST 4 DATES IF PRESENT
      913   04 00308    89B00007 A            PSW,R11  *R7               SAVE LINK
      914   04 00309    3210004A 0C           LW,R1    ='    '
      915   04 0030A    351E0000 X            STW,R1   IOBUF,R7
      916   04 0030B    22A00004 N            LI,R10   DATETBL
      917   04 0030C    22600000 A            LI,R6    0                 INDEX INTO TDATE
      918   04 0030D    B250000A A   DATEL2   LW,R5    *R10
      919   04 0030E    6830031E              BE       DATEL3            NO DATE IN THIS TABLE ENTRY
      920   04 0030F    02200040 A            LCI      4
      921   04 00310    2A1C03FC              LM,R1    TDATE,R6          MOVE TEXT INFO TO LINE
      922   04 00311    2B1E0001 X            STM,R1   IOBUF+1,R7
      923   04 00312    22300002 A            LI,R3    2
      924   04 00313    22200001 A            LI,R2    1                 SET UP REGS FOR CDATE
      925   04 00314    32100007 A            LW,R1    R7
      926   04 00315    201FFFFE N            AI,R1    IOBUF-2           PUT AT IOBUF+5
      927   04 00316    3150004E 0C           CW,R5    ='NEVE'
      928   04 00317    68300323              BE       DATEL4            EXP DATE IS NEVER
      929   04 00318    6AB002D9              BAL,R11  CDATE             ENTER DATE IN LINE
      930   04 00319    20100002 A   DATEL5   AI,R1    2                 START OF BUFFER
      931   04 0031A    22200028 A            LI,R2    DATE*4+12         LENGTH
      932   04 0031B    32500006 A            LW,R5    R6                SAVE TDATE INDEX
      933   04 0031C    6AB001B9              BAL,R11  LFILE
      934   04 0031D    32600005 A            LW,R6    R5
      935   04 0031E    20A00002 A   DATEL3   AI,R10   2                 INCREMENT DATETBL POINTER
      936   04 0031F    20600004 A            AI,R6    4                 INCREMENT TDATE INDEX
      937   04 00320    64E0030D              BDR,R14  DATEL2            LOOP 4 TIMES
      938   04 00321    88B00007 A            PLW,R11  *R7               RESTORE LINK
      939   04 00322    E800000B A            B        *R11
      940   04 00323    3240004A 0C  DATEL4   LW,R4    ='    '
      941   04 00324    354E0005 X            STW,R4   IOBUF+5,R7
      942   04 00325    355E0006 X            STW,R5   IOBUF+6,R7        PUT 'NEVER' IN LINE
      943   04 00326    B254000A A            LW,R5    *R10,R2
      944   04 00327    355E0007 X            STW,R5   IOBUF+7,R7
      945   04 00328    68000319              B        DATEL5
1* AP * 22:29 JUN 16,'85    PCLLS - PCL LIST                                                      PAGE   12
A     946                                     PAGE
      947                            * SUBROUTINE GRANULE GETS THE GRANULE SIZE FROM FPARAM, CONVERTS IT
      948                            * TO BCD, AND ENTERS THE VALUE IN THE PRINT BUFFER.
      949   04 00329    89B00007 A   GRANULE  PSW,R11  *R7               SAVE LINK REG
      950   04 0032A    89100007 A            PSW,R1   *R7               SAVEER1
      951   04 0032B    B218000A A            LW,R1    *R10,R4           GET NO. OF GRANULES
      952   04 0032C    323E0000 X            LW,R3    SYNFLAG,R7        NO COUNT IF SYNON
      953   04 0032D    69300333              BNE      GRAN1             DONT COUNT IT
      954   04 0032E    323E0000 X            LW,R3    ATTRB,R7          OR SINGLE FILES
      955   04 0032F    69200333              BG       GRAN1
      956   04 00330    33000000 X            MTW,0    DELETEF           OR REVIEW(A)
      957   04 00331    69300333              BNE      GRAN1
      958   04 00332    66100000 X            AWM,R1   GRANCNT           UPDATE GRANULE COUNT
      959   04 00333    6AB00000 X   GRAN1    BAL,R11  BIN2BCD           CONVERT TO BCD
      960   04 00334    88100007 A            PLW,R1   *R7
      961   04 00335    35220001 A            STW,R2   GRAN,R1
      962   04 00336    35320002 A            STW,R3   GRAN+1,R1
      963   04 00337    88B00007 A            PLW,R11  *R7               RESTORE LINK
      964   04 00338    E800000B A            B        *R11              RETURN
      965                            *
      966                            * SUBROUTINE FNAME IS ENTERED ON A '01' VLP CODE.  EXIT IS MADE TO
      967                            * SYNON IF NAME IN FPARAM AND NAME IN DCB DO NOT MATCH.
      968   04 00339    325E0000 X   FNAME    LW,R5    DEVICE,R7         CHECK DEVICE CODE
      969   04 0033A    21500005 A            CI,R5    5                 TEST IF DP.
      970   04 0033B    6830033E              BE       %+3               YES.
      971   04 0033C    21500003 A            CI,R5    3                 RAD FILE
      972   04 0033D    E930000B A            BNE      *R11              NO - EXIT
      973   04 0033E    3240000A A            LW,R4    R10               GET FPARAM ADDRESS
      974   04 0033F    20400001 A            AI,R4    1                 ADDRESS OF NAME
      975   04 00340    F2500004 A            LB,R5    *R4               GET COUNT OF FPARAM NAME
      976   04 00341    71500017 X            CB,R5    M:EI+23           SAME LENGTH AS DCB FILE NAME
      977   04 00342    69300348              BNE      SYNON             NO - MUST BE SYNON
      978   04 00343    723A0017 X            LB,R3    M:EI+23,5         COMPARE NAMES
      979   04 00344    F13A0004 A            CB,R3    *R4,R5
      980   04 00345    69300348              BNE      SYNON
      981   04 00346    64500343              BDR,R5   %-3
      982   04 00347    E800000B A            B        *R11              RETURN
      983   04 00348    223000D2 N   SYNON    LI,R3    IOBUF+210
      984   04 00349    30300007 A            AW,R3    R7                COMPUTE DEST ADR
      985   04 0034A    353E0000 X            STW,R3   SYNFLAG,R7        SAVE ADR OF SYNON NAME
      986   04 0034B    22100008 A            LI,R1    8
      987   04 0034C    B222000A A            LW,R2    *R10,R1           MOVE SYNON TO TEMP AREA
      988   04 0034D    B5220003 A            STW,R2   *R3,R1
      989   04 0034E    6410034C              BDR,R1   %-2
      990   04 0034F    E800000B A            B        *R11              RETURN
      991                            *
      992                            * SUBROUTINE SYNONX GETS THE SYNON FROM FPARAM AND PRINTS THE LINE
      993                            * 'SYNON= XXX'.
      994   04 00350    324E0000 X   SYNONX   LW,R4    SYNFLAG,R7
      995   04 00351    E830000B A            BE       *R11              NO SYNONYM
      996   04 00352    22F00001 A            LI,R15   1                 ONLY ONE
      997   04 00353    7310000B A            MTB,1    R11               FLAG FOR TEXTCC INPUT
      998   04 00354    6A50039D              BAL,R5   WACC20            DO EM
      999   04 00355    084040E2 A            TEXTC    '  SYNON='
            04 00356    E8D5D6D5 A
            04 00357    7E404040 A
     1000                            *
     1001   04 00358    2950034C     GACCT    CVA,R5   RDWREXUN-27       CONVERT CODE TO TBL ADDR
     1002   04 00359    F244000A A            LB,R4    *R10,R2           # WORDS
     1003   04 0035A    35AA0001 A            STW,R10  1,R5              WHERE THEY ARE
     1004   04 0035B    21400001 A            CI,R4    1                 IS THERE ONLY ONE WORD
     1005   04 0035C    69300365              BNE      GACCT1            NO
     1006   04 0035D    02200020 A            LCI      2
     1007   04 0035E    AA20000A A            LM,R2    *R10              WHAT IS IT
     1008   04 0035F    22200004 A            LI,R2    4                 IF ALL OR NONE, POINT TO
     1009   04 00360    69300363     KGCA%4   BNE      %+3               ONE WITH BLANKS AFTER IT
     1010   04 00361    44300363              ANLZ,R3  %+2
     1011   04 00362    353A0001 A            STW,R3   1,R5
     1012   04 00363    3134036A              CW,R3    ALLT-2,R2
     1013   04 00364    64200360              BDR,R2   KGCA%4
     1014   04 00365    354A0000 A   GACCT1   STW,R4   0,R5
     1015   04 00366    E800000B A            B        *R11
     1016   04 00367    00000000 N   RDWREXUN DATA     UNTBL-RDTBL
     1017   04 00368    00000003 A   WR14     DATA     3
     1018   04 00369    00000000 N            DATA     EXTBL-UNTBL+RDTBL
     1019   04 0036A    00000000 N            DATA     WRTBL+UNTBL-EXTBL-RDTBL
     1020   04 0036B    00000000 N            DATA     UNTBL-EXTBL
     1021                                     BOUND    8
     1022   04 0036C    C1D3D340 A   ALLT     TEXT     'ALL  '
            04 0036D    40404040 A
     1023   04 0036E    D5D6D5C5 A   NONET    TEXT     'NONE'
     1024   04 0036F    40404040 A            TEXT     ' '               IS THIS USED?? - KGC
     1025                            *
     1026                            * SUBROUTINE RACCTX GETS READ ACCOUNTS FROM TABLE RDACCT, FORMATS THEM
     1027                            * IN THE PRINT BUFFER, AND PRINTS THE LINE.
     1028   04 00370    32F00000 X   RACCTX   LW,R15   RDTBL
     1029   04 00371    E830000B A            BE       *R11
     1030   04 00372    32400001 X            LW,R4    RDTBL+1           ADDRESS THEREOF
     1031   04 00373    21F00002 A            CI,R15   2                 DONT CHECK FIRST OF MANY
     1032   04 00374    6920037C              BG       RACC10
     1033   04 00375    02200020 A            LCI      2
     1034   04 00376    2A280001 A            LM,R2    1,R4
     1035   04 00377    1120036C              CD,R2    ALLT
     1036   04 00378    6930037C              BNE      RACC10
     1037   04 00379    35000000 X            STW,R0   EXTBL             IGNORE EX INFO IF READ ALL
     1038   04 0037A    35000000 X            STW,R0   UNTBL             AND UNDER
     1039   04 0037B    E800000B A            B        *R11
     1040   04 0037C    6A50039C     RACC10   BAL,R5   WACC19            GO TO ACCOUNT FORMATTER
     1041   04 0037D    074040D9 A            TEXTC    '  READ='
            04 0037E    C5C1C47E A
     1042                            *
     1043                            * SUBROUTINE EACCTX GETS EXECUTE ACCOUNTS FROM TABLE EXACCT,
     1044                            * FORMATS THEM INTO THE PRINT BUFFER, AND PRINTS THE LINE.
     1045   04 0037F    32F00000 X   EACCTX   LW,R15   EXTBL
     1046   04 00380    E830000B A            BE       *R11
     1047   04 00381    32400001 X            LW,R4    EXTBL+1
     1048   04 00382    6A50039C              BAL,R5   WACC19
     1049   04 00383    0A4040C5 A            TEXTC    '  EXECUTE='
            04 00384    E7C5C3E4 A
            04 00385    E3C57E40 A
     1050                            *
     1051                            * SUBROUTINE UACCTX GETS VEHICLE ACCOUNT FROM TABLE UNACCT,
     1052                            * FORMATS THEM INTO THE PRINT BUFFER, AND PRINTS THE LINE.
     1053   04 00386    32F00000 X   UACCTX   LW,R15   UNTBL
     1054   04 00387    E830000B A            BE       *R11              NONE
     1055   04 00388    32400001 X            LW,R4    UNTBL+1
     1056   04 00389    7310000B A            MTB,1    R11               SET UNDER FLAG
     1057   04 0038A    36F00368              DW,R15   WR14              COUNT ENTRIES (3-WORD ONES)
     1058   04 0038B    6A50039D              BAL,R5   WACC20            AND PRINT EM
        1*        00000001                 DO          H02
        2*  04 0038C    084040E4 A            TEXTC    '  UNDER='
            04 0038D    D5C4C5D9 A
            04 0038E    7E404040 A
        3*                                 ELSE
        4*                       *S*          TEXTC    '  VEHICLE='
        5*                                 FIN
     1060                            *
     1061                            * SUBROUTINE WACCTX GETS WRITE ACCOUNTS FROM TABLE WRTACCT, FORMATS
     1062                            * THEM IN THE PRINT BUFFER, AND PRINTS THE LINE.
     1063   04 0038F    32F00000 X   WACCTX   LW,R15   WRTBL
     1064   04 00390    E830000B A            BE       *R11
     1065   04 00391    32400001 X            LW,R4    WRTBL+1
     1066   04 00392    21F00002 A            CI,R15   2                 DONT CHECK FIRST OF NAMY
     1067   04 00393    69200398              BG       WACC10
     1068   04 00394    02200020 A            LCI      2
     1069   04 00395    2A280001 A            LM,R2    1,R4
     1070   04 00396    1120036E              CD,R2    NONET             IS DEFAULT SPECIFIED
     1071   04 00397    E830000B A            BE       *R11              YES - EXIT
     1072   04 00398    6A50039C     WACC10   BAL,R5   WACC19
     1073   04 00399    084040E6 A            TEXTC    '  WRITE='
            04 0039A    D9C9E3C5 A
            04 0039B    7E404040 A
     1074   04 0039C    25F0007F A   WACC19   SLS,R15  -1                2-WORD ENTRIES
     1075   04 0039D    75000005 A   WACC20   STB,R0   R5                CLEAR HEADER COUNT
     1076   04 0039E    32100005 A            LW,R1    R5                PUT OUT HEADER
     1077   04 0039F    680003B9              B        WACC45
     1078   04 003A0    6A1003B9     WACC60   BAL,R1   WACC45            PUT , AFTER EACH
     1079   04 003A1    026B4040 A            TEXTC    ', '
     1080   04 003A2    38100005 A   WACC30   SW,R1    R5                IF HEADER LAST GET IT TOO
     1081   04 003A3    75000005 A            STB,R0   R5                IF NAME IS TOO LONG
     1082   04 003A4    693003A6              BNE      %+2
     1083   04 003A5    75200005 A            STB,R2   R5
     1084   04 003A6    02200020 A   WACC40   LCI      2
     1085   04 003A7    2A280001 A            LM,R2    1,R4              GET ACCOUNT FROM TABLE
     1086   04 003A8    441003A7              ANLZ,R1  WACC40+1
     1087   04 003A9    7300000B A            MTB,0    R11               IF UNDER, ALREADY TEXTC
     1088   04 003AA    693003B8              BNE      WACC44
     1089   04 003AB    22100016 N            LI,R1    IOBUF+22
     1090   04 003AC    30100007 A            AW,R1    R7
     1091   04 003AD    F5300001 A            STB,R3   *R1               LAST BYTE TO TEMP BUFFER
     1092   04 003AE    201FFFFE A            AI,R1    -2                BEG OF TEXTC
     1093   04 003AF    25200178 A            SLD,R2   -8
     1094   04 003B0    4920004F 0C           OR,R2    =X'08000000'      SET UP IN TEXTC FORMAT
     1095   04 003B1    95200001 A            STD,R2   *R1
     1096   04 003B2    22200040 A            LI,R2    ' '               STRIP BLANKS
     1097   04 003B3    F2300001 A            LB,R3    *R1
     1098   04 003B4    F1260001 A            CB,R2    *R1,R3
     1099   04 003B5    693003B7              BNE      %+2
     1100   04 003B6    643003B4              BDR,R3   %-2
     1101   04 003B7    F5300001 A            STB,R3   *R1
     1102   04 003B8    73100001 A   WACC44   MTB,1    R1                SET NAME FLAG
     1103   04 003B9    02200040 A   WACC45   LCI      4
     1104   04 003BA    8BB00007 A            PSM,R11  *R7
     1105   04 003BB    30EE0000 X            AW,R14   RSSAVE,R7         GEN BYTE ADDR
     1106   04 003BC    25E0027E A            SCS,R14  -2                IF PROPER FORMAT
     1107   04 003BD    6AB00000 X            BAL,R11  UNPRINT           ENTER ACCOUNT IN BUFFER
     1108   04 003BE    02200040 A            LCI      4
     1109   04 003BF    8AB00007 A            PLM,R11  *R7
     1110   04 003C0    30E00002 A            AW,R14   R2                ADJUST FOR THIS ONE
     1111   04 003C1    73000001 A            MTB,0    R1                IS THIS NAME OR HEADER
     1112   04 003C2    683003A2              BE       WACC30            HEADER, GET NAME
     1113   04 003C3    321E0000 X            LW,R1    RSSAVE,R7
     1114   04 003C4    21100F10              CI,R1    BA(%)             IF LIST, LIMIT TO M:LO PLATEN
     1115   04 003C5    691003D0              BL       WACC48            ELSE 108 BYTES
     1116   04 003C6    2210FF00 A            LI,R1    X'FF00'
     1117   04 003C7    4B100001 X            AND,R1   M:LO+1
     1118   04 003C8    21109000 A            CI,R1    X'9000'
     1119   04 003C9    693003D0              BNE      WACC48
     1120   04 003CA    22100000 N            LI,R1    BA(JB:PCW)
        1*        00000001                 DO          H02
        2*  04 003CB    72120000 A            LB,R1    0,R1
        3*  04 003CC    693003CE              BNE      %+2
        4*  04 003CD    2210004F A            LI,R1    79
        5*  04 003CE    31E00001 A            CW,R14   R1
        6*                                 ELSE
        7*                       *S*          CB,R14   0,R1
        8*                                 FIN
     1122   04 003CF    680003D1              B        %+2
     1123   04 003D0    21E0006C A   WACC48   CI,R14   108
     1124   04 003D1    692003D8              BG       WACC50
        1*        04 003D2           WACCKGC  EQU,0    %
     1125   04 003D2    20400002 A            AI,R4    2
     1126   04 003D3    7300000B A            MTB,0    R11               IF UNDER, 3 WORD ENTRIES
     1127   04 003D4    683003D6              BE       %+2
     1128   04 003D5    20400001 A            AI,R4    1
     1129   04 003D6    64F003A0              BDR,R15  WACC60            BR IF MORE ACCOUNTS
     1130   04 003D7    E800000B A            B        *R11
        1*  04 003D8    72100005 A   WACC50   LB,R1    R5
        2*  04 003D9    30100002 A            AW,R1    R2
        3*  04 003DA    3220000E A            LW,R2    R14
        4*  04 003DB    38200001 A            SW,R2    R1
        5*  04 003DC    682003D2              BLE      WACCKGC
     1135   04 003DD    321E0000 X            LW,R1    RSSAVE,R7
     1136   04 003DE    2510007E A            SLS,R1   -2
     1137   04 003DF    89B00007 A            PSW,R11  *R7               SAVE RETURN
     1138   04 003E0    6AB001B9              BAL,R11  LFILE
     1139   04 003E1    22E00000 A            LI,R14   0                 RESET SIZE
     1140   04 003E2    88B00007 A            PLW,R11  *R7               RSTORE RETURN
     1141   04 003E3    6800039D              B        WACC20            PUTOUT A NEW HEADER
     1142                            *
     1143                            * BRANCH TABLE ORDERED BY VLP CODE
     1144   04 003E4    6AB00339     VLPTAB   BAL,R11  FNAME             FILE NAME
     1145   04 003E5    02000000 A            NOP                        ACCT
     1146   04 003E6    02000000 A            NOP                        PASSWORD
     1147   04 003E7    6AB002F9              BAL,R11  EDATE             EXPIRATION DATE
     1148   04 003E8    6AB00358              BAL,R11  GACCT             READ ACCOUNTS
     1149   04 003E9    6AB00358              BAL,R11  GACCT             WRITE ACCOUNTS
     1150   04 003EA    02000000 A            NOP                        INSN
     1151   04 003EB    02000000 A            NOP                        OUTSN
     1152   04 003EC    02000000 A            NOP                        ORG
     1153   04 003ED    6AB002DA              BAL,R11  CDATE+1
     1154   04 003EE    6AB00348              BAL,R11  SYNON             SYNON
     1155   04 003EF    02000000 A            NOP
     1156   04 003F0    6AB00329              BAL,R11  GRANULE           GRANULES
     1157   04 003F1    6AB002FB              BAL,R11  MDATE             CREATION DATE
     1158   04 003F2    6AB00301              BAL,R11  ADATE             ACCESS DATE
     1159   04 003F3    6AB002FD              BAL,R11  BDATE             BACKUP DATE
     1160   04 003F4    02000000 A            NOP
     1161   04 003F5    02000000 A            NOP
     1162   04 003F6    02000000 A            NOP
     1163   04 003F7    6AB00358              BAL,R11  GACCT             EXECUTE ACCOUNTS
     1164   04 003F8    6AB00358              BAL,R11  GACCT             EXECUTE VEHICLES
     1165   04 003F9    02000000 A            NOP
     1166   04 003FA    02000000 A            NOP
     1167   04 003FB    02000000 A            NOP
     1168   04 003FC    4040E6C9 A   TDATE    TEXT     '  WILL EXPIRE'
            04 003FD    D3D340C5 A
            04 003FE    E7D7C9D9 A
            04 003FF    C5404040 A
     1169   04 00400    4040C3D9 A            TEXT     '  CREATED  ON'
            04 00401    C5C1E3C5 A
            04 00402    C44040D6 A
            04 00403    D5404040 A
     1170   04 00404    4040C2C1 A            TEXT     '  BACKED UP ON'
            04 00405    C3D2C5C4 A
            04 00406    40E4D740 A
            04 00407    D6D54040 A
     1171   04 00408    4040D3C1 A            TEXT     '  LAST ACCESS ON'
            04 00409    E2E340C1 A
            04 0040A    C3C3C5E2 A
            04 0040B    E240D6D5 A
     1172   04 0040C    405C5CC6 A   FILEBUSY TEXT     ' **FILE BUSY**      '
            04 0040D    C9D3C540 A
            04 0040E    C2E4E2E8 A
            04 0040F    5C5C4040 A
            04 00410    40404040 A
     1173   04 00411    405CC9D5 A   INACCM   TEXT     ' *INACCESSIBLE* '
            04 00412    C1C3C3C5 A
            04 00413    E2E2C9C2 A
            04 00414    D3C55C40 A
     1174   04 00415    2CD6D9C7 A   LISTHEAD TEXTC    'ORG    GRAN     REC    LAST MODIFIED    NAME'
            04 00416    40404040 A
            04 00417    C7D9C1D5 A
            04 00418    40404040 A
            04 00419    40D9C5C3 A
            04 0041A    40404040 A
            04 0041B    D3C1E2E3 A
            04 0041C    40D4D6C4 A
            04 0041D    C9C6C9C5 A
            04 0041E    C4404040 A
            04 0041F    40D5C1D4 A
            04 00420    C5404040 A
     1175   04 00421    2CC6D4E3 A   LISTHAT  TEXTC    'FMT     BLK     REC     FSN  BLOCKS     NAME'
            04 00422    40404040 A
            04 00423    40C2D3D2 A
            04 00424    40404040 A
            04 00425    40D9C5C3 A
            04 00426    40404040 A
            04 00427    40C6E2D5 A
            04 00428    4040C2D3 A
            04 00429    D6C3D2E2 A
            04 0042A    40404040 A
            04 0042B    40D5C1D4 A
            04 0042C    C5404040 A
     1176                            *
     1177         04 0042C           MONTH    EQU      %-1
     1178   04 0042D    40D1C1D5 A            TEXT     ' JAN'
     1179   04 0042E    40C6C5C2 A            TEXT     ' FEB'
     1180   04 0042F    40D4C1D9 A            TEXT     ' MAR'
     1181   04 00430    40C1D7D9 A            TEXT     ' APR'
     1182   04 00431    40D4C1E8 A            TEXT     ' MAY'
     1183   04 00432    40D1E4D5 A            TEXT     ' JUN'
     1184   04 00433    40D1E4D3 A            TEXT     ' JUL'
     1185   04 00434    40C1E4C7 A            TEXT     ' AUG'
     1186   04 00435    40E2C5D7 A            TEXT     ' SEP'
     1187   04 00436    40D6C3E3 A            TEXT     ' OCT'
     1188   04 00437    40D5D6E5 A            TEXT     ' NOV'
     1189   04 00438    40C4C5C3 A            TEXT     ' DEC'
     1190   04 00439    C3C300D9 A   ORGN     DATA     'CCKR'-'K'**8
     1191   04 0043A    E4C6C4E5 A            DATA     'UFDV','U***','****','****'
            04 0043B    E45C5C5C A
            04 0043C    5C5C5C5C A
            04 0043D    5C5C5C5C A
1* AP * 22:29 JUN 16,'85    PCLLS - PCL LIST                                                      PAGE   13
A    1192                                     PAGE
     1193   04 0043E    22100001 A   LISTFT   LI,R1    1
     1194   04 0043F    311E0001 X            CW,R1    DEVICE+1,R7       WAS ONLY ONE INSN SPECIFIED
     1195   04 00440    68300444              BE       LISTFT2           YES
     1196   04 00441    2210001F A            LI,R1    31
     1197   04 00442    6AB00000 X            BAL,R11  ERROR             REPORT ERROR - MORE THAN ONE INSN
     1198   04 00443    6800029E              B        RETURN
     1199   04 00444    22100000 A   LISTFT2  LI,R1    0
     1200   04 00445    6AB00000 X            BAL,R11  BLDCB             BUILD M:EI AND OPEN
     1201   04 00446    21D00001 A            CI,R13   1
     1202   04 00447    6920029E              BG       RETURN            ERROR ON OPEN - EXIT
     1203   04 00448    0410001E 05           CAL1,1   FPTREW            REWIND
     1204   04 00449    0410004F 0A           CAL1,1   SPFPT             SPACE FORWARD ONE FILE
     1205   04 0044A    04100489              CAL1,1   SETEIDCB          SET ERR AND ABN ADDRESSES
     1206   04 0044B    04100486              CAL1,1   SKIPREC           BACK OVER HEADER RECORDS
     1207   04 0044C    04100486              CAL1,1   SKIPREC
     1208   04 0044D    04100486              CAL1,1   SKIPREC
     1209   04 0044E    22100001 N            LI,R1    PRTBUF+1          FIRST BUFFER ADDR
     1210   04 0044F    30100007 A            AW,R1    R7
     1211   04 00450    0410048D              CAL1,1   RDACN             READ LABEL REC
     1212   04 00451    32220000 A            LW,R2    0,R1
     1213   04 00452    31200050 0C           CW,R2    =':LBL'           LABEL REC
     1214   04 00453    6930047B              BNE      LISTFT7           NO
     1215   04 00454    201FFFFF A            AI,R1    -1                BUFFER FOR MSG (PRTBUF)
     1216   04 00455    02200020 A            LCI      2
     1217   04 00456    2A200493              LM,R2    INSN
     1218   04 00457    2B2E0000 X   PRTBUFI7 STM,R2   PRTBUF,R7         SET UP PRINT LINE
     1219   04 00458    2220000B A            LI,R2    11                LINE LENGTH
     1220   04 00459    22300001 A            LI,R3    1                 BTD
     1221   04 0045A    22600000 N            LI,R6    M:LO
     1222   04 0045B    04100009 05           CAL1,1   FPTLFILE          PRINT INSN
     1223   04 0045C    20100004 A            AI,R1    4                 :ACN BUFFER (PRTBUF+4)
     1224   04 0045D    0410048D              CAL1,1   RDACN             READ ACCT REC
     1225   04 0045E    32520000 A            LW,R5    0,R1
     1226   04 0045F    31500051 0C           CW,R5    =':ACN'           IS REC ACCT REC
     1227   04 00460    6930047B              BNE      LISTFT7           NO
     1228   04 00461    02200020 A            LCI      2
     1229   04 00462    2A500495              LM,R5    ACCT
     1230   04 00463    2B5E0003 X            STM,R5   PRTBUF+3,R7
     1231   04 00464    201FFFFF A            AI,R1    -1
     1232   04 00465    2220000F A            LI,R2    15                LINE LENGTH
     1233   04 00466    22600000 N            LI,R6    M:LO
     1234   04 00467    04100009 05           CAL1,1   FPTLFILE          PRINT ACCOUNT
     1235   04 00468    0410001E 05           CAL1,1   FPTREW            REWIND THE TAPE
     1236   04 00469    322E0002 X            LW,R2    PRTBUF+2,R7       CHECK FOR SAME SN AS FT
     1237   04 0046A    31200000 X            CW,R2    M:EISN
     1238   04 0046B    6830046D              BE       %+2
     1239   04 0046C    0410001F 05           CAL1,1   FPTREW1           REMOVE IF DIFFERENT SN
     1240   04 0046D    6AB00000 X            BAL,R11  CLOSEI
     1241   04 0046E    33EE0000 X            MTW,-2   DEVICE,R7         CHANGE TO LT
     1242   04 0046F    22100008 N            LI,R1    PRTBUF+PRTBUF+PRTBUF+PRTBUF+8
     1243   04 00470    351E0002 X            STW,R1   DEVICE+2,R7       POINT TO SN
     1244   04 00471    332E0000 X            MTW,2    FILE,R7           SET ACCOUNT ONLY
     1245   04 00472    2010000B A            AI,R1    11                POINT TO ACCOUNT
     1246   04 00473    351E0001 X            STW,R1   FILE+1,R7
     1247   04 00474    3210047A              LW,R1    DOTS              TERMINATE STUFF
     1248   04 00475    351E0003 X            STW,R1   PRTBUF+3,R7
     1249   04 00476    351E0004 X            STW,R1   PRTBUF+4,R7
     1250   04 00477    351E0007 X            STW,R1   PRTBUF+7,R7
     1251   04 00478    351E0000 X            STW,R1   MAXCMBX,R7        SET LIMIT
     1252   04 00479    6800003F              B        LIST20            AND USE LIST LOGIC
     1253   04 0047A    4B4B4B4B A   DOTS     TEXT     '....'
     1254                            *
     1255   04 0047B    72200497     LISTFT7  LB,R2    UNLABEL           UNLABELED TAPE
     1256   04 0047C    22100497              LI,R1    UNLABEL
     1257   04 0047D    22300001 A            LI,R3    1                 BTD
     1258   04 0047E    22600000 N            LI,R6    M:LO              SET UP DCB
     1259   04 0047F    04100009 05           CAL1,1   FPTLFILE          PRINT -UNLABELED TAPE-
     1260   04 00480    6800029E              B        RETURN            EXIT
     1261                            *
     1262   04 00481    7220000A A   FTABN    LB,R2    R10               GET ABN CODE
     1263   04 00482    21200007 A            CI,R2    7
     1264   04 00483    E8300008 A            BE       *R8               LOST DATA IS OK
     1265   04 00484    22100000 A            LI,R1    0
     1266   04 00485    68000037              B        LIST6             REPORT ERROR AND QUIT
     1267   04 00486    1D000000 X   SKIPREC  GEN,8,7,17 X'1D',0,M:EI
     1268   04 00487    80000010 A            DATA     X'80000010'
     1269   04 00488    00000001 A            DATA     1
     1270   04 00489    06000000 N   SETEIDCB GEN,8,24 6,M:EI
     1271   04 0048A    C0000000 A            DATA     X'C0000000'
     1272   04 0048B    00000481              DATA     FTABN
     1273   04 0048C    00000481              DATA     FTABN
     1274   04 0048D    10000000 X   RDACN    GEN,8,7,17 X'10',0,M:EI
     1275   04 0048E    F0000010 A            DATA     X'F0000010'
     1276   04 0048F    00000481              DATA     FTABN
     1277   04 00490    00000481              DATA     FTABN
     1278   04 00491    80000001 A            PZE      *R1
     1279   04 00492    00000018 A            DATA     24
     1280   04 00493    40C9D5E2 A   INSN     TEXT     ' INSN = '
            04 00494    D5407E40 A
     1281   04 00495    40C1C3C3 A   ACCT     TEXT     ' ACCT = '
            04 00496    E3407E40 A
     1282   04 00497    0EE4D5D3 A   UNLABEL  TEXTC    'UNLABELED TAPE'
            04 00498    C1C2C5D3 A
            04 00499    C5C440E3 A
            04 0049A    C1D7C540 A
1* AP * 22:29 JUN 16,'85    PCLLS - PCL LIST                                                      PAGE   14
A    1283                                     PAGE     'REM-REW'
     1284   06 00000                 REW      DSECT    1                 REWIND
     1285   06 00000    02200070 A            LCI      7
     1286   06 00001    8B500007 A            PSM,R5   *R7               SAVE REGISTERS
     1287   06 00002    6AB00000 X            BAL,R11  CLRARG            CLEAR ARGUMENT TABLE
     1288   06 00003    333E0000 X            MTW,3    DEVICE,R7         DEFAULT FT
     1289   06 00004    321E0000 X            LW,R1    TERM,R7
     1290   06 00005    2110007B A            CI,R1    '#'
     1291   06 00006    68300009              BE       %+3               SPECIAL FT FORM
     1292   06 00007    21100040 A            CI,R1    ' '
     1293   06 00008    69300013              BNE      REW7
     1294   06 00009    6AB00000 X            BAL,R11  DEVTRAN           GET DEVICE CODE AND REEL NO
     1295   06 0000A    321E0000 X            LW,R1    DEVICE,R7
     1296   06 0000B    21100004 A            CI,R1    4                 MUST BE LT,FT,AT OR DP
     1297   06 0000C    6910000F              BL       REWA              ERROR
     1298   06 0000D    21100007 A            CI,R1    7
     1299   06 0000E    68200011              BLE      REW1              OK
     1300   06 0000F    22100022 A   REWA     LI,R1    34                INVALID DEVICE SPECIFICATION
     1301   06 00010    6800007C              B        REW2+1
     1302   06 00011    21D00001 A   REW1     CI,R13   1                 ERROR DETECTED
     1303   06 00012    6920029E 04           BG       RETURN            YES
     1304   06 00013    325E0001 X   REW7     LW,R5    DEVICE+1,R7       GET # OF SNS
     1305   06 00014    21500001 A            CI,R5    1                 REWIND PERMITS ONLY ONE
     1306   06 00015    68200018              BLE      %+3
     1307   06 00016    21C00006 A            CI,R12   6                 REMOVE MORE IS OK
     1308   06 00017    6930002A 09           BNE      SPE5-1
     1309   06 00018    321E0000 X            LW,R1    TERM,R7
     1310   06 00019    21100015 A            CI,R1    X'15'             ANOTHER REEL NO. FOLLOW
     1311   06 0001A    68300040              BE       REW6              NO
     1312   06 0001B    2110004D A            CI,R1    '('               OPTION FOLLOW
     1313   06 0001C    68300027              BE       REWB              YES
     1314   06 0001D    322E0000 X            LW,R2    DEVICE,R7
     1315   06 0001E    21200007 A            CI,R2    7                 ANS TAPE
     1316   06 0001F    6930007B              BNE      REW2              NO - ERROR
     1317   06 00020    21100061 A            CI,R1    '/'               DOES FILE NAME FOLLOW
     1318   06 00021    68300025              BE       REWC              YES, USE IT
     1319   06 00022    20500000 A            AI,R5    0                 NO, BETTER HAVE SN
     1320   06 00023    6830007B              BE       REW2              NONE, ERROR
     1321   06 00024    68000040              B        REW6              GO ONE, USE IT
     1322   06 00025    6AB00000 X   REWC     BAL,R11  FILTRAN           GO GET FILE NAME
     1323   06 00026    68000040              B        REW6
     1324   06 00027    6AB00141 04  REWB     BAL,R11  GETARG6           GET OPTION
     1325   06 00028    321E0000 X            LW,R1    TERM,R7
     1326   06 00029    2110005D A            CI,R1    ')'               CORRECT DELIMITER
     1327   06 0002A    6930007B              BNE      REW2              NO, ERROR
     1328   06 0002B    322E0000 X            LW,R2    ARGBUFF,R7        GET OPTION
     1329   06 0002C    31200037              CW,R2    RINGT             IS IT RING
     1330   06 0002D    68300038              BE       REW3              YES
     1331   06 0002E    73E00002 A            MTB,-2   R2                IS IT 2 CHARS
     1332   06 0002F    6930007B              BNE      REW2              NO
     1333   06 00030    202000A3 A            AI,R2    'T'-' '           MAKE LAST CHAR A 'T'
     1334   06 00031    25200178 A            SLD,R2   -8
     1335   06 00032    71200003 A            CB,R2    R3                IS LAST CHAR A 'T'
     1336   06 00033    6930007B              BNE      REW2              NO
     1337   06 00034    462E0000 X            XW,R2    IN%ARG,R7         SET RESOUREC TYPE
     1338   06 00035    6930007B              BNE      REW2              ALREADY SET
     1339   06 00036    68000040              B        REW6
     1340   06 00037    04D9C9D5 A   RINGT    TEXTC    'RING'
            06 00038    C7404040 A
     1341   06 00039                          RES      -1
     1342   06 00038    22100008 A   REW3     LI,R1    8                 RING, USE INOUT OPEN
     1343   06 00039    68000041              B        REW6+1
     1344   06 0003A    6AB00141 04           BAL,R11  GETARG6           GET NULL FIELD
     1345   06 0003B    330E0000 X            MTW,0    NCHAR,R7          IS FIELD NULL
     1346   06 0003C    6930007B              BNE      REW2              NO - SYNTAX ERROR
     1347   06 0003D    322E0000 X            LW,R2    TERM,R7
     1348   06 0003E    21200061 A            CI,R2    '/'               DOES FILE NAME FOLLOW
     1349   06 0003F    68300025              BE       REWC              YES
     1350   06 00040    22100000 A   REW6     LI,R1    0
     1351   06 00041    322E0000 X            LW,R2    DEVICE,R7
     1352   06 00042    21200005 A            CI,R2    5
     1353   06 00043    69200046              BG       REW5              FT OR AT
     1354   06 00044    68300064              BE       REW8              DP
     1355   06 00045    332E0000 X            MTW,2    DEVICE,R7         CHANGE LT TO FT
     1356   06 00046    21200007 A   REW5     CI,R2    7                 IF AT, USE OPNNXT
     1357   06 00047    6930004B              BNE      KGC6%4            UNLESS FILE SPECIFIED
     1358   06 00048    330E0000 X            MTW,0    FILE,R7
     1359   06 00049    6930004B              BNE      %+2
     1360   06 0004A    20100400 A            AI,R1    X'400'
     1361   06 0004B    21C00006 A   KGC6%4   CI,R12   6                 IF REMOVE DO TEST OPN
     1362   06 0004C    6930004E              BNE      %+2
     1363   06 0004D    49100052 0C           OR,R1    =X'80000'
        1*  06 0004E    32500000 X            LW,R5    MAXSEV
     1364   06 0004F    6AB00000 X            BAL,R11  BLDCB             GO BUILD INPUT DCB
     1365   06 00050    73E0000A A            MTB,-2   R10               IF END OF ALL FILES
     1366   06 00051    68300059              BE       REW9              TRY ONE MORE TIME
     1367   06 00052    21D00001 A            CI,R13   1                 ERROR DETECTED
     1368   06 00053    6920029E 04           BG       RETURN            YES-RETURN
     1369   06 00054    21C00007 A            CI,R12   7                 CHECK COMMAND TYPE
     1370   06 00055    69100070              BL       REW4              REMOVE(6)
     1371   06 00056    6920029E 04           BG       RETURN            MOUNT(2832)
     1372   06 00057    0410001E 05           CAL1,1   FPTREW            NO-REWIND
     1373   06 00058                          USECT    PLSECT
     1374   05 0001E    01000000 X   FPTREW   GEN,8,7,17 X'01',0,M:EI
     1375                            *
     1376   05 0001F                          USECT    REW
     1377   06 00058    6800029E 04           B        RETURN            RETURN
        1*  06 00059    35500000 X   REW9     STW,R5   MAXSEV
        2*  06 0005A    33F00000 X            MTW,-1   ERRFLAG
     1379   06 0005B    22D00000 A            LI,R13   0                 CLEAR ERROR
     1380   06 0005C    21C00006 A            CI,R12   6                 BUT ONLY IF REMOVE
     1381   06 0005D    6930029E 04           BNE      RETURN            OF ANS TAPE
     1382   06 0005E    6AB00000 08           BAL,R11  OPNNXT
     1383   06 0005F    20A00000 A            AI,R10   0
        1*  06 00060    6830006F              BE       REW4KGC           FIX BAD STEP CODE ON
     1385   06 00061    22100000 A            LI,R1    0
     1386   06 00062    6AB00000 X            BAL,R11  ERROR
     1387   06 00063    6800029E 04           B        RETURN
     1388   06 00064    21C00007 A   REW8     CI,R12   7
     1389   06 00065    6830000F              BE       REWA              REW - ERROR FOR DP
     1390   06 00066    69200048              BG       REW5+2            MOUNT
     1391   06 00067    330E0001 X            MTW,0    DEVICE+1,R7
     1392   06 00068    6830007B              BE       REW2              MUST HAVE SN FOR DP
     1393   06 00069    22100004 A            LI,R1    4                 OPEN NEXT, INPUT
     1394   06 0006A    6AB00000 X            BAL,R11  BLDCB
     1395   06 0006B    32100053 0C           LW,R1    =X'00200000'
     1396   06 0006C    31100000 X            CW,R1    M:EI              WAS FILE OPENED
     1397   06 0006D    6840029E 04           BAZ      RETURN            NO - RELEASED BY OPEN
        1*  06 0006E    68000070              B        REW4
        2*  06 0006F    35A00000 X   REW4KGC  STW,R10  MAXSEV            REM AT#... IN BATCH
     1398   06 00070    0410001F 05  REW4     CAL1,1   FPTREW1
     1399   06 00071    32500000 X            LW,R5    INSER             CLEAR SN OF REMOVED DEVICE
     1400   06 00072    6AB00000 X            BAL,R11  CLOSEI
     1401   06 00073    22100000 N            LI,R1    INSER
     1402   06 00074    31500000 X            CW,R5    INSER
     1403   06 00075    68300079              BE       KGC7%4
     1404   06 00076    31500000 X            CW,R5    OUTSER
     1405   06 00077    6930029E 04           BNE      RETURN
     1406   06 00078    22100000 N            LI,R1    OUTSER
     1407   06 00079    35020000 A   KGC7%4   STW,R0   0,R1
     1408   06 0007A    6800029E 04           B        RETURN
     1409   06 0007B    22100011 A   REW2     LI,R1    17                SYNTAX ERROR
     1410   06 0007C    6AB00000 X            BAL,R11  ERROR
     1411   06 0007D    6800029E 04           B        RETURN            EXIT
     1412                            *
     1413   06 0007E                          USECT    PLSECT
     1414   05 0001F    15000000 X   FPTREW1  GEN,8,7,17 X'15',0,M:EI
     1415   05 00020    00000020 A            DATA     X'20'             REMOVE
1* AP * 22:29 JUN 16,'85    PCLLS - PCL LIST                                                      PAGE   15
A    1416                                     PAGE     'WRITE END OF FILE'
     1417                            *
     1418   07 00000                 WEOF     DSECT    1
     1419   07 00000    02200070 A            LCI      7
     1420   07 00001    8B500007 A            PSM,R5   *R7
     1421   07 00002    321E0000 X            LW,R1    TERM,R7
     1422   07 00003    21100015 A            CI,R1    X'15'             PARAMETERS PRESENT
     1423   07 00004    69300014              BNE      WEOF2             YES, GETEM
     1424   07 00005    22100000 N            LI,R1    M:EO              ASSUME EO
     1425   07 00006    330E0000 X            MTW,0    TOSWT,R7
     1426   07 00007    6930000C              BNE      WEOF1             GOOD GUESS
     1427   07 00008    52100001 X            LH,R1    M:EI+1            NO OUT, IS EI INOUT (SPE)
     1428   07 00009    21100008 A            CI,R1    8
     1429   07 0000A    68400024              BAZ      WEOF3             NOTHING TO WRITE ON
     1430   07 0000B    22100000 N            LI,R1    M:EI
     1431   07 0000C    04100010     WEOF1    CAL1,1   SETEOF            SET ERR/ABN IN DCB
     1432   07 0000D    0410000F              CAL1,1   FPTWEOF           WRITE AN EOF
     1433   07 0000E    6800029E 04           B        RETURN
     1434   07 0000F    82000001 A   FPTWEOF  GEN,8,24 X'82',1
     1435   07 00010    86000001 A   SETEOF   GEN,8,24 X'86',1           SETDCB *R1
     1436   07 00011    C0000000 A            DATA     X'C0000000',WEOFER,WEOFER
            07 00012    00000026
            07 00013    00000026
     1437                            *
     1438   07 00014    6AB00000 X   WEOF2    BAL,R11  CLRARG
     1439   07 00015    333E0000 X            MTW,3    DEVICE,R7         DEFAULT FT
     1440   07 00016    22C00001 A            LI,R12   1                 SET OUTPUT FLAG
     1441   07 00017    6AB00000 X            BAL,R11  DEVTRAN
     1442   07 00018    322E0000 X            LW,R2    DEVICE,R7
     1443   07 00019    21200006 A            CI,R2    6                 MUST BE FT,LP,CP OR PP
     1444   07 0001A    6830001D              BE       %+3
     1445   07 0001B    21200009 A            CI,R2    9
     1446   07 0001C    6910000F 06           BL       REWA
     1447   07 0001D    22100001 A            LI,R1    1                 BUILD OUTPUT DCB
     1448   07 0001E    6AB00000 X            BAL,R11  BLDCB
     1449   07 0001F    21D00002 A            CI,R13   2                 GIVE UP
     1450   07 00020    6810029E 04           BGE      RETURN            YUP
     1451   07 00021    22100000 N            LI,R1    M:EO
     1452   07 00022    351E0000 X            STW,R1   TOSWT,R7          SET DEVICE OUT THERE
     1453   07 00023    6800000C              B        WEOF1
     1454                            *
     1455   07 00024    22100014 A   WEOF3    LI,R1    20                NO DEFINED OUTPUT DEVICE
     1456   07 00025    6800007C 06           B        REW2+1
     1457                            *
     1458   07 00026    22100000 A   WEOFER   LI,R1    0                 IO ERROR
     1459   07 00027    6800007C 06           B        REW2+1
1* AP * 22:29 JUN 16,'85    PCLLS - PCL LIST                                                      PAGE   16
A    1460                                     PAGE     'OPEN NEXT M:EI AND CHECK THAT NAME CHANGES'
     1461                            *
     1462   08 00000                 OPNNXT   DSECT    1
     1463   08 00000    02200020 A            LCI      2                 SAVE REGS
     1464   08 00001    8B800007 A            PSM,R8   *R7
     1465   08 00002    22800100 A            LI,R8    X'100'
     1466   08 00003    51800017 X            CH,R8    M:EI+23           IF NO FILE NAME NOW, MUST
     1467   08 00004    6830001C              BE       OPNX9             ALREADY HAVE ERROR
     1468   08 00005    32800054 0C           LW,R8    =X'C0000400'      OPNNXT,ERR,ABN
     1469   08 00006    35800001 X            STW,R8   OPNXFPT+1
     1470   08 00007    22800017              LI,R8    OPNX1             ERR,ABN ADDR
     1471   08 00008    35800002 X            STW,R8   OPNXFPT+2
     1472   08 00009    35800003 X            STW,R8   OPNXFPT+3
     1473   08 0000A    22800000 N            LI,R8    TLBLSIZE          SET TLABEL SIZE
     1474   08 0000B    75800000 X            STB,R8   TLABEL
     1475   08 0000C    32A0000B X            LW,R10   M:EI+11           CLEAR FPARAM
     1476   08 0000D    B500000A A            STW,R0   *R10
     1477   08 0000E    35000001 X            STW,R0   TLABEL+1          CLEAR RANDOM ID
     1478   08 0000F    22A00000 A            LI,R10   0
     1479   08 00010    22900000 N            LI,R9    BA(OPNXFPT+5)
     1480   08 00011    49900055 0C           OR,R9    =X'20000000'      MOVE 32 BYTES
     1481   08 00012    22800000 N            LI,R8    BA(M:EI+23)
     1482   08 00013    61800000 A            MBS,R8   0
     1483   08 00014    04100000 X            CAL1,1   OPNXFPT
     1484   08 00015    49B00055 0C           OR,R11   =X'20000000'      SET GOOD RETURN IF OPEN
     1485   08 00016    6800001C              B        OPNX9
     1486   08 00017    209FFFE0 A   OPNX1    AI,R9    -32               BACK TO START OF FILE NAME
     1487   08 00018    22800000 N            LI,R8    BA(M:EI+23)
     1488   08 00019    30900055 0C           AW,R9    =X'20000000'      COMPARE 32 BYTES
     1489   08 0001A    60800000 A            CBS,R8   0
     1490   08 0001B    7400000B A            STCF     R11
     1491   08 0001C    7280000A A   OPNX9    LB,R8    R10               SET CC=8 IF END OF ALL FILES
     1492   08 0001D    21800002 A            CI,R8    2
     1493   08 0001E    69300020              BNE      %+2
     1494   08 0001F    49B0004C 0C           OR,R11   =X'80000000'
     1495   08 00020    02200020 A            LCI      2
     1496   08 00021    8A800007 A            PLM,R8   *R7
     1497   08 00022    7020000B A            LC       R11               SET CC
     1498   08 00023    E800000B A            B        *R11
1* AP * 22:29 JUN 16,'85    PCLLS - PCL LIST                                                      PAGE   17
A    1499                                     PAGE     'SPACE AFTER LAST FILE'
     1501   09 00000                 SPE      DSECT    1
     1502   09 00000    02200070 A            LCI      7
     1503   09 00001    8B500007 A            PSM,R5   *R7               SAVE REGISTERS
     1504   09 00002    6AB00000 X            BAL,R11  CLRARG            CLEAN -ARGTBL-
     1505   09 00003    6AB00000 X            BAL,R11  DEVTRAN           GO-TRANSLATE DEVICE
     1506   09 00004    322E0000 X            LW,R2    DEVICE,R7
     1507   09 00005    21200004 A            CI,R2    4                 LT SPECIFICATION
     1508   09 00006    6830000C              BE       SPE1              YES
     1509   09 00007    22100022 A            LI,R1    34                ERROR-NOT LT SPECICATION
     1510   09 00008    21200007 A            CI,R2    7                 AT
     1511   09 00009    6830000C              BE       SPE1
     1512   09 0000A    21200006 A            CI,2     6                 OR FT
     1513   09 0000B    6930002B              BNE      SPE5
     1514   09 0000C    2210001F A   SPE1     LI,R1    31
     1515   09 0000D    322E0001 X            LW,R2    DEVICE+1,R7       CHECK ONE MAX SN
     1516   09 0000E    6420002B              BDR,R2   SPE5
     1517   09 0000F    21D00001 A            CI,R13   1                 ANY ERRORS
     1518   09 00010    6810002C              BGE      SPE51             YES, ABORT BATCH JOB
     1519   09 00011    22801400 A            LI,R8    X'1400'           MIGHT GET NO-RING-IN-MIDDLE-OF-REEL
     1520   09 00012    2210001E A            LI,R1    30                CHECK TERMINATION
     1521   09 00013    322E0000 X            LW,R2    TERM,R7
     1522   09 00014    21200015 A            CI,R2    X'15'
     1523   09 00015    6930002B              BNE      SPE5              NOT RIGHT
     1524   09 00016    2210000C A   SPE7     LI,R1    X'C'              INOUT-UPDATE,OPEN NEXT
     1525   09 00017    6AB00000 X            BAL,R11  BLDCB
     1526   09 00018    22900000 A            LI,R9    0                 INITIALIZE FILE COUNT
     1527   09 00019    5180000A A            CH,R8    R10
     1528   09 0001A    69300020              BNE      SPE8              NO
     1529   09 0001B    0410004E              CAL1,1   OPNIFT            YES, REWIND FIRST
     1530   09 0001C    228FFFFF A            LI,R8    -1                ONLY DO THIS ONCE
     1531   09 0001D    0410001E 05           CAL1,1   FPTREW
     1532   09 0001E    6AB00000 X            BAL,R11  CLOSEI
     1533   09 0001F    68000016              B        SPE7
     1534   09 00020    32200000 X   SPE8     LW,R2    M:EI              IF DEVICE
     1535   09 00021    21200001 A            CI,R2    1                 MUST USE SPF,READ LOOP
     1536   09 00022    69400053              BANZ     SPE4
     1537   09 00023    6AB00000 X   SPE3     BAL,R11  CLOSEI            GO-CLOSE THE FILE
     1538   09 00024    20900001 A            AI,R9    1                 COUNT FILES SKIPPED
     1539   09 00025    33000000 X            MTW,0    BREAK
     1540   09 00026    69300033              BNE      SPE6              GIVE UP
     1541   09 00027    6AB00000 08           BAL,R11  OPNNXT            TRY TO OPEN NEXT FILE
     1542   09 00028    69800033              BCS,8    SPE6              GOT 02 ABN, ALL DONE
     1543   09 00029    69300023              BNE      SPE3              AT LEAST THE NAME CHANGED
     1544   09 0002A    22100000 A   SPEEX    LI,R1    0                 IO ERROR
     1545   09 0002B    6AB00000 X   SPE5     BAL,R11  ERROR
     1546   09 0002C    22D00004 A   SPE51    LI,R13   4                 ABORT BATCH JOB
     1547   09 0002D    6800029E 04           B        RETURN
     1548   09 0002E    4B4B406C A   SKIPTXT  TEXT     '.. % FILES SKIPPED
'
            09 0002F    40C6C9D3 A
            09 00030    C5E240E2 A
            09 00031    D2C9D7D7 A
            09 00032    C5C41540 A
     1549   09 00033    2250002E     SPE6     LI,R5    SKIPTXT
     1550   09 00034    6AB00000 X            BAL,R11  PRTNOF
     1551   09 00035    22100001 A            LI,R1    1
     1552   09 00036    31100000 X            CW,R1    M:EI              IF DEVICE NPO NAME
     1553   09 00037    6940029E 04           BANZ     RETURN
     1554   09 00038    02200040 A            LCI      4
     1555   09 00039    2A10004A              LM,R1    LASTFN            PUT LAST FILE NAME TOO
     1556   09 0003A    2B100000 X            STM,R1   TLABEL
     1557   09 0003B    35200004 X            STW,R2   TLABEL+4
     1558   09 0003C    22E00004 N            LI,R14   TLABEL+4
     1559   09 0003D    22100017 N            LI,R1    M:EI+23
     1560   09 0003E    6AB00000 X            BAL,R11  UNPRINT
     1561   09 0003F    20200011 A            AI,R2    17
     1562   09 00040    22300015 A            LI,R3    X'15'             ADD NEWLINE IF ONLINE
     1563   09 00041    75340000 X            STB,R3   TLABEL,R2
     1564   09 00042    22600000 N            LI,R6    M:LO
     1565   09 00043    22100000 N            LI,R1    TLABEL            BUFFER ADDRESS
     1566   09 00044    72300000 X            LB,R3    J:JIT             GET TYPE, SET BTD
     1567   09 00045    68300048              BE       %+3
     1568   09 00046    22600000 N            LI,R6    M:UC
     1569   09 00047    20200001 A            AI,R2    1
     1570   09 00048    04100009 05           CAL1,1   FPTLFILE
     1571   09 00049    6800029E 04           B        RETURN
     1572   09 0004A    D3C1E2E3 A   LASTFN   TEXT     'LAST FILE NAME ='
            09 0004B    40C6C9D3 A
            09 0004C    C540D5C1 A
            09 0004D    D4C5407E A
     1573   09 0004E    14000000 N   OPNIFT   GEN,8,24 20,M:EI           OPEN INPUT,DEVICE
     1574   09 0004F    C1000400 A            DATA     X'C1000400'       INPUT, NXTF
     1575   09 00050    00000016              DATA     SPE7,SPE7         TRY AGAIN
            09 00051    00000016
     1576   09 00052    00000001 A            DATA     1                 INPUT
     1577   09 00053    32200053 0C  SPE4     LW,R2    =X'00200000'
     1578   09 00054    31200000 X            CW,R2    M:EI              IF NOT OPEN, PRINT IO ERROR
     1579   09 00055    6840002A              BAZ      SPEEX
     1580   09 00056    04100486 04           CAL1,1   SKIPREC           SKIP BACK IN CASE AT END NOW
     1581   09 00057    0410004F 0A  KGCB%4   CAL1,1   SPFPT             SKIP ONE FILE
     1582   09 00058    20900001 A            AI,R9    1
     1583   09 00059    0410005B 0A           CAL1,1   SPRFPT            READ A RECORD, ABNS IF AT END
     1584   09 0005A    33000000 X            MTW,0    BREAK
     1585   09 0005B    68300057              BE       KGCB%4            NO MARK HERE, TRY NEXT ONE
     1586   09 0005C    04100486 04  SPE9     CAL1,1   SKIPREC           SKIP BACK OVER SECOND MARK
     1587   09 0005D    68000033              B        SPE6              AND RETURN
1* AP * 22:29 JUN 16,'85    PCLLS - PCL LIST                                                      PAGE   18
A    1588                                     PAGE     'SPACE FILE'
     1590   0A 00000                 SPF      DSECT    1                 SPACE FILE
     1591   0A 00000    02200070 A            LCI      7
     1592   0A 00001    8B500007 A            PSM,R5   *R7               SAVE REGISTERS
     1593   0A 00002    6AB00000 X            BAL,R11  CLRARG            ZERO -ARGTBL-
     1594   0A 00003    333E0000 X            MTW,3    DEVICE,R7         FT DEFAULT
     1595   0A 00004    6AB00000 X            BAL,R11  DEVTRAN           GO-TRANSLATE DEVICE
     1596   0A 00005    22100022 A            LI,R1    34                MUST BE FT
     1597   0A 00006    322E0000 X            LW,R2    DEVICE,R7
     1598   0A 00007    21200006 A            CI,R2    6                 FT
     1599   0A 00008    69300034              BNE      SPFE              NOT FT
     1600   0A 00009    2210001F A            LI,R1    31                MAX ONE SN
     1601   0A 0000A    322E0001 X            LW,R2    DEVICE+1,R7
     1602   0A 0000B    64200034              BDR,R2   SPFE              TOO MANY
     1603   0A 0000C    322E0000 X            LW,R2    TERM,R7
     1604   0A 0000D    2120006B A            CI,R2    ','
     1605   0A 0000E    6830001F              BE       SPF2
     1606   0A 0000F    21200015 A            CI,R2    X'15'             IS COMMAND DONE
     1607   0A 00010    6830001F              BE       SPF2              YES
     1608   0A 00011    2120004D A            CI,R2    '('               DOES OPTION FOLLOW
     1609   0A 00012    6930004D              BNE      SPF9              NO - BAD SYNTAX
     1610   0A 00013    6AB00141 04           BAL,R11  GETARG6
     1611   0A 00014    322E0000 X            LW,R2    ARGBUFF,R7
     1612   0A 00015    31200056 0C           CW,R2    =X'02F7E340'      IS IT 7T
     1613   0A 00016    6930004D              BNE      SPF9              NO - ERROR
     1614   0A 00017    322E0000 X            LW,R2    TERM,R7
     1615   0A 00018    2120005D A            CI,R2    ')'               CORRECT TERMINATION
     1616   0A 00019    6930004D              BNE      SPF9              NO
     1617   0A 0001A    22200003 A            LI,R2    3
     1618   0A 0001B    352E0001 X            STW,R2   MODE+1,R7         SET MODE CODE FOR 7T
     1619   0A 0001C    6AB00141 04           BAL,R11  GETARG6
     1620   0A 0001D    330E0000 X            MTW,0    NCHAR,R7
     1621   0A 0001E    6930004D              BNE      SPF9              FIELD NOT NULL-ERROR
     1622   0A 0001F    22100000 A   SPF2     LI,R1    0                 OPEN IN INPUT MODE
     1623   0A 00020    21D00001 A            CI,R13   1                 ANY ERRORS IN SCAN
     1624   0A 00021    6920029E 04           BG       RETURN            YES - EXIT
     1625   0A 00022    32BE0000 X            LW,R11   CMBX,R7
     1626   0A 00023    35BE0000 X            STW,R11  WRTFPT,R7         SAVE CMBX
     1627   0A 00024    6AB00000 X            BAL,R11  BLDCB             GO OPEN M:EI
     1628   0A 00025    21D00001 A            CI,R13   1                 IF OPEN FAILED, QUIT
     1629   0A 00026    69200059              BG       SPR1              AND PRINT MESSAGE
     1630   0A 00027    32BE0000 X            LW,R11   WRTFPT,R7
     1631   0A 00028    35BE0000 X            STW,R11  CMBX,R7           RESTORE CMBX.
     1632   0A 00029    02200020 A            LCI      2
     1633   0A 0002A    2A10004F              LM,R1    SPFPT
     1634   0A 0002B    2B1E0000 X            STM,R1   WRTFPT,R7         INITIALIZE MOVE FILE FPT
     1635   0A 0002C    22100000 A            LI,R1    0
     1636   0A 0002D    6AB00000 X            BAL,R11  GETARG            GO-GET DIRECTION AND NO. OF FILES
     1637   0A 0002E    22100001 N            LI,R1    ARGBUF4+1         LOCATION OF DIRECTION AND NO. OF FIL
     1638   0A 0002F    322E0000 X            LW,R2    NCHAR,R7          NO. OF CHARS IN ARGUMENT
     1639   0A 00030    6AB00000 X            BAL,R11  BCD2BIN           GO-CONVERT NO. OF FILES TO BINARY
     1640   0A 00031    21400002 A            CI,R4    2                 OVERFLOW
     1641   0A 00032    69300036              BNE      SPF3              NO
     1642   0A 00033    2210000A A            LI,R1    10                BAD NUMMER
     1643   0A 00034    6AB00000 X   SPFE     BAL,R11  ERROR
     1644   0A 00035    6800029E 04           B        RETURN
     1645   0A 00036    21400001 A   SPF3     CI,R4    1                 DIRECTION INDICATOR PRESENT
     1646   0A 00037    69300048              BNE      SPF6              NO
     1647   0A 00038    F2320007 A            LB,R3    *R7,R1
     1648   0A 00039    21300060 A            CI,R3    '-'               BACKWARD DIRECTION
     1649   0A 0003A    6830003F              BE       SPF4              YES
     1650   0A 0003B    2130004E A            CI,R3    '+'               FORWARD DIRECTION
     1651   0A 0003C    68300041              BE       SPF5              YES
     1652   0A 0003D    22100025 A            LI,R1    37                ERROR-NOT A VALID DIRECTION INDICAT.
     1653   0A 0003E    68000034              B        SPFE
     1654   0A 0003F    22300010 A   SPF4     LI,R3    X'10'
     1655   0A 00040    473E0001 X            STS,R3   WRTFPT+1,R7       SET BACKWARD DIRECTION
     1656   0A 00041    20100001 A   SPF5     AI,R1    1                 PASS OVER DIRECTION BYTE
     1657   0A 00042    202FFFFF A            AI,R2    -1
     1658   0A 00043    6AB00000 X            BAL,R11  BCD2BIN           GO-CONVERT NO. OF FILES
     1659   0A 00044    21400000 A            CI,R4    0                 NORMAL TERMINATION
     1660   0A 00045    68300048              BE       SPF6              YES
     1661   0A 00046    2210001E A            LI,R1    30                ERROR-INVALID TERMINATION
     1662   0A 00047    6AB00000 X            BAL,R11  ERROR
     1663   0A 00048    21C00008 A   SPF6     CI,R12   8                 IS THIS SPF OR SPR
     1664   0A 00049    69300051              BNE      SPR
     1665   0A 0004A    041E0000 X            CAL1,1   WRTFPT,R7         MOVE THE TAPE A FILE
     1666   0A 0004B    6430004A              BDR,R3   %-1
     1667   0A 0004C    6800029E 04           B        RETURN            RETURN
     1668   0A 0004D    22100011 A   SPF9     LI,R1    17
     1669   0A 0004E    68000034              B        SPFE
     1670   0A 0004F    1C000000 X   SPFPT    GEN,8,7,17 X'1C',0,M:EI
     1671   0A 00050    00000000 A            DATA     0
     1672   0A 00051    02200020 A   SPR      LCI      2
     1673   0A 00052    2A10005B              LM,1     SPRFPT
     1674   0A 00053    492E0001 X            OR,2     WRTFPT+1,R7       GET DIRECTION FLAG
     1675   0A 00054    22400059              LI,R4    SPR1              AND ABN ADDR
     1676   0A 00055    02200040 A            LCI      4
     1677   0A 00056    2B1E0000 X            STM,R1   WRTFPT,R7
     1678   0A 00057    041E0000 X            CAL1,1   WRTFPT,R7         DO IT
     1679   0A 00058    6800029E 04           B        RETURN
     1680   0A 00059    22100000 A   SPR1     LI,R1    0
     1681   0A 0005A    68000034              B        SPFE
     1682   0A 0005B    1D000000 X   SPRFPT   GEN,8,7,17 X'1D',,M:EI
     1683   0A 0005C    C0000000 A            DATA     X'C0000000'
     1684   0A 0005D    00000001 A            DATA     1,SPE9            COUNT AND ABN FOR SPF FT
            0A 0005E    0000005C 09
1* AP * 22:29 JUN 16,'85    PCLLS - PCL LIST                                                      PAGE   19
A    1685                                     PAGE     'DELETEALL'
     1687   0B 00000                 DELETEAL DSECT    1
     1688   0B 00000    02200070 A            LCI      7
     1689   0B 00001    8B500007 A            PSM,R5   *R7               SAVE REGISTERS
     1690   0B 00002    6AB00000 X            BAL,R11  CLRARG            CLEAR ARG TABLE
     1691   0B 00003    321E0000 X            LW,R1    TERM,R7
     1692   0B 00004    21100015 A            CI,R1    X'15'             TEST FOR END OF COMMAND
     1693   0B 00005    68300011              BE       DEVRTN            YES - SIMPLE DELETEALL
     1694   0B 00006    2110006B A            CI,R1    ','
     1695   0B 00007    68300011              BE       DEVRTN            NULL FROM FIELD
     1696   0B 00008    22600011              LI,R6    DEVRTN
     1697   0B 00009    6AB00000 X   DEVTEST  BAL,R11  CLRARG            CLEAR ARG TABLE
     1698   0B 0000A    6AB00000 X            BAL,R11  DEVTRAN           TRANSLATE DEVICE
     1699   0B 0000B    322E0000 X            LW,R2    DEVICE,R7         CHECK DELETEABILITY OF DEVICE
     1700   0B 0000C    21200003 A            CI,R2    3
     1701   0B 0000D    683C0000 A            BE       0,R6              DC-EXIT
     1702   0B 0000E    21200005 A            CI,R2    5                 TEST IF DP
     1703   0B 0000F    683C0000 A            BE       0,R6              YES-EXIT
     1704   0B 00010    68000046 0C           B        DELETE6           NO-ERROR
     1705   0B 00011    22900000 A   DEVRTN   LI,R9    0                 INITIALIZE FILE COUNT
     1706   0B 00012    357E0002 A            STW,R7   2,R7              SET LIST NAMES FLAG
     1707   0B 00013    321E0000 X            LW,R1    TERM,R7
     1708   0B 00014    21100015 A            CI,R1    X'15'             END OF COMMAND
     1709   0B 00015    6830001B              BE       DELALL3           YES
     1710   0B 00016    221FFFFF A            LI,R1    -1
     1711   0B 00017    35100000 X            STW,R1   COPYSK            ASSUME RANGE SPEC PRESENT
     1712   0B 00018    6AB00000 X            BAL,R11  REVIEW            GO PROCESS RANGE
     1713   0B 00019    21D00001 A            CI,R13   1
     1714   0B 0001A    6920007A              BG       ALL9              ERROR - GO EXIT
     1715   0B 0001B    2210000E A   DELALL3  LI,R1    14                INOUT,NXTF,M:EI,FPARAM
     1716   0B 0001C    6AB00000 X            BAL,R11  BLDCB
     1717   0B 0001D    21D00002 A            CI,R13   2                 IF COMMAND IS TO BE ABORTED
     1718   0B 0001E    69200078              BG       ALL10             DO IT
     1719   0B 0001F    7210000A A            LB,R1    R10               ANY FILES TO DELETE
     1720   0B 00020    21100002 A            CI,R1    2
     1721   0B 00021    683002CA 04           BE       LIST50            NO
     1722   0B 00022    70200000 X            LC       BOG
     1723   0B 00023    68400064              BCR,4    DELALL2           BR. IF NOT INTERACTIVE. SKIP CONFIRMATION OF
     1724                            *                                   DELETEALL COMMAND
     1725   0B 00024    02200030 A            LCI      3
     1726   0B 00025    2A10002A 05           LM,R1    DELETEM           PUT MESSAGE IN
     1727   0B 00026    2B100000 X            STM,R1   TLABEL
     1728   0B 00027    22E00009 A            LI,R14   9
     1729   0B 00028    22F00000 N            LI,R15   BA(TLABEL)        BUFFER
     1730   0B 00029    22B00056              LI,R11   DELALL1           RETURN
     1731                            *
     1732   0B 0002A    02200070 A   RANGEOUT LCI      7
     1733   0B 0002B    8B500007 A            PSM,R5   *R7
     1734   0B 0002C    35FE0000 X            STW,R15  RSSAVE,R7
     1735   0B 0002D    22F00001 A            LI,R15   1                 ONE THING AT A TIME
     1736   0B 0002E    3230004A 0C           LW,R3    ='    '           SET UP A NULL SN
     1737   0B 0002F    15300014 X            STD,R3   TLABEL+20
     1738   0B 00030    22400013 N            LI,R4    TLABEL+19         POINT TO IT
     1739   0B 00031    32200000 X            LW,R2    M:EISN            GET A REAL ONE
     1740   0B 00032    325E0000 X            LW,R5    DEVICE,R7         GET PROPER DEVICE CODE
     1741   0B 00033    21500007 A            CI,R5    7                 IF AT, UPACK SN
     1742   0B 00034    69300036              BNE      %+2
     1743   0B 00035    6AB00000 X            BAL,R11  SIXBACK
     1744   0B 00036    325A002E 05           LW,R5    DEVTXTS,R5        GET DEVICE TEXT
     1745   0B 00037    35500016 X            STW,R5   TLABEL+22         STUFF IT AWAY
     1746   0B 00038    2250007B A            LI,R5    '#'               PUT # AFTER IN CASE SN IS NEEDED
     1747   0B 00039    75500017 X            STB,R5   TLABEL+23
     1748   0B 0003A    32B1FFFF X            LW,R11   M:EISN-1          ANY SNS
     1749   0B 0003B    21B0FF00 A            CI,R11   X'FF00'
     1750   0B 0003C    6840003F              BAZ      %+3
     1751   0B 0003D    73100016 X            MTB,1    TLABEL+22         PUT # IN FRONT
     1752   0B 0003E    15200014 X            STD,R2   TLABEL+20
     1753   0B 0003F    22500016 N            LI,R5    TLABEL+22
     1754   0B 00040    6AB0039D 04           BAL,R11  WACC20            YES PUT MSG
     1755   0B 00041    22400020 A            LI,R4    X'20'             IF EO IS OPEN, JUST THE FILE NAME
     1756   0B 00042    51400000 X            CH,R4    M:EO
     1757   0B 00043    6940004F              BANZ     RANGEOUT1
     1758   0B 00044    224FFFFF N            LI,R4    FROMFILE-1
     1759   0B 00045    73000000 X            MTB,0    FROMFILE          ANY RANGE
     1760   0B 00046    68300048              BE       %+2
     1761   0B 00047    6AB0002D 05           BAL,R11  FROMM             YES, PUT START
     1762   0B 00048    2240001F N            LI,R4    M:EI+31
     1763   0B 00049    6AB00039 05           BAL,R11  DOTACCT           .ACCT
     1764   0B 0004A    224FFFFF N            LI,R4    TOFILE-1
     1765   0B 0004B    73000000 X            MTB,0    TOFILE
     1766   0B 0004C    6830004E              BE       %+2
     1767   0B 0004D    6AB0003E 05           BAL,R11  TOM               TO TOFILE
     1768   0B 0004E    68000053              B        RANGEOUT2
     1769   0B 0004F    22400016 N   RANGEOUT1 LI,R4   M:EI+22
     1770   0B 00050    6AB00036 05           BAL,R11  SLASHM
     1771   0B 00051    2240001F N            LI,R4    M:EI+31
     1772   0B 00052    6AB00039 05           BAL,R11  DOTACCT
     1773   0B 00053    02200070 A   RANGEOUT2 LCI     7
     1774   0B 00054    8A500007 A            PLM,R5   *R7               RETURN
     1775   0B 00055    E800000B A            B        *R11
     1776   0B 00056    3230000E A   DELALL1  LW,R3    R14               GET DISP
     1777   0B 00057    20300001 A            AI,R3    1                 GET TO HOLE
     1778   0B 00058    2240006F A            LI,R4    '?'               ADD QUESTON MARK
     1779   0B 00059    75460000 X            STB,R4   TLABEL,R3
     1780   0B 0005A    75300000 X            STB,R3   TLABEL
     1781   0B 0005B    04200021 05           CAL1,2   FPTALL            KEYIN THE QUEST
     1782   0B 0005C    02200020 A            LCI      2                 CHECK RESPONSE
     1783   0B 0005D    2A200000 X            LM,R2    TLABEL
     1784   0B 0005E    11200028 05           CD,R2    YES%
     1785   0B 0005F    68300063              BE       KGC8%4            GOOD ONE
     1786   0B 00060    20380000 A            AI,R3    -X'80000'         TRY LIN FEED TOO
     1787   0B 00061    11200028 05           CD,R2    YES%
     1788   0B 00062    6930029E 04           BNE      RETURN            NO-RETURN
     1789   0B 00063    35000000 X   KGC8%4   STW,R0   BREAK             CLEAR BREAK
     1790                            *
     1791   0B 00064                          USECT    PLSECT
     1792   05 00021    04000000 A   FPTALL   DATA     X'4000000',X'F0000000',TLABEL,TLABEL,20,TLABEL
            05 00022    F0000000 A
            05 00023    00000000 N
            05 00024    00000000 N
            05 00025    00000014 A
            05 00026    00000000 N
     1793                                     BOUND    8
     1794   05 00028    05E8C5E2 A   YES%     DATA     'YES'+5**24,'%TEA'+(13-'T')**16
            05 00029    5B0DC5C1 A
     1795   05 0002A    40C4C5D3 A   DELETEM  TEXT     ' DELETEALL'
            05 0002B    C5E3C5C1 A
            05 0002C    D3D34040 A
     1796   05 0002D    7310000B A   FROMM    MTB,1    R11
     1797   05 0002E    6A50039D 04           BAL,R5   WACC20
     1798   05 0002F    0640C6D9 A            TEXTC    ' FROM '
            05 00030    D6D44040 A
     1799         05 0002E           DEVTXTS  EQU      %-3
     1800   05 00031    0340C4C3 A            TEXTC    ' DC'
     1801   05 00032    0340D3E3 A            TEXTC    ' LT'
     1802   05 00033    0340C4D7 A            TEXTC    ' DP'
     1803   05 00034    0340C6E3 A            TEXTC    ' FT'
     1804   05 00035    0340C1E3 A            TEXTC    ' AT'
     1805   05 00036    7310000B A   SLASHM   MTB,1    R11
     1806   05 00037    6A50039D 04           BAL,R5   WACC20
     1807   05 00038    01614040 A            TEXTC    '/'
     1808   05 00039    325E0000 X   DOTACCT  LW,R5    DEVICE,R7         NO ACCOUNT FOR AT
     1809   05 0003A    21500007 A            CI,R5    7
     1810   05 0003B    E830000B A            BE       *R11
     1811   05 0003C    6A50039D 04           BAL,R5   WACC20
     1812   05 0003D    014B4040 A            TEXTC    '.'
     1813   05 0003E    7310000B A   TOM      MTB,1    R11               TEXTC
     1814   05 0003F    6A50039D 04           BAL,R5   WACC20
     1815   05 00040    0440E3D6 A            TEXTC    ' TO '
            05 00041    40404040 A
     1816   05 00042    06000000 X   FPTSET   GEN,8,7,17 X'06',0,M:EI
     1817   05 00043    C0000000 A            DATA     X'C0000000'
     1818   05 00044    00000074 0B           DATA     ERRABN
     1819   05 00045    00000074 0B           DATA     ERRABN
     1820                            *
     1821   05 00046                          USECT    DELETEAL
     1822   0B 00064    04100042 05  DELALL2  CAL1,1   FPTSET            SET ERR ABN ADDRS
     1823   0B 00065    6AB0010D 04           BAL,R11  TESTFNC           TEST IF FILE IN RANGE
     1824   0B 00066    6800006B              B        ALL5              NO - SAVE FILE
     1825   0B 00067    64A00074              BDR,R10  ERRABN            DIDNT GET IT OPEN
     1826   0B 00068    0410004B 05           CAL1,1   FPTDELET          RELEASE THE FILE
     1827   0B 00069    6A600086              BAL,R6   RANDCHK           TEST IF RANDOM FILE
     1828   0B 0006A    6AB00000 X   ALL4     BAL,R11  ALLC              COUNT FILE, LIST IT
     1829   0B 0006B    6AB00000 X   ALL5     BAL,R11  CLOSEI            CLOSE DCB IF OPEN
     1830   0B 0006C    32100000 X            LW,R1    BREAK             ARE WE TO STOP
     1831   0B 0006D    6930007A              BNE      ALL9              YES
     1832   0B 0006E    33000000 X            MTW,0    TOFILE            ANY MORE FILES WANTED
     1833   0B 0006F    6910007A              BL       ALL9              NO
     1834   0B 00070    6AB00000 08           BAL,R11  OPNNXT
     1835   0B 00071    6980007A              BCS,8    ALL9              ALL DONE
     1836   0B 00072    68300078              BE       ALL10             DONT LOOP
     1837   0B 00073    68000064              B        DELALL2           RELEASE IT
     1838   0B 00074    7210000A A   ERRABN   LB,R1    R10
     1839   0B 00075    21100008 A            CI,R1    8                 SYNONYM NAME
     1840   0B 00076    6830006B              BE       ALL5              YES-SKIP IT
     1841   0B 00077    6800006A              B        ALL4              NO TYPE MESSAGE
     1842   0B 00078    22100000 A   ALL10    LI,R1    0                 YES-REPORT ERROR
     1843   0B 00079    6AB00000 X            BAL,R11  ERROR
     1844   0B 0007A    2250007D     ALL9     LI,R5    DELTEXT           ADDR OF MESSAGE
     1845   0B 0007B    55000009 A            STH,R0   R9                CLEAR SKIPPED COUNT
     1846   0B 0007C    68000297 04           B        LIST42            PRINT FILES/GRANULES
     1847                            *
     1848   0B 0007D    4B4B406C A   DELTEXT  TEXT     '.. % FILES DELETED, %%% GRANULES
'
            0B 0007E    40C6C9D3 A
            0B 0007F    C5E240C4 A
            0B 00080    C5D3C5E3 A
            0B 00081    C5C46B40 A
            0B 00082    6C6C6C40 A
            0B 00083    C7D9C1D5 A
            0B 00084    E4D3C5E2 A
            0B 00085    15404040 A
     1849   0B 00086    221000F0 A   RANDCHK  LI,R1    X'F0'
     1850   0B 00087    4B100005 X            AND,R1   M:EI+5            IS ORG RANDOM
     1851   0B 00088    21100030 A            CI,R1    X'30'
     1852   0B 00089    69300096              BNE      ADDGRAN           NO, JUST ACCUMULATE GRANULES
     1853   0B 0008A    22A00000 A            LI,R10   0
     1854   0B 0008B    04100046 05           CAL1,1   OPNTRY            TRY TO OPEN AGAIN
     1855   0B 0008C    89B00007 A            PSW,R11  *R7               FILE WAS NOT DELETED
     1856   0B 0008D    6AB00000 X            BAL,R11  CLOSEI            GO CLOSE
     1857   0B 0008E    88B00007 A            PLW,R11  *R7
     1858   0B 0008F    48A0004A 05  RAND1    EOR,R10  03ABN             DID WE GET NO FILE
     1859   0B 00090    04100042 05           CAL1,1   FPTSET            SET DELETEALL ERRABN
     1860   0B 00091    33000000 X            MTW,0    DELETEF           REVIEW COMMAND
     1861   0B 00092    68300095              BE       %+3               NO
     1862   0B 00093    04100000 05           CAL1,1   FPTSET2           RESET ERR AND ABN ADR
     1863   0B 00094    64A000DE 04           BDR,R10  LIST28            AND TYPE MESSAGE
     1864   0B 00095    64AC0000 A            BDR,R10  0,R6              PRINT MESSAGE IF THERE IS ONE
     1865   0B 00096    32A0000B X   ADDGRAN  LW,R10   M:EI+11           CHECK FILENAME FOR SYNON
     1866   0B 00097    20A80001 A            AI,R10   X'80001'          POINT TO FIT NAME, NEG FOR ALLC
     1867   0B 00098    F210000A A            LB,R1    *R10
     1868   0B 00099    71100017 X            CB,R1    M:EI+23           IF NAMES DONT MATCH, NO GRANS
     1869   0B 0009A    693000AB              BNE      ADDGRANX          SINCE IT IS JUST A FD ENTRY
     1870   0B 0009B    F282000A A            LB,R8    *R10,R1
     1871   0B 0009C    71820017 X            CB,R8    M:EI+23,R1
     1872   0B 0009D    693000AB              BNE      ADDGRANX
     1873   0B 0009E    6410009B              BDR,R1   %-3
     1874   0B 0009F    3210000B X            LW,R1    M:EI+11           RESTORE POINTER TO FPARAM
     1875   0B 000A0    228000FF A   ADDGRAN1 LI,R8    255
     1876   0B 000A1    CB800001 A            AND,R8   *R1
     1877   0B 000A2    30100008 A            AW,R1    R8                SKIP FILENAME ENTRY
     1878   0B 000A3    20100001 A            AI,R1    1
     1879   0B 000A4    D2800001 A            LH,R8    *R1
     1880   0B 000A5    218000FF A            CI,R8    X'FF'             ARE WE DONE
     1881   0B 000A6    694C0000 A            BANZ     0,R6
     1882   0B 000A7    21800D00 A            CI,R8    X'D00'            IS THIS SIZE ENTRY
     1883   0B 000A8    693000A0              BNE      ADDGRAN1          NO
     1884   0B 000A9    32820001 A            LW,R8    1,R1
     1885   0B 000AA    66800000 X            AWM,R8   GRANCNT
     1886   0B 000AB    22A00000 A   ADDGRANX LI,R10   0                 CLEAR ERROR REG
     1887   0B 000AC    680C0000 A            B        0,R6
     1888   0B 000AD                          USECT    PLSECT
     1889   05 00046    14000000 N   OPNTRY   GEN,8,24 X'14',M:EI
     1890   05 00047    C0000000 A            DATA     X'C0000000'
     1891   05 00048    0000008F 0B           DATA     RAND1,RAND1
            05 00049    0000008F 0B
     1892   05 0004A    03000000 N   03ABN    GEN,8,24 3,M:EI
1* AP * 22:29 JUN 16,'85    PCLLS - PCL LIST                                                      PAGE   20
A    1893                                     PAGE     'DELETE'
     1895   0C 00000                 DELETE   DSECT    1                 DELETE COMMAND
     1896   0C 00000    02200070 A            LCI      7
     1897   0C 00001    8B500007 A            PSM,R5   *R7               SAVE REGISTERS
     1898   0C 00002    22500000 A            LI,R5    0                 INITIALIZE SEVERITY LEVEL
     1899   0C 00003    22900000 A            LI,R9    0                 INITIALIZE FILE COUNT
     1900   0C 00004    350E0002 A            STW,R0   2,R7              RESET ACCESS FILE HEAD FLAG
     1901   0C 00005    324E0000 X            LW,R4    TERM,R7
     1902   0C 00006    2140005E A            CI,R4    ';'               ONLY BLANK, #, -, /, AND ' ARE OK
     1903   0C 00007    6930000B              BNE      DELETE5           DEVTRAN GETS THE REST
     1904   0C 00008    22100011 A            LI,R1    17                ERROR - NO FILE NAME PRESENT
     1905   0C 00009    6AB00000 X   DELETE7  BAL,R11  ERROR
     1906   0C 0000A    6800029E 04           B        RETURN
     1907   0C 0000B    6A600009 0B  DELETE5  BAL,R6   DEVTEST
     1908   0C 0000C    321E0000 X            LW,R1    TERM,R7
     1909   0C 0000D    21100061 A            CI,R1    '/'               MUST BE FILE NEXT
     1910   0C 0000E    69300008              BNE      DELETE7-1
     1911   0C 0000F    326E0000 X            LW,R6    CMBX,R7           SCAN ENTIRE COMMAND FOR SYNTAX ERRORS
     1912   0C 00010    6AB00000 X            BAL,R11  FILTRAN
     1913   0C 00011    321E0000 X   DELETE8  LW,R1    TERM,R7           MUST BE ',', OR X'15'
     1914   0C 00012    2110006B A            CI,R1    ','
     1915   0C 00013    68300010              BE       %-3               GET NEXT ONE
     1916   0C 00014    2110004D A            CI,R1    '('
     1917   0C 00015    69300020              BNE      DELETE9
     1918   0C 00016    6AB00141 04           BAL,R11  GETARG6           MUST BE JOB
     1919   0C 00017    321E0000 X            LW,R1    ARGBUFF,R7
     1920   0C 00018    31100048              CW,R1    JOBT
     1921   0C 00019    69300008              BNE      DELETE7-1
     1922   0C 0001A    321E0000 X            LW,R1    TERM,R7
     1923   0C 0001B    2110005D A            CI,R1    ')'
     1924   0C 0001C    69300008              BNE      DELETE7-1
     1925   0C 0001D    6AB00141 04           BAL,R11  GETARG6
     1926   0C 0001E    321E0000 X            LW,R1    NCHAR,R7
     1927   0C 0001F    68300011              BE       DELETE8           OK.
     1928   0C 00020    21100015 A   DELETE9  CI,R1    X'15'
     1929   0C 00021    69300008              BNE      DELETE7-1
     1930   0C 00022    21D00001 A            CI,R13   1                 ANY SYNTAX ERRORS
     1931   0C 00023    6920029E 04           BG       RETURN
     1932   0C 00024    356E0000 X            STW,R6   CMBX,R7           RESTORE STARTING POINT
     1933   0C 00025    6AB00000 X   DELETE3  BAL,R11  FILTRAN           GO-CONVERT N.A.P
     1934   0C 00026    350E0000 X            STW,R0   MODE,R7           RESET JOB FLAG
     1935   0C 00027    321E0000 X            LW,R1    TERM,R7
     1936   0C 00028    2110004D A            CI,R1    '('               IF OPTION, IT'S JB
     1937   0C 00029    6930002C              BNE      %+3
     1938   0C 0002A    22100800 A            LI,R1    X'800'            SET JOB FLAG
     1939   0C 0002B    351E0000 X            STW,R1   MODE,R7
     1940   0C 0002C    2210000A A            LI,R1    10
     1941   0C 0002D    2210000A A   DELETE1  LI,R1    10                INOUT,FPARAM
     1942   0C 0002E    6AB00000 X            BAL,R11  BLDCB             GO-BUILD INPUT DCB
     1943   0C 0002F    21D00002 A            CI,R13   2                 CHECK ERROR SEVERITY
     1944   0C 00030    6920029E 04           BG       RETURN            BAD ONE
     1945   0C 00031    68300036              BE       DELETE2           DIDNT GET IT OPEN
     1946   0C 00032    0410004B 05           CAL1,1   FPTDELET          RELEASE THE FILE
     1947   0C 00033    22B00036              LI,R11   DELETE2
     1948   0C 00034    6A600086 0B           BAL,R6   RANDCHK           TEST IF RANDOM FILE
     1949   0C 00035                          USECT    PLSECT
     1950   05 0004B    15000000 X   FPTDELET GEN,8,7,17 X'15',0,M:EI
     1951   05 0004C    80000000 A            DATA     X'80000000'
     1952   05 0004D    00000001 A            DATA     1                 RELEASE
     1953   05 0004E                          USECT    DELETE
     1954   0C 00035    20900001 A            AI,R9    1                 BUMP FILE COUNT
     1955   0C 00036    324E0000 X   DELETE2  LW,R4    MODE,R7           IF JOB FILE, SKIP OVER OPTION
     1956   0C 00037    6830003A              BE       %+3
     1957   0C 00038    6AB00141 04           BAL,R11  GETARG6
     1958   0C 00039    6AB00141 04           BAL,R11  GETARG6           AND )
     1959   0C 0003A    324E0000 X            LW,R4    TERM,R7
     1960   0C 0003B    31D00005 A            CW,R13   R5
     1961   0C 0003C    6820003E              BLE      %+2
     1962   0C 0003D    3250000D A            LW,R5    R13               UPDATE SEVERITY LEVEL
     1963   0C 0003E    32100000 X            LW,R1    BREAK
     1964   0C 0003F    35000000 X            STW,R0   BREAK
     1965   0C 00040    69300044              BNE      DELETE4
     1966   0C 00041    22D00000 A            LI,R13   0                 RESET SEVERITY FOR NEXT FILE
     1967   0C 00042    2140006B A            CI,R4    ','
     1968   0C 00043    68300025              BE       DELETE3           ANOTHER FID
     1969   0C 00044    32D00005 A   DELETE4  LW,R13   R5                SET SEVERITY LEVEL
     1970   0C 00045    6800007A 0B           B        ALL9
     1971   0C 00046    22100022 A   DELETE6  LI,R1    34                INVALID DEVICE
     1972   0C 00047    68000009              B        DELETE7
     1973   0C 00048    03D1D6C2 A   JOBT     TEXTC    'JOB'
     1974                                     END
            0C 00049    00080004 A
            0C 0004A    40404040 A
            0C 0004B    00200002 A
            0C 0004C    80000000 A
            0C 0004D    D9C6C9D3 A
            0C 0004E    D5C5E5C5 A
            0C 0004F    08000000 A
            0C 00050    7AD3C2D3 A
            0C 00051    7AC1C3D5 A
            0C 00052    00080000 A
            0C 00053    00200000 A
            0C 00054    C0000400 A
            0C 00055    20000000 A
            0C 00056    02F7E340 A

  CONTROL SECTION SUMMARY: 01 00000   PT 0     02 00000   PT 0     03 00000   PT 1     04 0049B   PT 1
                           05 0004E   PT 1     06 0007E   PT 1     07 00028   PT 1     08 00024   PT 1
                           09 0005E   PT 1     0A 0005F   PT 1     0B 000AD   PT 1     0C 00057   PT 1
1* AP * 22:29 JUN 16,'85    PCLLS - PCL LIST                                                      PAGE   21
A *    SYMBOL VALUES
          ABNPREC/04 0024E         ABN14T/04 001D2          ACCT/04 00495            ADATE/04 00301
          ADATE1/04 00302          ADDGRAN/0B 00096         ADDGRANX/0B 000AB        ADDGRAN1/0B 000A0
          ALLT/04 0036C            ALL10/0B 00078           ALL4/0B 0006A            ALL5/0B 0006B
          ALL9/0B 0007A            ATEOF/04 0022D           BDATE/04 002FD           CDATE/04 002D9
          DATE/00000007            DATELIST/04 00307        DATEL2/04 0030D          DATEL3/04 0031E
          DATEL4/04 00323          DATEL5/04 00319          DATETBL/00000004 S       DELALL1/0B 00056
          DELALL2/0B 00064         DELALL3/0B 0001B         DELETE-0C 00000          DELETEAL-0B 00000
          DELETEM/05 0002A         DELETE1/0C 0002D         DELETE2/0C 00036         DELETE3/0C 00025
          DELETE4/0C 00044         DELETE5/0C 0000B         DELETE6/0C 00046         DELETE7/0C 00009
          DELETE8/0C 00011         DELETE9/0C 00020         DELMSG/04 00100          DELTEXT/0B 0007D
          DEVRTN/0B 00011          DEVTEST/0B 00009         DEVTXTS/05 0002E         DOTACCT/05 00039
          DOTS/04 0047A            D2CHK/04 002D4           EACCTX/04 0037F          EDATE/04 002F9
          ERRABN/0B 00074          ERRADD/04 00274          ERRADD2/04 002C5         FILEBUSY/04 0040C
          FNAME/04 00339           FPTALL/05 00021          FPTDELET/05 0004B        FPTLFILE/05 00009
          FPTNOFIL/05 00013        FPTPREC/05 0000F         FPTREW/05 0001E          FPTREW1/05 0001F
          FPTSET/05 00042          FPTSET2/05 00000         FPTSET3/05 00004         FPTWEOF/07 0000F
          FROMM/05 0002D           FTABN/04 00481           GACCT/04 00358           GACCT1/04 00365
          GETARG6/04 00141         GRAN/00000001            GRANULE/04 00329         GRAN1/04 00333
          H02/00000001             INACCM/04 00411          INSN/04 00493            JOBT/0C 00048
          KGCA%4/04 00360          KGCB%4/09 00057          KGC0%4/04 0007B          KGC1%4/04 00180
          KGC2%4/04 001A6          KGC3%4/04 001FE          KGC4%4/04 00257          KGC6%4/06 0004B
          KGC7%4/06 00079          KGC8%4/0B 00063          LASTFN/09 0004A          LFILE/04 001B9
          LFILE1/04 001C1          LIST-04 00000            LISTATAT2/04 00217       LISTATAT7/04 0021C
          LISTATB/04 0019E         LISTATB1/04 001C3        LISTATB2/04 001F7        LISTATB2A/04 0022F
          LISTATB2B/04 001ED       LISTATB3/04 00233        LISTATB4/04 0023D        LISTATB6/04 0025B
          LISTATB7/04 00243        LISTATB8/04 00249        LISTATB9/04 00266        LISTEND/04 00287
          LISTFT/04 0043E          LISTFT2/04 00444         LISTFT7/04 0047B         LISTHAT/04 00421
          LISTHEAD/04 00415        LISTRAND/04 0026D        LIST1/04 00050           LIST10/04 00196
          LIST11/04 00170          LIST111/04 0017B         LIST12/04 0015E          LIST13/04 0016F
          LIST14/04 00163          LIST15/04 00166          LIST16/04 00194          LIST17/04 00088
          LIST18/04 00036          LIST19/04 0005C          LIST191/04 00066         LIST2/04 00021
          LIST20/04 0003F          LIST21/04 00047          LIST22/04 000AD          LIST24/04 0000B
          LIST25/04 0000C          LIST26/04 000C6          LIST27/04 000AA          LIST28/04 000DE
          LIST3/04 00024           LIST30/04 000C8          LIST31/04 000CE          LIST32/04 000E0
          LIST33/04 000CD          LIST4/04 00025           LIST40/04 00281          LIST42/04 00297
          LIST44/04 00028          LIST5/04 00038           LIST50/04 002CA          LIST6/04 00037
          LIST7/04 0027C           LIST8/04 00143           LIST9/04 00189           LSTATXT/04 002B7
          LSTLTXT/04 002AD         LSTTEXT/04 002A1         LSTTXTS/04 002BD         MDATE/04 002FB
          MONTH/04 0042C           NAME/0000000A            NODATEHD/04 001B2        NOFILES/05 00018
          NONET/04 0036E           OPNEI/04 001F5           OPNIFT/09 0004E          OPNNXT-08 00000
          OPNTRY/05 00046          OPNX1/08 00017           OPNX9/08 0001C           ORG/00000002
          ORGN/04 00439            PLSECT/05 00000          PRTBUFI7/04 00457        QUST/04 000BC
          RACCTX/04 00370          RACC10/04 0037C          RANDCHK/0B 00086         RAND1/0B 0008F
          RANGEOUT-0B 0002A        RANGEOUT1/0B 0004F       RANGEOUT2/0B 00053       RDACN/04 0048D
          RDWREXUN/04 00367        READFPT/04 000EA         READONE-04 00094         REC/00000003
          REREAD1/04 0009B         RETURN/04 0029E          REVDEL/04 000BD          REVFPT/04 000F4
          REVMSG/04 000F9          REVOPN/04 000E4          REVRET1/04 0008F         REVRET2/04 00090
          REVRP-04 0009C           REW-06 00000             REWA/06 0000F            REWB/06 00027
          REWC/06 00025            REW1/06 00011            REW2/06 0007B            REW3/06 00038
          REW4/06 00070            REW4KGC/06 0006F         REW5/06 00046            REW6/06 00040
          REW7/06 00013            REW8/06 00064            REW9/06 00059            RINGT/06 00037
          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
          SETEIDCB/04 00489        SETEOF/07 00010          SEVMAX/00000008 S        SKIPREC/04 00486
          SKIPTXT/09 0002E         SLASHM/05 00036          SOMERR/04 0027E          SPE-09 00000
          SPEEX/09 0002A           SPE1/09 0000C            SPE3/09 00023            SPE4/09 00053
          SPE5/09 0002B            SPE51/09 0002C           SPE6/09 00033            SPE7/09 00016
          SPE8/09 00020            SPE9/09 0005C            SPF-0A 00000             SPFE/0A 00034
          SPFPT/0A 0004F           SPF2/0A 0001F            SPF3/0A 00036            SPF4/0A 0003F
          SPF5/0A 00041            SPF6/0A 00048            SPF9/0A 0004D            SPR/0A 00051
          SPRFPT/0A 0005B          SPR1/0A 00059            SYNON/04 00348           SYNONX/04 00350
          TDATE/04 003FC           TESTFNC-04 0010D         TEST1/04 0011D           TEST2/04 0013B
          TEST3/04 00139           TEST4/04 00112           TEST5/04 0012C           TEST6/04 00125
          TEST7/04 0013E           TIMECAL/05 00008         TOM/05 0003E             TSFPT/05 0000E
          UACCTX/04 00386          UNLABEL/04 00497         VLPTAB/04 003E4          WACCKGC/04 003D2
          WACCTX/04 0038F          WACC10/04 00398          WACC19/04 0039C          WACC20/04 0039D
          WACC30/04 003A2          WACC40/04 003A6          WACC44/04 003B8          WACC45/04 003B9
          WACC48/04 003D0          WACC50/04 003D8          WACC60/04 003A0          WEOF-07 00000
          WEOFER/07 00026          WEOFLO/04 0019D          WEOF1/07 0000C           WEOF2/07 00014
          WEOF3/07 00024           WRTCR/04 000EF           WRTDEL/04 00103          WRTFB/04 00108
          WRTQUST/04 000B7         WR14/04 00368            YES%/05 00028            03ABN/05 0004A
  *    EXTERNAL SYMBOLS
          ALLC-REF       ARGBUFF-REF    ARGBUF4-REF    ATTRB-REF      BCD2BIN-REF    BIN2BCD-REF
          BLDCB-REF      BOG-REF        BREAK-REF      CLOSEI-REF     CLRARG-REF     CMBX-REF
          COPYPHY-REF    COPYSK-REF     DELETE-DEF     DELETEAL-DEF   DELETEF-REF    DEVICE-REF
          DEVTRAN-REF    EATTRB-REF     ERRFLAG-REF    ERROR-REF      EXTBL-REF      FILE-REF
          FILTRAN-REF    FROMFILE-REF   GETARG-REF     GRANCNT-REF    HEX2BCD-REF    IN%ARG-REF
          INSER-REF      IOBUF-REF      J:JIT-REF      JB:PCW-REF     LIST*DEF       LISTCMBX-REF
          LISTTERM-REF   LTSTCMBX-REF   M:EI-REF       M:EISN-REF     M:EO-REF       M:LO-REF
          M:UC-REF       MAXCMBX-REF    MAXSEV-REF     MODE-REF       NCHAR-REF      OPNFPT-REF
          OPNNXT-DEF     OPNXFPT-REF    OUTSER-REF     PRTBUF-REF     PRTERR-REF     PRTNOF-REF
          RANGEOUT-DEF   RDTBL-REF      READONE-DEF    REVIEW-REF     REVRP-DEF      REW-DEF
          RSSAVE-REF     SFARG-REF      SIXBACK-REF    SPE-DEF        SPF-DEF        SYNFLAG-REF
          TADATA-REF     TERM-REF       TESTFNC-DEF    TLABEL-REF     TLBLSIZE-REF   TOFILE-REF
          TOSWT-REF      UNPRINT-REF    UNTBL-REF      WEOF-DEF       WRTBL-REF      WRTFPT-REF
          1BUF-REF
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1* AP * 22:29 JUN 16,'85    PCLLS - PCL LIST                                                      PAGE   22
A  ABNPREC          734/DATA     741-LW
   ABN14T           277/BAL      377/DATA     377/DATA     607-LB
   ACCT            1229/LM      1281-TEXT
   ADATE            905-LI      1158/BAL
   ADATE1           898/B        900/B        904/B        906-LW
   ADDGRAN         1852/BNE     1865-LW
   ADDGRANX        1869/BNE     1872/BNE     1886-LI
   ADDGRAN1        1875-LI      1883/BNE
   ALLC              87/REF     1828/BAL
   ALLT            1012/CW      1022-TEXT    1035/CD
   ALL10           1718/BG      1836/BE      1842-LI
   ALL4            1828-BAL     1841/B
   ALL5            1824/B       1829-BAL     1840/BE
   ALL9            1714/BG      1831/BNE     1833/BL      1835/BCS     1844-LI      1970/B
   ARGBUFF           93/REF      464/LW      1328/LW      1611/LW      1919/LW
   ARGBUF4           68/REF     1637/LI
   ATEOF            350/CAL1     681/CAL1     699-GEN
   ATTRB             94/REF      125/STW      171/MTW      187/LW       222/LW       232/LW       357/MTW
       498/MTW      514/MTW      540/STW      546/MTW      549/STW      563/MTW      683/MTW      747/MTW
       785/MTW      790/MTW      806/MTW      818/MTW      954/LW
   BA               250/LI       566/LI      1114/CI      1120/LI      1479/LI      1481/LI      1487/LI
      1729/LI
   BCD2BIN           60/REF     1639/BAL     1658/BAL
   BDATE            901-MTB     1159/BAL
   BIN2BCD           93/REF      636/BAL      673/BAL      678/BAL      686/BAL      691/BAL      750/BAL
       959/BAL
   BLDCB             57/REF      194/BAL     1200/BAL     1364/BAL     1394/BAL     1448/BAL     1525/BAL
      1627/BAL     1716/BAL     1942/BAL
   BOG              110/REF      838/LC      1722/LC
   BREAK             89/REF      267/MTW      313/MTW      352/MTW      353/STW      736/MTW     1539/MTW
      1584/MTW     1789/STW     1830/LW      1963/LW      1964/STW
   CDATE            862-LI       929/BAL     1153/BAL
   CLOSEI            58/REF      325/BAL      351/BAL     1240/BAL     1400/BAL     1532/BAL     1537/BAL
      1829/BAL     1856/BAL
   CLRARG            54/REF      132/BAL     1287/BAL     1438/BAL     1504/BAL     1593/BAL     1690/BAL
      1697/BAL
   CMBX              71/REF      177/LW       360/STW      525/STW     1625/LW      1631/STW     1911/LW
      1932/STW
   COPYPHY          107/REF      410/MTW      428/MTW
   COPYSK           102/REF     1711/STW
   DATE              38-EQU      871/STW      876/STW      880/STW      892/STM      931/LI
   DATELIST         768/BAL      912-LI
   DATEL2           918-LW       937/BDR
   DATEL3           919/BE       935-AI
   DATEL4           928/BE       940-LW
   DATEL5           930-AI       945/B
   DATETBL          117-EQU      212/GEN      566/LI       572/LI       604/STW      907/STW      909/STW
       916/LI
   DELALL1         1730/LI      1776-LW
   DELALL2         1723/BCR     1822-CAL1    1837/B
   DELALL3         1709/BE      1715-LI
   DELETE          1895-DSECT   1953/USECT
   DELETEAL        1687-DSECT   1821/USECT
   DELETEF          102/REF      145/MTW      223/OR       234/MTW      269/STW      304/STB      308/MTB
       335/STB      558/MTW      562/MTB      584/MTW      586/MTB      632/STB      769/MTW      804/MTW
       956/MTW     1860/MTW
   DELETEM         1726/LM      1795-TEXT
   DELETE1         1941-LI
   DELETE2         1945/BE      1947/LI      1955-LW
   DELETE3         1933-BAL     1968/BE
   DELETE4         1965/BNE     1969-LW
   DELETE5         1903/BNE     1907-BAL
   DELETE6         1704/B       1971-LI
   DELETE7         1905-BAL     1910/BNE     1921/BNE     1924/BNE     1929/BNE     1972/B
   DELETE8         1913-LW      1927/BE
   DELETE9         1917/BNE     1928-CI
   DELMSG           396-TEXT     399/DATA
   DELTEXT         1844/LI      1848-TEXT
   DEVICE            64/REF      139/LW       154/LW       182/CW       490/LW       500/LW       521/MTW
       528/MTW      577/LW       645/LW       744/LW       798/LW       968/LW      1194/CW      1241/MTW
      1243/STW     1288/MTW     1295/LW      1304/LW      1314/LW      1351/LW      1355/MTW     1391/MTW
      1439/MTW     1442/LW      1506/LW      1515/LW      1594/MTW     1597/LW      1601/LW      1699/LW
      1740/LW      1808/LW
   DEVRTN          1693/BE      1695/BE      1696/LI      1705-LI
   DEVTEST         1697-BAL     1907/BAL
   DEVTRAN           56/REF      138/BAL     1294/BAL     1441/BAL     1505/BAL     1595/BAL     1698/BAL
   DEVTXTS         1744/LW      1799-EQU
   DOTACCT         1763/BAL     1772/BAL     1808-LW
   DOTS            1247/LW      1253-TEXT
   D2CHK            789/BAL      797/BAL      854-CW
   EACCTX           759/BAL     1045-LW
   EATTRB            69/REF      126/STW      542/STS      544/MTW      551/STW      766/MTW
   EDATE            897-LI      1147/BAL
   ERRABN          1818/DATA    1819/DATA    1825/BDR     1838-LB
   ERRADD           199/BNE      206/DATA     207/DATA     779-LB
   ERRADD2          210/DATA     211/DATA     829-LI
   ERRFLAG          100/REF   1377.2/MTW
   ERROR             59/REF      157/BAL      176/BAL      496/BAL      788/BAL      796/BAL      830/BAL
       832/BAL     1197/BAL     1386/BAL     1410/BAL     1545/BAL     1643/BAL     1662/BAL     1843/BAL
      1905/BAL
   EXTBL             95/REF      601/STW     1018/DATA    1019/DATA    1020/DATA    1037/STW     1045/LW
      1047/LW
   FILE              96/REF      530/MTW     1244/MTW     1246/STW     1358/MTW
   FILEBUSY         404/DATA    1172-TEXT
   FILTRAN           82/REF      538/BAL     1322/BAL     1912/BAL     1933/BAL
   FNAME            968-LW      1144/BAL
   FPTALL          1781/CAL1    1792-DATA
   FPTDELET         330/CAL1    1826/CAL1    1946/CAL1    1950-GEN
   FPTLFILE         265/CAL1     338-GEN      574/CAL1     590/CAL1     813/CAL1    1222/CAL1    1234/CAL1
      1259/CAL1    1570/CAL1
   FPTNOFIL         842/CAL1     845-GEN
   FPTPREC          728/CAL1     731-GEN
   FPTREW          1203/CAL1    1235/CAL1    1372/CAL1    1374-GEN     1531/CAL1
   FPTREW1         1239/CAL1    1398/CAL1    1414-GEN
   FPTSET          1816-GEN     1822/CAL1    1859/CAL1
   FPTSET2          204-GEN      216/CAL1    1862/CAL1
   FPTSET3          193/CAL1     208-GEN
   FPTWEOF         1432/CAL1    1434-GEN
   FROMFILE         102/REF      173/MTW      408/LB       416/CB       468/MTW      532/MTW      533/MTW
      1758/LI      1759/MTB
   FROMM           1761/BAL     1796-MTB
   FTABN           1262-LB      1272/DATA    1273/DATA    1276/DATA    1277/DATA
   GACCT           1001-CVA     1148/BAL     1149/BAL     1163/BAL     1164/BAL
   GACCT1          1005/BNE     1014-STW
   GETARG            55/REF      462/B       1636/BAL
   GETARG6          461-LI       463/BAL      513/BAL     1324/BAL     1344/BAL     1610/BAL     1619/BAL
      1918/BAL     1925/BAL     1957/BAL     1958/BAL
   GRAN              36-EQU      961/STW      962/STW
   GRANCNT          105/REF      129/STW      685/AWM      749/AWM      815/LW       958/AWM     1885/AWM
   GRANULE          777/BAL      949-PSW     1156/BAL
   GRAN1            953/BNE      955/BG       957/BNE      959-BAL
   HEX2BCD           83/REF      617/BAL
   H02              0.1-SET    286.1/DO     288.1/DO     317.1/DO    1058.1/DO    1120.1/DO
   IN%ARG            74/REF     1337/XW
   INACCM           622/LM      1173-TEXT
   INSER             76/REF     1399/LW      1401/LI      1402/CW
   INSN            1217/LM      1280-TEXT
   IOBUF             98/REF      915/STW      922/STM      926/AI       941/STW      942/STW      944/STW
       983/LI      1089/LI
   J:JIT             81/REF     1566/LB
   JB:PCW            84/REF      250/LI      1120/LI
   JOBT            1920/CW      1973-TEXTC
   KGCA%4          1009-BNE     1013/BDR
   KGCB%4          1581-CAL1    1585/BE
   KGCXX4         317.4/BANZ   317.8-EQU
   KGC0%4           254/BNE      258-LI
   KGC1%4           520/BNE      524-LW
   KGC2%4           559/BE       563-MTW
   KGC3%4           647/BNE      651-MTB
   KGC4%4           746/BNE      750-BAL
   KGC6%4          1357/BNE     1361-CI
   KGC7%4          1403/BE      1407-STW
   KGC8%4          1785/BE      1789-STW
   LASTFN          1555/LM      1572-TEXT
   LFILE            278/BAL      582-LI       696/BAL      765/BAL      933/BAL     1138/BAL
   LFILE1           585/BE       590-CAL1
   LIST              15-DSECT    120/USECT    214/USECT    345/USECT    735/USECT    852/USECT
   LISTATAT2        670/BNE      676-LW
   LISTATAT7        668/BE       681-CAL1
   LISTATB          233/BNE      555-XW
   LISTATB1         556/BNE      581/LI       592-AI
   LISTATB2         606/LI       630/CI       644-LW
   LISTATB2A        641/B        665/BNE      702-LI       778/B
   LISTATB2B        634-PSW      661/BE
   LISTATB3         706-LB       721/B
   LISTATB4         708/BG       710/BE       716-MTB
   LISTATB6         725/BE       754-SLS
   LISTATB7         717/BNE      722-LI
   LISTATB8         728-CAL1     739/B
   LISTATB9         631/BE       765-BAL
   LISTCMBX         108/REF      178/STW      359/LW
   LISTEND          180/BG       794/BE       798-LW
   LISTFT           183/BE      1193-LI
   LISTFT2         1195/BE      1199-LI
   LISTFT7         1214/BNE     1227/BNE     1255-LB
   LISTHAT          580/LI      1175-TEXTC
   LISTHEAD         575/LB       576/LI      1174-TEXTC
   LISTRAND         650/BE       772-LI
   LISTTERM         108/REF      164/STW      361/LW       792/LW
   LIST1            215-LI       320/B        373/B        784/BE       786/BLE
   LIST10           471/BE       546-MTW
   LIST11           469/B        489/B        497/B        506/B        508-LW       547/BG       550/BDR
       552/B
   LIST111          515/BLE      519-MTW
   LIST12           476/BE       479/BE       490-LW
   LIST13           492/BE       494/BE       507-STW
   LIST14           483/BG       485/BL       495-LI       499/BLE      503/BANZ
   LIST15           481/BE       498-MTW
   LIST16           473/BE       544-MTW
   LIST17           235/BNE      271-BAL
   LIST18           170/BNE      175-LI       512/BNE      517/BNE
   LIST19           224/BNE      227-LI       268/BE
   LIST191          226/BNE      237-LB
   LIST2            141/BE       154-LW
   LIST20           185-LI      1252/B
   LIST21           188/BE       191/BE       193-CAL1
   LIST22           282/LI       311-CI
   LIST24           132-BAL      364/BE
   LIST25           133-LW       523/B        529/BE
   LIST26           281/BANZ     310/B        334-CAL1     369/B
   LIST27           308-MTB      315/BNE
   LIST28           368-CAL1    1863/BDR
   LIST3            146/BNE      153/B        157-BAL
   LIST30           263/BLE      309/BE       346-AI       697/B        737/BNE      771/B
   LIST31           352-MTW      791/BG
   LIST32           197/BE       358/BLE      370-BAL
   LIST33           218/B        270/B        351-BAL
   LIST4            143/BE       148/BE       152/BE       155/BE       158-LW       522/BNE
   LIST40           354/BNE      356/BL       366/BNE      792-LW       836/BNE
   LIST42           805/BNE      807/BNE      814-BAL     1846/B
   LIST44           135/BE       150/BE       161-LW       518/B        536/B        543/B
   LIST5            166/BE       168/BE       172/BG       177-LW
   LIST50           371/BCS      834-LB      1721/BE
   LIST6            176-BAL     1266/B
   LIST7            372/BE       782/BAZ      787-LI
   LIST8            137/BE       163/BE       463-BAL      510/BE
   LIST9            160/BE       174/BNE      367/B        531/BE       533-MTW
   LSTATXT          826-TEXT     828/DATA
   LSTLTXT          825-TEXT     828/DATA     828/DATA
   LSTTEXT          824-TEXT     828/DATA     828/DATA
   LSTTXTS          799/LW       827-EQU
   LTSTCMBX         101/REF      524/LW
   M:EI              79/REF      204/GEN      221/LI     346.2/CS       375/GEN      413/CB       415/LB
       430/CB       432/LB       439/CB       441/LB       447/LB       455/CW       593/LI       635/LB
       642/GEN      655/AND      671/LW       676/LW       682/LW       690/AND      699/GEN      705/LW
       731/GEN      741/LW       781/CW       976/CB       978/LB      1267/GEN     1270/GEN     1274/GEN
      1374/GEN     1396/CW      1414/GEN     1427/LH      1430/LI      1466/CH      1475/LW      1481/LI
      1487/LI      1534/LW      1552/CW      1559/LI      1573/GEN     1578/CW      1670/GEN     1682/GEN
      1762/LI      1769/LI      1771/LI      1816/GEN     1850/AND     1865/LW      1868/CB      1871/CB
      1874/LW      1889/GEN     1892/GEN     1950/GEN
   M:EISN            85/REF     1237/CW      1739/LW      1748/LW
   M:EO              88/REF     1424/LI      1451/LI      1756/CH
   M:LO              79/REF      208/GEN      220/LI       253/CS       255/LW       554/GEN      557/LI
       583/LI       840/LI      1117/AND     1221/LI      1233/LI      1258/LI      1564/LI
   M:UC              79/REF      321/GEN      380/GEN      385/GEN      390/GEN      397/GEN      402/GEN
       560/LI       589/LI       837/LI      1568/LI
   MAXCMBX           75/REF     1251/STW
   MAXSEV          77.1/REF   1363.1/LW    1377.1/STW   1397.2/STW
   MDATE            899-LI      1157/BAL
   MODE              93/REF      505/STS      507/STW      537/STW     1618/STW     1934/STW     1939/STW
      1955/LW
   MONTH            875/LW      1177-EQU
   NAME              39-EQU      592/AI       597/AI
   NCHAR             67/REF      516/MTW      519/MTW     1345/MTW     1620/MTW     1638/LW      1926/LW
   NODATEHD         564/BG       575-LB
   NOFILES          834/LB       847/DATA     850-TEXTC
   NONET           1023-TEXT    1070/CD
   OPNEI            642-GEN      653/CAL1
   OPNFPT            97/REF      327/LI
   OPNIFT          1529/CAL1    1573-GEN
   OPNNXT           370/BAL     1382/BAL     1462-DSECT   1541/BAL     1834/BAL
   OPNTRY          1854/CAL1    1889-GEN
   OPNXFPT           72/REF     1469/STW     1471/STW     1472/STW     1479/LI      1483/CAL1
   OPNX1           1470/LI      1486-AI
   OPNX9           1467/BE      1485/B       1491-LB
   ORG               35-EQU      662/LI       722/LI       773/LI
   ORGN             660/LB      1190-DATA
   OUTSER            77/REF     1404/CW      1406/LI
   PLSECT            16-CSECT    203/USECT    337/USECT    730/USECT    844/USECT   1373/USECT   1413/USECT
      1791/USECT   1888/USECT   1949/USECT
   PRTBUF            92/REF      128/STW      215/LI       595/LI       809/LI      1209/LI      1218/STM
      1230/STM     1236/LW      1242/LI      1242/LI      1242/LI      1242/LI      1248/STW     1249/STW
      1250/STW
   PRTBUFI7         570/ANLZ    1218-STM
   PRTERR            86/REF      814/BAL
   PRTNOF            91/REF      817/BAL     1550/BAL
   QUST             322/DATA     323-TEXT
   RACCTX           757/BAL     1028-LW
   RACC10          1032/BG      1036/BNE     1040-BAL
   RANDCHK          331/BAL     1827/BAL     1849-LI      1948/BAL
   RAND1           1858-EOR     1891/DATA    1891/DATA
   RANGEOUT         113/DEF      568/BAL     1732-LCI
   RANGEOUT1       1757/BANZ    1769-LI
   RANGEOUT2       1768/B       1773-LCI
   RDACN           1211/CAL1    1224/CAL1    1274-GEN
   RDTBL             95/REF      599/STW     1016/DATA    1018/DATA    1019/DATA    1028/LW      1030/LW
   RDWREXUN        1001/CVA     1016-DATA
   READFPT          294/CAL1     380-GEN
   READONE          115/DEF      283-LCI
   REC               37-EQU      674/STW      675/STW      752/STW      753/STW
   REREAD1          293-STW      300/BANZ
   RETURN           819/BGE      821-LCI      833/B        853/B       1198/B       1202/BG      1260/B
      1303/BG      1368/BG      1371/BG      1377/B       1381/BNE     1387/B       1397/BAZ     1405/BNE
      1408/B       1411/B       1433/B       1450/BGE     1547/B       1553/BANZ    1571/B       1624/BG
      1644/B       1667/B       1679/B       1788/BNE     1906/B       1931/BG      1944/BG
   REVDEL         317.2/BAZ    317.7/BAZ      325-BAL
   REVFPT           276/CAL1     390-GEN      561/CAL1
   REVIEW           103/REF      535/BAL     1712/BAL
   REVMSG           387/DATA     392/DATA     395-TEXT
   REVOPN           329/CAL1     375-GEN
   REVRET1          278-BAL      633/B
   REVRET2          279-LB       770/BNE
   REVRP            114/DEF      294-CAL1
   REW             1284-DSECT   1376/USECT
   REWA            1297/BL      1300-LI      1389/BE      1446/BL
   REWB            1313/BE      1324-BAL
   REWC            1318/BE      1322-BAL     1349/BE
   REW1            1299/BLE     1302-CI
   REW2            1301/B       1316/BNE     1320/BE      1327/BNE     1332/BNE     1336/BNE     1338/BNE
      1346/BNE     1392/BE      1409-LI      1456/B       1459/B
   REW3            1330/BE      1342-LI
   REW4            1370/BL    1397.1/B       1398-CAL1
   REW4KGC       1383.1/BE    1397.2-STW
   REW5            1353/BG      1356-CI      1390/BG
   REW6            1311/BE      1321/B       1323/B       1339/B       1343/B       1350-LI
   REW7            1293/BNE     1304-LW
   REW8            1354/BE      1388-CI
   REW9            1366/BE    1377.1-STW
   RINGT           1329/CW      1340-TEXTC
   RSSAVE           109/REF      726/STW      751/LW       755/STW      762/LW      1105/AW      1113/LW
      1135/LW      1734/STW
   R0                18-EQU      125/STW      126/STW      127/STW      128/STW      129/STW      293/STW
       335/STB      353/STW      537/STW      542/STS      598/STW      599/STW      600/STW      601/STW
       602/STW      604/STW      619/PLM      632/STB     1037/STW     1038/STW     1075/STB     1081/STB
      1407/STW     1476/STW     1477/STW     1789/STW     1845/STH     1900/STW     1934/STW     1964/STW
   R1                19-EQU      144/LI       154/LW       156/LI       175/LI       177/LW       178/STW
       181/LI       182/CW       185/LI       186/LW       189/LI       192/LI       221/LI       247/XW
       261/LB*      262/STB*     266/XW       269/STW      272/LW       296/LB       311/CI       314/CI
       327/LI       328/AW       340/PZE*     359/LW       360/STW      361/LW       362/STW      363/CI
       365/CI       379/PZE*     454/LI       455/CW       457/LW       458/STS      461/LI       464/LW
       465/SLS      466/CI       470/CI       472/CI       475/CI       478/CI       480/CI       482/CI
       484/AI       487/LI       488/STW      490/LW       491/CI       493/CI       495/LI       500/LW
       501/AI       502/CI       504/LI       505/STS      524/LW       525/STW      526/LI       527/STW
       539/LI       540/STW      541/LI       545/LI       550/BDR      551/STW      572/LI       576/LI
       580/LI       593/LI       595/LI       596/AW       613/LB       614/SLS      615/AH       616/SLS
       626/STB*     635/LB       637/PLW      640/STW      663/STB*     666/LW       671/LW       672/SLS
       676/LW       677/SLS      682/LW       685/AWM      689/LI       690/AND      693/LW       712/PSM
       715/PLM      723/LB*      726/STW      727/LI       738/AI       743/SW       749/AWM      751/LW
       752/STW      753/STW      754/SLS      755/STW      762/LW       763/SLS      774/STB*     779/LB
       783/CI       787/LI       792/LW       793/CI       795/LI       809/LI       810/AW       811/LB*
       829/LI       831/LI       837/LI       840/LI       845/GEN      871/STW      876/STW      880/STW
       892/STM      914/LW       915/STW      921/LM       922/STM      925/LW       926/AI       930/AI
       950/PSW      951/LW       958/AWM      960/PLW      961/STW      962/STW      986/LI       987/LW
       988/STW      989/BDR     1076/LW      1078/BAL     1080/SW      1086/ANLZ    1089/LI      1090/AW
      1091/STB*    1092/AI      1095/STD*    1097/LB*     1098/CB*     1101/STB*    1102/MTB     1111/MTB
      1113/LW      1114/CI      1116/LI      1117/AND     1118/CI      1120/LI    1120.2/LB    1120.2/LB
    1120.4/LI    1120.5/CW    1120.7/CB    1130.1/LB    1130.2/AW    1130.4/SW      1135/LW      1136/SLS
      1193/LI      1194/CW      1196/LI      1199/LI      1209/LI      1210/AW      1212/LW      1215/AI
      1223/AI      1225/LW      1231/AI      1242/LI      1243/STW     1245/AI      1246/STW     1247/LW
      1248/STW     1249/STW     1250/STW     1251/STW     1256/LI      1265/LI      1278/PZE*    1289/LW
      1290/CI      1292/CI      1295/LW      1296/CI      1298/CI      1300/LI      1309/LW      1310/CI
      1312/CI      1317/CI      1325/LW      1326/CI      1342/LI      1350/LI      1360/AI      1363/OR
      1385/LI      1393/LI      1395/LW      1396/CW      1401/LI      1406/LI      1407/STW     1409/LI
      1421/LW      1422/CI      1424/LI      1427/LH      1428/CI      1430/LI      1447/LI      1451/LI
      1452/STW     1455/LI      1458/LI      1509/LI      1514/LI      1520/LI      1524/LI      1544/LI
      1551/LI      1552/CW      1555/LM      1556/STM     1559/LI      1565/LI      1596/LI      1600/LI
      1622/LI      1633/LM      1634/STM     1635/LI      1637/LI      1642/LI      1647/LB      1652/LI
      1656/AI      1661/LI      1668/LI      1677/STM     1680/LI      1691/LW      1692/CI      1694/CI
      1707/LW      1708/CI      1710/LI      1711/STW     1715/LI      1719/LB      1720/CI      1726/LM
      1727/STM     1830/LW      1838/LB      1839/CI      1842/LI      1849/LI      1850/AND     1851/CI
      1867/LB      1868/CB      1870/LB      1871/CB      1873/BDR     1874/LW      1876/AND*    1877/AW
      1878/AI      1879/LH*     1884/LW      1904/LI      1908/LW      1909/CI      1913/LW      1914/CI
      1916/CI      1919/LW      1920/CW      1922/LW      1923/CI      1926/LW      1928/CI      1935/LW
      1936/CI      1938/LI      1939/STW     1940/LI      1941/LI      1963/LW      1971/LI
   R10               28-EQU      196/CB       198/MTB      279/LB       421/LB       607/LB       613/LB
       615/AH       651/MTB      694/LI       705/LW       706/LB*      709/MTB*     716/MTB*     718/LB*
       719/AW       720/AI       764/LI       776/LI       779/LB       863/LW*      877/INT*     881/LB*
       884/LW*      901/MTB*     906/LW*      908/LW*      916/LI       918/LW*      935/AI       943/LW*
       951/LW*      973/LW       987/LW*     1002/LB*     1003/STW     1007/LM*     1262/LB      1365/MTB
      1383/AI    1397.2/STW     1475/LW      1476/STW*    1478/LI      1491/LB      1527/CH      1719/LB
      1825/BDR     1838/LB      1853/LI      1858/EOR     1863/BDR     1864/BDR     1865/LW      1866/AI
      1867/LB*     1870/LB*     1886/LI
   R11               29-EQU      132/BAL      138/BAL      157/BAL      176/BAL      194/BAL      217/BAL
       245/BAL      252/LI       253/CS       255/LW       256/CI       271/BAL      277/BAL      278/BAL
       282/LI       287/OR       297/LW       299/CI       307/B*       325/BAL      351/BAL      370/BAL
       414/BG*      417/BL*      423/BE*      437/AI       450/AI       452/AI       453/B*       456/BANZ*
       459/B*       463/BAL      496/BAL      513/BAL      535/BAL      538/BAL      568/BAL      577/LW
       578/CI       581/LI       591/B*       594/BAL      606/LI       608/BE*      610/BE*      612/PSM
       617/BAL      622/LM       629/PLM      630/CI       636/BAL      673/BAL      678/BAL      686/BAL
       691/BAL      696/BAL      750/BAL      756/BAL      757/BAL      758/BAL      759/BAL      760/BAL
       765/BAL      768/BAL      777/BAL      788/BAL      789/BAL      796/BAL      797/BAL      814/BAL
       817/BAL      823/B*       830/BAL      832/BAL      858/B*       883/BNE*     893/B*       902/BE*
       910/B*       913/PSW      929/BAL      933/BAL      938/PLW      939/B*       949/PSW      959/BAL
       963/PLW      964/B*       972/BNE*     982/B*       990/B*       995/BE*      997/MTB     1015/B*
      1029/BE*     1039/B*      1046/BE*     1054/BE*     1056/MTB     1064/BE*     1071/BE*     1087/MTB
      1104/PSM     1107/BAL     1109/PLM     1126/MTB     1130/B*      1137/PSW     1138/BAL     1140/PLW
      1144/BAL     1147/BAL     1148/BAL     1149/BAL     1153/BAL     1154/BAL     1156/BAL     1157/BAL
      1158/BAL     1159/BAL     1163/BAL     1164/BAL     1197/BAL     1200/BAL     1240/BAL     1287/BAL
      1294/BAL     1322/BAL     1324/BAL     1344/BAL     1364/BAL     1382/BAL     1386/BAL     1394/BAL
      1400/BAL     1410/BAL     1438/BAL     1441/BAL     1448/BAL     1484/OR      1490/STCF    1494/OR
      1497/LC      1498/B*      1504/BAL     1505/BAL     1525/BAL     1532/BAL     1537/BAL     1541/BAL
      1545/BAL     1550/BAL     1560/BAL     1593/BAL     1595/BAL     1610/BAL     1619/BAL     1625/LW
      1626/STW     1627/BAL     1630/LW      1631/STW     1636/BAL     1639/BAL     1643/BAL     1658/BAL
      1662/BAL     1690/BAL     1697/BAL     1698/BAL     1712/BAL     1716/BAL     1730/LI      1743/BAL
      1748/LW      1749/CI      1754/BAL     1761/BAL     1763/BAL     1767/BAL     1770/BAL     1772/BAL
      1775/B*      1796/MTB     1805/MTB     1810/BE*     1813/MTB     1823/BAL     1828/BAL     1829/BAL
      1834/BAL     1843/BAL     1855/PSW     1856/BAL     1857/PLW     1905/BAL     1912/BAL     1918/BAL
      1925/BAL     1933/BAL     1942/BAL     1947/LI      1957/BAL     1958/BAL
   R12               30-EQU     1307/CI      1361/CI      1369/CI      1380/CI      1388/CI      1440/LI
      1663/CI
   R13               31-EQU      179/CI       200/CI       800/LW       854/CW       856/STW      857/LI
      1201/CI      1302/CI      1367/CI      1379/LI      1449/CI      1517/CI      1546/LI      1623/CI
      1628/CI      1713/CI      1717/CI      1930/CI      1943/CI      1960/CW      1962/LW      1966/LI
      1969/LW
   R14               32-EQU      215/LI       219/AW       229/STW*     231/STW*     236/STB*     237/LB*
       244/AW       246/SW       247/XW       266/XW       272/LW       567/LI       569/LW       570/ANLZ
       592/AI       644/LW       695/LW       761/LW       912/LI       937/BDR     1105/AW      1106/SCS
      1110/AW    1120.5/CW    1120.7/CB      1123/CI    1130.3/LW      1139/LI      1558/LI      1728/LI
      1776/LW
   R15               33-EQU      566/LI       620/STW      996/LI      1028/LW      1031/CI      1045/LW
      1053/LW      1057/DW      1063/LW      1066/CI      1074/SLS     1129/BDR     1729/LI      1734/STW
      1735/LI
   R2                20-EQU      130/LI       131/STW      133/LW       134/CI       136/CI       139/LW
       140/CI       142/CI       147/CI       149/CI       151/CI       195/LI       196/CB       228/LW
       229/STW      231/STW      232/LW       249/AW       261/LB       326/LI       341/PZE*     408/LB
       420/BDR      427/LB       430/CB       436/BDR      446/BDR      447/LB       448/CB       474/LI
       477/LI       507/STW      508/LW       509/CI       511/CI       548/LI       549/STW      555/XW
       569/LW       573/AI       575/LB       597/AI       625/AI       626/STB      638/LI       639/STH
       644/LW       645/LW       646/CI       657/CI       664/CI       674/STW      679/STW      687/STW
       695/LW       703/LI       709/MTB      723/LB       724/CI       741/LW       742/SLS      743/SW
       744/LW       745/CI       752/STW      761/LW       772/LI       774/STB      780/LI       781/CW
       811/LB       834/LB       841/AI       848/PZE*     877/INT      901/MTB      908/LW       924/LI
       931/LI       943/LW       961/STW      987/LW       988/STW     1002/LB      1007/LM      1008/LI
      1012/CW      1013/BDR     1034/LM      1035/CD      1069/LM      1070/CD      1083/STB     1085/LM
      1093/SLD     1094/OR      1095/STD     1096/LI      1098/CB      1110/AW    1130.2/AW    1130.3/LW
    1130.4/SW      1212/LW      1213/CW      1217/LM      1218/STM     1219/LI      1232/LI      1236/LW
      1237/CW      1255/LB      1262/LB      1263/CI      1314/LW      1315/CI      1328/LW      1329/CW
      1331/MTB     1333/AI      1334/SLD     1335/CB      1337/XW      1347/LW      1348/CI      1351/LW
      1352/CI      1356/CI      1442/LW      1443/CI      1445/CI      1506/LW      1507/CI      1510/CI
      1515/LW      1516/BDR     1521/LW      1522/CI      1534/LW      1535/CI      1557/STW     1561/AI
      1563/STB     1569/AI      1577/LW      1578/CW      1597/LW      1598/CI      1601/LW      1602/BDR
      1603/LW      1604/CI      1606/CI      1608/CI      1611/LW      1612/CW      1614/LW      1615/CI
      1617/LI      1618/STW     1638/LW      1657/AI      1699/LW      1700/CI      1702/CI      1739/LW
      1752/STD     1783/LM      1784/CD      1787/CD
   R3                21-EQU      222/LW       223/OR       227/LI       229/STW      230/BDR      236/STB
       237/LB       239/LI       240/SAS      241/AW       242/DW       243/MW       244/AW       246/SW
       248/SLS      249/AW       259/CW       262/STB      264/LI       279/LB       280/CI       342/PZE*
       415/LB       416/CB       432/LB       433/CB       441/LB       442/CB       571/LI       582/LI
       607/LB       609/CI       620/STW      623/LI       624/LB       627/BIR      639/STH      640/STW
       648/LW       649/CW       654/LI       655/AND      656/SLS      659/AI       660/LB       660/LB
       663/STB      667/CI       669/CI       675/STW      680/STW      688/STW      692/STW      704/LI
       718/LB       722/LI       723/LB       753/STW      808/LI       884/LW       906/LW       907/STW
       908/LW       909/STW      923/LI       952/LW       954/LW       962/STW      978/LB       979/CB
       983/LI       984/AW       985/STW      988/STW*    1010/ANLZ    1011/STW     1012/CW      1091/STB
      1097/LB      1098/CB      1100/BDR     1101/STB     1220/LI      1257/LI      1335/CB      1562/LI
      1563/STB     1566/LB      1647/LB      1648/CI      1650/CI      1654/LI      1655/STS     1666/BDR
      1736/LW      1737/STD     1776/LW      1777/AI      1779/STB     1780/STB     1786/AI
   R4                22-EQU      412/LI       413/CB       415/LB       416/CB       419/AI       421/LB
       422/CI       426/LI       432/LB       433/CB       435/AI       439/CB       441/LB       442/CB
       445/AI       624/LB       626/STB      662/LI       663/STB      702/LI       716/MTB      773/LI
       774/STB      775/LI       862/LI       863/LW       863/LW       865/SLD      872/AI       874/AI
       875/LW       881/LB       882/CI       884/LW       886/SCD      890/SCD      892/STM      906/LW
       940/LW       941/STW      951/LW       973/LW       974/AI       975/LB*      979/CB*      994/LW
      1002/LB      1004/CI      1014/STW     1030/LW      1034/LM      1047/LW      1055/LW      1065/LW
      1069/LM      1085/LM      1125/AI      1128/AI      1640/CI      1645/CI      1659/CI      1675/LI
      1738/LI      1755/LI      1756/CH      1758/LI      1762/LI      1764/LI      1769/LI      1771/LI
      1778/LI      1779/STB     1901/LW      1902/CI      1955/LW      1959/LW      1967/CI
   R5                23-EQU      122/PSM      158/LW       159/CI       161/LW       162/CI       164/STW
       165/CI       167/CI       169/CI       187/LW       190/CI       250/LI       251/LB       251/LB
       258/LI       259/CW       666/LW       674/STW      675/STW      679/STW      680/STW      687/STW
       688/STW      692/STW      693/LW       706/LB       707/CI       713/EXU      718/LB       719/AW
       798/LW       799/LW       799/LW       822/PLM      864/LI       866/SLS      867/CI       869/AI
       870/OR       871/STW      875/LW       876/STW      877/INT      878/SLS      879/OR       880/STW
       885/LW       887/SLS      889/STB      897/LI       899/LI       903/LI       905/LI       907/STW
       909/STW      918/LW       927/CW       932/LW       934/LW       942/STW      943/LW       944/STW
       968/LW       969/CI       971/CI       975/LB       976/CB       979/CB       981/BDR      998/BAL
      1001/CVA     1003/STW     1011/STW     1014/STW     1040/BAL     1048/BAL     1058/BAL     1072/BAL
      1075/STB     1076/LW      1080/SW      1081/STB     1083/STB   1130.1/LB      1225/LW      1226/CW
      1229/LM      1230/STM     1286/PSM     1304/LW      1305/CI      1319/AI    1363.1/LW    1377.1/STW
      1399/LW      1402/CW      1404/CW      1420/PSM     1503/PSM     1549/LI      1592/PSM     1689/PSM
      1733/PSM     1740/LW      1741/CI      1744/LW      1744/LW      1745/STW     1746/LI      1747/STB
      1753/LI      1774/PLM     1797/BAL     1806/BAL     1808/LW      1809/CI      1811/BAL     1814/BAL
      1844/LI      1897/PSM     1898/LI      1960/CW      1962/LW      1969/LW
   R6                24-EQU      220/LI       316/LH       317/CI     317.5/LW     317.6/CI       331/BAL
       338/GEN      557/LI       560/LI       583/LI       589/LI       603/LI       604/STW      605/BDR
       888/LI       889/STB      917/LI       921/LM       932/LW       934/LW       936/AI      1221/LI
      1233/LI      1258/LI      1564/LI      1568/LI      1696/LI      1701/BE      1703/BE      1827/BAL
      1864/BDR     1881/BANZ    1887/B       1907/BAL     1911/LW      1932/STW     1948/BAL
   R7                25-EQU      122/PSM*     125/STW      128/STW      131/STW      133/LW       139/LW
       154/LW       158/LW       161/LW       171/MTW      177/LW       182/CW       187/LW       219/AW
       222/LW       232/LW       241/AW       242/DW       243/MW       273/MTW      275/MTW      284/PSM*
       306/PLM*     328/AW       357/MTW      360/STW      362/STW      464/LW       488/STW      490/LW
       498/MTW      500/LW       505/STS      507/STW      508/LW       514/MTW      516/MTW      519/MTW
       521/MTW      525/STW      527/STW      528/MTW      530/MTW      537/STW      540/STW      546/MTW
       549/STW      555/XW       563/MTW      577/LW       596/AW       598/STW      612/PSM*     619/PLM*
       629/PLM*     634/PSW*     637/PLW*     645/LW       683/MTW      712/PSM*     715/PLM*     726/STW
       744/LW       747/MTW      751/LW       755/STW      762/LW       785/MTW      790/MTW      798/LW
       806/MTW      810/AW       818/MTW      822/PLM*     913/PSW*     915/STW      922/STM      925/LW
       938/PLW*     941/STW      942/STW      944/STW      949/PSW*     950/PSW*     952/LW       954/LW
       960/PLW*     963/PLW*     968/LW       984/AW       985/STW      994/LW      1090/AW      1104/PSM*
      1105/AW      1109/PLM*    1113/LW      1135/LW      1137/PSW*    1140/PLW*    1194/CW      1210/AW
      1218/STM     1230/STM     1236/LW      1241/MTW     1243/STW     1244/MTW     1246/STW     1248/STW
      1249/STW     1250/STW     1251/STW     1286/PSM*    1288/MTW     1289/LW      1295/LW      1304/LW
      1309/LW      1314/LW      1325/LW      1328/LW      1337/XW      1345/MTW     1347/LW      1351/LW
      1355/MTW     1358/MTW     1391/MTW     1420/PSM*    1421/LW      1425/MTW     1439/MTW     1442/LW
      1452/STW     1464/PSM*    1496/PLM*    1503/PSM*    1506/LW      1515/LW      1521/LW      1592/PSM*
      1594/MTW     1597/LW      1601/LW      1603/LW      1611/LW      1614/LW      1618/STW     1620/MTW
      1625/LW      1626/STW     1630/LW      1631/STW     1634/STM     1638/LW      1647/LB*     1655/STS
      1665/CAL1    1674/OR      1677/STM     1678/CAL1    1689/PSM*    1691/LW      1699/LW      1706/STW
      1706/STW     1707/LW      1733/PSM*    1734/STW     1740/LW      1774/PLM*    1808/LW      1855/PSW*
      1857/PLW*    1897/PSM*    1900/STW     1901/LW      1908/LW      1911/LW      1913/LW      1919/LW
      1922/LW      1926/LW      1932/STW     1934/STW     1935/LW      1939/STW     1955/LW      1959/LW
   R8                26-EQU      284/PSM      287/OR     288.4/AND      295/BIR      298/LI       306/PLM
       815/LW       816/SCS     1264/BE*     1464/PSM     1465/LI      1466/CH      1468/LW      1469/STW
      1470/LI      1471/STW     1472/STW     1473/LI      1474/STB     1481/LI      1482/MBS     1487/LI
      1489/CBS     1491/LB      1492/CI      1496/PLM     1519/LI      1527/CH      1530/LI      1870/LB
      1871/CB      1875/LI      1876/AND     1877/AW      1879/LH      1880/CI      1882/CI      1884/LW
      1885/AWM
   R9                27-EQU      124/LI       225/AI     286.3/STW    288.3/LI     288.4/AND      292/LI
       302/STW      303/SLS      304/STB      333/AI       346/AI       383/PZE*     801/CI       803/LI
       835/CI      1479/LI      1480/OR      1486/AI      1488/AW      1526/LI      1538/AI      1582/AI
      1705/LI      1845/STH     1899/LI      1954/AI
   SETEIDCB        1205/CAL1    1270-GEN
   SETEOF          1431/CAL1    1435-GEN
   SEVMAX           118-EQU      127/STW      800/LW       854/CW       856/STW
   SFARG             65/REF      118/EQU
   SIXBACK           62/REF     1743/BAL
   SKIPREC         1206/CAL1    1207/CAL1    1208/CAL1    1267-GEN     1580/CAL1    1586/CAL1
   SKIPTXT         1548-TEXT    1549/LI
   SLASHM          1770/BAL     1805-MTB
   SOMERR           201/BNE      789-BAL
   SPE             1501-DSECT
   SPEEX           1544-LI      1579/BAZ
   SPE1            1508/BE      1511/BE      1514-LI
   SPE3            1537-BAL     1543/BNE
   SPE4            1536/BANZ    1577-LW
   SPE5            1308/BNE     1513/BNE     1516/BDR     1523/BNE     1545-BAL
   SPE51           1518/BGE     1546-LI
   SPE6            1540/BNE     1542/BCS     1549-LI      1587/B
   SPE7            1524-LI      1533/B       1575/DATA    1575/DATA
   SPE8            1528/BNE     1534-LW
   SPE9            1586-CAL1    1684/DATA
   SPF             1590-DSECT
   SPFE            1599/BNE     1602/BDR     1643-BAL     1653/B       1669/B       1681/B
   SPFPT           1204/CAL1    1581/CAL1    1633/LM      1670-GEN
   SPF2            1605/BE      1607/BE      1622-LI
   SPF3            1641/BNE     1645-CI
   SPF4            1649/BE      1654-LI
   SPF5            1651/BE      1656-AI
   SPF6            1646/BNE     1660/BE      1663-CI
   SPF9            1609/BNE     1613/BNE     1616/BNE     1621/BNE     1668-LI
   SPR             1664/BNE     1672-LCI
   SPRFPT          1583/CAL1    1673/LM      1682-GEN
   SPR1            1629/BG      1675/LI      1680-LI
   SYNFLAG           99/REF      598/STW      952/LW       985/STW      994/LW
   SYNON            977/BNE      980/BNE      983-LI      1154/BAL
   SYNONX           756/BAL      994-LW
   TADATA          77.1/REF    286.3/STW    317.5/LW
   TDATE            921/LM      1168-TEXT
   TERM              66/REF      133/LW       158/LW       161/LW       362/STW      508/LW       527/STW
      1289/LW      1309/LW      1325/LW      1347/LW      1421/LW      1521/LW      1603/LW      1614/LW
      1691/LW      1707/LW      1901/LW      1908/LW      1913/LW      1922/LW      1935/LW      1959/LW
   TESTFNC          112/DEF      217/BAL      408-LB      1823/BAL
   TEST1            409/BE       411/BNE      418/BG       424-MTB
   TEST2            444/BG       449/BNE      451/B        454-LI
   TEST3            425/BE       431/BNE      434/BNE      440/BG       443/BL       452-AI
   TEST4            413-CB       420/BDR
   TEST5            429/BE       439-CB       446/BDR
   TEST6            432-LB       436/BDR
   TEST7            438/B        457-LW
   TIMECAL          123/CAL1     212-GEN
   TLABEL           104/REF      117/EQU      648/LW       776/LI      1474/STB     1477/STW     1556/STM
      1557/STW     1558/LI      1563/STB     1565/LI      1727/STM     1729/LI      1737/STD     1738/LI
      1745/STW     1747/STB     1751/MTB     1752/STD     1753/LI      1779/STB     1780/STB     1783/LM
      1792/DATA    1792/DATA    1792/DATA
   TLBLSIZE         106/REF     1473/LI
   TOFILE           102/REF      355/MTW      424/MTB      427/LB       433/CB       442/CB       448/CB
       458/STS     1764/LI      1765/MTB     1832/MTW
   TOM             1767/BAL     1813-MTB
   TOSWT             90/REF     1425/MTW     1452/STW
   TSFPT            285/CAL1     301/CAL1     343-GEN
   UACCTX           760/BAL     1053-LW
   UNLABEL         1255/LB      1256/LI      1282-TEXTC
   UNPRINT           61/REF      245/BAL      271/BAL      594/BAL     1107/BAL     1560/BAL
   UNTBL             95/REF      602/STW     1016/DATA    1018/DATA    1019/DATA    1020/DATA    1038/STW
      1053/LW      1055/LW
   VLPTAB           713/EXU     1144-BAL
   WACCKGC       1124.1-EQU   1130.5/BLE
   WACCTX           758/BAL     1063-LW
   WACC10          1067/BG      1072-BAL
   WACC19          1040/BAL     1048/BAL     1072/BAL     1074-SLS
   WACC20           998/BAL     1058/BAL     1075-STB     1141/B       1754/BAL     1797/BAL     1806/BAL
      1811/BAL     1814/BAL
   WACC30          1080-SW      1112/BE
   WACC40          1084-LCI     1086/ANLZ
   WACC44          1088/BNE     1102-MTB
   WACC45          1077/B       1078/BAL     1103-LCI
   WACC48          1115/BL      1119/BNE     1123-CI
   WACC50          1124/BG    1130.1-LB
   WACC60          1078-BAL     1129/BDR
   WEOF            1418-DSECT
   WEOFER          1436/DATA    1436/DATA    1458-LI
   WEOFLO           554-GEN      565/CAL1     820/CAL1
   WEOF1           1426/BNE     1431-CAL1    1453/B
   WEOF2           1423/BNE     1438-BAL
   WEOF3           1429/BAZ     1455-LI
   WRTBL             95/REF      600/STW     1019/DATA    1063/LW      1065/LW
   WRTCR            334/CAL1     385-GEN      588/CAL1
   WRTDEL           332/CAL1     397-GEN
   WRTFB            368/CAL1     402-GEN
   WRTFPT            70/REF      131/STW      241/AW       242/DW       243/MW       488/STW     1626/STW
      1630/LW      1634/STM     1655/STS     1665/CAL1    1674/OR      1677/STM     1678/CAL1
   WRTQUST          319/CAL1     321-GEN
   WR14            1017-DATA    1057/DW
   YES%            1784/CD      1787/CD      1794-DATA
   03ABN           1858/EOR     1892-GEN
   1BUF              73/REF      293/STW      296/LB       297/LW       302/STW      316/LH       382/PZE
   %                230/BDR      238/BNE      257/BAZ      260/BLE      274/BNE    288.5/BNE      295/BIR
       312/BNE    317.8/EQU    346.3/BNE      467/BNE      486/BG       534/BE       579/BNE      587/BNC
       605/BDR      627/BIR      652/BE       658/BNE      684/BG       748/BG       767/BE       802/BNE
       812/BE       827/EQU      839/BCS      855/BLE      868/BANZ     873/BG       970/BE       981/BDR
       989/BDR     1009/BNE     1010/ANLZ    1082/BNE     1099/BNE     1100/BDR     1114/CI    1120.3/BNE
      1122/B     1124.1/EQU     1127/BE      1177/EQU     1238/BE      1291/BE      1306/BLE     1359/BNE
      1362/BNE     1444/BE      1493/BNE     1567/BE      1666/BDR     1742/BNE     1750/BAZ     1760/BE
      1766/BE      1799/EQU     1861/BE      1873/BDR     1915/BE      1937/BNE     1956/BE      1961/BLE
