SYMPL 
.PROC,SYMPL*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD1 
*CALL COMPROC 
. 
  
* SYMPL - SYMPL 1 
*CALL     PSRLEV
* 
  
.*
.*  START SYMPL VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,SYMPL,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        SYMPL. 
EXIT. 
REVERT(ABORT)  SYMPL. 
  
  
.DATA,ZZZPROC 
.PROC,SYMPL.
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=SYMP,#PN=PN,#PR=PR,DISK=0)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=SMP) 
RFL(110000) 
SETTL(*)
SYMPL(ET=T,I,B=STEXT1,L=LIST) 
SYMPL(ET=T,I,Y=STEXT1,B=STEXT2,L=LIST)
SYMPL(ET=T,I,Y=STEXT1,Y=STEXT2,B=REL,L=LIST)
COMPASS(A,I,S=IPTEXT,S=CPUTEXT,B=SYMTEXT,L=LIST)
COMPASS(A,I,S=IPTEXT,S=PSSTEXT,G=SYMTEXT,S=CPUTEXT,B=REL,L=LIST)
COMPASS(A,I,G=SYMTEXT,S=CPUTEXT,B=LIB,L=LIST) 
COMPASS(A,I,B=OLD,L=LIST) 
LIBEDIT(P=OLD,B=REL,I=0)
RENAME(REL=NEW) 
LIBGEN(F=LIB,P=OBJLIB)
BEGIN(GETULIB,INSTALL,SYMLIB,SYSLIB,FORTRAN)
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(LIB=OBJLIB/SYMLIB/SYSLIB/FORTRAN) 
LDSET(OMIT=DUMMY) 
LOAD(REL) 
NOGO(LGO) 
RETURN(OBJLIB)
GTR(LIB,OBJRTN)REL/SYMIO
GTR(LIB,OBJRTN)REL/SYMBSW$,SYMHBS$
GTR(LIB,OBJRTN)REL/SYMSC$,SYMSM$
RENAME(LIB=OBJRTN)
BEGIN(SAVELIB,INSTALL,LIB=LIB,LIBNAME=SYMLIB) 
BEGIN(PRDOUT,INSTALL,PRDNAME=SYMP,#PNO=PNO,#PRO=PRO)
REWIND(LGO) 
COPYEI(LGO,GLOBLGO) 
BEGIN(GENDIR,INSTALL,LIB=53)
BEGIN(SAVELGO,INSTALL,PRDNAME=SYMP) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  SYMPL. 
EXIT. 
REVERT(ABORT)  SYMPL. 
*WEOR 
