*DECK     DMPSIT
          SUBROUTINE DMP SIT( CTR , TREE , LTREE , TXT )
  
**        DMP SIT - PRINT SUCCESSOR INDEX TABLE ( BDT EXIT )
  
          IMPLICIT INTEGER(A-Z) 
          INTEGER TREE(LTREE),TXT(1),CTR(5),SUBTTL(6) 
          COMMON/LINE/LINECM(2) 
          DATA SUBTTL(1) /
     .  48L     LST    PRED  SUCC  T(S)  USES  N.PR  INST              /
  
          FIELD(X,P,L) = SHIFT(X,60-P).A. .N.MASK(60-L) 
          PRED(X) = FIELD(X,36,18)
          ULST(X) = FIELD(X,18,18)
          SUCC(X) = FIELD(X,0,18) 
  
          USES(X) = FIELD(X,48,9) 
          LST(X) = FIELD(X,18,15) 
          NPRED(X) = FIELD(X,0,18)
  
          CTR = CTR + 1 
          LN = FIELD(TXT,30,18) 
          PRINT 5,CTR(1),LN 
 5        FORMAT(//* CALL*I5* TO TREE DMP, LINE NUMBER =*I5)
          CALL SETST( 5 , SUBTTL )
  
          LINECM = LINECM(2)
          PLAST = -1
  
          DO 30 J = 1,LTREE 
          S = SUCC( TREE(J) ) 
          TS = ULST( TREE(J) )
          P = PRED( TREE(J) ) 
          IF( P .EQ. PLAST ) GO TO 20 
  
          PLAST = P 
          LW = TXT(P+4) 
          RK = LST(LW)
          U = USES(LW)
          NP = NPRED(LW)
          PRINT 15,RK,P,S,TS,U,NP 
 15       FORMAT(I8,Z8,Z6,3I6,2X) 
          CALL PRNT RLI( TXT(P+1) ) 
          GO TO 30
  
 20       PRINT 25,S,TS 
 25       FORMAT(16X,Z6,I6/)
  
 30       CONTINUE
  
          LINECM = 0
          RETURN
          END 
