&TAG     PROC  &P,0,&CARDADR=(1),&CARDLEN=(0)                           SRC00010
SRC$GEN  NAME  0                                                        SRC00020
         LCL   &PRLABEL                                                 SRC00030
         LCL   &L1,&L2,&L3,&L4                                          SRC00040
&PRLABEL SET   '&TAG.        '(1,8)                                     SRC00050
&PRLABEL           DS    0H                                             SRC00060
&L1      SET   ('&P(1)'='(1)')++('&P(1)'='1')=0                         SRC00070
&L2      SET   ('&P(2)'='(0)')++('&P(2)'='0')=0                         SRC00080
&L3      SET   &L1++&L2                                                 SRC00090
                   CNOP  0,4                                            SRC00100
         DO    &L1                                                      SRC00110
&L4      SET   4+8*&L2+4*&L3                                            SRC00120
                   L     1,*+&L4                                        SRC00130
         ENDO                                                           SRC00140
         DO    &L2                                                      SRC00150
&L4      SET   8+4*&L3+4*&L1                                            SRC00160
                   L     15,*+&L4                                       SRC00170
                   L     0,0(,15)                                       SRC00180
         ENDO                                                           SRC00190
&L4      SET   8+4*&L2+4*&L1                                            SRC00200
                   B     *+&L4                                          SRC00210
         DO    &L1                                                      SRC00220
                   DC    A(&CARDADR)                                    SRC00230
         ENDO                                                           SRC00240
         DO    &L2                                                      SRC00250
                   DC    A(&CARDLEN)                                    SRC00260
         ENDO                                                           SRC00270
                   DC    V(SRC$GEN)                                     SRC00280
                   L     15,*-4                                         SRC00290
                   BALR  14,15                                          SRC00300
         END                                                            SRC00310
