*DECK     PRNTRLI 
          SUBROUTINE PRNT RLI( FRW )
          IMPLICIT INTEGER(A-Z) 
  
**        PRNT RLI - PRINT 1 *IL* ( RLIST ) INSTRUCTION 
  
          INTEGER FRW(3),RLI(3),RTAB(3) 
          INTEGER JPX(8),JPBB(8)
          COMMON/OPRS/ OPRS(1)
          EQUIVALENCE (RL2,RLI(2) ) 
  
          DATA RTAB / 2RB0 , 2RA0 , 2RX0 /
          DATA JPX / 2HZR , 2HNZ , 2HPL , 2HMI , 2HIR , 2HOR , 2HDF 
     .           , 2HID / 
          DATA JPBB / 2HEQ , 2HNE , 2HGE , 2HLT / 
  
          FIELD(X,P,L) = SHIFT(X,60-P).A. .N.MASK(60-L) 
          KS(X) = FIELD(X,31,1) 
*                                  R1 WORD
          OC(X) = FIELD(X,48,7) 
          RJ(X) = FIELD(X,32,16)
          RK(X) = FIELD(X,16,16)
          RI(X) = FIELD(X,0,16) 
*                                  R1 WORD / TYPE II AND III
          IN(X) = FIELD(X,30,18)
          SO(X) = FIELD(X,16,13)
          H2(X) = FIELD(X,18,12)
*                                  R2 OR IH WORD
          RF(X) = FIELD(X,36,18)
          CA(X) = FIELD(X,18,18)
          IH(X) = FIELD(X,0,18) 
  
          RLI(1) = IABS( FRW(1) ) 
          RL2 = FRW(2)
          RLI(3) = FRW(3) 
          OCV = OC(RLI)+1 
          RIV = RI(RLI) 
          NAM = OPRS(OCV).A.MASK(24)
          GO TO ( 20 , 30 , 33 , 50 ) OPRS(OCV) .A. 17B 
  
**        TYPE I INSTRUCTION
  
 20       RJV = RJ(RLI) 
          RKV = RK(RLI) 
          PRINT 21,NAM,RIV,RJV
 21       FORMAT(2X,A4,Z6,Z7) 
          IF( RKV .EQ. 0 ) GO TO 23 
          PRINT 22,RKV
 22       FORMAT(Z7)
          GO TO 25
  
 23       PRINT 24
 24       FORMAT(7X)
  
 25       IF( RL2 .EQ. 0 ) GO TO 100
          CAV = CA(RL2) 
          RFV = RF(RL2) 
          H2V = 0 
          GO TO 39
  
**        TYPE II INSTRUCTION 
  
 30       INV = IN(RLI) 
          PRINT 31,NAM,RIV,INV
 31       FORMAT(2X,A4,Z6,Z7,*B*) 
  
          SOX = SO(RLI) 
          IF( SOX. EQ. 0 ) GO TO 100
          INV = FIELD(SOX,8,2)
                             SOX = SHIFT( 2R0  + (300B.A.SOX) , 12 ) .O.
     .           ( RTAB( (SOX.A.70B)/8 + 1 ) +(SOX.A.7B) )
          PRINT 32,INV,SOX
 32       FORMAT(Z3,1X,R4,4X) 
  
          IF( RL2 .EQ. 0 ) GO TO 100
          RFV = RF(RL2) 
          CAV = CA(RL2) 
          H2V = 0 
          PRINT 26
 26       FORMAT(10X) 
          GO TO 40
  
**        TYPE III INSTRUCTION
  
 33       CAV = CA(RL2) 
          RFV = RF(RL2) 
          IF( (NAM.A.MASK(12)) .NE. 2LJP ) GO TO 35 
          I = NAM 
          NAM = JPX( (CAV.AND.63)+1 ) 
          IF( I .EQ. 4LJPX  ) GO TO 34
          NAM = JPBB( (CAV.AND.63)+1 )
 34       CAV = SHIFT(CAV,-6) 
          GO TO 37
  
 35       IF( NAM .NE. 4LRJXJ ) GO TO 37
          NAM = 2LRJ.OR.SHIFT(JPX( (CAV.A.63)+1 ) , -12 ) 
          CAV = SHIFT(CAV,-6) 
  
 37       PRINT 21,NAM,RIV,RFV
  
          IF( KS(RLI(3)) .EQ. 0 ) GO TO 38
          PRINT 135,CAV 
 135      FORMAT(I6)
          GO TO 100 
  
 38       PRINT 24
          H2V = H2(RLI) 
          INV = IN(RLI)/2 
          IF( INV .EQ. 0 ) GO TO 39 
          PRINT 138,INV 
 138      FORMAT(I5*U*) 
          GO TO 40
  
 39       PRINT 139 
 139      FORMAT(6X)
  
*         PRINT *IH* WORD - * IH +CA  RF -H2 *
 40       IHV = IH(RL2) 
          IF( RFV .NE. 1 ) GO TO 41 
          SYV = 8L -A0- 
          GO TO 42
 41       SYV = SYM(IHV)
  
 42       PRINT 140,SYV 
 140      FORMAT(1X,A8) 
  
          IF( (CAV+RFV/2) .EQ. 0 ) GO TO 45 
          PRINT 142,CAV 
 142      FORMAT(*+*O6) 
  
          IF( RFV/2 .EQ. 0 ) GO TO 45 
          PRINT 143,RFV 
 143      FORMAT(*  R*O6) 
  
 45       IF( H2V .EQ. 0 ) GO TO 100
          SYV = SYM(H2V)
          PRINT 145,SYV 
 145      FORMAT(*  -*A7) 
          GO TO 100 
  
**        TYPE IV INSTRUCTION 
  
 50       CAV = IN(RLI) 
          IHV = IH(RLI) 
          INV = H2(RLI) 
          IF( OCV .NE. 2 ) GO TO 52 
*                                          BOS
          PRINT 51,CAV,IHV,INV
 51       FORMAT(* STMT*I5,Z6*B*Z2) 
          GO TO 60
  
 52       IF( OCV .NE. 3 ) GO TO 54 
*                                          EOS
          PRINT 53,NAM,IHV,INV
 53       FORMAT(2X,A4,Z10*B*Z2)
          GO TO 60
  
*                                  LAB,UJP,RJX,EOQ, ETC 
 54       SYV = SYM(IHV)
          PRINT 57,NAM,SYV,CAV
 57       FORMAT(2X,A4,3X,A7,* / *O6) 
  
 60       IF( RL2 .EQ. 0 ) GO TO 100
          RIV = FIELD(RL2,0,18) 
          RJV = FIELD(RL2,18,18)
          RKV = FIELD(RL2,36,18)
          OCV = FIELD(RL2,54,6) 
          PRINT 61,OCV,RKV,RJV,RIV
 61       FORMAT(4X,O2,3Z6) 
  
 100      PRINT 101 
 101      FORMAT(/) 
          RETURN
  
          END 
