LOGICAL FUNCTION ZPTST (ZNLX, ZBIAS)  
    
      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  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     ZNLX, ZBIAS, TS1, TS2 
      INTEGER     NLOPS 
      LOGICAL     NLTEST
      ZPTST = .FALSE.   
      IF (.NOT. ( NLOPS (DFINED, ZNLX) .NE. 0 ))GO TO 13078 
    
      TS1 = NLOPS (NLXLCI, ZNLX)
      TS2 = NLOPS (NAMLOC, ZNLX) + ZBIAS
      IF ( ( TS1 .EQ. ZREL .OR. TS1 .EQ. ABSLC ) .AND. TS2 .GE. 0 .AND. 
     1TS2 .LT. 255 ) ZPTST = .TRUE. 
      GO TO 13079   
13078 CONTINUE  
    
      IF (NLTEST (ZNLX, EXDBIT) .AND. ZBIAS .LT. 256) ZPTST = .TRUE.
13079 CONTINUE  
    
      RETURN
      END