         PROC                                                           SG$00010
SG$MCASM NAME                                                           SG$00020
//       IF    ('&MCPN' NE '').LAB2A                                    SG$00030
//MCPN   JSET  C1                                                       SG$00040
//.LAB2A NOP                                                            SG$00050
//       IF    (&NUSERS LE 6).LAB3                                      SG$00060
//NUSERS JSET  6                                                        SG$00070
//.LAB3  NOP                                                            SG$00080
//       WORK1                                                          SG$00090
//       WORK2                                                          SG$00100
// OPTION PRO                                                           SG$00110
// OPTION SCAN,SUB                                                      SG$00120
// OPTION JOBDUMP                                                       SG$00130
// EXEC ASM,NEWLOD                                                      SG$00140
// PARAM LIN=NEWMAC/(N)                                                 SG$00150
// PARAM COPY=NEWSRC/(N)                                                SG$00160
// PARAM LST=(NC)                                                       SG$00170
/$                                                                      SG$00180
ML$$&MCPN START                                                         SG$00190
         MCPGEN    NCCAUSR=&PUSERS,                                    XSG$00200
//       IF    ('&CCA1&CCA2&CCA3&CCA4' EQ '').LAB4                      SG$00210
               CCAS=(&CCA1,&CCA2,&CCA3,&CCA4),                         XSG$00220
//.LAB4  IF    ('&FTRAN' EQ '').LAB5                                    SG$00230
               MCP=TRANS,                                              XSG$00240
//.LAB5  NOP                                                            SG$00250
//       IF    ('&FMULTIACT' EQ '').LAB5Y                               SG$00260
               ACTCON=MULTI,                                           XSG$00270
//.LAB5Y NOP                                                            SG$00280
//       M$CACH                                                         SG$00290
//       IF    ('&FSTDMCP&FTCI' NE '11').LAB5A                          SG$00300
//X      JSET  8                                                        SG$00310
//       GO    .LAB5Z                                                   SG$00320
//.LAB5A IF    ('&FSTDMCP' EQ '').LAB5B                                 SG$00330
//X      JSET  1                                                        SG$00340
//       GO    .LAB5Z                                                   SG$00350
//.LAB5B IF    ('&FTCI' EQ '').LAB5C                                    SG$00360
//X      JSET  2                                                        SG$00370
//       GO    .LAB5Z                                                   SG$00380
//.LAB5C IF    ('&FDDI' EQ '').LAB5D                                    SG$00390
//X      JSET  3                                                        SG$00400
//       GO    .LAB5Z                                                   SG$00410
//.LAB5D IF    ('&FRJE' EQ '').LAB5E                                    SG$00420
//X      JSET  5                                                        SG$00430
//       GO    .LAB5Z                                                   SG$00440
//.LAB5E IF    ('&FRPG' EQ '').LAB5F                                    SG$00450
//X      JSET  7                                                        SG$00460
//       GO    .LAB5Z                                                   SG$00470
//.LAB5F NOP                                                            SG$00480
//X      JSET  4                                                        SG$00490
//.LAB5Z NOP                                                            SG$00500
               SYSTEM=(&X)                                              SG$00510
//VSYSTEM JSET &X                                                       SG$00520
         &DHOLT.END                                                     SG$00530
/*                                                                      SG$00540
         END                                                            SG$00550
