MMF 
.PROC,MMF*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMXOPL 
*CALL COMPROC 
. 
  
* MMF 
*CALL     PSRLEV
* 
  
.*****  MMF 
.*      INSTALLATION INSTRUCTIONS:  
  
.***    INVOCATION
.*      BEGIN,MMF,INSTALL.
  
.***    INPUT.
.*         OPL_PSROUT. (OPL999)  NOS COMPOSITE OPL. 
.***    OUTPUT: 
.*         BINARIES ADDED TO FILE *PRODUCT*.
  
.***    DEPENDENCIES: 
  
  
.*
.*  START MMF VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,MMF,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        MMF. 
EXIT. 
REVERT(ABORT)  MMF. 
  
  
.DATA,ZZZPROC 
.PROC,MMF.
*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 0MF.MTE
BEGIN(,MODIFY1,A) 
COMPASS(A,I,S=NOSTEXT,L=LIST) 
  
.IF, ( R1G .NE. 0 ) ,GENPL. 
RETURN,NEWPL. 
GTR,OPL,ZZZ.OPLC/COPYRT,OPL/0MF-OPL/MTE 
LIBEDIT(P=ZZZ,N=NEWPL,B=0,Z)/*BUILD MMF 
RETURN,ZZZ. 
BEGIN(PRDOUT,INSTALL,PRDNAME=MMF1,#PNO=PN99,#PRO=PR99)
.ENDIF(GENPL) 
LIBEDIT,P=LGO,N=LGOA,LO=E,Z./*BUILD OPLD
GTR(LGOA,LGO2)PP/MTE,0MF
BEGIN(GENDIR2,INSTALL,LGO=LGO2,DIR=$*I,PP/RMS,$)
GTR(LGOA,LGO3)PP/1MR,2MR,2MS,2EA,2EB,7EA
BEGIN(GENDIR2,INSTALL,LGO=LGO3,DIR=$*I,PP/REC,$)
GTR(LGOA,LGO4)ABS/MREC
BEGIN(GENDIR,INSTALL,LIB=36,LGO=LGO4) 
COPYEI(LGO2,LGOB) 
COPYEI(LGO3,LGOB) 
COPYEI(LGO4,LGOB) 
RETURN(LGO) 
BEGIN(SAVELGO,INSTALL,LGO=LGOB,PRDNAME=MMF1)
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.        MMF ************************************ 
EXIT. 
REVERT(ABORT)  MMF ************************************ 
*WEOR 
