SUBROUTINE  PASS2 
    
      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  NI,     NJ,     NK   
      INTEGER  NSIZE
      INTEGER  NLX,    FNLX,   REMNLX, OVNLX,  TNAME
      INTEGER  NLSTRT, NLSTOP, NLSIZE, SRCHST   
      INTEGER  NTSTRT   
      INTEGER  NTSTOP   
      INTEGER  NTSIZE   
      INTEGER  PARFLG   
      INTEGER  SPARFL   
      INTEGER  NLWRDS   
      INTEGER  TX   
      INTEGER  NLENO
      INTEGER  STDMD
      INTEGER  MSHIFT   
      INTEGER  REGCNT   
      INTEGER  NULLX
      INTEGER  STPTRX   
      INTEGER  SPMODE   
      INTEGER  DPMODE   
      INTEGER  SPECMD   
      INTEGER  ENFLAG   
      INTEGER  DFINED   
      INTEGER  CVALUE   
      INTEGER  NLXLCI   
      INTEGER  ENEXTD   
      INTEGER  NAMAT0   
      INTEGER  NAMCON   
      INTEGER  NLMODE   
      INTEGER  PARBIT   
      INTEGER  OPBIT
      INTEGER  LOCALB   
      INTEGER  REGBIT   
      INTEGER  EXTBIT   
      INTEGER  STRBIT   
      INTEGER  DPBIT
      INTEGER  CBIT 
      INTEGER  PBIT 
      INTEGER  EPBIT
      INTEGER  IOBIT
      INTEGER  ARBIT
      INTEGER  EXDBIT   
      INTEGER  TPLBIT   
      INTEGER  USEBIT   
      INTEGER  LCMASK   
      INTEGER  MDMASK   
      INTEGER  NAMLOC, REGNUM   
      COMMON   /NLIST/     NI   
      COMMON   /NLIST/     NJ   
      COMMON   /NLIST/     NK   
      COMMON   /NLIST/     NSIZE
      COMMON   /NLIST/     NLX  
      COMMON   /NLIST/     FNLX 
      COMMON   /NLIST/     REMNLX   
      COMMON   /NLIST/     OVNLX
      COMMON   /NLIST/     TNAME
      COMMON   /NLIST/     NLSTRT   
      COMMON   /NLIST/     NLSTOP   
      COMMON   /NLIST/     NLSIZE   
      COMMON   /NLIST/     SRCHST   
      COMMON   /NLIST/     NTSTRT   
      COMMON   /NLIST/     NTSTOP   
      COMMON   /NLIST/     NTSIZE   
      COMMON   /NLIST/     PARFLG   
      COMMON   /NLIST/     SPARFL   
      COMMON   /NLIST/     NLWRDS   
      COMMON   /NLIST/     TX   
      COMMON   /NLIST/     NLENO
      COMMON   /NLIST/     STDMD
      COMMON   /NLIST/     MSHIFT   
      COMMON   /NLIST/     REGCNT   
      COMMON   /NLIST/     NULLX
      COMMON   /NLIST/     STPTRX   
      COMMON   /NLIST/     SPMODE   
      COMMON   /NLIST/     DPMODE   
      COMMON   /NLIST/     SPECMD   
      COMMON   /NLIST/     ENFLAG   
      COMMON   /NLIST/     DFINED   
      COMMON   /NLIST/     CVALUE   
      COMMON   /NLIST/     NLXLCI   
      COMMON   /NLIST/     ENEXTD   
      COMMON   /NLIST/     NAMAT0   
      COMMON   /NLIST/     NAMCON   
      COMMON   /NLIST/     NLMODE   
      COMMON   /NLIST/     PARBIT   
      COMMON   /NLIST/     OPBIT
      COMMON   /NLIST/     LOCALB   
      COMMON   /NLIST/     REGBIT   
      COMMON   /NLIST/     EXTBIT   
      COMMON   /NLIST/     STRBIT   
      COMMON   /NLIST/     DPBIT
      COMMON   /NLIST/     CBIT 
      COMMON   /NLIST/     PBIT 
      COMMON   /NLIST/     EPBIT
      COMMON   /NLIST/     IOBIT
      COMMON   /NLIST/     ARBIT
      COMMON   /NLIST/     EXDBIT   
      COMMON   /NLIST/     TPLBIT   
      COMMON   /NLIST/     USEBIT   
      COMMON   /NLIST/     LCMASK   
      COMMON   /NLIST/     MDMASK   
      COMMON   /NLIST/     NAMLOC, REGNUM   
    
      INTEGER     CODE  
      INTEGER     NOUNLC
      INTEGER     DATALC
      INTEGER     COMLOC
      INTEGER     FBLOCK
      INTEGER     ZREL  
      INTEGER     ABSLC 
      INTEGER     CBTAB (15)
      INTEGER     CBX   
      INTEGER     LCTAB (15)
      COMMON      /LCFUNC/ CODE 
      COMMON      /LCFUNC/ NOUNLC   
      COMMON      /LCFUNC/ DATALC   
      COMMON      /LCFUNC/ COMLOC   
      COMMON      /LCFUNC/ FBLOCK   
      COMMON      /LCFUNC/ ZREL 
      COMMON      /LCFUNC/ ABSLC
      COMMON      /LCFUNC/ CBTAB
      COMMON      /LCFUNC/ CBX  
      COMMON      /LCFUNC/ LCTAB
    
      INTEGER     XNX, XNXMAX, XNAME (100)  
      COMMON      /XNAMC/  XNX, XNXMAX, XNAME   
      INTEGER     IERR  
      EXTERNAL    DEFLIT, OLPNA, OLOBJ  
      LOGICAL     NLTEST
      CALL RBOTH  (DATALC)  
      CALL NLSCAN (DEFLIT, NLX) 
      CALL RBOTH  (CODE)
      CALL WRBLOK   
      XNX = XNX - 2 
      IF (.NOT. (XNX .GT. 0))GO TO 13000
    
      DO  13002 I = 1, XNX, 2   
      IF (NLTEST (XNAME (I), USEBIT)) CALL NLSET (XNAME (I+1), USEBIT)  
13002 CONTINUE  
    
13000 CONTINUE  
    
      CALL PNAMEL   
      CALL PNCHO
      CALL QUIT 
      RETURN
      END