*DECK,PHASE50 
          IDENT  PHASE50
          TITLE  PHASE50 - LOAD MAP AND CRFLST OVERLAYS 
          COMMENT  PHASE50 - LOAD MAP AND CRFLST OVERLAYS 
          SST 
          LIST   F
          SPACE  4
*         PHASE50 - LOAD AND EXECUTE MAPCRF AND CRFLST OVERLAYS 
          SPACE  4
          ENTRY  PHASE50
 PHASE50  BSSZ   0
          SAVELWA            SAVE LWA OF (5,0) OVERLAY IN LWAX0 
          SX7    10          SET HEADING TYPE 
          SA7    =XWHCHED 
          SA5    =XOPTION 
          LX5    59-1RX 
          PL     X5,NOEJ
          RJ     =XEJECTP 
 NOEJ     BSS    0
  
*         LOAD SECONDARY OVERLAY FOR MAP
  
          LOAD   OV51,MES51 
          ENTRY  AFTPH51
 AFTPH51  BSS    0
          SPACE  4
*         LOAD SECONDARY OVERLAY FOR CRFLST 
  
          SA5    =XOPTION 
          LX5    59-1RR      CROSS REF WANTED 
          PL     X5,AFTPH52 
          SX7    12          SET HEADING TYPE 
          SA7    =XWHCHED 
          RJ     =XEJECTP 
          LOAD   OV52,MES52 
          ENTRY  AFTPH52
 AFTPH52  BSS    0
          JP     =XAFTPH50   RETURN TO CONTROL
          SPACE  2
*         THE FOLLOWING STATEMENT IS A KLUDGE TO PULL IN SYMSM$ IN (5,0)
* 
*         THIS IS NECESSARY TO AVOID IT SHOWING UP IN (5,2) ON A
*         NON-DEBUG COMPILER AND INTERFERING WITH THE BUFFER SPACE
*         SIZE COMPUTATION. 
  
          RJ     =XSYMSM$    THIS STATEMENT WILL NEVER BE EXECUTED
          SPACE  4
 .T       IFNE   TEST,0 
 MES51    DIS    0,+*CALL MAPCRF             CLOCK+ 
 MES52    DIS    0,+*CALL CRFLST             CLOCK+ 
 .T       ENDIF 
          END    PHASE50
