         PROC  P,2                                                      SG$00010
SG$CCASM NAME                                                           SG$00020
//       WORK1                                                          SG$00030
//       WORK2                                                          SG$00040
// OPTION JOBDUMP                                                       SG$00050
// OPTION SCAN,SUB                                                      SG$00060
// EXEC ASM,NEWLOD                                                      SG$00070
// PARAM LIN=NEWMAC/(N)                                                 SG$00080
// PARAM COPY=NEWSRC/(N)                                                SG$00090
// PARAM LST=(NC)                                                       SG$00100
//       IF    ('&P(2)' NE 'NEWOBJ').LAB1                               SG$00110
// PARAM OUT=NEWOBJ                                                     SG$00120
//.LAB1  NOP                                                            SG$00130
/$                                                                      SG$00140
CCA$&P(1) START                                                         SG$00150
         COPY  CCA$&P(1)                                                SG$00160
         &DHOLT.END                                                     SG$00170
/*                                                                      SG$00180
         END                                                            SG$00190
