*DECK FCS7700 
          IDENT  FCS7700
*CALL COPYRITE
          LCC    OVERLAY(FTP,77,00) 
          ENTRY  FCS7700
          TITLE  FCS7700 - *FCS* 77,00 INITIALIZATION OVERLAY.
          COMMENT  FCS7700 - *FCS* 77,00 INITIALIZATION OVERLAY.
          SPACE  4,10 
****      FCS7700 - *FCS* 77,00 INITIALIZATION OVERLAY. 
* 
*         THIS OVERLAY CONTAINS THE *FCS* INITIALIZATION ROUTINES.
*         THE MEMORY OCCUPIED BY THIS OVERLAY WILL BE RELEASED TO THE 
*         *FCS* TABLE MANAGER WHEN INITIALIZATION IS COMPLETE.
* 
  
  
 FCS7700  BSS    0
          RJ     =XFCSIPES   INITIALIZE *FCS* 
  
          END    FCS7700
