BANNER TELEFILE,TELE-PCL,PCLRW.
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               RRRRRRRRRRRR     WW         WW
                  PPPPPPPPPPPPP    CCCCCCCCCCCCC    LL               RRRRRRRRRRRRR    WW         WW
                  PP         PP    CC         CC    LL               RR         RR    WW         WW
                  PP         PP    CC               LL               RR         RR    WW         WW
                  PP         PP    CC               LL               RR         RR    WW         WW
                  PPPPPPPPPPPPP    CC               LL               RRRRRRRRRRRRR    WW         WW
                  PPPPPPPPPPPP     CC               LL               RRRRRRRRRRRR     WW   WWW   WW
                  PP               CC               LL               RR      RR       WW  WW WW  WW
                  PP               CC               LL               RR       RR      WW WW   WW WW
                  PP               CC         CC    LL         LL    RR        RR     WWWW     WWWW
                  PP               CCCCCCCCCCCCC    LLLLLLLLLLLLL    RR        RR     WWW       WWW
                  PP                CCCCCCCCCCC     LLLLLLLLLLLLL    RR        RR     WW         WW
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               RRRRRRRRRRRR     WW         WW
                  PPPPPPPPPPPPP    CCCCCCCCCCCCC    LL               RRRRRRRRRRRRR    WW         WW
                  PP         PP    CC         CC    LL               RR         RR    WW         WW
                  PP         PP    CC               LL               RR         RR    WW         WW
                  PP         PP    CC               LL               RR         RR    WW         WW
                  PPPPPPPPPPPPP    CC               LL               RRRRRRRRRRRRR    WW         WW
                  PPPPPPPPPPPP     CC               LL               RRRRRRRRRRRR     WW   WWW   WW
                  PP               CC               LL               RR      RR       WW  WW WW  WW
                  PP               CC               LL               RR       RR      WW WW   WW WW
                  PP               CC         CC    LL         LL    RR        RR     WWWW     WWWW
                  PP               CCCCCCCCCCCCC    LLLLLLLLLLLLL    RR        RR     WWW       WWW
                  PP                CCCCCCCCCCC     LLLLLLLLLLLLL    RR        RR     WW         WW
D
ASSIGN M:CI,(FILE,CI:PCLRW,PCLH00CI),(IN),(SAVE)
ASSIGN M:SI,(FILE,SI:PCLRW,PCLH00SI),(IN),(SAVE)
ASSIGN M:BO,(FILE,BO:PCLRW,PCLH00BO),(OUT),(SAVE)
ASSIGN M:LL,(DEVICE,LO),(OUT)
1* AP * 22:04 JUN 16,'85                                                                          PAGE    1
A      1                      .000  +0                                  Pre-release H02
       2                      .010  H02      SET      1                 DIFFERENTIATE BETWEEN H01/H02
       3                    41.000  +41,41                              Pre-release H01
       4                    78.000  +78,78                              Pre-release H01
       5                    92.000  +92,92                              Pre-release H01
       6                    94.000  +94,95                              Pre-release H01
       7                    94.010           REF      JB:PCW
       8                   108.000  +108,108                            Pre-release H01
       9                   108.010           REF      BCD2BIN
      10                   111.000  +111,111                            Pre-release H01
      11                   247.000  +247,247                            PCL SIDR      31645
      12                   247.010           BNE      %+2               ALLOW PADDING IN FIXED FORMAT
      13                   247.020           LW,R1    INREC
      14                   367.000  +365,372                            Tele-PCL SIDR 4.10H
      15                   367.010        DO          H02
      16                   367.020           LW,R1    0,R1              GET KEY
      17                   367.022           AND,R1   =X'FFFFFF'        STRIP OFF KEY LENGTH
      18                   367.024           LW,R6    R1                SAVE FOR AFTER BIN2BCD
      19                   367.026           BAL,R11  BIN2BCD           CONVERT TO BCD
      20                   367.027           LH,R1    R2                FIRST 2 BYTES OF VALUE
      21                   367.028           SLD,R2   8
      22                   367.030        ELSE
      23                   367.032           LW,R3    0,R1
      24                   367.034           AND,R3   =X'FFFFFF'        GET KEY
      25                   367.040           CW,R3    =9999999          IS IT REALLY AN EDIT KEY
      26                   367.042           BG       WRITE6            NO, USE UNPRINT
      27                   367.044           LW,R1    R3
      28                   367.046           BAL,R11  BIN2BCD           CONVERT TO BCD
      29                   367.048           SLD,R2   8
      30                   367.049           LB,R1    R2                FIRST BYTE OF VALUE
      31                   367.050        FIN
      32                   374.000  +374                                PCL SIDR 4.10H
      33                   374.010           CW,R6    =9999999          IS IT A NORMAL EDIT KEY?
      34                   374.020           BLE      %+2
      35                   374.030           OR,R2    =X'0000F06B'      EDIT NO. TO XXXX,XXX
      36                   576.000  +576,576                            PCL SIDR      31623
      37                   576.010           BAL,R14  56ERRCHK
      38                   619.000  +619,619                            PCL SIDR      31623
      39                   619.010           BAL,R14  56ERRCHK
      40                   624.000  +624,624                            PCL SIDR      31623
      41                   624.010           BE       *R14              IT'S ALL SCRATCH
      42                   626.000  +626,626                            PCL SIDR      31623
      43                   626.010           BG       *R14
      44                   891.000  +891,891                            PCL SIDR      31645
      45                   891.010           CW,R2    WRTFPT+5,R7       ALLOW PADDING IN FIXED FORMAT AT
      46                   999.000  +999,999                            Pre-release H01
      47                  1387.000  +1387                               Pre-release H01
      48                  1387.010           LIST,1   1
      49                  1391.000  +1391
      50                  1391.010           LIST,0   1                 Pre-release H01
      51                  1590.000  +1590,1590                          PCL SIDR      31990
      52                  1590.005           BNE      LABEL
      53                  1590.010           LI,R1    BA(JB:PCW)
      54                  1590.020           LB,R1    0,R1
      55                  1590.030           CI,R1    124
      56                  1590.040           BL       %+2
      57                  1590.050  LABEL    EQU,0    %
      58                  9000.000  +END                                Pre-release H01
1* AP * 22:04 JUN 16,'85    PCLRW - RDWRT, HEXDUMP                                                PAGE    2
A       1*        00000001           H02      SET      1                 DIFFERENTIATE BETWEEN H01/H02
1* AP * 22:04 JUN 16,'85    PCLRW - RDWRT, HEXDUMP                                                PAGE    3
A       1                                     TITLE    'PCLRW - RDWRT, HEXDUMP'
        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*      RDWRT    READ M:EI / WRITE M:EO
       15   04 00000                 RDWRT    DSECT    1
       16                            *
       17         00000000           R0       EQU      0
       18         00000001           R1       EQU      1
       19         00000002           R2       EQU      2
       20         00000003           R3       EQU      3
       21         00000004           R4       EQU      4
       22         00000005           R5       EQU      5
       23         00000006           R6       EQU      6
       24         00000007           R7       EQU      7
       25         00000008           R8       EQU      8
       26         00000009           R9       EQU      9
       27         0000000A           R10      EQU      10
       28         0000000B           R11      EQU      11
       29         0000000C           R12      EQU      12
       30         0000000D           R13      EQU      13
       31         0000000E           R14      EQU      14
       32         0000000F           R15      EQU      15
       33                            *
       34         00000002           CEOL     EQU      2
       35         00000003           CEOF     EQU      3
       36         00000004           CNEXT8   EQU      4
       37         00000005           CNBC1    EQU      5
       38         00000006           CNBC65   EQU      6
       39         00000007           CBLANK   EQU      7
       40         00000360           COBTOTAL EQU      108*8             MAX BIT COUNT OF CO RECORD
       42                                     SYSTEM   SIG7
       43                            *
       44                            *P*      NAME:    RDWRT
       45                            *P*
       46                            *P*      PURPOSE: THIS ROUTINE ISSUES THE READ AND WRITE CALS THAT
       47                            *P*               PERFORM A FILE COPY.  ALL OF THE MULTIPLE REEL LOGIC
       48                            *P*               IS CONTAINED IN THIS ROUTINE.
       49                            *P*
       50                            *DO*
       51                            *P*
       52                            *
       53                            * INPUT
       54                            *        M:EI     INPUT DCB
       55                            *        M:EO     OUTPUT DCB
       56                            *        TOARG    OUTPUT ARGUMENT TABLE
       57                            *        ARGTBL   INPUT ARGUMENT TABLE
       58                            *        IOBUF    I/O BUFFER
       59                            * OUTPUT
       60                            *        RDFPT    READ FPT
       61                            *        WRTFPT   WRITE FPT
       62                            *        TOSWT    DEFINED -TO-SWITCH
       63                            *        COMPLETE DEVICE/FILE COPY
       64                            *
       65                            *FIN*
       66                                     DEF      RDWRTX            ENTRY TO GET LAST CO RECORD
       67                                     DEF      LCCHARS
       68                            *
       69                                     REF      SUPERR            IGNORE ERRORS FLAG
       70                                     REF      HEX2BCD
       71                                     REF      INCRPT            INPUT ENCRYPTION SEED ADDRESS
       72                                     REF      OUTCRPT           OUTPUT ENCRYPTION SEED ADDRESS
       73                                     REF      M:C,M:EI,M:EO
       74                                     REF      IOABORTS
       75                                     REF      DELETEF           CARRIAGE POSITION FLAG FOR READ ONE
       76                                     REF      CMBX              TO SET % POSITION FOR ERRORS
       77                                     REF      ERROR
       79                                     REF      BLKFIX
       80                                     REF      ARGBUFF           TEMP STORAGE
       81                                     REF      PRTNOF            EOD AFTER N
       82                                     REF      TOARG,TOSWT,RDFPT,WRTFPT,IOBUF
       83                                     REF      RECNUM
       84                                     REF      READONE
       85                                     REF      PRTBUF
       86                                     REF      CODE
       87                                     REF      CARDSEQ
       88                                     REF      BIN2BCD
       89                                     REF      TABSET
       90                                     REF      MODE
       91                                     REF      RSSAVE
       93                                     REF      BREAK
        1*                                    REF      JB:PCW
       96                                     REF      CCTAB
       97                                     REF      SELECT
       98                                     REF      M:UC,M:LO
       99                                     REF      DEVICE
      100                                     REF      COPYSK
      101                                     REF      GRANCNT
      102                                     REF      PRNTBUF,UNPRINT
      103                                     REF      BLKBUFF
      104                                     REF      OUTBLK
      105         00000001 S         OUTREC   EQU      OUTBLK+1
      106         00000002 S         OUTFMT   EQU      OUTBLK+2
      107                                     REF      BLKIN
        1*                                    REF      BCD2BIN
      109                                     REF      UNBADR,BLKSIZE
      110                                     REF      NPAGE
      112                            *        COMPRESSING/DECOMPRESSING DATA
      113         00000022 S         CIWORD   EQU      PRNTBUF+34
      114         00000023 S         CIBUSED  EQU      PRNTBUF+35
      115         00000024 S         CIBLEFT  EQU      PRNTBUF+36
      116         00000025 S         CIBTOTAL EQU      PRNTBUF+37
      117         00000026 S         CISEQ    EQU      PRNTBUF+38
      118         00000027 S         RECSIZE  EQU      PRNTBUF+39
      119         00000028 S         COWORD   EQU      PRNTBUF+40
      120         00000029 S         COBUSED  EQU      PRNTBUF+41
      121         0000002A S         COBLEFT  EQU      PRNTBUF+42
      122         0000002B S         ERRCODE  EQU      PRNTBUF+43
      123         0000002C S         INBLK    EQU      PRNTBUF+44
      124         0000002D S         INREC    EQU      PRNTBUF+45
      125         0000002E S         INFMT    EQU      PRNTBUF+46
      126         0000002F S         OUTBUF   EQU      PRNTBUF+47
      127                            *
      128   04 00000    02200070 A            LCI      7                 SAVE REGISTERS
      129   04 00001    8B500007 A            PSM,R5   *R7
      130   04 00002    02200040 A            LCI      4
      131   04 00003    2A100247              LM,R1    IRDFPT
      132   04 00004    2B1E0000 X            STM,R1   RDFPT,R7
      133   04 00005    2A10024B              LM,R1    IWRTFPT
      134   04 00006    2B1E0000 X            STM,R1   WRTFPT,R7
      135   04 00007    6B100004 X            INT,R1   M:EO+4            IF WE'VE BEEN HERE
      136   04 00008    211001ED              CI,R1    EOERR             DON'T CLOBBER COWORD
      137   04 00009    6830000B              BE       %+2
      138   04 0000A    35000028 X            STW,R0   COWORD
      139   04 0000B    35000000 X            STW,R0   GRANCNT
      140   04 0000C    321E0002 X            LW,R1    DEVICE+2,R7       SET % AT INPUT
      141   04 0000D    351E0000 X            STW,R1   CMBX,R7
      142   04 0000E    32400007 A            LW,R4    R7                INPUT CRPT FLAG DISP
      143   04 0000F    22100235              LI,R1    SETEI             OPEN DCBS IF CLOSED, SET ERR/ABN/CRPT
      144   04 00010    22200020 A   OPNDCB0  LI,R2    X'20'
      145   04 00011    32320000 A            LW,R3    0,R1
      146   04 00012    D1200003 A            CH,R2    *R3
      147   04 00013    69400016              BANZ     %+3
      148   04 00014    32220002 A            LW,R2    2,R1              ERROR ADDRESS
      149   04 00015    04100243              CAL1,1   OPNI3             OPEN IT UP
      150   04 00016    22300400 A            LI,R3    X'400'            CHECK FOR CRPT OPTION
      151   04 00017    4B380000 X            AND,R3   MODE,R4
      152   04 00018    6830001A              BE       %+2
      153   04 00019    32320005 A            LW,R3    5,R1              GET CRPT ADDR FROM FPT+1
      154   04 0001A    20400000 N            AI,R4    TOARG-DEVICE      OUTPUT SECOND
      155   04 0001B    04120000 A            CAL1,1   0,R1
      156   04 0001C    20180006 A            AI,R1    SETEO-SETEI+X'80000'
      157   04 0001D    68800010              BNC      OPNDCB0
      158   04 0001E    68000021              B        %+3
      159   04 0001F    02200070 A   RDWRTX   LCI      7                 SAVE REGS
      160   04 00020    8B500007 A            PSM,R5   *R7
      161   04 00021    22200000 N            LI,R2    BLKIN             SET UP INPUT DEBLOCKING
      162   04 00022    22300070 A            LI,R3    X'70'             USE INPUT IF ANS TAPE
      163   04 00023    4B300005 X            AND,R3   M:EI+5
      164   04 00024    2530007C A            SLS,R3   -4
      165   04 00025    326E0000 X            LW,R6    DEVICE,R7
      166   04 00026    6AA00000 X            BAL,R10  BLKFIX
      167   04 00027    02200030 A            LCI      3
      168   04 00028    2B30002C X            STM,R3   INBLK
      169   04 00029    22200000 N            LI,R2    IOBUF             ADD I/O BUFFER
      170   04 0002A    30200007 A            AW,R2    R7
      171   04 0002B    3300002E X            MTW,0    INFMT             IF BLOCKING OR DEBLOCKING
      172   04 0002C    68300031              BE       READ41            ADJUST FOR MULTIPLE BUFFERS
      173   04 0002D    20200040 A            AI,R2    64                LEAVE A HOLE IF UNBLOCKING
      174   04 0002E    3210002C X            LW,R1    INBLK             INPUT MAX BLOCK SIZE
      175   04 0002F    20100000 A            AI,R1    0
      176   04 00030    69300032              BNE      %+2
      177   04 00031    22100800 A   READ41   LI,R1    2048              DEFAULT BUFFER
      178   04 00032    31100001 X            CW,R1    OUTREC            BUFFER MUST BE AT LEAST
      179   04 00033    68100035              BGE      %+2               OUTPUT RECORD SIZE
      180   04 00034    32100001 X            LW,R1    OUTREC
      181   04 00035    33000002 X            MTW,0    OUTFMT            ARE WE BLOCKING
      182   04 00036    6830003D              BE       READ42            NO
      183   04 00037    75000000 X            STB,R0   OUTBLK            CLEAR POSSIBLE BLKLAST FLAG
      184   04 00038    3520002F X            STW,R2   OUTBUF            SAVE BUFFER ADDR FOR THE BLOCKER
      185   04 00039    32300000 X            LW,R3    OUTBLK            PUT OUTPUT BUFFER BELOW INPUT
      186   04 0003A    20300003 A            AI,R3    3                 SO INPUT CAN EXPAND
      187   04 0003B    2530007E A            SLS,R3   -2
      188   04 0003C    30200003 A            AW,R2    R3
      189   04 0003D    351E0005 X   READ42   STW,R1   RDFPT+5,R7        INPUT BUFFER SIZE
      190   04 0003E    352E0004 X            STW,R2   RDFPT+4,R7        AND LOC
      191   04 0003F    201FF7FF A            AI,R1    -2049             ROUND UP TO NEXT PAGE
      192   04 00040    2510047E A            SAS,R1   -2                GET END OF BUFFER
      193   04 00041    30100002 A            AW,R1    R2
      194   04 00042    38100007 A            SW,R1    R7
      195   04 00043    25100077 A            SLS,R1   -9
      196   04 00044    04800234              CAL1,8   GETPG
      197   04 00045    358E0000 X            STW,R8   NPAGE,R7          SAVE # PAGES GOTTEN
      198   04 00046    6980016C              BCS,8    EOF11             CAN'T DO IT
      199   04 00047    3220000A X            LW,R2    M:EI+10
      200   04 00048    22100004 A            LI,R1    4
      201   04 00049    311E000A X            CW,R1    TOARG+10,R7       LN OPTION SPECIFIED
      202   04 0004A    6930004C              BNE      READ40            NO
      203   04 0004B    442004E7              ANLZ,R2  KEYADR
      204   04 0004C    352E0006 X   READ40   STW,R2   WRTFPT+6,R7       SET KEY ADDR IN WRITE FPT
      205   04 0004D    35000000 X            STW,R0   UNBADR            INITIALIZE FOR UNBLOCKING
      206   04 0004E    32200002 X            LW,R2    OUTFMT            AND FOR BLOCKING
      207   04 0004F    3500002B X            STW,R0   ERRCODE           AND ERROR CODE FOR COPYALL/STD
      208   04 00050    5224028F              LH,R2    BLKOVH,R2
      209   04 00051    35200000 X            STW,R2   BLKBUFF
      210   04 00052    321E0000 X            LW,R1    SELECT,R7
      211   04 00053    351E0000 X            STW,R1   RSSAVE,R7         SAVE COUNT OF REC SELECTIONS
      212   04 00054    69300057              BNE      %+3               NO BLOCK IF NO SELECTION
      213   04 00055    73100001 A            MTB,1    R1
      214   04 00056    470E0001 X            STS,R0   RDFPT+1,R7
      215   04 00057    22900001 N            LI,R9    SELECT+1          INITIALIZE RS TABLE INDEX
      216   04 00058    350E0000 X   READ4    STW,R0   RECNUM,R7         ZERO RECORD NUMBER COUNT
      217   04 00059    35000026 X            STW,R0   CISEQ             AND DECOMPRESSING INFO
      218   04 0005A    35000022 X            STW,R0   CIWORD
      219   04 0005B    322E0004 X            LW,R2    RDFPT+4,R7        SET PROBABLE RECORD ADDRESS
      220   04 0005C    352E0004 X            STW,R2   WRTFPT+4,R7
      221   04 0005D    25200002 A            SLS,R2   2
      222   04 0005E    352E0007 X            STW,R2   WRTFPT+7,R7
      223   04 0005F    22100020 A            LI,R1    X'20'             IF EI IS CLOSED, MUST BE RDWRTX CALL
      224   04 00060    51100000 X            CH,R1    M:EI
      225   04 00061    68400405              BAZ      RDWRTX1
      226                            *
      227   04 00062    22600000 A   READ0    LI,R6    0                 CLEAR EOD COUNTER
      228   04 00063    32100615     READ1    LW,R1    ='    '           BLANK BUFFER
      229   04 00064    22300022 A            LI,R3    34
      230   04 00065    322E0004 X            LW,R2    RDFPT+4,R7
      231   04 00066    B5160002 A            STW,R1   *R2,R3
      232   04 00067    64300066              BDR,R3   %-1
      233   04 00068    35140000 A            STW,R1   0,R2              INITIALIZE FIRST WORD
      234   04 00069    041E0000 X            CAL1,1   RDFPT,R7          READ INPUT RECORD
      235   04 0006A    33000000 X   READ14   MTW,0    GRANCNT           IF ABORTING C DEVICE COPY, READ
      236   04 0006B    69300063              BNE      READ1             UNTIL ABN OCCURS
      237   04 0006C    32300004 X            LW,R3    M:EI+4            TRANSFER RECORD SIZE TO WRITE FPT
      238   04 0006D    2530006F A            SLS,R3   -17
      239   04 0006E    2210000F A            LI,R1    X'F'
      240   04 0006F    4B100000 X            AND,R1   M:EI              GET ASN FROM DCB
      241   04 00070    21100002 A            CI,R1    2                 IS IT DEVICE OR ANS
      242   04 00071    69200073              BG       %+2               YES
      243   04 00072    3230000D X            LW,R3    M:EI+13           NO - GET SIZE FROM RWS WORD
      244   04 00073    353E0005 X            STW,R3   WRTFPT+5,R7       SET RECORD SIZE
      245   04 00074    3210002E X            LW,R1    INFMT
      246   04 00075    52120291              LH,R1    RECOVH,R1
        1*  04 00076    69300078              BNE      %+2               ALLOW PADDING IN FIXED FORMAT
        2*  04 00077    3210002D X            LW,R1    INREC
      248   04 00078    38300001 A            SW,R3    R1
      249   04 00079    20300001 A            AI,R3    1
      250   04 0007A    35300000 X            STW,R3   BLKSIZE           SET TO SIZE OF INPUT
      251   04 0007B    6AB002AF     READ29   BAL,R11  UNBLK             OUTPUT NOT ANS - GO UNBLOCK
      252   04 0007C    22300003 A            LI,R3    3                 IF CI, DECOMPRESS
      253   04 0007D    313E0000 X            CW,R3    CODE,R7
      254   04 0007E    6830035B              BE       DECOMP0
      255   04 0007F    32300001 X   READ28   LW,R3    OUTREC            IF OUT SIZE SHOULD BE FIXED,
      256   04 00080    68300084              BE       KGC0%4
      257   04 00081    313E0005 X            CW,R3    WRTFPT+5,R7       FIX IT.
      258   04 00082    68100084              BGE      %+2               BUT DONT PAD 'TIL MASSAGING IS DONE
      259   04 00083    353E0005 X            STW,R3   WRTFPT+5,R7
      260   04 00084    22300006 A   KGC0%4   LI,R3    6                 SET EOF CODE
      261   04 00085    331E0000 X            MTW,1    RECNUM,R7
      262   04 00086    330E0000 X            MTW,0    RSSAVE,R7         ANY RS OPTIONS IN EFFECT
      263   04 00087    683000B3              BE       READ2             NO
      264   04 00088    32100009 A            LW,R1    R9                GET X-Y POINTER
      265   04 00089    322E0000 X            LW,R2    RECNUM,R7         GET CURRENT REC. NO.
      266   04 0008A    B1220007 A            CW,R2    *R7,R1            COMPARE WITH X VALUE
      267   04 0008B    6910009B              BL       READ17            NOT IN RANGE
      268   04 0008C    20100001 A            AI,R1    1                 STEP TO Y VALUE
      269   04 0008D    B1220007 A            CW,R2    *R7,R1            COMPARE
      270   04 0008E    691000B3              BL       READ2             IN RANGE
      271   04 0008F    69200092              BG       %+3               OUT, CHECK NEXT
      272   04 00090    73F00009 A            MTB,-1   R9                LAST, SET FLAG
      273   04 00091    680000B3              B        READ2             AND WRITE
      274   04 00092    33FE0000 X            MTW,-1   RSSAVE,R7         COUNT DOWN
      275   04 00093    68300157              BE       EOD2              ALL DONE
      276   04 00094    75000009 A            STB,R0   R9                CLEAR LAST FLAG
      277   04 00095    20900002 A            AI,R9    2                 POINT INDEX TO NEXT PAIR
      278   04 00096    B12E0009 A            CW,R2    *R9,R7            MUST FILE BE REPOSITIONED.
      279   04 00097    6910009B              BL       READ17            NO
      280   04 00098    683000B3              BE       READ2             GO WRITE RECORD
      281   04 00099    0410025B     READ3    CAL1,1   PFIL              POSITION TO BOF
      282   04 0009A    68000058              B        READ4
      283   04 0009B    B23E0009 A   READ17   LW,R3    *R9,R7
      284   04 0009C    203FFFFF A            AI,R3    -1                IS PRECORD NEEDED
      285   04 0009D    22100003 A            LI,R1    3
      286   04 0009E    311E0000 X            CW,R1    CODE,R7           IF COMPRESSED, DECOMPRESS
      287   04 0009F    68300130              BE       WRITEX
      288   04 000A0    3300002E X            MTW,0    INFMT             IF BLOCKED, NO PRECORD
      289   04 000A1    69300130              BNE      WRITEX
      290   04 000A2    2210000F A            LI,R1    15
      291   04 000A3    4B100000 X            AND,R1   M:EI
      292   04 000A4    21100003 A            CI,R1    3
      293   04 000A5    68100063              BGE      READ1             NOT DEVICES
      294   04 000A6    383E0000 X            SW,R3    RECNUM,R7         COMPUTE NO. OF RECS TO SKIP
      295   04 000A7    68300063              BE       READ1             NONE
      296   04 000A8    22200064 A            LI,R2    100
      297   04 000A9    21300064 A   READ23   CI,R3    100               IS THIS THE LAST ONE
      298   04 000AA    692000AC              BG       %+2
      299   04 000AB    32200003 A            LW,R2    R3
      300   04 000AC    662E0000 X            AWM,R2   RECNUM,R7
      301   04 000AD    04100224              CAL1,1   PREC2
      302   04 000AE    33000000 X            MTW,0    BREAK
      303   04 000AF    69300130              BNE      WRITEX
      304   04 000B0    203FFF9C A            AI,R3    -100
      305   04 000B1    692000A9              BG       READ23
      306   04 000B2    68000063              B        READ1             GO READ
      307   04 000B3    323E0005 X   READ2    LW,R3    WRTFPT+5,R7       LOAD RECORD LENGTH.
      308   04 000B4    2130008C A            CI,R3    140               IS THE RECORD A REASONABLE LENGHT
      309   04 000B5    692000BD              BG       READ52            NO, DONT TRY THIS STUFF
      310   04 000B6    6AB002FB              BAL,R11  NCCHK             CHECK FOR NC OPTION
      311   04 000B7    321E0008 X            LW,R1    TOARG+8,R7
      312   04 000B8    2110FF00 A            CI,R1    X'FF00'           WAS TX OPTION SPECIFIED
      313   04 000B9    684000BD              BAZ      READ52            NO
      314   04 000BA    321E0004 X            LW,R1    WRTFPT+4,R7       GET BUFFER ADDRESS
      315   04 000BB    38100007 A            SW,R1    R7                AS A DISPLAVEMENT
      316   04 000BC    6AB004ED              BAL,R11  TABEXP            EXPAND TABS
      317   04 000BD    6AB00473     READ52   BAL,R11  NBCHK             TRUNCATE BLANKS
      318   04 000BE    32300001 X            LW,R3    OUTREC            FIX RECORD SIZE IF FIXED
      319   04 000BF    683000C1              BE       %+2
      320   04 000C0    353E0005 X            STW,R3   WRTFPT+5,R7
      321   04 000C1    6AB00406              BAL,R11  COMPRESS
      322   04 000C2    322E0006 X   WRITE0   LW,R2    TOARG+6,R7        IS BIN/BCD SPECIFIED
      323   04 000C3    72300002 A            LB,R3    R2
      324   04 000C4    25300003 A            SLS,R3   3
      325   04 000C5    693000D6              BNE      WRITE01           YES, (BIN=X10)GO TO SEQID'ER WITH FLAG
      326   04 000C6    322E0007 X            LW,R2    WRTFPT+7,R7       GET FIRST BYTE OF RECORD
      327   04 000C7    72240000 A            LB,R2    0,R2
      328   04 000C8    22304000 A            LI,R3    X'4000'           SAVE FBCD STATE
      329   04 000C9    4B300000 X            AND,R3   M:EO
      330   04 000CA    25300077 A            SLS,R3   -9
      331   04 000CB    20300010 A            AI,R3    X'10'             BIN BIT
      332   04 000CC    22100004 A            LI,R1    4                 CHECK STANDARD BIN VALUES
      333   04 000CD    71220359              CB,R2    BINVAL,R1
      334   04 000CE    683000D1              BE       %+3
      335   04 000CF    641000CD              BDR,R1   %-2
      336   04 000D0    203FFFF0 A            AI,R3    -X'10'            SET BCD
      337   04 000D1    322E0000 X            LW,R2    TOARG,R7          IF NOT CP...
      338   04 000D2    2120000A A            CI,R2    10
      339   04 000D3    693000D6              BNE      WRITE01
      340   04 000D4    32200358              LW,R2    SETBINBCD
      341   04 000D5    04100002 A            CAL1,1   R2
      342   04 000D6    321E000A X   WRITE01  LW,R1    TOARG+10,R7       TEST IF ANY SEQUENCING WANTED
      343   04 000D7    69320324              BNE      SEQID,R1          BR TO APPROPRIATE ROUTINE IF YES
      344   04 000D8    6AB00262     WRITE2   BAL,R11  BLKTEST           TEST IF BLOCKING WANTED
      345   04 000D9    22B00130              LI,R11   WRITEX            NO, SET RETURN FROM HEXDUMP
      346   04 000DA    22500006 A            LI,R5    6
      347   04 000DB    315E0005 X            CW,R5    TOARG+5,R7        IS THERE AN 'X' PRESENT
      348   04 000DC    68300570              BE       HEXDUMP           YES, GO DO IT
      349   04 000DD    321E0008 X            LW,R1    TOARG+8,R7
      350   04 000DE    31100616              CW,R1    =X'00FF0000'      IS K OPTION PRESENT
      351   04 000DF    68400115              BAZ      WRITE1            NO
      352   04 000E0    325E0007 X            LW,R5    WRTFPT+7,R7       SET BYTE ADDR FOR PRECEDERS
      353   04 000E1    223000F0 A            LI,R3    X'F0'
      354   04 000E2    22200020 A            LI,R2    X'20'
      355   04 000E3    45200005 X            CS,R2    M:EI+5            IS FILE KEYED
      356   04 000E4    693000FE              BNE      WRITE5            NO
      357   04 000E5    2210000F A            LI,R1    X'F'              MUST BE FILE OR LABEL
      358   04 000E6    4B100000 X            AND,R1   M:EI
      359   04 000E7    21100003 A            CI,R1    3
      360   04 000E8    681000FE              BGE      WRITE5
      361   04 000E9    3210000A X            LW,R1    M:EI+10           KEY ADDRESS
      362   04 000EA    7220000C X            LB,R2    M:EI+12           GET KEY MAX
      363   04 000EB    21200003 A            CI,R2    3                 IS IT A 3-BYTE KEY
      364   04 000EC    6930010D              BNE      WRITE6            NO
        1*        00000001                 DO          H02
        2*  04 000ED    32120000 A            LW,R1    0,R1              GET KEY
        3*  04 000EE    4B100617              AND,R1   =X'FFFFFF'        STRIP OFF KEY LENGTH
        4*  04 000EF    32600001 A            LW,R6    R1                SAVE FOR AFTER BIN2BCD
        5*  04 000F0    6AB00000 X            BAL,R11  BIN2BCD           CONVERT TO BCD
        6*  04 000F1    52100002 A            LH,R1    R2                FIRST 2 BYTES OF VALUE
        7*  04 000F2    25200108 A            SLD,R2   8
        8*                                 ELSE
        9*                       *S*          LW,R3    0,R1
       10*                       *S*          AND,R3   =X'FFFFFF'        GET KEY
       11*                       *S*          CW,R3    =9999999          IS IT REALLY AN EDIT KEY
       12*                       *S*          BG       WRITE6            NO, USE UNPRINT
       13*                       *S*          LW,R1    R3
       14*                       *S*          BAL,R11  BIN2BCD           CONVERT TO BCD
       15*                       *S*          SLD,R2   8
       16*                       *S*          LB,R1    R2                FIRST BYTE OF VALUE
       17*                                 FIN
      373   04 000F3    25200008 A            SLS,R2   8
      374   04 000F4    49200618              OR,R2    =X'0000F04B'      EDIT NO. TO XXXX.XXX
        1*  04 000F5    31600619              CW,R6    =9999999          IS IT A NORMAL EDIT KEY?
        2*  04 000F6    682000F8              BLE      %+2
        3*  04 000F7    4920061A              OR,R2    =X'0000F06B'      EDIT NO. TO XXXX,XXX
      375   04 000F8    4930061B              OR,R3    =X'F0F0F040'
      376   04 000F9    205FFFF7 A            AI,R5    -9
      377   04 000FA    22400009 A            LI,R4    9
      378   04 000FB    75400005 A            STB,R4   R5
      379   04 000FC    614FFFFE A            MBS,R4   -2                MOVE IT ON
      380   04 000FD    205FFFF7 A            AI,R5    -9                BACK TO START
      381   04 000FE    321E0000 X   WRITE5   LW,R1    RECNUM,R7         GET RECORD NUMBER
      382   04 000FF    6AB00000 X            BAL,R11  BIN2BCD           CONVERT TO BCD
      383   04 00100    3240061C              LW,R4    =' -  '
      384   04 00101    2210000A A            LI,R1    10
      385   04 00102    205FFFFF A            AI,R5    -1
      386   04 00103    72B20002 A            LB,R11   R2,R1
      387   04 00104    75BA0000 A            STB,R11  0,R5
      388   04 00105    64100102              BDR,R1   %-3
      389   04 00106    465E0007 X            XW,R5    WRTFPT+7,R7
      390   04 00107    385E0007 X            SW,R5    WRTFPT+7,R7
      391   04 00108    665E0005 X            AWM,R5   WRTFPT+5,R7
      392   04 00109    325E0007 X            LW,R5    WRTFPT+7,R7
      393   04 0010A    2550047E A            SAS,R5   -2
      394   04 0010B    355E0004 X            STW,R5   WRTFPT+4,R7
      395   04 0010C    68000115              B        WRITE1
      396                            *
      397   04 0010D    12200228     WRITE6   LD,R2    KEYX
      398   04 0010E    15200000 X            STD,R2   PRNTBUF
      399   04 0010F    22E00001 N            LI,R14   PRNTBUF+1
      400   04 00110    6AB00000 X            BAL,R11  UNPRINT           ENTER KEY IN BUFFER
      401   04 00111    0410022A              CAL1,1   PRINT1            WRITE BLANK LINE
      402   04 00112    20200005 A            AI,R2    5                 LENGTH OF PRINT LINE
      403   04 00113    20EFFFFF A            AI,R14   -1                COMPUTE BUFFER ADDRESS
      404   04 00114    0410022F              CAL1,1   PRINT2            PRINT KEY
      405   04 00115    322E0005 X   WRITE1   LW,R2    WRTFPT+5,R7       WRITE NULL RECORD
      406   04 00116    69300120              BNE      WRITE11           ONLY IF NOT DEVICE
      407   04 00117    22200003 A            LI,R2    3                 OR CONSECUTIVE FILE
      408   04 00118    4B200000 X            AND,R2   M:EO
      409   04 00119    21200002 A            CI,R2    2
      410   04 0011A    6920011F              BG       WRITE11-1
      411   04 0011B    69400120              BANZ     WRITE11
      412   04 0011C    32200005 X            LW,R2    M:EO+5
      413   04 0011D    21200020 A            CI,R2    X'20'
      414   04 0011E    69400120              BANZ     WRITE11
      415   04 0011F    331E0005 X            MTW,1    WRTFPT+5,R7       WONT WORK, WRITE 1 BYTE
      416   04 00120    041E0000 X   WRITE11  CAL1,1   WRTFPT,R7         WRITE THE RECORD
      417   04 00121    322E0000 X            LW,R2    TOARG,R7
      418   04 00122    21200009 A            CI,R2    9                 IS OUTPUT TO LP
      419   04 00123    69300130              BNE      WRITEX            NOPE, ALL DONE
      420   04 00124    22300100 A            LI,R3    X'100'
      421   04 00125    31300000 X            CW,R3    M:EO              CHECK IF VFC OPTION SPECIFIED.
      422   04 00126    69400130              BANZ     WRITEX
      423   04 00127    22300084 A            LI,R3    132               SHOULD BE LW,R3 M:EO+4
      424   04 00128    25300000 A            SLS,R3   0                 SLS,R3 -17
      425   04 00129    663E0007 X            AWM,R3   WRTFPT+7,R7       SET NEW BTD, BA(BUF)
      426   04 0012A    322E0007 X            LW,R2    WRTFPT+7,R7       NEW WA(BUFFER)
      427   04 0012B    2520007E A            SLS,R2   -2
      428   04 0012C    352E0004 X            STW,R2   WRTFPT+4,R7
      429   04 0012D    3A300003 A            LCW,R3   R3
      430   04 0012E    663E0005 X            AWM,R3   WRTFPT+5,R7       IS THERE MORE TO DO
      431   04 0012F    69200115              BG       WRITE1            YUP
      432   04 00130    31A0025B     WRITEX   CW,R10   PFIL              ARE ON LAST REC OF TAPE
      433   04 00131    683001EF              BE       IOERR1            YUP, GIVE 1C ABN NOW
      434   04 00132    324E0004 X            LW,R4    RDFPT+4,R7        SET OUT TO IN
      435   04 00133    354E0004 X            STW,R4   WRTFPT+4,R7
      436   04 00134    25400002 A            SLS,R4   2
      437   04 00135    354E0007 X            STW,R4   WRTFPT+7,R7
      438   04 00136    6B200028 X            INT,R2   COWORD            IF COMPRESSING, FINISH
      439   04 00137    642004B0              BDR,R2   COMPNXT           THIS RECORD
      440   04 00138    69800260              BCS,8    EOF8              LAST RECORD JUST DONE
      441   04 00139    6AB00329              BAL,R11  BRCHK             CHECK BREAK FLAG
      442   04 0013A    322E0000 X            LW,R2    RSSAVE,R7         IF SELECTING..
      443   04 0013B    6420013E              BDR,R2   %+3               AND LAST RANGE..
      444   04 0013C    73000009 A            MTB,0    R9                AND LAST OF IT..
      445   04 0013D    69300403              BNE      COMPLAST          QUIT.
      446   04 0013E    33000022 X            MTW,0    CIWORD            IF DECOMPRESSING,
      447   04 0013F    693003A8              BNE      DECOMPR           EXTRACT THE NEXT RECORD
      448   04 00140    33000000 X   READN    MTW,0    UNBADR            ARE WE UNBLOCKING ANS
      449   04 00141    6930007B              BNE      READ29
      450   04 00142    68000062              B        READ0
      451                            *
      452   04 00143    5A300004 X   EOF7     LCH,R3   M:EI+4            ADJUST RECNUM
      453   04 00144    2530047F A            SAS,R3   -1
      454   04 00145    663E0000 X            AWM,R3   RECNUM,R7
      455   04 00146    7230000A A   RDABN    LB,R3    R10               GET ABNORMAL CODE
      456   04 00147    21300006 A            CI,R3    6                 EOF ENCOUNTERED
      457   04 00148    68300157              BE       EOD2              YES
      458   04 00149    21300005 A            CI,R3    5                 EOD THEN
      459   04 0014A    6930015D              BNE      EOF1              NO
      460   04 0014B    22500003 A   EOD1     LI,R5    3
      461   04 0014C    45500000 X            CS,R5    M:EO              ONLY WRITE EODS TO DEVICES
      462   04 0014D    69300157              BNE      EOD2              NO
      463   04 0014E    321E0003 X            LW,R1    MODE+3,R7
      464   04 0014F    211000FF A            CI,R1    X'FF'             TEST FOR DEOD OPTION
      465   04 00150    69400157              BANZ     EOD2              YES
      466   04 00151    22500006 A            LI,R5    6                 IS THIS HEXDUMP
      467   04 00152    315E0005 X            CW,R5    TOARG+5,R7
      468   04 00153    68300156              BE       %+3               YES, WRITE MESSAGE
      469   04 00154    04100216              CAL1,1   WEOF              NO, WRITE TAPEMARK/!EOD
      470   04 00155    68000157              B        EOD2
      471   04 00156    0410024F              CAL1,1   FPTEOD            YES-INDICATE --EOD-- ENCOUNDED
      472   04 00157    30600003 A   EOD2     AW,R6    R3                3 HAS 5 OR 6, 6 HAS 0 OR 1
      473   04 00158    21600005 A            CI,R6    5                 SO 6 IS 6 OR 7 UNLESS FIRST EOD
      474   04 00159    6920018D              BG       EOF5
      475   04 0015A    330E0000 X            MTW,0    RSSAVE,R7         ANY MORE RECORD SELECTIONS
      476   04 0015B    6930018F              BNE      EOF5+2            YES
      477   04 0015C    68000063              B        READ1
      478                            *
      479   04 0015D    21300007 A   EOF1     CI,R3    7                 TEST FOR LOST DATA
      480   04 0015E    693001AB              BNE      EOR
      481   04 0015F    33000001 X            MTW,0    OUTREC            IF TRUNCATING OUTPUT, BUF IS
      482   04 00160    E9300008 A            BNE      *R8               ADEQUATE
      483   04 00161    328E0000 X            LW,R8    NPAGE,R7          GET MORE MEMORY
      484   04 00162    20800001 A            AI,R8    1
      485   04 00163    25800003 A            SLS,R8   3
      486   04 00164    89900007 A            PSW,R9   *R7               SAVE R9
      487   04 00165    0480061D              CAL1,8   =X'88000008'
      488   04 00166    88900007 A            PLW,R9   *R7
      489   04 00167    668E0000 X            AWM,R8   NPAGE,R7
      490   04 00168    21800000 A            CI,R8    0                 DID WE GET SOME PAGES
      491   04 00169    69300177              BNE      EOF2              YES
      492   04 0016A    22100021 A            LI,R1    33                SET ERROR CODE
      493   04 0016B    68000182              B        IOERR0
      494   04 0016C    22100021 A   EOF11    LI,R1    33                ERROR-ADDITIONAL PAGE NOT AVAILABLE
      495   04 0016D    350E0000 X            STW,R0   CMBX,R7           NO INITIAL MEMORY
      496   04 0016E    22B00185              LI,R11   ERROR1            SET RETURN
      497                            *        ERROR0 GOES TO ERROR TO REPORT AN ERROR UNLESS DOING
      498                            *        COPYALL OR COPYSTD, FORWHICH A CODE IS CREATED IN R10 (OR LEFT THERE)
      499   04 0016F    33000000 X   ERROR0   MTW,0    COPYSK            COPYALL OR STD
      500   04 00170    68300000 X            BE       ERROR             NO, REPORT NORMALLY
      501   04 00171    20100000 A            AI,R1    0                 IO ERROR OR PCL ERROR
      502   04 00172    68300175              BE       %+3               IO..CODE IN R10 ALREADY
      503   04 00173    32A00001 A            LW,R10   R1                PCL..CREAT CODE IN R10
      504   04 00174    25A00018 A            SLS,R10  24
      505   04 00175    35A0002B X            STW,R10  ERRCODE           SAVE CODE IN CASE OF SUPERR
      506   04 00176    E800000B A            B        *R11
      507   04 00177    322E0005 X   EOF2     LW,R2    RDFPT+5,R7        OLD BUFFER SIZE
      508   04 00178    2580000B A            SLS,R8   11                CONVERT PAGES TO BYTES
      509   04 00179    30200008 A            AW,R2    R8                NEW BUFFER SIZE
      510   04 0017A    2210000F A            LI,R1    X'F'
      511   04 0017B    4B100000 X            AND,R1   M:EI              GET ASN FROM DCB
      512   04 0017C    21100002 A            CI,R1    2                 IS IT DEVICE OR ANS
      513   04 0017D    6820018A              BLE      EOF4              NO
      514   04 0017E    328E0005 X            LW,R8    RDFPT+5,R7
      515   04 0017F    21808000 A            CI,R8    X'8000'           PERMIT ONLY X'7FFF' MAX RECORD
      516   04 00180    68200187              BLE      EOF3
      517   04 00181    22100026 A            LI,R1    38                ERROR-RECORD SIZE LARGER THAN 15 BIT
      518   04 00182    6AB0016F     IOERR0   BAL,R11  ERROR0
      519   04 00183    33000000 X            MTW,0    SUPERR            IF SUPRESSION, IGNORE
      520   04 00184    6930006A              BNE      READ14            THE PROBLEM
      521   04 00185    33100000 X   ERROR1   MTW,1    GRANCNT           KILL THE COPY
      522   04 00186    680001F9              B        RETURN
      523   04 00187    21207FFF A   EOF3     CI,R2    X'7FFF'
      524   04 00188    6910018A              BL       EOF4              IF BUFFER LARGER THAN 15 BITS
      525   04 00189    22207FFF A            LI,R2    X'7FFF'           SET AT 15 BITS
      526   04 0018A    352E0005 X   EOF4     STW,R2   RDFPT+5,R7
      527   04 0018B    04100220              CAL1,1   PREC              POSITION BACK ONE RECORD
      528   04 0018C    68000063              B        READ1
      529   04 0018D    330E0000 X   EOF5     MTW,0    RSSAVE,R7         ANY RS OPTIONS
      530   04 0018E    68300403              BE       COMPLAST          NO, FINISH UP
      531   04 0018F    323E0000 X            LW,R3    RECNUM,R7         GET NO. OF LAST REC
      532   04 00190    20900001 A            AI,R9    1                 POSITION TO Y VALUE
      533   04 00191    B13E0009 A            CW,R3    *R9,R7            LAST REC NO. VS Y VALUE
      534   04 00192    681001A1              BGE      EOF6              WITHIN FILE
      535   04 00193    22500006 A            LI,R5    6
      536   04 00194    315E0005 X            CW,R5    TOARG+5,R7        DOING A HEX DUMP
      537   04 00195    683001A1              BE       EOF6              YES - DON'T REPEAT MESSAGE
      538   04 00196    33000000 X            MTW,0    COPYSK            IF COPYALL/STD, NO MSG
      539   04 00197    693001A1              BNE      EOF6
      540   04 00198    89900007 A            PSW,R9   *R7
      541   04 00199    329E0000 X            LW,R9    RECNUM,R7
      542   04 0019A    25900210 A            SCS,R9   16
      543   04 0019B    6930019D              BNE      %+2
      544   04 0019C    22908000 A            LI,R9    X'8000'
      545   04 0019D    22500254              LI,R5    EODMSG
      546   04 0019E    6AB00000 X            BAL,R11  PRTNOF
      547   04 0019F    88900007 A            PLW,R9   *R7
      548   04 001A0    323E0000 X            LW,R3    RECNUM,R7
      549   04 001A1    33FE0000 X   EOF6     MTW,-1   RSSAVE,R7         COUNT DOWN
      550   04 001A2    68300403              BE       COMPLAST          ALL DONE
      551   04 001A3    75000009 A            STB,R0   R9                CLEAR END FLAG
      552   04 001A4    20900001 A            AI,R9    1                 POSITION TO X VALUE
      553   04 001A5    B13E0009 A            CW,R3    *R9,R7            TEST IF IN FILE
      554   04 001A6    6910018D              BL       EOF5              NO..ANOTHER MESSAGE
      555   04 001A7    323E0000 X            LW,R3    DEVICE,R7         IF FT, NO PFIL
      556   04 001A8    21300006 A            CI,R3    6
      557   04 001A9    69300099              BNE      READ3
      558   04 001AA    68000058              B        READ4
      559                            *
      560   04 001AB    2130001C A   EOR      CI,R3    X'1C'             TEST FOR END OF REEL
      561   04 001AC    693001EF              BNE      IOERR1
      562   04 001AD    2230021B              LI,R3    EOCVOL2
      563   04 001AE    6AB001D0              BAL,R11  ULBLCHK           TEST FOR TRAILER LABEL
      564   04 001AF    22100003 A            LI,R1    3
      565   04 001B0    45100000 X            CS,R1    M:EI
      566   04 001B1    693001B5              BNE      KGC1%4            IF FT DONT REREAD ANY TAPES
      567   04 001B2    7210000B X            LB,R1    M:EI+11           GET CURRENT VOL IN DCB
      568   04 001B3    311E0001 X            CW,R1    DEVICE+1,R7       HOW MANY DO WE HAVE
      569   04 001B4    E8100008 A            BGE      *R8               NOT ENOUGH, GET THIS REC, THEN 1C
      570   04 001B5    04100217     KGC1%4   CAL1,1   EICVOL            ADVANCE TO NEXT INPUT TAPE REEL
      571   04 001B6    E4A00008 A            BDR,R10  *R8               CLOBBER R10 AND CONTINUE
      572                            *
      573   04 001B7    7210000A A   WRTABN   LB,R1    R10               GET ABNORMAL CODE
      574   04 001B8    2110001C A            CI,R1    X'1C'             TEST FOR END OF REEL
      575   04 001B9    693001ED              BNE      EOERR
        1*  04 001BA    6AE001E7              BAL,R14  56ERRCHK
      577   04 001BB    321E0000 X            LW,R1    TOARG,R7
      578   04 001BC    21100006 A            CI,R1    6                 OUTPUT TO DEVICE TAPE
      579   04 001BD    683001C0              BE       %+3               YES, WRITE FILEMARKS
      580   04 001BE    208FFFFF A            AI,R8    -1                BACK UP TO WRITE CAL
      581   04 001BF    680001C2              B        %+3
      582   04 001C0    04100216              CAL1,1   WEOF              DOUBLE EOF
      583   04 001C1    04100216              CAL1,1   WEOF              WRITE EOD
      584   04 001C2    04100219              CAL1,1   EOCVOL            CLOSE CURRENT OUTPUT VOLUME
      585   04 001C3    E8000008 A            B        *R8               CONTINUE READING AND WRITING
      586                            *
      587   04 001C4    7210000A A   EIERR    LB,R1    R10               TEST FOR LAST REEL
      588   04 001C5    21100056 A            CI,R1    X'56'
      589   04 001C6    6830006A              BE       READ14            YES, DO THE LAST RECORD
      590   04 001C7    21100057 A            CI,R1    X'57'
      591   04 001C8    6830006A              BE       READ14            END OF RANDOM FILE
      592   04 001C9    21100042 A            CI,R1    X'42'
      593   04 001CA    693001EF              BNE      IOERR1
      594   04 001CB    22F00000 A            LI,R15   0
      595   04 001CC    22100030 A            LI,R1    X'30'
      596   04 001CD    45100005 X            CS,R1    M:EI+5
      597   04 001CE    683001F9              BE       RETURN            END OF RANDOM FILE
      598   04 001CF    680001EF              B        IOERR1
      599                            *
      600   04 001D0    321E0000 X   ULBLCHK  LW,R1    DEVICE,R7
      601   04 001D1    21100004 A            CI,R1    4                 IS INPUT FROM LT
      602   04 001D2    683001D5              BE       %+3               YES
      603   04 001D3    21100007 A            CI,R1    7                 INPUT FROM ANS TAPE
      604   04 001D4    E930000B A            BNE      *R11              NO
      605   04 001D5    33000000 X            MTW,0    GRANCNT           IS COPY ABORTD
      606   04 001D6    E930000B A            BNE      *R11              YES, GET OUT
      607   04 001D7    22800063              LI,R8    READ1             RETURN LOC TO RESUME READ
      608   04 001D8    311E0000 X            CW,R1    TOARG,R7          ONLY TRANSFER TO SAME TAPETYPE
      609   04 001D9    E930000B A            BNE      *R11              NO
      610   04 001DA    F3000002 X            MTB,0    *M:EI+2           WAS A TRAILER LABEL READ
      611   04 001DB    E830000B A            BE       *R11              NO
      612   04 001DC    02200030 A            LCI      3
      613   04 001DD    2A160000 A            LM,R1    0,R3              MOVE FPT TO DATA AREA
      614   04 001DE    2B1E00FA X            STM,R1   IOBUF+250,R7
      615   04 001DF    321E0004 X            LW,R1    RDFPT+4,R7
      616   04 001E0    351E00FD X            STW,R1   IOBUF+253,R7      LABEL ADDR FOR CLOSE
      617   04 001E1    652001E4              BIR,R2   %+3
      618   04 001E2    351E00FC X            STW,R1   IOBUF+252,R7      ADDR FOR CVOL
        1*  04 001E3    6AE001E7              BAL,R14  56ERRCHK
      620   04 001E4    041E00FA X            CAL1,1   IOBUF+250,R7      DO CLOSE OR CLOSE VOLUME
      621   04 001E5    E800000B A            B        *R11
      622   04 001E6    56000000 N   56ERR    GEN,8,24 X'56',M:EO
      623   04 001E7    321E0001 X   56ERRCHK LW,R1    TOARG+1,R7        CVOL TO SCRATCH IS OK IF
        1*  04 001E8    E830000E A            BE       *R14              IT'S ALL SCRATCH
      625   04 001E9    7110000B X            CB,R1    M:EO+11           BUT NOT OTHERWISE
        1*  04 001EA    E920000E A            BG       *R14
      627   04 001EB    32A001E6              LW,R10   56ERR
      628   04 001EC    22D00004 A            LI,R13   4                 AND ABORT THE BATCH USER
      629   04 001ED    321E0002 X   EOERR    LW,R1    TOARG+2,R7        SET OUTPUT % POSITION
      630   04 001EE    351E0000 X            STW,R1   CMBX,R7
      631                            *
      632   04 001EF    22100000 A   IOERR1   LI,R1    0                 FLAG I/O ERROR
      633   04 001F0    33100000 X            MTW,1    GRANCNT           SET ABORT FLAG
      634   04 001F1    69100063              BL       READ1             IGNORE ALL BUT 05,06 READING C DEVICE
      635   04 001F2    52200000 X            LH,R2    IOABORTS          IS THIS A SEVERE ERROR
      636   04 001F3    52F0000A A            LH,R15   R10
      637   04 001F4    51F40000 X            CH,R15   IOABORTS,R2
      638   04 001F5    693001F7              BNE      %+2
      639   04 001F6    22D00003 A            LI,R13   3                 SET SEVERITY 3
      640   04 001F7    642001F4              BDR,R2   %-3
      641   04 001F8    6AB0016F     RETURNE  BAL,R11  ERROR0            REPTRO ERRRO
      642   04 001F9    32F0002B X   RETURN   LW,R15   ERRCODE           SET ERRCODE OR ZERO
      643   04 001FA    2230021D              LI,R3    CLOSE2
      644   04 001FB    6AB001D0              BAL,R11  ULBLCHK           TEST FOR TRAILER LABEL
      645   04 001FC    33000000 X            MTW,0    GRANCNT           WAS COPY ABORTED
      646   04 001FD    693001FF              BNE      %+2               YES
      647   04 001FE    21D00002 A            CI,R13   2                 OTHER ERROR PERHAPS
      648   04 001FF    6910020F              BL       RETURNX           NO, OR SECOND RETURN FROM SI DEVICE
      649   04 00200    32100000 X            LW,R1    M:EO
      650   04 00201    3110061E              CW,R1    =X'00200000'      IS OUTPUT FILE OPEN
      651   04 00202    6840020B              BAZ      RETURN2           NO
      652   04 00203    4B10021F              AND,R1   CLOSE2+2          MAKE SAVE BIT FROM ASN
      653   04 00204    2221FFFF A            LI,R2    X'1FFFF'          IF NOTHING EVER WRITTEN
      654   04 00205    4B200002 X            AND,R2   M:EO+2            ..
      655   04 00206    68300209              BE       %+3               RELEASE EMPTY FILE
      656   04 00207    33000000 X            MTW,0    SUPERR            IF SUPRESSING, SAVE IT
      657   04 00208    6930020B              BNE      RETURN2
      658   04 00209    0410025D              CAL1,1   FPTREL            RELEASE BAD RAD FILE
      659   04 0020A    350E0000 X            STW,R0   TOSWT,R7          OUTPUT NO LONGER DEFINED
      660   04 0020B    04100241     RETURN2  CAL1,1   EIEQSI            IF EI IS SI, DONT READ REST OF FILE
      661   04 0020C    73F00000 X            MTB,-1   GRANCNT           SET FLAG NEGATIVE
      662   04 0020D    20800000 A            AI,R8    0                 AS COMMANDS
      663   04 0020E    69300063              BNE      READ1
      664   04 0020F    328E0000 X   RETURNX  LW,R8    NPAGE,R7          FREE EXTRA PAGES
      665   04 00210    68300212              BE       %+2
      666   04 00211    0480061F              CAL1,8   =X'89000008'
      667   04 00212    350E0000 X            STW,R0   NPAGE,R7
      668   04 00213    02200070 A            LCI      7
      669   04 00214    8A500007 A            PLM,R5   *R7
      670   04 00215    E800000B A            B        *R11
      671                            *
      672   04 00216    02000000 N   WEOF     DATA     X'02000000'+M:EO
      673   04 00217    03000000 X   EICVOL   GEN,8,7,17 X'03',0,M:EI
      674   04 00218    00000000 A            DATA     0
      675   04 00219    03000000 N   EOCVOL   DATA     X'03000000'+M:EO
      676   04 0021A    00000000 A            DATA     0
      677   04 0021B    03000000 N   EOCVOL2  GEN,8,24 X'03',M:EO
      678   04 0021C    40000000 A            DATA     X'40000000'
      679   04 0021D    15000000 N   CLOSE2   GEN,8,24 X'15',M:EO
      680   04 0021E    C0000000 A            DATA     X'C0000000'
      681   04 0021F    00000002 A            DATA     2
      682                            *
      683   04 00220    10000000 N   PREC     GEN,8,24 X'10',M:EI        READ REVERSE
      684   04 00221    90000030 A            DATA     X'90000030',IOERR1,0 0 BYTES (PREC FAILS ON AT)
            04 00222    000001EF
            04 00223    00000000 A
      685   04 00224    1D000000 N   PREC2    GEN,8,24 X'1D',M:EI
      686   04 00225    C0000000 A            DATA     X'C0000000'
      687   04 00226    80000002 A            PZE      *R2               #RECS IN R2
      688   04 00227    00000143              DATA     EOF7              ABNORMAL
      689                                     BOUND    8
      690   04 00228    D2C5E87E A   KEYX     TEXT     'KEY=    '
            04 00229    40404040 A
      691   04 0022A    11000000 N   PRINT1   GEN,8,24 X'11',M:EO
      692   04 0022B    34000010 A            DATA     X'34000010'
      693   04 0022C    000004C9              DATA     CITAB+1           BUFFER
      694   04 0022D    00000002 A            DATA     2                 SIZE
      695   04 0022E    00000000 A            DATA     0                 BTD
      696   04 0022F    11000000 N   PRINT2   GEN,8,24 X'11',M:EO
      697   04 00230    34000010 A            DATA     X'34000010'
      698   04 00231    8000000E A            PZE      *R14              BUFFER
      699   04 00232    80000002 A            PZE      *R2               SIZE
      700   04 00233    00000000 A            DATA     0                 BTD
      701   04 00234    88000001 A   GETPG    DATA     X'88000001'
      702                            *
      703   04 00235    06000000 N   SETEI    DATA     X'06000000'+M:EI
      704   04 00236    E0000000 A            DATA     X'E0000000'
      705   04 00237    000001C4              DATA     EIERR             ABNORMAL ADDRESS
      706   04 00238    000001C4              DATA     EIERR             ERROR ADDRESS
      707   04 00239    80000003 A            PZE      *R3
      708   04 0023A    80000000 X            PZE      *INCRPT           INPUT ENCRYPTUIN
      709                            *
      710   04 0023B    06000000 N   SETEO    DATA     X'06000000'+M:EO
      711   04 0023C    E0000000 A            DATA     X'E0000000'
      712   04 0023D    000001ED              DATA     EOERR             ABNORMAL ADDRESS
      713   04 0023E    000001ED              DATA     EOERR             ERROR ADDRESS
      714   04 0023F    80000003 A            PZE      *R3
      715   04 00240    80000000 X            PZE      *OUTCRPT          OUTPUT ENCRYPTION
      716                            *
      717   04 00241    2B000000 N   EIEQSI   GEN,8,24 X'2B',M:EI
      718   04 00242    00000000 N            DATA     M:C
      719                            *
      720   04 00243    94000003 A   OPNI3    GEN,8,24 X'94',R3          OPEN DCB IN 3
      721   04 00244    C0000000 A            DATA     X'C0000000'       ERR/ABN
      722   04 00245    80000002 A            PZE      *R2
      723   04 00246    80000002 A            PZE      *R2
      724                            *
      725   04 00247    10000000 N   IRDFPT   DATA     X'10000000'+M:EI
      726   04 00248    F1000018 A            DATA     X'F1000018'       EXISTENCE FLAGS
      727   04 00249    000001EF              DATA     IOERR1            ERROR ADDRESS
      728   04 0024A    00000146              DATA     RDABN             ABNORMAL ADDRESS
      729                            *
      730   04 0024B    11000000 N   IWRTFPT  DATA     X'11000000'+M:EO
      731   04 0024C    FC000050 A            DATA     X'FC000050'       EXISTANCE FLAGS
      732   04 0024D    000001ED              DATA     EOERR             ERROR ADDRESS
      733   04 0024E    000001B7              DATA     WRTABN            ABNORMAL ADDRESS
      734   04 0024F    11000000 N   FPTEOD   GEN,8,24 17,M:EO
      735   04 00250    34000000 A            DATA     X'34000000'
      736   04 00251    00000254              DATA     EODMSG,18
            04 00252    00000012 A
      737   04 00253    00000000 A            DATA     0                 NO DISPLACEMENT
      738   04 00254    6060C5D6 A   EODMSG   TEXT     '--EOD--ENCOUNTERED AFTER %%
'
            04 00255    C46060C5 A
            04 00256    D5C3D6E4 A
            04 00257    D5E3C5D9 A
            04 00258    C5C440C1 A
            04 00259    C6E3C5D9 A
            04 0025A    406C6C15 A
      739   04 0025B    1C000000 X   PFIL     GEN,8,7,17      X'1C',0,M:EI
      740   04 0025C    00000010 A            DATA     X'10'
      741   04 0025D    15000000 N   FPTREL   GEN,8,24 X'15',M:EO
      742   04 0025E    80000010 A            DATA     X'80000010'
      743   04 0025F    80000001 A            PZE      *R1
1* AP * 22:04 JUN 16,'85    PCLRW - RDWRT, HEXDUMP                                                PAGE    4
A     744                                     PAGE
      745                            *TEST IF BLOCKING WANTED FOR ANS.  IF SO, ADD RECORD TO OUTPUT BLOCK.
      746   04 00260    22B001F9     EOF8     LI,R11   RETURN            LAST EXIT
      747   04 00261    73F00000 X            MTB,-1   OUTBLK            FORCE RECORD TO OVERFLOW
      748         04 00262           BLKTEST  EQU      %
      749   04 00262    3230002F X            LW,R3    OUTBUF
      750   04 00263    25300002 A            SLS,R3   2
      751   04 00264    32200002 X            LW,R2    OUTFMT            GET BLOCKING TYPE
      752   04 00265    E830000B A            BE       *R11              NONE
      753   04 00266    52140291              LH,R1    RECOVH,R2         GET COUNT SIZE
      754   04 00267    301E0005 X            AW,R1    WRTFPT+5,R7
      755   04 00268    30100000 X            AW,R1    BLKBUFF           ADD CURRENT DISPLACEMENT
      756   04 00269    31100000 X            CW,R1    OUTBLK            WILL THE NEW ONE FIT
      757   04 0026A    6820027F              BLE      BLK10             YES
      758   04 0026B    32100000 X            LW,R1    BLKBUFF           NO, SET SIZE II BUFFER
      759   04 0026C    5114028F              CH,R1    BLKOVH,R2         IS IT FIRST IN BLOCK
      760   04 0026D    6830027D              BE       BLK09             YES, TRUNCATE IT
      761   04 0026E    6A440292              BAL,R4   VCVT-1,R2
      762   04 0026F    3240002F X            LW,R4    OUTBUF
      763   04 00270    32500000 X            LW,R5    BLKBUFF
      764   04 00271    465E0005 X            XW,R5    WRTFPT+5,R7
      765   04 00272    463E0007 X            XW,R3    WRTFPT+7,R7
      766   04 00273    464E0004 X            XW,R4    WRTFPT+4,R7
      767   04 00274    041E0000 X            CAL1,1   WRTFPT,R7
      768   04 00275    354E0004 X            STW,R4   WRTFPT+4,R7
      769   04 00276    353E0007 X            STW,R3   WRTFPT+7,R7
      770   04 00277    355E0005 X            STW,R5   WRTFPT+5,R7
      771   04 00278    72300000 X            LB,R3    OUTBLK            IF FOMR BLKLAST, RETURN
      772   04 00279    E930000B A            BNE      *R11              AFTER LAST BLOCK
      773   04 0027A    5214028F              LH,R1    BLKOVH,R2         START PAST FIRST COUNT
      774   04 0027B    35100000 X            STW,R1   BLKBUFF           RESET DISPLACEMENT
      775   04 0027C    68000262              B        BLKTEST
      776   04 0027D    32100000 X   BLK09    LW,R1    OUTBLK            TRUNCATE RECORDS THAT WON'T FIT
      777   04 0027E    E910000B A            BL       *R11              BLKLAST WITH NOTHING TO DO
      778   04 0027F    38100000 X   BLK10    SW,R1    BLKBUFF           RESTORE RECORD SIZE
      779   04 00280    30300000 X            AW,R3    BLKBUFF           GET BUFFER POINTER
      780   04 00281    66100000 X            AWM,R1   BLKBUFF           AND UPDATE IT
      781   04 00282    6A440293              BAL,R4   VCVT,R2           ENTER IN BLOCK IF V,D
      782   04 00283    58140291              SH,R1    RECOVH,R2         ADJUST SIZE
      783   04 00284    50340291              AH,R3    RECOVH,R2         AND ADDRESS
      784   04 00285    322E0007 X            LW,R2    WRTFPT+7,R7       BA(RECORD)
      785   04 00286    201FFF00 A            AI,R1    -256              MOVE TO BLOCK
      786   04 00287    6910028C              BL       KGC%5
      787   04 00288    73C00003 A            MTB,-4   3
      788   04 00289    61200000 A            MBS,R2   0                 MOVE 252 AT A TIME
      789   04 0028A    201FFF04 A            AI,R1    -252
      790   04 0028B    68100288              BGE      %-3
      791   04 0028C    75100003 A   KGC%5    STB,R1   R3
      792   04 0028D    61200000 A            MBS,R2   0
      793   04 0028E    68000130              B        WRITEX            GO TO NEXT INPUT RECORD
      794   04 0028F    00000000 A   BLKOVH   DATA     0,4
            04 00290    00000004 A
      795   04 00291    00000000 A   RECOVH   DATA     0,X'40004'
            04 00292    00040004 A
      796   04 00293    68080000 A   VCVT     B        0,4               IF BLKSIZE, NOTHING FOR F,D
      797   04 00294    68080000 A            B        0,R4              FIXED, NOTHING TO DO
      798   04 00295    02000000 A            NOP
      799   04 00296    02200040 A            LCI      4
      800   04 00297    8B100007 A            PSM,R1   *R7               SAVE A FEW REGS
      801   04 00298    46100003 A            XW,R1    R3
      802   04 00299    202FFFFF A            AI,R2    -1
      803   04 0029A    642002A9              BDR,R2   VCVTB             WANTS TO BE BINARY
      804   04 0029B    22400004 A            LI,R4    4                 DECIMAL, FOUR DIGITS
      805   04 0029C    362802A4     KGCA%5   DW,R2    VCVTD,R4
      806   04 0029D    203000F0 A            AI,R3    '0'
      807   04 0029E    75320000 A            STB,R3   0,R1
      808   04 0029F    20100001 A            AI,R1    1
      809   04 002A0    25200160 A            SLD,R2   -32
      810   04 002A1    6440029C              BDR,R4   KGCA%5
      811   04 002A2    02200040 A   VCVTX    LCI      4
      812   04 002A3    8A100007 A            PLM,R1   *R7
      813   04 002A4    68080000 A            B        0,R4              FOR RECORD MOVE
      814                            *
      815         04 002A4           VCVTD    EQU      %-1
      816   04 002A5    00000001 A            DATA     1,10,100,1000
            04 002A6    0000000A A
            04 002A7    00000064 A
            04 002A8    000003E8 A
      817   04 002A9    25300278 A   VCVTB    SCS,R3   -8
      818   04 002AA    75320000 A            STB,R3   0,R1
      819   04 002AB    25300208 A            SCS,R3   8
      820   04 002AC    20100001 A            AI,R1    1
      821   04 002AD    75320000 A            STB,R3   0,R1
      822   04 002AE    680002A2              B        VCVTX
1* AP * 22:04 JUN 16,'85    PCLRW - RDWRT, HEXDUMP                                                PAGE    5
A     823                                     PAGE
      824                            *UNBLOCK ANS INPUT
      825   04 002AF    3210002E X   UNBLK    LW,R1    INFMT             ARE WE DEBLOCKING
      826   04 002B0    680202B1              B        UNBTAB,R1
      827   04 002B1    E800000B A   UNBTAB   B        *R11              NO
      828   04 002B2    680002B5              B        UNBF              F FORMAT
      829   04 002B3    680002DE              B        UNBD              D FORMAT
      830   04 002B4    680002EB              B        UNBV              V FORMAT
      831                            *
      832   04 002B5    3230002D X   UNBF     LW,R3    INREC             FIXED SIZE RECORDS - GET SIZE
      833   04 002B6    353E0005 X            STW,R3   WRTFPT+5,R7       PUT IN WRITE FPT
      834   04 002B7    32100000 X            LW,R1    UNBADR            GET CURRENT DISPLACEMENT
      835   04 002B8    441002F4              ANLZ,R1  IMEI              COMPUTE BYTE ADDRESS
      836   04 002B9    351E0007 X   UNBF1    STW,R1   WRTFPT+7,R7       IS BTD
      837   04 002BA    2510007E A            SLS,R1   -2
      838   04 002BB    351E0004 X            STW,R1   WRTFPT+4,R7       WORD ADDR
      839   04 002BC    30300000 X            AW,R3    UNBADR
      840   04 002BD    31300000 X            CW,R3    BLKSIZE           COMPARE DISP WITH BLK SIZE
      841   04 002BE    691002C0              BL       %+2               NOT THRU UNBLOCKING
      842   04 002BF    22300000 A            LI,R3    0                 INDICATE END OF BLOCK
      843   04 002C0    35300000 X            STW,R3   UNBADR            UPDATE FOR NEXT WRITE
      844   04 002C1    22100078 A            LI,R1    120               IF RECORD IS OR WILL BE SMALL
      845   04 002C2    322E000A X            LW,R2    TOARG+10,R7       PUT IT AT IOBUF
      846   04 002C3    21200003 A            CI,R2    3
      847   04 002C4    683002CC              BE       UNBF3             WILL BE 80 OR 120
      848   04 002C5    32100001 X            LW,R1    OUTREC
      849   04 002C6    683002C9              BE       %+3               NO REC OPTION
      850   04 002C7    211000FF A            CI,R1    255
      851   04 002C8    682002CC              BLE      UNBF3
      852   04 002C9    321E0005 X            LW,R1    WRTFPT+5,R7       IF ITS A SHORT RECORD,
      853   04 002CA    211000FF A            CI,R1    255
      854   04 002CB    E920000B A            BG       *R11              MOVE IT TO A WORD BOUNDARY
      855   04 002CC    311E0005 X   UNBF3    CW,R1    WRTFPT+5,R7       MOVE MIN(R1,RECSIZE)
      856   04 002CD    682002CF              BLE      %+2
      857   04 002CE    321E0005 X            LW,R1    WRTFPT+5,R7
      858   04 002CF    351E0005 X            STW,R1   WRTFPT+5,R7
      859   04 002D0    22200000 N            LI,R2    IOBUF
      860   04 002D1    30200007 A            AW,R2    R7
      861   04 002D2    352E0004 X            STW,R2   WRTFPT+4,R7
      862   04 002D3    323E0004 X            LW,R3    WRTFPT+4,R7
      863   04 002D4    25200102 A            SLD,R2   2
      864   04 002D5    462E0007 X            XW,R2    WRTFPT+7,R7
      865   04 002D6    75100003 A            STB,R1   R3
      866   04 002D7    61200000 A            MBS,R2   0
      867   04 002D8    3A100001 A            LCW,R1   R1                BLANK REST OF BUFFER
      868   04 002D9    201FFFFF A            AI,R1    -1
      869   04 002DA    25100018 A            SLS,R1   24
      870   04 002DB    49100003 A            OR,R1    R3
      871   04 002DC    61001854              MBS,R0   BA(='    ')
      872   04 002DD    E800000B A            B        *R11
      873                            *
      874   04 002DE    32100000 X   UNBD     LW,R1    UNBADR            ARE WE AT BEG OF BLOCK
      875   04 002DF    441002F4              ANLZ,R1  IMEI
      876   04 002E0    2510027E A            SCS,R1   -2
      877   04 002E1    38100007 A            SW,R1    R7                COMPUTE R7 DISP
      878   04 002E2    25100202 A            SCS,R1   2
      879   04 002E3    22200004 A            LI,R2    4                 SIZE
      880   04 002E4    89B00007 A            PSW,R11  *R7
      881   04 002E5    6AB00000 X            BAL,R11  BCD2BIN           CONVERT REC SIZE TO BINARY
      882   04 002E6    88B00007 A            PLW,R11  *R7
      883   04 002E7    441002FA              ANLZ,R1  IR7               COMPUTE RECORD ADDRESS
      884   04 002E8    353E0005 X   UNBD3    STW,R3   WRTFPT+5,R7       PUT SIZE IN WRITE FPT
      885   04 002E9    33CE0005 X            MTW,-4   WRTFPT+5,R7       ADJUST FOR COUNT
      886   04 002EA    680002B9              B        UNBF1
      887                            *
      888   04 002EB    32100000 X   UNBV     LW,R1    UNBADR            ARE WE AT BEG OF BLOCK
      889   04 002EC    693002F2              BNE      UNBV2             NO
      890   04 002ED    D2200002 X            LH,R2    *M:EI+2           GET BLOCKSIZE ROM BLOCK
        1*  04 002EE    312E0005 X            CW,R2    WRTFPT+5,R7       ALLOW PADDING IN FIXED FORMAT AT
      892   04 002EF    693002F2              BNE      UNBV2             NO HEADER HERE
      893   04 002F0    22100004 A            LI,R1    4                 DISP TO FIRST RECORD
      894   04 002F1    35100000 X            STW,R1   UNBADR
      895   04 002F2    F2320002 X   UNBV2    LB,R3    *M:EI+2,R1        HIGH ORDER BYTE OF COUNT
      896   04 002F3    20100001 A            AI,R1    1
      897   04 002F4    F2220002 X   IMEI     LB,R2    *M:EI+2,R1
      898   04 002F5    75200003 A            STB,R2   R3
      899   04 002F6    25300208 A            SCS,R3   8
      900   04 002F7    20100003 A            AI,R1    3                 INCREMENT TO DATA
      901   04 002F8    441002F4              ANLZ,R1  IMEI
      902   04 002F9    680002E8              B        UNBD3
      903   04 002FA    F3020007 A   IR7      MTB,0    *R7,R1            FOR ANLZING AFTER BCD2BIN
1* AP * 22:04 JUN 16,'85    PCLRW - RDWRT, HEXDUMP                                                PAGE    6
A     904                                     PAGE
      905   04 002FB    325E0009 X   NCCHK    LW,R5    TOARG+9,R7
      906   04 002FC    21540000 A            CI,R5    X'40000'          YES-EXIT
      907   04 002FD    E940000B A            BANZ     *R11              YES-EXIT
      908   04 002FE    321E0000 X            LW,R1    DEVICE,R7
      909   04 002FF    21100008 A            CI,R1    8                 INPUT FROM TERMINAL
      910   04 00300    68300303              BE       NCC4              YES
      911   04 00301    21520000 A            CI,R5    X'20000'          NC OPTION PRESENT
      912   04 00302    E840000B A            BAZ      *R11              NO-EXIT
      913   04 00303    325E0004 X   NCC4     LW,R5    WRTFPT+4,R7       GET LOCATION OF OUTPUT BUFFER
      914   04 00304    20300000 A            AI,R3    0                 NULL RECORD
      915   04 00305    E830000B A            BE       *R11              YES
      916   04 00306    203FFFFF A            AI,R3    -1
      917   04 00307    F2160005 A            LB,R1    *R5,R3            GET LAST BYTE OF RECORD
      918   04 00308    21100015 A            CI,R1    X'15'             TEST IF CARRIAGE RETURN
      919   04 00309    6830030C              BE       NCC2              YES
      920   04 0030A    2110000D A            CI,R1    X'0D'
      921   04 0030B    6930030F              BNE      NCC1
      922   04 0030C    22100040 A   NCC2     LI,R1    ' '
      923   04 0030D    F5160005 A            STB,R1   *R5,R3            STORE BLANK OVER CR
      924   04 0030E    33FE0005 X            MTW,-1   WRTFPT+5,R7       SCRUB LAST CHARACTER
      925   04 0030F    20300001 A   NCC1     AI,R3    1                 RESTORE RECORD SIZE
      926   04 00310    E800000B A            B        *R11              EXIT
      927                            *
      928   04 00311    322E0004 X   NCS      LW,R2    WRTFPT+4,R7       ADDR OF OUTPUT RECORD
      929   04 00312    21300010 A            CI,R3    X'10'             IS RECORD BCD
      930   04 00313    6840031A              BAZ      NCS1              YES
      931   04 00314    3504001B A            STW,R0   27,R2             ZERO BINARY SEQUENCE FIELD
      932   04 00315    3504001C A            STW,R0   28,R2
      933   04 00316    3504001D A            STW,R0   29,R2
      934   04 00317    22100078 A   BINCSX   LI,R1    120               SET SIZE
      935   04 00318    351E0005 X            STW,R1   WRTFPT+5,R7
      936   04 00319    680000D8              B        WRITE2
      937   04 0031A    32100615     NCS1     LW,R1    ='    '           BLANK OUT SEQUENCE FIELD
      938   04 0031B    35140012 A            STW,R1   18,R2
      939   04 0031C    35140013 A            STW,R1   19,R2
      940   04 0031D    22100050 A   BCDCSX   LI,R1    80                SET SIZE
      941   04 0031E    68000318              B        BINCSX+1
      942                            *
      943   04 0031F    321E0000 X   CS2      LW,R1    CARDSEQ,R7        PUT SEQUENCE INFO IN OUTPUT BUFFER
      944   04 00320    322E0004 X            LW,R2    WRTFPT+4,R7
      945   04 00321    35140012 A            STW,R1   18,R2
      946   04 00322    321E0001 X            LW,R1    CARDSEQ+1,R7
      947   04 00323    35140013 A            STW,R1   19,R2
      948   04 00324    6800031D              B        BCDCSX            SET SIZE
      949                            *
      950         04 00324           SEQID    EQU      %-1
      951   04 00325    68000311              B        NCS               NCS
      952   04 00326    680000D8              B        WRITE2            NLN
      953   04 00327    6800051E              B        CS                CS
      954   04 00328    680004E3              B        LINENUM           LN
1* AP * 22:04 JUN 16,'85    PCLRW - RDWRT, HEXDUMP                                                PAGE    7
A     955                                     PAGE
      956   04 00329    33000000 X   BRCHK    MTW,0    BREAK             TEST FOR BREAK
      957   04 0032A    E830000B A            BE       *R11              NOT SET
      958   04 0032B    321E0000 X            LW,R1    TOARG,R7          IF OUTPUT TO ME,
      959   04 0032C    21100008 A            CI,R1    8                 BREAK OUT OF FILE
      960   04 0032D    68300330              BE       %+3               EVEN IF COPYALL//STD
      961   04 0032E    33000000 X            MTW,0    COPYSK
      962   04 0032F    E930000B A            BNE      *R11              COPYALL
      963   04 00330    89B00007 A            PSW,R11  *R7
      964   04 00331    22200352              LI,R2    BRKMSG
      965   04 00332    22B00018 A            LI,R11   24
      966   04 00333    0410034D              CAL1,1   WRTMSG            WRITE 'ENTER X...'
      967   04 00334    321E0000 X            LW,R1    RECNUM,R7
      968   04 00335    6AB00000 X            BAL,R11  BIN2BCD
      969   04 00336    3A400004 A            LCW,R4   R4
      970   04 00337    25400003 A            SLS,R4   3
      971   04 00338    25280140 A            SLD,R2   64,R4
      972   04 00339    02200020 A            LCI      2
      973   04 0033A    2B2E0000 X            STM,R2   ARGBUFF,R7
      974   04 0033B    4420033A              ANLZ,R2  %-1
      975   04 0033C    22B00008 A            LI,R11   8
      976   04 0033D    0410034D              CAL1,1   WRTMSG
      977   04 0033E    32300000 X            LW,R3    BREAK
      978   04 0033F    22200352              LI,R2    BRKMSG
      979   04 00340    6AB00000 X            BAL,R11  READONE
      980   04 00341    73000000 X            MTB,0    DELETEF           ARE WE AT LEFT SIDE OF PLATEN
      981   04 00342    68300345              BE       %+3               YES
      982   04 00343    22B00001 A            LI,R11   1                 NO, WRITE A CR/LF
      983   04 00344    0410034D              CAL1,1   WRTMSG
      984   04 00345    88B00007 A            PLW,R11  *R7
      985   04 00346    33F00000 X            MTW,-1   BREAK
      986   04 00347    31300000 X            CW,R3    BREAK             DID WE GET BREAK
      987   04 00348    6820034B              BLE      %+3
      988   04 00349    211000E7 A            CI,R1    'X'
      989   04 0034A    E930000B A            BNE      *R11              CONTINUE
      990   04 0034B    33100000 X            MTW,1    GRANCNT           SET ABORT FLAG
      991   04 0034C    68000403              B        COMPLAST          FINISH COPY
      992                            *
      993   04 0034D    11000000 N   WRTMSG   GEN,8,24 X'11',M:UC
      994   04 0034E    34000000 A            DATA     X'34000000'
      995   04 0034F    80000002 A            PZE      *R2
      996   04 00350    8000000B A            PZE      *R11              SIZE IN 11
      997   04 00351    00000000 A            DATA     0
      998   04 00352    156060E7 A   BRKMSG   TEXT     '
--X OR BRK TO ABORT AT '
            04 00353    40D6D940 A
            04 00354    C2D9D240 A
            04 00355    E3D640C1 A
            04 00356    C2D6D9E3 A
            04 00357    40C1E340 A
     1000   04 00358    22000000 N   SETBINBCD GEN,8,24 X'22',M:EO
     1001   04 00359    003C1C38 A   BINVAL   DATA     X'003C1C38',X'18000000'    STANDARD BINARY CODES
            04 0035A    18000000 A
1* AP * 22:04 JUN 16,'85    PCLRW - RDWRT, HEXDUMP                                                PAGE    8
A    1002                                     PAGE
     1003   04 0035B    02200070 A   DECOMP0  LCI      7                 ENTRY FROM NEW CI RECORD
     1004   04 0035C    8B500007 A            PSM,R5   *R7
     1005   04 0035D    325E0004 X            LW,R5    WRTFPT+4,R7       BUFFER ADDRESS
     1006   04 0035E    326E0005 X            LW,R6    WRTFPT+5,R7       CHECK SIZE
     1007   04 0035F    21600050 A            CI,R6    80
     1008   04 00360    68200363              BLE      %+3               ERROR
     1009   04 00361    21600078 A            CI,R6    120
     1010   04 00362    68200382              BLE      RC212             OK
     1011   04 00363    2210002A A   RC290    LI,R1    42
     1012   04 00364    6AB0016F              BAL,R11  ERROR0
     1013   04 00365    33000000 X            MTW,0    SUPERR
     1014   04 00366    69300397              BNE      RC220             IGNORE IT
     1015   04 00367    321A0000 A            LW,R1    0,R5              PRINT FIRST WORD CONTENT
     1016   04 00368    6AB00000 X            BAL,R11  HEX2BCD
     1017   04 00369    02200020 A            LCI      2
     1018   04 0036A    2B2E0005 X            STM,R2   PRTBUF+5,R7
     1019   04 0036B    32100026 X            LW,R1    CISEQ             PUT EXPECTED SEQ
     1020   04 0036C    25100014 A            SLS,R1   20
     1021   04 0036D    6AB00000 X            BAL,R11  HEX2BCD
     1022   04 0036E    202FFF50 A            AI,R2    ' '-'0'
     1023   04 0036F    32100379              LW,R1    RC291
     1024   04 00370    02200030 A            LCI      3
     1025   04 00371    2A30037A              LM,R3    RC291+1
     1026   04 00372    02200050 A            LCI      5
     1027   04 00373    2B1E0000 X            STM,R1   PRTBUF,R7
     1028   04 00374    44100373              ANLZ,R1  %-1
     1029   04 00375    0410037D              CAL1,1   RC292
     1030   04 00376    02200070 A            LCI      7
     1031   04 00377    8A500007 A            PLM,R5   *R7
     1032   04 00378    680001F9              B        RETURN
     1033   04 00379    E2C5D840 A   RC291    TEXT     'SEQ ID/SEQ/CHKS='
            04 0037A    C9C461E2 A
            04 0037B    C5D861C3 A
            04 0037C    C8D2E27E A
     1034   04 0037D    11000000 N   RC292    GEN,8,24 17,M:LO
     1035   04 0037E    34000010 A            DATA     X'34000010'
     1036   04 0037F    80000001 A            PZE      *R1
     1037   04 00380    0000001C A            DATA     28,0
            04 00381    00000000 A
     1038   04 00382    F2300005 A   RC212    LB,R3    *R5               CHECK ID
     1039   04 00383    21300038 A            CI,R3    X'38'
     1040   04 00384    68300387              BE       %+3
     1041   04 00385    21300018 A            CI,R3    X'18'
     1042   04 00386    69300363              BNE      RC290
     1043   04 00387    32400026 X            LW,R4    CISEQ
     1044   04 00388    22300001 A            LI,R3    1
     1045   04 00389    F1460005 A            CB,R4    *R5,R3
     1046   04 0038A    69300363              BNE      RC290
     1047                            *
     1048   04 0038B    224000FF A            LI,R4    X'FF'             GET BYTE COUNT
     1049   04 0038C    4B4A0000 A            AND,R4   0,R5
     1050   04 0038D    204FFFFF A            AI,R4    -1                DECREMENT
     1051   04 0038E    F2200005 A            LB,R2    *R5               ADD IN R2
     1052   04 0038F    F2380005 A            LB,R3    *R5,R4
     1053   04 00390    30200003 A            AW,R2    R3                ADD EACH BYTE
     1054   04 00391    6440038F              BDR,R4   %-2               ITERATE
     1055   04 00392    22300002 A            LI,R3    2
     1056   04 00393    F2460005 A            LB,R4    *R5,R3
     1057   04 00394    38200004 A            SW,R2    R4                DONT ADD IT IN SUM
     1058   04 00395    F1260005 A            CB,R2    *R5,R3
     1059   04 00396    69300363              BNE      RC290
     1060                            *
     1061   04 00397    224000FF A   RC220    LI,R4    X'FF'             SET UP BIT COUNT FOR THIS
     1062   04 00398    CB400005 A            AND,R4   *R5               RECORD
     1063   04 00399    33100026 X            MTW,1    CISEQ             SET SEQ FOR NEXT ONE
     1064   04 0039A    25400003 A            SLS,R4   3
     1065   04 0039B    35400025 X            STW,R4   CIBTOTAL
     1066   04 0039C    22400020 A            LI,R4    32                INITIALIZE CONTROL WORDS
     1067   04 0039D    22900020 A            LI,R9    32
     1068   04 0039E    32BE0004 X            LW,R11   WRTFPT+4,R7       SET CIWORD
     1069   04 0039F    20B00001 A            AI,R11   1
     1070   04 003A0    46B00022 X            XW,R11   CIWORD
     1071   04 003A1    7260000B A            LB,R6    R11
     1072   04 003A2    22F00000 N            LI,R15   PRTBUF            INIT OUT BUFFER ADDR
     1073   04 003A3    30F00007 A            AW,R15   R7
     1074   04 003A4    32100024 X            LW,R1    CIBLEFT           GET OUTPUT BYTE#
     1075   04 003A5    20B00000 A            AI,R11   0                 ARE WE STARTED YET
     1076   04 003A6    693003E8              BNE      DEC60             IN MIDDLE OF OUTPUT
     1077   04 003A7    680003AC              B        DEC05
1* AP * 22:04 JUN 16,'85    PCLRW - RDWRT, HEXDUMP                                                PAGE    9
A    1078                                     PAGE
     1079                            * SUBROUTINE DECOMPR RECONSTRUCTS A SYMBOLIC RECORD FROM COMPRESSED
     1080                            * INPUT.
     1081   04 003A8    02200070 A   DECOMPR  LCI      7
     1082   04 003A9    8B500007 A            PSM,R5   *R7
     1083   04 003AA    32900023 X            LW,R9    CIBUSED           INITIALIZE CONTROL REGS
     1084   04 003AB    32400024 X            LW,R4    CIBLEFT
     1085   04 003AC    22100000 A   DEC05    LI,R1    0                 START IN BYTE ZERO
     1086   04 003AD    22FFFFFF N            LI,R15   PRTBUF-1
     1087   04 003AE    30F00007 A            AW,R15   R7
     1088   04 003AF    22200023 A            LI,R2    35
     1089   04 003B0    32300615              LW,R3    ='    '           BLANK OUTPUT BUFFER
     1090   04 003B1    B534000F A            STW,R3   *R15,R2
     1091   04 003B2    642003B1              BDR,R2   %-1
     1092   04 003B3    20F00001 A            AI,R15   1
     1093   04 003B4    22600006 A   DEC10    LI,R6    6                 GET 6 BIT BYTE
     1094   04 003B5    6AB003E8              BAL,R11  DEC60
     1095   04 003B6    21200006 A            CI,R2    6                 IF CONTROL BYTE (0-6)
     1096   04 003B7    682403C0              BLE      DEC20,R2          EXECUTE JUMP TABLE
     1097   04 003B8    2120002C A            CI,R2    44                IF NOT CONTROL, EXTRACT 8-BIT
     1098   04 003B9    691003BD              BL       DEC15             EBCDIC CODE FROM APPROPRIATE
     1099   04 003BA    202FFFD5 A            AI,R2    -43               TABLE.
     1100   04 003BB    725404C3              LB,R5    SCCTAB,R2
     1101   04 003BC    680003BE              B        %+2
     1102   04 003BD    725404C8     DEC15    LB,R5    CITAB,R2
     1103   04 003BE    F552000F A            STB,R5   *R15,R1           PUT CODE IN OUTPUT BUFFER
     1104   04 003BF    20100001 A            AI,R1    1                 ITERATE
     1105                            *                                   ** CONTROL BYTE TABLE **
     1106   04 003C0    680003B4     DEC20    B        DEC10             PADDING
     1107   04 003C1    680003B4              B        DEC10             UNASSIGNED
     1108   04 003C2    680003C7              B        DEC30             EOL
     1109   04 003C3    680003D0              B        DEC35             EOF
     1110   04 003C4    680003D7              B        DEC40             NEXT 8 BIT
     1111   04 003C5    680003DC              B        DEC45             NEXT COUNT+1
     1112   04 003C6    680003E4              B        DEC50             NEXT COUNT +65
     1113                            *
     1114   04 003C7    35900023 X   DEC30    STW,R9   CIBUSED           SAVE REGS
     1115   04 003C8    35400024 X            STW,R4   CIBLEFT
     1116   04 003C9    02200070 A            LCI      7
     1117   04 003CA    8A500007 A            PLM,R5   *R7
     1118   04 003CB    351E0005 X            STW,R1   WRTFPT+5,R7       SET SIZE
     1119   04 003CC    35FE0004 X            STW,R15  WRTFPT+4,R7
     1120   04 003CD    25F00002 A            SLS,R15  2
     1121   04 003CE    35FE0007 X            STW,R15  WRTFPT+7,R7
     1122   04 003CF    6800007F              B        READ28
     1123                            *
     1124   04 003D0    35000026 X   DEC35    STW,R0   CISEQ             RESET FOR BATCH FILES
     1125   04 003D1    35000022 X            STW,R0   CIWORD
     1126   04 003D2    02200070 A            LCI      7
     1127   04 003D3    8A500007 A            PLM,R5   *R7
     1128   04 003D4    22300005 A            LI,R3    5                 SIMULATE EOD
     1129   04 003D5    22600000 A            LI,R6    0
     1130   04 003D6    6800014B              B        EOD1
     1131                            *
     1132   04 003D7    22600008 A   DEC40    LI,R6    8                 GET 8 BIT CODE FROM IOBUF
     1133   04 003D8    6AB003E8              BAL,R11  DEC60
     1134   04 003D9    F522000F A            STB,R2   *R15,R1           PUT IN OUTPUT BUFFER
     1135   04 003DA    20100001 A            AI,R1    1
     1136   04 003DB    680003B4              B        DEC10             ITERATE
     1137                            *
     1138   04 003DC    22600006 A   DEC45    LI,R6    6                 USE 6 BIT COUNT
     1139   04 003DD    6AB003E8              BAL,R11  DEC60
     1140   04 003DE    20200001 A            AI,R2    1                 +1
     1141   04 003DF    22500040 A   DEC47    LI,R5    ' '
     1142   04 003E0    F552000F A            STB,R5   *R15,R1           EXPAND BLANK FIELD IN BUFFER
     1143   04 003E1    20100001 A            AI,R1    1
     1144   04 003E2    642003E0              BDR,R2   %-2
     1145   04 003E3    680003B4              B        DEC10             ITERATE
     1146                            *
     1147   04 003E4    22600006 A   DEC50    LI,R6    6                 USE 6 BIT COUNT
     1148   04 003E5    6AB003E8              BAL,R11  DEC60
     1149   04 003E6    20200041 A            AI,R2    65                +65
     1150   04 003E7    680003DF              B        DEC47
     1151                            *
     1152   04 003E8    30900006 A   DEC60    AW,R9    R6                EXTRACT (R6) BITS
     1153   04 003E9    31900025 X            CW,R9    CIBTOTAL          ARE THERE ENOUGH LEFT
     1154   04 003EA    682003F1              BLE      DEC65             YES
     1155   04 003EB    35100024 X            STW,R1   CIBLEFT           SAVE OUTPUT PTR
     1156   04 003EC    7560000B A            STB,R6   R11               AND CURRENT CALL
     1157   04 003ED    35B00022 X            STW,R11  CIWORD
     1158   04 003EE    02200070 A            LCI      7
     1159   04 003EF    8A500007 A            PLM,R5   *R7
     1160   04 003F0    68000140              B        READN             GET NEXT INPUT RECORD
     1161                            *
     1162   04 003F1    22200000 A   DEC65    LI,R2    0                 INITIALIZE RESULT REGISTER
     1163   04 003F2    32500022 X            LW,R5    CIWORD            GET CURRENT INPUT POINTER
     1164   04 003F3    323A0000 A            LW,R3    0,R5              PICK UP CURRENT WORD
     1165   04 003F4    38400006 A            SW,R4    R6                CHECK IF R3 CONTAINS TOTAL BYTE
     1166   04 003F5    68100400              BGE      DEC67             BR IF YES
     1167   04 003F6    30600004 A            AW,R6    R4                COMPUTE NO. OF BITS IN R3
     1168   04 003F7    252C0100 A            SLD,R2   0,R6              AND SHIFT TO R2
     1169   04 003F8    20500001 A            AI,R5    1
     1170   04 003F9    35500022 X            STW,R5   CIWORD            UPDATE POINTER
     1171   04 003FA    323A0000 A            LW,R3    0,R5              GET WORD FROM BUFFER
     1172   04 003FB    3A400004 A            LCW,R4   R4                GET NO. BITS NEEDED FROM R3
     1173   04 003FC    25280100 A            SLD,R2   0,R4              SHIFT INTO R2
     1174   04 003FD    204FFFE0 A            AI,R4    -32               COMPUTE BITS LEFT IN CURRENT WORD
     1175   04 003FE    3A400004 A            LCW,R4   R4
     1176   04 003FF    68000401              B        DEC70
     1177   04 00400    252C0100 A   DEC67    SLD,R2   0,R6              SHIFT TOTAL BYTE TO R2
     1178   04 00401    353A0000 A   DEC70    STW,R3   0,R5              PUT CURRENT WORD BACK
     1179   04 00402    E800000B A            B        *R11              EXIT
1* AP * 22:04 JUN 16,'85    PCLRW - RDWRT, HEXDUMP                                                PAGE   10
A    1180                                     PAGE
     1181                            * SUBROUTINE COMPRESS PRODUCES A COMPRESSED OUTPUT RECORD AND WRITES IT.
     1182   04 00403    33000000 X   COMPLAST MTW,0    COPYSK            IF NOT COPYALL, DONT COMP LAST
     1183   04 00404    68300260              BE       EOF8              UNTIL RDWRTX CALL
     1184   04 00405    22B80260 N   RDWRTX1  LI,R11   EOF8+X'80000'     SET LAST FLAG
     1185   04 00406    22100003 A   COMPRESS LI,R1    3                 ARE WE COMPRESSING AT ALL
     1186   04 00407    311E0005 X            CW,R1    TOARG+5,R7
     1187   04 00408    E930000B A            BNE      *R11              NO
     1188   04 00409    02200070 A            LCI      7
     1189   04 0040A    8B500007 A            PSM,R5   *R7
     1190   04 0040B    22800000 A            LI,R8    0                 SET BLANK COUNT ZERO
     1191   04 0040C    32900029 X            LW,R9    COBUSED           GET POINTERS
     1192   04 0040D    3240002A X            LW,R4    COBLEFT
     1193   04 0040E    321E0005 X            LW,R1    WRTFPT+5,R7       SIZE OF RECORD
     1194   04 0040F    35100027 X            STW,R1   RECSIZE
     1195   04 00410    32FE0004 X            LW,R15   WRTFPT+4,R7       ADDR
     1196   04 00411    22100003 A            LI,R1    3                 BTD
     1197   04 00412    4B1E0007 X            AND,R1   WRTFPT+7,R7
     1198   04 00413    66100027 X            AWM,R1   RECSIZE
     1199   04 00414    32500028 X            LW,R5    COWORD            ARE WE INITIALIZED
     1200   04 00415    6930041B              BNE      CMP10             YES
     1201   04 00416    35F00029 X            STW,R15  COBUSED           NO, GO DO IT
     1202   04 00417    3510002A X            STW,R1   COBLEFT
     1203   04 00418    221FFFFF A            LI,R1    -1
     1204   04 00419    35100000 X            STW,R1   PRNTBUF           SET SEQUENCE TO FF
     1205   04 0041A    680004B2              B        COMPNXT0
     1206   04 0041B    7300000B A   CMP10    MTB,0    R11               IS THIS THE LAST
     1207   04 0041C    68300424              BE       CMP11             NO
     1208   04 0041D    22100018 A            LI,R1    X'18'             CHANGE ID FROM 38 TO 18
     1209   04 0041E    75100000 X            STB,R1   PRNTBUF
     1210   04 0041F    22500003 A            LI,R5    CEOF              EDIT EOF CONTROL BYTE
     1211   04 00420    22600006 A            LI,R6    6                 IN 6 BITS
     1212   04 00421    6AB00452              BAL,R11  CMP60
     1213   04 00422    22604000 A            LI,R6    X'4000'           SPECIAL FLAG (SEE WRITEX)
     1214   04 00423    68000462              B        CMP70             GETS TO SIGN BIT OF COWORD
     1215                            *
     1216   04 00424    F252000F A   CMP11    LB,R5    *R15,R1           GET NEXT BYTE
     1217   04 00425    215000C0 A            CI,R5    X'C0'             CHECK FOR A-Z,0-9
     1218   04 00426    68200442              BLE      CMP15             CANT BE IF LESS THAN X'C0'
     1219   04 00427    725A04A3              LB,R5    COTAB-48,R5       GET 6BIT CODE
     1220   04 00428    6930042D              BNE      CMP12
     1221   04 00429    F252000F A            LB,R5    *R15,R1           ZERO, USE ORIGINAL 8 BITS
     1222   04 0042A    68000448              B        CMP17
     1223                            *
     1224   04 0042B    2060002B A   CMP20    AI,R6    43                FOUND IN SCCTAB
     1225   04 0042C    32500006 A            LW,R5    R6                CODE IS INDEX+43
     1226   04 0042D    22600006 A   CMP12    LI,R6    6                 SET BIT COUNT
     1227   04 0042E    6AB00452              BAL,R11  CMP60             ENTER IN OUTPUT BUFFER
     1228   04 0042F    20100001 A   CMP13    AI,R1    1                 POSITION TO NEXT BYTE
     1229   04 00430    31100027 X            CW,R1    RECSIZE           STOP AT END OF RECORD
     1230   04 00431    69100424              BL       CMP11
     1231   04 00432    325E0006 X            LW,R5    TOARG+6,R7        IF NB, DONT EXPAND RECORD
     1232   04 00433    31500616              CW,R5    =X'00FF0000'
     1233   04 00434    6940043A              BANZ     CMP14
     1234   04 00435    21100050 A            CI,R1    80
     1235   04 00436    6810043A              BGE      CMP14             OUTPUT NOT LESS THAN 80 BYTES
     1236   04 00437    20800050 A            AI,R8    80                PAD TO 80 BYTES
     1237   04 00438    38800001 A            SW,R8    R1
     1238   04 00439    22100050 A            LI,R1    80
     1239   04 0043A    22500002 A   CMP14    LI,R5    CEOL              ADD EOL TO RECORD
     1240   04 0043B    22600006 A            LI,R6    6
     1241   04 0043C    6AB00452              BAL,R11  CMP60
     1242   04 0043D    35900029 X            STW,R9   COBUSED           SAVE POINTERS
     1243   04 0043E    3540002A X            STW,R4   COBLEFT
     1244   04 0043F    02200070 A            LCI      7
     1245   04 00440    8A500007 A            PLM,R5   *R7
     1246   04 00441    68000130              B        WRITEX
     1247                            *
     1248   04 00442    726004C3     CMP15    LB,R6    SCCTAB            NOT A-Z,0-9
     1249   04 00443    715C04C3              CB,R5    SCCTAB,R6
     1250   04 00444    6830042B              BE       CMP20             CHECK SPECIAL 6 BIT CODES
     1251   04 00445    64600443              BDR,R6   %-2
     1252   04 00446    21500040 A            CI,R5    ' '
     1253   04 00447    6830044C              BE       CMP25             BLANK
     1254   04 00448    20500400 A   CMP17    AI,R5    CNEXT8**8         OUTPUT AS 14 BITS
     1255   04 00449    2260000E A            LI,R6    14
     1256   04 0044A    6AB00452              BAL,R11  CMP60             OUTPUT 8 BIT CHARACTER
     1257   04 0044B    6800042F              B        CMP13             ITERATE
     1258                            *
     1259   04 0044C    20800001 A   CMP25    AI,R8    1                 ACCUMULATE BLANK
     1260   04 0044D    21800080 A            CI,R8    128               MAX 128 PER CODE
     1261   04 0044E    6910042F              BL       CMP13
     1262   04 0044F    225001BF A            LI,5     X'1BF'            PUT OUT 127 NOW
     1263   04 00450    2260000C A            LI,6     12
     1264   04 00451    6800045F              B        CMP68             AND REDO THIS ONE
     1265                            *
     1266   04 00452    20800000 A   CMP60    AI,R8    0                 IS BLANK COUNT ZERO
     1267   04 00453    68300462              BE       CMP70             YES
     1268   04 00454    22500007 A            LI,R5    CBLANK
     1269   04 00455    22600006 A            LI,R6    6                 ENTER BLANK IN 6 BITS
     1270   04 00456    208FFFFF A            AI,R8    -1
     1271   04 00457    6830045F              BE       CMP68             ONLY ONE BLANK
     1272   04 00458    22500005 A            LI,R5    CNBC1
     1273   04 00459    2180003F A            CI,R8    63
     1274   04 0045A    6820045D              BLE      CMP67             <=64 BLANKS, ENTER COUNT+1
     1275   04 0045B    22500006 A            LI,R5    CNBC65            ENTER COUNT+65
     1276   04 0045C    208FFFC0 A            AI,R8    -64               ADJUST COUNT
     1277   04 0045D    6AB00462     CMP67    BAL,R11  CMP70             OUTPUT CONTROL BYTE
     1278   04 0045E    32500008 A            LW,R5    R8                GET COUNT
     1279   04 0045F    6AB00462     CMP68    BAL,R11  CMP70             OUTPUT COUNT
     1280   04 00460    22800000 A            LI,R8    0                 SET NO. OF BLANKS TO ZERO
     1281   04 00461    68000430              B        CMP13+1           REDO ORIGINAL BYTE
     1282                            *
     1283   04 00462    32200005 A   CMP70    LW,R2    R5                POSITION BYTE IN EVEN REGISTER
     1284   04 00463    30900006 A            AW,R9    R6                INCREMENT TOTAL BIT COUNT
     1285   04 00464    21900360 A            CI,R9    COBTOTAL
     1286   04 00465    69200493              BG       WRITECO           WONT FIT, WRITE THIS ONE
     1287   04 00466    32500028 X            LW,R5    COWORD            GET BUFFER WORD POINTER
     1288   04 00467    38400006 A            SW,R4    R6
     1289   04 00468    68100470              BGE      CMP75             BYTE WILL FIT IN CURRENT CO WORD
     1290   04 00469    22300000 A            LI,R3    0
     1291   04 0046A    25280100 A            SLD,R2   0,R4              ADJUST NUMBER OF BITS WHICH WILL FIT
     1292   04 0046B    662A0000 A            AWM,R2   0,R5              ENTER IN CO WORD
     1293   04 0046C    33100028 X            MTW,1    COWORD            INCR POINTR
     1294   04 0046D    663A0001 A            AWM,R3   1,R5              PUT OVERFLOW BITS IN NEXT WORD
     1295   04 0046E    20400020 A            AI,R4    32                NUMBER OF BITS LEFT IN CO WORD
     1296   04 0046F    E800000B A            B        *R11              EXIT
     1297   04 00470    25280000 A   CMP75    SLS,R2   0,R4              POSITION BYTE
     1298   04 00471    662A0000 A            AWM,R2   0,R5              ENTER IN CO WORD
     1299   04 00472    E800000B A            B        *R11              EXIT
1* AP * 22:04 JUN 16,'85    PCLRW - RDWRT, HEXDUMP                                                PAGE   11
A    1300                                     PAGE
     1301                            *        STRIP TRAILING BLANKZ IF NB REQUESTED
     1302   04 00473    322E0006 X   NBCHK    LW,R2    TOARG+6,R7
     1303   04 00474    31200616              CW,R2    =X'00FF0000'
     1304   04 00475    6840047F              BAZ      LCUCCHK           NO NB, TRY CASE CONVERSION
     1305   04 00476    322E0007 X            LW,R2    WRTFPT+7,R7       BA(RECORD)
     1306   04 00477    302E0005 X            AW,R2    WRTFPT+5,R7       END OF RECORD
     1307   04 00478    22300040 A            LI,R3    ' '
     1308   04 00479    202FFFFF A            AI,R2    -1
     1309   04 0047A    71340000 A            CB,R3    0,R2
     1310   04 0047B    68300479              BE       %-2
     1311   04 0047C    382E0007 X            SW,R2    WRTFPT+7,R7       RESTORE SIZE
     1312   04 0047D    20200001 A            AI,R2    1
     1313   04 0047E    352E0005 X            STW,R2   WRTFPT+5,R7
     1314   04 0047F    322E0007 X   LCUCCHK  LW,R2    TOARG+7,R7
     1315   04 00480    72200002 A            LB,R2    R2
     1316   04 00481    202FFFED A            AI,R2    -19
     1317   04 00482    E910000B A            BL       *R11
     1318   04 00483    323E0007 X            LW,R3    WRTFPT+7,R7       REC BYTE ADDR
     1319   04 00484    324E0005 X            LW,R4    WRTFPT+5,R7       REC SIZE
     1320   04 00485    72160000 A   LCUC1    LB,R1    0,R3
     1321   04 00486    1914048E              CLM,R1   LCUCS,R2
     1322   04 00487    6990048A              BCS,9    %+3
     1323   04 00488    50140492              AH,R1    LCUCD,R2
     1324   04 00489    75160000 A            STB,R1   0,R3
     1325   04 0048A    20300001 A            AI,R3    1
     1326   04 0048B    64400485              BDR,R4   LCUC1
     1327   04 0048C    E800000B A   BIR11    B        *R11
     1328                                     BOUND    8
     1329   04 0048E    000000C1 A   LCUCS    DATA     'A','Z'
            04 0048F    000000E9 A
     1330   04 00490    00000081 A   LCCHARS  DATA     'a','z'
            04 00491    000000A9 A
     1331   04 00492    FFC0     A   LCUCD    DATA,2   'a'-'A','A'-'a'
            04 00492 2  0040     A
1* AP * 22:04 JUN 16,'85    PCLRW - RDWRT, HEXDUMP                                                PAGE   12
A    1332                                     PAGE
     1333                            * SUBROUTINE WRITECO APPENDS CONTROL INFO. TO BUFFER AND WRITES
     1334                            * COMPRESSED RECORD.
     1335   04 00493    38900006 A   WRITECO  SW,R9    R6                RESTORE ORIGINAL BYTE COUNT
     1336   04 00494    20900007 A            AI,R9    7                 COMPUTE NO. OF BYTES
     1337   04 00495    2590007D A            SLS,R9   -3                FROM BIT COUNT
     1338   04 00496    47900000 X            STS,R9   PRNTBUF           SET BYTE COUNT
     1339   04 00497    22E00000 N            LI,R14   PRNTBUF
     1340   04 00498    44B0048C              ANLZ,R11 BIR11             SCRUB JUNK FROM R11
     1341   04 00499    25600011 A            SLS,R6   17                MOVE COUNT TO 0-14
     1342   04 0049A    49B00006 A            OR,R11   R6
     1343   04 0049B    35B00028 X            STW,R11  COWORD
     1344   04 0049C    3510002A X            STW,R1   COBLEFT
     1345   04 0049D    5550002A X            STH,R5   COBLEFT           SAVE CHAR TOO
     1346   04 0049E    7580000F A            STB,R8   R15               SAVE BLANK COUNT
     1347   04 0049F    35F00029 X            STW,R15  COBUSED
     1348   04 004A0    F250000E A            LB,R5    *R14
     1349   04 004A1    32200009 A            LW,R2    R9
     1350   04 004A2    202FFFFF A            AI,R2    -1
     1351   04 004A3    F264000E A            LB,R6    *R14,R2           GET ALL BYTES
     1352   04 004A4    30500006 A            AW,R5    R6                FORM CHECKSUM
     1353   04 004A5    642004A3              BDR,R2   %-2
     1354   04 004A6    22600002 A            LI,R6    2
     1355   04 004A7    F55C000E A            STB,R5   *R14,R6           PUT IN BUFFER
     1356   04 004A8    2210006C A            LI,R1    108
     1357   04 004A9    351E0005 X            STW,R1   WRTFPT+5,R7       SET OUTPUT RECORD
     1358   04 004AA    35EE0004 X            STW,R14  WRTFPT+4,R7       DESCRIPTION
     1359   04 004AB    25E00002 A            SLS,R14  2
     1360   04 004AC    35EE0007 X            STW,R14  WRTFPT+7,R7       SET BTD
     1361   04 004AD    02200070 A            LCI      7
     1362   04 004AE    8A500007 A            PLM,R5   *R7
     1363   04 004AF    680000C2              B        WRITE0
     1364                            *
     1365   04 004B0    02200070 A   COMPNXT  LCI      7
     1366   04 004B1    8B500007 A            PSM,R5   *R7
     1367   04 004B2    53100000 X   COMPNXT0 MTH,1    PRNTBUF           INCR SEQUENCE
     1368   04 004B3    22400038 A            LI,R4    X'38'
     1369   04 004B4    75400000 X            STB,R4   PRNTBUF           SET ID
     1370   04 004B5    55080000 X            STH,R0   PRNTBUF,R4        CLEAR REST OF BUF (TO BYTE 113)
     1371   04 004B6    644004B5              BDR,R4   %-1               CLEAR BUFFER
     1372   04 004B7    22400020 A            LI,R4    32
     1373   04 004B8    22900020 A            LI,R9    32
     1374   04 004B9    32F00029 X            LW,R15   COBUSED           RESTORE POINTERS
     1375   04 004BA    6B10002A X            INT,R1   COBLEFT
     1376   04 004BB    5250002A X            LH,R5    COBLEFT           SAVED CHAR
     1377   04 004BC    22B00001 N            LI,R11   PRNTBUF+1         FIRST OUTPUT BIT ADDR
     1378   04 004BD    46B00028 X            XW,R11   COWORD
     1379   04 004BE    68300424              BE       CMP11             FIRST TIME IN
     1380   04 004BF    3260000B A            LW,R6    R11               NO, GET COUNT AND BYTE
     1381   04 004C0    2560006F A            SLS,R6   -17
     1382   04 004C1    7280000F A            LB,R8    R15
     1383   04 004C2    68000462              B        CMP70
1* AP * 22:04 JUN 16,'85    PCLRW - RDWRT, HEXDUMP                                                PAGE   13
A    1384                                     PAGE
     1385   04 004C3    144B4C4D A   SCCTAB   TEXTC    '.<(+|&%*);~-/,%>:''='    SPECIAL 6-BIT CHARACTERS
            04 004C4    4E4F505B A
            04 004C5    5C5D5E5F A
            04 004C6    60616B6C A
            04 004C7    6D6E7A7D A
            04 004C8    7E404040 A
     1386         04 004C8           CITAB    EQU      %-1
     1387   04 004C9    40404040 A            TEXT     '    0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
            04 004CA    F0F1F2F3 A
            04 004CB    F4F5F6F7 A
            04 004CC    F8F9C1C2 A
            04 004CD    C3C4C5C6 A
            04 004CE    C7C8C9D1 A
            04 004CF    D2D3D4D5 A
            04 004D0    D6D7D8D9 A
            04 004D1    E2E3E4E5 A
            04 004D2    E6E7E8E9 A
        1*                                    LIST,1   1
     1388                            COTAB    DATA,1   0,18,19,20,21,22,23,24,25,26,0,0,0,0,0,0,;
     1389                                              0,27,28,29,30,31,32,33,34,35,0,0,0,0,0,0,;
     1390                                               0,0,36,37,38,39,40,41,42,43,0,0,0,0,0,0,;
     1391   04 004D3    00       A                      8,9,10,11,12,13,14,15,16,17,0,0,0,0,0,0
        1*                                    LIST,0   1                 Pre-release H01
1* AP * 22:04 JUN 16,'85    PCLRW - RDWRT, HEXDUMP                                                PAGE   14
A    1392                                     PAGE
     1393                            * SUBROUTINE LINENUM CONSTRUCTS A WRITE KEY FROM THE CURRENT
     1394                            * LINE NUMBER.
     1395   04 004E3    321E000C X   LINENUM  LW,R1    TOARG+12,R7
     1396   04 004E4    311E000E X            CW,R1    TOARG+14,R7
     1397   04 004E5    692004EB              BG       LINE20            GR THAN MAX
     1398   04 004E6    73300001 A            MTB,3    R1
     1399   04 004E7    351E000B X   KEYADR   STW,R1   TOARG+11,R7       SAVE IT
     1400   04 004E8    321E000D X            LW,R1    TOARG+13,R7       INCREMENT FOR NEXT KEY
     1401   04 004E9    661E000C X            AWM,R1   TOARG+12,R7
     1402   04 004EA    680000D8              B        WRITE2            RETURN TO WRITE
     1403   04 004EB    2210002E A   LINE20   LI,R1    46
     1404   04 004EC    680001F8              B        RETURNE           UNCONDITIONAL GIVEUP
1* AP * 22:04 JUN 16,'85    PCLRW - RDWRT, HEXDUMP                                                PAGE   15
A    1405                                     PAGE
     1406                            * SUBROUTINE TABEXP EXPANDS EMBEDDED TAB CHARACTERS IN A RECORD
     1407                            * WHENEVER THE OUTPUT OPTION TX IS SPECIFIED. R1 CONTAINS BUFFER
     1408                            * DISPLACEMENT RELATIVE TO R7.
     1409   04 004ED    02200070 A   TABEXP   LCI      7
     1410   04 004EE    8B500007 A            PSM,R5   *R7
     1411   04 004EF    30100007 A            AW,R1    R7                COMPUTE ACTUAL BUFFER ADDRESS
     1412   04 004F0    22500000 A            LI,R5    0                 START AT FIRST TAB
     1413   04 004F1    22600000 A            LI,R6    0                 START AT FIRST CHAR IN BUFFER
     1414   04 004F2    328E0004 X            LW,R8    TABSET+4,R7       GET TAB TABLE ADDRESS
     1415   04 004F3    22200005 A            LI,R2    X'05'
     1416   04 004F4    22900040 A            LI,R9    ' '
     1417   04 004F5    33FE0005 X            MTW,-1   WRTFPT+5,R7       DISPLACEMENT OF LAST CHAR IN RECORD
     1418   04 004F6    691004FC              BL       TAB8              NULL RECORD
     1419   04 004F7    F12C0001 A   TAB5     CB,R2    *R1,R6            TEST FOR TAB CHARACTER
     1420   04 004F8    68300500              BE       TAB10
     1421   04 004F9    20600001 A   TAB6     AI,R6    1                 POSITION TO NEXT CHAR IN BUFFER
     1422   04 004FA    316E0005 X            CW,R6    WRTFPT+5,R7
     1423   04 004FB    682004F7              BLE      TAB5
     1424   04 004FC    331E0005 X   TAB8     MTW,1    WRTFPT+5,R7       SET TRUE RECORD SIZE
     1425   04 004FD    02200070 A            LCI      7                 END OF BUFFER - EXIT
     1426   04 004FE    8A500007 A            PLM,R5   *R7
     1427   04 004FF    E800000B A            B        *R11
     1428                            *
     1429   04 00500    F59C0001 A   TAB10    STB,R9   *R1,R6            STORE BLANK OVER TAB CHAR
     1430   04 00501    20800000 A            AI,R8    0                 WERE TABS SPECIFIED
     1431   04 00502    683004F9              BE       TAB6              NO
     1432   04 00503    F23A0008 A   TAB12    LB,R3    *R8,R5            GET TAB VALUE
     1433   04 00504    69300507              BNE      TAB15
     1434   04 00505    22800000 A   TAB13    LI,R8    0                 NO MORE VALUES
     1435   04 00506    680004F9              B        TAB6
     1436   04 00507    203FFFFF A   TAB15    AI,R3    -1                IS THIS TAB POSITION GREATER THAN
     1437   04 00508    31300006 A            CW,R3    R6                POSITION OF TAB CODE
     1438   04 00509    6920050E              BG       TAB17
     1439   04 0050A    20500001 A            AI,R5    1                 NO - TRY NEXT TAB POSITION
     1440   04 0050B    21500010 A            CI,R5    16
     1441   04 0050C    69100503              BL       TAB12
     1442   04 0050D    68000505              B        TAB13             MAX NUM OF TABS
     1443   04 0050E    20600001 A   TAB17    AI,R6    1                 INCREMENT TO NEXT CHAR IN BUFFER
     1444   04 0050F    324E0005 X            LW,R4    WRTFPT+5,R7       DETERMINE LAST CHAR POSITION
     1445   04 00510    38300006 A            SW,R3    R6                COMPUTE NUMBER OF BLANKS TO INSERT
     1446   04 00511    683004F7              BE       TAB5              NONE
     1447   04 00512    30300004 A            AW,R3    R4                INCREMENT TO NEW LAST CHAR
     1448   04 00513    353E0005 X            STW,R3   WRTFPT+5,R7       SET NEW RECORD SIZE
     1449   04 00514    F2A80001 A   TAB19    LB,R10   *R1,R4            GET LAST CHAR OF RECORD
     1450   04 00515    F5980001 A            STB,R9   *R1,R4            BLANK THIS CHAR IN RECORD
     1451   04 00516    F5A60001 A            STB,R10  *R1,R3            MOVE CHAR UP TO NEW POSITION
     1452   04 00517    203FFFFF A            AI,R3    -1
     1453   04 00518    204FFFFF A            AI,R4    -1
     1454   04 00519    31400006 A            CW,R4    R6                GO TO CHAR JUST ABOVE TAB BLANK
     1455   04 0051A    68100514              BGE      TAB19
     1456   04 0051B    32600003 A            LW,R6    R3                INC CHAR POSITION TO LAST MOVED
     1457   04 0051C    20500001 A            AI,R5    1                 INC TAB TABLE POINTER
     1458   04 0051D    680004F7              B        TAB5              LOOK FOR MORE TABS
1* AP * 22:04 JUN 16,'85    PCLRW - RDWRT, HEXDUMP                                                PAGE   16
A    1459                                     PAGE
     1460                            * SUBROUTINE SEQOUT CONSTRUCTS SEQUENCE INFORMATION IN LOCATION
     1461                            * CARDSEQ.
     1462   04 0051E    89300007 A   CS       PSW,R3   *R7
     1463   04 0051F    321E000C X            LW,R1    TOARG+12,R7       GET SEQUENCE NUMBER
     1464   04 00520    311E000E X            CW,R1    TOARG+14,R7
     1465   04 00521    68200524              BLE      SEQOUT1
     1466   04 00522    22100000 A            LI,R1    0                 GR THAN MAX - REVERT TO 0
     1467   04 00523    351E000C X            STW,R1   TOARG+12,R7
     1468   04 00524    6AB00000 X   SEQOUT1  BAL,R11  BIN2BCD           CONVERT TO BCD
     1469   04 00525    49300620              OR,R3    ='0000'
     1470   04 00526    353E0001 X            STW,R3   CARDSEQ+1,R7      ENTER LAST 4 CHARS
     1471   04 00527    321E000B X            LW,R1    TOARG+11,R7       SIZE OF NONNUMERIC 1ST WORD
     1472   04 00528    231FFFF8 A            MI,R1    -8                SET TO GEN MASK
     1473   04 00529    32300620              LW,R3    ='0000'
     1474   04 0052A    2532007C A            SLS,R3   -4,R1
     1475   04 0052B    472E0000 X            STS,R2   CARDSEQ,R7
     1476   04 0052C    321E000D X            LW,R1    TOARG+13,R7
     1477   04 0052D    661E000C X            AWM,R1   TOARG+12,R7       INCREMENT SEQUENCE NUMBER
     1478   04 0052E    88300007 A            PLW,R3   *R7
     1479   04 0052F    21300010 A            CI,R3    X'10'             IS THIS BINARY OR BCD
     1480   04 00530    6840031F              BAZ      CS2               BCD
     1481                            * SUBROUTINE SEQOUTB CONVERTS SEQUENCE INFO IN LOCATION CARDSEQ TO
     1482                            * BINARY FORMAT AND ENTERS IT IN THE LAST 3 WORDS OF THE OUTPUT
     1483                            * BUFFER.
     1484   04 00531    32BE0004 X            LW,R11   WRTFPT+4,R7
     1485   04 00532    20B0001E A            AI,R11   30                POINT TO END OF RECORD
     1486   04 00533    22800002 N            LI,R8    CARDSEQ+2
     1487   04 00534    30800007 A            AW,R8    R7                LOCATION OF CARDSEQ
     1488   04 00535    221FFFF8 A            LI,R1    -8                8 CHARS
     1489   04 00536    225FFFF4 A            LI,R5    -12               STORED INTO 12
     1490   04 00537    F2420008 A   SEQ100   LB,R4    *R8,R1            CHAR TO CONVERT
     1491   04 00538    32200004 A            LW,R2    R4
     1492   04 00539    202FFFFF A            AI,R2    -1
     1493   04 0053A    2520007D A            SLS,R2   -3
     1494   04 0053B    7224055A              LB,R2    HOLES,R2
     1495   04 0053C    223FFFE4 A            LI,R3    #ANOMS
     1496   04 0053D    71460569     KGCA%4   CB,R4    ANOMS,R3
     1497   04 0053E    69300541              BNE      %+3
     1498   04 0053F    72260570              LB,R2    HOLES1,R3
     1499   04 00540    22303E0B A            LI,R3    X'F83'**2-1
     1500   04 00541    6530053D              BIR,R3   KGCA%4
     1501   04 00542    2520017E A            SLD,R2   -2
     1502   04 00543    25200004 A            SLS,R2   4
     1503   04 00544    25200102 A            SLD,R2   2
     1504   04 00545    2530007E A            SLS,R3   -2
     1505   04 00546    3A400004 A            LCW,R4   R4
     1506   04 00547    4B400621              AND,R4   =X'8007'
     1507   04 00548    25480072 A            SLS,R4   -14,R4
     1508   04 00549    46200004 A            XW,R2    R4
     1509   04 0054A    49200004 A            OR,R2    R4
     1510   04 0054B    4A200004 A            LS,R2    R4
     1511   04 0054C    2520027C A            SCS,R2   -4                PREPARE FOR STORE
     1512   04 0054D    21100001 A            CI,R1    1                 IS THIS FIRST OR SECOMD
     1513   04 0054E    68400553              BAZ      SEQ101            OF PAIR
     1514   04 0054F    2520027C A            SCS,R2   -4
     1515   04 00550    205FFFFF A            AI,R5    -1
     1516   04 00551    F24A000B A            LB,R4    *R11,R5
     1517   04 00552    30200004 A            AW,R2    R4
     1518   04 00553    F52A000B A   SEQ101   STB,R2   *R11,R5
     1519   04 00554    20500001 A            AI,R5    1
     1520   04 00555    25200208 A            SCS,R2   8
     1521   04 00556    F52A000B A            STB,R2   *R11,R5
     1522   04 00557    20500001 A            AI,R5    1
     1523   04 00558    65100537              BIR,R1   SEQ100
     1524   04 00559    68000317              B        BINCSX
     1525                            *
     1526   04 0055A    81834143 A   HOLES    DATA     X'81834143',X'21230103'
            04 0055B    21230103 A
     1527   04 0055C    A182C142 A            DATA     X'A182C142',X'6122E102'
            04 0055D    6122E102 A
     1528   04 0055E    A0A2C0C2 A            DATA     X'A0A2C0C2',X'6062E0E2'
            04 0055F    6062E0E2 A
     1529   04 00560    80A340C3 A            DATA     X'80A340C3',X'206300E3'
            04 00561    206300E3 A
     1530   04 00562    00102030 A            DATA     X'00102030',X'40506061'
            04 00563    40506061 A
     1531   04 00564    6A708089 A            DATA     X'6A708089',X'90999FA0'
            04 00565    90999FA0 A
     1532   04 00566    A9B0B9C0 A            DATA     X'A9B0B9C0',X'C9D0D9E0'
            04 00567    C9D0D9E0 A
     1533   04 00568    E1E9F0F9 A            DATA     X'E1E9F0F9'
     1534   04 00569    B3D373F3 A   ANOMS    DATA     X'B3D373F3',X'00804030'
            04 0056A    00804030 A
     1535   04 0056B    C0E0B2A1 A            DATA     X'C0E0B2A1',X'D2C1C272'
            04 0056C    D2C1C272 A
     1536   04 0056D    61F2E1A0 A            DATA     X'61F2E1A0',X'8160412A'
            04 0056E    8160412A A
     1537   04 0056F    71212001 A            DATA     X'71212001'
     1538         04 00570           HOLES1   EQU,0    %
     1539         FFFFFFE4           #ANOMS   EQU      BA(ANOMS)-BA(%)
1* AP * 22:04 JUN 16,'85    PCLRW - RDWRT, HEXDUMP                                                PAGE   17
A    1540                                     PAGE     'H E X D U M P'
     1541                            *P*      NAME:    HEXDUMP
     1542                            *P*
     1543                            *P*      PURPOSE: CONVERTS AN INPUT DATA RECORD INTO A HEXADECIMAL DUMP
     1544                            *P*               FORMAT AND WRITES IT.  THIS ROUTINE IS CALLED FROM
     1545                            *P*               THE RDWRT ROUTINE IF THE X FORMAT CONVERSION HAS BEEN
     1546                            *P*               SPECIFIED.
     1547                            *P*
     1548   04 00570    022000B0 A   HEXDUMP  LCI      11
     1549   04 00571    8B500007 A            PSM,R5   *R7
     1550                            *
     1551   04 00572    04100601              CAL1,1   FPTVFC            RESET VFC
     1552   04 00573    22E00000 N            LI,R14   PRNTBUF
     1553   04 00574    04100610              CAL1,1   FPTSKIP           PRINT BLANK LINE
     1554   04 00575    2210000F A            LI,R1    15                PRINT KEY IF FILE
     1555   04 00576    4B100000 X            AND,R1   M:EI              OR LABEL
     1556   04 00577    21100002 A            CI,R1    2
     1557   04 00578    69200585              BG       PRTREC#           NO  - PRINT REC NUMBER
     1558   04 00579    22300030 A            LI,R3    X'30'
     1559   04 0057A    22200020 A            LI,R2    X'20'
     1560   04 0057B    45200005 X            CS,R2    M:EI+5            IS FILE KEYED
     1561   04 0057C    69300585              BNE      PRTREC#           NO - PRINT REC NUMBER
     1562   04 0057D    22100014 A            LI,R1    20
     1563   04 0057E    32200609              LW,R2    BLNKT             BLANK PRINT BUFFER
     1564   04 0057F    B522000E A            STW,R2   *R14,R1
     1565   04 00580    6410057E              BDR,R1   %-2
     1566   04 00581    32200608              LW,R2    KEYT
     1567   04 00582    3210000A X            LW,R1    M:EI+10
     1568   04 00583    6AA005EC              BAL,R10  UNPRINT0          ENTER KEY IN BUFFER
     1569   04 00584    68000589              B        RECSIZ            PRINT RECORD SIZE
     1570   04 00585    321E0000 X   PRTREC#  LW,R1    RECNUM,R7
     1571   04 00586    2220060A              LI,R2    RECT
     1572   04 00587    22600000 A            LI,R6    0                 START AF FRONT OF LINE
     1573   04 00588    6AB005F5              BAL,R11  BIN2BCD0          CONVERT REC# TO BCD
     1574   04 00589    321E0005 X   RECSIZ   LW,R1    WRTFPT+5,R7       PRINT RECORD SIZE
     1575   04 0058A    2220060C              LI,R2    DASHT
     1576   04 0058B    6AB005F5              BAL,R11  BIN2BCD0          GO-CONVERT SIZE TO EBCDIC
     1577   04 0058C    2220060E              LI,R2    BYTEST
     1578   04 0058D    6AB005E4              BAL,R11  MOVTXTC
     1579   04 0058E    04100603              CAL1,1   PRINT             PRINT REC NO OR KEY AND SIZE
     1580   04 0058F    32FE0005 X            LW,R15   WRTFPT+5,R7       SIZE
     1581   04 00590    683005E0              BE       RETURN3           NULL RECORD
     1582   04 00591    04100610              CAL1,1   FPTSKIP           SKIP A LINE
     1583   04 00592    22100021 A            LI,R1    33
     1584   04 00593    32200609              LW,R2    BLNKT             * BLANK PRNTBUF
     1585   04 00594    B522000E A            STW,R2   *R14,R1
     1586   04 00595    64100594              BDR,R1   %-1
     1587   04 00596    32900596              LW,R9    %                 SET POS BDR REG FOR TERMINAL
     1588   04 00597    321E0000 X            LW,R1    TOARG,R7
     1589   04 00598    21100008 A            CI,R1    8                 IS OUTPUT TO A TERMINAL
        1*  04 00599    6930059E              BNE      LABEL
        2*  04 0059A    22100000 N            LI,R1    BA(JB:PCW)
        3*  04 0059B    72120000 A            LB,R1    0,R1
        4*  04 0059C    2110007C A            CI,R1    124
        5*  04 0059D    6910059F              BL       %+2
        6*        04 0059E           LABEL    EQU,0    %
     1591   04 0059E    B290059E              LW,R9    *%                NEG FOR LP OR OTHER THING
     1592   04 0059F    325E0007 X            LW,R5    WRTFPT+7,R7       BYTE ADDRESS OV RECORD
     1593   04 005A0    22800000 A            LI,R8    0                 RESET ASTERISK FLAG
     1594   04 005A1    33000000 X   DUMP2    MTW,0    BREAK             BREAK KEY HIT
     1595   04 005A2    683005A6              BE       KGC2%4            NO
     1596   04 005A3    04800614              CAL1,8   FPTWAIT           WAIT FOR SECOND BREAK
     1597   04 005A4    33F00000 X            MTW,-1   BREAK             YES-CLEAR BREAK
     1598   04 005A5    680005E0              B        RETURN3           RETURN
     1599   04 005A6    32100005 A   KGC2%4   LW,R1    R5
     1600   04 005A7    381E0007 X            SW,R1    WRTFPT+7,R7
     1601   04 005A8    2510007E A            SLS,R1   -2                MAKE WORD DISPLACEMENTS
     1602   04 005A9    6AB00000 X            BAL,R11  HEX2BCD           CONVERT ADDRESS TO BCD
     1603   04 005AA    25200118 A            SLD,R2   24
     1604   04 005AB    49300609              OR,R3    BLNKT             GET RID OF LEADING ZEROES IN ADDRESS
     1605   04 005AC    9520000E A            STD,R2   *R14              PUT ADDRESS INTO PRNT BUFFER
     1606                            *
     1607   04 005AD    22400004 A            LI,R4    4                 LOAD PRNTBUF POINTER
     1608   04 005AE    2260005C A            LI,R6    92                START OF EBCD FOR LP
     1609   04 005AF    659005B1              BIR,R9   %+2
     1610   04 005B0    22600032 A            LI,R6    50
     1611   04 005B1    22C00004 A            LI,R12   4                 FOUR BYTES PER WORD
     1612   04 005B2    721A0000 A   DUMP1    LB,R1    0,R5
     1613   04 005B3    20500001 A            AI,R5    1
     1614   04 005B4    89400007 A            PSW,R4   *R7
     1615   04 005B5    6AB00000 X            BAL,R11  HEX2BCD           GET HEX
     1616   04 005B6    88400007 A            PLW,R4   *R7
     1617   04 005B7    55300003 A            STH,R3   R3                SIGN EXTEND
     1618   04 005B8    52300003 A            LH,R3    R3
     1619   04 005B9    D138000E A            CH,R3    *R14,R4           CHECK FOR SAME AS LAST LINE
     1620   04 005BA    683005BC              BE       %+2
     1621   04 005BB    55000008 A   DUMP10   STH,R0   R8                CLEAR SKIP FLAG
     1622   04 005BC    D538000E A            STH,R3   *R14,R4
     1623   04 005BD    22300001 A            LI,R3    1                 IS THIS PRINTABLE CHAR
     1624   04 005BE    25320200 A            SCS,R3   0,R1
     1625   04 005BF    2510027B A            SCS,R1   -5
     1626   04 005C0    4B320000 X            AND,R3   CCTAB,R1
     1627   04 005C1    25100205 A            SCS,R1   5
     1628   04 005C2    693005C4              BNE      %+2               YES
     1629   04 005C3    2210004B A            LI,R1    '.'               NO, MAKE DOT
     1630   04 005C4    F51C000E A            STB,R1   *R14,R6
     1631   04 005C5    20600001 A            AI,R6    1                 INCR BUFF PTRS
     1632   04 005C6    20400001 A            AI,R4    1
     1633   04 005C7    64C005D0              BDR,R12  DUMP3             HAVE WE DONE A WORD
     1634   04 005C8    22C00004 A            LI,R12   4
     1635   04 005C9    20400001 A            AI,R4    1                 YES, SKIP 2 SPACES
     1636   04 005CA    21400018 A            CI,R4    24                ARE WE HALF DONE
     1637   04 005CB    693005CE              BNE      %+3               NO
     1638   04 005CC    20400001 A            AI,R4    1                 YES, SKIP MORE
     1639   04 005CD    649005D4              BDR,R9   PRNT              AND PRINT IF TERMINAL
     1640   04 005CE    2140002D A            CI,R4    45                MAYBE ALL DONE WITH LINE
     1641   04 005CF    681005D4              BGE      PRNT
     1642   04 005D0    64F005B2     DUMP3    BDR,R15  DUMP1             NO, TO NEXT BYTE
     1643   04 005D1    22304040 A            LI,R3    '  '              NONE LEFT, BLANK REST OF BUFFER
     1644   04 005D2    22100040 A            LI,R1    ' '
     1645   04 005D3    680005BB              B        DUMP10
     1646                            *
     1647   04 005D4    64F005D6     PRNT     BDR,R15  %+2               COUNT BYTES
     1648   04 005D5    55000008 A            STH,R0   R8                AND PRINT THE LAST LINE ANYWAY
     1649   04 005D6    658005DE              BIR,R8   PRNT2             STILL SKIPPING
     1650   04 005D7    2180FFFE A            CI,R8    X'FFFE'           FIRST OR NO
     1651   04 005D8    684005DC              BAZ      PRNT1             YES, NO *
     1652   04 005D9    22100005 A            LI,R1    5
     1653   04 005DA    2220005C A            LI,R2    '*'
     1654   04 005DB    F522000E A            STB,R2   *R14,R1
     1655   04 005DC    04100603     PRNT1    CAL1,1   PRINT
     1656   04 005DD    228F0000 A            LI,R8    X'F0000'          SET INITIAL FLAG VALUE
     1657   04 005DE    20F00000 A   PRNT2    AI,R15   0
     1658   04 005DF    692005A1              BG       DUMP2
     1659   04 005E0    022000B0 A   RETURN3  LCI      11
     1660   04 005E1    8A500007 A            PLM,R5   *R7
     1661   04 005E2    22000000 A            LI,R0    0
     1662   04 005E3    E800000B A            B        *R11
     1663                            *
     1664                            *        MOVTXTC MOVES TEXTC AT WA(R2) TO *R14,R6 BYTES
     1665                            *        AND ADJUSTS R6
     1666   04 005E4    F2300002 A   MOVTXTC  LB,R3    *R2               GET COUNT
     1667   04 005E5    442005E4              ANLZ,R2  %-1
     1668   04 005E6    20200001 A            AI,R2    1
     1669   04 005E7    72A40000 A            LB,R10   0,R2
     1670   04 005E8    F5AC000E A            STB,R10  *R14,R6
     1671   04 005E9    20600001 A            AI,R6    1
     1672   04 005EA    643005E6              BDR,R3   %-4
     1673   04 005EB    E800000B A            B        *R11
     1674                            *
     1675                            *MOVE TEXT IN R2 + = AND NAME AT *R1 TO *R14
     1676                            *        SET R6 TO NEXT CSPACE
     1677                            *
     1678   04 005EC    B520000E A   UNPRINT0 STW,R2   *R14
     1679   04 005ED    2220007E A            LI,R2    '='
     1680   04 005EE    20E00001 A            AI,R14   1
     1681   04 005EF    F520000E A            STB,R2   *R14
     1682   04 005F0    6AB00000 X            BAL,R11  UNPRINT
     1683   04 005F1    32600002 A            LW,R6    R2
     1684   04 005F2    20600005 A            AI,R6    5
     1685   04 005F3    20EFFFFF A            AI,R14   -1
     1686   04 005F4    E800000A A            B        *R10
     1687                            *        MOVE TEXTC AT *R2 AND NUMMER IN R1
     1688                            *        TO *R14,R6..PACKING NUMBER AND ADJUST R6
     1689   04 005F5    89B00007 A   BIN2BCD0 PSW,R11  *R7               SAVE RETURN
     1690   04 005F6    6AB005E4              BAL,R11  MOVTXTC
     1691   04 005F7    6AB00000 X            BAL,R11  BIN2BCD
     1692   04 005F8    22100008 A            LI,R1    8                 8 DIGS MAX
     1693   04 005F9    25200308 A   B2B2     SCD,R2   8
     1694   04 005FA    F53C000E A            STB,R3   *R14,R6
     1695   04 005FB    213000B0 A            CI,R3    X'B0'             NUMBER OR BLANK
     1696   04 005FC    684005FE              BAZ      %+2
     1697   04 005FD    20600001 A            AI,R6    1
     1698   04 005FE    641005F9              BDR,R1   B2B2
     1699   04 005FF    88B00007 A            PLW,R11  *R7
     1700   04 00600    E800000B A            B        *R11
     1701   04 00601    05000000 X   FPTVFC   GEN,8,7,17 X'05',0,M:EO
     1702   04 00602    00000000 A            DATA     0
     1703   04 00603    11000000 X   PRINT    GEN,8,7,17 X'11',0,M:EO
     1704   04 00604    34000010 A            DATA     X'34000010'
     1705   04 00605    8000000E A            PZE      *R14              BUFFER ADDRESS
     1706   04 00606    80000006 A            PZE      *R6               LENGTH
     1707   04 00607    00000000 A            DATA     0                 DISPLACEMENT
     1708   04 00608    D2C5E840 A   KEYT     TEXT     'KEY '
     1709   04 00609    40404040 A   BLNKT    TEXT     '    '
     1710   04 0060A    06D9C5C3 A   RECT     TEXTC    'REC # '
            04 0060B    407B4040 A
     1711   04 0060C    05404060 A   DASHT    TEXTC    '  -  '
            04 0060D    40404040 A
     1712   04 0060E    0640C2E8 A   BYTEST   TEXTC    ' BYTES'
            04 0060F    E3C5E240 A
     1713   04 00610    11000000 N   FPTSKIP  GEN,8,24 17,M:EO
     1714   04 00611    30000010 A            DATA     X'30000010'
     1715   04 00612    00000609              DATA     BLNKT,1
            04 00613    00000001 A
     1716   04 00614    0F000001 A   FPTWAIT  GEN,8,24 15,1              WAIT FOR SECOND BREAK
     1717                                     END
            04 00615    40404040 A
            04 00616    00FF0000 A
            04 00617    00FFFFFF A
            04 00618    0000F04B A
            04 00619    0098967F A
            04 0061A    0000F06B A
            04 0061B    F0F0F040 A
            04 0061C    40604040 A
            04 0061D    88000008 A
            04 0061E    00200000 A
            04 0061F    89000008 A
            04 00620    F0F0F0F0 A
            04 00621    00008007 A

  CONTROL SECTION SUMMARY: 01 00000   PT 0     02 00000   PT 0     03 00000   PT 1     04 00622   PT 1
1* AP * 22:04 JUN 16,'85    PCLRW - RDWRT, HEXDUMP                                                PAGE   18
A *    SYMBOL VALUES
          ANOMS/04 00569           BCDCSX/04 0031D          BINCSX/04 00317          BINVAL/04 00359
          BIN2BCD0/04 005F5        BIR11/04 0048C           BLKOVH/04 0028F          BLKTEST/04 00262
          BLK09/04 0027D           BLK10/04 0027F           BLNKT/04 00609           BRCHK/04 00329
          BRKMSG/04 00352          BYTEST/04 0060E          B2B2/04 005F9            CBLANK/00000007
          CEOF/00000003            CEOL/00000002            CIBLEFT/00000024 S       CIBTOTAL/00000025 S
          CIBUSED/00000023 S       CISEQ/00000026 S         CITAB/04 004C8           CIWORD/00000022 S
          CLOSE2/04 0021D          CMP10/04 0041B           CMP11/04 00424           CMP12/04 0042D
          CMP13/04 0042F           CMP14/04 0043A           CMP15/04 00442           CMP17/04 00448
          CMP20/04 0042B           CMP25/04 0044C           CMP60/04 00452           CMP67/04 0045D
          CMP68/04 0045F           CMP70/04 00462           CMP75/04 00470           CNBC1/00000005
          CNBC65/00000006          CNEXT8/00000004          COBLEFT/0000002A S       COBTOTAL/00000360
          COBUSED/00000029 S       COMPLAST/04 00403        COMPNXT/04 004B0         COMPNXT0/04 004B2
          COMPRESS/04 00406        COTAB/04 004D3           COWORD/00000028 S        CS/04 0051E
          CS2/04 0031F             DASHT/04 0060C           DECOMPR/04 003A8         DECOMP0/04 0035B
          DEC05/04 003AC           DEC10/04 003B4           DEC15/04 003BD           DEC20/04 003C0
          DEC30/04 003C7           DEC35/04 003D0           DEC40/04 003D7           DEC45/04 003DC
          DEC47/04 003DF           DEC50/04 003E4           DEC60/04 003E8           DEC65/04 003F1
          DEC67/04 00400           DEC70/04 00401           DUMP1/04 005B2           DUMP10/04 005BB
          DUMP2/04 005A1           DUMP3/04 005D0           EICVOL/04 00217          EIEQSI/04 00241
          EIERR/04 001C4           EOCVOL/04 00219          EOCVOL2/04 0021B         EODMSG/04 00254
          EOD1/04 0014B            EOD2/04 00157            EOERR/04 001ED           EOF1/04 0015D
          EOF11/04 0016C           EOF2/04 00177            EOF3/04 00187            EOF4/04 0018A
          EOF5/04 0018D            EOF6/04 001A1            EOF7/04 00143            EOF8/04 00260
          EOR/04 001AB             ERRCODE/0000002B S       ERROR0/04 0016F          ERROR1/04 00185
          FPTEOD/04 0024F          FPTREL/04 0025D          FPTSKIP/04 00610         FPTVFC/04 00601
          FPTWAIT/04 00614         GETPG/04 00234           HEXDUMP/04 00570         HOLES/04 0055A
          HOLES1/04 00570          H02/00000001             IMEI/04 002F4            INBLK/0000002C S
          INFMT/0000002E S         INREC/0000002D S         IOERR0/04 00182          IOERR1/04 001EF
          IRDFPT/04 00247          IR7/04 002FA             IWRTFPT/04 0024B         KEYADR/04 004E7
          KEYT/04 00608            KEYX/04 00228            KGC%5/04 0028C           KGCA%4/04 0053D
          KGCA%5/04 0029C          KGC0%4/04 00084          KGC1%4/04 001B5          KGC2%4/04 005A6
          LABEL/04 0059E           LCCHARS-04 00490         LCUCCHK/04 0047F         LCUCD/04 00492
          LCUCS/04 0048E           LCUC1/04 00485           LINENUM/04 004E3         LINE20/04 004EB
          MOVTXTC/04 005E4         NBCHK/04 00473           NCCHK/04 002FB           NCC1/04 0030F
          NCC2/04 0030C            NCC4/04 00303            NCS/04 00311             NCS1/04 0031A
          OPNDCB0/04 00010         OPNI3/04 00243           OUTBUF/0000002F S        OUTFMT/00000002 S
          OUTREC/00000001 S        PFIL/04 0025B            PREC/04 00220            PREC2/04 00224
          PRINT/04 00603           PRINT1/04 0022A          PRINT2/04 0022F          PRNT/04 005D4
          PRNT1/04 005DC           PRNT2/04 005DE           PRTREC#/04 00585         RC212/04 00382
          RC220/04 00397           RC290/04 00363           RC291/04 00379           RC292/04 0037D
          RDABN/04 00146           RDWRT-04 00000           RDWRTX-04 0001F          RDWRTX1/04 00405
          READN/04 00140           READ0/04 00062           READ1/04 00063           READ14/04 0006A
          READ17/04 0009B          READ2/04 000B3           READ23/04 000A9          READ28/04 0007F
          READ29/04 0007B          READ3/04 00099           READ4/04 00058           READ40/04 0004C
          READ41/04 00031          READ42/04 0003D          READ52/04 000BD          RECOVH/04 00291
          RECSIZ/04 00589          RECSIZE/00000027 S       RECT/04 0060A            RETURN/04 001F9
          RETURNE/04 001F8         RETURNX/04 0020F         RETURN2/04 0020B         RETURN3/04 005E0
          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
          SCCTAB/04 004C3          SEQID/04 00324           SEQOUT1/04 00524         SEQ100/04 00537
          SEQ101/04 00553          SETBINBCD/04 00358       SETEI/04 00235           SETEO/04 0023B
          TABEXP/04 004ED          TAB10/04 00500           TAB12/04 00503           TAB13/04 00505
          TAB15/04 00507           TAB17/04 0050E           TAB19/04 00514           TAB5/04 004F7
          TAB6/04 004F9            TAB8/04 004FC            ULBLCHK/04 001D0         UNBD/04 002DE
          UNBD3/04 002E8           UNBF/04 002B5            UNBF1/04 002B9           UNBF3/04 002CC
          UNBLK/04 002AF           UNBTAB/04 002B1          UNBV/04 002EB            UNBV2/04 002F2
          UNPRINT0/04 005EC        VCVT/04 00293            VCVTB/04 002A9           VCVTD/04 002A4
          VCVTX/04 002A2           WEOF/04 00216            WRITECO/04 00493         WRITEX/04 00130
          WRITE0/04 000C2          WRITE01/04 000D6         WRITE1/04 00115          WRITE11/04 00120
          WRITE2/04 000D8          WRITE5/04 000FE          WRITE6/04 0010D          WRTABN/04 001B7
          WRTMSG/04 0034D          56ERR/04 001E6           56ERRCHK/04 001E7        #ANOMS/FFFFFFE4
  *    EXTERNAL SYMBOLS
          ARGBUFF-REF    BCD2BIN-REF    BIN2BCD-REF    BLKBUFF-REF    BLKFIX-REF     BLKIN-REF
          BLKSIZE-REF    BREAK-REF      CARDSEQ-REF    CCTAB-REF      CMBX-REF       CODE-REF
          COPYSK-REF     DELETEF-REF    DEVICE-REF     ERROR-REF      GRANCNT-REF    HEX2BCD-REF
          INCRPT-REF     IOABORTS-REF   IOBUF-REF      JB:PCW-REF     LCCHARS-DEF    M:C-REF
          M:EI-REF       M:EO-REF       M:LO-REF       M:UC-REF       MODE-REF       NPAGE-REF
          OUTBLK-REF     OUTCRPT-REF    PRNTBUF-REF    PRTBUF-REF     PRTNOF-REF     RDFPT-REF
          RDWRT*DEF      RDWRTX-DEF     READONE-REF    RECNUM-REF     RSSAVE-REF     SELECT-REF
          SUPERR-REF     TABSET-REF     TOARG-REF      TOSWT-REF      UNBADR-REF     UNPRINT-REF
          WRTFPT-REF
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1* AP * 22:04 JUN 16,'85    PCLRW - RDWRT, HEXDUMP                                                PAGE   19
A  ANOMS           1496/CB      1534-DATA    1539/EQU
   ARGBUFF           80/REF      973/STM
   BA               871/MBS     1539/EQU     1539/EQU   1589.2/LI
   BCDCSX           940-LI       948/B
   BCD2BIN        107.1/REF      881/BAL
   BINCSX           934-LI       941/B       1524/B
   BINVAL           333/CB      1001-DATA
   BIN2BCD           88/REF    364.5/BAL   364.14/BAL      382/BAL      968/BAL     1468/BAL     1691/BAL
   BIN2BCD0        1573/BAL     1576/BAL     1689-PSW
   BIR11           1327-B       1340/ANLZ
   BLKBUFF          103/REF      209/STW      755/AW       758/LW       763/LW       774/STW      778/SW
       779/AW       780/AWM
   BLKFIX            79/REF      166/BAL
   BLKIN            107/REF      161/LI
   BLKOVH           208/LH       759/CH       773/LH       794-DATA
   BLKSIZE          109/REF      250/STW      840/CW
   BLKTEST          344/BAL      748-EQU      775/B
   BLK09            760/BE       776-LW
   BLK10            757/BLE      778-SW
   BLNKT           1563/LW      1584/LW      1604/OR      1709-TEXT    1715/DATA
   BRCHK            441/BAL      956-MTW
   BREAK             93/REF      302/MTW      956/MTW      977/LW       985/MTW      986/CW      1594/MTW
      1597/MTW
   BRKMSG           964/LI       978/LI       998-TEXT
   BYTEST          1577/LI      1712-TEXTC
   B2B2            1693-SCD     1698/BDR
   CARDSEQ           87/REF      943/LW       946/LW      1470/STW     1475/STS     1486/LI
   CBLANK            39-EQU     1268/LI
   CCTAB             96/REF     1626/AND
   CEOF              35-EQU     1210/LI
   CEOL              34-EQU     1239/LI
   CIBLEFT          115-EQU     1074/LW      1084/LW      1115/STW     1155/STW
   CIBTOTAL         116-EQU     1065/STW     1153/CW
   CIBUSED          114-EQU     1083/LW      1114/STW
   CISEQ            117-EQU      217/STW     1019/LW      1043/LW      1063/MTW     1124/STW
   CITAB            693/DATA    1102/LB      1386-EQU
   CIWORD           113-EQU      218/STW      446/MTW     1070/XW      1125/STW     1157/STW     1163/LW
      1170/STW
   CLOSE2           643/LI       652/AND      679-GEN
   CMBX              76/REF      141/STW      495/STW      630/STW
   CMP10           1200/BNE     1206-MTB
   CMP11           1207/BE      1216-LB      1230/BL      1379/BE
   CMP12           1220/BNE     1226-LI
   CMP13           1228-AI      1257/B       1261/BL      1281/B
   CMP14           1233/BANZ    1235/BGE     1239-LI
   CMP15           1218/BLE     1248-LB
   CMP17           1222/B       1254-AI
   CMP20           1224-AI      1250/BE
   CMP25           1253/BE      1259-AI
   CMP60           1212/BAL     1227/BAL     1241/BAL     1256/BAL     1266-AI
   CMP67           1274/BLE     1277-BAL
   CMP68           1264/B       1271/BE      1279-BAL
   CMP70           1214/B       1267/BE      1277/BAL     1279/BAL     1283-LW      1383/B
   CMP75           1289/BGE     1297-SLS
   CNBC1             37-EQU     1272/LI
   CNBC65            38-EQU     1275/LI
   CNEXT8            36-EQU     1254/AI
   COBLEFT          121-EQU     1192/LW      1202/STW     1243/STW     1344/STW     1345/STH     1375/INT
      1376/LH
   COBTOTAL          40-EQU     1285/CI
   COBUSED          120-EQU     1191/LW      1201/STW     1242/STW     1347/STW     1374/LW
   CODE              86/REF      253/CW       286/CW
   COMPLAST         445/BNE      530/BE       550/BE       991/B       1182-MTW
   COMPNXT          439/BDR     1365-LCI
   COMPNXT0        1205/B       1367-MTH
   COMPRESS         321/BAL     1185-LI
   COPYSK           100/REF      499/MTW      538/MTW      961/MTW     1182/MTW
   COTAB           1219/LB      1388-DATA
   COWORD           119-EQU      138/STW      438/INT     1199/LW      1287/LW      1293/MTW     1343/STW
      1378/XW
   CS               953/B       1462-PSW
   CS2              943-LW      1480/BAZ
   DASHT           1575/LI      1711-TEXTC
   DECOMPR          447/BNE     1081-LCI
   DECOMP0          254/BE      1003-LCI
   DEC05           1077/B       1085-LI
   DEC10           1093-LI      1106/B       1107/B       1136/B       1145/B
   DEC15           1098/BL      1102-LB
   DEC20           1096/BLE     1106-B
   DEC30           1108/B       1114-STW
   DEC35           1109/B       1124-STW
   DEC40           1110/B       1132-LI
   DEC45           1111/B       1138-LI
   DEC47           1141-LI      1150/B
   DEC50           1112/B       1147-LI
   DEC60           1076/BNE     1094/BAL     1133/BAL     1139/BAL     1148/BAL     1152-AW
   DEC65           1154/BLE     1162-LI
   DEC67           1166/BGE     1177-SLD
   DEC70           1176/B       1178-STW
   DELETEF           75/REF      980/MTB
   DEVICE            99/REF      140/LW       154/AI       165/LW       555/LW       568/CW       600/LW
       908/LW
   DUMP1           1612-LB      1642/BDR
   DUMP10          1621-STH     1645/B
   DUMP2           1594-MTW     1658/BG
   DUMP3           1633/BDR     1642-BDR
   EICVOL           570/CAL1     673-GEN
   EIEQSI           660/CAL1     717-GEN
   EIERR            587-LB       705/DATA     706/DATA
   EOCVOL           584/CAL1     675-DATA
   EOCVOL2          562/LI       677-GEN
   EODMSG           545/LI       736/DATA     738-TEXT
   EOD1             460-LI      1130/B
   EOD2             275/BE       457/BE       462/BNE      465/BANZ     470/B        472-AW
   EOERR            136/CI       575/BNE      629-LW       712/DATA     713/DATA     732/DATA
   EOF1             459/BNE      479-CI
   EOF11            198/BCS      494-LI
   EOF2             491/BNE      507-LW
   EOF3             516/BLE      523-CI
   EOF4             513/BLE      524/BL       526-STW
   EOF5             474/BG       476/BNE      529-MTW      554/BL
   EOF6             534/BGE      537/BE       539/BNE      549-MTW
   EOF7             452-LCH      688/DATA
   EOF8             440/BCS      746-LI      1183/BE      1184/LI
   EOR              480/BNE      560-CI
   ERRCODE          122-EQU      207/STW      505/STW      642/LW
   ERROR             77/REF      500/BE
   ERROR0           499-MTW      518/BAL      641/BAL     1012/BAL
   ERROR1           496/LI       521-MTW
   FPTEOD           471/CAL1     734-GEN
   FPTREL           658/CAL1     741-GEN
   FPTSKIP         1553/CAL1    1582/CAL1    1713-GEN
   FPTVFC          1551/CAL1    1701-GEN
   FPTWAIT         1596/CAL1    1716-GEN
   GETPG            196/CAL1     701-DATA
   GRANCNT          101/REF      139/STW      235/MTW      521/MTW      605/MTW      633/MTW      645/MTW
       661/MTB      990/MTW
   HEXDUMP          348/BE      1548-LCI
   HEX2BCD           70/REF     1016/BAL     1021/BAL     1602/BAL     1615/BAL
   HOLES           1494/LB      1526-DATA
   HOLES1          1498/LB      1538-EQU
   H02              0.1-SET    364.1/DO
   IMEI             835/ANLZ     875/ANLZ     897-LB       901/ANLZ
   INBLK            123-EQU      168/STM      174/LW
   INCRPT            71/REF      708/PZE*
   INFMT            125-EQU      171/MTW      245/LW       288/MTW      825/LW
   INREC            124-EQU    246.2/LW       832/LW
   IOABORTS          74/REF      635/LH       637/CH
   IOBUF             82/REF      169/LI       614/STM      616/STW      618/STW      620/CAL1     859/LI
   IOERR0           493/B        518-BAL
   IOERR1           433/BE       561/BNE      593/BNE      598/B        632-LI       684/DATA     727/DATA
   IRDFPT           131/LM       725-DATA
   IR7              883/ANLZ     903-MTB
   IWRTFPT          133/LM       730-DATA
   JB:PCW          93.1/REF   1589.2/LI
   KEYADR           203/ANLZ    1399-STW
   KEYT            1566/LW      1708-TEXT
   KEYX             397/LD       690-TEXT
   KGC%5            786/BL       791-STB
   KGCA%4          1496-CB      1500/BIR
   KGCA%5           805-DW       810/BDR
   KGC0%4           256/BE       260-LI
   KGC1%4           566/BNE      570-CAL1
   KGC2%4          1595/BE      1599-LW
   LABEL         1589.1/BNE   1589.6-EQU
   LCCHARS           67/DEF     1330-DATA
   LCUCCHK         1304/BAZ     1314-LW
   LCUCD           1323/AH      1331-DATA
   LCUCS           1321/CLM     1329-DATA
   LCUC1           1320-LB      1326/BDR
   LINENUM          954/B       1395-LW
   LINE20          1397/BG      1403-LI
   M:C               73/REF      718/DATA
   M:EI              73/REF      163/AND      199/LW       224/CH       237/LW       240/AND      243/LW
       291/AND      355/CS       358/AND      361/LW       362/LB       452/LCH      511/AND      565/CS
       567/LB       596/CS       610/MTB*     673/GEN      683/GEN      685/GEN      703/DATA     717/GEN
       725/DATA     739/GEN      890/LH*      895/LB*      897/LB*     1555/AND     1560/CS      1567/LW
   M:EO              73/REF      135/INT      329/AND      408/AND      412/LW       421/CW       461/CS
       622/GEN      625/CB       649/LW       654/AND      672/DATA     675/DATA     677/GEN      679/GEN
       691/GEN      696/GEN      710/DATA     730/DATA     734/GEN      741/GEN     1000/GEN     1701/GEN
      1703/GEN     1713/GEN
   M:LO              98/REF     1034/GEN
   M:UC              98/REF      993/GEN
   MODE              90/REF      151/AND      463/LW
   MOVTXTC         1578/BAL     1666-LB      1690/BAL
   NBCHK            317/BAL     1302-LW
   NCCHK            310/BAL      905-LW
   NCC1             921/BNE      925-AI
   NCC2             919/BE       922-LI
   NCC4             910/BE       913-LW
   NCS              928-LW       951/B
   NCS1             930/BAZ      937-LW
   NPAGE            110/REF      197/STW      483/LW       489/AWM      664/LW       667/STW
   OPNDCB0          144-LI       157/BNC
   OPNI3            149/CAL1     720-GEN
   OUTBLK           104/REF      105/EQU      106/EQU      183/STB      185/LW       747/MTB      756/CW
       771/LB       776/LW
   OUTBUF           126-EQU      184/STW      749/LW       762/LW
   OUTCRPT           72/REF      715/PZE*
   OUTFMT           106-EQU      181/MTW      206/LW       751/LW
   OUTREC           105-EQU      178/CW       180/LW       255/LW       318/LW       481/MTW      848/LW
   PFIL             281/CAL1     432/CW       739-GEN
   PREC             527/CAL1     683-GEN
   PREC2            301/CAL1     685-GEN
   PRINT           1579/CAL1    1655/CAL1    1703-GEN
   PRINT1           401/CAL1     691-GEN
   PRINT2           404/CAL1     696-GEN
   PRNT            1639/BDR     1641/BGE     1647-BDR
   PRNTBUF          102/REF      113/EQU      114/EQU      115/EQU      116/EQU      117/EQU      118/EQU
       119/EQU      120/EQU      121/EQU      122/EQU      123/EQU      124/EQU      125/EQU      126/EQU
       398/STD      399/LI      1204/STW     1209/STB     1338/STS     1339/LI      1367/MTH     1369/STB
      1370/STH     1377/LI      1552/LI
   PRNT1           1651/BAZ     1655-CAL1
   PRNT2           1649/BIR     1657-AI
   PRTBUF            85/REF     1018/STM     1027/STM     1072/LI      1086/LI
   PRTNOF            81/REF      546/BAL
   PRTREC#         1557/BG      1561/BNE     1570-LW
   RC212           1010/BLE     1038-LB
   RC220           1014/BNE     1061-LI
   RC290           1011-LI      1042/BNE     1046/BNE     1059/BNE
   RC291           1023/LW      1025/LM      1033-TEXT
   RC292           1029/CAL1    1034-GEN
   RDABN            455-LB       728/DATA
   RDFPT             82/REF      132/STM      189/STW      190/STW      214/STS      219/LW       230/LW
       234/CAL1     434/LW       507/LW       514/LW       526/STW      615/LW
   RDWRT             15-DSECT
   RDWRTX            66/DEF      159-LCI
   RDWRTX1          225/BAZ     1184-LI
   READN            448-MTW     1160/B
   READONE           84/REF      979/BAL
   READ0            227-LI       450/B
   READ1            228-LW       236/BNE      293/BGE      295/BE       306/B        477/B        528/B
       607/LI       634/BL       663/BNE
   READ14           235-MTW      520/BNE      589/BE       591/BE
   READ17           267/BL       279/BL       283-LW
   READ2            263/BE       270/BL       273/B        280/BE       307-LW
   READ23           297-CI       305/BG
   READ28           255-LW      1122/B
   READ29           251-BAL      449/BNE
   READ3            281-CAL1     557/BNE
   READ4            216-STW      282/B        558/B
   READ40           202/BNE      204-STW
   READ41           172/BE       177-LI
   READ42           182/BE       189-STW
   READ52           309/BG       313/BAZ      317-BAL
   RECNUM            83/REF      216/STW      261/MTW      265/LW       294/SW       300/AWM      381/LW
       454/AWM      531/LW       541/LW       548/LW       967/LW      1570/LW
   RECOVH           246/LH       753/LH       782/SH       783/AH       795-DATA
   RECSIZ          1569/B       1574-LW
   RECSIZE          118-EQU     1194/STW     1198/AWM     1229/CW
   RECT            1571/LI      1710-TEXTC
   RETURN           522/B        597/BE       642-LW       746/LI      1032/B
   RETURNE          641-BAL     1404/B
   RETURNX          648/BL       664-LW
   RETURN2          651/BAZ      657/BNE      660-CAL1
   RETURN3         1581/BE      1598/B       1659-LCI
   RSSAVE            91/REF      211/STW      262/MTW      274/MTW      442/LW       475/MTW      529/MTW
       549/MTW
   R0                17-EQU      138/STW      139/STW      183/STB      205/STW      207/STW      214/STS
       216/STW      217/STW      218/STW      276/STB      495/STW      551/STB      659/STW      667/STW
       871/MBS      931/STW      932/STW      933/STW     1124/STW     1125/STW     1370/STH     1621/STH
      1648/STH     1661/LI
   R1                18-EQU      131/LM       132/STM      133/LM       134/STM      135/INT      136/CI
       140/LW       141/STW      143/LI       145/LW       148/LW       153/LW       155/CAL1     156/AI
       174/LW       175/AI       177/LI       178/CW       180/LW       189/STW      191/AI       192/SAS
       193/AW       194/SW       195/SLS      200/LI       201/CW       210/LW       211/STW      213/MTB
       223/LI       224/CH       228/LW       231/STW      233/STW      239/LI       240/AND      241/CI
       245/LW       246/LH       246/LH     246.2/LW       248/SW       264/LW       266/CW       268/AI
       269/CW       285/LI       286/CW       290/LI       291/AND      292/CI       311/LW       312/CI
       314/LW       315/SW       332/LI       333/CB       335/BDR      342/LW       343/BNE      349/LW
       350/CW       357/LI       358/AND      359/CI       361/LW     364.2/LW     364.2/LW     364.3/AND
     364.4/LW     364.6/LH     364.9/LW    364.13/LW    364.16/LB       381/LW       384/LI       386/LB
       388/BDR      463/LW       464/CI       492/LI       494/LI       501/AI       503/LW       510/LI
       511/AND      512/CI       517/LI       564/LI       565/CS       567/LB       568/CW       573/LB
       574/CI       577/LW       578/CI       587/LB       588/CI       590/CI       592/CI       595/LI
       596/CS       600/LW       601/CI       603/CI       608/CW       613/LM       614/STM      615/LW
       616/STW      618/STW      623/LW       625/CB       629/LW       630/STW      632/LI       649/LW
       650/CW       652/AND      743/PZE*     753/LH       754/AW       755/AW       756/CW       758/LW
       759/CH       773/LH       774/STW      776/LW       778/SW       780/AWM      782/SH       785/AI
       789/AI       791/STB      800/PSM      801/XW       807/STB      808/AI       812/PLM      818/STB
       820/AI       821/STB      825/LW       826/B        834/LW       835/ANLZ     836/STW      837/SLS
       838/STW      844/LI       848/LW       850/CI       852/LW       853/CI       855/CW       857/LW
       858/STW      865/STB      867/LCW      867/LCW      868/AI       869/SLS      870/OR       874/LW
       875/ANLZ     876/SCS      877/SW       878/SCS      883/ANLZ     888/LW       893/LI       894/STW
       895/LB       896/AI       897/LB       900/AI       901/ANLZ     903/MTB      908/LW       909/CI
       917/LB       918/CI       920/CI       922/LI       923/STB      934/LI       935/STW      937/LW
       938/STW      939/STW      940/LI       943/LW       945/STW      946/LW       947/STW      958/LW
       959/CI       967/LW       988/CI      1011/LI      1015/LW      1019/LW      1020/SLS     1023/LW
      1027/STM     1028/ANLZ    1036/PZE*    1074/LW      1085/LI      1103/STB     1104/AI      1118/STW
      1134/STB     1135/AI      1142/STB     1143/AI      1155/STW     1185/LI      1186/CW      1193/LW
      1194/STW     1196/LI      1197/AND     1198/AWM     1202/STW     1203/LI      1204/STW     1208/LI
      1209/STB     1216/LB      1221/LB      1228/AI      1229/CW      1234/CI      1237/SW      1238/LI
      1320/LB      1321/CLM     1323/AH      1324/STB     1344/STW     1356/LI      1357/STW     1375/INT
      1395/LW      1396/CW      1398/MTB     1399/STW     1400/LW      1401/AWM     1403/LI      1411/AW
      1419/CB*     1429/STB*    1449/LB*     1450/STB*    1451/STB*    1463/LW      1464/CW      1466/LI
      1467/STW     1471/LW      1472/MI      1474/SLS     1476/LW      1477/AWM     1488/LI      1490/LB
      1512/CI      1523/BIR     1554/LI      1555/AND     1556/CI      1562/LI      1564/STW     1565/BDR
      1567/LW      1570/LW      1574/LW      1583/LI      1585/STW     1586/BDR     1588/LW      1589/CI
    1589.2/LI    1589.3/LB    1589.3/LB    1589.4/CI      1599/LW      1600/SW      1601/SLS     1612/LB
      1624/SCS     1625/SCS     1626/AND     1627/SCS     1629/LI      1630/STB     1644/LI      1652/LI
      1654/STB     1692/LI      1698/BDR
   R10               27-EQU      166/BAL      432/CW       455/LB       503/LW       504/SLS      505/STW
       571/BDR      573/LB       587/LB       627/LW       636/LH      1449/LB      1451/STB     1568/BAL
      1669/LB      1670/STB     1686/B*
   R11               28-EQU      251/BAL      310/BAL      316/BAL      317/BAL      321/BAL      344/BAL
       345/LI     364.5/BAL   364.14/BAL      382/BAL      386/LB       387/STB      400/BAL      441/BAL
       496/LI       506/B*       518/BAL      546/BAL      563/BAL      604/BNE*     606/BNE*     609/BNE*
       611/BE*      621/B*       641/BAL      644/BAL      670/B*       746/LI       752/BE*      772/BNE*
       777/BL*      827/B*       854/BG*      872/B*       880/PSW      881/BAL      882/PLW      907/BANZ*
       912/BAZ*     915/BE*      926/B*       957/BE*      962/BNE*     963/PSW      965/LI       968/BAL
       975/LI       979/BAL      982/LI       984/PLW      989/BNE*     996/PZE*    1012/BAL     1016/BAL
      1021/BAL     1068/LW      1069/AI      1070/XW      1071/LB      1075/AI      1094/BAL     1133/BAL
      1139/BAL     1148/BAL     1156/STB     1157/STW     1179/B*      1184/LI      1187/BNE*    1206/MTB
      1212/BAL     1227/BAL     1241/BAL     1256/BAL     1277/BAL     1279/BAL     1296/B*      1299/B*
      1317/BL*     1327/B*      1340/ANLZ    1342/OR      1343/STW     1377/LI      1378/XW      1380/LW
      1427/B*      1468/BAL     1484/LW      1485/AI      1516/LB*     1518/STB*    1521/STB*    1573/BAL
      1576/BAL     1578/BAL     1602/BAL     1615/BAL     1662/B*      1673/B*      1682/BAL     1689/PSW
      1690/BAL     1691/BAL     1699/PLW     1700/B*
   R12               29-EQU     1611/LI      1633/BDR     1634/LI
   R13               30-EQU      628/LI       639/LI       647/CI
   R14               31-EQU      399/LI       403/AI     575.1/BAL    618.1/BAL    623.1/BE*    625.1/BG*
       698/PZE*    1339/LI      1348/LB*     1351/LB*     1355/STB*    1358/STW     1359/SLS     1360/STW
      1552/LI      1564/STW*    1585/STW*    1605/STD*    1619/CH*     1622/STH*    1630/STB*    1654/STB*
      1670/STB*    1678/STW*    1680/AI      1681/STB*    1685/AI      1694/STB*    1705/PZE*
   R15               32-EQU      594/LI       636/LH       637/CH       642/LW      1072/LI      1073/AW
      1086/LI      1087/AW      1090/STW*    1092/AI      1103/STB*    1119/STW     1120/SLS     1121/STW
      1134/STB*    1142/STB*    1195/LW      1201/STW     1216/LB*     1221/LB*     1346/STB     1347/STW
      1374/LW      1382/LB      1580/LW      1642/BDR     1647/BDR     1657/AI
   R2                19-EQU      144/LI       146/CH       148/LW       161/LI       169/LI       170/AW
       173/AI       184/STW      188/AW       190/STW      193/AW       199/LW       203/ANLZ     204/STW
       206/LW       208/LH       208/LH       209/STW      219/LW       220/STW      221/SLS      222/STW
       230/LW       231/STW*     233/STW      265/LW       266/CW       269/CW       278/CW       296/LI
       299/LW       300/AWM      322/LW       323/LB       326/LW       327/LB       327/LB       333/CB
       337/LW       338/CI       340/LW       341/CAL1     354/LI       355/CS       362/LB       363/CI
     364.6/LH     364.7/SLD   364.15/SLD   364.16/LB       373/SLS      374/OR     374.3/OR       386/LB
       397/LD       398/STD      402/AI       405/LW       407/LI       408/AND      409/CI       412/LW
       413/CI       417/LW       418/CI       426/LW       427/SLS      428/STW      438/INT      439/BDR
       442/LW       443/BDR      507/LW       509/AW       523/CI       525/LI       526/STW      617/BIR
       635/LH       637/CH       640/BDR      653/LI       654/AND      687/PZE*     699/PZE*     722/PZE*
       723/PZE*     751/LW       753/LH       759/CH       761/BAL      773/LH       781/BAL      782/SH
       783/AH       784/LW       788/MBS      792/MBS      802/AI       803/BDR      805/DW       809/SLD
       845/LW       846/CI       859/LI       860/AW       861/STW      863/SLD      864/XW       866/MBS
       879/LI       890/LH     890.1/CW       897/LB       898/STB      928/LW       931/STW      932/STW
       933/STW      938/STW      939/STW      944/LW       945/STW      947/STW      964/LI       971/SLD
       973/STM      974/ANLZ     978/LI       995/PZE*    1018/STM     1022/AI      1051/LB      1053/AW
      1057/SW      1058/CB      1088/LI      1090/STW     1091/BDR     1095/CI      1096/BLE     1097/CI
      1099/AI      1100/LB      1102/LB      1134/STB     1140/AI      1144/BDR     1149/AI      1162/LI
      1168/SLD     1173/SLD     1177/SLD     1283/LW      1291/SLD     1292/AWM     1297/SLS     1298/AWM
      1302/LW      1303/CW      1305/LW      1306/AW      1308/AI      1309/CB      1311/SW      1312/AI
      1313/STW     1314/LW      1315/LB      1315/LB      1316/AI      1321/CLM     1323/AH      1349/LW
      1350/AI      1351/LB      1353/BDR     1415/LI      1419/CB      1475/STS     1491/LW      1492/AI
      1493/SLS     1494/LB      1494/LB      1498/LB      1501/SLD     1502/SLS     1503/SLD     1508/XW
      1509/OR      1510/LS      1511/SCS     1514/SCS     1517/AW      1518/STB     1520/SCS     1521/STB
      1559/LI      1560/CS      1563/LW      1564/STW     1566/LW      1571/LI      1575/LI      1577/LI
      1584/LW      1585/STW     1603/SLD     1605/STD     1653/LI      1654/STB     1666/LB*     1667/ANLZ
      1668/AI      1669/LB      1678/STW     1679/LI      1681/STB     1683/LW      1693/SCD
   R3                20-EQU      145/LW       146/CH*      150/LI       151/AND      153/LW       162/LI
       163/AND      164/SLS      168/STM      185/LW       186/AI       187/SLS      188/AW       229/LI
       231/STW      232/BDR      237/LW       238/SLS      243/LW       244/STW      248/SW       249/AI
       250/STW      252/LI       253/CW       255/LW       257/CW       259/STW      260/LI       283/LW
       284/AI       294/SW       297/CI       299/LW       304/AI       307/LW       308/CI       318/LW
       320/STW      323/LB       324/SLS      328/LI       329/AND      330/SLS      331/AI       336/AI
       353/LI     364.9/LW    364.10/AND   364.11/CW    364.13/LW       375/OR       420/LI       421/CW
       423/LI       424/SLS      425/AWM      429/LCW      429/LCW      430/AWM      452/LCH      453/SAS
       454/AWM      455/LB       456/CI       458/CI       472/AW       479/CI       531/LW       533/CW
       548/LW       553/CW       555/LW       556/CI       560/CI       562/LI       613/LM       643/LI
       707/PZE*     714/PZE*     720/GEN      749/LW       750/SLS      765/XW       769/STW      771/LB
       779/AW       783/AH       791/STB      801/XW       806/AI       807/STB      817/SCS      818/STB
       819/SCS      821/STB      832/LW       833/STW      839/AW       840/CW       842/LI       843/STW
       862/LW       865/STB      870/OR       884/STW      895/LB       898/STB      899/SCS      914/AI
       916/AI       917/LB       923/STB      925/AI       929/CI       977/LW       986/CW      1025/LM
      1038/LB      1039/CI      1041/CI      1044/LI      1045/CB      1052/LB      1053/AW      1055/LI
      1056/LB      1058/CB      1089/LW      1090/STW     1128/LI      1164/LW      1171/LW      1178/STW
      1290/LI      1294/AWM     1307/LI      1309/CB      1318/LW      1320/LB      1324/STB     1325/AI
      1432/LB      1436/AI      1437/CW      1445/SW      1447/AW      1448/STW     1451/STB     1452/AI
      1456/LW      1462/PSW     1469/OR      1470/STW     1473/LW      1474/SLS     1478/PLW     1479/CI
      1495/LI      1496/CB      1498/LB      1499/LI      1500/BIR     1504/SLS     1558/LI      1604/OR
      1617/STH     1617/STH     1618/LH      1618/LH      1619/CH      1622/STH     1623/LI      1624/SCS
      1626/AND     1643/LI      1666/LB      1672/BDR     1694/STB     1695/CI
   R4                21-EQU      142/LW       151/AND      154/AI       377/LI       378/STB      379/MBS
       383/LW       434/LW       435/STW      436/SLS      437/STW      761/BAL      762/LW       766/XW
       768/STW      781/BAL      797/B        804/LI       805/DW       810/BDR      813/B        969/LCW
       969/LCW      970/SLS      971/SLD     1043/LW      1045/CB      1048/LI      1049/AND     1050/AI
      1052/LB      1054/BDR     1056/LB      1057/SW      1061/LI      1062/AND     1064/SLS     1065/STW
      1066/LI      1084/LW      1115/STW     1165/SW      1167/AW      1172/LCW     1172/LCW     1173/SLD
      1174/AI      1175/LCW     1175/LCW     1192/LW      1243/STW     1288/SW      1291/SLD     1295/AI
      1297/SLS     1319/LW      1326/BDR     1368/LI      1369/STB     1370/STH     1371/BDR     1372/LI
      1444/LW      1447/AW      1449/LB      1450/STB     1453/AI      1454/CW      1490/LB      1491/LW
      1496/CB      1505/LCW     1505/LCW     1506/AND     1507/SLS     1507/SLS     1508/XW      1509/OR
      1510/LS      1516/LB      1517/AW      1607/LI      1614/PSW     1616/PLW     1619/CH      1622/STH
      1632/AI      1635/AI      1636/CI      1638/AI      1640/CI
   R5                22-EQU      129/PSM      160/PSM      346/LI       347/CW       352/LW       376/AI
       378/STB      380/AI       385/AI       387/STB      389/XW       390/SW       391/AWM      392/LW
       393/SAS      394/STW      460/LI       461/CS       466/LI       467/CW       535/LI       536/CW
       545/LI       669/PLM      763/LW       764/XW       770/STW      905/LW       906/CI       911/CI
       913/LW       917/LB*      923/STB*    1004/PSM     1005/LW      1015/LW      1031/PLM     1038/LB*
      1045/CB*     1049/AND     1051/LB*     1052/LB*     1056/LB*     1058/CB*     1062/AND*    1082/PSM
      1100/LB      1102/LB      1103/STB     1117/PLM     1127/PLM     1141/LI      1142/STB     1159/PLM
      1163/LW      1164/LW      1169/AI      1170/STW     1171/LW      1178/STW     1189/PSM     1199/LW
      1210/LI      1216/LB      1217/CI      1219/LB      1219/LB      1221/LB      1225/LW      1231/LW
      1232/CW      1239/LI      1245/PLM     1249/CB      1252/CI      1254/AI      1268/LI      1272/LI
      1275/LI      1278/LW      1283/LW      1287/LW      1292/AWM     1294/AWM     1298/AWM     1345/STH
      1348/LB      1352/AW      1355/STB     1362/PLM     1366/PSM     1376/LH      1410/PSM     1412/LI
      1426/PLM     1432/LB      1439/AI      1440/CI      1457/AI      1489/LI      1515/AI      1516/LB
      1518/STB     1519/AI      1521/STB     1522/AI      1549/PSM     1592/LW      1599/LW      1612/LB
      1613/AI      1660/PLM
   R6                23-EQU      165/LW       227/LI     364.4/LW     374.1/CW       472/AW       473/CI
      1006/LW      1007/CI      1009/CI      1071/LB      1093/LI      1129/LI      1132/LI      1138/LI
      1147/LI      1152/AW      1156/STB     1165/SW      1167/AW      1168/SLD     1177/SLD     1211/LI
      1213/LI      1224/AI      1225/LW      1226/LI      1240/LI      1248/LB      1249/CB      1251/BDR
      1255/LI      1269/LI      1284/AW      1288/SW      1335/SW      1341/SLS     1342/OR      1351/LB
      1352/AW      1354/LI      1355/STB     1380/LW      1381/SLS     1413/LI      1419/CB      1421/AI
      1422/CW      1429/STB     1437/CW      1443/AI      1445/SW      1454/CW      1456/LW      1572/LI
      1608/LI      1610/LI      1630/STB     1631/AI      1670/STB     1671/AI      1683/LW      1684/AI
      1694/STB     1697/AI      1706/PZE*
   R7                24-EQU      129/PSM*     132/STM      134/STM      140/LW       141/STW      142/LW
       160/PSM*     165/LW       170/AW       189/STW      190/STW      194/SW       197/STW      201/CW
       204/STW      210/LW       211/STW      214/STS      216/STW      219/LW       220/STW      222/STW
       230/LW       234/CAL1     244/STW      253/CW       257/CW       259/STW      261/MTW      262/MTW
       265/LW       266/CW*      269/CW*      274/MTW      278/CW       283/LW       286/CW       294/SW
       300/AWM      307/LW       311/LW       314/LW       315/SW       320/STW      322/LW       326/LW
       337/LW       342/LW       347/CW       349/LW       352/LW       381/LW       389/XW       390/SW
       391/AWM      392/LW       394/STW      405/LW       415/MTW      416/CAL1     417/LW       425/AWM
       426/LW       428/STW      430/AWM      434/LW       435/STW      437/STW      442/LW       454/AWM
       463/LW       467/CW       475/MTW      483/LW       486/PSW*     488/PLW*     489/AWM      495/STW
       507/LW       514/LW       526/STW      529/MTW      531/LW       533/CW       536/CW       540/PSW*
       541/LW       547/PLW*     548/LW       549/MTW      553/CW       555/LW       568/CW       577/LW
       600/LW       608/CW       614/STM      615/LW       616/STW      618/STW      620/CAL1     623/LW
       629/LW       630/STW      659/STW      664/LW       667/STW      669/PLM*     754/AW       764/XW
       765/XW       766/XW       767/CAL1     768/STW      769/STW      770/STW      784/LW       800/PSM*
       812/PLM*     833/STW      836/STW      838/STW      845/LW       852/LW       855/CW       857/LW
       858/STW      860/AW       861/STW      862/LW       864/XW       877/SW       880/PSW*     882/PLW*
       884/STW      885/MTW    890.1/CW       903/MTB*     905/LW       908/LW       913/LW       924/MTW
       928/LW       935/STW      943/LW       944/LW       946/LW       958/LW       963/PSW*     967/LW
       973/STM      984/PLW*    1004/PSM*    1005/LW      1006/LW      1018/STM     1027/STM     1031/PLM*
      1068/LW      1073/AW      1082/PSM*    1087/AW      1117/PLM*    1118/STW     1119/STW     1121/STW
      1127/PLM*    1159/PLM*    1186/CW      1189/PSM*    1193/LW      1195/LW      1197/AND     1231/LW
      1245/PLM*    1302/LW      1305/LW      1306/AW      1311/SW      1313/STW     1314/LW      1318/LW
      1319/LW      1357/STW     1358/STW     1360/STW     1362/PLM*    1366/PSM*    1395/LW      1396/CW
      1399/STW     1400/LW      1401/AWM     1410/PSM*    1411/AW      1414/LW      1417/MTW     1422/CW
      1424/MTW     1426/PLM*    1444/LW      1448/STW     1462/PSW*    1463/LW      1464/CW      1467/STW
      1470/STW     1471/LW      1475/STS     1476/LW      1477/AWM     1478/PLW*    1484/LW      1487/AW
      1549/PSM*    1570/LW      1574/LW      1580/LW      1588/LW      1592/LW      1600/SW      1614/PSW*
      1616/PLW*    1660/PLM*    1689/PSW*    1699/PLW*
   R8                25-EQU      197/STW      482/BNE*     483/LW       484/AI       485/SLS      489/AWM
       490/CI       508/SLS      509/AW       514/LW       515/CI       569/BGE*     571/BDR*     580/AI
       585/B*       607/LI       662/AI       664/LW      1190/LI      1236/AI      1237/SW      1259/AI
      1260/CI      1266/AI      1270/AI      1273/CI      1276/AI      1278/LW      1280/LI      1346/STB
      1382/LB      1414/LW      1430/AI      1432/LB*     1434/LI      1486/LI      1487/AW      1490/LB*
      1593/LI      1621/STH     1648/STH     1649/BIR     1650/CI      1656/LI
   R9                26-EQU      215/LI       264/LW       272/MTB      276/STB      277/AI       278/CW*
       283/LW*      444/MTB      486/PSW      488/PLW      532/AI       533/CW*      540/PSW      541/LW
       542/SCS      544/LI       547/PLW      551/STB      552/AI       553/CW*     1067/LI      1083/LW
      1114/STW     1152/AW      1153/CW      1191/LW      1242/STW     1284/AW      1285/CI      1335/SW
      1336/AI      1337/SLS     1338/STS     1349/LW      1373/LI      1416/LI      1429/STB     1450/STB
      1587/LW      1591/LW      1609/BIR     1639/BDR
   SCCTAB          1100/LB      1248/LB      1249/CB      1385-TEXTC
   SELECT            97/REF      210/LW       215/LI
   SEQID            343/BNE      950-EQU
   SEQOUT1         1465/BLE     1468-BAL
   SEQ100          1490-LB      1523/BIR
   SEQ101          1513/BAZ     1518-STB
   SETBINBCD        340/LW      1000-GEN
   SETEI            143/LI       156/AI       703-DATA
   SETEO            156/AI       710-DATA
   SUPERR            69/REF      519/MTW      656/MTW     1013/MTW
   TABEXP           316/BAL     1409-LCI
   TABSET            89/REF     1414/LW
   TAB10           1420/BE      1429-STB
   TAB12           1432-LB      1441/BL
   TAB13           1434-LI      1442/B
   TAB15           1433/BNE     1436-AI
   TAB17           1438/BG      1443-AI
   TAB19           1449-LB      1455/BGE
   TAB5            1419-CB      1423/BLE     1446/BE      1458/B
   TAB6            1421-AI      1431/BE      1435/B
   TAB8            1418/BL      1424-MTW
   TOARG             82/REF      154/AI       201/CW       311/LW       322/LW       337/LW       342/LW
       347/CW       349/LW       417/LW       467/CW       536/CW       577/LW       608/CW       623/LW
       629/LW       845/LW       905/LW       958/LW      1186/CW      1231/LW      1302/LW      1314/LW
      1395/LW      1396/CW      1399/STW     1400/LW      1401/AWM     1463/LW      1464/CW      1467/STW
      1471/LW      1476/LW      1477/AWM     1588/LW
   TOSWT             82/REF      659/STW
   ULBLCHK          563/BAL      600-LW       644/BAL
   UNBADR           109/REF      205/STW      448/MTW      834/LW       839/AW       843/STW      874/LW
       888/LW       894/STW
   UNBD             829/B        874-LW
   UNBD3            884-STW      902/B
   UNBF             828/B        832-LW
   UNBF1            836-STW      886/B
   UNBF3            847/BE       851/BLE      855-CW
   UNBLK            251/BAL      825-LW
   UNBTAB           826/B        827-B
   UNBV             830/B        888-LW
   UNBV2            889/BNE      892/BNE      895-LB
   UNPRINT          102/REF      400/BAL     1682/BAL
   UNPRINT0        1568/BAL     1678-STW
   VCVT             761/BAL      781/BAL      796-B
   VCVTB            803/BDR      817-SCS
   VCVTD            805/DW       815-EQU
   VCVTX            811-LCI      822/B
   WEOF             469/CAL1     582/CAL1     583/CAL1     672-DATA
   WRITECO         1286/BG      1335-SW
   WRITEX           287/BE       289/BNE      303/BNE      345/LI       419/BNE      422/BANZ     432-CW
       793/B       1246/B
   WRITE0           322-LW      1363/B
   WRITE01          325/BNE      339/BNE      342-LW
   WRITE1           351/BAZ      395/B        405-LW       431/BG
   WRITE11          406/BNE      410/BG       411/BANZ     414/BANZ     416-CAL1
   WRITE2           344-BAL      936/B        952/B       1402/B
   WRITE5           356/BNE      360/BGE      381-LW
   WRITE6           364/BNE   364.12/BG       397-LD
   WRTABN           573-LB       733/DATA
   WRTFPT            82/REF      134/STM      204/STW      220/STW      222/STW      244/STW      257/CW
       259/STW      307/LW       314/LW       320/STW      326/LW       352/LW       389/XW       390/SW
       391/AWM      392/LW       394/STW      405/LW       415/MTW      416/CAL1     425/AWM      426/LW
       428/STW      430/AWM      435/STW      437/STW      754/AW       764/XW       765/XW       766/XW
       767/CAL1     768/STW      769/STW      770/STW      784/LW       833/STW      836/STW      838/STW
       852/LW       855/CW       857/LW       858/STW      861/STW      862/LW       864/XW       884/STW
       885/MTW    890.1/CW       913/LW       924/MTW      928/LW       935/STW      944/LW      1005/LW
      1006/LW      1068/LW      1118/STW     1119/STW     1121/STW     1193/LW      1195/LW      1197/AND
      1305/LW      1306/AW      1311/SW      1313/STW     1318/LW      1319/LW      1357/STW     1358/STW
      1360/STW     1417/MTW     1422/CW      1424/MTW     1444/LW      1448/STW     1484/LW      1574/LW
      1580/LW      1592/LW      1600/SW
   WRTMSG           966/CAL1     976/CAL1     983/CAL1     993-GEN
   56ERR            622-GEN      627/LW
   56ERRCHK       575.1/BAL    618.1/BAL      623-LW
   %                137/BE       147/BANZ     152/BE       158/B        176/BNE      179/BGE      212/BNE
       232/BDR      242/BG     246.1/BNE      258/BGE      271/BG       298/BG       319/BE       334/BE
       335/BDR    374.2/BLE      388/BDR      443/BDR      468/BE       502/BE       543/BNE      579/BE
       581/B        602/BE       617/BIR      638/BNE      640/BDR      646/BNE      655/BE       665/BE
       748/EQU      790/BGE      815/EQU      841/BL       849/BE       856/BLE      950/EQU      960/BE
       974/ANLZ     981/BE       987/BLE     1008/BLE     1028/ANLZ    1040/BE      1054/BDR     1091/BDR
      1101/B       1144/BDR     1251/BDR     1310/BE      1322/BCS     1353/BDR     1371/BDR     1386/EQU
      1497/BNE     1538/EQU     1539/EQU     1565/BDR     1586/BDR     1587/LW    1589.5/BL    1589.6/EQU
      1591/LW*     1609/BIR     1620/BE      1628/BNE     1637/BNE     1647/BDR     1667/ANLZ    1672/BDR
      1696/BAZ
   #ANOMS          1495/LI      1539-EQU
