*DECK     PRNTUDI 
          SUBROUTINE PRNTUDI( UDI , N ) 
  
*         PRNT UDI - PRINT *USE/DEF* BITS SET IN *UDT* ( GPO / GRA )
  
          IMPLICIT INTEGER(A-Z) 
          INTEGER UDI(N),BVAL(12),BV(7) 
          COMMON/LINE/LINECM(2) 
  
          DATA BVAL / 1H  ,5H DEFR , 1H ,4H DEF , 1H  , 4H DBU
     1  , 1H  , 4H USE , 1H  , 4H ^RD , 1H  , 4H IST /
  
          FIELD(X,P,L) = .N.MASK(60-L).A.SHIFT(X,60-P)
          STC(X) = FIELD(X,45,9)
  
          PRINT 1 
 1        FORMAT (/*  -- USE/DEF BIT SETTING --*/)
 2        FORMAT(/) 
  
          LINECM = LINECM(2)
          PC = 1
  
          DO 20 I = 1,N,2 
          B = MASK(6) .A. UDI(I)
          IF( B .EQ. 0 ) GO TO 20 
  
          DO 15 K = 1,6 
          B = SHIFT(B,1)
          J = B.A.1 
 15       BV(K) = BVAL(2*K+J-1) 
  
          BV(7) = STC( UDI(I) ) 
          J = I/2 
          PRINT 11,J,BV 
 11       FORMAT(I8*U *A5,5A4,I4) 
  
          PC = PC + 1 
          IF( (PC.A.1) .EQ. 0 ) PRINT 2 
  
 20       CONTINUE
  
          IF( (PC.A.1) .NE. 0 ) PRINT 2 
          LINECM = 0
  
          RETURN
  
          END 
