CID 
.PROC,CID*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD1 
*CALL COMXOPL 
*CALL COMPROC 
. 
  
* CID - CYBER INTERACTIVE DEBUG 
*CALL     PSRLEV
* 
  
.*
.*  START CID VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,CID,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        CID. 
EXIT. 
REVERT(ABORT)  CID. 
  
  
.DATA,ZZZPROC 
.PROC,CID.
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=CID1,#PN=PN,#PR=PR,DISK=0)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=ID1) 
NOTE(IN1)+*IDENT COMP+*C META.ADDSYNT 
PACK(IN1) 
BEGIN(GETULIB,INSTALL,FORTRAN,SYSLIB,BAMLIB)
UPDATE(Q,P=NEWER,I=IN1,C=SYNTS) EXTRACT META/SYNTAXES/UPDATE DIRECTIVES 
FTN(A,I=SYNTS,OPT=1,B=METAB,L=LIST,R=3) 
LDSET(ERR=ALL,PRESET=ZERO)
LOAD(METAB) 
NOGO(META)
RETURN(IN1,METAB) 
META(SYNTS,BSYNT,L=LIST)         BASIC SYNTAX 
META(SYNTS,FSYNT,L=LIST)         FTN SYNTAX 
META(SYNTS,CSYNT,L=LIST)         COBOL5 SYNTAX
RENAME(OLDPL=NEWER) 
RETURN(COMPILE) 
UPDATE(F,P=OLDPL,N=NEWER,I=SYNTS) ADD NEW SYNTAXES TO PL
RETURN(SYNTS,BSYNT,FSYNT,CSYNT) 
BEGIN(PRDAUX,INSTALL,PRDNAME=OPL,#PNO=PN99,#PRO=PR99) 
RENAME(OPL=AUXPL) 
COMPASS(A,I,L=LIST,PD,B=CIT)        CID TEXT
REWIND(CIT) 
COPYBR(CIT,LIB) 
GTR(GLOBLIB,IPTXT)OVL/IPTEXT
GTR(GLOBLIB,PSSTXT)OVL/PSSTEXT
COMPASS(A,I,X,G=IPTXT,S=NOSTEXT,S=LDRTEXT,G=PSSTXT,G=CIT,L=LIST,PD, 
,B=LIB. 
SYMPL(ET=T,I,L=LIST,B=LIB)
FTN(A,I,OPT=1,L=LIST,PD,R=3,B=LIB)
COMPASS(A,I,X,S=IPTEXT,S=NOSTEXT,G=CIT,L=LIST,PD,B=DEBUGB)DEBUG CTL STMT
COMPASS(A,I,X,G=CIT,L=LIST,PD,B=INSTALB)   INSTALLER REL
COMPASS(A,I,L=LIST,PD,B=DBUGLN) DEFAULT DBUGLN REL FOR SYSLIB 
RETURN(COMPILE) 
LIBRARY(GLOBLIB)
LDSET(ERR=ALL,PRESET=ZERO)
LOAD(DEBUGB)
NOGO(LGO)         DEBUG CTL STMT ABS
RETURN(DEBUGB)
LIBGEN(F=LIB,P=DBUGLIB)   PRELIMINARY DBUGLIB TO GEN OVLS FROM
RFL(120000) 
REDUCE(-) 
BEGIN(GETULIB,INSTALL,SYMLIB) 
BEGIN(LOCALLD,INSTALL)
LOADLDR.
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(OMIT=$DUM=DUM$) 
LIBLOAD(DBUGLIB,$DBUG=$)
INSTALB. GEN DBUGOVL OVERLAYS(DBUG1$-DBUG5$) AND DBUGCOR TO ADJUST DBUG=
BEGIN(ATTGLOB,INSTALL)
REWIND(DBUGOVL) 
COPYBR(DBUGOVL,LGO,6) 
UPDATE(Q,I=DBUGCOR,P=NEWER) ADJUST DBUG= LENGTH TO CONFORM TO OVL LD PNT
COMPASS(A,I,X,G=IPTXT,S=NOSTEXT,S=LDRTEXT,G=CIT,G=PSSTXT,L=LIST,PD, 
,B=DBUG)
LIBEDIT(P=LIB,C,B=DBUG,I=0) 
REDUCE. 
RENAME(LIB2=LIB)
RETURN(DBUGCOR,COMPILE,DBUG,DBUGLIB,INSTALB,DBUGLIB,LIB)
RENAME(LIB=DBUGLN)RELS FOR SYSLIB 
BEGIN(SAVELIB,INSTALL,LIB=LIB,LIBNAME=SYSLIB) 
BEGIN(SAVELIB,INSTALL,LIB=LIB2,LIBNAME=DBUGLIB) 
BEGIN(PRDOUT,INSTALL,PRDNAME=CID1,#PNO=PNO,#PRO=PRO)
BEGIN(GENDIR,INSTALL,LIB=17)
BEGIN(SAVELGO,INSTALL,PRDNAME=CID1) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  CID. 
EXIT. 
REVERT(ABORT)  CID. 
*WEOR 
