BANNER TELEFILE,TELE-PCL,PCLMN.
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               MM         MM    NN         NN
                  PPPPPPPPPPPPP    CCCCCCCCCCCCC    LL               MMM       MMM    NNN        NN
                  PP         PP    CC         CC    LL               MMMM     MMMM    NNNN       NN
                  PP         PP    CC               LL               MM MM   MM MM    NN NN      NN
                  PP         PP    CC               LL               MM  MM MM  MM    NN  NN     NN
                  PPPPPPPPPPPPP    CC               LL               MM   MMM   MM    NN   NN    NN
                  PPPPPPPPPPPP     CC               LL               MM    M    MM    NN    NN   NN
                  PP               CC               LL               MM         MM    NN     NN  NN
                  PP               CC               LL               MM         MM    NN      NN NN
                  PP               CC         CC    LL         LL    MM         MM    NN       NNNN
                  PP               CCCCCCCCCCCCC    LLLLLLLLLLLLL    MM         MM    NN        NNN
                  PP                CCCCCCCCCCC     LLLLLLLLLLLLL    MM         MM    NN         NN
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               MM         MM    NN         NN
                  PPPPPPPPPPPPP    CCCCCCCCCCCCC    LL               MMM       MMM    NNN        NN
                  PP         PP    CC         CC    LL               MMMM     MMMM    NNNN       NN
                  PP         PP    CC               LL               MM MM   MM MM    NN NN      NN
                  PP         PP    CC               LL               MM  MM MM  MM    NN  NN     NN
                  PPPPPPPPPPPPP    CC               LL               MM   MMM   MM    NN   NN    NN
                  PPPPPPPPPPPP     CC               LL               MM    M    MM    NN    NN   NN
                  PP               CC               LL               MM         MM    NN     NN  NN
                  PP               CC               LL               MM         MM    NN      NN NN
                  PP               CC         CC    LL         LL    MM         MM    NN       NNNN
                  PP               CCCCCCCCCCCCC    LLLLLLLLLLLLL    MM         MM    NN        NNN
                  PP                CCCCCCCCCCC     LLLLLLLLLLLLL    MM         MM    NN         NN
D
ASSIGN M:CI,(FILE,CI:PCLMN,PCLH00CI),(IN),(SAVE)
ASSIGN M:SI,(FILE,SI:PCLMN,PCLH00SI),(IN),(SAVE)
ASSIGN M:BO,(FILE,BO:PCLMN,PCLH00BO),(OUT),(SAVE)
ASSIGN M:LL,(DEVICE,LO),(OUT)
1* AP * 22:28 JUN 16,'85                                                                          PAGE    1
A      1                      .010  +0                                  Pre-release H02
       2                      .020  H02   SET         1                 DIFFERENTIATE BETWEEN H01/H02
       3                   125.000  +125                                PCL SIDR      32616,32745
       4                   125.010           DEF      MAXSEV
       5                   125.020           DEF      TADATA            TYPE AHEAD DATA
       6                   144.000  +144,144                            Pre-release H01
       7                   242.000  +242                                PCL SIDR      32008
       8                   242.010  PTCH5LBL EQU,0    %
       9                   255.000  +255,255                            PCL SIDR      32008
      10                   255.010           LI,R4    80
      11                   258.000  +258,258                            PCL SIDR      32008
      12                   258.010           B        PTCH5LBL
      13                   275.000  +275,275                            Pre-release H01/H02
      14                   275.010        DO          H02
      15                   275.020           TEXT     'H02 '            VERSION
      16                   275.030        ELSE
      17                   275.040           TEXT     'H01 '            VERSION
      18                   275.050        FIN
      19                   385.000  +385                                PCL SIDR      32676
      20                   385.010           LW,R2    TERM,R7
      21                   385.020           CI,R2    X'15'             LF?
      22                   385.030           BE       %+2
      23                   453.000  +453,453                            PCL SIDR      32808
      24                   453.010           NOP      0     BAL,R11 CLOSDCB => 1500 ON LIST IF M:LO/FID;JOB
      25                   779.000  +779                                PCL SIDR      31885
      26                   779.010           MTW,0    ERRFLAG
      27                   779.020           BE       RETURN
      28                   779.030           LW,R10   MAXCMBX,R7
      29                   779.040           AI,R10   -524
      30                   779.050           CI,R10   80
      31                   779.060           BL       %+2
      32                   779.070           LI,R10   80
      33                   786.000  +786,786                            PCL SIDR      31885
      34                   786.010           DATA     X'8000000A'       *R10 (80)
      35                   807.000  +807,807                            Tele-PCL SIDR 4.38
      36                   807.010        DO          H02
      37                   807.020           BE       RETURN1           NO
      38                   807.030        ELSE
      39                   807.040           BE       RETURN
      40                   807.050        FIN
      41                   880.000  +880,881                            Tele-PCL SIDR 4.40
      42                   880.010        DO          H02
      43                   880.020  ERRORLP  MTW,-1   ERRFLAG           DECREMENT COUNT
      44                   880.030           BLE      ERRORDN
      45                   880.040           LW,R5    R9
      46                   880.050           SLS,R5   1
      47                   880.060           AI,R5    1
      48                   880.070           LH,3     0,R5              SET CURRENT ERROR
      49                   880.080           CH,R3    1,R5              COMPARE WITH NEXT ERROR
      50                   880.090           BNE      PRTERR1           DIFFERENT SO PRINT IT
      51                   880.100           AI,R9    1
      52                   880.110           B        ERRORLP           CONTINUE
      53                   880.120  ERRORDN  EQU,0    %
      54                   880.130        ELSE
      55                   880.140           MTW,-1   ERRFLAG           COUNT DOWN
      56                   880.150           BG       PRTERR1
      57                   880.160        FIN
      58                   886.000  +886,886                            Tele-PCL SIDR 4.38
      59                   886.010        DO          H02
      60                   886.020           BE       RETURN1
      61                   886.030        ELSE
      62                   886.040           BE       RETURN
      63                   886.050        FIN
      64                   908.000  +908,908                            Tele-PCL SIDR 4.38
      65                   908.010        DO          H02
      66                   908.020  RETURN   LB,R5    10                THIS WILL CAUSE PCL TO
      67                   908.030           CI,R5    6                 ABORT ON ANY
      68                   908.040           BLE      RETURN1           GREATER THAN SEVERITY LEVEL 6
      69                   908.050           AND,R10  =X'FFFF'
      70                   908.060           CI,R10   X'300'            UNLESS A X'300' ERROR
      71                   908.070           BE       RETURN1
      72                   908.080           LC       BOG               IF BATCH
      73                   908.090           BCS,12   RETURN1
      74                   908.100           CAL1,9   3                 M:XXX (ABORT)
      75                   908.110  RETURN1  LCI      7                 RESTORE REGISTERS
      76                   908.120        ELSE
      77                   908.130  RETURN   LCI      7                 RESTORE REGISTERS
      78                   908.140        FIN
      79                  1133.000  +1133,1133                          PCL SIDR      32821
      80                  1133.010           DATA     X'7C007803'       5F-40
      81                  1134.000  +1134,1134                          Tele-PCL SIDR 4.39
      82                  1134.010        DO          H02
      83                  1134.020           DATA     X'03FE03FE'       9F-80 LOWER CASE
      84                  1134.030           DATA     X'000003FC'       BF-A0 LOWER CASE
      85                  1134.040        ELSE
      86                  1134.050           DATA     0,0               LOWER CASE
      87                  1134.060        FIN
      88                  1182.000  +1182,1182                          PCL SIDR      32745
      89                  1182.010  PATCH    RES      132               PAD OUT TO A PAGE BOUNDARY
      90                  1182.020  TADATA   RES      1
      91                  9000.000  +END                                Pre-release H01
1* AP * 22:28 JUN 16,'85    PCLMN - PCL MAIN, ERROR, PRTERR                                       PAGE    2
A       1*        00000001           H02   SET         1                 DIFFERENTIATE BETWEEN H01/H02
1* AP * 22:28 JUN 16,'85    PCLMN - PCL MAIN, ERROR, PRTERR                                       PAGE    3
A       1                                     TITLE    'PCLMN - PCL MAIN, ERROR, PRTERR'
        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*      PCL      EXECUTIVE ROUTINE OF PCL PROCESSOR
       15         00000000           R0       EQU      0
       16         00000001           R1       EQU      1
       17         00000002           R2       EQU      2
       18         00000003           R3       EQU      3
       19         00000004           R4       EQU      4
       20         00000005           R5       EQU      5
       21         00000006           R6       EQU      6
       22         00000007           R7       EQU      7
       23         00000008           R8       EQU      8
       24         00000009           R9       EQU      9
       25         0000000A           R10      EQU      10
       26         0000000B           R11      EQU      11
       27         0000000C           R12      EQU      12
       28         0000000D           R13      EQU      13
       29         0000000E           R14      EQU      14
       30                                     SYSTEM   SIG7
       31                            *
       32                            *P*      NAME:    PCL
       33                            *P*
       34                            *P*      PURPOSE: PCL PROVIDES FOR PROCESSING OF USER COMMANDS WHICH
       35                            *P*               DIRECT INFORMATION MOVEMENT BETWEEN INPUT AND OUTPUT
       36                            *P*               DEVICES.  THE EXECUTIVE ROUTINE IS THE MAIN DRIVING
       37                            *P*               ROUTINE FOR THE PCL SUBSYSTEM.
       38                            *P*
       39                            *
       40                            *DO*
       41                            *P*
       42                            * INPUT
       43                            *        ARGBUF   ARGUMENT BUFFER
       44                            *        NCHAR    LENGTH OF CURRENT ARGUMENT
       45                            *        TERM     TERMINATOR OF CURRENT ARGUMENT
       46                            *        R13      MAXIMUM ERROR SEVERITY
       47                            *        PCL CONTROL COMMANDS FROM TY'S OR CR'S
       48                            *        R0       ZERO REGISTER
       49                            * OUTPUT
       50                            *        R12      CURRENT ACTION CODE
       51                            *        PREVACT  PREVIOUS ACTION COD%
       52                            *        CMDBUF   CONTROL COMMAND BUFFER
       53                            *        CMBX     -CMDBUF- INDEX OF FIRST ARGUMENT
       54                            *        MAXCMBX  MAXIMUM -CMDBUF- INDEX
       55                            *        DIAGADD  INITIALIZED DIAGNOSTIC ADDRESS
       56                            *        CALL TO APPROPRIATE COMMAND PROCESSOR
       57                            *
       58                            *
       59                            *FIN*
       60                            *                 **********
       61                            *                 *  DEFS  *
       62                            *                 **********
       63                                     DEF      PCL               MAIN ENTRY POINT
       64                                     DEF      TRANSACT
       65                                     DEF      CMDBUF,CMBX,MAXCMBX
       66                                     DEF      ARGBUFF,NCHAR,TERM
       67                                     DEF      ARGTBL,DEVICE,FILE,CODE,MODE,SEQUENCE,SELECT
       68                                     DEF      DVLARG,TOSWT
       69                                     DEF      PRTBUF
       70                                     DEF      ERRFLAG
       71                                     DEF      DCBS              DCB FLAGS
       72                                     DEF      IOABORTS          ERRORS THAT TERMINATE COPYALL/STD
       73                                     DEF      PRTERR            PRINT ERRORS
       74                                     DEF      IOBUF             DISP OF RDWRT BUFFER
       75                                     DEF      NPAGE             # EXTRA PAGES FOR RDWRT
       76                                     DEF      OPNFPT            DISP OF SPACE FOR BLDCB FPT
       77                                     DEF      OPNXFPT           SPACE FOR OPENNXT
       78                                     DEF      STDBUF            COPYSTD CMD BUFFER
       79                                     DEF      1BUF              READ1 BUFFER
       80                                     DEF      OUTBLK            OUTPUT BLOCKING VALUES FOR RDWRT
       81                                     DEF      BLKIN             INPUT BLK SPECIFICATIONS
       82                                     DEF      LISTPOS           FOR NAMES HORIZ COPYALL/STD
       83                                     DEF      TOARG,RDFPT,WRTFPT,FPARAM
       84                                     DEF      ARGBUF4
       85                                     DEF      TOVER
       86                                     DEF      PRNTBUF,RECNUM
       87                                     DEF      TLABEL,SYNFLAG
       88                                     DEF      ATTRB
       89                                     DEF      TLBLSIZE
       90                                     DEF      CARDSEQ           SEQUENCE # SAVE
       91                                     DEF      TABSET
       92                                     DEF      RSSAVE
       93                                     DEF      COPYSTDF          ZERO=NO COPYSTD, >0=COPYING STD FILE,
       94                            *,*                                 <0=COPYING FROM LIST IN STD FILE.
       95                                     DEF      LINENO
       96                                     DEF      SFARG             PLACE TO SAVE STD FILE ARGS
       97                                     DEF      EATTRB            FLAGS FOR EXTENDED ATTR LIST
       98                                     DEF      COPYSK            COPYALL SELECT FLAGS (BY ORG)
       99                                     DEF      CCTAB             BIT TABLE OF PRINTABLE CHARS
      100                                     DEF      EXTBL,RDTBL,WRTBL,UNTBL
      101                                     DEF      LTSTCMBX          PTR TO START OF CURRENT ARG
      102                                     DEF      SUPERR            SUPRESS ERRORS FLAG
      103                                     DEF      INCRPT
      104                                     DEF      OUTCRPT           OUTPUT ENCRYPTION SEED
      105                                     REF      CLRARG
      106                                     REF      HEX2BIN
      107                                     DEF      ERROR
      108                                     REF      HEX2BCD
      109                                     DEF      INSER             CURRENT INPUT SERIAL#
      110                                     DEF      OUTSER            CURRENT OUTPUT SERIAL#
      111                                     DEF      DEL%CT
      112                                     DEF      BOG
      113                                     DEF      FROMFILE,TOFILE,REVIEW,DELETEF
      114                                     DEF      SCRATCH
      115                                     DEF      GRANCNT
      116                                     DEF      SEQNUM
      117                                     DEF      COPYPHY
      118                                     DEF      LISTCMBX,LISTTERM
      119                                     DEF      ANSBLK
      120                                     DEF      BLKBUFF
      121                                     DEF      BLKSIZE
      122                                     DEF      UNBADR
      123                                     DEF      EXPIRE
      124                                     DEF      IN%ARG,OUT%ARG
      125                                     DEF      DEV%SAV1
        1*                                    DEF      MAXSEV
        2*                                    DEF      TADATA            TYPE AHEAD DATA
      126                            *
      127                                     REF      GETARG
      128                                     REF      COPYTO
      129                                     REF      FIXARG
      130                                     REF      CLOSEI,CLOSEO     CLOSE DCBS
      131                                     REF      TEXTARG           CHECK LENGTH OF PSWD,ACCT
      132                                     REF      LCCHARS
      133                                     REF      COPYALL
      134                                     REF      M:SI,M:UC,M:LO
      135                                     REF      M:C               TO IGNORE BATCH !PCL
      136                                     REF      F:STD             TO KEEP CLOSED
      137                                     REF      J:JIT
      138                                     REF      DELETEAL,DELETE,LIST
      139                                     REF,1    JB:STEPCC
      140                                     REF      J:CCBUF
      141                                     REF      REW,SPF,SPE,WEOF
      142                                     REF      INTARG
      143                                     REF      REVRP             BREAK HERE IS BUMP RETURN
      145                                     REF      M:DO
      146                                     REF      M:LL
      147                                     REF      JB:CCARS          BYTE COUNT OF J:CCBUF
      148                            *
      149                                     DEF      PATCH             PROCEDURE PATCH AREA
1* AP * 22:28 JUN 16,'85    PCLMN - PCL MAIN, ERROR, PRTERR                                       PAGE    4
A     150                                     PAGE
      151   04 00000                 PCL      CSECT    1
      152   05 00000                 PLSECT   CSECT    1                 PLIST AREA
      153   05 00000                          USECT    PCL
      154   04 00000    2270000C 07           LI,R7    STACK0            GET A DUMMY STACK
      155   04 00001    358000E8 07           STW,R8   TLABEL            SAVE WHETHER LINKED TO
      156   04 00002    22100007 A            LI,R1    #DCBS             OPEN ALL THE DCBS
      157   04 00003    32220036 07  DCB0     LW,R2    DCBNS,R1
      158   04 00004    70200000 X            LC       J:JIT             IF BATCH, NO M:UC
      159   04 00005    21200000 N            CI,R2    M:UC
      160   04 00006    69B00009              BCS,11   %+3               ONLINE OR NOT M:UC
      161   04 00007    22200000 N            LI,R2    M:LO              USE LO IF BATCH
      162   04 00008    35220036 07           STW,R2   DCBNS,R1
      163   04 00009    6830000C              BE       %+3               NEVER TRY OPEN TO M:UC
      164   04 0000A    04100025              CAL1,1   SETABN0           CLEAR ABN IN CASE OPEN
      165   04 0000B    04100023              CAL1,1   OPNDCB
      166   04 0000C    64100003              BDR,R1   DCB0
      167   04 0000D    6A600028              BAL,R6   LPCHK             LAST OPENED IS M:LL
      168   04 0000E    33100019 07           MTW,1    DCBS              =LP, CLEAR FLAG
      169   04 0000F    22200000 N            LI,R2    M:LO              CHECK LO TOO
      170   04 00010    04100025              CAL1,1   SETABN0
      171   04 00011    04100023              CAL1,1   OPNDCB            OPEN IT
      172   04 00012    6A600028              BAL,R6   LPCHK
      173   04 00013    55100019 07           STH,R1   DCBS              =LP, CLEAR ITS FLAG
      174   04 00014    22400004 A            LI,R4    4                 NOW SET CCS
      175   04 00015    12280034 07  DCB1     LD,R2    DCBNS-2,R4        FOR UC=DO,UC=LL,SI=LL AND DO=LL
      176   04 00016    2280002B A            LI,R8    X'2B'             MAKE  COMPARE FPT
      177   04 00017    75800002 A            STB,R8   R2                IN REGS
      178   04 00018    04100002 A            CAL1,1   2                 SINCE INDIRECT IS NOT WORK
      179   04 00019    49100008 A            OR,R1    R8
      180   04 0001A    2510027F A            SCS,R1   -1
      181   04 0001B    64400015              BDR,R4   DCB1
      182   04 0001C    47100019 07           STS,R1   DCBS
      183   04 0001D    04800000 05           CAL1,8   FPTGP
      184                            *
      185   04 0001E                          USECT    PLSECT
      186   05 00000    08000002 A   FPTGP    DATA     X'08000002'       REQUEST 2 PAGES
      187                            *
      188   05 00001                          USECT    PCL
      189   04 0001E    6880002F              BCR,8    BASEREG           GOT TWO, OK
      190   04 0001F    3310000A 07           MTW,1    ERRFLAG           NOT TWO, GIVE UP
      191   04 00020    22D00004 A            LI,R13   4                 ABORT ON THIS ONE
      192   04 00021    6AB001F5              BAL,R11  PRTERR
      193   04 00022    68000138              B        ENDPCL
      194   04 00023    94000002 A   OPNDCB   GEN,8,24 X'94',R2
      195   04 00024    00000000 A            DATA     0
      196   04 00025    86000002 A   SETABN0  GEN,8,24 X'86',R2
      197   04 00026    40000000 A            DATA     X'40000000',0
            04 00027    00000000 A
      198   04 00028    22300003 A   LPCHK    LI,R3    3                 FIRST MUST BE DEVICE
      199   04 00029    45340000 A            CS,R3    0,R2
      200   04 0002A    693C0001 A            BNE      1,R6              NOPE
      201   04 0002B    22304000 A            LI,R3    X'4000'
      202   04 0002C    31340001 A            CW,R3    1,R2
      203   04 0002D    684C0001 A            BAZ      1,R6
      204   04 0002E    680C0000 A            B        0,R6              GOT ONE
      205                            *
      206   04 0002F    32700009 A   BASEREG  LW,R7    R9                DEFINE BASE REGISTER
      207   04 00030    1200002E 07           LD,0     STACK
      208   04 00031    30000007 A            AW,0     7
      209   04 00032    95000007 A            STD,0    *7
      210                            *
      211   04 00033    222001FF A            LI,R2    511
      212   04 00034    18000000 A            SD,0     0
      213   04 00035    95040007 A            STD,R0   *R7,R2
      214   04 00036    64200034              BDR,R2   %-2
      215                            *
      216   04 00037                          USECT    PLSECT
      217   05 00001    2C00004C A   FPTPROMT GEN,8,16,8   X'2C',0,'<'
      218                            *
      219   05 00002                          USECT    PCL
      220   04 00037    32000007 A            LW,R0    R7                STACK ADDR FOR BREAK CONTROL
      221   04 00038    04800002 05           CAL1,8   FPTINT
      222                            *
      223   04 00039                          USECT    PLSECT
      224   05 00002    0E0002D7 04  FPTINT   GEN,8,7,17      X'0E',0,INT
      225                            *
      226   05 00003                          USECT    PCL
      227   04 00039    22000000 A            LI,R0    0                 RESTORE R0
      228                            *
      229   04 0003A    70200000 X            LC       J:JIT             SET UP BOG
      230   04 0003B    74000001 07           STCF     BOG               THIS MAY BE RIGHT
      231   04 0003C    68C00052              BCR,12   BATCH             BATCH IS NEVER INTERACTIVE
      232   04 0003D    69400046              BCS,4    CKCCBUF           GHOST IS UNLESS LINKED TO
      233   04 0003E    22300003 A            LI,R3    3                 ONLINE IS ONLY IF SI IS UC
      234   04 0003F    45300000 X            CS,R3    M:SI              MUST BE DEVICE
      235   04 00040    69300046              BNE      CKCCBUF           NO, MAYBE LINKED TO
      236   04 00041    32300001 X            LW,R3    M:SI+1
      237   04 00042    21306F00 A            CI,R3    X'6F00'           COC IN 90XX, NO IS 80XX
      238   04 00043    69400046              BANZ     CKCCBUF
      239   04 00044    022000C0 A            LCI      12                GOT INTERACTIVE ONLINE USER
      240   04 00045    74000001 07           STCF     BOG
      241   04 00046    72400000 X   CKCCBUF  LB,R4    JB:CCARS          ONLINE COMMAND LENGTH
      242   04 00047    6830005D              BE       PCL3              NOTHING, ENTER NON-TEL MODE
        1*        04 00048           PTCH5LBL EQU,0    %
      243   04 00048    22300057 A            LI,R3    CMDBUF
      244   04 00049    30300007 A            AW,R3    R7                ADDR OF CMDBUF
      245   04 0004A    32100003 A            LW,R1    R3
      246   04 0004B    22200000 N            LI,R2    J:CCBUF           ADDRESS OF COMMAND
      247   04 0004C    25200102 A            SLD,R2   2                 IN BYTES FOR MBS
      248   04 0004D    75400003 A            STB,R4   R3
      249   04 0004E    61200000 A            MBS,R2   0                 MOVE IT
      250   04 0004F    33FE0048 A            MTW,-1   CMDCNT,R7         SET TEL CMD FLAG
      251   04 00050    32200004 A            LW,R2    R4
      252   04 00051    6800006A              B        PCL1
      253                            *
      254   04 00052    330000E8 07  BATCH    MTW,0    TLABEL            IF LINKED TO, DONT READ M:C
        1*  04 00053    22400050 A            LI,R4    80
      256   04 00054    04100057              CAL1,1   OPNC
      257   04 00055    0410005A              CAL1,1   READC
        1*  04 00056    68000048              B        PTCH5LBL
      259   04 00057    14000000 N   OPNC     GEN,8,24 20,M:C
      260   04 00058    00040000 A            DATA     X'40000','C '
            04 00059    0000C340 A
      261   04 0005A    10000000 N   READC    GEN,8,24 16,M:C
      262   04 0005B    20000010 A            DATA     X'20000010',TLABEL BUFFER ADDR
            04 0005C    000000E8 07
      263                            *
      264   04 0005D    70200001 07  PCL3     LC       BOG               DO 'PCL XXX HERE' IF INTERACTIVE
      265   04 0005E    68400060              BCR,4    %+2
      266   04 0005F    04100003 05           CAL1,1   FPTHERE           PRINT 'PCL XXX HERE'
      267   04 00060    350E0048 A            STW,R0   CMDCNT,R7         CLEAR TEL FLAG
      268   04 00061                          USECT    PLSECT
      269   05 00003    11000000 X   FPTHERE  GEN,8,7,17      X'11',0,M:UC
      270   05 00004    34000000 A            DATA     X'34000000'
      271   05 00005    00000008              DATA     %+3
      272   05 00006    0000000D A            DATA     13
      273   05 00007    00000000 A            DATA     0
      274   05 00008    D7C3D340 A            TEXT     'PCL '
        1*        00000001                 DO          H02
        2*  05 00009    C8F0F240 A            TEXT     'H02 '            VERSION
        3*                                 ELSE
        4*                       *S*          TEXT     'H01 '            VERSION
        5*                                 FIN
      276   05 0000A    C8C5D9C5 A            TEXT     'HERE
'
            05 0000B    15404040 A
      277   05 0000C                          USECT    PCL
      278                            *
      279   04 00061    32100007 A   NXCMD    LW,R1    R7                READ NEXT COMMAND
      280   04 00062    20100057 A            AI,R1    CMDBUF
      281   04 00063    04100001 05           CAL1,1   FPTPROMT
      282   04 00064    0410000C 05           CAL1,1   FPTCONSL          READ COMMAND
      283   04 00065                          USECT    PLSECT
      284   05 0000C    10000000 N   FPTCONSL GEN,8,24 16,M:SI
      285   05 0000D    F4000010 A            DATA     X'F4000010'
      286   05 0000E    00000134 04           DATA     TERMPCL           TERMINATE ON ERROR
      287   05 0000F    00000134 04           DATA     TERMPCL           TERMINATE ON ABNORMAL
      288   05 00010    80000001 A            PZE      *R1
      289   05 00011    0000008C A            DATA     140               SIZE
      290   05 00012    00000000 A            DATA     0                 NO BYTE DISPLACEMENT
      291   05 00013                          USECT    PCL
      292   04 00065    35000000 07           STW,R0   BREAK             CLEAR BREAK
      293   04 00066    32200004 X            LW,R2    M:SI+4
      294   04 00067    2520006F A            SLS,R2   -17               GET COUNT
      295   04 00068    20200000 A            AI,R2    0                 NO INPUT IS END
      296   04 00069    68300134              BE       TERMPCL
      297   04 0006A    2240015B A   PCL1     LI,R4    4*CMDBUF-1        POINT TO LAST CHAR
      298   04 0006B    30400002 A            AW,R4    R2
      299   04 0006C    F0280007 A            LC       *R7,R4
      300   04 0006D    68E00070              BCR,14   %+3
      301   04 0006E    20200001 A            AI,R2    1
      302   04 0006F    20400001 A            AI,R4    1
      303   04 00070    22300015 A            LI,R3    X'15'
      304   04 00071    F5380007 A            STB,R3   *R7,R4            PUT CR IN LINE FOR ECHO
      305   04 00072    70200001 07           LC       BOG               IF ONLINE FROM FILE,
      306   04 00073    6880007A              BCR,8    PCL4              ECHO TO TERMINAL
      307   04 00074    6940007A              BCS,4    PCL4
      308   04 00075    330E0048 A            MTW,0    CMDCNT,R7         DONT ECHO TEL CMD
      309   04 00076    6910007A              BL       PCL4
      310   04 00077    04100018 05           CAL1,1   FPTCOMD3          WRITE PROMPT
      311   04 00078    22B00000 N            LI,R11   M:UC
      312   04 00079    04100013 05           CAL1,1   FPTCOMD           AND COMMAND
      313   04 0007A    70200000 X   PCL4     LC       J:JIT
      314   04 0007B    69C0007F              BCS,12   KGC0%4            IF BATCH, CARDS MIGHT HAVE SEQ INFO
      315   04 0007C    21200051 A            CI,R2    81
      316   04 0007D    6930007F              BNE      %+2
      317   04 0007E    204FFFF8 A            AI,R4    -8
      318   04 0007F    F2300001 A   KGC0%4   LB,R3    *R1
      319   04 00080    68000082              B        %+2
      320   04 00081    F2340001 A   CCTABLP  LB,R3    *R1,R2
      321   04 00082    213000C1 A            CI,R3    'A'
      322   04 00083    69200090              BG       CCTABLX
      323   04 00084    2130004A A            CI,R3    X'4A'
      324   04 00085    69100090              BL       CCTABLX
      325   04 00086    22B00001 A            LI,R11   1
      326   04 00087    25B60200 A            SCS,R11  0,R3
      327   04 00088    19300000 X            CLM,R3   LCCHARS
      328   04 00089    6990008E              BCS,9    KGC0%5
      329   04 0008A    32B00008 07           LW,R11   CCTAB+6
      330   04 0008B    47B00006 07           STS,R11  CCTAB+4
      331   04 0008C    22B003FC A            LI,R11   X'3FC'            ADD ALL LOWER CASE
      332   04 0008D    47B00007 07           STS,R11  CCTAB+5           TOGETHER
      333   04 0008E    2530007B A   KGC0%5   SLS,R3   -5
      334   04 0008F    47B60002 07           STS,R11  CCTAB,R3
      335   04 00090    64200081     CCTABLX  BDR,R2   CCTABLP
      336   04 00091    18C0000C A            SD,R12   R12               CLEAR ERRORS, CMD
      337   04 00092    F2300001 A            LB,R3    *R1
      338   04 00093    2130005C A            CI,R3    '*'
      339   04 00094    683000CC              BE       PRINTIT1          COMMENT, JUST ECHO
      340                            *
      341   04 00095    354E0052 A            STW,R4   MAXCMBX,R7        SAVE LENGTH
      342   04 00096    204FFFFF A   CONTCHK  AI,R4    -1                CHECK FOR CONTINUATION
      343   04 00097    2140015C A            CI,R4    4*CMDBUF
      344   04 00098    691000CC              BL       PRINTIT1
      345   04 00099    F2C80007 A            LB,R12   *R7,R4
      346   04 0009A    21C00040 A            CI,R12   ' '               FIND LAST NONBLANK
      347   04 0009B    68300096              BE       CONTCHK
      348   04 0009C    21C0005E A            CI,R12   ';'               IS IT CONTINUATION CHAR
      349   04 0009D    6930009F              BNE      CONT2
      350   04 0009E    204FFFFF A            AI,R4    -1                DONT MOVE THIS CHAR
      351   04 0009F    204FFEA5 A   CONT2    AI,R4    -4*CMDBUF+1       NUMBER TO MOVE
      352   04 000A0    15700002 A            STD,R7   R2
      353   04 000A1    25200102 A            SLD,R2   2
      354   04 000A2    30300126 07           AW,R3    CONTPTR
      355   04 000A3    691000AB              BL       CALLGET
      356   04 000A4    75400003 A            STB,R4   R3
      357   04 000A5    6120015C A            MBS,R2   4*CMDBUF
      358   04 000A6    30400126 07           AW,R4    CONTPTR
      359   04 000A7    2140060C A            CI,R4    CMBX1+1024        ARE WE STILL OK
      360   04 000A8    682000AA              BLE      CONT4             YES
      361   04 000A9    22480000 A            LI,R4    -X'80000'         SET CONTPTR NEGATIVE
      362   04 000AA    35400126 07  CONT4    STW,R4   CONTPTR
      363   04 000AB    2210015C A   CALLGET  LI,R1    4*CMDBUF          INITIALIZE SCANNER
      364   04 000AC    351E0051 A            STW,R1   CMBX,R7
      365   04 000AD    2210000C A   CALLGETA LI,R1    12                USE FILE TYPE FORMAT
      366   04 000AE    3250004E 07           LW,R5    MAXSEV            SAVE ERROR SEVERITY
      367   04 000AF    6AB00000 X            BAL,R11  GETARG            START LOOKING FOR A PASSWORD
      368   04 000B0    3500000A 07           STW,R0   ERRFLAG           IGNORE ERRORS
      369   04 000B1    22D00000 A            LI,R13   0
      370   04 000B2    3550004E 07           STW,R5   MAXSEV
      371   04 000B3    321E0008 A            LW,R1    DOTCNT,R7         IF TWO '.'S PRECEDE, ITS A PASSWORD
      372   04 000B4    641000BD              BDR,R1   GETPW
      373   04 000B5    321E0051 A   NOTPW    LW,R1    CMBX,R7           THE BATCH INPUT
      374   04 000B6    311E0052 A            CW,R1    MAXCMBX,R7        ALL THRU WITH INPUT LINE
      375   04 000B7    683000CC              BE       PRINTIT1
      376   04 000B8    322E0053 A            LW,R2    TERM,R7           GET THE PREVIOUS DELIMITER
      377   04 000B9    2120004B A            CI,R2    '.'               CHECK IF IT'S A PERIOD
      378   04 000BA    693000CA              BNE      STZINSWT          NOPE START AGAIN
      379   04 000BB    331E0008 A            MTW,1    DOTCNT,R7         COUNT THEM
      380   04 000BC    680000AD              B        CALLGETA          NEXT FIELD
      381                            *
      382   04 000BD    321E0054 A   GETPW    LW,R1    NCHAR,R7          GET SIZE OF PASSWORD
      383   04 000BE    683000B5              BE       NOTPW             SHOULD BE END OF LINE
      384   04 000BF    321E0051 A            LW,R1    CMBX,R7           CALC # TO BLANK
      385   04 000C0    38100014 07           SW,R1    LTSTCMBX
        1*  04 000C1    322E0053 A            LW,R2    TERM,R7
        2*  04 000C2    21200015 A            CI,R2    X'15'             LF?
        3*  04 000C3    683000C5              BE       %+2
      386   04 000C4    201FFFFF A            AI,R1    -1
      387   04 000C5    22200040 A            LI,R2    X'40'
      388   04 000C6    32300014 07           LW,R3    LTSTCMBX          GET DISP. OF PASSWORD IN BUF
      389   04 000C7    F5260007 A            STB,R2   *R7,R3            BLANK OUT PASSWORD 1 BYTE AT A
      390   04 000C8    20300001 A            AI,R3    1                 TIME
      391   04 000C9    641000C7              BDR,R1   %-2
      392   04 000CA    350E0008 A   STZINSWT STW,R0   DOTCNT,R7
      393   04 000CB    680000AD              B        CALLGETA
      394   04 000CC    70200001 07  PRINTIT1 LC       BOG               IF ONLINE,
      395   04 000CD    688000D0              BCR,8    %+3               DONT OUTPUT UNLESS
      396   04 000CE    70200019 07           LC       DCBS              SI AND LL ARE DIFFERENT
      397   04 000CF    696000DE              BCS,6    FPTEND            AND LL IS NOT UC
      398   04 000D0    330E0048 A            MTW,0    CMDCNT,R7         IF TEL CMD,
      399   04 000D1    691000DE              BL       FPTEND            DONT ECHO
      400   04 000D2    32100007 A            LW,R1    R7                PT R1 TO BUFFER
      401   04 000D3    20100057 A            AI,R1    CMDBUF
      402   04 000D4    32200004 X            LW,R2    M:SI+4            GET ACTUAL INPUT(SI) RECORD SIZE
      403   04 000D5    2520006F A            SLS,R2   -17               AND RIGHT ADJUST IT
      404   04 000D6    21200078 A            CI,R2    120               IS IT A BINARY CARD
      405   04 000D7    683000DE              BE       FPTEND
      406   04 000D8    22B00000 N            LI,R11   M:LL              OUTPUT TO LL
      407   04 000D9    04100013 05           CAL1,1   FPTCOMD           PRINT THE BATCH COMMAND
      408                            *
      409   04 000DA                          USECT    PLSECT
      410   05 00013    9100000B A   FPTCOMD  GEN,8,7,17      X'91',0,R11
      411   05 00014    34000010 A            DATA     X'34000010'
      412   05 00015    80000001 A            PZE      *R1
      413   05 00016    80000002 A            PZE      *R2               SIZE
      414   05 00017    00000000 A            DATA     0                 NO BYTE DISPLACEMENT
      415                            *
      416   05 00018                          USECT    PCL
      417   04 000DA    70200019 07           LC       DCBS              IS LL=LO
      418   04 000DB    692000DE              BCS,2    FPTEND            YES
      419   04 000DC    22B00000 N            LI,R11   M:LO
      420   04 000DD    04100013 05           CAL1,1   FPTCOMD           NO-PRINT COMMAND AGAIN ON M:LO
      421                            *
      422   04 000DE                          USECT    PLSECT
      423   05 00018    11000000 N   FPTCOMD3 GEN,8,24 X'11',M:UC
      424   05 00019    34000010 A            DATA     X'34000010'
      425   05 0001A    00000001              DATA     FPTPROMT
      426   05 0001B    00000001 A            DATA     1
      427   05 0001C    00000003 A            DATA     3
      428                            *
      429   05 0001D                          USECT    PCL
      430   04 000DE    21C0005E A   FPTEND   CI,R12   ';'               ARE WE CONTINUING
      431   04 000DF    68300061              BE       NXCMD             YES
      432   04 000E0    2210020C A            LI,R1    CMBX1             NO, GO DO IT.
      433   04 000E1    351E0051 A            STW,R1   CMBX,R7
      434   04 000E2    46100126 07           XW,R1    CONTPTR           SET UP FOR NEXT COMMAND
      435   04 000E3    351E0052 A            STW,R1   MAXCMBX,R7        OK, SET END
      436   04 000E4    692000E8              BG       KGC1%4
      437   04 000E5    22100035 A            LI,R1    53                STMT TOO LONG
      438   04 000E6    6AB00270              BAL,R11  ERROR
      439   04 000E7    680000F9              B        ENDCMD
      440   04 000E8    6AB001DE     KGC1%4   BAL,R11  TRANSACT          TRANSLATE COMMAND ACTION VERB
      441   04 000E9    21C00000 A            CI,R12   0                 TEST FOR ERROR RETURN
      442   04 000EA    693000EE              BNE      PCL2              NO-DO THE COMMAND
      443   04 000EB    22100012 A   PCL6     LI,R1    18                ERROR-ILLEGAL ACTION VERB
      444   04 000EC    6AB00270              BAL,R11  ERROR
      445   04 000ED    680000F9              B        ENDCMD
      446   04 000EE    22100034 A   PCL2     LI,R1    #WDSINIT0         CLEAR COMMAND INFORMATION
      447   04 000EF    35020019 07           STW,R0   INIT0,R1
      448   04 000F0    641000EF              BDR,R1   %-1
      449   04 000F1    22100017 A            LI,R1    ARGTBL+16-2       CLEAR FROM HEADER FLG TO END OF ARGTBL
      450   04 000F2    6AB00001 X            BAL,R11  CLRARG+1
      451   04 000F3    048002E4              CAL1,8   RSTBRK            CLEAR BREAK COUNT
      452   04 000F4    22200000 N            LI,R2    M:LO
        1*  04 000F5    02000000 A            NOP      0     BAL,R11 CLOSDCB => 1500 ON LIST IF M:LO/FID;JOB
      454   04 000F6    04100106              CAL1,1   FPTPROMT1         SET . PROMPT
      455   04 000F7    3210000C A            LW,R1    R12
      456   04 000F8    67020106              EXU      ACTTBL,R1
      457   04 000F9    6AB001F5     ENDCMD   BAL,R11  PRTERR
      458   04 000FA    6AB00000 X            BAL,R11  CLOSEI            MAKE SURE DCBS ARE CLOSED
      459   04 000FB    6AB00000 X            BAL,R11  CLOSEO
      460   04 000FC    22200000 N            LI,R2    F:STD
      461   04 000FD    6AB0014D              BAL,R11  CLOSDCB
      462   04 000FE    350E0008 A            STW,R0   DOTCNT,R7         PREPARE FOR NEXT COMMAND
      463   04 000FF    331E0048 A            MTW,1    CMDCNT,R7
      464   04 00100    68200138              BLE      ENDPCL            GO BACK TO TEL
      465   04 00101    70200001 07           LC       BOG               CHECK FOR ABORT
      466   04 00102    69400061              BCS,4    NXCMD
      467   04 00103    21D00004 A            CI,R13   4
      468   04 00104    69100061              BL       NXCMD
      469   04 00105    68000131              B        TERMPCL2
      470   04 00106    2C00004B A   FPTPROMT1 GEN,8,24 X'2C','.'
      471                            *
      472         04 00106           ACTTBL   EQU      %-1
      473   04 00107    680000EB              B        PCL6              TO - ERROR
      474   04 00108    6AB0011C              BAL,R11  COPY1             COPY, -ALL, -STD
      475   04 00109    6AB00123              BAL,R11  DEL1              DELETE, -ALL
      476   04 0010A    68000134              B        TERMPCL           END
      477   04 0010B    6AB00000 X            BAL,R11  LIST
      478   04 0010C    6AB00000 X            BAL,R11  REW               REMOVE
      479   04 0010D    6AB00000 X            BAL,R11  REW               REW
      480   04 0010E    6AB00000 X            BAL,R11  SPF               SPF
      481   04 0010F    6AB00000 X            BAL,R11  SPE               SPE
      482   04 00110    6AB00000 X            BAL,R11  WEOF              WEOF
      483   04 00111    680000EB              B        PCL6              ON - ERROR
      484   04 00112    680000EB              B        PCL6              OVER - ERROR
      485   04 00113    6AB001BB              BAL,R11  TABS              TABS
      486   04 00114    6AB0012B              BAL,R11  REVIEW0           REVIEW
      487   04 00115    6800005D              B        PCL3              PCL, ENTER NON-TEL MODE
      488   04 00116    02000000 A            NOP                        NULL COMMAND
      489   04 00117    6AB00000 X            BAL,R11  SPF               SPR
      490   04 00118    680000EB              B        PCL6              INTO - ERROR
      491   04 00119    6AB0019F              BAL,R11  ERONOFF           ERROR
      492   04 0011A    04900006 A            CAL1,9   6                 PRINT
      493   04 0011B    6AB00000 X            BAL,R11  REW               MOUNT
      494                            *
      495   04 0011C    321E004A A   COPY1    LW,R1    ARGBUFF+1,R7      TEST FOR COPYALL COMMAND
      496   04 0011D    311002E7              CW,R1    =C'YALL'
      497   04 0011E    68300000 X            BE       COPYALL
      498   04 0011F    311002E8              CW,R1    =C'YSTD'          TEST FOR COPYSTD
      499   04 00120    69300000 X            BNE      COPYTO
      500   04 00121    331E0006 A            MTW,1    COPYSTDF,R7       SET COPYSTD FLAG
      501   04 00122    68000000 X            B        COPYALL
      502                            *
      503   04 00123    321E004A A   DEL1     LW,R1    ARGBUFF+1,R7
      504   04 00124    311002E9              CW,R1    =C'ETEA'          DELETE
      505   04 00125    69300000 X            BNE      DELETE
      506   04 00126    321E004B A            LW,R1    ARGBUFF+2,R7
      507   04 00127    4B1002EA              AND,R1   =X'FFFFFF00'
      508   04 00128    311002EB              CW,R1    =X'D3D34000'      CHECK IF REALLY DELETEALL.
      509   04 00129    693000EB              BNE      PCL6              NOT DELETEALL
      510   04 0012A    68000000 X            B        DELETEAL
      511   04 0012B    70200001 07  REVIEW0  LC       BOG               IF NOT INTERACTIVE, JUST LIST
      512   04 0012C    68800000 X            BCR,8    LIST              NO REVIEW IN GHOST
      513   04 0012D    68400000 X            BCR,4    LIST
      514   04 0012E    3310001C 07           MTW,1    DELETEF
      515   04 0012F    3310001D 07           MTW,1    FROMFILE
      516   04 00130    68000000 X            B        LIST
      517                            *
      518   04 00131    04100029 05  TERMPCL2 CAL1,1   FPTABORT          PRINT ABORT MESSAGE
      519   04 00132    35D0004E 07           STW,R13  MAXSEV            MAKE SURE WE ABORT
      520   04 00133    68000138              B        ENDPCL
      521   04 00134    70300000 X   TERMPCL  LCF      J:JIT
      522   04 00135    69C00138              BCS,12   ENDPCL            BRANCH IF ONLINE OR GHOST
      523   04 00136    72200022 05           LB,R2    TXTRMPCL          MESSAGE SIZE
      524   04 00137    0410001D 05           CAL1,1   FPTRMPCL          PRINT 'PCL PROCESSING TERMINATE'
      525                            *
      526   04 00138                          USECT    PLSECT
      527   05 0001D    11000000 X   FPTRMPCL GEN,8,7,17     X'11',0,M:LO
      528   05 0001E    34000000 A            DATA     X'34000000'
      529   05 0001F    00000022              DATA     TXTRMPCL
      530   05 00020    80000002 A            PZE      *R2
      531   05 00021    00000001 A            DATA     1
      532   05 00022    19D7C3D3 A   TXTRMPCL TEXTC    'PCL PROCESSING TERMINATED'
            05 00023    40D7D9D6 A
            05 00024    C3C5E2E2 A
            05 00025    C9D5C740 A
            05 00026    E3C5D9D4 A
            05 00027    C9D5C1E3 A
            05 00028    C5C44040 A
      533   05 00029    11000000 N   FPTABORT GEN,8,24 17,M:LO
      534   05 0002A    34000000 A            DATA     X'34000000'
      535   05 0002B    0000002E              DATA     TXTABORT
      536   05 0002C    00000009 A            DATA     9
      537   05 0002D    00000000 A            DATA     0
      538   05 0002E    D7C3D340 A   TXTABORT TEXT     'PCL ABORT'
            05 0002F    C1C2D6D9 A
            05 00030    E3404040 A
      539   05 00031    E3150000 A            DATA     X'E3150000'
      540                            *
      541   05 00032                          USECT    PCL
      542   04 00138    22200000 N   ENDPCL   LI,R2    M:LO
      543   04 00139    6AB0014D              BAL,R11  CLOSDCB           CLOSE M:LO
      544   04 0013A    22200000 N            LI,R2    M:LL
      545   04 0013B    6AB0014D              BAL,R11  CLOSDCB           CLOSE M:LL
      546   04 0013C    22200000 N            LI,R2    M:DO
      547   04 0013D    6AB0014D              BAL,R11  CLOSDCB           CLOSE M:DO
      548   04 0013E    70200000 X            LC       J:JIT
      549   04 0013F    68C00141              BCR,12   %+2               JUST EXIT IF ONLINE
      550   04 00140    04900001 A   EXIT     CAL1,9   1
      551   04 00141    32D0004E 07           LW,R13   MAXSEV            SET STEP CCS FROM MAX SEV LEVEL
      552   04 00142    22100000 N            LI,R1    JB:STEPCC         DONT LOWER
      553   04 00143    71D20000 A            CB,R13   0,R1              STEP CC
      554   04 00144    68200140              BLE      EXIT              JUST EXIT
      555   04 00145    25D00008 A            SLS,R13  8
      556   04 00146    20D10001 A            AI,R13   X'10001'
      557   04 00147    21D10301 A            CI,R13   X'10301'
      558   04 00148    6820014A              BLE      %+2
      559   04 00149    20D00001 A            AI,R13   1                 ABORT IF SEV 4
      560   04 0014A    6910014C              BL       %+2
      561   04 0014B    20D00001 A            AI,R13   1                 ERROR IF SEV 3 OR 4
      562   04 0014C    8490000D A            CAL1,9   *R13
      563                            *
      564   04 0014D    32140000 A   CLOSDCB  LW,R1    0,R2              CLOSE DCB WHOSE ADR IS IN R2
      565   04 0014E    311002EC              CW,R1    =X'00200000'
      566   04 0014F    E840000B A            BAZ      *R11              NOT OPEN - EXIT
      567   04 00150    04100032 05           CAL1,1   CLOSFPT
      568                            *
      569   04 00151                          USECT    PLSECT
      570   05 00032    95000002 A   CLOSFPT  GEN,8,24 X'95',R2
      571   05 00033    80000000 A            DATA     X'80000000'
      572   05 00034    00000002 A            DATA     2                 SAVE
      573                            *
      574   05 00035                          USECT    PCL
      575   04 00151    E800000B A            B        *R11              EXIT
1* AP * 22:28 JUN 16,'85    PCLMN - PCL MAIN, ERROR, PRTERR                                       PAGE    5
A     576                                     PAGE
      577   04 00152    89B00007 A   REVIEW   PSW,R11  *R7
      578   04 00153    3310001D 07           MTW,1    FROMFILE          INITIALIZE FOR NULL FIELD
      579   04 00154    33100025 07           MTW,1    TOFILE
      580   04 00155    321E0053 A            LW,R1    TERM,R7
      581   04 00156    2110006B A            CI,R1    ','
      582   04 00157    6830017A              BE       REV8              NULL FROM FIELD
      583   04 00158    21100015 A            CI,R1    X'15'
      584   04 00159    68300190              BE       REV6              END OF COMMAND
      585   04 0015A    22B0015D              LI,R11   %+3
      586   04 0015B    2210000C A   GETARG12 LI,R1    12                GET FILE NAME
      587   04 0015C    68000000 X            B        GETARG
      588   04 0015D    330E0054 A            MTW,0    NCHAR,R7
      589   04 0015E    68300164              BE       REV9              NULL FROM FIELD
      590   04 0015F    02200040 A            LCI      4
      591   04 00160    2A1E0049 A            LM,R1    ARGBUFF,R7        MOVE FILE NAME
      592   04 00161    2B10001D 07           STM,R1   FROMFILE
      593   04 00162    2A1E004D A            LM,R1    ARGBUFF+4,R7
      594   04 00163    2B100021 07           STM,R1   FROMFILE+4
      595   04 00164    321E0053 A   REV9     LW,R1    TERM,R7
      596   04 00165    2110004B A            CI,R1    '.'               IF ACCOUNT FOLLOWS, PUT IN ARGTBL
      597   04 00166    69300177              BNE      REV1
      598   04 00167    330E000C A            MTW,0    FILE,R7           UNLESS ALREADY THERE
      599   04 00168    6930019A              BNE      REV5
      600   04 00169    332E000C A            MTW,2    FILE,R7
      601   04 0016A    321E0051 A            LW,R1    CMBX,R7           START AT DOT (NO NAME)
      602   04 0016B    201FFFFF A            AI,R1    -1
      603   04 0016C    351E000D A            STW,R1   FILE+1,R7
      604   04 0016D    6AB0015B              BAL,R11  GETARG12          GET ACCOUNT
      605   04 0016E    321002ED              LW,R1    =X'5000108'       CHECK ARG LENGTH
      606   04 0016F    2140004B A            CI,R4    '.'               NULL PERMITTED IF PASSWORD FOLLOWS
      607   04 00170    69300176              BNE      REV15
      608   04 00171    201FFF00 A            AI,R1    -X'100'
      609   04 00172    6AB00000 X            BAL,R11  TEXTARG
      610   04 00173    331E000C A            MTW,1    FILE,R7           INDICATE PASSWORD
      611   04 00174    6AB0015B              BAL,R11  GETARG12          GET IT
      612   04 00175    321002EE              LW,R1    =X'6000108'
      613   04 00176    6AB00000 X   REV15    BAL,R11  TEXTARG
      614   04 00177    321E0053 A   REV1     LW,R1    TERM,R7
      615   04 00178    2110006B A            CI,R1    ','               IS 'TO' FIELD PRESENT
      616   04 00179    69300190              BNE      REV6              NO
      617   04 0017A    6AB0015B     REV8     BAL,R11  GETARG12
      618   04 0017B    21D00001 A            CI,R13   1
      619   04 0017C    69200198              BG       REV3              ERROR
      620   04 0017D    330E0054 A            MTW,0    NCHAR,R7
      621   04 0017E    6830019A              BE       REV5              NULL TO FIELD
      622   04 0017F    02200040 A            LCI      4
      623   04 00180    2A1E0049 A            LM,R1    ARGBUFF,R7        MOVE FILE NAME
      624   04 00181    2B100025 07           STM,R1   TOFILE
      625   04 00182    2A1E004D A            LM,R1    ARGBUFF+4,R7
      626   04 00183    2B100029 07           STM,R1   TOFILE+4
      627   04 00184    7220001D 07           LB,R2    FROMFILE
      628   04 00185    6830018F              BE       REVA              NULL FROM FIELD
      629   04 00186    3300004A 07           MTW,0    COPYPHY           WAS PHY OPTION USED
      630   04 00187    6930018F              BNE      REVA              YES - NOT SORT ORDER
      631   04 00188    22300001 A            LI,R3    1
      632   04 00189    7246001D 07  REV7     LB,R4    FROMFILE,R3       TEST IF 'FROM' GR THAN 'TO'
      633   04 0018A    71460025 07           CB,R4    TOFILE,R3
      634   04 0018B    6910018F              BL       REVA              OK
      635   04 0018C    6920019A              BG       REV5              YES - ERROR
      636   04 0018D    20300001 A            AI,R3    1
      637   04 0018E    64200189              BDR,R2   REV7
      638   04 0018F    321E0053 A   REVA     LW,R1    TERM,R7           GET DELIMITER
      639   04 00190    33000046 07  REV6     MTW,0    COPYSK
      640   04 00191    68300196              BE       REV4              ONLY COPYALL PERMITS BLANK
      641   04 00192    21100040 A            CI,R1    ' '
      642   04 00193    68300198              BE       REV3
      643   04 00194    2110004D A            CI,R1    '('               AND LPAREN
      644   04 00195    68300198              BE       REV3
      645   04 00196    21100015 A   REV4     CI,R1    X'15'
      646   04 00197    6930019D              BNE      REV2              BAD TERMINATOR
      647   04 00198    88B00007 A   REV3     PLW,R11  *R7
      648   04 00199    E800000B A            B        *R11
      649   04 0019A    22100008 A   REV5     LI,R1    8                 FILE RANGE SPECIFICATION INVALID
      650   04 0019B    88B00007 A            PLW,R11  *R7
      651   04 0019C    68000270              B        ERROR
      652   04 0019D    22100011 A   REV2     LI,R1    17
      653   04 0019E    6800019B              B        REV5+1
1* AP * 22:28 JUN 16,'85    PCLMN - PCL MAIN, ERROR, PRTERR                                       PAGE    6
A     654                                     PAGE
      655   04 0019F    89B00007 A   ERONOFF  PSW,R11  *R7
      656   04 001A0    322E0053 A            LW,R2    TERM,R7           MUST BE BLANK
      657   04 001A1    21200040 A            CI,R2    ' '
      658   04 001A2    6930019D              BNE      REV2
      659   04 001A3    22100006 A            LI,R1    6                 ALL DELIMITERS
      660   04 001A4    6AB00000 X            BAL,R11  GETARG
      661   04 001A5    322E0049 A            LW,R2    ARGBUFF,R7
      662   04 001A6    75000002 A            STB,R0   R2                CLEAR COUNT
      663   04 001A7    312001BA              CW,R2    TCSAVE            IS IT SAVE
      664   04 001A8    683001AB              BE       %+3               YUP
      665   04 001A9    382001B9              SW,R2    TCREL             OR REL
      666   04 001AA    693001AD              BNE      %+3               NO,..EH
      667   04 001AB    35200015 07           STW,R2   SUPERR
      668   04 001AC    6800018F              B        REVA
      669   04 001AD    22100125 A            LI,R1    ARGBUF4+1         CONVERT INPUT
      670   04 001AE    322E0054 A            LW,R2    NCHAR,R7
      671   04 001AF    6AB00000 X            BAL,R11  HEX2BIN
      672   04 001B0    20400000 A            AI,R4    0
      673   04 001B1    6930019D              BNE      REV2
      674   04 001B2    73000003 A            MTB,0    R3                IS IT PROPER VALUE
      675   04 001B3    6930019D              BNE      REV2              NO
      676   04 001B4    73F00003 A            MTB,-1   R3                SET NO PLACE CODE
      677   04 001B5    3530000B 07           STW,R3   ERRFLAG+1
      678   04 001B6    3310000A 07           MTW,1    ERRFLAG
      679   04 001B7    6AB001F5              BAL,R11  PRTERR
      680   04 001B8    6800018F              B        REVA
      681   04 001B9    00D9C5D3 A   TCREL    DATA     'REL'
      682   04 001BA    00E2C1E5 A   TCSAVE   DATA     'SAV'
1* AP * 22:28 JUN 16,'85    PCLMN - PCL MAIN, ERROR, PRTERR                                       PAGE    7
A     683                                     PAGE
      684   04 001BB    02200070 A   TABS     LCI      7
      685   04 001BC    8B500007 A            PSM,R5   *R7
      686   04 001BD    22500040 A            LI,R5    TABSET
      687   04 001BE    30500007 A            AW,R5    R7                ADDRESS OF TAB TABLE
      688   04 001BF    22600000 A            LI,R6    0
      689   04 001C0    22100003 A            LI,R1    3
      690   04 001C1    B5620005 A            STW,R6   *R5,R1            ZERO TABLE
      691   04 001C2    641001C1              BDR,R1   %-1
      692   04 001C3    356A0000 A            STW,R6   0,R5
      693   04 001C4    21600010 A   TABS2    CI,R6    16                MORE THAN 16 TABS SPECIFIED
      694   04 001C5    683001DC              BE       TABSERR2          YES
      695   04 001C6    22100006 A            LI,R1    6
      696   04 001C7    6AB00000 X            BAL,R11  GETARG            GET NEXT VALUE
      697   04 001C8    22100000 A            LI,R1    0                 MIN VALUE
      698   04 001C9    222000FF A            LI,R2    255               MAX VALUE
      699   04 001CA    6AB00000 X            BAL,R11  INTARG            CONVERT TO BINARY
      700   04 001CB    20200000 A            AI,R2    0
      701   04 001CC    693001DA              BNE      TABSERR           CONVERSION OR RANGE ERROR
      702   04 001CD    F51C0005 A            STB,R1   *R5,R6            ENTER TAB VALUE IN TABLE
      703   04 001CE    20600001 A            AI,R6    1                 INCREMENT TAB COUNT
      704   04 001CF    321E0053 A            LW,R1    TERM,R7
      705   04 001D0    2110006B A            CI,R1    ','
      706   04 001D1    683001C4              BE       TABS2             ANOTHER VALUE
      707   04 001D2    21100015 A            CI,R1    X'15'
      708   04 001D3    683001D6              BE       TABSEND           END OF COMMAND
      709   04 001D4    22100011 A            LI,R1    17                DELIMITER OUT OF SYNTAX
      710   04 001D5    6AB00270              BAL,R11  ERROR
      711   04 001D6    355E0044 A   TABSEND  STW,R5   TABSET+4,R7       SET ADDRESS OF TAB TABLE
      712   04 001D7    02200070 A            LCI      7
      713   04 001D8    8A500007 A            PLM,R5   *R7
      714   04 001D9    E800000B A            B        *R11
      715   04 001DA    2210002D A   TABSERR  LI,R1    45                INVALID TAB SPECIFICATION
      716   04 001DB    680001D5              B        TABSEND-1
      717   04 001DC    22100033 A   TABSERR2 LI,R1    51                MORE THAN 16 VALUES ON TABS CMD
      718   04 001DD    680001D5              B        TABSEND-1
1* AP * 22:28 JUN 16,'85    PCLMN - PCL MAIN, ERROR, PRTERR                                       PAGE    8
A     719                                     PAGE
      720   04 001DE    89B00007 A   TRANSACT PSW,R11  *R7
      721                            *
      722   04 001DF    22100006 A            LI,R1    6                 USE ALL DELIMITERS
      723   04 001E0    6AB00000 X            BAL,R11  GETARG            GET ACTION VERB
      724                            *
      725   04 001E1    6B2E0049 A            INT,R2   ARGBUFF,R7
      726   04 001E2    69F001E5              BCS,15   %+3
      727   04 001E3    212001E7 A            CI,R2    X'1E7'            X COMMAND = END
      728   04 001E4    68300134              BE       TERMPCL
      729   04 001E5    22100124 A            LI,R1    ARGBUF4           FORCE LENGTH TO 3 CHARACTERS
      730   04 001E6    22200001 A            LI,R2    1
      731   04 001E7    F1220007 A            CB,R2    *R7,R1            TEST IF ONE CHAR CMD
      732   04 001E8    693001EB              BNE      %+3               NO
      733   04 001E9    321002F0              LW,R1    =X'12000000'+CMDTBLX
      734   04 001EA    680001EE              B        ACTION3+1
      735   04 001EB    22200003 A            LI,R2    3
      736   04 001EC    F5220007 A            STB,R2   *R7,R1
      737                            *
      738   04 001ED    321002F1     ACTION3  LW,R1    =X'12000000'+CMDTBL   EDIT ACTION VERB
      739   04 001EE    6AB00000 X            BAL,R11  FIXARG
      740   04 001EF    2110000B A            CI,R1    11                -ON- THE ACTION VERB
      741   04 001F0    693001F2              BNE      %+2               NO
      742   04 001F1    22100001 A            LI,R1    1                 YES-SET-TO-
      743   04 001F2    3510000C A            STW,R1   R12               SAVE ACTION CODE
      744   04 001F3    88B00007 A            PLW,R11  *R7
      745   04 001F4    E800000B A            B        *R11
      746                            *
1* AP * 22:28 JUN 16,'85    PCLMN - PCL MAIN, ERROR, PRTERR                                       PAGE    9
A     747                                     PAGE     'PRTERR'
      748                            *P*      NAME:    PRTERR
      749                            *P*
      750                            *P*      PURPOSE: TO PRINT THE ERROR MESSAGES CORRESPONDING TO THE
      751                            *P*               ERROR CODES PROCESSED BY THE ERROR ROUTINE.  PRTERR
      752                            *P*               IS CALLED AFTER PROCESSING IS COMPLETED, OR HAS BEEN
      753                            *P*               TERMINATED, FOR EACH COMMAND.  IT IS CALLED IF THE
      754                            *P*               MAXIMUM ERROR SEVERITY LEVEL EXCEEDS ONE.
      755                            *P*
      756                            *DO*
      757                            *P*
      758                            *P*
      759                            *
      760                            * INPUT
      761                            *        ERRFLAG  ERROR FLAG BUFFER
      762                            *        R13      MAXIMUM ERROR SEVERITY
      763                            * OUTPUT
      764                            *        PRINTED ERROR CODES AND MAXIMUM SEVERITY CODE ON LO DEVICE
      765                            *
      766                            *
      767                            *FIN*
      768                            *
      769   04 001F5    02200070 A   PRTERR   LCI      7                 SAVE REGISTERS
      770   04 001F6    8B500007 A            PSM,R5   *R7
      771   04 001F7    22E00000 N            LI,R14   M:UC
      772   04 001F8    70200001 07           LC       BOG
      773   04 001F9    69C00208              BCS,12   PERR1             BATCH IF ONLINE OR GHOST
      774   04 001FA    22E00000 N            LI,R14   M:DO              NO-ERROR OUTPUT ON M:DO
      775   04 001FB    70200019 07           LC       DCBS              IS DO = LL OR LO
      776   04 001FC    69900208              BCS,9    PERR1             YES, NO NEED TO OUTPUT COMMAND
      777   04 001FD    22100083 A            LI,R1    CONTINUE          NO-MUST OUTPUT COMMAND TO DO
      778   04 001FE    7310000E A            MTB,1    R14               SET DUAL OUTPUT FLAG
      779   04 001FF    30100007 A            AW,R1    R7
        1*  04 00200    3300000A 07           MTW,0    ERRFLAG
        2*  04 00201    6830025F              BE       RETURN
        3*  04 00202    32AE0052 A            LW,R10   MAXCMBX,R7
        4*  04 00203    20AFFDF4 A            AI,R10   -524
        5*  04 00204    21A00050 A            CI,R10   80
        6*  04 00205    69100207              BL       %+2
        7*  04 00206    22A00050 A            LI,R10   80
      780   04 00207    04100035 05           CAL1,1   FPTCOMDP
      781                            *
      782   04 00208                          USECT    PLSECT
      783   05 00035    11000000 X   FPTCOMDP GEN,8,7,17      X'11',0,M:DO
      784   05 00036    30000010 A            DATA     X'30000010'
      785   05 00037    80000001 A            PZE      *R1               BUFFER
        1*  05 00038    8000000A A            DATA     X'8000000A'       *R10 (80)
      787                            *
      788   05 00039                          USECT    PRTERR
      789         04 00208           PERR1    EQU      %
      790   06 00000                 M:MSG    DSECT    2
      791   06 00000    00000001 A            DATA     1,0
            06 00001    00000000 A
      792   06 00002    0A0000E9 07           GEN,8,24 10,TLABEL+1
      793   06 00003    00A00249 04           GEN,15,17 80,ABNPCLER
      794   06 00004    00000249 04           DATA     ABNPCLER,0,M:MSG+22
            06 00005    00000000 A
            06 00006    00000016
      795   06 00007    00000000 A            DATA     0,0,0,M:MSGK
            06 00008    00000000 A
            06 00009    00000000 A
            06 0000A    0000001C
      796   06 0000B                          DO1      11
      797   06 0000B    00000000 A            DATA     0
            06 0000C    00000000 A
            06 0000D    00000000 A
            06 0000E    00000000 A
            06 0000F    00000000 A
            06 00010    00000000 A
            06 00011    00000000 A
            06 00012    00000000 A
            06 00013    00000000 A
            06 00014    00000000 A
            06 00015    00000000 A
      798   06 00016    01000202 A            DATA     X'1000202'
      799   06 00017    06C5D9D9 A            TEXTC    'ERRMSG'
            06 00018    D4E2C740 A
      800   06 00019    02010202 A            DATA X'02010202'
      801   06 0001A    7AE2E8E2 A            TEXT     ':SYS    '
            06 0001B    40404040 A
      802   06 0001C                 M:MSGK   RES      8
      803                            *
1* AP * 22:28 JUN 16,'85    PCLMN - PCL MAIN, ERROR, PRTERR                                       PAGE   10
A     804                                     PAGE
      805   06 00024                          USECT    PRTERR
      806   04 00208    3220000A 07           LW,R2    ERRFLAG           ANY ERRORS TO PRINT
        1*        00000001                 DO          H02
        2*  04 00209    68300268              BE       RETURN1           NO
        3*                                 ELSE
        4*                       *S*          BE       RETURN
        5*                                 FIN
      808   04 0020A    22BFFFFF A            LI,R11   -1                LOGICAL SORT
      809   04 0020B    4490020D              ANLZ,R9  %+2               LAST ENTRY ADDRESS
      810   04 0020C    32100002 A   PRT01    LW,R1    R2
      811   04 0020D    32A4000A 07           LW,R10   ERRFLAG,R2
      812   04 0020E    68000212              B        KGC2%4
      813   04 0020F    45A2000A 07           CS,R10   ERRFLAG,R1
      814   04 00210    69200212              BG       %+2
      815   04 00211    46A2000A 07           XW,R10   ERRFLAG,R1
      816   04 00212    6410020F     KGC2%4   BDR,R1   %-3
      817                            *
      818   04 00213    35A4000A 07           STW,R10  ERRFLAG,R2
      819   04 00214    6420020C              BDR,R2   PRT01
      820   04 00215    22300041 A            LI,R3    65                FIRST BLANK THEIR BUFFER
      821   04 00216    22204040 A            LI,R2    '  '
      822   04 00217    552600E8 07           STH,R2   TLABEL,R3
      823   04 00218    64300217              BDR,R3   %-1
      824   04 00219    2220005B A            LI,R2    '%'
      825   04 0021A    F2100009 A   PRT2     LB,R1    *R9
      826   04 0021B    68300224              BE       PRT1
      827   04 0021C    20100001 A            AI,R1    1
      828   04 0021D    752200E9 07           STB,R2   TLABEL+1,R1
      829   04 0021E    21100100 A            CI,R1    256
      830   04 0021F    68300223              BE       KGC3%4
      831   04 00220    31300001 A            CW,R3    R1
      832   04 00221    69200223              BG       %+2
      833   04 00222    32300001 A            LW,R3    R1
      834   04 00223    6490021A     KGC3%4   BDR,R9   PRT2
      835                            *
      836   04 00224    22500002 A   PRT1     LI,R5    2                 BTD FOR NON-UC
      837   04 00225    20300000 A            AI,R3    0                 IF NOTHING TO PUT
      838   04 00226    68300233              BE       PRTERR1           DONT
      839   04 00227    21E00000 N            CI,R14   M:UC
      840   04 00228    6930022D              BNE      PRT3
      841   04 00229    20300001 A            AI,R3    1
      842   04 0022A    22200015 A            LI,R2    X'15'             WRITE CR ALSO
      843   04 0022B    752600E9 07           STB,R2   TLABEL+1,R3
      844   04 0022C    22500001 A            LI,R5    1
      845   04 0022D    0410003E 05  PRT3     CAL1,1   FPTMESS
      846   04 0022E    7300000E A            MTB,0    R14               DO WE NEED LL TOO
      847   04 0022F    68300233              BE       PRTERR1
      848   04 00230    22E00000 N            LI,R14   M:LL
      849   04 00231    0410003E 05           CAL1,1   FPTMESS
      850   04 00232    22E80000 N            LI,R14   M:DO+X'80000'
      851   04 00233    20900001 A   PRTERR1  AI,R9    1                 TO NEXT MESSAGE KEY
      852   04 00234    22300003 A            LI,R3    3
      853   04 00235    F5300009 A            STB,R3   *R9               SET BYTE COUNT
      854   04 00236    04100039 05           CAL1,1   FPTERORD          READ ERROR MESSAGE
      855   04 00237                          USECT    PLSECT
      856                            *
      857   05 00039    10000000 06  FPTERORD GEN,8,7,17      X'10',0,M:MSG
      858   05 0003A    C8000010 A            DATA     X'C8000010'
      859   05 0003B    00000249 04           DATA     ABNPCLER
      860   05 0003C    00000249 04           DATA     ABNPCLER          ABNORMAL FOR PCL ERROR CODE
      861   05 0003D    80000009 A            PZE      *R9
      862                            *
      863   05 0003E                          USECT    PRTERR
      864   04 00237    3230000D 06           LW,R3    M:MSG+13
      865   04 00238    21E00000 N   PRTERR2  CI,R14   M:UC              REMOVE CR IF NOT UC
      866   04 00239    6830023B              BE       %+2
      867   04 0023A    203FFFFF A            AI,R3    -1                NO-REMOVE NL GOING PRINTER
      868   04 0023B    22500000 A            LI,R5    0                 BTD 0
      869   04 0023C    0410003E 05           CAL1,1   FPTMESS           PRINT PCL ERROR MESSAGE
      870   04 0023D                          USECT    PLSECT
      871   05 0003E    9100000E A   FPTMESS  GEN,8,7,17      X'91',0,R14
      872   05 0003F    34000010 A            DATA     X'34000010'
      873   05 00040    000000E9 07           PZE      TLABEL+1
      874   05 00041    80000003 A            PZE      *R3
      875   05 00042    80000005 A            PZE      *R5
      876   05 00043    15000000 06  CLSMSG   GEN,8,24 21,M:MSG
      877   05 00044    00000000 A            DATA     0
      878                            *
      879   05 00045                          USECT    PRTERR
        1*        00000001                 DO          H02
        2*  04 0023D    33F0000A 07  ERRORLP  MTW,-1   ERRFLAG           DECREMENT COUNT
        3*  04 0023E    68200247              BLE      ERRORDN
        4*  04 0023F    32500009 A            LW,R5    R9
        5*  04 00240    25500001 A            SLS,R5   1
        6*  04 00241    20500001 A            AI,R5    1
        7*  04 00242    523A0000 A            LH,3     0,R5              SET CURRENT ERROR
        8*  04 00243    513A0001 A            CH,R3    1,R5              COMPARE WITH NEXT ERROR
        9*  04 00244    69300233              BNE      PRTERR1           DIFFERENT SO PRINT IT
       10*  04 00245    20900001 A            AI,R9    1
       11*  04 00246    6800023D              B        ERRORLP           CONTINUE
       12*        04 00247           ERRORDN  EQU,0    %
       13*                                 ELSE
       14*                       *S*          MTW,-1   ERRFLAG           COUNT DOWN
       15*                       *S*          BG       PRTERR1
       16*                                 FIN
      882   04 00247    04100043 05           CAL1,1   CLSMSG            CLOSE DCB
      883   04 00248    6800025F              B        RETURN
      884   04 00249    72A0000A A   ABNPCLER LB,R10   R10               IF ALREADY CLOSED, GIVE UP
      885   04 0024A    21A0000A A            CI,R10   10
        1*        00000001                 DO          H02
        2*  04 0024B    68300268              BE       RETURN1
        3*                                 ELSE
        4*                       *S*          BE       RETURN
        5*                                 FIN
      887   04 0024C    22A10000 A            LI,R10   X'10000'
      888   04 0024D    CBA00009 A            AND,R10  *R9
      889   04 0024E    02200050 A            LCI      5
      890   04 0024F    2A10026B              LM,R1    TXPCLERR
      891   04 00250    64A00252              BDR,R10  %+2
      892   04 00251    35500001 A            STW,R5   R1
      893   04 00252    2B1000E9 07           STM,R1   TLABEL+1          MOVE MESSAGE TO BUFFER
      894                            *
      895   04 00253    EB100009 A            INT,R1   *R9               GET KEY
      896   04 00254    6AB00000 X            BAL,R11  HEX2BCD
      897   04 00255    2220F115 A            LI,2     X'F115'           PCL ERR IS 1XX00, IO IS XXSS
      898   04 00256    25200278 A            SCS,R2   -8
      899   04 00257    64A00259              BDR,R10  %+2
      900   04 00258    25200308 A            SCD,R2   8
      901   04 00259    25200318 A            SCD,R2   24
      902   04 0025A    352000ED 07           STW,R2   TLABEL+4+1
      903   04 0025B    353000EE 07           STW,R3   TLABEL+5+1
      904   04 0025C    22300016 A            LI,R3    22                PCL MESSAGE LENGTH
      905   04 0025D    64A00238              BDR,R10  PRTERR2
      906   04 0025E    64300238              BDR,R3   PRTERR2
      907                            *
        1*        00000001                 DO          H02
        2*  04 0025F    7250000A A   RETURN   LB,R5    10                THIS WILL CAUSE PCL TO
        3*  04 00260    21500006 A            CI,R5    6                 ABORT ON ANY
        4*  04 00261    68200268              BLE      RETURN1           GREATER THAN SEVERITY LEVEL 6
        5*  04 00262    4BA002EF              AND,R10  =X'FFFF'
        6*  04 00263    21A00300 A            CI,R10   X'300'            UNLESS A X'300' ERROR
        7*  04 00264    68300268              BE       RETURN1
        8*  04 00265    70200001 07           LC       BOG               IF BATCH
        9*  04 00266    69C00268              BCS,12   RETURN1
       10*  04 00267    04900003 A            CAL1,9   3                 M:XXX (ABORT)
       11*  04 00268    02200070 A   RETURN1  LCI      7                 RESTORE REGISTERS
       12*                                 ELSE
       13*                       *S* RETURN   LCI      7                 RESTORE REGISTERS
       14*                                 FIN
      909   04 00269    8A500007 A            PLM,R5   *R7
      910   04 0026A    E800000B A            B        *R11
      911                            *
      912   04 0026B    40D7C3D3 A   TXPCLERR TEXT     ' PCL ERROR CODE'
            04 0026C    40C5D9D9 A
            04 0026D    D6D940C3 A
            04 0026E    D6C4C540 A
      913   04 0026F    40C961D6 A            TEXT     ' I/O'
1* AP * 22:28 JUN 16,'85    PCLMN - PCL MAIN, ERROR, PRTERR                                       PAGE   11
A     914                                     PAGE     'ERROR'
      915   04 00270                 ERROR    RES      0
      916                            *
      917                            *P*      NAME:    ERROR
      918                            *P*
      919                            *P*      PURPOSE: TO REPORT AN ERROR FOR SUBSEQUENT PRINTING BY PRTERR.
      920                            *P*               THIS IS DONE BY ENTERING A '%' POINTER INTO THE ERROR
      921                            *P*               FLAG BUFFER AND, IF TCP-V, ENTERING INTO A TABLE THE
      922                            *P*               KEY NEEDED TO READ THE DESIRED MESSAGE FROM THE
      923                            *P*               SYSTEM ERROR MESSAGE FILE (ERRMSG.:SYS).
      924                            *P*
      925                            *DO*
      926                            *P*
      927                            *
      928                            * INPUT
      929                            *        R1       ERROR TO BE FLAGGED
      930                            * OUTPUT
      931                            *        ERRFLAG  ERROR FLAG BUFFER
      932                            *        R13      MAXIMUM ERROR SEVERITY
      933                            *                    (1-WARNING, 2-TERM EXEC, 3-TERM EDIT AND EXEC)
      934                            *
      935                            *
      936                            *FIN*
      937                            *
      938   04 00270    02200020 A            LCI      2
      939   04 00271    8B200007 A            PSM,R2   *R7
      940   04 00272    71D202A2     ERR1     CB,R13   SEVERE,R1         UPDATE MAX SEVERITY
      941   04 00273    68100275              BGE      %+2
      942   04 00274    72D202A2              LB,R13   SEVERE,R1
      943   04 00275    31D0004E 07           CW,R13   MAXSEV
      944   04 00276    68200278              BLE      %+2
      945   04 00277    35D0004E 07           STW,R13  MAXSEV
      946   04 00278    322E0051 A            LW,R2    CMBX,R7
      947   04 00279    202FFDF4 A            AI,R2    -CMBX1
      948   04 0027A    6820027D              BLE      %+3
      949   04 0027B    212FFF80 A            CI,R2    X'FFF80'          MUST BE 0-127
      950   04 0027C    6840027E              BAZ      %+2               YES
      951   04 0027D    222000FF A            LI,R2    255
      952   04 0027E    23100100 A            MI,R1    256               MAKE PCL ERROR MESSAGE KEY
      953   04 0027F    69300285              BNE      ERR3              NOT IO ERROR
      954   04 00280    7210000A A            LB,R1    R10               GEN IO KEY
      955   04 00281    25100008 A            SLS,R1   8
      956   04 00282    5010000A A            AH,R1    R10
      957   04 00283    2510007F A            SLS,R1   -1
      958   04 00284    201F0000 A            AI,R1    -X'10000'
      959   04 00285    20110000 A   ERR3     AI,R1    X'10000'
      960   04 00286    75200001 A            STB,R2   R1
      961                            *
      962   04 00287    3220000A 07           LW,R2    ERRFLAG
      963   04 00288    21200009 A            CI,R2    9                 ROOM FOR ERROR KEY
      964   04 00289    6830028F              BE       RETURN2           NO-CAN NOT REPORT
      965   04 0028A    3514000B 07           STW,R1   ERRFLAG+1,R2
      966   04 0028B    3114000A 07           CW,R1    ERRFLAG,R2        HAVE WE DONE THIS BEFORE
      967   04 0028C    6830028F              BE       RETURN2           YES
      968   04 0028D    6420028B              BDR,R2   %-2
      969   04 0028E    3310000A 07           MTW,1    ERRFLAG           NO, COUNT IT
1* AP * 22:28 JUN 16,'85    PCLMN - PCL MAIN, ERROR, PRTERR                                       PAGE   12
A     970                                     PAGE
      971   04 0028F    25100008 A   RETURN2  SLS,R1   8
      972   04 00290    4810004C 07           EOR,R1   SAMERR            CHECK FOR 20 SAME ERRORS IN A ROW
      973   04 00291    6830029B              BE       ERR44             HAPPENNED, ABORT
      974   04 00292    211FFF00 A            CI,R1    X'FFF00'          IS THIS THE SAME AS LAST ONE
      975   04 00293    68400297              BAZ      KGC4%4            YES, JUST COUNT DOWN
      976   04 00294    4810004C 07           EOR,R1   SAMERR            NO, PUT IN NEW ONE
      977   04 00295    20100015 A            AI,R1    21                WITH A NEW COUNT
      978   04 00296    3510004C 07           STW,R1   SAMERR
      979   04 00297    33F0004C 07  KGC4%4   MTW,-1   SAMERR
      980   04 00298    02200020 A   ERR2     LCI      2                 AND EXIT
      981   04 00299    8A200007 A            PLM,R2   *R7               RESTORE REGISTERS
      982   04 0029A    E800000B A            B        *R11              RETURN2
      983                            *
      984   04 0029B    21D00001 A   ERR44    CI,R13   1                 ONLY ABORT IF MAJOR ERROR
      985   04 0029C    68200298              BLE      ERR2
      986   04 0029D    21200009 A            CI,R2    9
      987   04 0029E    693002A0              BNE      %+2               IF THE STACK IS FULL
      988   04 0029F    33F0000A 07           MTW,-1   ERRFLAG           MAKE ROOM FOR THIS ONE
      989   04 002A0    2210002C A            LI,R1    44                TO ASSURE THIS ONE GET OUT
      990   04 002A1    68000272              B        ERR1
      991                            *
      992                            *                 I 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1
      993                            *                 O 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5
      994                            *
      995   04 002A2    02       A   SEVERE   DATA,1   2,2,2,2,2,2,2,2,3,2,2,2,2,2,3,3
            04 002A2 1  02       A
            04 002A2 2  02       A
            04 002A2 3  02       A
            04 002A3    02       A
            04 002A3 1  02       A
            04 002A3 2  02       A
            04 002A3 3  02       A
            04 002A4    03       A
            04 002A4 1  02       A
            04 002A4 2  02       A
            04 002A4 3  02       A
            04 002A5    02       A
            04 002A5 1  02       A
            04 002A5 2  03       A
            04 002A5 3  03       A
      996                            *                 1 1 1 1 2 2 2 2 2 2 2 2 2 2 3 3
      997                            *                 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1
      998                            *
      999   04 002A6    03       A            DATA,1   3,3,2,3,3,2,2,2,2,2,2,2,2,2,1,2
            04 002A6 1  03       A
            04 002A6 2  02       A
            04 002A6 3  03       A
            04 002A7    03       A
            04 002A7 1  02       A
            04 002A7 2  02       A
            04 002A7 3  02       A
            04 002A8    02       A
            04 002A8 1  02       A
            04 002A8 2  02       A
            04 002A8 3  02       A
            04 002A9    02       A
            04 002A9 1  02       A
            04 002A9 2  01       A
            04 002A9 3  02       A
     1000                            *                 3 3 3 3 3 3 3 3 4 4 4 4
     1001                            *                 2 3 4 5 6 7 8 9 0 1 2 3
     1002                            *
     1003   04 002AA    03       A            DATA,1   3,2,3,3,3,3,2,2,3,2,2,4
            04 002AA 1  02       A
            04 002AA 2  03       A
            04 002AA 3  03       A
            04 002AB    03       A
            04 002AB 1  03       A
            04 002AB 2  02       A
            04 002AB 3  02       A
            04 002AC    03       A
            04 002AC 1  02       A
            04 002AC 2  02       A
            04 002AC 3  04       A
     1004                            *                 4 4 4 4 4 4 5 5 5 5 5 5
     1005                            *                 4 5 6 7 8 9 0 1 2 3 4 5
     1006                            *
     1007   04 002AD    04       A            DATA,1   4,3,3,2,2,4,2,2,2,3,3,3
            04 002AD 1  03       A
            04 002AD 2  03       A
            04 002AD 3  02       A
            04 002AE    02       A
            04 002AE 1  04       A
            04 002AE 2  02       A
            04 002AE 3  02       A
            04 002AF    02       A
            04 002AF 1  03       A
            04 002AF 2  03       A
            04 002AF 3  03       A
     1008                            *                 5 5 5 5
     1009                            *                 6 7 8 9
     1010                            *
     1011   04 002B0    03       A            DATA,1   3,3,4,4
            04 002B0 1  03       A
            04 002B0 2  04       A
            04 002B0 3  04       A
     1012                            *
     1013         00000000           AL       CNAME    0
     1014                        *S* ALD      CNAME    1
     1015                                     PROC
     1016                                     DO1      NAME&ALPTR&1
     1017                            ALPTR    SET      ALPTR+1
     1018                            LF       EQU      ALPTR
     1019                            ALPTR    SET      ALPTR+AF
     1020                                     PEND
     1021         00000003           ALPTR    SET      3                 ALLOCATE SPACE FOR STK PTR, HEADER FLG
     1022                            IN%ARG   AL       1
     1023                            OUT%ARG  AL       1
     1024                            NPAGE    AL       1
     1025                            COPYSTDF AL       1
     1026                            ATTRB    AL       1
     1027                            SYNFLAG  AL       1
     1028         00000008           DOTCNT   EQU      SYNFLAG
     1029                            ARGTBL   AL       36                FULL ARGUMNET TABLE
     1030                            *
     1031         00000009           DEVICE   EQU      ARGTBL            ARGUMENT TABLE LAYOUT
     1032         0000000C           FILE     EQU      DEVICE+3
     1033         0000000E           CODE     EQU      FILE+2
     1034         0000000F           MODE     EQU      CODE+1
     1035         00000013           SEQUENCE EQU      MODE+4
     1036         00000018           SELECT   EQU      SEQUENCE+5
     1037                            TOARG    AL       16                OUTPUT SAVE AREA
     1038                            TOSWT    AL       1
     1039                            CARDSEQ  AL       2                 SEQUENCE INFO
     1040                            TABSET   AL       5
     1041                            EXPIRE   AL       3
     1042                            CMDCNT   AL       1
     1043                            ARGBUFF  AL       8                 OUTPUT OF GETARG
     1044                            CMBX     AL       1
     1045                            MAXCMBX  AL       1
     1046                            TERM     AL       1
     1047                            NCHAR    AL       1
     1048                            DEL%CT   AL       1
     1049                            TOVER    AL       1
     1050                            CMDBUF   AL       8
     1051                            *        TEMP ITEMS FOR PROCEDURES
     1052                            RDFPT    AL       7
     1053                            WRTFPT   AL       8
     1054         00000065           RECNUM   EQU      RDFPT+6           =BLOCK#
     1055                            RSSAVE   AL       1
     1056         0000005F           DEV%SAV1 EQU      RDFPT
     1057                            *
     1058         00000124           ARGBUF4  EQU      ARGBUFF*4         BYTE EQUIVALENTS
     1059                            *
     1060         00000028           TLBLSIZE EQU      40
     1061                            STDBUF   AL       20                BUFFER FOR STANDARD FILE
     1062                            CONTINUE AL       256               MAX STMT=1024 CHARS
     1063         0000020C           CMBX1    EQU      CONTINUE*4        START OF BUFFER
     1064         00000200           IOBUF    EQU      512
     1065         00000223           FPARAM   EQU      IOBUF+35
     1066         00000300           OPNFPT   EQU      IOBUF+256
     1067         000001D8           PRTBUF   EQU      IOBUF-40
     1068         000001FB           SEQNUM   EQU      IOBUF-5
     1069         000001FD           LINENO   EQU      IOBUF-3
     1070                            *
     1071   04 002B1    0012     A   IOABORTS DATA,2   #IOABTS
     1072   04 002B1 2  0D00     A            DATA,2   X'D00',X'D02',X'1410',X'1422',X'1424',X'1426'
            04 002B2    0D02     A
            04 002B2 2  1410     A
            04 002B3    1422     A
            04 002B3 2  1424     A
            04 002B4    1426     A
     1073   04 002B4 2  2002     A            DATA,2   X'2002',X'2004',X'2006',X'2008'
            04 002B5    2004     A
            04 002B5 2  2006     A
            04 002B6    2008     A
     1074   04 002B6 2  4900     A            DATA,2   X'4900',X'4902',X'4904',X'5500',X'5700'
            04 002B7    4902     A
            04 002B7 2  4904     A
            04 002B8    5500     A
            04 002B8 2  5700     A
     1075   04 002B9    7508     A            DATA,2   X'7508',X'750A',X'750C'
            04 002B9 2  750A     A
            04 002BA    750C     A
     1076         00000012           #IOABTS  EQU      HA(%)-HA(IOABORTS)-1
     1077                                     BOUND    4
     1078                            *
     1079   04 002BB    00000015 A   CMDTBL   DATA     CMDTBL1-%         COMMAND ACTION VERB TABLE
     1080   04 002BC    03E3D640 A            TEXTC    'TO '
     1081   04 002BD    03C3D6D7 A            TEXTC    'COP'
     1082   04 002BE    03C4C5D3 A            TEXTC    'DEL'
     1083   04 002BF    03C5D5C4 A            TEXTC    'END'
     1084   04 002C0    03D3C9E2 A            TEXTC    'LIS'
     1085   04 002C1    03D9C5D4 A            TEXTC    'REM'
     1086   04 002C2    03D9C5E6 A            TEXTC    'REW'
     1087   04 002C3    03E2D7C6 A            TEXTC    'SPF'
     1088   04 002C4    03E2D7C5 A            TEXTC    'SPE'
     1089   04 002C5    03E6C5D6 A            TEXTC    'WEO'
     1090   04 002C6    03D6D540 A            TEXTC    'ON '             11
     1091   04 002C7    03D6E5C5 A            TEXTC    'OVE'             12
     1092   04 002C8    03E3C1C2 A            TEXTC    'TAB'
     1093   04 002C9    03D9C5E5 A            TEXTC    'REV'
     1094   04 002CA    03D7C3D3 A            TEXTC    'PCL'
     1095   04 002CB    03404040 A            TEXTC    '   '             NULL COMMAND
     1096   04 002CC    03E2D7D9 A            TEXTC    'SPR'
     1097   04 002CD    03C9D5E3 A            TEXTC    'INT'             INTO - 18
     1098   04 002CE    03C5D9D9 A            TEXTC    'ERR'             ERRORS ON/OFF
     1099   04 002CF    03D7D9C9 A            TEXTC    'PRI'             PRINT
     1100   04 002D0    03D4D6E4 A            TEXTC    'MOU'             MOUNT
     1101         04 002D0           CMDTBL1  EQU      %-1
     1102   04 002D1    00000005 A   CMDTBLX  DATA     CMDTBLX1-%
     1103   04 002D2    01404040 A            TEXTC    ' '
     1104   04 002D3    01C34040 A            TEXTC    'C'
     1105   04 002D4    01C44040 A            TEXTC    'D'
     1106   04 002D5    01C54040 A            TEXTC    'E'
     1107   04 002D6    01D34040 A            TEXTC    'L'
     1108         04 002D6           CMDTBLX1 EQU      %-1
1* AP * 22:28 JUN 16,'85    PCLMN - PCL MAIN, ERROR, PRTERR                                       PAGE   13
A    1109                                     PAGE
     1110   04 002D7    048002E3     INT      CAL1,8   TERMST            GET BREAK COUNT
     1111   04 002D8    22330000 A            LI,R3    X'30000'
     1112   04 002D9    4B300008 A            AND,R3   R8
     1113   04 002DA    52300003 A            LH,R3    R3
     1114   04 002DB    66300000 07           AWM,R3   BREAK
     1115   04 002DC    2231FFFF A            LI,R3    X'1FFFF'
     1116   04 002DD    4B320000 A            AND,R3   0,R1
     1117   04 002DE    21300000 N            CI,R3    REVRP             IF READ1 READ, READ NONE
     1118   04 002DF    693002E1              BNE      %+2
     1119   04 002E0    33120000 A            MTW,1    0,R1
     1120   04 002E1    048002E4              CAL1,8   RSTBRK            RESET BREAK COUNT
     1121   04 002E2    04900005 A            CAL1,9   5                 RETURN TO PROGRAM
     1122   04 002E3    06400000 A   TERMST   DATA     X'6400000'        GET TERMINAL STATUS
     1123   04 002E4    06200000 A   RSTBRK   DATA     X'6200000',X'80000000',3
            04 002E5    80000000 A
            04 002E6    00000003 A
     1124                            *
     1125   07 00000                 BREAK    DSECT    0
     1126   07 00000    00000000 A            DATA     0                 BREAK CONTROL FLAG
     1127   07 00001    00000000 A   BOG      DATA     0                 BIT 0 SET FOR ONLINE USER
     1128                            *                                   BIT 1 SET FOR GHOST JOB INITIATED
     1129                            *                                   FROM OPERATOR'S CONSOLE
     1130                            *                                   BIT 2 SET FOR BATCH USER
     1131   07 00002    00000000 A   CCTAB    DATA     0,0               BIT TABLE FOR PRINTABILITY, 1F-0, 3F-20
            07 00003    00000000 A
     1132   07 00004    F801F801 A            DATA     X'F801F801'       5F-40
        1*  07 00005    7C007803 A            DATA     X'7C007803'       5F-40
        2*        00000001                 DO          H02
        3*  07 00006    03FE03FE A            DATA     X'03FE03FE'       9F-80 LOWER CASE
        4*  07 00007    000003FC A            DATA     X'000003FC'       BF-A0 LOWER CASE
        5*                                 ELSE
        6*                       *S*          DATA     0,0               LOWER CASE
        7*                                 FIN
     1135   07 00008    03FE03FE A            DATA     X'3FE03FE'        C0-DF
     1136   07 00009    03FF03FC A            DATA     X'3FF03FC'        E0-FF
     1137   07 0000A    00000000 A   ERRFLAG  DATA     0,X'FF012B00'     ERROR CODES (WITH NO CORE IN IT)
            07 0000B    FF012B00 A
     1138   07 0000C    0000000D     STACK0   DATA     %+1,X'300000'     INITIAL STAK (TO PRINT NO CORE MSG)
            07 0000D    00300000 A
     1139   07 0000E                          RES      6
     1140   07 00014    00000000 A   LTSTCMBX DATA     0                 SAVE OF LATEST CMBX POINTER
     1141   07 00015    00000000 A   SUPERR   DATA     0                 IGNORE MINOR ERRORS FLAG
     1142   07 00016    00000000 A   BLKSIZE  DATA     0                 SIZE OF ANS BLOCK
     1143   07 00017    00000000 A   UNBADR   DATA     0                 POINTER INTO ANS INPUT BLOCK
     1144   07 00018    00000000 A   BLKBUFF  DATA     0                 POINTER INTO ANS OUTPUT BLK
     1145   07 00019    00FFFFFF A   DCBS     DATA     X'FFFFFF'         BIT0=>DO=LL
     1146                            *        BIT1=>SI=LL,BIT2=>UC=LL,BIT3=>UC=DO
     1147                            *        BITS4-15=0 OR 1=> LO=LP
     1148                            *        BITS16-31=0 OR 1 => LL=LP
     1149         07 00019           INIT0    EQU      %-1
     1150   07 0001A                          RES      2                 COPYSTD SAVE AREA
     1151   07 0001C    00000000 A   DELETEF  DATA     0                 REVIEW FLAG
     1152   07 0001D                 FROMFILE RES      8                 START OF RANGE OF FILES
     1153   07 00025                 TOFILE   RES      8                 END OF FILE RANGE
     1154                                     BOUND    8
     1155   07 0002E                 RDTBL    RES      0                 RD OPTION COUNT+CMBX
     1156         00000055           STACKSIZE EQU     PRTBUF-ALPTR
     1157   07 0002E    00000182 A   STACK    DATA     ALPTR-1,STACKSIZE**16
            07 0002F    00550000 A
     1158   07 00030                 WRTBL    RES      2                 WR OPTION COUNT + CMBX
     1159   07 00032                 EXTBL    RES      2                 EX COUNT+CMBX
     1160   07 00034                 UNTBL    RES      2                 UN COUNT+CMBX
     1161   07 00036                 SFARG    RES      0
     1162                                     BOUND    8
     1163   07 00036    00000000 N   DCBNS    DATA     M:DO,M:LL
            07 00037    00000000 N
     1164   07 00038    00000000 N            DATA     M:SI,M:LL
            07 00039    00000000 N
     1165   07 0003A    00000000 N            DATA     M:UC,M:LL
            07 0003B    00000000 N
     1166   07 0003C    00000000 N            DATA     M:UC,M:DO
            07 0003D    00000000 N
     1167         00000007           #DCBS    EQU      %-DCBNS-1
     1168   07 00046                          ORG      SFARG+16
            07 00046
     1169   07 00046                 COPYSK   RES      1                 COPYALL SELECT FLAG
     1170   07 00047    00000000 A   EATTRB   DATA     0                 EA FLAG
     1171   07 00048    00000000 A   LISTCMBX DATA     0                 SAVE CMBX FOR LIST
     1172   07 00049    00000000 A   LISTTERM DATA     0                 SAVE TERM FOR LIST
     1173   07 0004A    00000000 A   COPYPHY  DATA     0                 PHY FLAG
     1174   07 0004B    00000000 A   GRANCNT  DATA     0                 GRANULE CONT
     1175   07 0004C    00000000 A   SAMERR   DATA     0                 REPEAT ERROR COUNT
     1176   07 0004D    00000000 A   LISTPOS  DATA     0
     1177         00000034           #WDSINIT0 EQU     %-INIT0-1
     1178   07 0004E    00000000 A   MAXSEV   DATA     0                 SET STEP CCS TO HIGHEST LEVEL
     1179   07 0004F    00000000 A   INSER    DATA     0
     1180   07 00050    00000000 A   OUTSER   DATA     0
     1181   07 00051    00000000 A   1BUF     DATA     0
        1*  07 00052                 PATCH    RES      132               PAD OUT TO A PAGE BOUNDARY
        2*  07 000D6                 TADATA   RES      1
     1183   07 000D7                 OPNXFPT  RES      1
     1184   07 000D8                 DVLARG   RES      16
     1185                                     BOUND    8
     1186   07 000E8                 TLABEL   RES      10
     1187   07 000F2                 PRNTBUF  RES      50
     1188   07 00124                 INCRPT   RES      1
     1189   07 00125                 OUTCRPT  RES      1
     1190   07 00126    0000020C A   CONTPTR  DATA     CMBX1
     1191   07 00127                 ANSBLK   RES      5                 INCLUDES CONCAT,DENSITY
     1192   07 0012C                 BLKIN    RES      3
     1193   07 0012F                 OUTBLK   RES      3
     1194   07 00132    00000000 A   SCRATCH  DATA     0,0
            07 00133    00000000 A
     1195   07 00134    00000000 A            DATA     0,0               AND ITS RECOURCE TYPE
            07 00135    00000000 A
     1196   07 00136                          USECT    PCL
     1197         04 00000                    END      PCL
            04 002E7    E8C1D3D3 A
            04 002E8    E8E2E3C4 A
            04 002E9    C5E3C5C1 A
            04 002EA    FFFFFF00 A
            04 002EB    D3D34000 A
            04 002EC    00200000 A
            04 002ED    05000108 A
            04 002EE    06000108 A
            04 002EF    0000FFFF A
            04 002F0    120002D1 N
            04 002F1    120002BB N

  CONTROL SECTION SUMMARY: 01 00000   PT 0     02 00000   PT 0     03 00000   PT 1     04 002F2   PT 1
                           05 00045   PT 1     06 00024   PT 2     07 00136   PT 0
1* AP * 22:28 JUN 16,'85    PCLMN - PCL MAIN, ERROR, PRTERR                                       PAGE   14
A *    SYMBOL VALUES
          ABNPCLER/04 00249        ACTION3/04 001ED         ACTTBL/04 00106          ALPTR/00000183
          ANSBLK-07 00127          ARGBUFF-00000049         ARGBUF4-00000124         ARGTBL-00000009
          ATTRB-00000007           BASEREG/04 0002F         BATCH/04 00052           BLKBUFF-07 00018
          BLKIN-07 0012C           BLKSIZE-07 00016         BOG-07 00001             BREAK-07 00000
          CALLGET/04 000AB         CALLGETA/04 000AD        CARDSEQ-0000003E         CCTAB-07 00002
          CCTABLP/04 00081         CCTABLX/04 00090         CKCCBUF/04 00046         CLOSDCB/04 0014D
          CLOSFPT/05 00032         CLSMSG/05 00043          CMBX-00000051            CMBX1/0000020C
          CMDBUF-00000057          CMDCNT/00000048          CMDTBL/04 002BB          CMDTBLX/04 002D1
          CMDTBLX1/04 002D6        CMDTBL1/04 002D0         CODE-0000000E            CONTCHK/04 00096
          CONTINUE/00000083        CONTPTR/07 00126         CONT2/04 0009F           CONT4/04 000AA
          COPYPHY-07 0004A         COPYSK-07 00046          COPYSTDF-00000006        COPY1/04 0011C
          DCBNS/07 00036           DCBS-07 00019            DCB0/04 00003            DCB1/04 00015
          DEL%CT-00000055          DELETEF-07 0001C         DEL1/04 00123            DEV%SAV1-0000005F
          DEVICE-00000009          DOTCNT/00000008          DVLARG-07 000D8          EATTRB-07 00047
          ENDCMD/04 000F9          ENDPCL/04 00138          ERONOFF/04 0019F         ERRFLAG-07 0000A
          ERROR-04 00270           ERRORDN/04 00247         ERRORLP/04 0023D         ERR1/04 00272
          ERR2/04 00298            ERR3/04 00285            ERR44/04 0029B           EXIT/04 00140
          EXPIRE-00000045          EXTBL-07 00032           FILE-0000000C            FPARAM-00000223
          FPTABORT/05 00029        FPTCOMD/05 00013         FPTCOMDP/05 00035        FPTCOMD3/05 00018
          FPTCONSL/05 0000C        FPTEND/04 000DE          FPTERORD/05 00039        FPTGP/05 00000
          FPTHERE/05 00003         FPTINT/05 00002          FPTMESS/05 0003E         FPTPROMT/05 00001
          FPTPROMT1/04 00106       FPTRMPCL/05 0001D        FROMFILE-07 0001D        GETARG12/04 0015B
          GETPW/04 000BD           GRANCNT-07 0004B         H02/00000001             IN%ARG-00000003
          INCRPT-07 00124          INIT0/07 00019           INSER-07 0004F           INT/04 002D7
          IOABORTS-04 002B1        IOBUF-00000200           KGC0%4/04 0007F          KGC0%5/04 0008E
          KGC1%4/04 000E8          KGC2%4/04 00212          KGC3%4/04 00223          KGC4%4/04 00297
          LINENO-000001FD          LISTCMBX-07 00048        LISTPOS-07 0004D         LISTTERM-07 00049
          LPCHK/04 00028           LTSTCMBX-07 00014        M:MSG-06 00000           M:MSGK/06 0001C
          MAXCMBX-00000052         MAXSEV-07 0004E          MODE-0000000F            NCHAR-00000054
          NOTPW/04 000B5           NPAGE-00000005           NXCMD/04 00061           OPNC/04 00057
          OPNDCB/04 00023          OPNFPT-00000300          OPNXFPT-07 000D7         OUT%ARG-00000004
          OUTBLK-07 0012F          OUTCRPT-07 00125         OUTSER-07 00050          PATCH-07 00052
          PCL-04 00000             PCL1/04 0006A            PCL2/04 000EE            PCL3/04 0005D
          PCL4/04 0007A            PCL6/04 000EB            PERR1/04 00208           PLSECT/05 00000
          PRINTIT1/04 000CC        PRNTBUF-07 000F2         PRTBUF-000001D8          PRTERR-04 001F5
          PRTERR1/04 00233         PRTERR2/04 00238         PRT01/04 0020C           PRT1/04 00224
          PRT2/04 0021A            PRT3/04 0022D            PTCH5LBL/04 00048        RDFPT-0000005F
          RDTBL-07 0002E           READC/04 0005A           RECNUM-00000065          RETURN/04 0025F
          RETURN1/04 00268         RETURN2/04 0028F         REVA/04 0018F            REVIEW-04 00152
          REVIEW0/04 0012B         REV1/04 00177            REV15/04 00176           REV2/04 0019D
          REV3/04 00198            REV4/04 00196            REV5/04 0019A            REV6/04 00190
          REV7/04 00189            REV8/04 0017A            REV9/04 00164            RSSAVE-0000006E
          RSTBRK/04 002E4          R0/00000000              R1/00000001              R10/0000000A
          R11/0000000B             R12/0000000C             R13/0000000D             R14/0000000E
          R2/00000002              R3/00000003              R4/00000004              R5/00000005
          R6/00000006              R7/00000007              R8/00000008              R9/00000009
          SAMERR/07 0004C          SCRATCH-07 00132         SELECT-00000018          SEQNUM-000001FB
          SEQUENCE-00000013        SETABN0/04 00025         SEVERE/04 002A2          SFARG-07 00036
          STACK/07 0002E           STACKSIZE/00000055       STACK0/07 0000C          STDBUF-0000006F
          STZINSWT/04 000CA        SUPERR-07 00015          SYNFLAG-00000008         TABS/04 001BB
          TABSEND/04 001D6         TABSERR/04 001DA         TABSERR2/04 001DC        TABSET-00000040
          TABS2/04 001C4           TADATA-07 000D6          TCREL/04 001B9           TCSAVE/04 001BA
          TERM-00000053            TERMPCL/04 00134         TERMPCL2/04 00131        TERMST/04 002E3
          TLABEL-07 000E8          TLBLSIZE-00000028        TOARG-0000002D           TOFILE-07 00025
          TOSWT-0000003D           TOVER-00000056           TRANSACT-04 001DE        TXPCLERR/04 0026B
          TXTABORT/05 0002E        TXTRMPCL/05 00022        UNBADR-07 00017          UNTBL-07 00034
          WRTBL-07 00030           WRTFPT-00000066          1BUF-07 00051            #DCBS/00000007
          #IOABTS/00000012         #WDSINIT0/00000034
  *    EXTERNAL SYMBOLS
          ANSBLK-DEF     ARGBUFF-DEF    ARGBUF4-DEF    ARGTBL-DEF     ATTRB-DEF      BLKBUFF-DEF
          BLKIN-DEF      BLKSIZE-DEF    BOG-DEF        BREAK-DEF      CARDSEQ-DEF    CCTAB-DEF
          CLOSEI-REF     CLOSEO-REF     CLRARG-REF     CMBX-DEF       CMDBUF-DEF     CODE-DEF
          COPYALL-REF    COPYPHY-DEF    COPYSK-DEF     COPYSTDF-DEF   COPYTO-REF     DCBS-DEF
          DEL%CT-DEF     DELETE-REF     DELETEAL-REF   DELETEF-DEF    DEV%SAV1-DEF   DEVICE-DEF
          DVLARG-DEF     EATTRB-DEF     ERRFLAG-DEF    ERROR-DEF      EXPIRE-DEF     EXTBL-DEF
          F:STD-REF      FILE-DEF       FIXARG-REF     FPARAM-DEF     FROMFILE-DEF   GETARG-REF
          GRANCNT-DEF    HEX2BCD-REF    HEX2BIN-REF    IN%ARG-DEF     INCRPT-DEF     INSER-DEF
          INTARG-REF     IOABORTS-DEF   IOBUF-DEF      J:CCBUF-REF    J:JIT-REF      JB:CCARS-REF
          JB:STEPCC-REF  LCCHARS-REF    LINENO-DEF     LIST-REF       LISTCMBX-DEF   LISTPOS-DEF
          LISTTERM-DEF   LTSTCMBX-DEF   M:C-REF        M:DO-REF       M:LL-REF       M:LO-REF
          M:MSG-DEF      M:SI-REF       M:UC-REF       MAXCMBX-DEF    MAXSEV-DEF     MODE-DEF
          NCHAR-DEF      NPAGE-DEF      OPNFPT-DEF     OPNXFPT-DEF    OUT%ARG-DEF    OUTBLK-DEF
          OUTCRPT-DEF    OUTSER-DEF     PATCH-DEF      PCL*DEF        PRNTBUF-DEF    PRTBUF-DEF
          PRTERR-DEF     RDFPT-DEF      RDTBL-DEF      RECNUM-DEF     REVIEW-DEF     REVRP-REF
          REW-REF        RSSAVE-DEF     SCRATCH-DEF    SELECT-DEF     SEQNUM-DEF     SEQUENCE-DEF
          SFARG-DEF      SPE-REF        SPF-REF        STDBUF-DEF     SUPERR-DEF     SYNFLAG-DEF
          TABSET-DEF     TADATA-DEF     TERM-DEF       TEXTARG-REF    TLABEL-DEF     TLBLSIZE-DEF
          TOARG-DEF      TOFILE-DEF     TOSWT-DEF      TOVER-DEF      TRANSACT-DEF   UNBADR-DEF
          UNTBL-DEF      WEOF-REF       WRTBL-DEF      WRTFPT-DEF     1BUF-DEF
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1* AP * 22:28 JUN 16,'85    PCLMN - PCL MAIN, ERROR, PRTERR                                       PAGE   15
A  ABNPCLER         793/GEN      794/DATA     859/DATA     860/DATA     884-LB
   ACTION3          734/B        738-LW
   ACTTBL           456/EXU      472-EQU
   AF              1019/SET
   AL              1013-CNAME
   ALD             1014-CNAME
   ALPTR           1016/DO1     1017-SET     1017/SET     1018/EQU     1019-SET     1019/SET     1021-SET
      1156/EQU     1157/DATA
   ANSBLK           119/DEF     1191-RES
   ARGBUFF           66/DEF      495/LW       503/LW       506/LW       591/LM       593/LM       623/LM
       625/LM       661/LW       725/INT     1043-AL      1058/EQU
   ARGBUF4           84/DEF      669/LI       729/LI      1058-EQU
   ARGTBL            67/DEF      449/LI      1029-AL      1031/EQU
   ATTRB             88/DEF     1026-AL
   BASEREG          189/BCR      206-LW
   BATCH            231/BCR      254-MTW
   BLKBUFF          120/DEF     1144-DATA
   BLKIN             81/DEF     1192-RES
   BLKSIZE          121/DEF     1142-DATA
   BOG              112/DEF      230/STCF     240/STCF     264/LC       305/LC       394/LC       465/LC
       511/LC       772/LC     907.8/LC      1127-DATA
   BREAK            292/STW     1114/AWM     1125-DSECT
   CALLGET          355/BL       363-LI
   CALLGETA         365-LI       380/B        393/B
   CARDSEQ           90/DEF     1039-AL
   CCTAB             99/DEF      329/LW       330/STS      332/STS      334/STS     1131-DATA
   CCTABLP          320-LB       335/BDR
   CCTABLX          322/BG       324/BL       335-BDR
   CKCCBUF          232/BCS      235/BNE      238/BANZ     241-LB
   CLOSDCB          461/BAL      543/BAL      545/BAL      547/BAL      564-LW
   CLOSEI           130/REF      458/BAL
   CLOSEO           130/REF      459/BAL
   CLOSFPT          567/CAL1     570-GEN
   CLRARG           105/REF      450/BAL
   CLSMSG           876-GEN      882/CAL1
   CMBX              65/DEF      364/STW      373/LW       384/LW       433/STW      601/LW       946/LW
      1044-AL
   CMBX1            359/CI       432/LI       947/AI      1063-EQU     1190/DATA
   CMDBUF            65/DEF      243/LI       280/AI       297/LI       343/CI       351/AI       357/MBS
       363/LI       401/AI      1050-AL
   CMDCNT           250/MTW      267/STW      308/MTW      398/MTW      463/MTW     1042-AL
   CMDTBL           738/LW      1079-DATA
   CMDTBLX          733/LW      1102-DATA
   CMDTBLX1        1102/DATA    1108-EQU
   CMDTBL1         1079/DATA    1101-EQU
   CODE              67/DEF     1033-EQU     1034/EQU
   CONTCHK          342-AI       347/BE
   CONTINUE         777/LI      1062-AL      1063/EQU
   CONTPTR          354/AW       358/AW       362/STW      434/XW      1190-DATA
   CONT2            349/BNE      351-AI
   CONT4            360/BLE      362-STW
   COPYALL          133/REF      497/BE       501/B
   COPYPHY          117/DEF      629/MTW     1173-DATA
   COPYSK            98/DEF      639/MTW     1169-RES
   COPYSTDF          93/DEF      500/MTW     1025-AL
   COPYTO           128/REF      499/BNE
   COPY1            474/BAL      495-LW
   DCBNS            157/LW       162/STW      175/LD      1163-DATA    1167/EQU
   DCBS              71/DEF      168/MTW      173/STH      182/STS      396/LC       417/LC       775/LC
      1145-DATA
   DCB0             157-LW       166/BDR
   DCB1             175-LD       181/BDR
   DEL%CT           111/DEF     1048-AL
   DELETE           138/REF      505/BNE
   DELETEAL         138/REF      510/B
   DELETEF          113/DEF      514/MTW     1151-DATA
   DEL1             475/BAL      503-LW
   DEV%SAV1         125/DEF     1056-EQU
   DEVICE            67/DEF     1031-EQU     1032/EQU
   DOTCNT           371/LW       379/MTW      392/STW      462/STW     1028-EQU
   DVLARG            68/DEF     1184-RES
   EATTRB            97/DEF     1170-DATA
   ENDCMD           439/B        445/B        457-BAL
   ENDPCL           193/B        464/BLE      520/B        522/BCS      542-LI
   ERONOFF          491/BAL      655-PSW
   ERRFLAG           70/DEF      190/MTW      368/STW      677/STW      678/MTW    779.1/MTW      806/LW
       811/LW       813/CS       815/XW       818/STW    879.2/MTW   879.14/MTW      962/LW       965/STW
       966/CW       969/MTW      988/MTW     1137-DATA
   ERROR            107/DEF      438/BAL      444/BAL      651/B        710/BAL      915-RES
   ERRORDN        879.3/BLE   879.12-EQU
   ERRORLP        879.2-MTW   879.11/B
   ERR1             940-CB       990/B
   ERR2             980-LCI      985/BLE
   ERR3             953/BNE      959-AI
   ERR44            973/BE       984-CI
   EXIT             550-CAL1     554/BLE
   EXPIRE           123/DEF     1041-AL
   EXTBL            100/DEF     1159-RES
   F:STD            136/REF      460/LI
   FILE              67/DEF      598/MTW      600/MTW      603/STW      610/MTW     1032-EQU     1033/EQU
   FIXARG           129/REF      739/BAL
   FPARAM            83/DEF     1065-EQU
   FPTABORT         518/CAL1     533-GEN
   FPTCOMD          312/CAL1     407/CAL1     410-GEN      420/CAL1
   FPTCOMDP         780/CAL1     783-GEN
   FPTCOMD3         310/CAL1     423-GEN
   FPTCONSL         282/CAL1     284-GEN
   FPTEND           397/BCS      399/BL       405/BE       418/BCS      430-CI
   FPTERORD         854/CAL1     857-GEN
   FPTGP            183/CAL1     186-DATA
   FPTHERE          266/CAL1     269-GEN
   FPTINT           221/CAL1     224-GEN
   FPTMESS          845/CAL1     849/CAL1     869/CAL1     871-GEN
   FPTPROMT         217-GEN      281/CAL1     425/DATA
   FPTPROMT1        454/CAL1     470-GEN
   FPTRMPCL         524/CAL1     527-GEN
   FROMFILE         113/DEF      515/MTW      578/MTW      592/STM      594/STM      627/LB       632/LB
      1152-RES
   GETARG           127/REF      367/BAL      587/B        660/BAL      696/BAL      723/BAL
   GETARG12         586-LI       604/BAL      611/BAL      617/BAL
   GETPW            372/BDR      382-LW
   GRANCNT          115/DEF     1174-DATA
   HA              1076/EQU     1076/EQU
   HEX2BCD          108/REF      896/BAL
   HEX2BIN          106/REF      671/BAL
   H02              0.1-SET    274.1/DO     806.1/DO     879.1/DO     885.1/DO     907.1/DO    1132.2/DO
   IN%ARG           124/DEF     1022-AL
   INCRPT           103/DEF     1188-RES
   INIT0            447/STW     1149-EQU     1177/EQU
   INSER            109/DEF     1179-DATA
   INT              224/GEN     1110-CAL1
   INTARG           142/REF      699/BAL
   IOABORTS          72/DEF     1071-DATA    1076/EQU
   IOBUF             74/DEF     1064-EQU     1065/EQU     1066/EQU     1067/EQU     1068/EQU     1069/EQU
   J:CCBUF          140/REF      246/LI
   J:JIT            137/REF      158/LC       229/LC       313/LC       521/LCF      548/LC
   JB:CCARS         147/REF      241/LB
   JB:STEPCC        139/REF      552/LI
   KGC0%4           314/BCS      318-LB
   KGC0%5           328/BCS      333-SLS
   KGC1%4           436/BG       440-BAL
   KGC2%4           812/B        816-BDR
   KGC3%4           830/BE       834-BDR
   KGC4%4           975/BAZ      979-MTW
   LCCHARS          132/REF      327/CLM
   LF              1018-EQU
   LINENO            95/DEF     1069-EQU
   LIST             138/REF      477/BAL      512/BCR      513/BCR      516/B
   LISTCMBX         118/DEF     1171-DATA
   LISTPOS           82/DEF     1176-DATA
   LISTTERM         118/DEF     1172-DATA
   LPCHK            167/BAL      172/BAL      198-LI
   LTSTCMBX         101/DEF      385/SW       388/LW      1140-DATA
   M:C              135/REF      259/GEN      261/GEN
   M:DO             145/REF      546/LI       774/LI       783/GEN      850/LI      1163/DATA    1166/DATA
   M:LL             146/REF      406/LI       544/LI       848/LI      1163/DATA    1164/DATA    1165/DATA
   M:LO             134/REF      161/LI       169/LI       419/LI       452/LI       527/GEN      533/GEN
       542/LI
   M:MSG            790-DSECT    794/DATA     857/GEN      864/LW       876/GEN
   M:MSGK           795/DATA     802-RES
   M:SI             134/REF      234/CS       236/LW       284/GEN      293/LW       402/LW      1164/DATA
   M:UC             134/REF      159/CI       269/GEN      311/LI       423/GEN      771/LI       839/CI
       865/CI      1165/DATA    1166/DATA
   MAXCMBX           65/DEF      341/STW      374/CW       435/STW    779.3/LW      1045-AL
   MAXSEV         125.1/DEF      366/LW       370/STW      519/STW      551/LW       943/CW       945/STW
      1178-DATA
   MODE              67/DEF     1034-EQU     1035/EQU
   NAME            1016/DO1
   NCHAR             66/DEF      382/LW       588/MTW      620/MTW      670/LW      1047-AL
   NOTPW            373-LW       383/BE
   NPAGE             75/DEF     1024-AL
   NXCMD            279-LW       431/BE       466/BCS      468/BL
   OPNC             256/CAL1     259-GEN
   OPNDCB           165/CAL1     171/CAL1     194-GEN
   OPNFPT            76/DEF     1066-EQU
   OPNXFPT           77/DEF     1183-RES
   OUT%ARG          124/DEF     1023-AL
   OUTBLK            80/DEF     1193-RES
   OUTCRPT          104/DEF     1189-RES
   OUTSER           110/DEF     1180-DATA
   PATCH            149/DEF   1181.1-RES
   PCL               63/DEF      151-CSECT    153/USECT    188/USECT    219/USECT    226/USECT    277/USECT
       291/USECT    416/USECT    429/USECT    541/USECT    574/USECT   1196/USECT   1197/END
   PCL1             252/B        297-LI
   PCL2             442/BNE      446-LI
   PCL3             242/BE       264-LC       487/B
   PCL4             306/BCR      307/BCS      309/BL       313-LC
   PCL6             443-LI       473/B        483/B        484/B        490/B        509/BNE
   PERR1            773/BCS      776/BCS      789-EQU
   PLSECT           152-CSECT    185/USECT    216/USECT    223/USECT    268/USECT    283/USECT    409/USECT
       422/USECT    526/USECT    569/USECT    782/USECT    855/USECT    870/USECT
   PRINTIT1         339/BE       344/BL       375/BE       394-LC
   PRNTBUF           86/DEF     1187-RES
   PRTBUF            69/DEF     1067-EQU     1156/EQU
   PRTERR            73/DEF      192/BAL      457/BAL      679/BAL      769-LCI      788/USECT    805/USECT
       863/USECT    879/USECT
   PRTERR1          838/BE       847/BE       851-AI     879.9/BNE   879.15/BG
   PRTERR2          865-CI       905/BDR      906/BDR
   PRT01            810-LW       819/BDR
   PRT1             826/BE       836-LI
   PRT2             825-LB       834/BDR
   PRT3             840/BNE      845-CAL1
   PTCH5LBL       242.1-EQU    257.1/B
   RDFPT             83/DEF     1052-AL      1054/EQU     1056/EQU
   RDTBL            100/DEF     1155-RES
   READC            257/CAL1     261-GEN
   RECNUM            86/DEF     1054-EQU
   RETURN         779.2/BE     806.4/BE       883/B      885.4/BE     907.2-LB    907.13-LCI
   RETURN1        806.2/BE     885.2/BE     907.4/BLE    907.7/BE     907.9/BCS   907.11-LCI
   RETURN2          964/BE       967/BE       971-SLS
   REVA             628/BE       630/BNE      634/BL       638-LW       668/B        680/B
   REVIEW           113/DEF      577-PSW
   REVIEW0          486/BAL      511-LC
   REVRP            143/REF     1117/CI
   REV1             597/BNE      614-LW
   REV15            607/BNE      613-BAL
   REV2             646/BNE      652-LI       658/BNE      673/BNE      675/BNE
   REV3             619/BG       642/BE       644/BE       647-PLW
   REV4             640/BE       645-CI
   REV5             599/BNE      621/BE       635/BG       649-LI       653/B
   REV6             584/BE       616/BNE      639-MTW
   REV7             632-LB       637/BDR
   REV8             582/BE       617-BAL
   REV9             589/BE       595-LW
   REW              141/REF      478/BAL      479/BAL      493/BAL
   RSSAVE            92/DEF     1055-AL
   RSTBRK           451/CAL1    1120/CAL1    1123-DATA
   R0                15-EQU      213/STD      220/LW       227/LI       267/STW      292/STW      368/STW
       392/STW      447/STW      462/STW      662/STB
   R1                16-EQU      156/LI       157/LW       162/STW      166/BDR      173/STH      179/OR
       180/SCS      182/STS      245/LW       279/LW       280/AI       288/PZE*     318/LB*      320/LB*
       337/LB*      363/LI       364/STW      365/LI       371/LW       372/BDR      373/LW       374/CW
       382/LW       384/LW       385/SW       386/AI       391/BDR      400/LW       401/AI       412/PZE*
       432/LI       433/STW      434/XW       435/STW      437/LI       443/LI       446/LI       447/STW
       448/BDR      449/LI       455/LW       456/EXU      495/LW       496/CW       498/CW       503/LW
       504/CW       506/LW       507/AND      508/CW       552/LI       553/CB       564/LW       565/CW
       580/LW       581/CI       583/CI       586/LI       591/LM       592/STM      593/LM       594/STM
       595/LW       596/CI       601/LW       602/AI       603/STW      605/LW       608/AI       612/LW
       614/LW       615/CI       623/LM       624/STM      625/LM       626/STM      638/LW       641/CI
       643/CI       645/CI       649/LI       652/LI       659/LI       669/LI       689/LI       690/STW
       691/BDR      695/LI       697/LI       702/STB      704/LW       705/CI       707/CI       709/LI
       715/LI       717/LI       722/LI       729/LI       731/CB       733/LW       736/STB      738/LW
       740/CI       742/LI       743/STW      777/LI       779/AW       785/PZE*     810/LW       813/CS
       815/XW       816/BDR      825/LB       827/AI       828/STB      829/CI       831/CW       833/LW
       890/LM       892/STW      893/STM      895/INT      940/CB       942/LB       952/MI       954/LB
       955/SLS      956/AH       957/SLS      958/AI       959/AI       960/STB      965/STW      966/CW
       971/SLS      972/EOR      974/CI       976/EOR      977/AI       978/STW      989/LI      1116/AND
      1119/MTW
   R10               25-EQU    779.3/LW     779.4/AI     779.5/CI     779.7/LI       811/LW       813/CS
       815/XW       818/STW      884/LB       884/LB       885/CI       887/LI       888/AND      891/BDR
       899/BDR      905/BDR    907.5/AND    907.6/CI       954/LB       956/AH
   R11               26-EQU      192/BAL      311/LI       325/LI       326/SCS      329/LW       330/STS
       331/LI       332/STS      334/STS      367/BAL      406/LI       410/GEN      419/LI       438/BAL
       440/BAL      444/BAL      450/BAL      457/BAL      458/BAL      459/BAL      461/BAL      474/BAL
       475/BAL      477/BAL      478/BAL      479/BAL      480/BAL      481/BAL      482/BAL      485/BAL
       486/BAL      489/BAL      491/BAL      493/BAL      543/BAL      545/BAL      547/BAL      566/BAZ*
       575/B*       577/PSW      585/LI       604/BAL      609/BAL      611/BAL      613/BAL      617/BAL
       647/PLW      648/B*       650/PLW      655/PSW      660/BAL      671/BAL      679/BAL      696/BAL
       699/BAL      710/BAL      714/B*       720/PSW      723/BAL      739/BAL      744/PLW      745/B*
       808/LI       896/BAL      910/B*       982/B*
   R12               27-EQU      336/SD       336/SD       345/LB       346/CI       348/CI       430/CI
       441/CI       455/LW       743/STW
   R13               28-EQU      191/LI       369/LI       467/CI       519/STW      551/LW       553/CB
       555/SLS      556/AI       557/CI       559/AI       561/AI       562/CAL1*    618/CI       940/CB
       942/LB       943/CW       945/STW      984/CI
   R14               29-EQU      771/LI       774/LI       778/MTB      839/CI       846/MTB      848/LI
       850/LI       865/CI       871/GEN
   R2                17-EQU      157/LW       159/CI       161/LI       162/STW      169/LI       175/LD
       177/STB      194/GEN      196/GEN      199/CS       202/CW       211/LI       213/STD      214/BDR
       246/LI       247/SLD      249/MBS      251/LW       293/LW       294/SLS      295/AI       298/AW
       301/AI       315/CI       320/LB       335/BDR      352/STD      353/SLD      357/MBS      376/LW
       377/CI     385.1/LW     385.2/CI       387/LI       389/STB      402/LW       403/SLS      404/CI
       413/PZE*     452/LI       460/LI       523/LB       530/PZE*     542/LI       544/LI       546/LI
       564/LW       570/GEN      627/LB       637/BDR      656/LW       657/CI       661/LW       662/STB
       663/CW       665/SW       667/STW      670/LW       698/LI       700/AI       725/INT      727/CI
       730/LI       731/CB       735/LI       736/STB      806/LW       810/LW       811/LW       818/STW
       819/BDR      821/LI       822/STH      824/LI       828/STB      842/LI       843/STB      898/SCS
       900/SCD      901/SCD      902/STW      939/PSM      946/LW       947/AI       949/CI       951/LI
       960/STB      962/LW       963/CI       965/STW      966/CW       968/BDR      981/PLM      986/CI
   R3                18-EQU      198/LI       199/CS       201/LI       202/CW       233/LI       234/CS
       236/LW       237/CI       243/LI       244/AW       245/LW       248/STB      303/LI       304/STB
       318/LB       320/LB       321/CI       323/CI       326/SCS      327/CLM      333/SLS      334/STS
       337/LB       338/CI       354/AW       356/STB      388/LW       389/STB      390/AI       631/LI
       632/LB       633/CB       636/AI       674/MTB      676/MTB      677/STW      820/LI       822/STH
       823/BDR      831/CW       833/LW       837/AI       841/AI       843/STB      852/LI       853/STB
       864/LW       867/AI       874/PZE*   879.8/CH       903/STW      904/LI       906/BDR     1111/LI
      1112/AND     1113/LH      1113/LH      1114/AWM     1115/LI      1116/AND     1117/CI
   R4                19-EQU      174/LI       175/LD       181/BDR      241/LB       248/STB      251/LW
     254.1/LI       297/LI       298/AW       299/LC       302/AI       304/STB      317/AI       341/STW
       342/AI       343/CI       345/LB       350/AI       351/AI       356/STB      358/AW       359/CI
       361/LI       362/STW      606/CI       632/LB       633/CB       672/AI
   R5                20-EQU      366/LW       370/STW      685/PSM      686/LI       687/AW       690/STW*
       692/STW      702/STB*     711/STW      713/PLM      770/PSM      836/LI       844/LI       868/LI
       875/PZE*   879.4/LW     879.5/SLS    879.6/AI     879.7/LH     879.8/CH       892/STW    907.2/LB
     907.3/CI       909/PLM
   R6                21-EQU      167/BAL      172/BAL      200/BNE      203/BAZ      204/B        688/LI
       690/STW      692/STW      693/CI       702/STB      703/AI
   R7                22-EQU      154/LI       206/LW       213/STD*     220/LW       244/AW       250/MTW
       267/STW      279/LW       299/LC*      304/STB*     308/MTW      341/STW      345/LB*      352/STD
       364/STW      371/LW       373/LW       374/CW       376/LW       379/MTW      382/LW       384/LW
     385.1/LW       389/STB*     392/STW      398/MTW      400/LW       433/STW      435/STW      462/STW
       463/MTW      495/LW       500/MTW      503/LW       506/LW       577/PSW*     580/LW       588/MTW
       591/LM       593/LM       595/LW       598/MTW      600/MTW      601/LW       603/STW      610/MTW
       614/LW       620/MTW      623/LM       625/LM       638/LW       647/PLW*     650/PLW*     655/PSW*
       656/LW       661/LW       670/LW       685/PSM*     687/AW       704/LW       711/STW      713/PLM*
       720/PSW*     725/INT      731/CB*      736/STB*     744/PLW*     770/PSM*     779/AW     779.3/LW
       909/PLM*     939/PSM*     946/LW       981/PLM*
   R8                23-EQU      155/STW      176/LI       177/STB      179/OR      1112/AND
   R9                24-EQU      206/LW       809/ANLZ     825/LB*      834/BDR      851/AI       853/STB*
       861/PZE*   879.4/LW    879.10/AI       888/AND*     895/INT*
   SAMERR           972/EOR      976/EOR      978/STW      979/MTW     1175-DATA
   SCRATCH          114/DEF     1194-DATA
   SELECT            67/DEF     1036-EQU
   SEQNUM           116/DEF     1068-EQU
   SEQUENCE          67/DEF     1035-EQU     1036/EQU
   SETABN0          164/CAL1     170/CAL1     196-GEN
   SEVERE           940/CB       942/LB       995-DATA
   SFARG             96/DEF     1161-RES     1168/ORG
   SPE              141/REF      481/BAL
   SPF              141/REF      480/BAL      489/BAL
   STACK            207/LD      1157-DATA
   STACKSIZE       1156-EQU     1157/DATA
   STACK0           154/LI      1138-DATA
   STDBUF            78/DEF     1061-AL
   STZINSWT         378/BNE      392-STW
   SUPERR           102/DEF      667/STW     1141-DATA
   SYNFLAG           87/DEF     1027-AL      1028/EQU
   TABS             485/BAL      684-LCI
   TABSEND          708/BE       711-STW      716/B        718/B
   TABSERR          701/BNE      715-LI
   TABSERR2         694/BE       717-LI
   TABSET            91/DEF      686/LI       711/STW     1040-AL
   TABS2            693-CI       706/BE
   TADATA         125.2/DEF   1181.2-RES
   TCREL            665/SW       681-DATA
   TCSAVE           663/CW       682-DATA
   TERM              66/DEF      376/LW     385.1/LW       580/LW       595/LW       614/LW       638/LW
       656/LW       704/LW      1046-AL
   TERMPCL          286/DATA     287/DATA     296/BE       476/B        521-LCF      728/BE
   TERMPCL2         469/B        518-CAL1
   TERMST          1110/CAL1    1122-DATA
   TEXTARG          131/REF      609/BAL      613/BAL
   TLABEL            87/DEF      155/STW      254/MTW      262/DATA     792/GEN      822/STH      828/STB
       843/STB      873/PZE      893/STM      902/STW      903/STW     1186-RES
   TLBLSIZE          89/DEF     1060-EQU
   TOARG             83/DEF     1037-AL
   TOFILE           113/DEF      579/MTW      624/STM      626/STM      633/CB      1153-RES
   TOSWT             68/DEF     1038-AL
   TOVER             85/DEF     1049-AL
   TRANSACT          64/DEF      440/BAL      720-PSW
   TXPCLERR         890/LM       912-TEXT
   TXTABORT         535/DATA     538-TEXT
   TXTRMPCL         523/LB       529/DATA     532-TEXTC
   UNBADR           122/DEF     1143-DATA
   UNTBL            100/DEF     1160-RES
   WEOF             141/REF      482/BAL
   WRTBL            100/DEF     1158-RES
   WRTFPT            83/DEF     1053-AL
   1BUF              79/DEF     1181-DATA
   %                160/BCS      163/BE       214/BDR    242.1/EQU      265/BCR      271/DATA     300/BCR
       316/BNE      319/B      385.3/BE       391/BDR      395/BCR      448/BDR      472/EQU      549/BCR
       558/BLE      560/BL       585/LI       664/BE       666/BNE      691/BDR      726/BCS      732/BNE
       741/BNE    779.6/BL       789/EQU      809/ANLZ     814/BG       816/BDR      823/BDR      832/BG
       866/BE    879.12/EQU      891/BDR      899/BDR      941/BGE      944/BLE      948/BLE      950/BAZ
       968/BDR      987/BNE     1076/EQU     1079/DATA    1101/EQU     1102/DATA    1108/EQU     1118/BNE
      1138/DATA    1149/EQU     1167/EQU     1177/EQU
   #DCBS            156/LI      1167-EQU
   #IOABTS         1071/DATA    1076-EQU
   #WDSINIT0        446/LI      1177-EQU
