SUBROUTINE  REGLEV (FUNC) 
      INTEGER     FUNC  
      EXTERNAL    OLREG, OLCRM  
    
      INTEGER     ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG 
      INTEGER     PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG
      INTEGER     LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV
      INTEGER     NEXT,   NUMBER, I,      IOTYPE
      INTEGER     J,      K,      L,      LABNLX, M,      N 
      INTEGER     PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE
      INTEGER     OPTOPX, OPNXTX, TOPX,   NEXTX 
      INTEGER     DUMMY,  OVCHN,  PEEKS 
      INTEGER     LO,     CI,     CO,     LOGICF, LOCSUP
      INTEGER     VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT
      INTEGER ICLP05
      LOGICAL     ENDOK,CONEND  
      COMMON   /LOGOS/  ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG   
      COMMON   /LOGOS/  PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG  
      COMMON   /LOGOS/  LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV  
      COMMON   /LOGOS/  NEXT,   NUMBER, I,      IOTYPE  
      COMMON   /LOGOS/  J,      K,      L,      LABNLX, M,      N   
      COMMON   /LOGOS/  PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE  
      COMMON   /LOGOS/  OPTOPX, OPNXTX, TOPX,   NEXTX   
      COMMON   /LOGOS/  DUMMY,  OVCHN,  PEEKS   
      COMMON   /LOGOS/  LO,     CI,     CO,     LOGICF, LOCSUP  
      COMMON   /LOGOS/  VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT  
      COMMON   /LOGOS/  ICLP05  
      COMMON   /LOGOS/  ENDOK,CONEND
    
      INTEGER  PLEVEL, STOPS (20)   
      INTEGER  CNLSID (9), CNLTLI (9), CNLEND (9)   
      INTEGER  CLX, CPLOC (30)  
      INTEGER  NESTX, PNESTX
      INTEGER  RELLEV, RELCNT, TRUEF
      LOGICAL  RELPAS   
      INTEGER  CMPFLG   
      INTEGER  ILB  
      INTEGER  BRCT, BROK, TNESTX   
      COMMON   /COMP/   PLEVEL, STOPS   
      COMMON   /COMP/   CNLSID, CNLTLI, CNLEND  
      COMMON   /COMP/   CLX, CPLOC  
      COMMON   /COMP/   NESTX, PNESTX   
      COMMON   /COMP/   RELLEV, RELCNT, TRUEF   
      COMMON   /COMP/   RELPAS  
      COMMON   /COMP/   CMPFLG  
      COMMON   /COMP/   ILB 
      COMMON   /COMP/   BRCT, BROK, TNESTX  
      CONTINUE  
      CALL REGDMP (8)   
      CONTINUE  
      GO TO (100, 200, 300, 400, 500), FUNC 
  100 CALL STKREG (NESTX, 2)
      RETURN
  200 CALL EXRGLV (TNESTX, 2)   
      GO TO 310 
  300 CALL MRGREG (NESTX, 2)
  310 CONTINUE  
      CALL REGDMP (9)   
      RETURN
  400 CALL STKREG (CLX, 1)  
      RETURN
  500 CALL MRGREG (I, 1)
      RETURN
      END