BANNER TELEFILE,TELE-PCL,PCLBD.
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               BBBBBBBBBBBB     DDDDDDDDDDD
                  PPPPPPPPPPPPP    CCCCCCCCCCCCC    LL               BBBBBBBBBBBBB    DDDDDDDDDDDD
                  PP         PP    CC         CC    LL               BB         BB    DD         DD
                  PP         PP    CC               LL               BB         BB    DD         DD
                  PP         PP    CC               LL               BB         BB    DD         DD
                  PPPPPPPPPPPPP    CC               LL               BBBBBBBBBBBB     DD         DD
                  PPPPPPPPPPPP     CC               LL               BBBBBBBBBBBB     DD         DD
                  PP               CC               LL               BB         BB    DD         DD
                  PP               CC               LL               BB         BB    DD         DD
                  PP               CC         CC    LL         LL    BB         BB    DD         DD
                  PP               CCCCCCCCCCCCC    LLLLLLLLLLLLL    BBBBBBBBBBBBB    DDDDDDDDDDDD
                  PP                CCCCCCCCCCC     LLLLLLLLLLLLL    BBBBBBBBBBBB     DDDDDDDDDDD
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               BBBBBBBBBBBB     DDDDDDDDDDD
                  PPPPPPPPPPPPP    CCCCCCCCCCCCC    LL               BBBBBBBBBBBBB    DDDDDDDDDDDD
                  PP         PP    CC         CC    LL               BB         BB    DD         DD
                  PP         PP    CC               LL               BB         BB    DD         DD
                  PP         PP    CC               LL               BB         BB    DD         DD
                  PPPPPPPPPPPPP    CC               LL               BBBBBBBBBBBB     DD         DD
                  PPPPPPPPPPPP     CC               LL               BBBBBBBBBBBB     DD         DD
                  PP               CC               LL               BB         BB    DD         DD
                  PP               CC               LL               BB         BB    DD         DD
                  PP               CC         CC    LL         LL    BB         BB    DD         DD
                  PP               CCCCCCCCCCCCC    LLLLLLLLLLLLL    BBBBBBBBBBBBB    DDDDDDDDDDDD
                  PP                CCCCCCCCCCC     LLLLLLLLLLLLL    BBBBBBBBBBBB     DDDDDDDDDDD
D
ASSIGN M:CI,(FILE,CI:PCLBD,PCLH00CI),(IN),(SAVE)
ASSIGN M:SI,(FILE,SI:PCLBD,PCLH00SI),(IN),(SAVE)
ASSIGN M:BO,(FILE,BO:PCLBD,PCLH00BO),(OUT),(SAVE)
ASSIGN M:LL,(DEVICE,LO),(OUT)
1* AP * 22:33 JUN 16,'85                                                                          PAGE    1
A      1                      .010  +0                                  Pre-release H02
       2                      .020  H02   SET         1                 DIFFERENTIATE BETWEEN H01/H02
       3                    31.000  +31                                 Tele-PCL SIDR 4.34
       4                    31.010           SYSTEM   BPM
       5                    96.000  +96,96                              Pre-release H01
       6                   284.000  +284,284                            PCL SIDR      ?-1-?
       7                   284.010           LI,R2    'MT'              DEFAULT TO MT (NOT 9T)
       8                   289.000  +289,289                            Pre-release H01
       9                   289.010           AI,R1    -16               ASCII/EBCDIC
      10                   314.000  +314,314                            PCL SIDR      31521
      11                   314.010           LI,R1    X'1000'           CHECK FOR CAT OPTION (NOT FMT)
      12                   319.000  +319,319                            PCL SIDR      31987
      13                   319.010           LI,R1    16                DON'T CLOBBER HEADING (DATE)
      14                   672.000  +672,673                            Tele-PCL SIDR 4.33
      15                   672.010        DO          H02
      16                   672.012        ELSE
      17                   672.020           LI,R3    X'200'            FORCE EXCLUSIVE OPEN
      18                   672.030           STS,R3   FPTMODE,R7
      19                   672.040        FIN
      20                   674.000  +674                                Tele-PCL SIDR 4.34
      21                   674.010        DO          H02
      22                   674.020           M:DEVICE M:EO,(DATA,0)
      23                   674.030           M:DEVICE M:EO,(SPACE,0)
      24                   674.040        FIN
      25                   715.000  +715,715                            Pre-release H01
      26                   715.010           PAGE
      27                   810.000  +810,810                            Tele-PCL SIDR 4.35
      28                   810.010        DO          H02
      29                   810.020           CI,R4    X'024B'
      30                   810.030        ELSE
      31                   810.040           CI,R4    X'025C'
      32                   810.050        FIN
      33                  9000.000  +END                                Pre-release H01
1* AP * 22:33 JUN 16,'85    PCLBD - BUILD DCBS, STORE VLP                                         PAGE    2
A       1*        00000001           H02   SET         1                 DIFFERENTIATE BETWEEN H01/H02
1* AP * 22:33 JUN 16,'85    PCLBD - BUILD DCBS, STORE VLP                                         PAGE    3
A       1                                     TITLE    'PCLBD - BUILD DCBS, STORE VLP'
        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*      BLDCB    BUILD INPUT OR OUTPUT DCB
       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         0000000D           R13      EQU      13
       28         0000000F           R15      EQU      15
1* AP * 22:33 JUN 16,'85    PCLBD - BUILD DCBS, STORE VLP                                         PAGE    4
A      29                                     PAGE
1* AP * 22:33 JUN 16,'85    PCLBD - BUILD DCB                                                     PAGE    5
A      30                                     TITLE    'PCLBD - BUILD DCB'
       31                                     SYSTEM   SIG7
        1*                                    SYSTEM   BPM
       32                            *
       33                            *P*      NAME:    BLDCB
       34                            *P*
       35                            *P*
       36                            *P*      PURPOSE: BLDCB CONSTRUCTS AN OPEN FPT FOR EITHER THE M:EI OR
       37                            *P*               THE M:EO DCB, BASED UPON INPUT FLAGS, AND ISSUES AN
       38                            *P*               OPEN CAL FOR THE DCB.
       39                            *P*
       40                            *P*               STORVLP STORES A VARIABLE LENGTH PARAMETER IN THE
       41                            *P*               OPEN FPT.  THIS PARAMETER MAY BE NAME, ACCOUNT,
       42                            *P*               PASSWORD, INSN, OUTSN, READ ACCOUNT, WRITE ACCOUNT,
       43                            *P*               EXECUTE ACCOUNT, OR VEHICLE.
       44                            *P*
       45                            *P*
       46                            *
       47                            *DO*
       48                            *P*
       49                            * INPUT  (BLDCB)
       50                            *
       51                            *        R1       BIT 12   TEST FILE
       52                            *                 BIT 28   INOUT MODE FLAG(0-NOT INOUT,1-INOUT MODE)
       53                            *                 BIT 29   NXTF FLAG (0-NOT NXTF,1-NXTF)
       54                            *                 BIT 30   FPARAM FLAG (0-NOT FPARAM,1-FPARAM)
       55                            *                 BIT 31   I/O SWITCH (0-INPUT,1-OUTPUT)
       56                            *        ARGTBL   TABLE OF TRANSLATED ARGUMENTS (DEVICE FILE,MODE)
       57                            *        NCHAR    LENGTH OF CURRENT ARGUMENT IN -ARGBUFF-
       58                            *        TOVER    OUTPUT VERB
       59                            *
       60                            * OUTPUT (BLDCB)
       61                            *
       62                            *        M:EI     INPUT DCB
       63                            *        M:EO     OUTPUT DCB
       64                            *        OPNFPT   OPEN FILE PARAMETER TABLE
       65                            *        DCBADD   ADDRESS OF CURRENT DCB (M:EI,M:EO OR M:STD)
       66                            *        CMBX     COMMAND BUFFER INDEX
       67                            *
       68                            *FIN*
       69                            *
       70                                     REF      GETARG
       71                                     REF      ERROR
       72                                     REF      IOABORTS          IO ERR/ABN GIVE UP CODES
       73                                     REF      DEVICE            ARGTBL ITEMS
       74                                     REF      FILE              ARGTBL ITEMS
       75                                     REF      MODE              ARGTBL ITEMS
       76                                     REF      NCHAR             GETARG ITEMS
       77                                     REF      CMBX              GETARG ITEMS
       78                                     REF      OUTBLK            RUNNING BLOCKING PARAMETERS
       79                                     REF      SIXBACK           UNCONVERT ANSSN
       80                                     REF      OPNFPT,FPARAM
       81                                     REF      CLOSEO,TOVER,M:UC
       82                                     REF      J:JIT
       83                                     REF      CODE
       84                                     REF      TLBLSIZE
       85                                     REF      SEQUENCE
       86                                     REF      TOARG
       87                                     REF      SFARG
       88                                     REF      OPNXFPT
       89                                     REF      COPYSTDF,ARGBUF4,TLABEL
       90                                     REF      EXTBL,RDTBL,WRTBL,UNTBL
       91                                     REF      CLOSEI
       92                                     REF      SCRATCH,PRTBUF
       93                                     REF      ARGBUFF
       94                                     REF      FROMFILE
       95                                     REF      COPYPHY
       97                                     REF      LTSTCMBX
       98                                     REF      INSER,OUTSER      FOR DEFAULT VOL#
       99                                     REF      ANSBLK
      100                                     REF      SIXPACK
      101                                     REF      EXPIRE
      102                                     REF      IN%ARG,OUT%ARG
      103                            *
      104   04 00000                 BLDCB    DSECT    1
      105                                     DEF      M:EISN
      106                                     DEF      M:EOSN
      107                                     DEF      FPTOPLB           FOR SPE TO REOPEN
      108                                     DEF      BLKFIX            COLLECT BLOCKING INFORMATION
      109                                     DEF      MAXSN
      110                            *
      111   04 00000    22F00000 A            LI,R15   0                 CLEAR ERROR REGS
      112   04 00001    22A00000 A            LI,R10   0
      113   04 00002    02200070 A            LCI      7                 SAVE REGISTERS
      114   04 00003    8B500007 A            PSM,R5   *R7
      115                            *
      116   04 00004    326E0002 X            LW,R6    DEVICE+2,R7       SET A REASONABLE CMBX
      117   04 00005    356E0000 X            STW,R6   CMBX,R7           FOR ERROR MESAGES
      118   04 00006    32900001 A            LW,R9    R1                SAVE I/O SWITCH
      119                            *
      120   04 00007    326E0000 X            LW,R6    DEVICE,R7         INITIALIZE FOR DEFAULT TABLE SEARCH
      121   04 00008    70200000 X            LC       J:JIT             WHAT IS THIS FOR? - KGC
      122   04 00009    22100017 A            LI,R1    OPENSIZE          INITIALIZE OPEN FPT
      123   04 0000A    32200007 A            LW,R2    R7
      124   04 0000B    202FFFFF N            AI,R2    OPNFPT-1
      125   04 0000C    323202B3              LW,R3    IOPNFPT-1,R1
      126   04 0000D    B5320002 A            STW,R3   *R2,R1
      127   04 0000E    6410000C              BDR,R1   %-2
      128   04 0000F    323002CB              LW,R3    =X'80000'
      129   04 00010    32200009 A            LW,R2    R9
      130   04 00011    472E0000 X            STS,R2   OPNFPT,R7         SET TESTFILE BIT IF PRESENT
      131   04 00012    325E0001 X            LW,R5    DEVICE+1,R7       TEST FOR REEL NO.S
      132   04 00013    69300025              BNE      ADDRN3            PRESENT
      133   04 00014    22400001 A            LI,R4    1
      134   04 00015    4B400006 A            AND,R4   R6
      135   04 00016    32280000 X            LW,R2    SCRATCH,R4        IS SCRATCH TAPE IN USE
      136   04 00017    68300053              BE       ADDFILE           NO
      137   04 00018    22500001 A            LI,R5    1                 INDICATE ONE SER NO
      138   04 00019    21600004 A            CI,R6    4
      139   04 0001A    6830001F              BE       ADDRN5            LT
      140   04 0001B    21600007 A            CI,R6    7
      141   04 0001C    6830001F              BE       ADDRN5            AT
      142   04 0001D    21600006 A            CI,R6    6                 TEST FOR FT
      143   04 0001E    69300053              BNE      ADDFILE           NO
      144   04 0001F    25200178 A   ADDRN5   SLD,R2   -8
      145   04 00020    352E0000 X            STW,R2   ARGBUFF,R7        PUT SN IN ARG BUFFER
      146   04 00021    353E0001 X            STW,R3   ARGBUFF+1,R7
      147   04 00022    32380002 X            LW,R3    SCRATCH+2,R4      GET RESOURCE TYPE TOO
      148   04 00023    353E000E X            STW,R3   FPTOPLB,R7
      149   04 00024    68000038              B        ADDRN4
      150   04 00025    21600003 A   ADDRN3   CI,R6    3
      151   04 00026    68300053              BE       ADDFILE           STD FILE INPUT
      152   04 00027    22140006 A   ADDRN1   LI,R1    X'40006'          SERIAL # DELIMITERS
      153   04 00028    6AB00000 X            BAL,R11  GETARG            GET REEL NO. ARGUMENT
      154   04 00029    322E0000 X            LW,R2    NCHAR,R7          TEST FOR NULL ARGUMENT
      155   04 0002A    6830003A              BE       ADDRN2
      156   04 0002B    21600007 A            CI,R6    7                 IS DEVICE ANS TAPE
      157   04 0002C    69300038              BNE      ADDRN4            NO
      158   04 0002D    32100007 A            LW,R1    R7
      159   04 0002E    25100002 A            SLS,R1   2
      160   04 0002F    20100001 N            AI,R1    ARGBUF4+1         BYTE ADR OF SER NO
      161   04 00030    6AB00000 X            BAL,R11  SIXPACK           GO HASH 6-CHAR SN
      162   04 00031    6800001F              B        ADDRN5
      163                            *
      164   04 00032    354E000F X   ADDVOL6  STW,R4   FPTVOL,R7         SET THE VOL IN FPT
      165   04 00033    31400001 A            CW,R4    R1                IS IT REASONABLE
      166   04 00034    68200053              BLE      ADDFILE
      167   04 00035    2210000A A            LI,R1    10                TOO BIG VOL OPTION
      168   04 00036    6AB00000 X            BAL,R11  ERROR
      169   04 00037    68000053              B        ADDFILE
      170   04 00038    22100004 A   ADDRN4   LI,R1    4                 SN=4
      171   04 00039    6AB00263              BAL,R11  STORVLP
      172   04 0003A    64500027     ADDRN2   BDR,R5   ADDRN1
      173   04 0003B    321E0015 X            LW,R1    VLPOPEN,R7        GET LAST CONTROL WORD
      174   04 0003C    21110000 A            CI,R1    X'10000'          ONLY FILE (NO ENTRY) OR SN POSSIBLE
      175   04 0003D    6940003F              BANZ     %+2               (SO LIMIT IF NO SNS FOR VOL IS 0)
      176   04 0003E    321E001E X   ADDVOL2  LW,R1    VLPOPEN+9,R7
      177   04 0003F    22200002 A            LI,R2    2                 GET SN COUNT THEREFROM
      178   04 00040    72140001 A            LB,R1    R1,R2
      179   04 00041    224000FF A            LI,R4    X'FF'             GET USERS VOL REQUEST
      180   04 00042    4B4E0000 X            AND,R4   MODE,R7
      181   04 00043    69300032              BNE      ADDVOL6
      182   04 00044    32200000 X            LW,R2    INSER             SEE IF WE CAN FIND A MATCH
      183   04 00045    32300000 X            LW,R3    OUTSER            IN MOUNTED SNS AND VLP LIST
      184   04 00046    21900001 A            CI,R9    1                 USE SAME MODE FIRST
      185   04 00047    68400049              BAZ      %+2
      186   04 00048    46200003 A            XW,R2    R3
      187   04 00049    32400001 A            LW,R4    R1                NUMBER TO SEARCH
      188   04 0004A    68300053              BE       ADDFILE
      189   04 0004B    44B0003E              ANLZ,R11 ADDVOL2           ADDRESS OF SNS
      190   04 0004C    B128000B A            CW,R2    *R11,R4
      191   04 0004D    68300032              BE       ADDVOL6           GOT ONE
      192   04 0004E    6440004C              BDR,R4   %-2
      193   04 0004F    32400001 A            LW,R4    R1
      194   04 00050    B138000B A            CW,R3    *R11,R4
      195   04 00051    68300032              BE       ADDVOL6
      196   04 00052    64400050              BDR,R4   %-2
      197                            *
      198   04 00053    22500001 A   ADDFILE  LI,R5    1
      199   04 00054    321E0001 X            LW,R1    FILE+1,R7         TEST FOR FILE ARGUMENTS
      200   04 00055    68300074              BE       ADDOPL
      201   04 00056    351E0000 X            STW,R1   CMBX,R7           SET CMBX OF FILE NAME
      202                            *
      203   04 00057    2210000C A   ADDFILE1 LI,R1    12
      204   04 00058    6AB00000 X            BAL,R11  GETARG            GET ARGUMENT
      205   04 00059    20A00000 A            AI,R10   0                 RD OR WR ACCOUNTS
      206   04 0005A    69300086              BNE      ADDOPL5           YES
      207                            *
      208   04 0005B    322E0000 X            LW,R2    NCHAR,R7          TEST FOR NULL ARGUMENT
      209   04 0005C    68300069              BE       ADDFILE2
      210   04 0005D    330E0000 X            MTW,0    COPYSTDF,R7       IS THIS A STD FILE
      211   04 0005E    68200067              BLE      ADDFILEC          NO
      212   04 0005F    21900001 A            CI,R9    1                 OUPUT
      213   04 00060    69400067              BANZ     ADDFILEC          YES
      214   04 00061    21500002 A            CI,R5    2                 IS ARG AN ACCOUNT
      215   04 00062    69200067              BG       ADDFILEC          NO, NOT FILE EITHER
      216   04 00063    350E0001 X            STW,R0   FILE+1,R7         CLEAR IF FILE
      217   04 00064    69100067              BL       ADDFILEC          AND SET IF ACCOUNT
      218   04 00065    32100000 X            LW,R1    LTSTCMBX
      219   04 00066    351E0001 X            STW,R1   FILE+1,R7
      220   04 00067    32100005 A   ADDFILEC LW,R1    R5
      221   04 00068    6AB00263              BAL,R11  STORVLP           ADD FILE PARAMETER TO OPEN FPT
      222   04 00069    20500001 A   ADDFILE2 AI,R5    1
      223   04 0006A    315E0000 X            CW,R5    FILE,R7
      224   04 0006B    68200057              BLE      ADDFILE1
      225   04 0006C    21900001 A            CI,R9    1
      226   04 0006D    69400074              BANZ     ADDOPL            OUTPUT
      227   04 0006E    21500002 A            CI,R5    2                 WAS ACCT SPECIFIED
      228   04 0006F    69200074              BG       ADDOPL            YES
      229   04 00070    32100003 X            LW,R1    SFARG+3           WAS ACCT PRESENT ON COPYSTD
      230   04 00071    68300074              BE       ADDOPL            NO
      231   04 00072    351E0000 X            STW,R1   CMBX,R7           POINT TO ACCT FOR COPYSTD
      232   04 00073    68000057              B        ADDFILE1
      233                            *
      234   04 00074    21900001 A   ADDOPL   CI,R9    1
      235   04 00075    6840009A              BAZ      ADDOPL3           INPUT
      236   04 00076    22A00001 N            LI,R10   RDTBL+1           ADR OF RD ACCT TABLE
      237   04 00077    32800000 X            LW,R8    RDTBL             ARE RD ACCTS PRESENT
      238   04 00078    69300082              BNE      ADDOPL4           YES
      239   04 00079    22A00001 N   ADDOPL8  LI,R10   WRTBL+1           ADR OF WR ACCT TABLE
      240   04 0007A    32800000 X            LW,R8    WRTBL             ARE WR ACCTS PRESENT
      241   04 0007B    69300082              BNE      ADDOPL4           YES
      242   04 0007C    22A00001 N   ADDOPLA  LI,R10   EXTBL+1           ADR OF EX ACCT TABLE.
      243   04 0007D    32800000 X            LW,R8    EXTBL             ARE WR ACCTS PRESENT.
      244   04 0007E    69300082              BNE      ADDOPL4           YES
      245   04 0007F    32800000 X   ADDOPLB  LW,R8    UNTBL             ARE UN ACCTS PRESENT
      246   04 00080    6830009A              BE       ADDOPL3           VEHICLE ACCT NOT PRESENT.
      247   04 00081    22A00001 N            LI,R10   UNTBL+1
      248   04 00082    B220000A A   ADDOPL4  LW,R2    *R10              GET CMBX VALUE OF 1ST ACCT
      249   04 00083    352E0000 X            STW,R2   CMBX,R7
      250   04 00084    22500002 A            LI,R5    2                 SET TO INDICATE ACCT
      251   04 00085    68000057              B        ADDFILE1
      252   04 00086    322E0000 X   ADDOPL5  LW,R2    NCHAR,R7          NULL FIELD
      253   04 00087    68300093              BE       ADDOPL7           YES
      254   04 00088    22100006 A            LI,R1    6                 CODE FOR READ ACCT
      255   04 00089    21A00001 N            CI,R10   RDTBL+1           ARE WE ADDING READ ACCTS
      256   04 0008A    68300092              BE       ST%VLP            YES.
      257   04 0008B    22100007 A            LI,R1    7                 CODE FOR WR ACCT.
      258   04 0008C    21A00001 N            CI,R10   WRTBL+1           WRITE ACCTS
      259   04 0008D    68300092              BE       ST%VLP            YES
      260   04 0008E    22100008 A            LI,R1    8                 CODE FOR EXECUTE ACCT.
      261   04 0008F    21A00001 N            CI,R10   EXTBL+1           ARE WE ADDING EXECUTE ACCOUNTS.
      262   04 00090    68300092              BE       ST%VLP            YES
      263   04 00091    22100009 A            LI,R1    9                 CODE FOR VEHICLE ACCT.
      264   04 00092    6AB00263     ST%VLP   BAL,R11  STORVLP           ADD RD OR WR ACCT TO OPEN FPT
      265   04 00093    64800057     ADDOPL7  BDR,R8   ADDFILE1          LOOP ON NUMBER OF ACCTS
      266   04 00094    21A00001 N            CI,R10   RDTBL+1           READ ACCT
      267   04 00095    68300079              BE       ADDOPL8           YES - GO TEST FOR WR
      268   04 00096    21A00001 N            CI,R10   WRTBL+1           WRITE ACCOUNT?
      269   04 00097    6830007C              BE       ADDOPLA           YES--GO TEST FOR EX
      270   04 00098    21A00001 N            CI,R10   EXTBL+1           EXECUTE ACCOUNT
      271   04 00099    6830007F              BE       ADDOPLB           YES--GO TEST FOR UNDER
      272   04 0009A    221000FF A   ADDOPL3  LI,R1    X'FF'
      273   04 0009B    4B1E0001 X            AND,R1   MODE+1,R7         GET 7T/9T/ASCI/EBCD
      274   04 0009C    322E0000 X            LW,R2    IN%ARG,R7
      275   04 0009D    21900001 A            CI,R9    1                 CHECK FOR INPUT.
      276   04 0009E    684000A0              BAZ      %+2               INPUT.
      277   04 0009F    322E0000 X            LW,R2    OUT%ARG,R7        LOAD OUTPUT DEVICE.
      278   04 000A0    20200000 A            AI,R2    0                 IF NONZERO, USE IT
      279   04 000A1    693000AA              BNE      ADDOPL1
      280   04 000A2    322E000E X            LW,R2    FPTOPLB,R7        IF SCRATCH TAPE, RES IS HERE
      281   04 000A3    693000A7              BNE      KGC0%4            SO DONT DEFAULT IT
      282   04 000A4    21600006 A            CI,R6    6                 IF FT, DEFAULT 9T
      283   04 000A5    693000A7              BNE      %+2
        1*  04 000A6    2220D4E3 A            LI,R2    'MT'              DEFAULT TO MT (NOT 9T)
      285   04 000A7    21100003 A   KGC0%4   CI,R1    3                 IF NOT 7T, DEFAULT TO 9T
      286   04 000A8    693000AA              BNE      ADDOPL1
      287   04 000A9    2220F7E3 A            LI,R2    '7T'              BPM TYPE CODE IS X'8900'
      288   04 000AA    352E000E X   ADDOPL1  STW,R2   FPTOPLB,R7        PUT OP LABEL IN FPT
        1*  04 000AB    201FFFF0 A            AI,R1    -16               ASCII/EBCDIC
      290   04 000AC    691000AE              BL       %+2               NOPE
      291   04 000AD    351E0014 X            STW,R1   FPTCCF,R7         PUT AWAY
      292   04 000AE    22102000 A            LI,R1    X'2000'           CHECK FOR DENSITY OPTION
      293   04 000AF    311E0001 X            CW,R1    MODE+1,R7
      294   04 000B0    684000B3              BAZ      NXT%PAR1          YES.
      295   04 000B1    32100004 X            LW,R1    ANSBLK+4          DENSITY VALUE
      296   04 000B2    351E0013 X            STW,R1   FPTDEN,R7         PUT IN FPT IF 800
      297   04 000B3    721C02B1     NXT%PAR1 LB,R1    DVASN,R6          GET ASN
      298   04 000B4    21100003 A            CI,R1    3                 ONLY IF DEVICE SET DEVICE PART
      299   04 000B5    693000B7              BNE      %+2               OF FPT
      300   04 000B6    20101000 A            AI,R1    X'1000'
      301   04 000B7    471E0001 X            STS,R1   OPNFPT+1,R7       SET FILE OR LABEL EXISTANCE FLAG
      302   04 000B8    321E0000 X            LW,R1    MODE,R7
      303   04 000B9    21100800 A            CI,R1    X'800'            WAS JOB SPECIFIED
      304   04 000BA    684000BC              BAZ      %+2
      305   04 000BB    331E000A X            MTW,1    FPTDISP,R7        YES
      306                            *
      307   04 000BC    21900001 A            CI,R9    1                 CREATING INPUT DCB
      308   04 000BD    694000E9              BANZ     OUTPUT            NO
      309   04 000BE    22100000 06           LI,R1    M:EI
      310   04 000BF    04100000 09           CAL1,1   RESETFPT          RESET M:EI DCB
      311   04 000C0    471E0000 X            STS,R1   OPNFPT,R7
      312   04 000C1    321E0000 X            LW,R1    OPNFPT,R7         SAVE FIRST WORD FOR OPNNXT
      313   04 000C2    35100000 X            STW,R1   OPNXFPT
        1*  04 000C3    22101000 A            LI,R1    X'1000'           CHECK FOR CAT OPTION (NOT FMT)
      315   04 000C4    311E0001 X            CW,R1    MODE+1,R7
      316   04 000C5    684000C8              BAZ      %+3
      317   04 000C6    32100003 X            LW,R1    ANSBLK+3
      318   04 000C7    351E0011 X            STW,R1   FPTCNCT,R7        SET CONCAT/SPARE LEST ANS
        1*  04 000C8    22100010 A            LI,R1    16                DON'T CLOBBER HEADING (DATE)
      320   04 000C9    25100018 A            SLS,R1   24                LABEL BUFFER
      321   04 000CA    35100000 X            STW,R1   TLABEL
      322   04 000CB    35000001 X            STW,R0   TLABEL+1          RESET RANDOM ID
      323   04 000CC    21900002 A            CI,R9    2                 FPARAM OPTION INPUT DCB
      324   04 000CD    684000D2              BAZ      INXTF             NO
      325   04 000CE    22100000 N            LI,R1    FPARAM            STORE FPARAM ADDRESS IN FPT
      326   04 000CF    30100007 A            AW,R1    R7
      327   04 000D0    351E000B X            STW,R1   FPTFPRM,R7
      328   04 000D1    350E0000 X            STW,R0   FPARAM,R7
      329                            *
      330   04 000D2    21900404 A   INXTF    CI,R9    X'404'            CHECK NEXT FILE OPTION
      331   04 000D3    684000E5              BAZ      OPEN5             NO
      332   04 000D4    33000000 X            MTW,0    COPYPHY
      333   04 000D5    693000D8              BNE      %+3               LABELED TAPE IN PHYS ORDER
      334   04 000D6    21600004 A            CI,R6    4
      335   04 000D7    683000E3              BE       INXTF2            LABELED TAPE IN SORT ORDER
      336   04 000D8    52200000 X            LH,R2    FROMFILE          RANGE START SPECIFIED
      337   04 000D9    2120FEFF A            CI,R2    X'FEFF'
      338   04 000DA    684000E3              BAZ      INXTF2            NO, OR SAME AS NONE.
      339   04 000DB    02200040 A            LCI      4                 MOVE FROM FIELD TO ARG BUFFER
      340   04 000DC    2A100000 X            LM,R1    FROMFILE
      341   04 000DD    2B1E0000 X            STM,R1   ARGBUFF,R7
      342   04 000DE    2A100004 X            LM,R1    FROMFILE+4
      343   04 000DF    2B1E0004 X            STM,R1   ARGBUFF+4,R7
      344   04 000E0    22100001 A            LI,R1    1                 INDICATE FILE NAME
      345   04 000E1    6AB00263              BAL,R11  STORVLP           PUT IN VLP
      346   04 000E2    680000E5              B        OPEN5
      347   04 000E3    22100400 A   INXTF2   LI,R1    X'400'            SET NXTF FLAG IN FPT
      348   04 000E4    471E0001 X            STS,R1   OPNFPT+1,R7
      349                            *
      350   04 000E5    21900008 A   OPEN5    CI,R9    8                 INOUT MODE
      351   04 000E6    684001F3              BAZ      OPEN1             NO
      352   04 000E7    333E0009 X            MTW,3    FPTMODE,R7        SET  INOUT
      353   04 000E8    680001F3              B        OPEN1
      354                            *
      355   04 000E9    22100000 07  OUTPUT   LI,R1    M:EO
      356   04 000EA    04100000 09           CAL1,1   RESETFPT          RESET M:EO DCB
      357   04 000EB    22100000 07           LI,R1    M:EO
      358   04 000EC    471E0000 X            STS,R1   OPNFPT,R7
      359   04 000ED    321E0000 X            LW,R1    MODE,R7
      360   04 000EE    21100100 A            CI,R1    X'100'            WAS EXPIRE SPECIFIED
      361   04 000EF    684000F5              BAZ      OUTPUTC           NO
      362   04 000F0    02200030 A            LCI      3
      363   04 000F1    2A1E0000 X            LM,R1    EXPIRE,R7
      364   04 000F2    2B1E0000 X            STM,R1   ARGBUFF,R7        PUT DATE IN ARGUMENT BUFFER
      365   04 000F3    22100005 A            LI,R1    5
      366   04 000F4    6AB00263              BAL,R11  STORVLP           PUT ENTRY IN VLP
      367   04 000F5    22300003 A   OUTPUTC  LI,R3    3                 IF DEVICE, NONE OF THIS MATTERS
      368   04 000F6    453E0001 X            CS,R3    OPNFPT+1,R7
      369   04 000F7    6830012F              BE       OUTPUT8
      370   04 000F8    7230000C 06           LB,R3    M:EI+12
      371   04 000F9    353E000D X            STW,R3   FPTKMAX,R7        SET MAX KEY LENGTH
      372   04 000FA    223000F0 A            LI,R3    X'F0'             SET OUTPUT ORGANIZATION TO THAT
      373   04 000FB    4B300005 06           AND,R3   M:EI+5            OF INPUT ORGANIZATION
      374   04 000FC    2530007C A            SLS,R3   -4
      375   04 000FD    21600007 A            CI,R6    7
      376   04 000FE    6830012E              BE       OUTPUTK           ANS TAPE
      377                            *
      378   04 000FF    32400014 06           LW,R4    M:EI+20           GET RSTORE FROM INPUT DCB
      379   04 00100    32200001 X            LW,R2    TLABEL+1          UNLESS IS RANDOM ON LT
      380   04 00101    312002AA              CW,R2    RFILE+1
      381   04 00102    69300105              BNE      %+3
      382   04 00103    22300003 A            LI,R3    3                 RANDOM LT FILE, GET RSTORE
      383   04 00104    32400002 X            LW,R4    TLABEL+2          FROM LABEL
      384   04 00105    21300003 A            CI,R3    3                 TEST IF RANDOM
      385   04 00106    6930010F              BNE      OUTPUT1           NO
      386   04 00107    21600004 A            CI,R6    4                 GOING TO LABELED TAPE
      387   04 00108    6930010E              BNE      OUTPUT9           NO
      388   04 00109    02200020 A            LCI      2
      389   04 0010A    2A2002A9              LM,R2    RFILE
      390   04 0010B    2B200000 X            STM,R2   TLABEL            PUT RANDOM ID IN TLABEL
      391   04 0010C    35400002 X            STW,R4   TLABEL+2          ENTER RLIM IN LABEL BUFFER
      392   04 0010D    6800012F              B        OUTPUT8           LEAVE ORG CONSEC
      393   04 0010E    354E0012 X   OUTPUT9  STW,R4   FPTRSTR,R7        SET RSTORE FOR RANDOM
      394   04 0010F    350E000C X   OUTPUT1  STW,R0   FPTTLBL,R7        NO LABEL IF NOT RANDOM
      395   04 00110    21600005 A            CI,R6    5                 IS OUTPUT TO A DEVICE
      396   04 00111    6920012F              BG       OUTPUT8           YES
      397   04 00112    22100003 A            LI,R1    3
      398   04 00113    311E0005 X            CW,R1    TOARG+5,R7        IS INPUT COMPRESSED
      399   04 00114    6830012F              BE       OUTPUT8           YES
      400   04 00115    311E0000 X            CW,R1    CODE,R7           IS OUTPUT COMPRESSED
      401   04 00116    6830012F              BE       OUTPUT8           YES, MAKE CONSEC
      402   04 00117    2210000A A            LI,R1    X'A'              IS INPUT ANS
      403   04 00118    45100000 06           CS,R1    M:EI
      404   04 00119    6830012F              BE       OUTPUT8           YES, OUTPUT IS CONSEC
      405   04 0011A    353E0007 X            STW,R3   FPTORG,R7         NO, SET OUTORG TO INORG
      406   04 0011B    6800012F              B        OUTPUT8
      407   04 0011C    2530006F A   OUTPUTF  SLS,R3   -17               MOVE VALUE TO REG
      408   04 0011D    205FFFFF A            AI,R5    -1                TO NEXT PARAMETER
      409   04 0011E    2210000A A            LI,R1    X'A'              IS INPUT DCB ANS
      410   04 0011F    45100000 06           CS,R1    M:EI              IS VALUE REAL
      411   04 00120    69300123              BNE      %+3
      412   04 00121    21600007 A            CI,R6    7
      413   04 00122    68300124              BE       %+2               YES
      414   04 00123    22300000 A            LI,R3    0                 NO
      415   04 00124    22100001 A            LI,R1    1                 IS THERE A USER SPECIFICATION
      416   04 00125    251A0009 A            SLS,R1   9,R5
      417   04 00126    311E0001 X            CW,R1    MODE+1,R7
      418   04 00127    68400129              BAZ      %+2
      419   04 00128    B23A0002 A            LW,R3    *R2,R5            GET IT
      420   04 00129    20300000 A            AI,R3    0                 DO WE HAVE ONE NOW
      421   04 0012A    E930000B A            BNE      *R11
      422   04 0012B    02200080 A            LCI      8
      423   04 0012C    21F00001 A            CI,R15   1                 CHECK FOR FMT(F)
      424   04 0012D    E800000B A            B        *R11
      425   04 0012E    350E000C X   OUTPUTK  STW,R0   FPTTLBL,R7        NO TLABEL FOR ANS OUT
      426   04 0012F    22A00151     OUTPUT8  LI,R10   OUTPUTB           RETURN FROM BLKFIX
      427   04 00130    22200000 N            LI,R2    ANSBLK            ADDR OF SPECIFICATIONS
      428   04 00131    21300000 A   BLKFIX   CI,R3    0                 SET 0 TO 1
      429   04 00132    69300134              BNE      %+2
      430   04 00133    22300001 A            LI,R3    1
      431   04 00134    22500003 A            LI,R5    3                 R3 HAS INPUT FMT
      432   04 00135    6AB0011D              BAL,R11  OUTPUTF+1         GET PROPER VALUE
      433   04 00136    6880013A              BCR,8    KGC1%4
      434   04 00137    21600007 A            CI,R6    7                 IS THIS ANS
      435   04 00138    6930013A              BNE      %+2
      436   04 00139    22300004 A            LI,R3    4                 YES, SET U FMT FOR DEFAULT
      437   04 0013A    3530000F A   KGC1%4   STW,R3   R15               SAVE IN D4
      438   04 0013B    32300012 06           LW,R3    M:EI+18           INPUT RECSIZE
      439   04 0013C    21F00001 A            CI,R15   1                 IF NOT F FMT
      440   04 0013D    6830013F              BE       %+2               DONT FIX THE RECORD SIZE
      441   04 0013E    22300000 A            LI,R3    0
      442   04 0013F    6AB0011C              BAL,R11  OUTPUTF
      443   04 00140    69300142              BNE      %+2               IF THERE OR FMT NOT F
      444   04 00141    22300080 A            LI,R3    128               DONT SET REC
      445   04 00142    35300004 A            STW,R3   R4
      446   04 00143    32300003 06           LW,R3    M:EI+3            INPUT BLKSIZE
      447   04 00144    6AB0011C              BAL,R11  OUTPUTF
      448   04 00145    68800147              BCR,8    %+2               IF NOT THERE,
      449   04 00146    22300800 A            LI,R3    2048              SET DEFAULT BLKSIZE
      450   04 00147    22500003 A            LI,R5    3                 SCRUB FMT TO NECESSARY PART
      451   04 00148    4B50000F A            AND,R5   R15               WHAT'S IN 15???? - KGC 5/14/85
      452   04 00149    22200000 A            LI,R2    0                 SET = CCS
      453   04 0014A    21F00001 A            CI,R15   1                 CHECK BLK/REC IF FMT(F)
      454   04 0014B    6930014F              BNE      BLKFIXX
      455   04 0014C    36200004 A            DW,R2    R4
      456   04 0014D    22100036 A            LI,R1    54                ERROR CODE IF REMAINDER
      457   04 0014E    37300004 A            MW,R3    R4                RESTORE VALUE
      458   04 0014F    20200000 A   BLKFIXX  AI,R2    0
      459   04 00150    E800000A A            B        *R10
      460   04 00151    69300261     OUTPUTB  BNE      ERRTN             BAD BLK/REC FOR FMT(F)
      461   04 00152    21600007 A            CI,R6    7                 IF NOT ANS, NO FPT VALUES
      462   04 00153    69300157              BNE      KGC2%4
      463   04 00154    353E0006 X            STW,R3   FPTBLK,R7         SET BLKSIZE IN OPNFPT
      464   04 00155    354E0012 X            STW,R4   FPTLRCL,R7        RECSIZE
      465   04 00156    35FE0007 X            STW,R15  FPTORG,R7         AND FMT
      466   04 00157    02200030 A   KGC2%4   LCI      3
      467   04 00158    2B300000 X            STM,R3   OUTBLK            SET VALUES FOR RDWRT
      468   04 00159    321E0000 X            LW,R1    SEQUENCE,R7       TEST IF LN OR NLN SPECIFIED
      469   04 0015A    21100001 A            CI,R1    1
      470   04 0015B    68200163              BLE      OUTPUT2           NO
      471   04 0015C    69400163              BANZ     OUTPUT2           NO
      472   04 0015D    2510007F A            SLS,R1   -1
      473   04 0015E    351E0007 X            STW,R1   FPTORG,R7         SET ORGANIZATION
      474   04 0015F    21100002 A            CI,R1    2                 TEST IF LN
      475   04 00160    69300163              BNE      OUTPUT2           NO
      476   04 00161    22100003 A            LI,R1    3
      477   04 00162    351E000D X            STW,R1   FPTKMAX,R7        SET EDIT FILE KEYMAX
      478   04 00163    21900004 A   OUTPUT2  CI,R9    4
      479   04 00164    6940017B              BANZ     OUTPUT6           NXTF BIT SET
      480   04 00165    22200002 A            LI,R2    2                 IF FILE OR LABEL OUT,
      481   04 00166    2230000F A            LI,R3    X'F'              AND IN, CHECK FOR FPARAM
      482   04 00167    452E0001 X            CS,R2    OPNFPT+1,R7       MOVE
      483   04 00168    691001C2              BL       OPEN2             DEVICE OR ANS, NO MOVE
      484   04 00169    45200000 06           CS,R2    M:EI
      485   04 0016A    691001C2              BL       OPEN2             DITTO
      486   04 0016B    321E0003 X            LW,R1    MODE+3,R7         TEST IF FA OR NFA SPECIFIED
      487   04 0016C    2110FF00 A            CI,R1    X'FF00'
      488   04 0016D    68400171              BAZ      OUTPUT4           NEITHER
      489   04 0016E    21100300 A            CI,R1    X'0300'
      490   04 0016F    6940017A              BANZ     OUTPUT3           FA
      491   04 00170    680001C2              B        OPEN2             NFA
      492   04 00171    22200016 N   OUTPUT4  LI,R2    VLPOPEN+1
      493   04 00172    30200007 A            AW,R2    R7                ADR OF FILE NAME IN VLP
      494   04 00173    72300017 06           LB,R3    M:EI+23
      495   04 00174    F1300002 A            CB,R3    *R2               COMPARE M:EI AND M:EO FILE NAMES
      496   04 00175    693001C2              BNE      OPEN2
      497   04 00176    72160017 06           LB,R1    M:EI+23,R3
      498   04 00177    F1160002 A            CB,R1    *R2,R3
      499   04 00178    693001C2              BNE      OPEN2
      500   04 00179    64300176              BDR,R3   %-3
      501   04 0017A    20900002 A   OUTPUT3  AI,R9    2                 SAME - SET FPARAM BIT
      502   04 0017B    21900002 A   OUTPUT6  CI,R9    2                 TRANSFER VLP TO OUTPUT DCB
      503   04 0017C    684001C2              BAZ      OPEN2             NO
1* AP * 22:33 JUN 16,'85    PCLBD - BUILD DCB                                                     PAGE    6
A     504                                     PAGE
      505   04 0017D    22100001 A            LI,R1    1                 SET BYTE DISP. REG'S FOR VLP TRANS.
      506   04 0017E    22200002 A            LI,R2    2
      507   04 0017F    22300003 A            LI,R3    3
      508   04 00180    22A00000 N            LI,R10   FPARAM            GET FPARAM ADDRESS
      509   04 00181    30A00007 A            AW,R10   R7
      510   04 00182    22B0000F A            LI,R11   15                IF NOT FILE/LABEL INPUT
      511   04 00183    4BB00000 06           AND,R11  M:EI              GET NAME FROM DCB(ANS)
      512   04 00184    21B00003 A            CI,R11   3                 OR NOT AT ALL(DEVICE)
      513   04 00185    683001C2              BE       OPEN2
      514   04 00186    69100188              BL       %+2
      515   04 00187    22A00016 06           LI,R10   M:EI+22
      516   04 00188    B300000A A            MTW,0    *R10              IF NO FPARAMS,
      517   04 00189    683001C2              BE       OPEN2             DONT MOVE THEM
      518                            *
      519   04 0018A    22B00015 N   TRANFP1  LI,R11   VLPOPEN           VARIABLE LIST PARAMETER ADDRESS
      520   04 0018B    30B00007 A            AW,R11   R7
      521   04 0018C    F304000A A            MTB,0    *R10,R2           IS THERE ANYTHING HERE
      522   04 0018D    683001BC              BE       TRANFP5           NO, SKIP IT
      523   04 0018E    F240000A A            LB,R4    *R10              GET NEXT FPARAM CODE
      524   04 0018F    2140000B A            CI,R4    11                IF SYNON, SET INOUT
      525   04 00190    69300192              BNE      %+2
      526   04 00191    334E0009 X            MTW,4    FPTMODE,R7        SEE OPEN4 FOR EXCUSE FOR MTW,4
      527   04 00192    21400007 A            CI,R4    7
      528   04 00193    683001BC              BE       TRANFP5           DONT TRANSFER SN
      529   04 00194    21400004 A            CI,R4    4                 NAME-ACCT-PASS-EXPIRE
      530   04 00195    683001BC              BE       TRANFP5           DON'T MOVE EXPIRE
      531   04 00196    6920019A              BG       KGC3%4            NOT NAME/ACCT/PSWD
      532   04 00197    21900004 A            CI,R9    4                 NXTF OPTION GIVEN
      533   04 00198    684001BC              BAZ      TRANFP5           NO-DONT CHANGE N.A.P FROM COMMAND
      534   04 00199    680001A4              B        TRANFP2
      535   04 0019A    326E0003 X   KGC3%4   LW,R6    MODE+3,R7         CHECK FOR NFA OPTION
      536   04 0019B    21600400 A            CI,R6    X'400'
      537   04 0019C    694001BC              BANZ     TRANFP5           YUP, INGORE ALL BUT N.A.P
      538   04 0019D    21400009 A            CI,R4    9                 IF FILE ATTRS, PUT IN FPT
      539   04 0019E    693001A4              BNE      TRANFP2
      540   04 0019F    B254000A A            LW,R5    *R10,R2           GET LRDL0,SLIDES,SPARE
      541   04 001A0    25500078 A            SLS,R5   -8
      542   04 001A1    355E0010 X            STW,R5   FPTNEWX,R7
      543   04 001A2    EB54000A A            INT,R5   *R10,R2
      544   04 001A3    355E0011 X            STW,R5   FPTSPARE,R7
      545                            *
      546   04 001A4    F140000B A   TRANFP2  CB,R4    *R11              FPARAM CODE = FPT CODE
      547   04 001A5    683001B2              BE       TRANFP3           YES
      548   04 001A6    F262000B A            LB,R6    *R11,R1           GET LEI OF FPT CODE
      549   04 001A7    F502000B A            STB,R0   *R11,R1
      550   04 001A8    F256000B A            LB,R5    *R11,R3           INCREMENT TO NEXT FPT ENTRY
      551   04 001A9    30B00005 A            AW,R11   R5
      552   04 001AA    20B00001 A            AI,R11   1
      553   04 001AB    21600000 A            CI,R6    0                 TEST FOR LAST ENTRY
      554   04 001AC    683001A4              BE       TRANFP2           NOT LAST ENTRY
      555                            *
      556   04 001AD    B240000A A            LW,R4    *R10              TRANSFER NEW CODE WORD TO END OF FPT
      557   04 001AE    B540000B A            STW,R4   *R11
      558   04 001AF    F512000B A            STB,R1   *R11,R1           SET LEI
      559   04 001B0    F246000A A            LB,R4    *R10,R3
      560   04 001B1    680001B9              B        TRANFP4           GO TRANSFER PARAMETER
      561                            *
      562   04 001B2    F244000B A   TRANFP3  LB,R4    *R11,R2           IS FPT ENTRY EMPTY
      563   04 001B3    693001BC              BNE      TRANFP5           NO-DONT TRANSFER PARAMETER
      564   04 001B4    F244000A A            LB,R4    *R10,R2           TRANSFER NO. OF SIGNIFICANT WORDS
      565   04 001B5    F146000B A            CB,R4    *R11,R3           ROOM FOR THIS ENTRY
      566   04 001B6    682001B8              BLE      %+2               YES
      567   04 001B7    F246000B A            LB,R4    *R11,R3           NO-TRUNCATE DOWN TO WHATS AVAILABLE
      568   04 001B8    F544000B A            STB,R4   *R11,R2
      569   04 001B9    B258000A A   TRANFP4  LW,R5    *R10,R4           TRANSFER PARAMETER
      570   04 001BA    B558000B A            STW,R5   *R11,R4
      571   04 001BB    644001B9              BDR,R4   %-2
      572                            *
      573   04 001BC    F242000A A   TRANFP5  LB,R4    *R10,R1
      574   04 001BD    693001C2              BNE      OPEN2             END OF FPARM LIST
      575   04 001BE    F246000A A            LB,R4    *R10,R3           INCREMENT TO NEXT FPARAM ENTRY
      576   04 001BF    30A00004 A            AW,R10   R4
      577   04 001C0    20A00001 A            AI,R10   1
      578   04 001C1    6800018A              B        TRANFP1
1* AP * 22:33 JUN 16,'85    PCLBD - BUILD DCB                                                     PAGE    7
A     579                                     PAGE
      580   04 001C2    221001E1     OPEN2    LI,R1    TOVERABN          SET ABN FOR TO/INTO
      581   04 001C3    351E0004 X            STW,R1   OPNFPT+4,R7
      582   04 001C4    2230000E A            LI,R3    X'E'              IF NOT TO FILE, SKIP ON TEST
      583   04 001C5    313E0001 X            CW,R3    OPNFPT+1,R7
      584   04 001C6    694001E5              BANZ     OPEN4
      585   04 001C7    31300000 06           CW,R3    M:EI
      586   04 001C8    694001CA              BANZ     %+2               IF FILE IN, CLOSE TO PERMIT
      587   04 001C9    6AB00000 X            BAL,R11  CLOSEI            REPLACEMENT
      588   04 001CA    323E0000 X            LW,R3    TOVER,R7          CHECK TO/OVER/INTO
      589   04 001CB    21300012 A            CI,R3    18
      590   04 001CC    693001CF              BNE      %+3               NO INTO
      591   04 001CD    22100004 A            LI,R1    4
      592   04 001CE    351E0009 X            STW,R1   FPTMODE,R7        INTO-TRY INOUT OPEN
      593   04 001CF    21900004 A            CI,R9    4                 COPYALL
      594   04 001D0    694001E5              BANZ     OPEN4             YES-SKIP TO-OVER TESTING
      595   04 001D1    2130000C A            CI,R3    12                IS OVER SPECIFIED
      596   04 001D2    683001E5              BE       OPEN4             YES, O.K.
      597   04 001D3    321E0000 X            LW,R1    COPYSTDF,R7       COPYSTD
      598   04 001D4    693001E5              BNE      OPEN4             YES - OK
      599   04 001D5    041E0000 X            CAL1,1   OPNFPT,R7         OPEN IN
      600   04 001D6    461E0001 X            XW,R1    OPNFPT+1,R7       NOW OPEN FOR REAL
      601   04 001D7    041E0000 X            CAL1,1   OPNFPT,R7
      602   04 001D8    21300012 A            CI,R3    18                IF INTO AND FILE IS THERE,
      603   04 001D9    683001DD              BE       KGC4%4            SPACE TO END
      604   04 001DA    6AB00000 X            BAL,R11  CLOSEO            FOUND IT IS THERE-CLOSE IT
      605   04 001DB    22100024 A            LI,R1    36
      606   04 001DC    68000261              B        ERRTN             GIVE UP
      607   04 001DD    041001DF     KGC4%4   CAL1,1   SPEOF
      608   04 001DE    68000224              B        OPEN3
      609                            *
      610   04 001DF    1C000000 07  SPEOF    GEN,8,24 28,M:EO
      611   04 001E0    00000000 A            DATA     0
      612                            *
      613   04 001E1    351E0001 X   TOVERABN STW,R1   OPNFPT+1,R7       RESTORE FLAGS WORD
      614   04 001E2    7210000A A            LB,R1    R10
      615   04 001E3    21100003 A            CI,R1    3                 FILE NOT PRESENT
      616   04 001E4    6930024C              BNE      IOERR1            NO-SOME OTHER PROBLEM
      617   04 001E5    2210024C     OPEN4    LI,R1    IOERR1
      618   04 001E6    351E0004 X            STW,R1   OPNFPT+4,R7       RESTORE ABNORMAL ADDRESS
      619   04 001E7    22300002 A            LI,R3    2                 PROLLY OUTPUT MODE
      620   04 001E8    321E0000 X            LW,R1    DEVICE,R7         DEVICE TYPE
      621   04 001E9    21100003 A            CI,R1    3                 OUTPUT TO RAD
      622   04 001EA    683001ED              BE       %+3               YES
      623   04 001EB    21100005 A            CI,R1    5                 OUTPUT TO DP
      624   04 001EC    693001F2              BNE      OPEN6             NO- SET OUTPUT MODE
      625   04 001ED    21900004 A            CI,R9    4                 COPYALL TO RAD
      626   04 001EE    684001F2              BAZ      OPEN6             NO-OPEN-OUT-MODE
      627   04 001EF    33FE0009 X            MTW,-1   FPTMODE,R7        ADDING A SYNONYM
      628   04 001F0    683001F2              BE       OPEN6             NO, OPEN OUTPUT
      629   04 001F1    680001F3              B        OPEN1             OPEN DCB FOR SYNONYM
      630   04 001F2    353E0009 X   OPEN6    STW,R3   FPTMODE,R7
1* AP * 22:33 JUN 16,'85    PCLBD - BUILD DCB                                                     PAGE    8
A     631                                     PAGE
      632   04 001F3    22100015 N   OPEN1    LI,R1    VLPOPEN           FIND END OF VLPS
      633   04 001F4    30100007 A            AW,R1    R7
      634   04 001F5    222100FF A   VLPSRCH  LI,R2    X'100FF'
      635   04 001F6    4B220000 A            AND,R2   0,R1
      636   04 001F7    30100002 A            AW,R1    R2
      637   04 001F8    20100001 A            AI,R1    1
      638   04 001F9    21210000 A            CI,R2    X'10000'
      639   04 001FA    684001F5              BAZ      VLPSRCH
      640   04 001FB    201F0000 A            AI,R1    -X'10000'
      641   04 001FC    32200004 09           LW,R2    Y03               MAKE SPACE,BITS FPT
      642   04 001FD    35220000 A            STW,R2   0,R1
      643   04 001FE    323002CC              LW,R3    =X'360030'        BIN,PK IS DEFAULT
      644   04 001FF    322E0000 X            LW,R2    CODE,R7           CODE=4 IF FBCD(H)
      645   04 00200    21200004 A            CI,R2    4
      646   04 00201    69300203              BNE      %+2
      647   04 00202    20300004 A            AI,R3    4                 SET ITS BIT
      648   04 00203    224000FF A            LI,R4    X'FF'             GET PK/UPK
      649   04 00204    4B4E0002 X            AND,R4   MODE+2,R7
      650   04 00205    6930020B              BNE      NOBINBCD          BIN REQUIRED FOR PK/UPK
      651   04 00206    22200000 N            LI,R2    MODE+MODE+MODE+MODE GET BIN/BCD
      652   04 00207    F2240007 A            LB,R2    *R7,R2
      653   04 00208    202FFFFF A            AI,R2    -1                IS IT BCD
      654   04 00209    6930020B              BNE      %+2
      655   04 0020A    203FFFE0 A            AI,R3    -X'20'            YES, RESET BIN BIT
      656   04 0020B    204FFFFA A   NOBINBCD AI,R4    -6                IS IT UNPACKED
      657   04 0020C    6930020E              BNE      %+2               NO
      658   04 0020D    203FFFF0 A            AI,R3    -X'10'            YES, RESET PACKED BIT
      659   04 0020E    2220000C N            LI,R2    MODE+MODE+MODE+MODE+12   GET SSP/DSP/VFC
      660   04 0020F    F2240007 A            LB,R2    *R7,R2
      661   04 00210    69300214              BNE      KGC5%4
      662   04 00211    21600009 A            CI,R6    9                 IF LP, FORCE SSP
      663   04 00212    69300215              BNE      %+3               ZERO FOR OTHERS
      664   04 00213    22200007 A            LI,R2    7
      665   04 00214    202FFFFA A   KGC5%4   AI,R2    -6                SSP=7,DSP=8,VFC=9
      666   04 00215    35220001 A            STW,R2   1,R1              SET SPACING
      667   04 00216    202FFFFD A            AI,R2    -3                UNLESS VFC
      668   04 00217    6930021A              BNE      %+3
      669   04 00218    35220001 A            STW,R2   1,R1              RESET SPACING
      670   04 00219    20300002 A            AI,R3    2                 SET VFC
      671   04 0021A    35320002 A            STW,R3   2,R1
        1*        00000001                 DO          H02
        2*                                 ELSE
        3*                       *S*          LI,R3    X'200'            FORCE EXCLUSIVE OPEN
        4*                       *S*          STS,R3   FPTMODE,R7
        5*                                 FIN
      674   04 0021B    041E0000 X   OPEN7    CAL1,1   OPNFPT,R7         DO ADJUST DCB CAL
        1*        00000001                 DO          H02
        2*  04 0021C    04100000 02           M:DEVICE M:EO,(DATA,0)
            02 00000    23000000 07
            02 00001    80000000 A
            02 00002    00000000 A
        3*  04 0021D    04100003 02           M:DEVICE M:EO,(SPACE,0)
            02 00003    25000000 07
            02 00004    80000000 A
            02 00005    00000000 A
        4*                                 FIN
      675   04 0021E    21D00001 A            CI,R13   1                 IF NOT EXECUTING COMMAND
      676   04 0021F    69200224              BG       OPEN3             DONT OPEN
      677   04 00220    2210F0FF A            LI,R1    X'F0FF'           KEEP ONLY NXTF BIT
      678   04 00221    4B1E0001 X            AND,R1   OPNFPT+1,R7       SAVE WHAT IT WAS
      679   04 00222    470E0001 X            STS,R0   OPNFPT+1,R7       AND THEN OPEN CAL
      680   04 00223    041E0000 X            CAL1,1   OPNFPT,R7
      681   04 00224    21900001 A   OPEN3    CI,R9    1
      682   04 00225    68400246              BAZ      RETURN            INPUT
      683   04 00226    321E0000 X            LW,R1    DEVICE,R7
      684   04 00227    21100004 A            CI,R1    4                 IS DEVICE LT
      685   04 00228    6830022D              BE       OPENB
      686   04 00229    21100007 A            CI,R1    7                 OR AT
      687   04 0022A    6830022D              BE       OPENB
      688   04 0022B    21100006 A            CI,R1    6                 OR FT
      689   04 0022C    69300246              BNE      RETURN            NO
      690   04 0022D    330E0001 X   OPENB    MTW,0    DEVICE+1,R7       WAS SN SPECIFIED
      691   04 0022E    69300246              BNE      RETURN            YES
      692   04 0022F    22100001 A            LI,R1    1
      693   04 00230    4B1E0000 X            AND,R1   DEVICE,R7
      694   04 00231    33020000 X            MTW,0    SCRATCH,R1
      695   04 00232    69300246              BNE      RETURN            NO
      696   04 00233    3220010E 07           LW,R2    M:EOSN
      697   04 00234    35220000 X            STW,R2   SCRATCH,R1
      698   04 00235    323002CD              LW,R3    ='    '
      699   04 00236    32BE000E X            LW,R11   FPTOPLB,R7        GET RESOURCE TYPE
      700   04 00237    35B20002 X            STW,R11  SCRATCH+2,R1
      701   04 00238    20100000 A            AI,R1    0
      702   04 00239    6830023B              BE       %+2               NO SIXBACK HERE.
      703   04 0023A    6AB00000 X            BAL,R11  SIXBACK
      704   04 0023B    203FD4C0 A            AI,R3    X'1500'-'  '
      705   04 0023C    33000000 X            MTW,0    J:JIT
      706   04 0023D    68100246              BGE      RETURN            BATCH MODE - SKIP MESSAGE
      707   04 0023E    02200020 A            LCI      2
      708   04 0023F    2B2E0006 X            STM,R2   PRTBUF+6,R7
      709   04 00240    02200060 A            LCI      6
      710   04 00241    2A1002AB              LM,R1    SERNO
      711   04 00242    2B1E0000 X            STM,R1   PRTBUF,R7         MOVE MESSAGE TO PRINT BUFFER
      712   04 00243    22100000 N            LI,R1    PRTBUF
      713   04 00244    30100007 A            AW,R1    R7                ADDRESS OF PRINT BUFFER
      714   04 00245    04100000 05           CAL1,1   SNFPT             PRINT MESSAGE WITH SER NO
1* AP * 22:33 JUN 16,'85    PCLBD - BUILD DCB                                                     PAGE    9
A       1*                                    PAGE
      716   05 00000                 PLSECT   CSECT    1
      717   05 00000    11000000 N   SNFPT    GEN,8,24 X'11',M:UC
      718   05 00001    34000010 A            DATA     X'34000010'
      719   05 00002    80000001 A            PZE      *R1
      720   05 00003    0000001E A            DATA     30                LENGTH
      721   05 00004    00000001 A            DATA     1                 BTD
      722   05 00005                          USECT    BLDCB
      723   04 00246    02200070 A   RETURN   LCI      7                 RESTORE REGISTERS
      724   04 00247    8A500007 A            PLM,R5   *R7
      725   04 00248    E800000B A            B        *R11
      726                            *
      727   04 00249    B2100007 A   IOERR2   LW,R1    *R7
      728   04 0024A    35A3FFFF A            STW,R10  -1,R1             PUT ERROR ABNORMAL CODE IN
      729   04 0024B    68000246              B        RETURN            RETURNED R10
      730                            *
      731   04 0024C    52B0000A A   IOERR1   LH,R11   R10               ERRORS
      732   04 0024D    21B05700 A            CI,R11   X'5700'           TRY COPYALL RANDOMS DC AND DP
      733   04 0024E    69300258              BNE      IOERR3
      734   04 0024F    22500004 A            LI,R5    4                 IS IT COPYALL
      735   04 00250    4B500009 A            AND,R5   R9
      736   04 00251    375E0012 X            MW,R5    FPTRSTR,R7        AND RANDOM
      737   04 00252    68300258              BE       IOERR3            NO.
      738   04 00253    330E000E X            MTW,0    FPTOPLB,R7        HAVE WE TRIED OUR BEST
      739   04 00254    68300249              BE       IOERR2            YES
      740   04 00255    350E000E X            STW,R0   FPTOPLB,R7
      741   04 00256    471E0001 X            STS,R1   OPNFPT+1,R7       RESTORE FLAGS
      742   04 00257    6800021B              B        OPEN7
      743   04 00258    52100000 X   IOERR3   LH,R1    IOABORTS
      744   04 00259    51B20000 X            CH,R11   IOABORTS,R1
      745   04 0025A    6930025C              BNE      %+2
      746   04 0025B    22D00003 A            LI,R13   3
      747   04 0025C    64100259              BDR,R1   %-3
      748   04 0025D    330E0000 X            MTW,0    COPYSTDF,R7       IF COPYING MANY FILES,
      749   04 0025E    69100249              BL       IOERR2            RETURN ERROR IN R10 ONLY
      750   04 0025F    21900004 A            CI,R9    4                 WAS RANGE SPEC PRESENT
      751   04 00260    69400249              BANZ     IOERR2
      752   04 00261    6AB00000 X   ERRTN    BAL,R11  ERROR
      753   04 00262    68000249              B        IOERR2
1* AP * 22:33 JUN 16,'85    PCLBD - BUILD DCB                                                     PAGE   10
A     754                                     PAGE
      755   04 00263    02200020 A   STORVLP  LCI      2                 SAVE REGS
      756   04 00264    8B500007 A            PSM,R5   *R7
      757   04 00265    222FFFFD A            LI,R2    -3                HANDY BYTE INDEXES
      758   04 00266    22300003 A            LI,R3    3
      759   04 00267    22400000 A            LI,R4    0                 INITIALIZE FOR LOOP
      760   04 00268    22600015 N            LI,R6    VLPOPEN
      761   04 00269    30600007 A            AW,R6    R7
      762   04 0026A    525202A4              LH,R5    SVLP9,R1          GET CODE/SIZE
      763   04 0026B    30600004 A   SVLP1    AW,R6    R4
      764   04 0026C    F1500006 A            CB,R5    *R6               IS THIS IT
      765   04 0026D    68300277              BE       SVLP4
      766   04 0026E    F2460006 A            LB,R4    *R6,R3            SIZE OF THIS ONE
      767   04 0026F    20600001 A            AI,R6    1
      768   04 00270    F3040006 A            MTB,0    *R6,R2            IS IT LAST
      769   04 00271    6830026B              BE       SVLP1             NO
      770   04 00272    F5040006 A            STB,R0   *R6,R2            YES, EXTEND
      771   04 00273    30600004 A            AW,R6    R4                GET TO END
      772   04 00274    22210000 A            LI,R2    X'10000'          SET FLAG
      773   04 00275    75500002 A            STB,R5   R2                AND CODE
      774   04 00276    352C0000 A            STW,R2   0,R6
      775   04 00277    324C0000 A   SVLP4    LW,R4    0,R6
      776   04 00278    21410000 A            CI,R4    X'10000'          ONLY ADD TO THE LAST ONE
      777   04 00279    6940027C              BANZ     %+3               UNLESS THERE ARE NO ACTIVE WORDS
      778   04 0027A    2140FF00 A            CI,R4    X'FF00'           AS IN FILENAME
      779   04 0027B    694002A0              BANZ     SVLP8
      780   04 0027C    4B50027A              AND,R5   %-2               SCRUB TO SIZE BYTE
      781   04 0027D    30400005 A            AW,R4    R5                INCREMENT ACTIVE ENTRIES
      782   04 0027E    22300002 A            LI,R3    2
      783   04 0027F    F2360006 A            LB,R3    *R6,R3            COMPUTE WHERE TO PUT IT
      784   04 00280    30300006 A            AW,R3    R6
      785   04 00281    20300001 A            AI,R3    1
      786   04 00282    38300007 A            SW,R3    R7                WILL IT FIT
      787   04 00283    213000F8 N            CI,R3    248+OPNFPT        MAX START
      788   04 00284    681002A0              BGE      SVLP8             NO
      789   04 00285    30300007 A            AW,R3    R7
      790   04 00286    464C0000 A            XW,R4    0,R6
      791   04 00287    25500078 A            SLS,R5   -8                INCR TOTAL ALSO IF NOT FILE
      792   04 00288    21500008 A            CI,R5    8
      793   04 00289    6830028B              BE       %+2
      794   04 0028A    665C0000 A            AWM,R5   0,R6
      795   04 0028B    22200000 N            LI,R2    ARGBUFF           SOURCE ADDR
      796   04 0028C    30200007 A            AW,R2    R7
      797   04 0028D    25200102 A            SLD,R2   2
      798   04 0028E    25500002 A            SLS,R5   2
      799   04 0028F    75500003 A            STB,R5   R3
      800   04 00290    21500008 A            CI,R5    8                 IF ACCT OR SNS, NO TEXTC
      801   04 00291    69200297              BG       SVLP7             AND MAYBE *FILE
      802   04 00292    20200001 A            AI,R2    1
      803   04 00293    61200000 A   SVLP6    MBS,R2   0
      804   04 00294    02200020 A            LCI      2
      805   04 00295    8A500007 A            PLM,R5   *R7
      806   04 00296    E800000B A            B        *R11
      807                            *
      808   04 00297    324E0000 X   SVLP7    LW,R4    ARGBUFF,R7        CHECK FOR *N
      809   04 00298    25400170 A            SLD,R4   -16
        1*        00000001                 DO          H02
        2*  04 00299    2140024B A            CI,R4    X'024B'
        3*                                 ELSE
        4*                       *S*          CI,R4    X'025C'
        5*                                 FIN
      811   04 0029A    69300293              BNE      SVLP6             NOPE
      812   04 0029B    32400000 X            LW,R4    J:JIT             YUP, GET SYSID
      813   04 0029C    25400168 A            SLD,R4   -24
      814   04 0029D    73300005 A            MTB,3    R5
      815   04 0029E    355E0000 X            STW,R5   ARGBUFF,R7
      816   04 0029F    68000293              B        SVLP6
      817   04 002A0    22100028 A   SVLP8    LI,R1    40
      818   04 002A1    02200020 A            LCI      2
      819   04 002A2    8A500007 A            PLM,R5   *R7
      820   04 002A3    68000000 X            B        ERROR
      821                            *                 LENGTH,VLPNO
      822   04 002A4    0000     A   SVLP9    DATA,2   0                 FILLER
      823   04 002A4 2  0801     A            DATA,2   X'0801'           FILE NAME
      824   04 002A5    0202     A            DATA,2   X'0202'           ACCOUNT
      825   04 002A5 2  0203     A            DATA,2   X'0203'           PASSWORD
      826   04 002A6    0107     A            DATA,2   X'0107'           SERIAL#S
      827   04 002A6 2  0204     A            DATA,2   X'0204'           EXPIRE
      828   04 002A7    0205     A            DATA,2   X'0205'           READ
      829   04 002A7 2  0206     A            DATA,2   X'0206'           WRITE
      830   04 002A8    0214     A            DATA,2   X'0214'           EXECUTE
      831   04 002A8 2  0315     A            DATA,2   X'0315'           VEHICLE
      832                            *
      833   04 002A9    0C000000 A   RFILE    DATA     X'0C000000'       TAPE HEADER FOR RANDOM FILE
      834   04 002AA    D9C6C9D3 A            TEXT     'RFIL'
      835                            *                      E           A          BCD          BIN
      836         00000032           MAXSN    EQU      50                MAX NUMBER OF SERIAL NUMBERS
      837                            *
      838   04 002AB    40D6E4E3 A   SERNO    TEXT     ' OUTPUT SERIAL NUMBER = '
            04 002AC    D7E4E340 A
            04 002AD    E2C5D9C9 A
            04 002AE    C1D340D5 A
            04 002AF    E4D4C2C5 A
            04 002B0    D9407E40 A
      839                            *                  CRPRDC   LTDPFTAT   MELPCPPP
      840   04 002B1    00030301 A   DVASN    DATA     X'30301',X'2010305',X'3030303'
            04 002B2    02010305 A
            04 002B3    03030303 A
      841                            *
      842                                     BOUND    4
      843   04 002B4    14000000 A   IOPNFPT  DATA     X'14000000',X'E000'  ADJUST
            04 002B5    0000E000 A
      844   04 002B6    F77DDC00 A            DATA     X'F77DDC00'
      845   04 002B7    0000024C              DATA     IOERR1            ERROR ADDRESS
      846   04 002B8    0000024C              DATA     IOERR1            ABNORMAL ADDRESS
      847         00000000           FPTD     CNAME
      848                                     PROC
      849                            LF       EQU      %-IOPNFPT+OPNFPT
      850                                     DATA     AF
      851                                     PEND
      852   04 002B9    00000000 A            DATA     0                 BUFFER 0 FOR RDWRT TO KNOW ITS WORK
      853   04 002BA    00000078 A   FPTBLK   FPTD     120               RECL OR BLKSIZE
      854   04 002BB    00000001 A   FPTORG   FPTD     1                 ORG OR FMT..DFLT CONSEC
      855   04 002BC    00000002 A            DATA     2                 ACCESS..DIRECT
      856   04 002BD    00000001 A   FPTMODE  FPTD     1                 MODE
      857   04 002BE    00000002 A   FPTDISP  FPTD     2                 SAVE
      858   04 002BF    00000000 A   FPTFPRM  FPTD     0                 FPARAM ADDRESS
      859   04 002C0    00000000 N   FPTTLBL  FPTD     TLABEL            TAPE LA
      860   04 002C1    00000003 A   FPTKMAX  FPTD     3                 MAX KEY LENGTH
      861   04 002C2    00000000 A   FPTOPLB  FPTD     0                 DEVICE TYPE
      862   04 002C3    00000001 A   FPTVOL   FPTD     1
      863   04 002C4    00000000 A   FPTNEWX  FPTD     0
      864   04 002C5    00000000 A   FPTCNCT  FPTD     0                 CONCAT
      865         00000011 S         FPTSPARE EQU      FPTCNCT
      866   04 002C6    00000000 A   FPTRSTR  FPTD     0                 RSTORE OR LRECL
      867         00000012 S         FPTLRCL  EQU      FPTRSTR
      868   04 002C7    00000000 A   FPTDEN   FPTD     0                 DENSITY
      869   04 002C8    00000000 A   FPTCCF   FPTD     0                 CODE CONVERSION
      870                            *
      871         00000015 S         VLPOPEN  EQU      %-IOPNFPT+OPNFPT  OPEN VLP POINTER
      872   04 002C9    01010008 A            DATA     X'1010008'        FILE NAME
      873   04 002CA    00100000 A            DATA     X'100000'
      874         00000017           OPENSIZE EQU      %-IOPNFPT
      875   06 00000                 M:EI     DSECT    1
      876   06 00000    60000003 A            GEN,8,16,8      96,0,3     SIZE,0,ASSIGNMENT
      877   06 00001    00020010 A            GEN,15,17 1,X'10'          FUN=IN,OP LABEL=EI
      878   06 00002    0A000000 A            DATA     X'0A000000'       10 RETRIES
      879   06 00003    00F00000 A            GEN,15,17 120,0            MAX RECORD SIZE
      880   06 00004    00000000 A            DATA     0
      881   06 00005    80000011 A            DATA     X'80000011'       SAVE,CONSECUTIVE,SEQUENTAIL
      882   06 00006    00000016              DATA     M:EI+22           VFP LIST PRINTER
      883   06 00007                          DO1      3
      884   06 00007    00000000 A            DATA     0
            06 00008    00000000 A
            06 00009    00000000 A
      885   06 0000A    00000066              DATA     KB                KEY BUFFER
      886   06 0000B                          DO1      11
      887   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
      888   06 00016    01000008 A            DATA     X'01000008'       FILE NAME
      889   06 00017                          DO1      8
      890   06 00017    40404040 A            TEXT     '    '
            06 00018    40404040 A
            06 00019    40404040 A
            06 0001A    40404040 A
            06 0001B    40404040 A
            06 0001C    40404040 A
            06 0001D    40404040 A
            06 0001E    40404040 A
      891   06 0001F    02000002 A            DATA     X'02000002'       ACCT. NUMBER
      892   06 00020                          DO1      2
      893   06 00020    40404040 A            TEXT     '    '
            06 00021    40404040 A
      894   06 00022    03000002 A            DATA     X'03000002'       PASS WORD
      895   06 00023                          DO1      2
      896   06 00023    40404040 A            TEXT     '    '
            06 00024    40404040 A
      897   06 00025    04000002 A            DATA     X'04000002'       EXPIRATION DATE
      898   06 00026                          DO1      2
      899   06 00026    40404040 A            TEXT     '    '
            06 00027    40404040 A
      900                            * FOLLOWING ENTRY IS USED BY TESTFILE TO RETURN PERTINENT INFORMATION
      901                            * FOR FILES ON A REVIEW COMMAND.
      902   06 00028    11000101 A            DATA     X'11000101'
      903   06 00029    00000000 A            DATA     0
      904   06 0002A    0B000008 A            DATA     X'0B000008'       SYNON
      905   06 0002B                          DO1      8
      906   06 0002B    40404040 A            TEXT     '    '
            06 0002C    40404040 A
            06 0002D    40404040 A
            06 0002E    40404040 A
            06 0002F    40404040 A
            06 00030    40404040 A
            06 00031    40404040 A
            06 00032    40404040 A
      907   06 00033    07010032 A            GEN,8,8,16 7,1,MAXSN       SN
      908   06 00034                 M:EISN   RES      MAXSN
      909         06 00066           KB       EQU      %
      910   06 00066                          DO1      8                 KEY BUFFER
      911   06 00066    40404040 A            TEXT     '    '
            06 00067    40404040 A
            06 00068    40404040 A
            06 00069    40404040 A
            06 0006A    40404040 A
            06 0006B    40404040 A
            06 0006C    40404040 A
            06 0006D    40404040 A
      912   07 00000                 M:EO     DSECT    1
      913   07 00000    60000003 A            GEN,8,16,8 96,0,3          SIZE,0,ASSIGNMENT
      914   07 00001    00040011 A            GEN,15,17  2,X'11'         FUN=OUT,OP LABEL=EO
      915   07 00002    0A000000 A            DATA     X'0A000000'       10 RETRIES
      916   07 00003    00F00000 A            GEN,15,17  120,0           MAX RECORD SIZE
      917   07 00004    00000000 A            DATA     0
      918   07 00005    80000011 A            DATA     X'80000011'       SAVE,CONSECUTIVE,SEQUENTAIL
      919   07 00006    00000016              DATA     M:EO+22           VFP LIST POINTER
      920   07 00007                          DO1      3
      921   07 00007    00000000 A            DATA     0
            07 00008    00000000 A
            07 00009    00000000 A
      922   07 0000A    00000140              DATA     KBO               KEY BUFFER
      923   07 0000B                          DO1      11
      924   07 0000B    00000000 A            DATA     0
            07 0000C    00000000 A
            07 0000D    00000000 A
            07 0000E    00000000 A
            07 0000F    00000000 A
            07 00010    00000000 A
            07 00011    00000000 A
            07 00012    00000000 A
            07 00013    00000000 A
            07 00014    00000000 A
            07 00015    00000000 A
      925   07 00016    01000008 A            DATA     X'01000008'       FILE NAME
      926   07 00017                          DO1      8
      927   07 00017    40404040 A            TEXT     '    '
            07 00018    40404040 A
            07 00019    40404040 A
            07 0001A    40404040 A
            07 0001B    40404040 A
            07 0001C    40404040 A
            07 0001D    40404040 A
            07 0001E    40404040 A
      928   07 0001F    02000002 A            DATA     X'02000002'       ACCT. NUMBER
      929   07 00020                          DO1      2
      930   07 00020    40404040 A            TEXT     '    '
            07 00021    40404040 A
      931   07 00022    03000002 A            DATA     X'03000002'       PASS WORD
      932   07 00023                          DO1      2
      933   07 00023    40404040 A            TEXT     '    '
            07 00024    40404040 A
      934   07 00025    04000002 A            DATA     X'04000002'       EXPIRATION DATE
      935   07 00026                          DO1      2
      936   07 00026    40404040 A            TEXT     '    '
            07 00027    40404040 A
      937   07 00028    05000036 A            DATA     X'5000036'        MAX 27 ACCTS
      938   07 00029                          RES      54
      939   07 0005F    06000036 A            DATA     X'6000036'
      940   07 00060                          RES      54
      941   07 00096    14000036 A            DATA     X'14000036'
      942   07 00097                          RES      54
      943   07 000CD    15000036 A            DATA     X'15000036'
      944   07 000CE                          RES      54
      945   07 00104    0B000008 A            DATA     X'0B000008'       SYNON
      946   07 00105                          DO1      8
      947   07 00105    40404040 A            TEXT     '    '
            07 00106    40404040 A
            07 00107    40404040 A
            07 00108    40404040 A
            07 00109    40404040 A
            07 0010A    40404040 A
            07 0010B    40404040 A
            07 0010C    40404040 A
      948   07 0010D    07010032 A            GEN,8,8,16 7,1,MAXSN       SN
      949   07 0010E                 M:EOSN   RES      MAXSN
      950   07 00140                 KBO      DO1      8                 KEY BUFFER
      951   07 00140    40404040 A            TEXT     '    '
            07 00141    40404040 A
            07 00142    40404040 A
            07 00143    40404040 A
            07 00144    40404040 A
            07 00145    40404040 A
            07 00146    40404040 A
            07 00147    40404040 A
      952   08 00000                 F:STD    DSECT    1
      953   08 00000    00000001 A            DATA     1                 FILE
      954   08 00001    00100000 A            GEN,15,17 8,0              OUTIN
      955   08 00002    0A000000 A            GEN,8,24 10,0              10 RETRIES
      956   08 00003    00000000 A            DATA     0,0
            08 00004    00000000 A
      957   08 00005    40000011 A            DATA     X'40000011'       REL,CONSEC,SEQUEN
      958   08 00006                          DO1      4                 NO VLPS
      959   08 00006    00000000 A            DATA     0
            08 00007    00000000 A
            08 00008    00000000 A
            08 00009    00000000 A
      960   08 0000A    00000016              DATA     KBS               KEY BUFFER
      961   08 0000B                          DO1      11
      962   08 0000B    00000000 A            DATA     0
            08 0000C    00000000 A
            08 0000D    00000000 A
            08 0000E    00000000 A
            08 0000F    00000000 A
            08 00010    00000000 A
            08 00011    00000000 A
            08 00012    00000000 A
            08 00013    00000000 A
            08 00014    00000000 A
            08 00015    00000000 A
      963         08 00016           KBS      EQU      %
      964   08 00016                          DO1      8                 KEY BUFFER
      965   08 00016    40404040 A            TEXT     '    '
            08 00017    40404040 A
            08 00018    40404040 A
            08 00019    40404040 A
            08 0001A    40404040 A
            08 0001B    40404040 A
            08 0001C    40404040 A
            08 0001D    40404040 A
      966   09 00000                 RESETFPT DSECT    1
      967   09 00000    94000001 A            GEN,8,24 X'94',R1
      968   09 00001    0000F005 A            DATA     X'F005'           RESETS ALL DEVICE PARAMS UNLESS ANS ALREADY
      969   09 00002    00000000 A            DATA     0
      970   09 00003    02000000 A            GEN,8,24 2,0
      971   09 00004    03000000 A   Y03      GEN,8,24 3,0
      972   09 00005    04000000 A            GEN,8,24 4,0
      973   09 00006    05000000 A            GEN,8,24 5,0
      974   09 00007    06000000 A            GEN,8,24 6,0
      975   09 00008    07000000 A            GEN,8,24 7,0
      976   09 00009    0B000000 A            GEN,8,24 11,0
      977   09 0000A    14000000 A            GEN,8,24 20,0
      978   09 0000B    15010000 A            GEN,8,8,16 21,1,0
      979   09 0000C    04000000 A            DATA     X'4000000'        OPEN RESETS ALL BUT LINES/PAGE
      980   09 0000D    00000000 A            DATA     0
      981   09 0000E                          USECT    BLDCB
      982                                     END
            04 002CB    00080000 A
            04 002CC    00360030 A
            04 002CD    40404040 A

  CONTROL SECTION SUMMARY: 01 00000   PT 0     02 00006   PT 0     03 00000   PT 1     04 002CE   PT 1
                           05 00005   PT 1     06 0006E   PT 1     07 00148   PT 1     08 0001E   PT 1
                           09 0000E   PT 1
1* AP * 22:33 JUN 16,'85    PCLBD - BUILD DCB                                                     PAGE   11
A *    SYMBOL VALUES
          ADDFILE/04 00053         ADDFILEC/04 00067        ADDFILE1/04 00057        ADDFILE2/04 00069
          ADDOPL/04 00074          ADDOPLA/04 0007C         ADDOPLB/04 0007F         ADDOPL1/04 000AA
          ADDOPL3/04 0009A         ADDOPL4/04 00082         ADDOPL5/04 00086         ADDOPL7/04 00093
          ADDOPL8/04 00079         ADDRN1/04 00027          ADDRN2/04 0003A          ADDRN3/04 00025
          ADDRN4/04 00038          ADDRN5/04 0001F          ADDVOL2/04 0003E         ADDVOL6/04 00032
          BLDCB-04 00000           BLKFIX-04 00131          BLKFIXX/04 0014F         DVASN/04 002B1
          ERRTN/04 00261           F:STD-08 00000           FPTBLK/00000006 S        FPTCCF/00000014 S
          FPTCNCT/00000011 S       FPTDEN/00000013 S        FPTDISP/0000000A S       FPTFPRM/0000000B S
          FPTKMAX/0000000D S       FPTLRCL/00000012 S       FPTMODE/00000009 S       FPTNEWX/00000010 S
          FPTOPLB-0000000E S       FPTORG/00000007 S        FPTRSTR/00000012 S       FPTSPARE/00000011 S
          FPTTLBL/0000000C S       FPTVOL/0000000F S        H02/00000001             INXTF/04 000D2
          INXTF2/04 000E3          IOERR1/04 0024C          IOERR2/04 00249          IOERR3/04 00258
          IOPNFPT/04 002B4         KB/06 00066              KBO/07 00140             KBS/08 00016
          KGC0%4/04 000A7          KGC1%4/04 0013A          KGC2%4/04 00157          KGC3%4/04 0019A
          KGC4%4/04 001DD          KGC5%4/04 00214          M:EI-06 00000            M:EISN-06 00034
          M:EO-07 00000            M:EOSN-07 0010E          MAXSN-00000032           NOBINBCD/04 0020B
          NXT%PAR1/04 000B3        OPENB/04 0022D           OPENSIZE/00000017        OPEN1/04 001F3
          OPEN2/04 001C2           OPEN3/04 00224           OPEN4/04 001E5           OPEN5/04 000E5
          OPEN6/04 001F2           OPEN7/04 0021B           OUTPUT/04 000E9          OUTPUTB/04 00151
          OUTPUTC/04 000F5         OUTPUTF/04 0011C         OUTPUTK/04 0012E         OUTPUT1/04 0010F
          OUTPUT2/04 00163         OUTPUT3/04 0017A         OUTPUT4/04 00171         OUTPUT6/04 0017B
          OUTPUT8/04 0012F         OUTPUT9/04 0010E         PLSECT/05 00000          RESETFPT-09 00000
          RETURN/04 00246          RFILE/04 002A9           R0/00000000              R1/00000001
          R10/0000000A             R11/0000000B             R13/0000000D             R15/0000000F
          R2/00000002              R3/00000003              R4/00000004              R5/00000005
          R6/00000006              R7/00000007              R8/00000008              R9/00000009
          SERNO/04 002AB           SNFPT/05 00000           SPEOF/04 001DF           ST%VLP/04 00092
          STORVLP/04 00263         SVLP1/04 0026B           SVLP4/04 00277           SVLP6/04 00293
          SVLP7/04 00297           SVLP8/04 002A0           SVLP9/04 002A4           TOVERABN/04 001E1
          TRANFP1/04 0018A         TRANFP2/04 001A4         TRANFP3/04 001B2         TRANFP4/04 001B9
          TRANFP5/04 001BC         VLPOPEN/00000015 S       VLPSRCH/04 001F5         Y03/09 00004
  *    EXTERNAL SYMBOLS
          ANSBLK-REF     ARGBUFF-REF    ARGBUF4-REF    BLDCB*DEF      BLKFIX-DEF     CLOSEI-REF
          CLOSEO-REF     CMBX-REF       CODE-REF       COPYPHY-REF    COPYSTDF-REF   DEVICE-REF
          ERROR-REF      EXPIRE-REF     EXTBL-REF      F:STD-DEF      FILE-REF       FPARAM-REF
          FPTOPLB-DEF    FROMFILE-REF   GETARG-REF     IN%ARG-REF     INSER-REF      IOABORTS-REF
          J:JIT-REF      LTSTCMBX-REF   M:EI-DEF       M:EISN-DEF     M:EO-DEF       M:EOSN-DEF
          M:UC-REF       MAXSN-DEF      MODE-REF       NCHAR-REF      OPNFPT-REF     OPNXFPT-REF
          OUT%ARG-REF    OUTBLK-REF     OUTSER-REF     PRTBUF-REF     RDTBL-REF      RESETFPT-DEF
          SCRATCH-REF    SEQUENCE-REF   SFARG-REF      SIXBACK-REF    SIXPACK-REF    TLABEL-REF
          TLBLSIZE-REF   TOARG-REF      TOVER-REF      UNTBL-REF      WRTBL-REF
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1* AP * 22:33 JUN 16,'85    PCLBD - BUILD DCB                                                     PAGE   12
A  ADDFILE          136/BE       143/BNE      151/BE       166/BLE      169/B        188/BE       198-LI
   ADDFILEC         211/BLE      213/BANZ     215/BG       217/BL       220-LW
   ADDFILE1         203-LI       224/BLE      232/B        251/B        265/BDR
   ADDFILE2         209/BE       222-AI
   ADDOPL           200/BE       226/BANZ     228/BG       230/BE       234-CI
   ADDOPLA          242-LI       269/BE
   ADDOPLB          245-LW       271/BE
   ADDOPL1          279/BNE      286/BNE      288-STW
   ADDOPL3          235/BAZ      246/BE       272-LI
   ADDOPL4          238/BNE      241/BNE      244/BNE      248-LW
   ADDOPL5          206/BNE      252-LW
   ADDOPL7          253/BE       265-BDR
   ADDOPL8          239-LI       267/BE
   ADDRN1           152-LI       172/BDR
   ADDRN2           155/BE       172-BDR
   ADDRN3           132/BNE      150-CI
   ADDRN4           149/B        157/BNE      170-LI
   ADDRN5           139/BE       141/BE       144-SLD      162/B
   ADDVOL2          176-LW       189/ANLZ
   ADDVOL6          164-STW      181/BNE      191/BE       195/BE
   AF               850/DATA
   ANSBLK            99/REF      295/LW       317/LW       427/LI
   ARGBUFF           93/REF      145/STW      146/STW      341/STM      343/STM      364/STM      795/LI
       808/LW       815/STW
   ARGBUF4           89/REF      160/AI
   BLDCB            104-DSECT    722/USECT    981/USECT
   BLKFIX           108/DEF      428-CI
   BLKFIXX          454/BNE      458-AI
   CLOSEI            91/REF      587/BAL
   CLOSEO            81/REF      604/BAL
   CMBX              77/REF      117/STW      201/STW      231/STW      249/STW
   CODE              83/REF      400/CW       644/LW
   COPYPHY           95/REF      332/MTW
   COPYSTDF          89/REF      210/MTW      597/LW       748/MTW
   DATA           674.2/M:DEVICE
   DEVICE            73/REF      116/LW       120/LW       131/LW       620/LW       683/LW       690/MTW
       693/AND
   DVASN            297/LB       840-DATA
   ERROR             71/REF      168/BAL      752/BAL      820/B
   ERRTN            460/BNE      606/B        752-BAL
   EXPIRE           101/REF      363/LM
   EXTBL             90/REF      242/LI       243/LW       261/CI       270/CI
   F:STD            952-DSECT
   FILE              74/REF      199/LW       216/STW      219/STW      223/CW
   FPARAM            80/REF      325/LI       328/STW      508/LI
   FPTBLK           463/STW      853-FPTD
   FPTCCF           291/STW      869-FPTD
   FPTCNCT          318/STW      864-FPTD     865/EQU
   FPTD             847-CNAME
   FPTDEN           296/STW      868-FPTD
   FPTDISP          305/MTW      857-FPTD
   FPTFPRM          327/STW      858-FPTD
   FPTKMAX          371/STW      477/STW      860-FPTD
   FPTLRCL          464/STW      867-EQU
   FPTMODE          352/MTW      526/MTW      592/STW      627/MTW      630/STW    671.4/STS      856-FPTD
   FPTNEWX          542/STW      863-FPTD
   FPTOPLB          107/DEF      148/STW      280/LW       288/STW      699/LW       738/MTW      740/STW
       861-FPTD
   FPTORG           405/STW      465/STW      473/STW      854-FPTD
   FPTRSTR          393/STW      736/MW       866-FPTD     867/EQU
   FPTSPARE         544/STW      865-EQU
   FPTTLBL          394/STW      425/STW      859-FPTD
   FPTVOL           164/STW      862-FPTD
   FROMFILE          94/REF      336/LH       340/LM       342/LM
   GETARG            70/REF      153/BAL      204/BAL
   H02              0.1-SET    671.1/DO     674.1/DO     809.1/DO
   IN%ARG           102/REF      274/LW
   INSER             98/REF      182/LW
   INXTF            324/BAZ      330-CI
   INXTF2           335/BE       338/BAZ      347-LI
   IOABORTS          72/REF      743/LH       744/CH
   IOERR1           616/BNE      617/LI       731-LH       845/DATA     846/DATA
   IOERR2           727-LW       739/BE       749/BL       751/BANZ     753/B
   IOERR3           733/BNE      737/BE       743-LH
   IOPNFPT          125/LW       843-DATA     849/EQU      871/EQU      874/EQU
   J:JIT             82/REF      121/LC       705/MTW      812/LW
   KB               885/DATA     909-EQU
   KBO              922/DATA     950-DO1
   KBS              960/DATA     963-EQU
   KGC0%4           281/BNE      285-CI
   KGC1%4           433/BCR      437-STW
   KGC2%4           462/BNE      466-LCI
   KGC3%4           531/BG       535-LW
   KGC4%4           603/BE       607-CAL1
   KGC5%4           661/BNE      665-AI
   LF               849-EQU
   LTSTCMBX          97/REF      218/LW
   M:EI             309/LI       370/LB       373/AND      378/LW       403/CS       410/CS       438/LW
       446/LW       484/CS       494/LB       497/LB       511/AND      515/LI       585/CW       875-DSECT
       882/DATA
   M:EISN           105/DEF      908-RES
   M:EO             355/LI       357/LI       610/GEN    674.2/M:DEVICE            674.3/M:DEVICE 912-DSECT
       919/DATA
   M:EOSN           106/DEF      696/LW       949-RES
   M:UC              81/REF      717/GEN
   MAXSN            109/DEF      836-EQU      907/GEN      908/RES      948/GEN      949/RES
   MODE              75/REF      180/AND      273/AND      293/CW       302/LW       315/CW       359/LW
       417/CW       486/LW       535/LW       649/AND      651/LI       651/LI       651/LI       651/LI
       659/LI       659/LI       659/LI       659/LI
   NCHAR             76/REF      154/LW       208/LW       252/LW
   NOBINBCD         650/BNE      656-AI
   NXT%PAR1         294/BAZ      297-LB
   OPENB            685/BE       687/BE       690-MTW
   OPENSIZE         122/LI       874-EQU
   OPEN1            351/BAZ      353/B        629/B        632-LI
   OPEN2            483/BL       485/BL       491/B        496/BNE      499/BNE      503/BAZ      513/BE
       517/BE       574/BNE      580-LI
   OPEN3            608/B        676/BG       681-CI
   OPEN4            584/BANZ     594/BANZ     596/BE       598/BNE      617-LI
   OPEN5            331/BAZ      346/B        350-CI
   OPEN6            624/BNE      626/BAZ      628/BE       630-STW
   OPEN7            674-CAL1     742/B
   OPNFPT            80/REF      124/AI       130/STS      301/STS      311/STS      312/LW       348/STS
       358/STS      368/CS       482/CS       581/STW      583/CW       599/CAL1     600/XW       601/CAL1
       613/STW      618/STW      674/CAL1     678/AND      679/STS      680/CAL1     741/STS      787/CI
       849/EQU      871/EQU
   OPNXFPT           88/REF      313/STW
   OUT%ARG          102/REF      277/LW
   OUTBLK            78/REF      467/STM
   OUTPUT           308/BANZ     355-LI
   OUTPUTB          426/LI       460-BNE
   OUTPUTC          361/BAZ      367-LI
   OUTPUTF          407-SLS      432/BAL      442/BAL      447/BAL
   OUTPUTK          376/BE       425-STW
   OUTPUT1          385/BNE      394-STW
   OUTPUT2          470/BLE      471/BANZ     475/BNE      478-CI
   OUTPUT3          490/BANZ     501-AI
   OUTPUT4          488/BAZ      492-LI
   OUTPUT6          479/BANZ     502-CI
   OUTPUT8          369/BE       392/B        396/BG       399/BE       401/BE       404/BE       406/B
       426-LI
   OUTPUT9          387/BNE      393-STW
   OUTSER            98/REF      183/LW
   PLSECT           716-CSECT
   PRTBUF            92/REF      708/STM      711/STM      712/LI
   RDTBL             90/REF      236/LI       237/LW       255/CI       266/CI
   RESETFPT         310/CAL1     356/CAL1     966-DSECT
   RETURN           682/BAZ      689/BNE      691/BNE      695/BNE      706/BGE      723-LCI      729/B
   RFILE            380/CW       389/LM       833-DATA
   R0                15-EQU      216/STW      322/STW      328/STW      394/STW      425/STW      549/STB
       679/STS      740/STW      770/STB
   R1                16-EQU      118/LW       122/LI       125/LW       126/STW      127/BDR      152/LI
       158/LW       159/SLS      160/AI       165/CW       167/LI       170/LI       173/LW       174/CI
       176/LW       178/LB       178/LB       187/LW       193/LW       199/LW       201/STW      203/LI
       218/LW       219/STW      220/LW       229/LW       231/STW      254/LI       257/LI       260/LI
       263/LI       272/LI       273/AND      285/CI     288.1/AI       291/STW      292/LI       293/CW
       295/LW       296/STW      297/LB       298/CI       300/AI       301/STS      302/LW       303/CI
       309/LI       311/STS      312/LW       313/STW    313.1/LI       315/CW       317/LW       318/STW
     318.1/LI       320/SLS      321/STW      325/LI       326/AW       327/STW      340/LM       341/STM
       342/LM       343/STM      344/LI       347/LI       348/STS      355/LI       357/LI       358/STS
       359/LW       360/CI       363/LM       364/STM      365/LI       397/LI       398/CW       400/CW
       402/LI       403/CS       409/LI       410/CS       415/LI       416/SLS      417/CW       456/LI
       468/LW       469/CI       472/SLS      473/STW      474/CI       476/LI       477/STW      486/LW
       487/CI       489/CI       497/LB       498/CB       505/LI       548/LB       549/STB      558/STB
       558/STB      573/LB       580/LI       581/STW      591/LI       592/STW      597/LW       600/XW
       605/LI       613/STW      614/LB       615/CI       617/LI       618/STW      620/LW       621/CI
       623/CI       632/LI       633/AW       635/AND      636/AW       637/AI       640/AI       642/STW
       666/STW      669/STW      671/STW      677/LI       678/AND      683/LW       684/CI       686/CI
       688/CI       692/LI       693/AND      694/MTW      697/STW      700/STW      701/AI       710/LM
       711/STM      712/LI       713/AW       719/PZE*     727/LW       728/STW      741/STS      743/LH
       744/CH       747/BDR      762/LH       817/LI       967/GEN
   R10               25-EQU      112/LI       205/AI       236/LI       239/LI       242/LI       247/LI
       248/LW*      255/CI       258/CI       261/CI       266/CI       268/CI       270/CI       426/LI
       459/B*       508/LI       509/AW       515/LI       516/MTW*     521/MTB*     523/LB*      540/LW*
       543/INT*     556/LW*      559/LB*      564/LB*      569/LW*      573/LB*      575/LB*      576/AW
       577/AI       614/LB       728/STW      731/LH
   R11               26-EQU      153/BAL      161/BAL      168/BAL      171/BAL      189/ANLZ     190/CW*
       194/CW*      204/BAL      221/BAL      264/BAL      345/BAL      366/BAL      421/BNE*     424/B*
       432/BAL      442/BAL      447/BAL      510/LI       511/AND      512/CI       519/LI       520/AW
       546/CB*      548/LB*      549/STB*     550/LB*      551/AW       552/AI       557/STW*     558/STB*
       562/LB*      565/CB*      567/LB*      568/STB*     570/STW*     587/BAL      604/BAL      699/LW
       700/STW      703/BAL      725/B*       731/LH       732/CI       744/CH       752/BAL      806/B*
   R13               27-EQU      675/CI       746/LI
   R15               28-EQU      111/LI       423/CI       437/STW      439/CI       451/AND      453/CI
       465/STW
   R2                17-EQU      123/LW       124/AI       126/STW*     129/LW       130/STS      135/LW
       144/SLD      145/STW      154/LW       177/LI       178/LB       182/LW       186/XW       190/CW
       208/LW       248/LW       249/STW      252/LW       274/LW       277/LW       278/AI       280/LW
     283.1/LI       287/LI       288/STW      336/LH       337/CI       379/LW       380/CW       389/LM
       390/STM      419/LW*      427/LI       452/LI       455/DW       458/AI       480/LI       482/CS
       484/CS       492/LI       493/AW       495/CB*      498/CB*      506/LI       521/MTB      540/LW
       543/INT      562/LB       564/LB       568/STB      634/LI       635/AND      636/AW       638/CI
       641/LW       642/STW      644/LW       645/CI       651/LI       652/LB       652/LB       653/AI
       659/LI       660/LB       660/LB       664/LI       665/AI       666/STW      667/AI       669/STW
       696/LW       697/STW      708/STM      757/LI       768/MTB      770/STB      772/LI       773/STB
       774/STW      795/LI       796/AW       797/SLD      802/AI       803/MBS
   R3                18-EQU      125/LW       126/STW      128/LW       146/STW      147/LW       148/STW
       183/LW       186/XW       194/CW       367/LI       368/CS       370/LB       371/STW      372/LI
       373/AND      374/SLS      382/LI       384/CI       405/STW      407/SLS      414/LI       419/LW
       420/AI       428/CI       430/LI       436/LI       437/STW      438/LW       441/LI       444/LI
       445/STW      446/LW       449/LI       457/MW       463/STW      467/STM      481/LI       494/LB
       495/CB       497/LB       498/CB       500/BDR      507/LI       550/LB       559/LB       565/CB
       567/LB       575/LB       582/LI       583/CW       585/CW       588/LW       589/CI       595/CI
       602/CI       619/LI       630/STW      643/LW       647/AI       655/AI       658/AI       670/AI
       671/STW    671.3/LI     671.4/STS      698/LW       704/AI       758/LI       766/LB       782/LI
       783/LB       783/LB       784/AW       785/AI       786/SW       787/CI       789/AW       799/STB
   R4                19-EQU      133/LI       134/AND      135/LW       147/LW       164/STW      165/CW
       179/LI       180/AND      187/LW       190/CW       192/BDR      193/LW       194/CW       196/BDR
       378/LW       383/LW       391/STW      393/STW      445/STW      455/DW       457/MW       464/STW
       523/LB       524/CI       527/CI       529/CI       538/CI       546/CB       556/LW       557/STW
       559/LB       562/LB       564/LB       565/CB       567/LB       568/STB      569/LW       570/STW
       571/BDR      573/LB       575/LB       576/AW       648/LI       649/AND      656/AI       759/LI
       763/AW       766/LB       771/AW       775/LW       776/CI       778/CI       781/AW       790/XW
       808/LW       809/SLD    809.2/CI     809.4/CI       812/LW       813/SLD
   R5                20-EQU      114/PSM      131/LW       137/LI       172/BDR      198/LI       214/CI
       220/LW       222/AI       223/CW       227/CI       250/LI       408/AI       416/SLS      419/LW
       431/LI       450/LI       451/AND      540/LW       541/SLS      542/STW      543/INT      544/STW
       550/LB       551/AW       569/LW       570/STW      724/PLM      734/LI       735/AND      736/MW
       756/PSM      762/LH       764/CB       773/STB      780/AND      781/AW       791/SLS      792/CI
       794/AWM      798/SLS      799/STB      800/CI       805/PLM      814/MTB      815/STW      819/PLM
   R6                21-EQU      116/LW       117/STW      120/LW       134/AND      138/CI       140/CI
       142/CI       150/CI       156/CI       282/CI       297/LB       334/CI       375/CI       386/CI
       395/CI       412/CI       434/CI       461/CI       535/LW       536/CI       548/LB       553/CI
       662/CI       760/LI       761/AW       763/AW       764/CB*      766/LB*      767/AI       768/MTB*
       770/STB*     771/AW       774/STW      775/LW       783/LB*      784/AW       790/XW       794/AWM
   R7                22-EQU      114/PSM*     116/LW       117/STW      120/LW       123/LW       130/STS
       131/LW       145/STW      146/STW      148/STW      154/LW       158/LW       164/STW      173/LW
       176/LW       180/AND      199/LW       201/STW      208/LW       210/MTW      216/STW      219/STW
       223/CW       231/STW      249/STW      252/LW       273/AND      274/LW       277/LW       280/LW
       288/STW      291/STW      293/CW       296/STW      301/STS      302/LW       305/MTW      311/STS
       312/LW       315/CW       318/STW      326/AW       327/STW      328/STW      341/STM      343/STM
       348/STS      352/MTW      358/STS      359/LW       363/LM       364/STM      368/CS       371/STW
       393/STW      394/STW      398/CW       400/CW       405/STW      417/CW       425/STW      463/STW
       464/STW      465/STW      468/LW       473/STW      477/STW      482/CS       486/LW       493/AW
       509/AW       520/AW       526/MTW      535/LW       542/STW      544/STW      581/STW      583/CW
       588/LW       592/STW      597/LW       599/CAL1     600/XW       601/CAL1     613/STW      618/STW
       620/LW       627/MTW      630/STW      633/AW       644/LW       649/AND      652/LB*      660/LB*
     671.4/STS      674/CAL1     678/AND      679/STS      680/CAL1     683/LW       690/MTW      693/AND
       699/LW       708/STM      711/STM      713/AW       724/PLM*     727/LW*      736/MW       738/MTW
       740/STW      741/STS      748/MTW      756/PSM*     761/AW       786/SW       789/AW       796/AW
       805/PLM*     808/LW       815/STW      819/PLM*
   R8                23-EQU      237/LW       240/LW       243/LW       245/LW       265/BDR
   R9                24-EQU      118/LW       129/LW       184/CI       212/CI       225/CI       234/CI
       275/CI       307/CI       323/CI       330/CI       350/CI       478/CI       501/AI       502/CI
       532/CI       593/CI       625/CI       681/CI       735/AND      750/CI
   SCRATCH           92/REF      135/LW       147/LW       694/MTW      697/STW      700/STW
   SEQUENCE          85/REF      468/LW
   SERNO            710/LM       838-TEXT
   SFARG             87/REF      229/LW
   SIXBACK           79/REF      703/BAL
   SIXPACK          100/REF      161/BAL
   SNFPT            714/CAL1     717-GEN
   SPACE          674.3/M:DEVICE
   SPEOF            607/CAL1     610-GEN
   ST%VLP           256/BE       259/BE       262/BE       264-BAL
   STORVLP          171/BAL      221/BAL      264/BAL      345/BAL      366/BAL      755-LCI
   SVLP1            763-AW       769/BE
   SVLP4            765/BE       775-LW
   SVLP6            803-MBS      811/BNE      816/B
   SVLP7            801/BG       808-LW
   SVLP8            779/BANZ     788/BGE      817-LI
   SVLP9            762/LH       822-DATA
   TLABEL            89/REF      321/STW      322/STW      379/LW       383/LW       390/STM      391/STW
       859/FPTD
   TLBLSIZE          84/REF
   TOARG             86/REF      398/CW
   TOVER             81/REF      588/LW
   TOVERABN         580/LI       613-STW
   TRANFP1          519-LI       578/B
   TRANFP2          534/B        539/BNE      546-CB       554/BE
   TRANFP3          547/BE       562-LB
   TRANFP4          560/B        569-LW
   TRANFP5          522/BE       528/BE       530/BE       533/BAZ      537/BANZ     563/BNE      573-LB
   UNTBL             90/REF      245/LW       247/LI
   VLPOPEN          173/LW       176/LW       492/LI       519/LI       632/LI       760/LI       871-EQU
   VLPSRCH          634-LI       639/BAZ
   WRTBL             90/REF      239/LI       240/LW       258/CI       268/CI
   Y03              641/LW       971-GEN
   %                127/BDR      175/BANZ     185/BAZ      192/BDR      196/BDR      276/BAZ      283/BNE
       290/BL       299/BNE      304/BAZ      316/BAZ      333/BNE      381/BNE      411/BNE      413/BE
       418/BAZ      429/BNE      435/BNE      440/BE       443/BNE      448/BCR      500/BDR      514/BL
       525/BNE      566/BLE      571/BDR      586/BANZ     590/BNE      622/BE       646/BNE      654/BNE
       657/BNE      663/BNE      668/BNE      702/BE       745/BNE      747/BDR      777/BANZ     780/AND
       793/BE       849/EQU      871/EQU      874/EQU      909/EQU      963/EQU
