*DECK INIT17
          IDENT  INIT17 
          TITLE  INIT17 - CALL DIAGNOSTIC PROCESSOR 
          COMMENT  INIT17 - CALL DIAGNOSTIC PROCESSOR 
          LIST   F,-R 
          SPACE  4
          ENTRY  INIT17 
 INIT17   BSS    0
          RJ     =XDIAGIV 
          EQ     =XAFTPH17   RETURN TO PHASE10
          END    INIT17 
