COMPASS 
.PROC,COMPASS*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMOUT
*CALL COMD1 
*CALL COMPROC 
. 
  
* COMPASS - COMPASS 3 
*CALL     PSRLEV
* 
  
.*
.*  START COMPASS VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,COMPAS,S,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        COMPASS. 
EXIT. 
REVERT(ABORT)  COMPASS. 
  
  
.DATA,ZZZPROC 
.PROC,COMPASS.
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=CPS1,#PN=PN,#PR=PR,DISK=0)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=CPS) 
RFL(65000)
COMPASS(A,I,S=PSSTEXT,S=IPTEXT,S=CPUTEXT,L=LIST)
COMPASS(A,I,S=PSSTEXT,S=IPTEXT,S=CPUTEXT,L=LIST)
COMPASS(A,I,S=0,L=LIST)    AIDTEXT
COMPASS(A,I,S=0,L=LIST)    NADTEXT
* 
*  ASSEMBLE CDCM
* 
COMPASS(A,I,S=PSSTEXT,S=IPTEXT,S=SPPTEXT,S=SYSTEXT,L=LIST)
GTR(LGO,CDCMREL)REL/CDCM
BEGIN(GETULIB,INSTALL,SYSLIB) 
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(LIB=SYSLIB) 
LOAD(CDCMREL) 
NOGO(CDCMABS) 
RETURN(CDCMREL) 
REWIND(CDCMABS) 
COPYBR(CDCMABS,BIN) 
GTR(LGO,BIN)ABS/*,OVL/* 
GTR(LGO,LIB)REL/CPU.ARG-CPU.ZTB 
RENAME(LGO=BIN) 
RETURN(COMPILE) 
BEGIN(SAVELIB,INSTALL,LIB=LIB,LIBNAME=SYSLIB) 
REWIND(LGO) 
COPYEI(LGO,GLOBLGO) 
BEGIN(GENDIR,INSTALL,LIB=20)
BEGIN(SAVELGO,INSTALL,PRDNAME=CPS1) 
BEGIN(PRDOUT,INSTALL,PRDNAME=CPS1,#PNO=PNO,#PRO=PRO)
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  COMPASS. 
EXIT. 
REVERT(ABORT)  COMPASS. 
*WEOR 
