*DECK FTPS
          IDENT  FTPS 
*CALL COPYRITE          CDCNET - COPYRIGHT CONTROL DATA. 1985.
          LCC    OVERLAY(FTPS,00,00,OV=2) 
          LDSET  EPT=FTPS 
          LDSET  EPT=FTPI 
          LDSET  EPT=SSJ= 
          ENTRY  FTPS 
          ENTRY  FTPI 
          ENTRY  FTPRS
          ENTRY  SSJ= 
          TITLE  FTPS - *FFS* 00,00 MAIN OVERLAY. 
          COMMENT FTPS - *FFS* 00,00 MAIN OVERLAY.
*CALL COPYRITB
          USE    /SSJ$COM/
*         12/0, 24/TIME LIMIT, 12/CPU PRIORITY, 12/SUBSYSTEM ID 
 SSJ=     VFD    12/0,24/37777777B,12/70B,12/0
          CON    0
          CON    0
          CON    0
          CON    0
          USE    0
  
*****     FTPS - *FFS* 00,00 OVERLAY SKELETON.
* 
*         CURRENTLY THE *SYMPL* LANGUAGE DOES NOT SUPPORT THE FEATURES
*         NECESSARY TO DESCRIBE AN OVERLAY TO THE LOADER. 
* 
*         ALL *COMPASS* ROUTINES EXCEPT FOR *FTPS* ARE NON-EXECUTABLE 
*         ROUTINES.  THEY PROVIDE THE ENTRY POINT ADDRESS FOR THE 
*         OVERLAY AND THE EXTERNAL ADDRESS TO THE *SYMPL* ROUTINE 
*         WHERE CONTROL IS TO PASS TO AFTER THE OVERLAY IS LOADED.
* 
* 
  
          USE    /EPTCOM/ 
 EPTFLG   BSSZ   1           ENTRY POINT FLAG 
          USE    *
  
 FTPI     BSS    0           ENTRY POINT FOR FTP CLIENT 
          SX6    1
          SA6    EPTFLG 
          RJ     =XFFSML     *FTPS* MAINLINE ROUTINE
  
 FTPS     BSS    0           ENTRY POINT FOR FTP SERVER 
          RJ     =XFFSML     *FTPS* MAINLINE ROUTINE
  
 FTPRS    SUBR               ENTRY POINT FOR RESTART
          SA1    EPTFLG      READ ENTRY POINT FLAG
          ZR     X1,FTPS     RESTART FTPS 
          EQ     FTPI        RESTART FTPI 
  
          END    FTPS 
