// JOB LISTRES                                                          LIS00010
//       GBL   V,F                                                      LIS00011
// OPTION SCAN,SUB                                                      LIS00015
// DVC 20   // LFD PRNTR                                                LIS00020
//DEVICE JSET  RES
//                                                              NOP
//       IF    ('&V' EQ '').LAB1
//DEVICE JSET '50 // VOL &V'
//.LAB1  NOP
//                                                              NOP
// DVC &DEVICE  // LBL $Y$LOD // LFD D1
// DVC &DEVICE  // LBL $Y$OBJ // LFD D2
// DVC &DEVICE  // LBL $Y$MAC // LFD D3
// DVC &DEVICE  // LBL $Y$SRC // LFD D4
// DVC &DEVICE  // LBL $Y$JCS // LFD D5
// DVC &DEVICE  // LBL $Y$GEN // LFD D6
//                                                              NOP
// EXEC LIBS                                                            LIS00090
/$                                                                      LIS00100
         FIL   D1=D1,D2=D2,D3=D3,D4=D4,D5=D5,D6=D6                      LIS00110
// IF ('&F' EQ '')DOIT                                                  LIS00111
// IF ('&F' NE 'LOD')DONT
//DOIT   NOP
         COP   D1                      $Y$LOD                           LIS00120
//DONT   NOP                                                            LIS00121
// IF ('&F' EQ '')DOIT
// IF ('&F' NE 'OBJ')DONT
//DOIT   NOP
         COP   D2                      $Y$OBJ                           LIS00130
//DONT   NOP                                                            LIS00131
// IF ('&F' EQ '')DOIT
// IF ('&F' NE 'MAC')DONT
//DOIT   NOP
         COP   D3                      $Y$MAC                           LIS00140
//DONT   NOP                                                            LIS00141
// IF ('&F' EQ '')DOIT
// IF ('&F' NE 'SRC')DONT
//DOIT   NOP
         COP   D4                      $Y$SRC                           LIS00150
//DONT   NOP                                                            LIS00151
// IF ('&F' EQ '')DOIT
// IF ('&F' NE 'JCS')DONT
//DOIT   NOP
         COP   D5                      $Y$JCS                           LIS00160
//DONT   NOP                                                            LIS00161
// IF ('&F' EQ '')DOIT
// IF ('&F' NE 'GEN')DONT
//DOIT   NOP
         COP   D6                      $Y$GEN                           LIS00170
//DONT   NOP                                                            LIS00171
/*                                                                      LIS00180
/&                                                                      LIS00190
