*DECK,INIT51
          IDENT  INIT51 
          TITLE  INIT51 - CALL MAP PROCESSOR
          COMMENT  INIT51 - CALL MAP PROCESSOR
          SST 
          LIST   F,-R 
          SPACE  4
*         INIT51 - CALL MAP PROCESSOR 
          SPACE  4
          ENTRY  INIT51 
 INIT51   BSS    0
          RJ     =XMAPCRF 
          JP     =XAFTPH51   RETURN TO PHASE50
          END    INIT51 
