TCPH
.PROC,TCPH*I,\
DEBUG   ' ENABLE DEBUG CODE          (NO/YES)  '=(*N=$$,NO=$$,YES=$,E$, 
                                                  *K=$,E$), 
TRACE   ' ENABLE AIP TRACE CODE      (NO/YES)  '=(*N=,NO=,YES=D,*K=D),
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD2 
*CALL COMX2 
*CALL COMXOPL 
*CALL COMPROC 
. 
  
  
.*
.*  START TCPH VIA SUBPROC. 
.*
BEGIN(SUBPROC,INSTALL,TCPH,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF) 
REVERT.        TCPH.
EXIT. 
REVERT(ABORT)  TCPH.
  
  
.DATA,ZZZPROC 
.PROC,TCPH. 
* TCPH - CDCNET HOST SIDE OF TCP/IP PROTOCOL
*CALL PSRLEV
* 
BEGIN(PRDIN,INSTALL,PRDNAME=TCPH,#PN=PN,#PR=PR,DISK=0)
BEGIN(PRDAUX,INSTALL,PRDNAME=OPL,#PNO=PN99,#PRO=PR99) 
RENAME(OPL=AUXPL) 
* 
BEGIN(PRDAUX,INSTALL,PRDNAME=NAM5,#PNO=PN2,#PRO=PR2)
* 
.IF,$DEBUG$.NE.$$,DBUG. 
  SKIPEI(USER)
  NOTE(USER,NR)+*IDENT  #DEBUG
  NOTE(USER,NR)+*DEFINE #DEBUG
  PACK(USER)
.ENDIF,DBUG.
BEGIN(UP,INSTALL,PCPL=CNSP,#PC=PC,#CC=CC,PCDECK=TCH,NUMAUX=1) 
* 
COMPASS(A,I,S,S=NOSTEXT,S=PSSTEXT,S=NETTEXT,B=CCOMREL,L=LIST) 
LIBGEN(F=CCOMREL,P=CCOMLIB) 
RETURN(CCOMREL) 
* 
SYMPL(ET=T,I_DEBUG,B=FTPTEXT,L=LIST)
SYMPL(ET=T,I_DEBUG,Y=FTPTEXT,B=FTPREL,L=LIST) 
COMPASS(A,I,S,S=NOSTEXT,S=PSSTEXT,S=NETTEXT,B=FTPREL,L=LIST)
LIBGEN(F=FTPREL,P=FTPLIB) 
COMPASS(A,I,S,S=NOSTEXT,S=PSSTEXT,S=NETTEXT,B=FTPMAIN,L=LIST) 
RETURN(FTPREL)
* 
BEGIN(GETULIB,INSTALL,NFMLIB,NETIO_TRACE,MACLIB,SRVLIB,SYMLIB,SYSLIB) 
BEGIN(GETULIB,INSTALL,FORTRAN)
* 
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(LIB=CCOMLIB/FTPLIB/NFMLIB/NETIO_TRACE/MACLIB/SRVLIB/SYSLIB) 
LOAD(FTPMAIN) 
NOGO(LGO) 
* 
SYMPL(ET=T,I_DEBUG,B=FTSTEXT,L=LIST)
SYMPL(ET=T,I_DEBUG,Y=FTSTEXT,B=FTPSREL,L=LIST)
COMPASS(A,I,S,S=NOSTEXT,S=PSSTEXT,S=NETTEXT,B=FTPSREL,L=LIST) 
LIBGEN(F=FTPSREL,P=FTPSLIB) 
COMPASS(A,I,S,S=NOSTEXT,S=PSSTEXT,S=NETTEXT,B=FTSMAIN,L=LIST) 
COMPASS(A,I,S,S=NOSTEXT,S=PSSTEXT,S=NETTEXT,B=FTSMAIN,L=LIST) 
RETURN(FTPSREL) 
* 
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(LIB=CCOMLIB/FTPSLIB/NFMLIB/NETIO_TRACE/MACLIB/SRVLIB/SYMLIB)
LDSET(LIB=SYSLIB/FORTRAN) 
LOAD(FTSMAIN) 
NOGO(LGO) 
* 
COPYCF(COMPILE,TCPSTRT,1,1,72)  NAMSTRT PROCEDURES FOR FTP
* 
BEGIN(PFGOUT,INSTALL,PRDNAME=TCPH,LFN=TCPSTRT)
REWIND(TCPSTRT) 
RETURN(ZZZZDIR) 
NOTE(ZZZZDIR,NR)+JOB(JOBFTPI,IP,SY,NS)        FTPI NORMAL JOB 
NOTE(ZZZZDIR,NR)+JOB(JOBFTIR,PI,DI,SY,NS)     FTPI RESTART JOB
NOTE(ZZZZDIR,NR)+JOB(JOBFTPS,ST,SY,NS)        FTPS NORMAL JOB 
NOTE(ZZZZDIR,NR)+JOB(JOBFTSR,TS,DI,SY,NS)     FTPS RESTART JOB
NOTE(ZZZZDIR,NR)+PARAM(PISTART=YES)           START FTPI AT NHP STARTUP 
NOTE(ZZZZDIR,NR)+PARAM(TSSTART=YES)           START FTPS AT NHP STARTUP 
BEGIN(ACCESS,INSTALL,PRODUCT,R) 
SYSGEN(UPSTRT,TCPSTRT,,ZZZZDIR) 
RETURN(PRODUCT) 
* 
BEGIN(PRDOUT,INSTALL,PRDNAME=TCPH,#PNO=PNO,#PRO=PRO)
BEGIN(GENDIR,INSTALL,LIB=55)
BEGIN(SAVELGO,INSTALL,PRDNAME=TCPH) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  TCPH.
EXIT. 
REVERT(ABORT)  TCPH.
*WEOR 
