COMPCOM 
.PROC,COMPCOM*I,\ 
*CALL COMOUT
*CALL COMX1 
*CALL COMPROC 
. 
  
* COMPCOM - GET COMPASS COMMON DECKS AS AUXPL 
*CALL     PSRLEV
* 
  
BEGIN(PRDAUX,INSTALL,PRDNAME=CPS1,#PNO=PN1,#PRO=PR1)
RENAME(COMCPL=AUXPL)
NOTE(COM)+*C COMCARG.COMPCOM
UPDATE(P=COMCPL,Q,I=COM,C=0,N=AUXPL)
RETURN(COMCPL,COM)
REVERT.  COMPCOM. 
EXIT. 
REVERT(ABORT)  COMPCOM. 
*WEOR 
