FTN 
.PROC,FTN4*I,\
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD1 
*CALL COMPROC 
. 
  
* FTN4 - FTN4 4 
*CALL     PSRLEV
* 
  
.*
.*  START FTN4 VIA SUBPROC. 
.*
BEGIN(SUBPROC,INSTALL,FTN4,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF) 
REVERT.        FTN4.
EXIT. 
REVERT(ABORT)  FTN4.
  
  
.DATA,ZZZPROC 
.PROC,FTN4. 
*CALL     PSRLEV
SKIPEI(USER)
NOTE(USER,NR)+*IDENT TSOFF+*DEFINE TSOFF+*/   END OF MODSET 
PACK(USER)
BEGIN(PRDIN,INSTALL,PRDNAME=FTN4,#PN=PN,#PR=PR,DISK=0)
BEGIN(COMPCOM,INSTALL)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=FCC,NUMAUX=1)
SKIPR(COMPILE)                                      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
SKIPR(COMPILE)                                      *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,LGO,TEXT)
COPYBR(TEXT,ABS)
COPYBF(LGO,ABS) 
RENAME(LGO=ABS) 
BEGIN(PRDOUT,INSTALL,PRDNAME=FTN4,#PNO=PNO,#PRO=PRO)
RETURN(LIB) 
REWIND(LGO) 
COPYEI(LGO,GLOBLGO) 
BEGIN(GENDIR,INSTALL,LIB=27)
BEGIN(SAVELGO,INSTALL,PRDNAME=FTN4) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  FTN4.
EXIT. 
REVERT(ABORT)  FTN4.
*WEOR 
