CCL 
.PROC,CCL*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD3 
*CALL COMXOPL 
*CALL COMPROC 
. 
  
* CCL - CYBER CONTROL LANGUAGE
*CALL     PSRLEV
* 
  
.*
.*  START CCL VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,CCL,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        CCL. 
EXIT. 
REVERT(ABORT)  CCL. 
  
  
.DATA,ZZZPROC 
.PROC,CCL.
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=CCL1,#PN=PN,#PR=PR,DISK=0)
BEGIN(COMPCOM,INSTALL)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=CCL,NUMAUX=1)
BEGIN(PRDAUX,INSTALL,PRDNAME=OPL,#PNO=PN99,#PRO=PR99) 
RENAME(OPL=AUXPL) 
RFL(65000)
COMPASS(A,I,X,S=CPUTEXT,S=IPTEXT,S=NOSTEXT,S=PSSTEXT,B=REL1,L=LIST) 
COMPASS(A,I,X,S=CPUTEXT,S=IPTEXT,S=NOSTEXT,S=PSSTEXT,B=REL2,L=LIST) 
COMPASS(A,I,X,S=CPUTEXT,S=IPTEXT,S=NOSTEXT,S=PSSTEXT,B=REL3,L=LIST) 
BEGIN(GETULIB,INSTALL,SFLIB,SYMLIB,SYSLIB)
LDSET(LIB=SFLIB)
LDSET(PRESET=ZERO,ERR=ALL)
LOAD(REL1)
NOGO(CCLBRWE) 
LDSET(LIB=SFLIB,PRESET=ZERO,ERR=ALL)
LOAD(REL2)
NOGO(CCLIFES) 
LDSET(LIB=SFLIB,PRESET=ZERO,ERR=ALL)
LOAD(REL3)
NOGO(CCLDS) 
REWIND(CCLBRWE,CCLIFES,CCLDS,REL1,REL2,REL3)
COPYBF(CCLBRWE,LGO) 
BKSP(LGO) 
COPYBF(CCLIFES,LGO) 
BKSP(LGO) 
COPYBF(CCLDS,LGO) 
RETURN(CCLBRWE,CCLIFES,CCLDS,REL1,REL2,REL3)
BEGIN(PRDOUT,INSTALL,PRDNAME=CCL1,#PNO=PNO,#PRO=PRO)
RETURN(LIB) 
BEGIN(GENDIR,INSTALL,LIB=13)
BEGIN(SAVELGO,INSTALL,PRDNAME=CCL1) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  CCL. 
EXIT. 
REVERT(ABORT)  CCL. 
*WEOR 
