MODNAM   PROC  P,0,PRNTR,IN,OUT,LIN,COPY,LST,SCR1,SCR2,ALTLOD           ASM00010
ASM      NAME  2                                                        ASM00020
ASML     NAME  1                                                        ASM00030
ASMLG    NAME  0                                                        ASM00040
//       GBL   SSCR1,SSCR2,SPRNTR                                       ASM00050
// GO OPT&P(0)                                                          ASM00060
//OPT0   OPTION GO                                                      ASM00070
//OPT1   OPTION LINK                                                    ASM00080
//OPT2   NOP                                                            ASM00090
// J$ALCPRT &PRNTR(1),&PRNTR(2)                                         ASM00100
//       IF    ('&IN' EQ '')POUT                                        ASM00110
//       IF    ('&IN(1)' NE 'RES')P2                                    ASM00120
//       IF    ('&IN(2)' EQ '')PDEFLT                                   ASM00130
//P2 DVCVOL &IN(1)                                                      ASM00140
// LBL &IN(2) // LFD INAPUT                                             ASM00150
//       GO    POUT                                                     ASM00160
//PDEFLT       NOP                                                      ASM00170
// DVCVOL &IN(1)                                                        ASM00180
// LBL $Y$SRC  // LFD INAPUT                                            ASM00190
//POUT   IF    ('&OUT' EQ '')PLIN                                       ASM00200
//       IF    ('&OUT(1)' EQ 'N')PLIN                                   ASM00210
//       IF    ('&OUT(2)' EQ '$Y$RUN')PLIN                              ASM00220
// DVCVOL &OUT(1)                                                       ASM00230
// LBL &OUT(2) // LFD OUTAPUT                                           ASM00240
//PLIN   IF    ('&LIN' EQ '')PCPY                                       ASM00250
//       IF    ('&LIN(1)' EQ 'N')PLIN1                                  ASM00260
// DVCVOL &LIN(1)                                                       ASM00270
// LBL &LIN(2) // LFD LIN1                                              ASM00280
//SL1    JSET  LIN1  // GO PLIN2                                        ASM00290
//PLIN1  NOP                                                            ASM00300
//SL1    JSET  (N)  // GO PCPY                                          ASM00310
//PLIN2  NOP                                                            ASM00320
//       IF    ('&LIN(3)' EQ '')PCPY                                    ASM00330
//       IF    ('&LIN(3)' EQ 'N')PLIN3                                  ASM00340
// DVCVOL &LIN(3)                                                       ASM00350
// LBL &LIN(4) // LFD LIN2                                              ASM00360
//SL2    JSET  LIN2  // GO PCPY                                         ASM00370
//PLIN3  NOP                                                            ASM00380
//SL2    JSET  (N)                                                      ASM00390
//PCPY   IF    ('&COPY' EQ '')PSCR                                      ASM00400
//       IF    ('&COPY' EQ 'N')CP1                                      ASM00410
// DVCVOL &COPY(1)                                                      ASM00420
// LBL &COPY(2) // LFD CPY1 //SC1 JSET CPY1 // GO CP2                   ASM00430
//CP1    NOP                                                            ASM00440
//SC1    JSET (N)  // GO PSCR                                           ASM00450
//CP2    IF    ('&COPY(3)' EQ '')PSCR                                   ASM00460
//       IF ('&COPY(3)' EQ 'N')CP3                                      ASM00470
// DVCVOL &COPY(3)                                                      ASM00480
// LBL &COPY(4) // LFD CPY2 //SC2  JSET CPY2 // GO PSCR                 ASM00490
//CP3    NOP                                                            ASM00500
//SC2    JSET  (N)                                                      ASM00510
//PSCR   IF    ('&SSCR1' NE '')K4                                       ASM00520
//       IF    ('&SCR1' EQ '')K3                                        ASM00530
//SSCR1  JSET  &SCR1  // GO K4                                          ASM00540
//K3     NOP                                                            ASM00550
//SSCR1  JSET  RES                                                      ASM00560
//K4     DVCVOL &SSCR1                                                  ASM00570
// EXT ST,C,3,CYL,1                                                     ASM00580
// LBL $SCR1 // LFD $SCR1                                               ASM00590
//       IF    ('&SSCR2' NE '')K6                                       ASM00600
//       IF    ('&SCR2' EQ '')K5                                        ASM00610
//SSCR2  JSET  &SCR2  // GO K6                                          ASM00620
//K5     NOP                                                            ASM00630
//SSCR2  JSET  RUN                                                      ASM00640
//K6     DVCVOL &SSCR2                                                  ASM00650
// EXT ST,C,3,CYL,1                                                     ASM00660
//  LBL $SCR2 // LFD $SCR2                                              ASM00670
//       IF    ('&ALTLOD' EQ '')F1                                      ASM00680
// DVCVOL &ALTLOD(1)                                                    ASM00690
// LBL &ALTLOD(2)  // LFD ALTLOD                                        ASM00700
//F1     NOP                                                            ASM00710
//       IF    ('&ALTLOD' NE '')F2                                      ASM00720
//       EXEC  ASM,$Y$RUN                                               ASM00730
// GO F3                                                                ASM00740
//F2     NOP                                                            ASM00750
// EXEC ASM,ALTLOD                                                      ASM00760
//F3     NOP                                                            ASM00770
// IF ('&IN' EQ '')N1                                                   ASM00780
// IF ('&IN(2)' EQ '')P18                                               ASM00790
// PARAM IN=&MODNAM./INAPUT                                             ASM00800
// GO N1                                                                ASM00810
//P18    NOP                                                            ASM00820
// PARAM IN=&MODNAM                                                     ASM00830
//N1 IF ('&OUT' EQ '')N3                                                ASM00840
// IF ('&OUT(1)' EQ 'N')N2                                              ASM00850
//       IF    ('&OUT(2)' EQ '$Y$RUN')N3                                ASM00860
// PARAM OUT=OUTAPUT                                                    ASM00870
// GO N3                                                                ASM00880
//N2     NOP                                                            ASM00890
// PARAM OUT=(N)                                                        ASM00900
//N3 IF ('&LST' EQ '')N4                                                ASM00910
// PARAM LST=&LST                                                       ASM00920
//N4     NOP                                                            ASM00930
//       IF    ('&LIN' EQ '')N5                                         ASM00940
//       IF    ('&SL1' EQ '(N)')G                                       ASM00950
//       IF    ('&SL2' EQ '')G                                          ASM00960
// PARAM LIN=&SL1./&SL2                                                 ASM00970
// GO N5                                                                ASM00980
//G      NOP                                                            ASM00990
// PARAM LIN=&SL1                                                       ASM01000
//N5     IF    ('&COPY' EQ '')AUS                                       ASM01010
//       IF    ('&SC2' EQ '')H                                          ASM01020
//       IF    ('&SC1' EQ '(N)')H                                       ASM01030
// PARAM COPY=&SC1./&SC2                                                ASM01040
// GO AUS                                                               ASM01050
//H      NOP                                                            ASM01060
// PARAM COPY=&SC1                                                      ASM01070
//AUS    NOP                                                            ASM01080
         END                                                            ASM01090
