FTNTS 
.PROC,FTNTS*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD1 
*CALL COMPROC 
. 
  
* FTNTS - FTNTS 4 
*CALL     PSRLEV
* 
  
.*
.*  START FTNTS VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,FTNTS,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        FTNTS. 
EXIT. 
REVERT(ABORT)  FTNTS. 
  
  
.DATA,ZZZPROC 
.PROC,FTNTS.
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=FTI4,#PN=PN,#PR=PR,DISK=0)
BEGIN(COMPCOM,INSTALL)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=FCC,NUMAUX=1)
COMPASS(A,I,S=IPTEXT,S=CPUTEXT,B=TSTEXT,L=LIST)     TSTEXT
COMPASS(A,I,S=IPTEXT,B=FTNMAC,L=LIST)               FTNMAC
COMPASS(A,I,S=IPTEXT,B=FTNTEXT,L=LIST)              FTNTEXT 
COMPASS(A,I,S=PSSTEXT,S=CPUTEXT,G=FTNTEXT,B=SYSFTN,L=LIST)   FTN
COMPASS(A,I,S=CPUTEXT,G=TSTEXT,B=SYSFTN,L=LIST)     *TSMODE*-LIST 
COMPASS(A,I,S=PSSTEXT,S=CPUTEXT,G=FTNTEXT,B=SYSFTN,L=LIST)   *BATCH*
COMPASS(A,I,S=CPUTEXT,G=FTNTEXT,B=FRAME,L=LIST)     FRAME (NO DEBUG)
COPYLM(FRAME,SYSFTN,LOAD1,,R) 
LDSET(PRESET=ZERO,ERR=ALL)
LOAD(LOAD1) 
NOGO(FTN) 
BEGIN(ADDGLOB,INSTALL,GLOBLGO=FTN)
BEGIN(ATTGLOB,INSTALL)
RETURN(FTN) 
SKIPF(SYSFTN) 
SKIPF(FRAME)
COMPASS(A,I,S=CPUTEXT,G=FTNTEXT,B=FRAME,L=LIST)     FRAMDBUG
FTN(A,I,OPT=1,S=CPUTEXT,G=FTNTEXT,B=SYSFTN,L=LIST)  *DEBUG*-SAVREGS 
COPYLM(FRAME,SYSFTN,LOAD1,,R) 
LDSET(PRESET=ZERO,ERR=ALL)
LOAD(LOAD1) 
NOGO(FTN) 
RENAME(LGO=FTN) 
RENAME(TEXT=FTNMAC) 
REWIND(ABS,TEXT,LGO)
COPYBR(TEXT,ABS)
COPYBF(LGO,ABS) 
RENAME(LGO=ABS) 
BEGIN(PRDOUT,INSTALL,PRDNAME=FTI4,#PNO=PNO,#PRO=PRO)
RETURN(LIB) 
REWIND(LGO) 
COPYEI(LGO,GLOBLGO) 
BEGIN(GENDIR,INSTALL,LIB=27)
BEGIN(SAVELGO,INSTALL,PRDNAME=FTI4) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  FTNTS. 
EXIT. 
REVERT(ABORT)  FTNTS. 
*WEOR 
