BANNER TELEFILE,TELE-PCL,PCLUT.
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               UU         UU    TTTTTTTTTTTT
                  PPPPPPPPPPPPP    CCCCCCCCCCCCC    LL               UU         UU    TTTTTTTTTTTT
                  PP         PP    CC         CC    LL               UU         UU         TT
                  PP         PP    CC               LL               UU         UU         TT
                  PP         PP    CC               LL               UU         UU         TT
                  PPPPPPPPPPPPP    CC               LL               UU         UU         TT
                  PPPPPPPPPPPP     CC               LL               UU         UU         TT
                  PP               CC               LL               UU         UU         TT
                  PP               CC               LL               UU         UU         TT
                  PP               CC         CC    LL         LL    UU         UU         TT
                  PP               CCCCCCCCCCCCC    LLLLLLLLLLLLL    UUUUUUUUUUUUU         TT
                  PP                CCCCCCCCCCC     LLLLLLLLLLLLL     UUUUUUUUUUU          TT
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               UU         UU    TTTTTTTTTTTT
                  PPPPPPPPPPPPP    CCCCCCCCCCCCC    LL               UU         UU    TTTTTTTTTTTT
                  PP         PP    CC         CC    LL               UU         UU         TT
                  PP         PP    CC               LL               UU         UU         TT
                  PP         PP    CC               LL               UU         UU         TT
                  PPPPPPPPPPPPP    CC               LL               UU         UU         TT
                  PPPPPPPPPPPP     CC               LL               UU         UU         TT
                  PP               CC               LL               UU         UU         TT
                  PP               CC               LL               UU         UU         TT
                  PP               CC         CC    LL         LL    UU         UU         TT
                  PP               CCCCCCCCCCCCC    LLLLLLLLLLLLL    UUUUUUUUUUUUU         TT
                  PP                CCCCCCCCCCC     LLLLLLLLLLLLL     UUUUUUUUUUU          TT
D
ASSIGN M:CI,(FILE,CI:PCLUT,PCLH00CI),(IN),(SAVE)
ASSIGN M:SI,(FILE,SI:PCLUT,PCLH00SI),(IN),(SAVE)
ASSIGN M:BO,(FILE,BO:PCLUT,PCLH00BO),(OUT),(SAVE)
ASSIGN M:LL,(DEVICE,LO),(OUT)
1* AP * 19:33 JUN 03,'85                                                                          PAGE    1
A      1                    61.000  +61                                 PCL SIDR      32705
       2                    61.010           REF      TOVER
       3                   181.000  +181,181                            Pre-release H01
       4                   229.000  +229              PATCH HAD BUG-KGC PCL SIDR      32705
       5                   229.010           LI,R1    1                 PCL COPYALL WITH (PHY) OPTION
       6                   229.020           STW,R1   TOVER,R7          AFTER A COPY 'INTO' WHEN EITHER
       7                   229.030           LW,R1    M:EO              M:EI OR M:EO DIDN'T EXIST
       8                   588.000  +588,588                            Pre-release H01
       9                   780.000  +780,780                            Pre-release H01
      10                  1126.000  +1126,1126                          Pre-release H01
      11                  9000.000  +END                                Pre-release H01
1* AP * 19:33 JUN 03,'85    PCLUT - UTITILTY,DEV/FIL TRAN, FIX/GET/INT/TEXT ARG                   PAGE    2
A       1                                     TITLE    'PCLUT - UTITILTY,DEV/FIL TRAN, FIX/GET/INT/TEXT ARG'
        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*      UTILITY    MISC. ROUTINES FOR PCL
       15         00000000           R0       EQU      0
       16         00000001           R1       EQU      1
       17         00000002           R2       EQU      2
       18         00000003           R3       EQU      3
       19         00000004           R4       EQU      4
       20         00000005           R5       EQU      5
       21         00000006           R6       EQU      6
       22         00000007           R7       EQU      7
       23         00000008           R8       EQU      8
       24         00000009           R9       EQU      9
       25         0000000A           R10      EQU      10
       26         0000000B           R11      EQU      11
       27         0000000C           R12      EQU      12
       28         0000000D           R13      EQU      13
       29         0000000E           R14      EQU      14
       30         0000000F           R15      EQU      15
       31   04 00000                 UTIL     DSECT    1
       32   05 00000                 PLSECT   CSECT    1
       33                                     SYSTEM   SIG7
       34                            *
       35                                     DEF      BCD2BIN           XLATOR
       36                                     DEF      BIN2BCD           XLATOR
       37                                     DEF      CLOSEI            CLOSE DCB
       38                                     DEF      CLOSEO            CLOSE DCB
       39                                     DEF      HEX2BIN
       40                                     DEF      HEX2BCD           XLATOR
       41                                     DEF      MBS               DATA MOVER
       42                                     DEF      CLRARG            RESET ARGTBL
       43                                     DEF      REVARG            SWITCH ARGTBL/TOARG
       44                                     DEF      SIXBACK           XLATOR
       45                                     DEF      PRTNOF
       46                                     DEF      UNPRINT
       47                                     DEF      SIXPACK
       48                            *
       49                                     REF      M:EI,M:EO         DCBS
       50                                     REF      TOARG             OTHER ARGTBL
       51                                     REF      ARGTBL            PERIPHERAL DESCRIPTION
       52                                     REF      LCCHARS
       53                                     REF      LISTPOS           IF DOING NO UPSPACE STUFF, UPSPACE
       54                                     REF      LOSPACE           SEE LISTPOS
       55                                     REF      PRTBUF,J:JIT,M:UC,M:LO
       56                                     REF      BOG
       57                                     REF      M:EISN            EI SNS
       58                                     REF      INSER             INPUT CURRENT SERIAL#
       59                                     REF      M:EOSN            OUT SNS
       60                                     REF      OUTSER            CURRENT OUTPUT SERIAL#
       61                                     REF      CCTAB
        1*                                    REF      TOVER
1* AP * 19:33 JUN 03,'85    PCLUT - UTITILTY,DEV/FIL TRAN, FIX/GET/INT/TEXT ARG                   PAGE    3
A      62                                     PAGE
       63                            *
       64                            *
       65                            *P*      NAME:    BCD2BIN
       66                            *P*
       67                            *P*      ENTRY:   HEX2BIN
       68                            *P*
       69                            *P*      PURPOSE: TO CONVERT A STRING OF EBCDIC DECIMAL(BCD2BIN)  OR
       70                            *P*               HEXADECIMAL(HEX2BIN) CHARACTERS
       71                            *P*               TO A BINARY VALUE.
       72                            *P*
       73                            *DO*
       74                            *P*
       75                            *
       76                            * INPUT
       77                            *        R1       BYTE INDEX OF ARGUMENT (USER STORAGE)
       78                            *        R2       NO. OF CHARACTERS IN ARGUMENT
       79                            * OUTPUT
       80                            *        R1       BYTE INDEX OF TERMINATING CHARACTER (USER STORAGE)
       81                            *        R2       NO OF UNCONVERTED CHARACTERS REMAINING IN ARGUMENT
       82                            *        R3       BINARY INTEGER
       83                            *        R4       TYPE OF RETURN (0-NORMAL,1-NON-NUMERIC,2-OVERFLOW)
       84                            *
       85                            *FIN*
       86                            *
       87   05 00000                          USECT    UTIL
       88   04 00000    22400064 A   HEX2BIN  LI,R4    100               FLAG FOR SWITCH
       89   04 00001    22100001 N            LI,R1    ARGBUF4+1
       90   04 00002    322E0000 X            LW,R2    NCHAR,R7
       91   04 00003    68000005              B        %+2
       92   04 00004    224FFF9C A   BCD2BIN  LI,R4    -100
       93   04 00005    89500007 A            PSW,R5   *R7               SAVE R5
       94   04 00006    22500000 A            LI,R5    0
       95   04 00007    21200000 A            CI,R2    0                 TEST FOR NULL ARGUMENT
       96   04 00008    68300020              BE       BCD2BIN4-1
       97                            *
       98   04 00009    F2320007 A   BCD2BIN1 LB,R3    *R7,R1            GET NEXT CHARACTER
       99   04 0000A    19300026              CLM,R3   BCD2BIN5          TEST FOR NUMERIC (0-9)
      100   04 0000B    68900012              BCR,9    BCD2BIN2
      101   04 0000C    6540000F              BIR,R4   %+3
      102   04 0000D    19300028              CLM,R3   HEX2BIN4          CHECK FOR A-F
      103   04 0000E    68900011              BCR,9    HEX2BIN1
      104   04 0000F    22400001 A            LI,R4    1                 FLAG NON-NUMERIC CHARACTER RETURN
      105   04 00010    68000021              B        BCD2BIN4
      106                            *
      107   04 00011    20300039 A   HEX2BIN1 AI,R3    -'A'+10+'0'
      108   04 00012    203FFF10 A   BCD2BIN2 AI,R3    -'0'
      109   04 00013    65400018              BIR,R4   BCD2BIN6
      110   04 00014    70200005 A            LC       R5                CAN WE ADD ANOTHER CHAR
      111   04 00015    69F0001C              BCS,15   HEX2BIN2          NO
      112   04 00016    25500004 A            SLS,R5   4
      113   04 00017    6800001A              B        %+3
      114   04 00018    2350000A A   BCD2BIN6 MI,R5    10
      115   04 00019    6940001C              BDP      %+3
      116   04 0001A    30500003 A            AW,R5    R3                ADD CURRENT DIGIT
      117   04 0001B    6840001E              BNOV     BCD2BIN3
      118   04 0001C    22400002 A   HEX2BIN2 LI,R4    2                 FLAG OVERFLOW RETURN
      119   04 0001D    68000021              B        BCD2BIN4
      120                            *
      121   04 0001E    20100001 A   BCD2BIN3 AI,R1    1                 TEST FOR END OF ARGUMENT
      122   04 0001F    64200009              BDR,R2   BCD2BIN1
      123   04 00020    22400000 A            LI,R4    0                 FLAG NORMAL RETURN
      124                            *
      125   04 00021    32300005 A   BCD2BIN4 LW,R3    R5                STORE SUM
      126   04 00022    88500007 A            PLW,R5   *R7               RESTORE REGISTERS
      127   04 00023    21400001 A            CI,R4    1                 TEST RESULT FOR RETURN
      128   04 00024    E800000B A            B        *R11
      129                            *
      130                                     BOUND    8
      131   04 00026    000000F0 A   BCD2BIN5 DATA     X'F0',X'F9'
            04 00027    000000F9 A
      132   04 00028    000000C1 A   HEX2BIN4 DATA     'A','F'
            04 00029    000000C6 A
1* AP * 19:33 JUN 03,'85    PCLUT - UTITILTY,DEV/FIL TRAN, FIX/GET/INT/TEXT ARG                   PAGE    4
A     133                                     PAGE
      134                            *
      135                            *
      136                            *P*      NAME:    BIN2BCD
      137                            *P*
      138                            *P*      PURPOSE: TO CONVERT A BINARY VALUE TO AN EIGHT-CHARACTER
      139                            *P*               EBCDIC DECIMAL INTEGER WITH LEADING BLANKS.
      140                            *P*
      141                            *DO*
      142                            *P*
      143                            *
      144                            * INPUT
      145                            *        R1       POSITIVE BINARY INTEGER
      146                            * OUTPUT
      147                            *        R1       BINARY INTEGER / 100 000,000
      148                            *        R2,R3    BCD INTEGER (RIGHT JUSTIFIED, BLANK FILLED)
      149                            *        R4       NUMBER OF NON-BLANK CHARACTERS IN RESULT
      150                            *
      151                            *FIN*
      152                            *
      153   04 0002A    89500007 A   BIN2BCD  PSW,R5   *R7               SAVE REGISTERS
      154                            *
      155   04 0002B    3240000B 0C           LW,R4    ='    '           INITIALIZE
      156   04 0002C    3250000B 0C           LW,R5    ='    '
      157   04 0002D    6B200001 A            INT,R2   R1
      158   04 0002E    55200003 A            STH,R2   R3
      159   04 0002F    22100007 A            LI,R1    7
      160   04 00030    68000033              B        BIN2BCD2
      161                            *
      162   04 00031    21300000 A   BIN2BCD1 CI,R3    0                 TEST FOR END OF INTEGER
      163   04 00032    68300039              BE       BIN2BCD3
      164                            *
      165   04 00033    22200000 A   BIN2BCD2 LI,R2    0                 GET NEXT BCD INTEGER
      166   04 00034    3620000C 0C           DW,R2    =10
      167   04 00035    202000F0 A            AI,R2    X'F0'
      168                            *
      169   04 00036    75220004 A            STB,R2   R4,R1             STORE INTEGER
      170   04 00037    201FFFFF A            AI,R1    -1
      171   04 00038    68100031              BGE      BIN2BCD1
      172                            *
      173   04 00039    32200004 A   BIN2BCD3 LW,R2    R4                ORDER OUTPUT ARGUMENTS
      174   04 0003A    3A400001 A            LCW,R4   R1
      175   04 0003B    20400007 A            AI,R4    7
      176   04 0003C    32100003 A            LW,R1    R3
      177   04 0003D    32300005 A            LW,R3    R5
      178                            *
      179   04 0003E    88500007 A            PLW,R5   *R7               RESTORE REGISTERS
      180   04 0003F    E800000B A            B        *R11
1* AP * 19:33 JUN 03,'85    PCLUT - UTITILTY,DEV/FIL TRAN, FIX/GET/INT/TEXT ARG                   PAGE    5
A     182                                     PAGE
      183                            *
      184                            *P*      NAME:    CLOSEI
      185                            *P*
      186                            *P*      PURPOSE: TO CLOSE THE M:EI DCB IF IT IS OPEN.
      187                            *P*
      188                            *
      189                            *
      190   04 00040    32100000 X   CLOSEI   LW,R1    M:EI
      191   04 00041    3110000D 0C           CW,R1    =X'00200000'
      192   04 00042    E840000B A            BAZ      *R11
      193   04 00043    04100000 05           CAL1,1   CLSEI
      194                            *
      195   04 00044                          USECT    PLSECT
      196   05 00000    15000000 X   CLSEI    GEN,8,7,17      X'15',0,M:EI
      197   05 00001    00000000 A            DATA     0
      198                            *
      199   05 00002                          USECT    UTIL
      200   04 00044    21100002 A            CI,R1    2                 ONLY REMEMBER FOR NON-FILES
      201   04 00045    E840000B A            BAZ      *R11
      202   04 00046    3211FFFF X            LW,R1    M:EISN-1          ANY SNS IN DCB
      203   04 00047    2110FF00 A            CI,R1    X'FF00'
      204   04 00048    E840000B A            BAZ      *R11
      205   04 00049    7210000B X            LB,R1    M:EI+11           CURRENT VOLUME#
      206   04 0004A    E830000B A            BE       *R11
      207   04 0004B    3213FFFF X            LW,R1    M:EISN-1,R1
      208   04 0004C    35100000 X            STW,R1   INSER             SAVE SN FOR AUTO VOL ON OPEN
      209   04 0004D    E800000B A            B        *R11
1* AP * 19:33 JUN 03,'85    PCLUT - UTITILTY,DEV/FIL TRAN, FIX/GET/INT/TEXT ARG                   PAGE    6
A     210                                     PAGE
      211                            *
      212                            *
      213                            *P*      NAME:    CLOSEO
      214                            *P*
      215                            *P*      PURPOSE: TO CLOSE THE M:EO DCB IF IT IS OPEN.
      216                            *P*
      217                            *
      218                            *
      219   04 0004E    32100000 X   CLOSEO   LW,R1    M:EO
      220   04 0004F    3110000D 0C           CW,R1    =X'00200000'
      221   04 00050    E840000B A            BAZ      *R11
      222   04 00051    04100002 05           CAL1,1   CLSEO
      223                            *
      224   04 00052                          USECT    PLSECT
      225   05 00002    15000000 X   CLSEO    GEN,8,7,17      X'15',0,M:EO
      226   05 00003    80000000 A            DATA     X'80000000'
      227   05 00004    00000002 A            DATA     2                 SAVE
      228                            *
      229   05 00005                          USECT    UTIL
        1*  04 00052    22100001 A            LI,R1    1                 PCL COPYALL WITH (PHY) OPTION
        2*  04 00053    351E0000 X            STW,R1   TOVER,R7          AFTER A COPY 'INTO' WHEN EITHER
        3*  04 00054    32100000 X            LW,R1    M:EO              M:EI OR M:EO DIDN'T EXIST
      230   04 00055    21100002 A            CI,R1    2                 ONLY REMEMBER FOR NON-FILES
      231   04 00056    E840000B A            BAZ      *R11
      232   04 00057    3211FFFF X            LW,R1    M:EOSN-1          ANY SNS IN DCB
      233   04 00058    2110FF00 A            CI,R1    X'FF00'
      234   04 00059    E840000B A            BAZ      *R11
      235   04 0005A    7210000B X            LB,R1    M:EO+11           CURRENT VOLUME#
      236   04 0005B    E830000B A            BE       *R11
      237   04 0005C    3213FFFF X            LW,R1    M:EOSN-1,R1
      238   04 0005D    35100000 X            STW,R1   OUTSER            SAVE SN FOR AUTO VOL ON OPEN
      239   04 0005E    E800000B A            B        *R11
1* AP * 19:33 JUN 03,'85    PCLUT - UTITILTY,DEV/FIL TRAN, FIX/GET/INT/TEXT ARG                   PAGE    7
A     240                                     PAGE
      241                            *
      242                            *
      243                            *P*      NAME:    CLRARG
      244                            *P*
      245                            *P*      PURPOSE: TO ZERO THE ARGUMENT TABLE ARGTBL.
      246                            *P*
      247                            *
      248                            *
      249   04 0005F    22100010 A   CLRARG   LI,R1    16
      250   04 00060    32200007 A            LW,R2    R7
      251   04 00061    3504000F X            STW,R0   ARGTBL+15,R2      CLEAR FROM TOP DOWN
      252   04 00062    202FFFFF A            AI,R2    -1                SO ENTRY AT +1 CAN CLEAR MORE
      253   04 00063    64100061              BDR,R1   %-2
      254   04 00064    333E0000 X            MTW,3    DEVICE,R7         MAKE DC THE DEFAULT
      255   04 00065    E800000B A            B        *R11              RETURN
1* AP * 19:33 JUN 03,'85    PCLUT - UTITILTY,DEV/FIL TRAN, FIX/GET/INT/TEXT ARG                   PAGE    8
A     256                                     PAGE
      257                            *
      258                            *
      259                            *P*      NAME:    HEX2BCD
      260                            *P*
      261                            *P*      PURPOSE: TO CONVERT A WORD IN HEXADECIMAL TO A TWO-WORD BCD
      262                            *P*               EQUIVALENT.
      263                            *P*
      264                            *DO*
      265                            *P*
      266                            *
      267                            * INPUT
      268                            *        R1       HEXADECIMAL WORD (BINARY)
      269                            * OUTPUT
      270                            *        R2,R3    BCD EQUIVALENT OF HEX WORD
      271                            *
      272                            *
      273                            *FIN*
      274   04 00066    89500007 A   HEX2BCD  PSW,R5   *R7               SAVE REGISTERS
      275                            *
      276   04 00067    22500007 A            LI,R5    7                 INITIALIZE
      277                            *
      278   04 00068    2240000F A   HEX2BCD1 LI,R4    X'F'              GET HEX DIGIT (BINARY)
      279   04 00069    4B400001 A            AND,R4   R1
      280   04 0006A    204000B7 A            AI,R4    X'B7'             CALCULATE EBCDIC EQUIVALENT
      281   04 0006B    214000C0 A            CI,R4    X'C0'
      282   04 0006C    6920006E              BG       HEX2BCD2
      283   04 0006D    20400039 A            AI,R4    X'39'
      284                            *
      285   04 0006E    754A0002 A   HEX2BCD2 STB,R4   R2,R5             STORE EBCDIC VALUE
      286   04 0006F    2510027C A            SCS,R1   -4
      287   04 00070    205FFFFF A            AI,R5    -1                TEST FOR END OF WORD
      288   04 00071    68100068              BGE      HEX2BCD1
      289                            *
      290   04 00072    88500007 A            PLW,R5   *R7               RESTORE REGISTERS
      291   04 00073    E800000B A            B        *R11
1* AP * 19:33 JUN 03,'85    PCLUT - UTITILTY,DEV/FIL TRAN, FIX/GET/INT/TEXT ARG                   PAGE    9
A     292                                     PAGE
      293                            *
      294                            *
      295                            *P*      NAME:    MBS
      296                            *P*
      297                            *P*      PURPOSE: TO MOVE A BYTE STRING OF ANY LENGTH.
      298                            *P*
      299                            *DO*
      300                            *P*
      301                            *
      302                            * INPUT
      303                            *        R1       NO. OF BYTES TO BE MOVED
      304                            *        R2       SOURCE BYTE INDEX
      305                            *        R3       DESTINATION BYTE INDEX
      306                            *
      307                            *
      308                            *FIN*
      309   04 00074    F2440007 A   MBS      LB,R4    *R7,R2            MOVE BYTE STRING
      310   04 00075    F5460007 A            STB,R4   *R7,R3
      311   04 00076    20200001 A            AI,R2    1
      312   04 00077    20300001 A            AI,R3    1
      313   04 00078    64100074              BDR,R1   MBS
      314   04 00079    E800000B A            B        *R11
1* AP * 19:33 JUN 03,'85    PCLUT - UTITILTY,DEV/FIL TRAN, FIX/GET/INT/TEXT ARG                   PAGE   10
A     315                                     PAGE
      316                            *
      317                            *
      318                            *P*      NAME:    REVARG
      319                            *P*
      320                            *P*      PURPOSE: TO BRING UP THE INPUT OR OUTPUT ARGUMENTS FOR ACCESS
      321                            *P*               BY EXCHANGING THE FIRST 15 WORDS OF ARGBUF AND TOARG.
      322                            *P*
      323                            *DO*
      324                            *P*
      325                            *
      326                            * INPUT
      327                            *        TOARG    OUTPUT ARGUMENT TABLE
      328                            *        ARGTBL   INPUT ARGUMENT TABLE
      329                            *
      330                            *
      331                            *FIN*
      332   04 0007A    22100010 A   REVARG   LI,R1    16
      333   04 0007B    32200007 A            LW,R2    R7
      334   04 0007C    32340000 X   KGCA%5   LW,R3    TOARG,R2          REVERSE TABLES
      335   04 0007D    32440000 X            LW,R4    ARGTBL,R2
      336   04 0007E    35340000 X            STW,R3   ARGTBL,R2
      337   04 0007F    35440000 X            STW,R4   TOARG,R2
      338   04 00080    20200001 A            AI,R2    1
      339   04 00081    6410007C              BDR,R1   KGCA%5
      340   04 00082    E800000B A            B        *R11              RETURN
1* AP * 19:33 JUN 03,'85    PCLUT - UTITILTY,DEV/FIL TRAN, FIX/GET/INT/TEXT ARG                   PAGE   11
A     341                                     PAGE
      342                            *P*      NAME:    PRTNOF
      343                            *P*      PURPOSE: GENERATES A MESSAGE WITH UP TO 4
      344                            *P*               DECIMAL NUMBERS IN IT. THEY GET PUT
      345                            *P*               ON TOP OF % CHARS IN THE CALLER-SUPPLIED MESSAGE,
      346                            *P*      INPUT:   R8-R9   = INPUT HALFWORD NUMBERS..USED RIGHT TO LEFT
      347                            *P*               AND DESTROYED.
      348                            *P*               R5 = POINTER TO SKELETON MESSAGE (TEXT FORM)
      349                            *P*               R11 = RETURN
      350                            *P*               NO MESSAGE IS OUTPUT IF R9 IS ZERO
      351   04 00083    0410000B 05  PRTNOF   CAL1,1   LONOVFC
      352   04 00084    32100009 A            LW,R1    R9                NO. OF FILES
      353   04 00085    E830000B A            BE       *R11              NONE, NO MESSAGE
      354   04 00086    89B00007 A            PSW,R11  *R7               SAVE RETURN
      355   04 00087    89600007 A            PSW,R6   *R7
      356   04 00088    4460000A 05           ANLZ,R6  PRTBUFI7
      357   04 00089    25600002 A            SLS,R6   2                 BA(OUTPUT BUFFER)
      358   04 0008A    25500002 A            SLS,R5   2                 BA(INPUT MESSAGE)
      359   04 0008B    20100000 A   PRTN1    AI,R1    0                 ARE WE SKIPPING
      360   04 0008C    6830008E              BE       %+2               YES
      361   04 0008D    20600001 A            AI,R6    1
      362   04 0008E    722A0000 A   PRTN2    LB,R2    0,R5              MOVE TEXT PART OF MESSAGE
      363   04 0008F    752C0000 A            STB,R2   0,R6
      364   04 00090    20500001 A            AI,R5    1
      365   04 00091    21200015 A            CI,R2    X'15'             IS THIS END OF MESSAGE
      366   04 00092    682000A7              BLE      PRTN9             YES
      367   04 00093    2120006C A            CI,R2    '%'               IS THIS PLACE FOR NEXT NUMBER
      368   04 00094    6930008B              BNE      PRTN1             NO
      369   04 00095    2210FFFF A            LI,R1    X'FFFF'           GET NEXT ONE
      370   04 00096    4B100009 A            AND,R1   R9
      371   04 00097    25800170 A            SLD,R8   -16               SHIFT FOR ITERATION
      372   04 00098    6830008E              BE       PRTN2             NOTHING HERE
      373   04 00099    722A0000 A            LB,R2    0,R5              IF DOUBLE % USE FULL WORD
      374   04 0009A    2120006C A            CI,R2    '%'
      375   04 0009B    693000A0              BNE      KGC%5
      376   04 0009C    55900001 A            STH,R9   R1
      377   04 0009D    25100210 A            SCS,R1   16
      378   04 0009E    25800170 A            SLD,R8   -16
      379   04 0009F    20500001 A            AI,R5    1
      380   04 000A0    6AB0002A     KGC%5    BAL,R11  BIN2BCD           CONVERT TO BCD
      381   04 000A1    3A400004 A            LCW,R4   R4
      382   04 000A2    72180004 A            LB,R1    R4,R4             MOVE INTO MESSAGE
      383   04 000A3    751C0000 A            STB,R1   0,R6
      384   04 000A4    20600001 A            AI,R6    1
      385   04 000A5    654000A2              BIR,R4   %-3
      386   04 000A6    6800008E              B        PRTN2
      387                            *
      388   04 000A7    4440000A 05  PRTN9    ANLZ,R4  PRTBUFI7          BUFFER ADDRESS
      389   04 000A8    752C0000 A            STB,R2   0,R6              REMOVE PUNCTIATION FROM
      390   04 000A9    206FFFFF A            AI,R6    -1                END OF MESSAGE
      391   04 000AA    702C0000 A            LC       0,R6
      392   04 000AB    688000A8              BCR,8    %-3
      393   04 000AC    25400002 A            SLS,R4   2                 GET SIZE OF MESSAGE
      394   04 000AD    38600004 A            SW,R6    R4
      395   04 000AE    2540007E A            SLS,R4   -2
      396   04 000AF    22100000 A            LI,R1    0
      397   04 000B0    46100000 X            XW,R1    LISTPOS
      398   04 000B1    683000B3              BE       %+2
      399   04 000B2    04100000 X            CAL1,1   LOSPACE
      400   04 000B3    22100000 N            LI,R1    M:LO
      401   04 000B4    70200000 X            LC       BOG
      402   04 000B5    68C000BE              BCR,12   PRTNOF2           BRANCH IF BATCH
      403   04 000B6    21C00005 A            CI,R12   5                 IS THIS A LIST
      404   04 000B7    693000BC              BNE      PRTNOF1           NO
      405   04 000B8    22306F00 A            LI,R3    X'6F00'           IS M:LO A TERMINAL TOO
      406   04 000B9    31300001 X            CW,R3    M:LO+1
      407   04 000BA    684000BC              BAZ      PRTNOF1           YES
      408   04 000BB    04100005 05           CAL1,1   FPTDEL            PRINT MESSAGE ON LO
      409   04 000BC    22100000 N   PRTNOF1  LI,R1    M:UC
      410   04 000BD    20600001 A            AI,R6    1
      411   04 000BE    04100005 05  PRTNOF2  CAL1,1   FPTDEL            WRITE MESSAGE
      412                            *
      413   04 000BF                          USECT    PLSECT
      414   05 00005    91000001 A   FPTDEL   GEN,8,7,17      X'91',0,R1
      415   05 00006    34000010 A            DATA     X'34000010'
      416   05 00007    80000004 A            PZE      *R4               BUFFER
      417   05 00008    80000006 A            PZE      *R6               SIZE
      418   05 00009    00000001 A            DATA     1                 BTD
      419   05 0000A    330E0000 X   PRTBUFI7 MTW,0    PRTBUF,R7         FOR ANLZ INSTRUCTION
      420   05 0000B    05000000 N   LONOVFC  GEN,8,24 5,M:LO
      421   05 0000C    00000000 A            DATA     0
      422                            *
      423   05 0000D                          USECT    UTIL
      424   04 000BF    88600007 A            PLW,R6   *R7
      425   04 000C0    88B00007 A            PLW,R11  *R7               RESTORE LINK REGISTER
      426   04 000C1    E800000B A            B        *R11              RETURN
1* AP * 19:33 JUN 03,'85    PCLUT - UTITILTY,DEV/FIL TRAN, FIX/GET/INT/TEXT ARG                   PAGE   12
A     427                                     PAGE
      428                            *
      429                            *
      430                            *P*      NAME:    UNPRINT
      431                            *P*
      432                            *P*      PURPOSE: TO TEST AN ARGUMENT FOR UNPRINTABLE CHARACTERS
      433                            *P*               AND, IF FOUND, ENTER ARGUMENT IN THE BUFFER AS A
      434                            *P*               HEXDECIMAL STRING INSTEAD OF A CHARACTER STRING.
      435                            *P*
      436                            *DO*
      437                            *P*
      438                            *
      439                            * INPUT
      440                            *        R1       POINTER TO ARGUMENT IN TEXTC FORMAT
      441                            *        R14      BUFFER POINTER
      442                            * OUTPUT
      443                            *        R2       NUMBER OF CHARACTERS MOVED TO BUFFER
      444                            *        R14      BUFFER POINTER (SAME AS ON ENTRY)
      445                            *
      446                            *
      447                            *FIN*
      448   04 000C2    02200060 A   UNPRINT  LCI      6
      449   04 000C3    8B300007 A            PSM,R3   *R7               SAVE REGISTERS
      450   04 000C4    F2300001 A            LB,R3    *R1               GET ARGUMENT LENGTH
      451   04 000C5    683000D2              BE       UNPX              NOTHING TO PRINT
      452   04 000C6    3250000E A            LW,R5    R14               GEN BYTE ADDRESS
      453   04 000C7    25500202 A            SCS,R5   2
      454   04 000C8    30500003 A            AW,R5    R3
      455   04 000C9    F2460001 A   UNP2     LB,R4    *R1,R3            MOVE ARGUMENT TO BUFFER
      456   04 000CA    754A0000 A            STB,R4   0,R5
      457   04 000CB    205FFFFF A            AI,R5    -1
      458   04 000CC    22200001 A            LI,R2    1
      459   04 000CD    25280200 A            SCS,R2   0,R4
      460   04 000CE    2540007B A            SLS,R4   -5
      461   04 000CF    31280000 X            CW,R2    CCTAB,R4
      462   04 000D0    684000D6              BAZ      UNP1              NOT PRINTABLE
      463   04 000D1    643000C9              BDR,R3   UNP2
      464   04 000D2    F2200001 A   UNPX     LB,R2    *R1               NO. CHARS MOVED
      465   04 000D3    02200060 A   UNP0     LCI      6
      466   04 000D4    8A300007 A            PLM,R3   *R7
      467   04 000D5    E800000B A            B        *R11              EXIT
      468   04 000D6    F2300001 A   UNP1     LB,R3    *R1
      469   04 000D7    25300001 A            SLS,R3   1                 NO. OF HEX CHARS
      470   04 000D8    20300003 A            AI,R3    3                 TOTAL CHARS TO PRINT
      471   04 000D9    32200003 A            LW,R2    R3
      472   04 000DA    3250000E A            LW,R5    R14
      473   04 000DB    25500202 A            SCS,R5   2
      474   04 000DC    30300005 A            AW,R3    R5
      475   04 000DD    20500001 A            AI,R5    1
      476   04 000DE    224000E7 A            LI,R4    'X'
      477   04 000DF    754A0000 A            STB,R4   0,R5
      478   04 000E0    2240007D A            LI,R4    ''''
      479   04 000E1    20500001 A            AI,R5    1
      480   04 000E2    754A0000 A            STB,R4   0,R5
      481   04 000E3    75460000 A            STB,R4   0,R3
      482   04 000E4    F2500001 A            LB,R5    *R1               NO. CHARS IN ARGUMENT
      483   04 000E5    22600002 A   UNP3     LI,R6    2
      484   04 000E6    F24A0001 A            LB,R4    *R1,R5            GET CHARACTER
      485   04 000E7    2280000F A   UNP4     LI,R8    X'F'
      486   04 000E8    4B800004 A            AND,R8   R4                GET HEX DIGIT
      487   04 000E9    208000B7 A            AI,R8    X'B7'             CALCULATE EBCDIC EQUIVALENT
      488   04 000EA    218000C0 A            CI,R8    X'C0'
      489   04 000EB    692000ED              BG       %+2
      490   04 000EC    20800039 A            AI,R8    X'39'
      491   04 000ED    203FFFFF A            AI,R3    -1
      492   04 000EE    75860000 A            STB,R8   0,R3
      493   04 000EF    2540007C A            SLS,R4   -4
      494   04 000F0    646000E7              BDR,R6   UNP4
      495   04 000F1    645000E5              BDR,R5   UNP3
      496   04 000F2    680000D3              B        UNP0
1* AP * 19:33 JUN 03,'85    PCLUT - UTITILTY,DEV/FIL TRAN, FIX/GET/INT/TEXT ARG                   PAGE   13
A     497                                     PAGE
      498                            *
      499                            *
      500                            *P*      NAME:    SIXPACK
      501                            *P*
      502                            *P*      PURPOSE: TO HASH A SIX-CHARACTER ANS TAPE SERIAL NUMBER
      503                            *P*               INTO ONE WORD.  THIS ROUTINE IS USED ONLY IN CPV.
      504                            *P*
      505                            *P*
      506                            *DO*
      507                            *P*
      508                            *INPUT: R1 CONTAINS BYTE ADDRESS OF SERIAL NUMBER
      509                            *OUTPUT: R2 CONTAINS HASHED RESULT
      510                            *ENTRY:  BAL,R11 SIXPACK
      511                            *
      512                            *FIN*
      513   04 000F3    02200020 A   SIXPACK  LCI      2
      514   04 000F4    8B500007 A            PSM,R5   *R7
      515   04 000F5    22500000 A            LI,R5    0
      516   04 000F6    22400006 A            LI,R4    6
      517   04 000F7    72320000 A   SIXPACK1 LB,R3    0,R1
      518   04 000F8    20100001 A            AI,R1    1
      519   04 000F9    2530001A A            SLS,R3   26
      520   04 000FA    25200102 A   KGCB%5   SLD,R2   2
      521   04 000FB    25300064 A            SLS,R3   -28
      522   04 000FC    21300009 A            CI,R3    9                 CHECK FOR SPECIAL CHARACTER
      523   04 000FD    68200100              BLE      %+3
      524   04 000FE    2520007E A            SLS,R2   -2                CHANGE TO BLANK
      525   04 000FF    680000FA              B        KGCB%5
      526   04 00100    2350000A A            MI,R5    10
      527   04 00101    30500003 A            AW,R5    R3
      528   04 00102    644000F7              BDR,R4   SIXPACK1
      529   04 00103    25200014 A            SLS,R2   20
      530   04 00104    49200005 A            OR,R2    R5
      531   04 00105    02200020 A            LCI      2
      532   04 00106    8A500007 A            PLM,R5   *R7
      533   04 00107    E800000B A            B        *R11
1* AP * 19:33 JUN 03,'85    PCLUT - UTITILTY,DEV/FIL TRAN, FIX/GET/INT/TEXT ARG                   PAGE   14
A     534                                     PAGE
      535                            *
      536                            *P*      NAME: SIXBACK
      537                            *P*      PURPOSE: TO CONVERT SIXPACKED SERIAL# BACK TO EBCDIC.
      538                            *P*      CALL: R2 IS PACKED SN, R2-R3 IS RETURNED TEXT, BLANK PADDED
      539                            *P*               R11 IS LINK.
      540                            *
      541   04 00108    02200070 A   SIXBACK  LCI      7
      542   04 00109    8B400007 A            PSM,R4   *R7
      543   04 0010A    2520016C A            SLD,R2   -20
      544   04 0010B    25300074 A            SLS,R3   -12
      545   04 0010C    32500003 A            LW,R5    R3
      546   04 0010D    3280000B 0C           LW,R8    ='    '
      547   04 0010E    22600006 A            LI,R6    6
      548   04 0010F    22400000 A   SIXBACK1 LI,R4    0
      549   04 00110    3640000C 0C           DW,R4    =10
      550   04 00111    2520017E A            SLD,R2   -2
      551   04 00112    25300066 A            SLS,R3   -26
      552   04 00113    49300004 A            OR,R3    R4
      553   04 00114    68300116              BE       %+2
      554   04 00115    20300080 A            AI,R3    X'80'
      555   04 00116    20300040 A            AI,R3    X'40'
      556   04 00117    25800178 A            SLD,R8   -8
      557   04 00118    75300008 A            STB,R3   R8
      558   04 00119    6460010F              BDR,R6   SIXBACK1
      559   04 0011A    12200008 A            LD,R2    R8
      560   04 0011B    02200070 A            LCI      7
      561   04 0011C    8A400007 A            PLM,R4   *R7
      562   04 0011D    E800000B A            B        *R11
1* AP * 19:33 JUN 03,'85    PCLUT - UTITILTY,DEV/FIL TRAN, FIX/GET/INT/TEXT ARG                   PAGE   15
A     563                                     PAGE     'DEVTRAN'
      564   06 00000                 DEVTRAN  DSECT    1
      565                            *
      566                            *P*      NAME:    DEVTRAN
      567                            *P*
      568                            *P*
      569                            *P*      PURPOSE: TO TRANSLATE A DEVICE SPECIFICATION OF A PCL
      570                            *P*               COMMAND.
      571                            *DO*
      572                            *P*
      573                            *
      574                            * INPUT
      575                            *        CMBX     COMMAND BUFFER INDEX OF NEXT ARGUMENT
      576                            *        TERM     TERMINATOR OF CURRENT ARGUMENT
      577                            * OUTPUT
      578                            *        DEVICE   +0    DEVICE ID CODE
      579                            *                 +1    NUMBER OF REEL NO.S
      580                            *                 +2    COMMAND BUFFER INDEX OF FIRST REEL NO.
      581                            *
      582                            *
      583                            *FIN*
      584                                     REF      ERROR
      585                                     REF      CMBX,TERM,DEVICE
      586                                     REF      FILE
      587                                     REF      ARGBUFF
      589                                     REF      OV:NMSZ,OH:NM
      590                                     REF      IN%ARG
      591                                     REF      OUT%ARG
      592                                     REF      ARGBUF4
      593                                     REF      NCHAR
      594                                     REF      MAXCMBX
      595                                     REF      LTSTCMBX
      596                                     REF      MODE
      597                                     REF      DEL%CT
      598                            *
      599   06 00000    02200070 A            LCI      7                 SAVE REGISTERS
      600   06 00001    8B500007 A            PSM,R5   *R7
      601   06 00002    326E0000 X            LW,R6    TERM,R7
      602   06 00003    22100011 A            LI,R1    17                NEVER SHOULD BE HERE FROM ( OR )
      603   06 00004    2160004D A            CI,R6    '('
      604   06 00005    68300008              BE       %+3
      605   06 00006    2160005D A            CI,R6    ')'
      606   06 00007    69300009              BNE      %+2
      607   06 00008    6AB00000 X            BAL,R11  ERROR
      608   06 00009    22100003 A            LI,R1    3                 SET FOR DC DEFAULT
      609   06 0000A    2160004B A            CI,R6    '.'               ACCOUNT WITHOUT DC
      610   06 0000B    6830001F              BE       DEV2              YES, SET DC, GET ACCOUNT
      611   06 0000C    21600061 A            CI,R6    '/'               FILENAME WITHOUT DC
      612   06 0000D    6830001F              BE       DEV2              YES, SET DC.
      613   06 0000E    2160006B A            CI,R6    ','               START OF RANGE
      614   06 0000F    6830001F              BE       DEV2              YES
      615   06 00010    22100006 A            LI,R1    6                 NOW FT DEFAULT
      616   06 00011    311E0000 X            CW,R1    DEVICE,R7         SN WITHOUT FT ONLY IF
      617   06 00012    69300015              BNE      %+3               DEFAULT IS FT (NOT DC)
      618   06 00013    2160007B A            CI,R6    '#'               IS IT SN WITHOUT FT
      619   06 00014    6830001F              BE       DEV2              YEP.
      620   06 00015    2160007B A            CI,R6    '#'               IF # OR - DELIMITER,
      621   06 00016    68300018              BE       %+2
      622   06 00017    21600060 A            CI,R6    '-'               AND DEFAULT DC, IS PART OF FILE NAME
      623   06 00018    6930001A              BNE      %+2
      624   06 00019    33FE0000 X            MTW,-1   CMBX,R7           SO USE IT THERE
      625   06 0001A    326E0000 X            LW,R6    CMBX,R7
      626   06 0001B    22100006 A            LI,R1    6
      627   06 0001C    6AB00000 0A           BAL,R11  GETARG            GET DEV  ARGUMENT
      628   06 0001D    3210000F 0C           LW,R1    =X'02000000'+DEVTBL   EDIT DEVICE CODE
      629   06 0001E    6AB00000 08           BAL,R11  FIXARG
      630   06 0001F    351E0000 X   DEV2     STW,R1   DEVICE,R7         STORE DEVICE ID CODE
      631   06 00020    321E0000 X            LW,R1    CMBX,R7           SAVE END FOR ERROR MESSAGES
      632   06 00021    351E0002 X            STW,R1   DEVICE+2,R7       FROM BLDCB
      633   06 00022    350E0001 X            STW,R0   DEVICE+1,R7       CLEAR SN COUNT
      634   06 00023    6800002D              B        ENDDEV
      635                            *
      636   06 00024    22140006 A   REELNO   LI,R1    X'40006'          SN ARGS..# - 'XX'
      637   06 00025    6AB00000 0A           BAL,R11  GETARG
      638   06 00026    3210000E 0C           LW,R1    =X'3000104'
      639   06 00027    322E0000 X            LW,R2    DEVICE,R7
      640   06 00028    21200007 A            CI,R2    7                 TEST IF ANS TAPE
      641   06 00029    6930002B              BNE      %+2               NO
      642   06 0002A    20100002 A            AI,R1    2                 MAX 6 CHAR FOR ANS
      643   06 0002B    6AB00000 0C           BAL,R11  TEXTARG
      644   06 0002C    331E0001 X            MTW,1    DEVICE+1,R7       COUNT IT
      645                            *
      646   06 0002D    321E0000 X   ENDDEV   LW,R1    TERM,R7           TEST FOR TERMINATION ON NO. SIGN
      647   06 0002E    2110007B A            CI,R1    '#'
      648   06 0002F    68300024              BE       REELNO            ANOTHER SERIAL NUMBER HERE
      649   06 00030    21100060 A            CI,R1    '-'               DOES DEVICE TYPE FOLLOW?
      650   06 00031    69300047              BNE      ENDDEV3K          NO
      651   06 00032    22100006 A            LI,R1    6                 ARGUMENT DELIMITERS
      652   06 00033    6AB00000 0A           BAL,R11  GETARG
      653   06 00034    22200000 A            LI,R2    0
      654   06 00035    323E0000 X            LW,R3    ARGBUFF,R7        GET ARGUMENT FROM BUFFER.
      655   06 00036    25200108 A            SLD,R2   8                 ISOLATE LENGTH.
      656   06 00037    202FFFFE A            AI,R2    -2
      657   06 00038    69300044              BNE      ERR34
      658   06 00039    25300070 A            SLS,R3   -16
      659   06 0003A    2130F7E3 A            CI,R3    '7T'
      660   06 0003B    6930003E              BNE      %+3               NOT 7T
      661   06 0003C    22100003 A            LI,R1    3
      662   06 0003D    351E0001 X            STW,R1   MODE+1,R7         ENTER CODE FOR 7T IN ARGTBLE
      663   06 0003E    22100000 N            LI,R1    OUT%ARG           ASSUME OUT
      664   06 0003F    21C00001 A            CI,R12   1
      665   06 00040    68300042              BE       %+2               OUTPUT DEVICE.
      666   06 00041    22100000 N            LI,R1    IN%ARG            INPUT
      667   06 00042    B53E0001 A            STW,R3   *R1,R7
      668   06 00043    68000046              B        ENDDEV3G
      669   06 00044    22100022 A   ERR34    LI,R1    34
      670   06 00045    6AB00000 X            BAL,R11  ERROR
      671   06 00046    321E0000 X   ENDDEV3G LW,R1    TERM,R7
      672   06 00047    2110004B A   ENDDEV3K CI,R1    X'4B'             TEST FOR TERMINATION ON PERIOD
      673   06 00048    6930004A              BNE      RETURN
      674   06 00049    6AB00000 07           BAL,R11  FILTRAN           SCAN ACCT,PSWD
      675   06 0004A    02200070 A   RETURN   LCI      7                 RESTORE REGISTERS
      676   06 0004B    8A500007 A            PLM,R5   *R7
      677   06 0004C    21200001 A            CI,R2    1                 TEST RESULT OF INTARG CALL
      678   06 0004D    E800000B A            B        *R11
      679                            *
      680   06 0004E    0000000B A   DEVTBL   DATA     11                DEVICE CODE TABLE
      681   06 0004F    02C3D940 A            TEXTC    'CR'
      682   06 00050    02D7D940 A            TEXTC    'PR'
      683   06 00051    02C4C340 A            TEXTC    'DC'
      684   06 00052    02D3E340 A            TEXTC    'LT'
      685   06 00053    02C4D740 A            TEXTC    'DP'
      686   06 00054    02C6E340 A            TEXTC    'FT'
      687   06 00055    02C1E340 A            TEXTC    'AT'
      688   06 00056    02D4C540 A            TEXTC    'ME'
      689   06 00057    02D3D740 A            TEXTC    'LP'
      690   06 00058    02C3D740 A            TEXTC    'CP'
      691   06 00059    02D7D740 A            TEXTC    'PP'
1* AP * 19:33 JUN 03,'85    PCLUT - UTITILTY,DEV/FIL TRAN, FIX/GET/INT/TEXT ARG                   PAGE   16
A     692                                     PAGE     'FILTRAN'
      693   07 00000                 FILTRAN  DSECT    1
      694                            *
      695                            *P*      NAME:    FILTRAN
      696                            *P*
      697                            *P*
      698                            *P*      PURPOSE: TO TRANSLATE THE NAME, ACCOUNT, AND PASSWORD FIELDS
      699                            *P*               OF A FILE ID IN A COMMAND.
      700                            *P*
      701                            *DO*
      702                            *P*
      703                            *
      704                            * INPUT
      705                            *        CMBX     COMMAND BUFFER INDEX OF NEXT ARGUMENT
      706                            *        TERM     TERMINATOR OF CURRENT ARGUMENT
      707                            * OUTPUT
      708                            *        FILE     +0    FIL ID COUNT (1-N,2-N,A,3-N,A,P)
      709                            *                 +1    COMMAND BUFFER INDEX OF FILE NAME
      710                            *
      711                            *
      712                            *FIN*
      713                            *
      714   07 00000    02200070 A            LCI      7                 SAVE REGISTERS
      715   07 00001    8B500007 A            PSM,R5   *R7
      716   07 00002    22500001 A            LI,R5    1                 INITIALIZE
      717   07 00003    326E0000 X            LW,R6    CMBX,R7
      718   07 00004    21B0004A 06           CI,R11   RETURN            IF CALLED FROM DEVTRAN
      719   07 00005    69300007              BNE      NEXTARG
      720   07 00006    64600012              BDR,R6   NEXT2             AT THE '.', DONT GET FILE NAME
      721                            *
      722   07 00007    2210000C A   NEXTARG  LI,R1    12
      723   07 00008    6AB00000 0A           BAL,R11  GETARG            GET NEXT ARGUMENT
      724   07 00009    21D00001 A            CI,R13   1
      725   07 0000A    69200012              BG       NEXT2             ERROR REPORTED BY GETARG
      726   07 0000B    32400005 A            LW,R4    R5                SAVE PARAMETER COUNT
      727   07 0000C    323E0000 X            LW,R3    DEVICE,R7
      728   07 0000D    21300007 A            CI,R3    7                 TEST IF ANS TAPE
      729   07 0000E    69300010              BNE      %+2               NO
      730   07 0000F    20400003 A            AI,R4    3                 SELECT 3RD EDIT TABLE
      731   07 00010    32180021              LW,R1    EDITCNST-1,R4     EDIT FILE ID PARAMETER
      732   07 00011    6AB00000 0C           BAL,R11  TEXTARG
      733                            *
      734   07 00012    321E0000 X   NEXT2    LW,R1    TERM,R7
      735   07 00013    2110004B A            CI,R1    '.'               ACCT NO. OR PASS WORD PRESENT
      736   07 00014    6930001F              BNE      STORE
      737   07 00015    323E0000 X            LW,R3    DEVICE,R7         RESTORE DEVICE CODE.
      738   07 00016    21300007 A            CI,R3    7                 IS DEVICE ANS TAPE
      739   07 00017    6830001C              BE       ERR7              YES-ERROR
      740   07 00018    21500003 A            CI,R5    3                 CHECK FOR MAXIMUM PARAMETER COUNT
      741   07 00019    6830001C              BE       ERR7
      742   07 0001A    20500001 A            AI,R5    1                 INCREMENT PARAMETER COUNT
      743   07 0001B    68000007              B        NEXTARG
      744   07 0001C    22100007 A   ERR7     LI,R1    7                 ERROR 07
      745   07 0001D    6AB00000 X            BAL,R11  ERROR
      746   07 0001E    68000007              B        NEXTARG
      747                            *
      748   07 0001F    355E0000 X   STORE    STW,R5   FILE,R7           STORE PARAMETER COUNT
      749   07 00020    356E0001 X            STW,R6   FILE+1,R7         STORE CMBX OF FILE NAME
      750   07 00021    6800004A 06           B        RETURN
      751                            *
      752   07 00022    0400011F A   EDITCNST DATA     X'0400011F'       NAME
      753   07 00023    05000008 A            DATA     X'05000008'       ACCOUNT
      754   07 00024    06000108 A            DATA     X'06000108'       PASSWORD
      755   07 00025    04000111 A            DATA     X'04000111'       ANS NAME
1* AP * 19:33 JUN 03,'85    PCLUT - UTITILTY,DEV/FIL TRAN, FIX/GET/INT/TEXT ARG                   PAGE   17
A     756                                     PAGE     'FIXARG'
      757                            *
      758                            *P*      NAME:    FIXARG
      759                            *P*
      760                            *P*      PURPOSE: TO LOOK UP AN ARGUMENT IN A TABLE AND RETURN WITH THE
      761                            *P*               INDEX OF THE ARGUMENT AS AN ID.
      762                            *P*
      763                            *DO*
      764                            *P*
      765                            *
      766                            * INPUT
      767                            *
      768                            *        R1       0-7    ERROR CODE DESIRED
      769                            *                 15-31  TABLE ADDRESS
      770                            *        ARGBUFF  ARGUMENT STORAGE BUFFER
      771                            *
      772                            * OUTPUT
      773                            *
      774                            *        R1       ARGUMENT ID CODE (INDEX)
      775                            *
      776                            *
      777                            *FIN*
      778                            *
      779   08 00000                 FIXARG   DSECT    1
      781   08 00000    32200001 A            LW,R2    R1                SAVE INPUT
      782   08 00001    B2100002 A            LW,R1    *R2               GET MAX. TABLE INDEX
      783                            *
      784   08 00002    323E0000 X            LW,R3    ARGBUFF,R7        SEARCH TABLE FOR MATCH
      785   08 00003    B1320002 A            CW,R3    *R2,R1
      786   08 00004    68300006              BE       %+2
      787   08 00005    64100003              BDR,R1   %-2
      788   08 00006    3120000F 0C           CW,R2    =X'02000000'+DEVTBL  IS DEVICE BEING
      789   08 00007    6930004F              BNE      ERR               NO.
      790   08 00008    73E00003 A            MTB,-2   R3                MAKE HW TABLE LOOKUP VALUE
      791   08 00009    6920000C              BG       %+3               TWO CHARS MAX
      792   08 0000A    25300008 A            SLS,R3   8
      793   08 0000B    25300470 A            SAS,R3   -16
      794   08 0000C    73000000 X            MTB,0    J:JIT             IF ME IN BATCH
      795   08 0000D    69300015              BNE      FIXA1             FIX IT
      796   08 0000E    213FD4C5 A            CI,R3    'ME'-X'10000'
      797   08 0000F    69300015              BNE      FIXA1
      798   08 00010    21C00001 A            CI,R12   1                 ME IS CR OR LP IN BATCH
      799   08 00011    69300013              BNE      %+2
      800   08 00012    22100009 A            LI,R1    9                 HAD TO BE EIGHT IF 'ME'
      801   08 00013    52320049              LH,R3    GUDOPL-4,R1
      802   08 00014    7212004C              LB,R1    GUDDEV-2,R1
      803   08 00015    20100000 A   FIXA1    AI,R1    0                 IF WEVE GOT A CODE, JUST STORE TYPE
      804   08 00016    69300022              BNE      ST%DCB
      805   08 00017    321E0000 X            LW,R1    TERM,R7           TEST IF TERM IS #.
      806   08 00018    2110007B A            CI,R1    '#'
      807   08 00019    68300044              BE       CK%DEVO           OR DASH, WHICH
      808   08 0001A    21100060 A            CI,R1    '-'               MAKES A FILE NAME
      809   08 0001B    68300044              BE       CK%DEVO           YES--DO NOT CHECK.
      810                            *                                   SYSTEM TABLE.
      811   08 0001C    22100000 N            LI,R1    OV:NMSZ           DEVICE IN SYSTEM TABLE.
      812   08 0001D    51320000 X   CMP%NXT  CH,R3    OH:NM,R1
      813   08 0001E    68300021              BE       %+3
      814   08 0001F    6410001D              BDR,R1   CMP%NXT
      815   08 00020    68000044              B        CK%DEVO
      816   08 00021    22100000 A            LI,R1    0
      817   08 00022    7130004C     ST%DCB   CB,R3    TXTT              IF XT, ITS PROBABLY A TAPE
      818   08 00023    69300025              BNE      %+2               AND ZERO IS THE RESOURCE TYPE
      819   08 00024    22300000 A            LI,R3    0
      820   08 00025    55000003 A            STH,R0   R3                CLEAR SIGN BITS
      821   08 00026    21C00001 A            CI,R12   1
      822   08 00027    6830002B              BE       ST%OUT
      823   08 00028    353E0000 X            STW,R3   IN%ARG,R7         SAVE INPUT ARGUMENT
      824   08 00029    22200001 A            LI,R2    1                 TRY INPUT OPEN
      825   08 0002A    6800002D              B        %+3
      826   08 0002B    22200002 A   ST%OUT   LI,R2    2                 TRY OUTPUT OPEN
      827   08 0002C    353E0000 X            STW,R3   OUT%ARG,R7
      828   08 0002D    20100000 A            AI,R1    0                 IF WEVE GOT A CODE, RETURN
      829   08 0002E    E930000B A            BNE      *R11
      830   08 0002F    04100058              CAL1,1   OPN%DEV
      831   08 00030    0410005C              CAL1,1   CLS%DEV
      832   08 00031    22307F00 A   DEV%ABN  LI,R3    X'7F00'           GET DEVICE TYPE FROM DCB
      833   08 00032    4B300001 09           AND,R3   M:DEV+1
      834   08 00033    22100009 A            LI,R1    9                 SET LP IF LISTING DEVICE
      835   08 00034    21304000 A            CI,R3    X'4000'
      836   08 00035    E940000B A            BANZ     *R11
      837   08 00036    25300078 A            SLS,R3   -8
      838   08 00037    52360000 X            LH,R3    OH:NM,R3
      839   08 00038    5210005E              LH,R1    DEVTYPES
      840   08 00039    5132005E              CH,R3    DEVTYPES,R1
      841   08 0003A    6830003C              BE       %+2
      842   08 0003B    64100039              BDR,R1   %-2
      843   08 0003C    72120064              LB,R1    PCLTYPES,R1
      844   08 0003D    E930000B A            BNE      *R11
      845   08 0003E    213FD5D6 A            CI,R3    X'FD5D6'          ANYTHING BUT NO DEVICE IS OK
      846   08 0003F    68300043              BE       CK%DEVO0
      847   08 00040    72140042              LB,R1    DFDV,R2
      848   08 00041    E800000B A            B        *R11
      849   08 00042    00020B00 A   DFDV     DATA     X'20B00'          PR-INPUT, PP-OUTPUT
      850   08 00043    3220000F 0C  CK%DEVO0 LW,R2    =X'02000000'+DEVTBL RESTORE ERR CODE
      851   08 00044    321E0000 X   CK%DEVO  LW,R1    DEVICE,R7         IF DEFAULT DC, DEVICE CODE
      852   08 00045    21100003 A            CI,R1    3                 IS OPTIONAL
      853   08 00046    69300051              BNE      ERR+2
      854   08 00047    356E0000 X            STW,R6   CMBX,R7           TREAT AS DC/ MISSING
      855   08 00048    22200061 A            LI,R2    '/'
      856   08 00049    352E0000 X            STW,R2   TERM,R7
      857   08 0004A    22300000 A            LI,R3    0                 NO DEVTYPE FOR DEFAULT DC
      858   08 0004B    68000022              B        ST%DCB
      859   08 0004C    E3404040 A   TXTT     TEXT     'T'
      860   08 0004D    C3D9D3D7 A   GUDOPL   TEXT     'CRLP'
      861   08 0004E    01090000 A   GUDDEV   DATA     X'1090000'
      862                            *
      863   08 0004F    20100000 A   ERR      AI,R1    0
      864   08 00050    E930000B A            BNE      *R11
      865   08 00051    72100002 A            LB,R1    R2                SET GIVEN ERROR CODE
      866   08 00052    E830000B A            BE       *R11
      867   08 00053    89B00007 A            PSW,R11  *R7               SAVE RETURN
      868   08 00054    6AB00000 X            BAL,R11  ERROR
      869   08 00055    22100000 A            LI,R1    0                 CLEAR ID CODE
      870   08 00056    88B00007 A            PLW,R11  *R7
      871   08 00057    E800000B A            B        *R11
      872   08 00058    14000000 09  OPN%DEV  GEN,8,24 20,M:DEV
      873   08 00059    01040000 A            DATA     X'1040000',X'80000002',X'80000003'
            08 0005A    80000002 A
            08 0005B    80000003 A
      874   08 0005C    15000000 09  CLS%DEV  GEN,8,24 21,M:DEV
      875   08 0005D    00000000 A            DATA     0
      876   08 0005E    000CC3D9 A   DEVTYPES GEN,16,16 HA(PCLTYPES)-HA(%),'CR'
      877   08 0005F    D7D9C4C3 A            TEXT     'PRDC9TDP7TMELPCPPP'
            08 00060    F9E3C4D7 A
            08 00061    F7E3D4C5 A
            08 00062    D3D7C3D7 A
            08 00063    D7D74040 A
      878   08 00064    00010203 A   PCLTYPES DATA     X'10203'          CR,PR,DC
      879   08 00065    06050608 A            DATA     X'6050608'        9T,DP,7T,ME
      880   08 00066    090A0B00 A            DATA     X'90A0B00'        LP,CP,PP
      881   09 00000                 M:DEV    DSECT    1
      882   09 00000    00008003 A            DATA     X'8003',0,0,DEV%ABN,DEV%ABN
            09 00001    00000000 A
            09 00002    00000000 A
            09 00003    00000031 08
            09 00004    00000031 08
      883   09 00005                          DO1      17
      884   09 00005    00000000 A            DATA     0
            09 00006    00000000 A
            09 00007    00000000 A
            09 00008    00000000 A
            09 00009    00000000 A
            09 0000A    00000000 A
            09 0000B    00000000 A
            09 0000C    00000000 A
            09 0000D    00000000 A
            09 0000E    00000000 A
            09 0000F    00000000 A
            09 00010    00000000 A
            09 00011    00000000 A
            09 00012    00000000 A
            09 00013    00000000 A
            09 00014    00000000 A
            09 00015    00000000 A
1* AP * 19:33 JUN 03,'85    PCLUT - UTITILTY,DEV/FIL TRAN, FIX/GET/INT/TEXT ARG                   PAGE   18
A     885                                     PAGE     'GETARG'
      886                            *P*      NAME:    GETARG
      887                            *P*
      888                            *P*      PURPOSE: TO EXTRACT THE NEXT ARGUMENT FROM THE COMMAND BUFFER
      889                            *P*               AND PLACE IT IN TEXTC FORMAT IN THE ARGUMENT BUFFER.
      890                            *P*
      891                            *DO*
      892                            *P*
      893                            * GET ARGUMENT
      894                            *
      895                            * INPUT
      896                            *
      897                            *        CMBX     COMMAND BUFFER INDEX FOR CURRENT ARGUMENT
      898                            *        MAXCMBX  MAXIMUM COMMAND BUFFER INDEX
      899                            *
      900                            * OUTPUT
      901                            *
      902                            *        LTSTCMBX BUFFER INDEX OF START OF ARGUMENT
      903                            *        CMBX     COMMAND BUFFER INDEX FOR NEXT ARGUMENT
      904                            *        ARGBUFF  ARGUMENT BUFFER
      905                            *        TERM     TERMINATION CHARACTER
      906                            *        NCHAR    NUMBER OF CHARACTERS IN ARGUMENT BUFFER
      907                            *
      908                            *
      909                            *FIN*
      910   0A 00000                 GETARG   DSECT    1
      911   0A 00000    02200070 A            LCI      7                 SAVE REGISTERS
      912   0A 00001    8B500007 A            PSM,R5   *R7
      913   0A 00002    32F00001 A            LW,R15   R1                SET DELIMITER SET
      914   0A 00003    326E0000 X            LW,R6    CMBX,R7           GET COMMAND BUFFER INDEX
      915   0A 00004    35600000 X            STW,R6   LTSTCMBX
      916   0A 00005    22500001 N            LI,R5    ARGBUF4+1         INITIALIZE -ARGBUF- INDEX
      917   0A 00006    22800000 A            LI,R8    0                 TURN OFF BLANK DELIMITER SWITCH
      918   0A 00007    22900000 A            LI,R9    0                 TURN OFF IGNORE CHARACTER SWITCH
      919   0A 00008    22A00000 A            LI,R10   0                 TURN OFF CHAR STRING IND
      920   0A 00009    22100008 A            LI,R1    8
      921   0A 0000A    3220000B 0C           LW,R2    ='    '
      922   0A 0000B    223FFFFF N            LI,R3    ARGBUFF-1
      923   0A 0000C    30300007 A            AW,R3    R7
      924   0A 0000D    B5220003 A            STW,R2   *R3,R1
      925   0A 0000E    6410000D              BDR,R1   %-1
      926   0A 0000F    316E0000 X   P5       CW,R6    MAXCMBX,R7        TEST FOR MAXIMUM COMMAND INDEX
      927   0A 00010    69100017              BL       P10
      928   0A 00011    21F00010 A   P7       CI,R15   16                IF SCANNING CHAR STR,, MISSING QUOTE
      929   0A 00012    68400015              BAZ      %+3
      930   0A 00013    22100011 A            LI,R1    17
      931   0A 00014    6AB00000 X            BAL,R11  ERROR
      932   0A 00015    22400015 A            LI,R4    X'15'             SET END OF COMMAND
      933   0A 00016    68000094              B        RETURN2
      934                            *
      935   0A 00017    F24C0007 A   P10      LB,R4    *R7,R6            GET NEXT CHARACTER
      936   0A 00018    20600001 A            AI,R6    1                 INCREMENT COMMAND BUFFER INDEX
      937   0A 00019    356E0000 X            STW,R6   CMBX,R7           UPDATE CMBX FOR ERROR MESSAGE
      938   0A 0001A    21F00010 A            CI,R15   X'10'             ARE WE SCANNING A CHARACTER STR
      939   0A 0001B    69400037              BANZ     P15               YES, NO BLANK TESTING
      940   0A 0001C    21400015 A            CI,R4    X'15'
      941   0A 0001D    68300094              BE       RETURN2           STOP ON CR IN BATCH
      942   0A 0001E    2140000D A            CI,R4    X'0D'
      943   0A 0001F    68300011              BE       P7
      944                            *
      945   0A 00020    21400040 A            CI,R4    X'40'             TEST FOR BLANK
      946   0A 00021    69300026              BNE      P11               SIGNIFICANT CHARACTER.
      947   0A 00022    21C00003 A            CI,R12   3                 CHECK FOR DELETE COMMAND.
      948   0A 00023    69300032              BNE      P12               NOT DELETE.
      949   0A 00024    331E0000 X            MTW,1    DEL%CT,R7         UPDATE DELETE BLANK COUNT.
      950   0A 00025    68000032              B        P12
      951   0A 00026    21C00003 A   P11      CI,R12   3                 CHECK IF DELETE COMMAND.
      952   0A 00027    6930002F              BNE      P11A              NO
      953   0A 00028    22100000 A            LI,R1    0
      954   0A 00029    461E0000 X            XW,R1    DEL%CT,R7         CHECK DELETE COMMAND FOR BLANKS.
      955   0A 0002A    21100001 A            CI,R1    1
      956   0A 0002B    6820002F              BLE      P11A
      957   0A 0002C    22100037 A            LI,R1    55
      958   0A 0002D    6AB00000 X            BAL,R11  ERROR
      959   0A 0002E    6800004A 06           B        RETURN
      960   0A 0002F    21400005 A   P11A     CI,R4    X'05'             TEST FOR TAB CHARACTER
      961   0A 00030    69300037              BNE      P15
      962   0A 00031    22400040 A            LI,R4    X'40'             CHANGE TAB TO BLANK
      963   0A 00032    21800000 A   P12      CI,R8    0                 TEST BLANK DELIMITER SWITCH
      964   0A 00033    6830000F              BE       P5
      965   0A 00034    22800000 A            LI,R8    0                 TURN OFF BLANK DELIMITER SWITCH
      966   0A 00035    22900001 A            LI,R9    1                 TURN ON IGNORE CHARACTER SWITCH
      967   0A 00036    6800000F              B        P5
      968                            *
      969   0A 00037    32200004 A   P15      LW,R2    R4                GET DELIMITER FLAG FOR CHARACTER
      970   0A 00038    22300000 A            LI,R3    0
      971   0A 00039    2520017B A            SLD,R2   -5
      972   0A 0003A    25300065 A            SLS,R3   -27
      973   0A 0003B    3020000F A            AW,R2    R15               SELECT DELIMITER TABLE
      974   0A 0003C    3214009D              LW,R1    DELIMIT,R2
      975   0A 0003D    25160000 A            SLS,R1   0,R3
      976   0A 0003E    21100000 A            CI,R1    0                 TEST FOR DELIMITER
      977   0A 0003F    6910006C              BL       RETURN1
      978   0A 00040    21900000 A            CI,R9    0                 TEST IGNORE CHARACTER SWITCH
      979   0A 00041    68300046              BE       P20
      980   0A 00042    22400040 A   P18      LI,R4    X'40'             SET DELIMITER TO BLANK
      981   0A 00043    206FFFFF A            AI,R6    -1                DECREMENT COMMAND BUFFER INDEX
      982   0A 00044    68000094              B        RETURN2
      983                            *
      984   0A 00045    20600001 A   P19      AI,R6    1
      985   0A 00046    20F00000 A   P20      AI,R15   0                 IF R15 NEGATIVE, MUST HAVE DELIMITER
      986   0A 00047    6810004B              BGE      P22
      987   0A 00048    22100011 A            LI,R1    17                NO CAN FIGURE OUT THIS ONE
      988   0A 00049    6AB00000 X            BAL,R11  ERROR
      989   0A 0004A    22F00006 A            LI,R15   6                 NOT TWICE
      990   0A 0004B    21500020 N   P22      CI,R5    ARGBUF4+32        TEST FOR MAX ARG SIZE
      991   0A 0004C    69100051              BL       P25
      992   0A 0004D    69200065              BG       P26               ERROR ALREADY REPORTED
      993   0A 0004E    22100001 A            LI,R1    1                 SET ERROR FLAG (ERROR 01)
      994   0A 0004F    6AB00000 X            BAL,R11  ERROR             ERROR 01
      995   0A 00050    68000065              B        P26
      996                            *
      997   0A 00051    F28A0007 A   P25      LB,R8    *R7,R5            GET PREV BYTE IN CASE HEX CONVERT
      998   0A 00052    21F00006 A            CI,R15   6
      999   0A 00053    69200057              BG       KGC0%4
     1000   0A 00054    19400000 X            CLM,R4   LCCHARS           IF LOWER CASE, TRANSLATE
     1001   0A 00055    69900057              BCS,9    %+2
     1002   0A 00056    20400040 A            AI,R4    'A'-'a'
     1003   0A 00057    F54A0007 A   KGC0%4   STB,R4   *R7,R5            PACK CHARACTER IN ARGUMENT BUFFER
     1004   0A 00058    21F00016 A            CI,R15   22                ARE WE CONVERTING HEX
     1005   0A 00059    69300065              BNE      P26               NO
     1006   0A 0005A    19400026 04           CLM,R4   BCD2BIN5          CHECK CHARACTER LEGALITY
     1007   0A 0005B    6890005F              BCR,9    KGC1%4
     1008   0A 0005C    19400028 04           CLM,R4   HEX2BIN4
     1009   0A 0005D    69900068              BCS,9    P30               BADDIE
     1010   0A 0005E    20400039 A            AI,R4    10-'A'+'0'
     1011   0A 0005F    204FFF10 A   KGC1%4   AI,R4    -'0'              MAKE BIN
     1012   0A 00060    25800004 A            SLS,R8   4                 ADD TO PREVIOUS
     1013   0A 00061    30400008 A            AW,R4    R8
     1014   0A 00062    F54A0007 A            STB,R4   *R7,R5            STUFF IT IN
     1015   0A 00063    21800F00 A            CI,R8    X'F00'            WAS IT A FIRST HALF
     1016   0A 00064    69400066              BANZ     %+2               YES, SKIP INCREMENT
     1017   0A 00065    20500001 A   P26      AI,R5    1                 INCREMENT CHARACTER COUNT
     1018   0A 00066    22800001 A            LI,R8    1
     1019   0A 00067    6800000F              B        P5
     1020                            *
     1021   0A 00068    22100034 A   P30      LI,R1    52
     1022   0A 00069    6AB00000 X            BAL,R11  ERROR
     1023   0A 0006A    224000F0 A            LI,R4    '0'               CHANGE TO '0'
     1024   0A 0006B    68000051              B        P25
     1025                            *
     1026   0A 0006C    2140007D A   RETURN1  CI,R4    X'7D'             IS DELIM A QUOTE
     1027   0A 0006D    69300094              BNE      RETURN2           NO
     1028   0A 0006E    21F00006 A            CI,R15   6                 ARE WE SCANNING A FID
     1029   0A 0006F    69100094              BL       RETURN2           NO
     1030   0A 00070    68300042              BE       P18               NO, STOP ONE BEFORE APOST
     1031   0A 00071    21500001 N            CI,R5    ARGBUF4+1         HAVE WE STORED A CHARACTER
     1032   0A 00072    69300077              BNE      RETURN3           YES
     1033   0A 00073    21F00010 A            CI,R15   16                ARE WE PAST INITIAL QUOTE
     1034   0A 00074    69400077              BANZ     RETURN3           YES
     1035   0A 00075    22F00011 A            LI,R15   17                SET DELIM MODE TO SCAN FOR QUOTES
     1036   0A 00076    6800000F              B        P5
     1037   0A 00077    21F00011 A   RETURN3  CI,R15   17                ARE WE SCANNING '--'
     1038   0A 00078    6830008B              BE       RETURN4           YES, CHECK '' IN STRING
     1039   0A 00079    69200084              BG       RETURN5           END OF HEX STRING
     1040   0A 0007A    21500002 N            CI,R5    ARGBUF4+2         IS 2ND CHAR A QUOTE
     1041   0A 0007B    69300042              BNE      P18               NO, STOP PRE'
     1042   0A 0007C    22100001 N            LI,R1    ARGBUF4+1
     1043   0A 0007D    F2120007 A            LB,R1    *R7,R1            GET FIRST CHAR
     1044   0A 0007E    211000E7 A            CI,R1    'X'               IS IT AN X
     1045   0A 0007F    69300042              BNE      P18               NO, STOP PRE'
     1046   0A 00080    22F00016 A            LI,R15   22                SET DELIM MODE FOR HEX SCAN
     1047   0A 00081    22500001 N            LI,R5    ARGBUF4+1         START OVER AGAIN
     1048   0A 00082    F39A0007 A            MTB,-7   *R7,R5            MAKE RIGHT HALF BYTE 0
     1049   0A 00083    6800000F              B        P5
     1050   0A 00084    F24A0007 A   RETURN5  LB,R4    *R7,R5            DO WE HAVE HALF A CHARACTER
     1051   0A 00085    21400040 A            CI,R4    ' '
     1052   0A 00086    68300092              BE       RETURN6           NO
     1053   0A 00087    25400004 A            SLS,R4   4
     1054   0A 00088    F54A0007 A            STB,R4   *R7,R5
     1055   0A 00089    20500001 A            AI,R5    1                 YES, ADD OTHER HALF=0
     1056   0A 0008A    68000092              B        RETURN6
     1057   0A 0008B    316E0000 X   RETURN4  CW,R6    MAXCMBX,R7        TEST FOR END OF COMMAND
     1058   0A 0008C    6910008F              BL       %+3               NO
     1059   0A 0008D    22400015 A            LI,R4    X'15'             SET TERMINATOR
     1060   0A 0008E    68000094              B        RETURN2
     1061   0A 0008F    F24C0007 A            LB,R4    *R7,R6
     1062   0A 00090    2140007D A            CI,R4    X'7D'             IS DOUBLE QUOTE IN CHAR STRING
     1063   0A 00091    68300045              BE       P19               YES - STORE AND CONTINUE
     1064   0A 00092    22F80006 A   RETURN6  LI,R15   X'80006'          SET DELIMITER NEXT FLAG
     1065   0A 00093    6800000F              B        P5                GO SCAN FOR DELIMITER
     1066                            *
     1067   0A 00094    354E0000 X   RETURN2  STW,R4   TERM,R7           SAVE DELIMITER
     1068   0A 00095    356E0000 X            STW,R6   CMBX,R7           SAVE COMMAND BUFFER INDEX
     1069   0A 00096    205FFFFF N            AI,R5    -ARGBUF4-1        SAVE CHARACTER COUNT
     1070   0A 00097    355E0000 X            STW,R5   NCHAR,R7
     1071   0A 00098    22100000 N            LI,R1    ARGBUF4
     1072   0A 00099    F5520007 A            STB,R5   *R7,R1
     1073   0A 0009A    02200070 A            LCI      7                 RESTORE REGISTERS
     1074   0A 0009B    8A500007 A            PLM,R5   *R7
     1075   0A 0009C    E800000B A            B        *R11
     1076                            *                   BLANK .(  );    / ,   #
     1077   0A 0009D    00000000 A   DELIMIT  DATA     0,0,X'80140006',X'40100004',0,0,0,0
            0A 0009E    00000000 A
            0A 0009F    80140006 A
            0A 000A0    40100004 A
            0A 000A1    00000000 A
            0A 000A2    00000000 A
            0A 000A3    00000000 A
            0A 000A4    00000000 A
     1078   0A 000A5    80140006 A            DATA     X'80140006',X'C0100014',0,0,0,0
            0A 000A6    C0100014 A
            0A 000A7    00000000 A
            0A 000A8    00000000 A
            0A 000A9    00000000 A
            0A 000AA    00000000 A
     1079   0A 000AB    80140006 A            DATA         X'80140006',X'40100004',0,0,0,0
            0A 000AC    40100004 A
            0A 000AD    00000000 A
            0A 000AE    00000000 A
            0A 000AF    00000000 A
            0A 000B0    00000000 A
     1080   0A 000B1    00000004 A            DATA     X'00000004',0,0,0,0
            0A 000B2    00000000 A
            0A 000B3    00000000 A
            0A 000B4    00000000 A
            0A 000B5    00000000 A
     1081   0A 000B6    00000004 A            DATA     X'00000004',0,0,0,0
            0A 000B7    00000000 A
            0A 000B8    00000000 A
            0A 000B9    00000000 A
            0A 000BA    00000000 A
1* AP * 19:33 JUN 03,'85    PCLUT - UTITILTY,DEV/FIL TRAN, FIX/GET/INT/TEXT ARG                   PAGE   19
A    1082                                     PAGE     'INTARG'
     1083                            *P*      NAME:    INTARG
     1084                            *P*
     1085                            *P*      PURPOSE: TO CONVERT AN INTEGER ARGUMENT TO BINARY.  THE
     1086                            *P*               CONVERTED INTEGER IS COMPARED WITH VALUE LIMITS
     1087                            *P*               SUPPLIED BY THE CALLER.
     1088                            *P*
     1089                            *DO*
     1090                            *P*
     1091                            *
     1092                            *
     1093                            * INPUT
     1094                            *
     1095                            *        R1       MINIMUM INTEGER VALUE
     1096                            *        R2       MAXIMUM INTEGER VALUE
     1097                            *        ARGBUFF  ARGUMENT BUFFER
     1098                            *        NCHAR    LENGTH OF CURRENT ARGUMENT
     1099                            *
     1100                            * OUTPUT
     1101                            *
     1102                            *        R1       INTEGER IN BINARY
     1103                            *        R2       TYPE OF RETURN (0-NORMAL,1-INVALID,2-RANGE)
     1104                            *
     1105                            *FIN*
     1106   0B 00000                 INTARG   DSECT    1
     1107   0B 00000    02200070 A            LCI      7                 SAVE REGISTERS
     1108   0B 00001    8B500007 A            PSM,R5   *R7
     1109   0B 00002    35100006 A            STW,R1   R6                SAVE RANGE VALUES
     1110   0B 00003    35200005 A            STW,R2   R5
     1111   0B 00004    22100001 N            LI,R1    ARGBUF4+1         CONVERT INTEGER TO BINARY
     1112   0B 00005    322E0000 X            LW,R2    NCHAR,R7
     1113   0B 00006    6AB00004 04           BAL,R11  BCD2BIN
     1114   0B 00007    32100003 A            LW,R1    R3                PUT RESULT IN R1
     1115   0B 00008    22200000 A            LI,R2    0                 FLAG IF O.K.
     1116   0B 00009    21400000 A            CI,R4    0                 TEST FOR VALID CONVERSION
     1117   0B 0000A    6830000D              BE       RANGE
     1118   0B 0000B    22200001 A            LI,R2    1                 FLAG INVALID INTEGER
     1119   0B 0000C    6800004A 06           B        RETURN
     1120                            *
     1121   0B 0000D    32400006 A   RANGE    LW,R4    R6                EDIT RANGE OF INTEGER
     1122   0B 0000E    39400003 A            CLR,R4   R3
     1123   0B 0000F    6860004A 06           BCR,6    RETURN
     1124   0B 00010    22200002 A            LI,R2    2                 FLAG RANGE ERROR
     1125   0B 00011    6800004A 06           B        RETURN
1* AP * 19:33 JUN 03,'85    PCLUT - UTITILTY,DEV/FIL TRAN, FIX/GET/INT/TEXT ARG                   PAGE   20
A    1127                                     PAGE     'TEXTARG'
     1128                            *
     1129                            *P*      NAME:    TEXTARG
     1130                            *P*
     1131                            *P*      PURPOSE: TO CHECK THE LENGTH OF THE ARGUMENT IN ARGBUFF TO
     1132                            *P*               DETERMINE IF IT FALLS WITHIN THE LIMITS SUPPLIED BY
     1133                            *P*               THE CALLER.
     1134                            *P*
     1135                            *DO*
     1136                            *P*
     1137                            *
     1138                            * INPUT
     1139                            *
     1140                            *        R1       0-7    ERROR CODE DESIRED
     1141                            *                 16-23  MIN. NO. OF CHARACTERS
     1142                            *                 24-31  MAX. NO. OF CHARACTERS
     1143                            *        ARGBUFF  ARGUMENT STORAGE BUFFER
     1144                            *
     1145                            *
     1146                            *FIN*
     1147   0C 00000                 TEXTARG  DSECT    1
     1148   0C 00000    89B00007 A            PSW,R11  *R7               SAVE RETURN  RESGISTER
     1149   0C 00001    22300002 A            LI,R3    2                 GET MIN. VALUE
     1150   0C 00002    72260001 A            LB,R2    R1,R3
     1151   0C 00003    20300001 A            AI,R3    1                 GET MAX. VALUE
     1152   0C 00004    72360001 A            LB,R3    R1,R3
     1153   0C 00005    392E0000 X            CLR,R2   NCHAR,R7          TEST NO. OF CHARACTERS
     1154   0C 00006    68600009              BCR,6    %+3
     1155   0C 00007    72100001 A            LB,R1    R1                SET GIVEN ERROR CODE
     1156   0C 00008    6AB00000 X            BAL,R11  ERROR
     1157   0C 00009    88B00007 A            PLW,R11  *R7               RESTORE REGISTERS
     1158   0C 0000A    E800000B A            B        *R11
     1159                                     END
            0C 0000B    40404040 A
            0C 0000C    0000000A A
            0C 0000D    00200000 A
            0C 0000E    03000104 A
            0C 0000F    0200004E N

  CONTROL SECTION SUMMARY: 01 00000   PT 0     02 00000   PT 0     03 00000   PT 1     04 0011E   PT 1
                           05 0000D   PT 1     06 0005A   PT 1     07 00026   PT 1     08 00067   PT 1
                           09 00016   PT 1     0A 000BB   PT 1     0B 00012   PT 1     0C 00011   PT 1
1* AP * 19:33 JUN 03,'85    PCLUT - UTITILTY,DEV/FIL TRAN, FIX/GET/INT/TEXT ARG                   PAGE   21
A *    SYMBOL VALUES
          BCD2BIN-04 00004         BCD2BIN1/04 00009        BCD2BIN2/04 00012        BCD2BIN3/04 0001E
          BCD2BIN4/04 00021        BCD2BIN5/04 00026        BCD2BIN6/04 00018        BIN2BCD-04 0002A
          BIN2BCD1/04 00031        BIN2BCD2/04 00033        BIN2BCD3/04 00039        CK%DEVO/08 00044
          CK%DEVO0/08 00043        CLOSEI-04 00040          CLOSEO-04 0004E          CLRARG-04 0005F
          CLS%DEV/08 0005C         CLSEI/05 00000           CLSEO/05 00002           CMP%NXT/08 0001D
          DELIMIT/0A 0009D         DEV%ABN/08 00031         DEVTBL/06 0004E          DEVTRAN-06 00000
          DEVTYPES/08 0005E        DEV2/06 0001F            DFDV/08 00042            EDITCNST/07 00022
          ENDDEV/06 0002D          ENDDEV3G/06 00046        ENDDEV3K/06 00047        ERR/08 0004F
          ERR34/06 00044           ERR7/07 0001C            FILTRAN-07 00000         FIXARG-08 00000
          FIXA1/08 00015           FPTDEL/05 00005          GETARG-0A 00000          GUDDEV/08 0004E
          GUDOPL/08 0004D          HEX2BCD-04 00066         HEX2BCD1/04 00068        HEX2BCD2/04 0006E
          HEX2BIN-04 00000         HEX2BIN1/04 00011        HEX2BIN2/04 0001C        HEX2BIN4/04 00028
          INTARG-0B 00000          KGC%5/04 000A0           KGCA%5/04 0007C          KGCB%5/04 000FA
          KGC0%4/0A 00057          KGC1%4/0A 0005F          LONOVFC/05 0000B         M:DEV-09 00000
          MBS-04 00074             NEXTARG/07 00007         NEXT2/07 00012           OPN%DEV/08 00058
          PCLTYPES/08 00064        PLSECT/05 00000          PRTBUFI7/05 0000A        PRTNOF-04 00083
          PRTNOF1/04 000BC         PRTNOF2/04 000BE         PRTN1/04 0008B           PRTN2/04 0008E
          PRTN9/04 000A7           P10/0A 00017             P11/0A 00026             P11A/0A 0002F
          P12/0A 00032             P15/0A 00037             P18/0A 00042             P19/0A 00045
          P20/0A 00046             P22/0A 0004B             P25/0A 00051             P26/0A 00065
          P30/0A 00068             P5/0A 0000F              P7/0A 00011              RANGE/0B 0000D
          REELNO/06 00024          RETURN/06 0004A          RETURN1/0A 0006C         RETURN2/0A 00094
          RETURN3/0A 00077         RETURN4/0A 0008B         RETURN5/0A 00084         RETURN6/0A 00092
          REVARG-04 0007A          R0/00000000              R1/00000001              R10/0000000A
          R11/0000000B             R12/0000000C             R13/0000000D             R14/0000000E
          R15/0000000F             R2/00000002              R3/00000003              R4/00000004
          R5/00000005              R6/00000006              R7/00000007              R8/00000008
          R9/00000009              SIXBACK-04 00108         SIXBACK1/04 0010F        SIXPACK-04 000F3
          SIXPACK1/04 000F7        ST%DCB/08 00022          ST%OUT/08 0002B          STORE/07 0001F
          TEXTARG-0C 00000         TXTT/08 0004C            UNPRINT-04 000C2         UNPX/04 000D2
          UNP0/04 000D3            UNP1/04 000D6            UNP2/04 000C9            UNP3/04 000E5
          UNP4/04 000E7            UTIL-04 00000
  *    EXTERNAL SYMBOLS
          ARGBUFF-REF    ARGBUF4-REF    ARGTBL-REF     BCD2BIN-DEF    BIN2BCD-DEF    BOG-REF
          CCTAB-REF      CLOSEI-DEF     CLOSEO-DEF     CLRARG-DEF     CMBX-REF       DEL%CT-REF
          DEVICE-REF     DEVTRAN-DEF    ERROR-REF      FILE-REF       FILTRAN-DEF    FIXARG-DEF
          GETARG-DEF     HEX2BCD-DEF    HEX2BIN-DEF    IN%ARG-REF     INSER-REF      INTARG-DEF
          J:JIT-REF      LCCHARS-REF    LISTPOS-REF    LOSPACE-REF    LTSTCMBX-REF   M:DEV-DEF
          M:EI-REF       M:EISN-REF     M:EO-REF       M:EOSN-REF     M:LO-REF       M:UC-REF
          MAXCMBX-REF    MBS-DEF        MODE-REF       NCHAR-REF      OH:NM-REF      OUT%ARG-REF
          OUTSER-REF     OV:NMSZ-REF    PRTBUF-REF     PRTNOF-DEF     REVARG-DEF     SIXBACK-DEF
          SIXPACK-DEF    TERM-REF       TEXTARG-DEF    TOARG-REF      TOVER-REF      UNPRINT-DEF
          UTIL*DEF
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1* AP * 19:33 JUN 03,'85    PCLUT - UTITILTY,DEV/FIL TRAN, FIX/GET/INT/TEXT ARG                   PAGE   22
A  ARGBUFF          587/REF      654/LW       784/LW       922/LI
   ARGBUF4           89/LI       592/REF      916/LI       990/CI      1031/CI      1040/CI      1042/LI
      1047/LI      1069/AI      1071/LI      1111/LI
   ARGTBL            51/REF      251/STW      335/LW       336/STW
   BCD2BIN           35/DEF       92-LI      1113/BAL
   BCD2BIN1          98-LB       122/BDR
   BCD2BIN2         100/BCR      108-AI
   BCD2BIN3         117/BNOV     121-AI
   BCD2BIN4          96/BE       105/B        119/B        125-LW
   BCD2BIN5          99/CLM      131-DATA    1006/CLM
   BCD2BIN6         109/BIR      114-MI
   BIN2BCD           36/DEF      153-PSW      380/BAL
   BIN2BCD1         162-CI       171/BGE
   BIN2BCD2         160/B        165-LI
   BIN2BCD3         163/BE       173-LW
   BOG               56/REF      401/LC
   CCTAB             61/REF      461/CW
   CK%DEVO          807/BE       809/BE       815/B        851-LW
   CK%DEVO0         846/BE       850-LW
   CLOSEI            37/DEF      190-LW
   CLOSEO            38/DEF      219-LW
   CLRARG            42/DEF      249-LI
   CLS%DEV          831/CAL1     874-GEN
   CLSEI            193/CAL1     196-GEN
   CLSEO            222/CAL1     225-GEN
   CMBX             585/REF      624/MTW      625/LW       631/LW       717/LW       854/STW      914/LW
       937/STW     1068/STW
   CMP%NXT          812-CH       814/BDR
   DEL%CT           597/REF      949/MTW      954/XW
   DELIMIT          974/LW      1077-DATA
   DEV%ABN          832-LI       882/DATA     882/DATA
   DEVICE           254/MTW      585/REF      616/CW       630/STW      632/STW      633/STW      639/LW
       644/MTW      727/LW       737/LW       851/LW
   DEVTBL           628/LW       680-DATA     788/CW       850/LW
   DEVTRAN          564-DSECT
   DEVTYPES         839/LH       840/CH       876-GEN
   DEV2             610/BE       612/BE       614/BE       619/BE       630-STW
   DFDV             847/LB       849-DATA
   EDITCNST         731/LW       752-DATA
   ENDDEV           634/B        646-LW
   ENDDEV3G         668/B        671-LW
   ENDDEV3K         650/BNE      672-CI
   ERR              789/BNE      853/BNE      863-AI
   ERROR            584/REF      607/BAL      670/BAL      745/BAL      868/BAL      931/BAL      958/BAL
       988/BAL      994/BAL     1022/BAL     1156/BAL
   ERR34            657/BNE      669-LI
   ERR7             739/BE       741/BE       744-LI
   FILE             586/REF      748/STW      749/STW
   FILTRAN          674/BAL      693-DSECT
   FIXARG           629/BAL      779-DSECT
   FIXA1            795/BNE      797/BNE      803-AI
   FPTDEL           408/CAL1     411/CAL1     414-GEN
   GETARG           627/BAL      637/BAL      652/BAL      723/BAL      910-DSECT
   GUDDEV           802/LB       861-DATA
   GUDOPL           801/LH       860-TEXT
   HA               876/GEN      876/GEN
   HEX2BCD           40/DEF      274-PSW
   HEX2BCD1         278-LI       288/BGE
   HEX2BCD2         282/BG       285-STB
   HEX2BIN           39/DEF       88-LI
   HEX2BIN1         103/BCR      107-AI
   HEX2BIN2         111/BCS      118-LI
   HEX2BIN4         102/CLM      132-DATA    1008/CLM
   IN%ARG           590/REF      666/LI       823/STW
   INSER             58/REF      208/STW
   INTARG          1106-DSECT
   J:JIT             55/REF      794/MTB
   KGC%5            375/BNE      380-BAL
   KGCA%5           334-LW       339/BDR
   KGCB%5           520-SLD      525/B
   KGC0%4           999/BG      1003-STB
   KGC1%4          1007/BCR     1011-AI
   LCCHARS           52/REF     1000/CLM
   LISTPOS           53/REF      397/XW
   LONOVFC          351/CAL1     420-GEN
   LOSPACE           54/REF      399/CAL1
   LTSTCMBX         595/REF      915/STW
   M:DEV            833/AND      872/GEN      874/GEN      881-DSECT
   M:EI              49/REF      190/LW       196/GEN      205/LB
   M:EISN            57/REF      202/LW       207/LW
   M:EO              49/REF      219/LW       225/GEN    229.3/LW       235/LB
   M:EOSN            59/REF      232/LW       237/LW
   M:LO              55/REF      400/LI       406/CW       420/GEN
   M:UC              55/REF      409/LI
   MAXCMBX          594/REF      926/CW      1057/CW
   MBS               41/DEF      309-LB       313/BDR
   MODE             596/REF      662/STW
   NCHAR             90/LW       593/REF     1070/STW     1112/LW      1153/CLR
   NEXTARG          719/BNE      722-LI       743/B        746/B
   NEXT2            720/BDR      725/BG       734-LW
   OH:NM            589/REF      812/CH       838/LH
   OPN%DEV          830/CAL1     872-GEN
   OUT%ARG          591/REF      663/LI       827/STW
   OUTSER            60/REF      238/STW
   OV:NMSZ          589/REF      811/LI
   PCLTYPES         843/LB       876/GEN      878-DATA
   PLSECT            32-CSECT    195/USECT    224/USECT    413/USECT
   PRTBUF            55/REF      419/MTW
   PRTBUFI7         356/ANLZ     388/ANLZ     419-MTW
   PRTNOF            45/DEF      351-CAL1
   PRTNOF1          404/BNE      407/BAZ      409-LI
   PRTNOF2          402/BCR      411-CAL1
   PRTN1            359-AI       368/BNE
   PRTN2            362-LB       372/BE       386/B
   PRTN9            366/BLE      388-ANLZ
   P10              927/BL       935-LB
   P11              946/BNE      951-CI
   P11A             952/BNE      956/BLE      960-CI
   P12              948/BNE      950/B        963-CI
   P15              939/BANZ     961/BNE      969-LW
   P18              980-LI      1030/BE      1041/BNE     1045/BNE
   P19              984-AI      1063/BE
   P20              979/BE       985-AI
   P22              986/BGE      990-CI
   P25              991/BL       997-LB      1024/B
   P26              992/BG       995/B       1005/BNE     1017-AI
   P30             1009/BCS     1021-LI
   P5               926-CW       964/BE       967/B       1019/B       1036/B       1049/B       1065/B
   P7               928-CI       943/BE
   RANGE           1117/BE      1121-LW
   REELNO           636-LI       648/BE
   RETURN           673/BNE      675-LCI      718/CI       750/B        959/B       1119/B       1123/BCR
      1125/B
   RETURN1          977/BL      1026-CI
   RETURN2          933/B        941/BE       982/B       1027/BNE     1029/BL      1060/B       1067-STW
   RETURN3         1032/BNE     1034/BANZ    1037-CI
   RETURN4         1038/BE      1057-CW
   RETURN5         1039/BG      1050-LB
   RETURN6         1052/BE      1056/B       1064-LI
   REVARG            43/DEF      332-LI
   R0                15-EQU      251/STW      633/STW      820/STH
   R1                16-EQU       89/LI        98/LB       121/AI       157/INT      159/LI       169/STB
       170/AI       174/LCW      176/LW       190/LW       191/CW       200/CI       202/LW       203/CI
       205/LB       207/LW       207/LW       208/STW      219/LW       220/CW     229.1/LI     229.2/STW
     229.3/LW       230/CI       232/LW       233/CI       235/LB       237/LW       237/LW       238/STW
       249/LI       253/BDR      279/AND      286/SCS      313/BDR      332/LI       339/BDR      352/LW
       359/AI       369/LI       370/AND      376/STH      377/SCS      382/LB       383/STB      396/LI
       397/XW       400/LI       409/LI       414/GEN      450/LB*      455/LB*      464/LB*      468/LB*
       482/LB*      484/LB*      517/LB       518/AI       602/LI       608/LI       615/LI       616/CW
       626/LI       628/LW       630/STW      631/LW       632/STW      636/LI       638/LW       642/AI
       646/LW       647/CI       649/CI       651/LI       661/LI       662/STW      663/LI       666/LI
       667/STW*     669/LI       671/LW       672/CI       722/LI       731/LW       734/LW       735/CI
       744/LI       781/LW       782/LW       785/CW       787/BDR      800/LI       801/LH       802/LB
       802/LB       803/AI       805/LW       806/CI       808/CI       811/LI       812/CH       814/BDR
       816/LI       828/AI       834/LI       839/LH       840/CH       842/BDR      843/LB       843/LB
       847/LB       851/LW       852/CI       863/AI       865/LB       869/LI       913/LW       920/LI
       924/STW      925/BDR      930/LI       953/LI       954/XW       955/CI       957/LI       974/LW
       975/SLS      976/CI       987/LI       993/LI      1021/LI      1042/LI      1043/LB      1043/LB
      1044/CI      1071/LI      1072/STB     1109/STW     1111/LI      1114/LW      1150/LB      1152/LB
      1155/LB      1155/LB
   R10               25-EQU      919/LI
   R11               26-EQU      128/B*       180/B*       192/BAZ*     201/BAZ*     204/BAZ*     206/BE*
       209/B*       221/BAZ*     231/BAZ*     234/BAZ*     236/BE*      239/B*       255/B*       291/B*
       314/B*       340/B*       353/BE*      354/PSW      380/BAL      425/PLW      426/B*       467/B*
       533/B*       562/B*       607/BAL      627/BAL      629/BAL      637/BAL      643/BAL      652/BAL
       670/BAL      674/BAL      678/B*       718/CI       723/BAL      732/BAL      745/BAL      829/BNE*
       836/BANZ*    844/BNE*     848/B*       864/BNE*     866/BE*      867/PSW      868/BAL      870/PLW
       871/B*       931/BAL      958/BAL      988/BAL      994/BAL     1022/BAL     1075/B*      1113/BAL
      1148/PSW     1156/BAL     1157/PLW     1158/B*
   R12               27-EQU      403/CI       664/CI       798/CI       821/CI       947/CI       951/CI
   R13               28-EQU      724/CI
   R14               29-EQU      452/LW       472/LW
   R15               30-EQU      913/LW       928/CI       938/CI       973/AW       985/AI       989/LI
       998/CI      1004/CI      1028/CI      1033/CI      1035/LI      1037/CI      1046/LI      1064/LI
   R2                17-EQU       90/LW        95/CI       122/BDR      157/INT      158/STH      165/LI
       166/DW       167/AI       169/STB      173/LW       250/LW       251/STW      252/AI       285/STB
       309/LB       311/AI       333/LW       334/LW       335/LW       336/STW      337/STW      338/AI
       362/LB       363/STB      365/CI       367/CI       373/LB       374/CI       389/STB      458/LI
       459/SCS      461/CW       464/LB       471/LW       520/SLD      524/SLS      529/SLS      530/OR
       543/SLD      550/SLD      559/LD       639/LW       640/CI       653/LI       655/SLD      656/AI
       677/CI       781/LW       782/LW*      785/CW*      788/CW       824/LI       826/LI       847/LB
       850/LW       855/LI       856/STW      865/LB       921/LW       924/STW      969/LW       971/SLD
       973/AW       974/LW      1110/STW     1112/LW      1115/LI      1118/LI      1124/LI      1150/LB
      1153/CLR
   R3                18-EQU       98/LB        99/CLM      102/CLM      107/AI       108/AI       116/AW
       125/LW       158/STH      162/CI       176/LW       177/LW       310/STB      312/AI       334/LW
       336/STW      405/LI       406/CW       449/PSM      450/LB       454/AW       455/LB       463/BDR
       466/PLM      468/LB       469/SLS      470/AI       471/LW       474/AW       481/STB      491/AI
       492/STB      517/LB       519/SLS      521/SLS      522/CI       527/AW       544/SLS      545/LW
       551/SLS      552/OR       554/AI       555/AI       557/STB      654/LW       658/SLS      659/CI
       667/STW      727/LW       728/CI       737/LW       738/CI       784/LW       785/CW       790/MTB
       792/SLS      793/SAS      796/CI       801/LH       812/CH       817/CB       819/LI       820/STH
       823/STW      827/STW      832/LI       833/AND      835/CI       837/SLS      838/LH       838/LH
       840/CH       845/CI       857/LI       922/LI       923/AW       924/STW*     970/LI       972/SLS
       975/SLS     1114/LW      1122/CLR     1149/LI      1150/LB      1151/AI      1152/LB      1152/LB
   R4                19-EQU       88/LI        92/LI       101/BIR      104/LI       109/BIR      118/LI
       123/LI       127/CI       155/LW       169/STB      173/LW       174/LCW      175/AI       278/LI
       279/AND      280/AI       281/CI       283/AI       285/STB      309/LB       310/STB      335/LW
       337/STW      381/LCW      381/LCW      382/LB       382/LB       385/BIR      388/ANLZ     393/SLS
       394/SW       395/SLS      416/PZE*     455/LB       456/STB      459/SCS      460/SLS      461/CW
       476/LI       477/STB      478/LI       480/STB      481/STB      484/LB       486/AND      493/SLS
       516/LI       528/BDR      542/PSM      548/LI       549/DW       552/OR       561/PLM      726/LW
       730/AI       731/LW       932/LI       935/LB       940/CI       942/CI       945/CI       960/CI
       962/LI       969/LW       980/LI      1000/CLM     1002/AI      1003/STB     1006/CLM     1008/CLM
      1010/AI      1011/AI      1013/AW      1014/STB     1023/LI      1026/CI      1050/LB      1051/CI
      1053/SLS     1054/STB     1059/LI      1061/LB      1062/CI      1067/STW     1116/CI      1121/LW
      1122/CLR
   R5                20-EQU       93/PSW       94/LI       110/LC       112/SLS      114/MI       116/AW
       125/LW       126/PLW      153/PSW      156/LW       177/LW       179/PLW      274/PSW      276/LI
       285/STB      287/AI       290/PLW      358/SLS      362/LB       364/AI       373/LB       379/AI
       452/LW       453/SCS      454/AW       456/STB      457/AI       472/LW       473/SCS      474/AW
       475/AI       477/STB      479/AI       480/STB      482/LB       484/LB       495/BDR      514/PSM
       515/LI       526/MI       527/AW       530/OR       532/PLM      545/LW       600/PSM      676/PLM
       715/PSM      716/LI       726/LW       740/CI       742/AI       748/STW      912/PSM      916/LI
       990/CI       997/LB      1003/STB     1014/STB     1017/AI      1031/CI      1040/CI      1047/LI
      1048/MTB     1050/LB      1054/STB     1055/AI      1069/AI      1070/STW     1072/STB     1074/PLM
      1108/PSM     1110/STW
   R6                21-EQU      355/PSW      356/ANLZ     357/SLS      361/AI       363/STB      383/STB
       384/AI       389/STB      390/AI       391/LC       394/SW       410/AI       417/PZE*     424/PLW
       483/LI       494/BDR      547/LI       558/BDR      601/LW       603/CI       605/CI       609/CI
       611/CI       613/CI       618/CI       620/CI       622/CI       625/LW       717/LW       720/BDR
       749/STW      854/STW      914/LW       915/STW      926/CW       935/LB       936/AI       937/STW
       981/AI       984/AI      1057/CW      1061/LB      1068/STW     1109/STW     1121/LW
   R7                22-EQU       90/LW        93/PSW*      98/LB*      126/PLW*     153/PSW*     179/PLW*
     229.2/STW      250/LW       254/MTW      274/PSW*     290/PLW*     309/LB*      310/STB*     333/LW
       354/PSW*     355/PSW*     419/MTW      424/PLW*     425/PLW*     449/PSM*     466/PLM*     514/PSM*
       532/PLM*     542/PSM*     561/PLM*     600/PSM*     601/LW       616/CW       624/MTW      625/LW
       630/STW      631/LW       632/STW      633/STW      639/LW       644/MTW      646/LW       654/LW
       662/STW      667/STW      671/LW       676/PLM*     715/PSM*     717/LW       727/LW       734/LW
       737/LW       748/STW      749/STW      784/LW       805/LW       823/STW      827/STW      851/LW
       854/STW      856/STW      867/PSW*     870/PLW*     912/PSM*     914/LW       923/AW       926/CW
       935/LB*      937/STW      949/MTW      954/XW       997/LB*     1003/STB*    1014/STB*    1043/LB*
      1048/MTB*    1050/LB*     1054/STB*    1057/CW      1061/LB*     1067/STW     1068/STW     1070/STW
      1072/STB*    1074/PLM*    1108/PSM*    1112/LW      1148/PSW*    1153/CLR     1157/PLW*
   R8                23-EQU      371/SLD      378/SLD      485/LI       486/AND      487/AI       488/CI
       490/AI       492/STB      546/LW       556/SLD      557/STB      559/LD       917/LI       963/CI
       965/LI       997/LB      1012/SLS     1013/AW      1015/CI      1018/LI
   R9                24-EQU      352/LW       370/AND      376/STH      918/LI       966/LI       978/CI
   SIXBACK           44/DEF      541-LCI
   SIXBACK1         548-LI       558/BDR
   SIXPACK           47/DEF      513-LCI
   SIXPACK1         517-LB       528/BDR
   ST%DCB           804/BNE      817-CB       858/B
   ST%OUT           822/BE       826-LI
   STORE            736/BNE      748-STW
   TERM             585/REF      601/LW       646/LW       671/LW       734/LW       805/LW       856/STW
      1067/STW
   TEXTARG          643/BAL      732/BAL     1147-DSECT
   TOARG             50/REF      334/LW       337/STW
   TOVER           61.1/REF    229.2/STW
   TXTT             817/CB       859-TEXT
   UNPRINT           46/DEF      448-LCI
   UNPX             451/BE       464-LB
   UNP0             465-LCI      496/B
   UNP1             462/BAZ      468-LB
   UNP2             455-LB       463/BDR
   UNP3             483-LI       495/BDR
   UNP4             485-LI       494/BDR
   UTIL              31-DSECT     87/USECT    199/USECT    229/USECT    423/USECT
   %                 91/B        101/BIR      113/B        115/BDP      253/BDR      360/BE       385/BIR
       392/BCR      398/BE       489/BG       523/BLE      553/BE       604/BE       606/BNE      617/BNE
       621/BE       623/BNE      641/BNE      660/BNE      665/BE       729/BNE      786/BE       787/BDR
       791/BG       799/BNE      813/BE       818/BNE      825/B        841/BE       842/BDR      876/GEN
       925/BDR      929/BAZ     1001/BCS     1016/BANZ    1058/BL      1154/BCR
