TOOLS 
.PROC,TOOLS*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMXOPL 
*CALL COMPROC 
. 
  
* TOOLS 
*CALL     PSRLEV
* 
  
.*****  TOOLS 
.*      INSTALLATION INSTRUCTIONS:  
  
.***    INVOCATION
.*      BEGIN,TOOLS,INSTALL.
  
.***    INPUT.
.*         OPL_PSROUT. (OPL999)  NOS COMPOSITE OPL. 
.***    OUTPUT: 
.*         BINARIES ADDED TO FILE *PRODUCT*.
.*         THE FOLLOWING PROC S ARE TAKEN FROM OPL999 AND ADDED TO
.*         FILE *PRODUCT*.
.*            USEPROC AND RPTPROC 
  
.***    DEPENDENCIES: 
.*           REQUIRES THAT *FTN* AND *FTN5* BE BUILT FIRST. 
.*           REQUIRES LDRTEXT FROM *LOADER* 
  
  
.*
.*  START TOOLS VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,TOOLS,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        TOOLS. 
EXIT. 
REVERT(ABORT)  TOOLS. 
  
  
.DATA,ZZZPROC 
.PROC,TOOLS.
*CALL     PSRLEV
BEGIN(MODIFYX,INSTALL)    MAKE PROPER MODIFY1 PROC LOCAL
BEGIN(PRDAUX,INSTALL,PRDNAME=OPL,#PNO=PN99,#PRO=PR99) 
RENAME(OPL=AUXPL) 
  
UNLOAD(REL,REL2)
NOTE(MODIR,NR);*EDIT ADC.DMPCCC,LPT.TST,EOR1,PSAMP,DFSORT,EOR2
NOTE(MODIR,NR);*EDIT SECART 
BEGIN(,MODIFY1) 
COMPASS(A,I,S=NOSTEXT,L=LIST)         ADC.DMPCCC,LPT.STIMULA
FTN5(I,ET=F,OPT=2,S=NOSTEXT,B=REL,L=LIST)  PSAMP,DFSORT 
BEGIN(GETULIB,INSTALL,FTN5LIB,SYSLIB) 
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(LIB=FTN5LIB)
LOAD(REL) 
NOGO(LGO) 
UNLOAD(REL) 
FTN5(I,ET=F,OPT=2,B=SEC,PL=999999,L=LIST)  SECART 
NOTE(MODIR,NR);*EDIT MSGID
BEGIN(,MODIFY1) 
REWIND(SEC) 
COPYBF(SEC,PFGFILE) 
COPYBF(COMPILE,PFGFILE) 
BEGIN(PFGOUT,INSTALL,PRDNAME=TOOL,LFN=PFGFILE)
  
.IF, ( R1G .NE. 0 ) ,GENPL. 
RETURN,NEWPL. 
GTR,OPL,ZZZ.OPLC/COPYRT,OPLC/COMCCDM-OPL/DEBUG
LIBEDIT(P=ZZZ,N=NEWPL,B=0,Z)/*BUILD TOOLS 
RETURN,ZZZ. 
BEGIN(PRDOUT,INSTALL,PRDNAME=TOOL,#PNO=PN99,#PRO=PR99)
.ENDIF(GENPL) 
BEGIN(GENDIR,INSTALL,LIB=59)
BEGIN(SAVELGO,INSTALL,PRDNAME=TOOL) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.        TOOLS ************************************ 
EXIT. 
REVERT(ABORT)  TOOLS ************************************ 
*WEOR 
