INTEGER FUNCTION NCOMP (NXX1, NXX2)   
      INTEGER     NXX1, NXX2
    
      INTEGER     NSIZE,  NAME(16), NTITLE  
      INTEGER     NFLAGS (512)  
      INTEGER     NADDRS (512)  
      INTEGER     NPOSIT (512)  
      INTEGER     NDATA  (512)  
      INTEGER     NTEXTX (512)  
      INTEGER     NTEXT  (1000) 
      INTEGER     NLX, NLSTRT, NLSTOP   
      INTEGER     TXSTRT, TXSTOP
      INTEGER     NTXBTS
      INTEGER     USEBIT, COMBIT, OVLBIT, EPTBIT
      INTEGER     LDMBIT, MODBIT, MLTBIT, RLSBIT
      INTEGER     GDFBIT, TYPBTS
      INTEGER     ATYPE 
      INTEGER      ICLP07   
      LOGICAL     OLDNAM
      COMMON      /NTABLE/ NSIZE, NAME, NTITLE  
      COMMON      /NTABLE/ NFLAGS, NADDRS, NPOSIT, NDATA, NTEXTX
      COMMON      /NTABLE/ NTEXT
      COMMON      /NTABLE/ NLX, NLSTRT, NLSTOP  
      COMMON      /NTABLE/ TXSTRT, TXSTOP   
      COMMON      /NTABLE/ NTXBTS   
      COMMON      /NTABLE/ USEBIT, COMBIT, OVLBIT, EPTBIT   
      COMMON      /NTABLE/ LDMBIT, MODBIT, MLTBIT, RLSBIT   
      COMMON      /NTABLE/ GDFBIT, TYPBTS   
      COMMON      /NTABLE/ ATYPE
      COMMON      /NTABLE/ ICLP07   
      COMMON      /NTABLE/ OLDNAM   
      IF (.NOT. (IAND(NFLAGS(NXX1),RLSBIT).EQ.0))GO TO 13024
    
      IF (.NOT. (IAND(NFLAGS(NXX2),RLSBIT).EQ.0))GO TO 13026
    
      NCOMP = 0 
      GO TO 13027   
13026 CONTINUE  
    
      NCOMP = +1
13027 CONTINUE  
    
      GO TO 13025   
13024 CONTINUE  
    
      IF (.NOT. (IAND(NFLAGS(NXX2),RLSBIT).EQ.0))GO TO 13028
    
      NCOMP = -1
      GO TO 13029   
13028 CONTINUE  
    
      NCOMP = ISHFT (NADDRS (NXX1), -1) - ISHFT (NADDRS (NXX2), -1) 
      IF (.NOT. (NCOMP .EQ. 0))GO TO 13030  
    
      NCOMP = IAND (NADDRS (NXX1), 1) - IAND (NADDRS (NXX2), 1) 
13030 CONTINUE  
    
13029 CONTINUE  
    
13025 CONTINUE  
    
      RETURN
      END