// JOB CU$PUNCH                                                         CU$00010
// DVC 20  // LFD PRNTR                                                 CU$00020
// DVC 40  // LFD PUNCH                                                 CU$00030
// DVC RES    // LBL $Y$SRC    // LFD IN1                               CU$00040
// OPTION DUMP                                                          CU$00011
// CR                                                                   CU$00050
// IF ('&CU$T' EQ '1')CU$2OBJ                                           CU$00060
// IF ('&CU$T' EQ '2')CU$2LOD                                           CU$00070
// IF ('&CU$T' EQ '3')CUEND                                             CU$00080
// IF ('&CU$T' EQ '4')CU$R4                                             CU$00090
// IF ('&CU$T' EQ '5')CU$R5                                             CU$00100
// IF ('&CU$T' EQ '6')CU$R6                                             CU$00110
// GO CU$END                                                            CU$00120
//CU$2OBJ NOP                                                           CU$00130
// EXEC LIBS                                                            CU$00140
/$                                                                      CU$00150
         FIL   D1=IN1                                                   CU$00160
         COP.P D1,S,CU$2OI                                              CU$00170
         COP.P D1,S,CU$2O11                                             CU$00180
         COP.P D1,S,CU$2O12                                             CU$00190
         COP.P D1,S,CU$2O22                                             CU$00200
         COP.P D1,S,CU$2O34                                             CU$00210
         COP.P D1,S,CU$2OIS                                             CU$00220
         COP.P D1,S,CU$2OSQ                                             CU$00230
         COP.P D1,S,CU$2OTAP                                            CU$00240
/*                                                                      CU$00250
// GO CU$END                                                            CU$00260
//CU$2LOD NOP                                                           CU$00270
// EXEC LIBS                                                            CU$00280
/$                                                                      CU$00290
         FIL   D1=IN1                                                   CU$00300
         COP.P D1,S,CU$2L20                                             CU$00310
/*                                                                      CU$00320
// GO CU$END                                                            CU$00330
//CU$R4 NOP                                                             CU$00340
// EXEC LIBS                                                            CU$00350
/$                                                                      CU$00360
         FIL   D1=IN1                                                   CU$00370
         COP.P D1,S,CU$3L10                                             CU$00380
/*                                                                      CU$00390
// GO CU$R7                                                             CU$00400
//CU$R5 NOP                                                             CU$00410
// ALTER LIBS0007,0000,00                                               CU$00411
// EXEC LIBS                                                            CU$00420
/$                                                                      CU$00430
         FIL   D1=IN1                                                   CU$00440
         COP.P D1,S,CU$3L11                                             CU$00450
/*                                                                      CU$00460
// GO CU$R7                                                             CU$00470
//CU$R6 NOP                                                             CU$00480
// EXEC LIBS                                                            CU$00490
/$                                                                      CU$00500
         FIL   D1=IN1                                                   CU$00510
         COP.P D1,S,CU$3L12                                             CU$00520
/*                                                                      CU$00530
//CU$R7 NOP                                                             CU$00540
// EXEC LIBS                                                            CU$00550
/$                                                                      CU$00560
         FIL   D1=IN1                                                   CU$00570
         COP.P D1,S,CU$3REL                                             CU$00580
/*                                                                      CU$00590
//CU$END NOP                                                            CU$00600
/&                                                                      CU$00610
