OSTEXT
.PROC,OSTEXT*I,\
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMXOPL 
*CALL COMPROC 
. 
  
* OSTEXT
*CALL     PSRLEV
* 
  
.*****  OSTEXT
.*      INSTALLATION INSTRUCTIONS:  
  
.***    INVOCATION
.*      BEGIN,OSTEXT,INSTALL. 
  
.***    INPUT.
.*         OPL_PSROUT. (OPL999)  NOS COMPOSITE OPL. 
  
.***    OUTPUT: 
.*         BINARIES ADDED TO FILE *PRODUCT*.
  
  
.*
.*  START OSTEXT VIA SUBPROC. 
.*
BEGIN(SUBPROC,INSTALL,OSTEXT,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF) 
REVERT.        OSTEXT.
EXIT. 
REVERT(ABORT)  OSTEXT.
  
  
.DATA,ZZZPROC 
.PROC,OSTEXT. 
*CALL     PSRLEV
BEGIN(MODIFYX,INSTALL)    MAKE PROPER MODIFY1 PROC LOCAL
BEGIN(PRDAUX,INSTALL,PRDNAME=OPL,#PNO=PN99,#PRO=PR99) 
RENAME(OPL=AUXPL) 
UNLOAD(PPTXT,SYSTXT,NOSTXT,CETXT,SSYTXT,PSSTXT) 
NOTE(MODIR,NR)+*EDIT CETEXT.SYSTEXT 
BEGIN(,MODIFY1,A) 
COMPASS(A,I,S=0,B=LGO,L=LIST)          TEXT OVERLAYS
GTR(LGO,NOSTXT)OVL/NOSTEXT
GTR(LGO,SSYTXT)OVL/SSYTEXT
GTR(LGO,PSSTXT)OVL/PSSTEXT
GTR(LGO,SYSTXT)OVL/SYSTEXT
REWIND(LGO) 
COPYEI(LGO,GLOBLGO) 
SKIPEI(LGO) 
BKSP(LGO) 
NOTE(MODIR,NR);*EDIT CPUREL 
BEGIN(,MODIFY1,A) 
COMPASS(A,I,G=NOSTXT,B=LIB,L=LIST)                SYSLIB
BEGIN(SAVELIB,INSTALL,LIB=LIB,LIBNAME=SYSLIB) 
BEGIN(GENDIR,INSTALL,LIB=42)
BEGIN(SAVELGO,INSTALL,PRDNAME=OSTX) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.        OSTEXT ************************************
EXIT. 
REVERT(ABORT)  OSTEXT ************************************
*WEOR 
