         PROC  P,7                                                      SG$00010
SG$TKASM NAME                                                           SG$00020
// WORK1                                                                SG$00030
// WORK2                                                                SG$00040
// OPTION JOBDUMP,SCAN,SUB                                              SG$00050
// EXEC ASM,NEWLOD                                                      SG$00060
// PARAM LIN=NEWMAC/(N)                                                 SG$00070
// PARAM COPY=NEWSRC/(N)                                                SG$00080
// PARAM OUT=NEWOBJ                                                     SG$00090
/$                                                                      SG$00100
&P(1)    START                                                          SG$00110
         GBL   &&NT$BKSZ,&&NT$DEV,&&NT$NTRY,&&NT$EOFA,&&NT$FNCD         SG$00120
         GBL   &&NT$TYPF,&&NT$DEST,&&NT$LFD,&&NT$CTRL,&&NT$VRBL         SG$00130
         COPY  L$&P(1)                                                  SG$00140
         LOCAL                                                          SG$00150
         &DHOLT.END                                                     SG$00160
/*                                                                      SG$00170
//       IF    ('&P(2)' EQ '').END                                      SG$00180
// SG$TKASM &P(2),&P(3),&P(4),&P(5),&P(6),&P(7)                         SG$00190
//.END   NOP                                                            SG$00200
         END                                                            SG$00210
