*DECK     DMPIIT
          SUBROUTINE DMPIIT( IIT , N , PIC )
  
**        DMP IIT - FORMAT AND LIST INC VALUES AND INC FORMULAS IN *IIT*
  
          IMPLICIT INTEGER(A-Z) 
          COMMON/LINE/LINECM(2) 
          INTEGER IIT(N)
          COMMON/BVINFO/VL
          DATA VECNAM / 5L  LE   /
  
          FIELD(X,P,L) = SHIFT(X,60-P) .A. .N.MASK(60-L)
*                                  INC VALUES 
          TYP(X) = FIELD(X,48,3)
          VUDI(X) = FIELD(X,36,12)
          VCA(X) = FIELD(X,18,18) 
          VIH(X) = FIELD(X,0,18)
*                                  IA WORD
          NWD(X) = FIELD(X,48,10) 
          CA(X) = FIELD(X,18,18)
          UDI(X) = FIELD(X,1,17)
*                                  IB WORD
          NLD(X) = FIELD(X,48,10) 
          ILD(X) = FIELD(X,0,18)
*                                          E. WORD OF *RXI* 
          SCR(X) = FIELD(X,59,1)
          JP(X) = FIELD(X,58,1) 
          ALLP(X) = FIELD(X,57,1) 
          PRED(X) = FIELD(X,33,15)
          BI(X) = FIELD(X,0,15) 
  
  
          PRINT 1 
 1        FORMAT(/*   TYP  VAL, INCREMENT VALUES*/) 
          LINECM = LINECM(2)
  
          DO 10 I = 1,PIC 
          T = TYP(IIT(I)) 
          V = VIH(IIT(I)) 
          PRINT 2,T 
 2        FORMAT(I5)
          IF( T .NE. 0 ) GO TO 4
          PRINT 3,V 
 3        FORMAT(Z8,*B*/) 
          GO TO 10
  
 4        ITW = IIT(I)
          PRINT 5,VCA(ITW),SYM(V),VUDI(ITW)/2 
 5        FORMAT(Z8,* + *A7,I5,*UDI*/)
 10       CONTINUE
  
*         PRINT OUT THE INCREMENT FORMULAS
  
          I = PIC + 1 
 15       PRINT 11
 11       FORMAT(/) 
          X = IIT(I)
          I = I + 1 
          IPASS = 0 
          PRINT 16,I-2,FIELD(X,59,1),FIELD(X,36,18),FIELD(X,18,18) ,
     1    FIELD(X,0,18) 
 16       FORMAT(Z8*  PI WORD*Z3,3Z6/)
  
 20       ITW = IIT(I)
          NW = NWD(ITW) 
          PRINT 21,NW,CA(ITW),UDI(ITW),NLD(IIT(I+1)),ILD(IIT(I+1))
 21       FORMAT(10X,*NWD,CA,UDI =*2Z5,I5*  N.LD,ILD =*2Z5/)
          J = I + NW
          I = I + 2 
  
 30       PRINT 31
 31       FORMAT(10X) 
          CALL PRNTRLI( IIT(I) )
          I = I + 4 
          IF( I .LT. J ) GO TO 30 
          IF( IPASS .NE. 0 ) GO TO 35 
          IPASS = 1 
          GO TO 20
  
 35       IF( IIT(I) .NE. 0 ) GO TO 15
  
          LINECM = 0
          RETURN
  
  
          ENTRY  PRNTRXI
  
*         PRNT RXI - PRINT OUT REGION EXIT INFORMATION ( GPO/FXI )
  
          I = 2 
  
 100      X = IIT(I)
          PRINT 101,SCR(X),JP(X),ALLP(X),PRED(X),BI(X)
 101      FORMAT(/*    SCR,JP,ALLP =*3Z2*   PRED,SUCC BN =*2Z5/)
          I = I+1 
          CALL PRNTABV( VECNAM , IIT(I) ) 
          I = I + VL
          IF( IIT(I) .NE. 0 ) GO TO 100 
  
          RETURN
  
          END 
