TRACER
.PROC,TRACER*I,\
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMXOPL 
*CALL COMPROC 
. 
  
* TRACER
*CALL     PSRLEV
* 
  
.*****  TRACER
.*      INSTALLATION INSTRUCTIONS:  
  
.***    INVOCATION
.*      BEGIN,TRACER,INSTALL. 
  
.***    INPUT.
.*         OPL_PSROUT. (OPL999)  NOS COMPOSITE OPL. 
  
.***    OUTPUT: 
.*         BINARIES ADDED TO FILE *PRODUCT*.
  
.***    DEPENDENCIES: 
.*         REQUIRES ULIB *FTN5LIB* FROM *FTN5* BUILD. 
.*         REQUIRES ULIB *SRVLIB* FROM *OSTEXT* BUILD.
  
  
.*
.*  START TRACER VIA SUBPROC. 
.*
BEGIN(SUBPROC,INSTALL,TRACER,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF) 
REVERT.        TRACER.
EXIT. 
REVERT(ABORT)  TRACER.
  
  
.DATA,ZZZPROC 
.PROC,TRACER. 
*CALL     PSRLEV
BEGIN(MODIFYX,INSTALL)    MAKE PROPER MODIFY1 PROC LOCAL
BEGIN(PRDAUX,INSTALL,PRDNAME=OPL,#PNO=PN99,#PRO=PR99) 
RENAME(OPL=AUXPL) 
  
  
NOTE(MODIR,NR)+*EDIT CPD,ICPD,EOR1,ACPD,EOR2,PROBE
BEGIN(,MODIFY1) 
COMPASS(A,I,S=NOSTEXT,L=LIST)              CPD,ICPD 
COMPASS(A,I,S=NOSTEXT,B=ACPDC,L=LIST)      ACPD 
SYMPL(ET=T,I,B=ACPDS,L=LIST)               ACPD 
SYMPL(ET=T,I,B=PROB,L=LIST)                PROBE
COMPASS(A,I,S=NOSTEXT,B=PROB,L=LIST)       PROBE
  
BEGIN(GETULIB,INSTALL,SRVLIB,FTN5LIB,SYSLIB,SYMLIB) 
  
LDSET(LIB=SRVLIB/FTN5LIB,ERR=ALL,PRESET=ZERO) 
LOAD(ACPDC) 
LOAD(ACPDS) 
NOGO(LGO,ACPD,$RFL=$) 
  
LDSET(LIB=SRVLIB,ERR=ALL,PRESET=ZERO) 
LOAD(PROB)
NOGO(LGO) 
UNLOAD(ACPDS,ACPDC,PROB)
  
.IF, ( R1G .NE. 0 ) ,GENPL. 
RETURN,NEWPL. 
GTR,OPL,ZZZ.OPLC/COPYRT,OPL/CPD-OPL/PROBE 
LIBEDIT(P=ZZZ,N=NEWPL,B=0,Z)/*BUILD TRACER
RETURN,ZZZ. 
BEGIN(PRDOUT,INSTALL,PRDNAME=TRCE,#PNO=PN99,#PRO=PR99)
.ENDIF(GENPL) 
BEGIN(GENDIR,INSTALL,LIB=60)
BEGIN(SAVELGO,INSTALL,PRDNAME=TRCE) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.        TRACER ************************************
EXIT. 
REVERT(ABORT)  TRACER ************************************
*WEOR 
