&TAG     PROC  &P,0,&CARDEAT=,&MODEAT=                                  SRC00010
SRC$COR  NAME  0                                                        SRC00020
SRC$NCOR NAME  1                                                        SRC00030
         LCL   &L0,&L1,&L2                                              SRC00040
&TAG     DS    0H                                                       SRC00050
&L0      SET   0                                                        SRC00060
&L1      SET   0                                                        SRC00070
         DO    '&P(0)'='0'                                              SRC00080
         DO    '&CARDEAT'=''                                            SRC00090
         PNOTE 'P','CARDEAT PARAMETER MISSING'                          SRC00100
         ENDO                                                           SRC00110
         DO    ('&P(1)'='(0)')++('&P(1)'='0')=0                         SRC00120
&L0      SET   1                                                        SRC00130
         DO    '&P(1)'(1,6)='LU$EAT'                                    SRC00140
         EXTRN &P(1)                                                    SRC00150
         ENDO                                                           SRC00160
         ENDO                                                           SRC00170
         ENDO                                                           SRC00180
         DO '&MODEAT'=''                                                SRC00190
         PNOTE 'P','MODEAT PARAMETER MISSING'                           SRC00200
         ENDO                                                           SRC00210
         DO    ('&P(2)'='(1)')++('&P(2)'='1')=0                         SRC00220
&L1      SET   1                                                        SRC00230
         DO    '&P(2)'(1,6)='LU$EAT'                                    SRC00240
         EXTRN &P(2)                                                    SRC00250
         ENDO                                                           SRC00260
         ENDO                                                           SRC00270
         CNOP  0,4                                                      SRC00280
         DO    &L0                                                      SRC00290
&L2      SET   8+4*&L1                                                  SRC00300
         L     0,*+&L2                                                  SRC00310
         ENDO                                                           SRC00320
         DO    &L1                                                      SRC00330
&L2      SET   8+4*&L0                                                  SRC00340
         L     1,*+&L2                                                  SRC00350
         ENDO                                                           SRC00360
&L2      SET   8+4*&L1+4*&L0                                            SRC00370
         B     *+&L2                                                    SRC00380
         DO    &L0                                                      SRC00390
         DC    A(&CARDEAT)                                              SRC00400
         ENDO                                                           SRC00410
         DO    &L1                                                      SRC00420
         DC    A(&MODEAT)                                               SRC00430
         ENDO                                                           SRC00440
         DC    V(SRC$COR)                                               SRC00450
         L     15,*-4                                                   SRC00460
         DO    '&P(0)'='1'                                              SRC00470
         SR    0,0                                                      SRC00480
         ENDO                                                           SRC00490
         BALR  14,15                                                    SRC00500
         END                                                            SRC00510
