BINEDIT 
.PROC,BINEDIT*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD3 
*CALL COMPROC 
. 
  
* #BINEDIT - BINARY EDITOR FOR MODIFYING CTI BINARIES.
*CALL     PSRLEV
* 
  
.*
.*  START BINEDIT VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,BINEDI,T,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        BINEDIT. 
EXIT. 
REVERT(ABORT)  BINEDIT. 
  
  
.DATA,ZZZPROC 
.PROC,BINEDIT.
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=BINE,#PN=PN,#PR=PR,DISK=0)
BEGIN(COMPCOM,INSTALL)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,PCDECK=BIN,NUMAUX=1,#PC=PC,#CC=CC)
RFL(65000)
COMPASS(A,I,S=CPUTEXT,B=LGO,L=LIST) 
RETURN(COMPILE) 
BEGIN(PRDOUT,INSTALL,PRDNAME=BINE,#PNO=PNO,#PRO=PRO)
RETURN(LIB) 
BEGIN(GENDIR,INSTALL,LIB=11)
BEGIN(SAVELGO,INSTALL,PRDNAME=BINE) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  BINEDIT
EXIT. 
REVERT(ABORT)  BINEDIT
*WEOR 
