NIP5870 
.PROC,NIP5870*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMXOPL 
*CALL COMPROC 
. 
  
.***
.* REQUIRES PASCAL
.***
  
*CALL PSRLEV
  
BEGIN(SUBPROC,INSTALL,NIP587,0,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        NIP5870. 
EXIT. 
REVERT(ABORT)  NIP5870. 
  
.DATA,ZZZPROC 
.PROC,NIP5870.
*CALL PSRLEV
BEGIN(MODIFYX,INSTALL)    MAKE PROPER MODIFY1 PROC LOCAL
BEGIN(PRDAUX,INSTALL,PRDNAME=OPL,#PNO=PN99,#PRO=PR99) 
RENAME(OPL=AUXPL) 
BEGIN(GETULIB,INSTALL,PASCLIB,SRVLIB,SYSLIB)
  
* GENERATE *HOSTCPY* PROC 
NOTE(MODIR,NR);*EDIT HOSTCPY
BEGIN(,MODIFY1) 
COPYCR(COMPILE,LGO,1,1,72)
  
* GENERATE *HSTCOPY* ABSOLUTE BINARY
NOTE(MODIR,NR);*EDIT HSTCOPY
BEGIN(,MODIFY1) 
PASCAL,I,L=LIST,B=HSTBIN. 
COMPASS,A,I,S=NOSTEXT,L=LIST,B=HSTBIN.
  
* ONE NON-FATAL LOADER ERROR IS EXPECTED
LDSET(PRESET=ZERO,LIB=PASCLIB/SRVLIB) 
SLOAD,HSTBIN/R,HSTCOPY. 
LOAD,HSTBIN/R.
NOGO,LGO,HSTCOPY. 
  
* GENERATE *XHC* BINARY 
NOTE(MODIR,NR);*EDIT XHC
BEGIN(,MODIFY1) 
COMPASS,I,S=NOSTEXT,L=LIST. 
  
* 5870JDL TEXT
MODIFY,S=JDLBIN,C=0,Z./*EDIT,5870JDL
GTR,JDLBIN,LGO.5870JDL
  
BEGIN(GENDIR,INSTALL,LIB=3) 
BEGIN(SAVELGO,INSTALL,PRDNAME=NIP1) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.      NIP5870 *************************
EXIT. 
REVERT(ABORT) NIP5870 ************************* 
*WEOR 
