*DECK FFS7700 
          IDENT  FFS7700
*CALL COPYRITE          CDCNET - COPYRIGHT CONTROL DATA. 1985.
          LCC    OVERLAY(FTPS,77,00)
          ENTRY  FFS7700
          TITLE  FFS7700 - *FFS* 77,00 INITIALIZATION OVERLAY.
          COMMENT  FFS7700 - *FFS* 77,00 INITIALIZATION OVERLAY.
          SPACE  4,10 
**        FFS7700 - *FFS* 77,00 INITIALIZATION OVERLAY. 
* 
*         NOTE   THIS OVERLAY CONTAINS THE FTPS INITIALIZATION
*                ROUTINES.
  
 FFS7700  BSS    0
          RJ     =XFFSIP     INITIALIZE *FTPS*
  
          END    FFS7700
