*DECK     DMPRLST 
          SUBROUTINE DMPRLST( CTR , TXT , LTXT )
  
**        DMP RLST - PRINT *IL* INSTRUCTIONS IN *TXT* TABLE 
  
          IMPLICIT INTEGER(A-Z) 
          INTEGER TXT(LTXT) , CTR(5) , STPR(4) , ZPT(2) 
          COMMON/LINE/LINECM(2) 
          DATA ZPT / 2R   , 2R Z /
          DATA STPR / 3R    , 3R RS  , 3R SP  , 3R **  /
          FIELD(X,P,L) = SHIFT(X,60-P).A. .N.MASK(60-L) 
          ZP(X) = FIELD(X,32B,1)
          PRS(X) = FIELD(X,38,2)
          OC(X) = FIELD(X,48,10)
  
          CTR(1) = CTR(1)+1 
          IF( CTR(1) .LT. CTR(3) ) RETURN 
          IF( CTR(3) .GT. CTR(4) ) RETURN 
          CTR(3) = CTR(3)+CTR(5)
          CALL SETST( 1 , 8L            ) 
          PRINT 1,(CTR(I),I=1,2),LOCF(TXT)
 1        FORMAT(//*   CALL*I5* OF -IL- DUMP FROM -*A10*   FWA =*Z6 
     .    /13X,*LINK WORD   INDEX  DESCRIPTOR*) 
  
          LINECM = LINECM(2)
          N = LTXT
          I = 1 
  
 10       DESCR = TXT(I+2)
          PSB = STPR( PRS(DESCR)+1 )
          ZPB = ZPT( ZP(DESCR) + 1 )
  
          LW = TXT(I+3) 
          UB = FIELD(LW,36,24)
          MB = FIELD(LW,18,18)
          LW = FIELD(LW,0,18) 
          J = I - 1 
          UBD = FIELD(DESCR,18,42)
          MBD = FIELD(DESCR,9,9)
          DESCR = FIELD(DESCR,0,9)
          PRINT 11,UB,MB,LW,J,UBD,MBD,DESCR,ZPB,PSB 
 11       FORMAT(2X,O8,2Z6,Z8,2X,O14,2Z3,R2,R3) 
          CALL PRNT RLI( TXT(I) ) 
          I = I + 4 
          IF( I .GT. N ) GO TO 50 
          IF( OC( TXT(I-4) ) .NE. 0 ) GO TO 10
  
*         PRINT TRAILING ENTRIES IN OCTAL 
  
          PRINT 21
 21       FORMAT(/*  -- TRAILER WORDS --*//)
  
 20       PRINT 22,TXT(I) 
 22       FORMAT(10X,O20/)
          I = I + 1 
          IF( I .LE. N ) GO TO 20 
  
 50       LINECM = 0
          RETURN
          END 
