&DL      PROC  &P,8                                                     BCW00010
BCW      NAME  0                                                        BCW00020
CCW      NAME  1                                                        BCW00030
         LCL   &L1                                                      BCW00040
         LCL   &L2                                                      BCW00050
         LCL   &L3                                                      BCW00060
         LCL   &F                                                       BCW00070
&F       SET   &P(1)                                                    BCW00080
&DL      DC    0A(0)                                                    BCW00090
&L1      SET   0                                                        BCW00100
&L2      SET   0                                                        BCW00110
&L3      SET   0                                                        BCW00120
         DO    '&P(0)'='0'         BCW                                  BCW00130
         DO    1-('&P(3)'='')                                           BCW00140
&L1      SET   &P(3)**X'A0'                                             BCW00150
         ENDO                                                           BCW00160
         DO    1-('&P(6)'='')                                           BCW00170
&L2      SET   &P(6)**X'A0'                                             BCW00180
         ENDO                                                           BCW00190
         DO    1-('&P(8)'='')                                           BCW00200
&L3      SET   80                                                       BCW00210
         ENDO                                                           BCW00220
         DO    '&P(1)'=''                                               BCW00230
         PNOTE 'P','PARAMETER 1 MISSING'                                BCW00240
         DC    X'0'                INVALID COMMAND CODE - PATCH         BCW00250
         GOTO  .LB1                                                     BCW00260
         ENDO                                                           BCW00270
         DC    AL1(&F)             COMMAND CODE                         BCW00280
.LB1     LABEL                                                          BCW00290
         DO    '&P(2)'=''                                               BCW00300
         PNOTE 'P','PARAMETER 2 MISSING'                                BCW00310
         DC    AL3(0)              INVALID DATA ADDRESS - PATCH         BCW00320
         GOTO  .LB2                                                     BCW00330
         ENDO                                                           BCW00340
         DC    AL3(&P(2))          ACTIVE DATA ADDRESS                  BCW00350
.LB2     LABEL                                                          BCW00360
         DO    '&P(7)'=''                                               BCW00370
         DC    Y(&L2*256)          REPLACEMENT COUNT 0                  BCW00380
         GOTO  .LB3                                                     BCW00390
         ENDO                                                           BCW00400
         DC    Y((&L2*256)++(&P(7))) REPLACEMENT COUNT AND FLAG         BCW00410
.LB3     LABEL                                                          BCW00420
         DO    '&P(4)'=''                                               BCW00430
         DC    Y(&L1*256)          ACTIVE COUNT                         BCW00440
         GOTO  .LB4                                                     BCW00450
         ENDO                                                           BCW00460
         DC    Y((&L1*256)++(&P(4))) ACTIVE COUNT AND FLAG              BCW00470
.LB4     LABEL                                                          BCW00480
         DO    '&P(5)'=''                                               BCW00490
         DC    A(0)                REPLACEMENT ADDRESS 0                BCW00500
         GOTO  .LB5                                                     BCW00510
         ENDO                                                           BCW00520
         DC    X'&L3'              CONTROL FLAG                         BCW00530
         DC    AL3(&P(5))          REPLACEMENT ADDRESS                  BCW00540
.LB5     LABEL                                                          BCW00550
         DC    A(0)                                                     BCW00560
         GOTO  .LOUT                                                    BCW00570
         ENDO                                                           BCW00580
         DO    1-('&P(3)'='')                                           BCW00590
&L1      SET   &P(3)**X'70'                                             BCW00600
         ENDO                                                           BCW00610
         DO    '&P(1)'=''                                               BCW00620
         PNOTE 'P','PARAMETER 1 MISSING'                                BCW00630
         DC    X'0'                INVALID COMMAND CODE - PATCH         BCW00640
         GOTO  .LB6                                                     BCW00650
         ENDO                                                           BCW00660
         DC    AL1(&F)             COMMAND CODE                         BCW00670
.LB6     LABEL                                                          BCW00680
         DO    '&P(2)'=''                                               BCW00690
         PNOTE 'P','PARAMETER 2 MISSING'                                BCW00700
         DC    AL3(0)              DATA ADDRESS 0 - PATCH               BCW00710
         GOTO  .LB7                                                     BCW00720
         ENDO                                                           BCW00730
         DC    AL3(&P(2))                                               BCW00740
.LB7     LABEL                                                          BCW00750
         DC    X'&L1'                                                   BCW00760
         DC    X'0'                                                     BCW00770
         DO    '&P(4)'=''                                               BCW00780
         DC    Y(0)                                                     BCW00790
         GOTO  .LOUT                                                    BCW00800
         ENDO                                                           BCW00810
         DC    Y(&P(4))            BYTE COUNT                           BCW00820
.LOUT    LABEL                                                          BCW00830
         END                                                            BCW00840
