         PROC  P,1                                                      DSK00010
DSKTYP   NAME                                                           DSK00020
//       NOP   THIS SPACE RESERVED FOR AN INSTALLATIONS  EQU  CARDS     DSK00030
//       NOP   TO REDEFINE THE FOLLOWING DVC CODES IN THIS ROUTINE      DSK00040
//       IF    ('&P(1)' NE '8411')NEXT                                  DSK00050
//       DVC   86        // GO OUT                                      DSK00060
//NEXT   IF    ('&P(1)' NE '8414')NEXT                                  DSK00070
//       DVC   80        // GO OUT                                      DSK00080
//NEXT   IF    ('&P(1)' NE '8416')NEXT                                  DSK00090
//       DVC   60        // GO OUT                                      DSK00100
//NEXT   IF    ('&P(1)' NE '8418A')NEXT                                 DSK00110
//       OPR   '**WARNING** BE SURE DENSITY IS SET PROPERLY - LOW'      DSK00120
//       DVC   64        // GO OUT                                      DSK00130
//NEXT   IF    ('&P(1)' NE '8418B')NEXT                                 DSK00140
//       OPR   '**WARNING** BE SURE DENSITY IS SET PROPERLY - DOUBLE'   DSK00150
//       DVC   67        // GO OUT                                      DSK00160
//NEXT   IF    ('&P(1)' NE '8430')NEXT                                  DSK00170
//       DVC   70        // GO OUT                                      DSK00180
//NEXT   DVC   50                                                       DSK00190
//OUT    NOP                                                            DSK00200
         END                                                            DSK00210
