arch/s390/kernel/dis.c

   1 /*
   2  * Disassemble s390 instructions.
   3  *
   4  * Copyright IBM Corp. 2007
   5  * Author(s): Martin Schwidefsky (schwidefsky@de.ibm.com),
   6  */
   7
   8 #include <linux/sched.h>
   9 #include <linux/kernel.h>
  10 #include <linux/string.h>
  11 #include <linux/errno.h>
  12 #include <linux/ptrace.h>
  13 #include <linux/timer.h>
  14 #include <linux/mm.h>
  15 #include <linux/smp.h>
  16 #include <linux/init.h>
  17 #include <linux/interrupt.h>
  18 #include <linux/delay.h>
  19 #include <linux/module.h>
  20 #include <linux/kallsyms.h>
  21 #include <linux/reboot.h>
  22 #include <linux/kprobes.h>
  23 #include <linux/kdebug.h>
  24
  25 #include <asm/uaccess.h>
  26 #include <asm/dis.h>
  27 #include <asm/io.h>
  28 #include <linux/atomic.h>
  29 #include <asm/cpcmd.h>
  30 #include <asm/lowcore.h>
  31 #include <asm/debug.h>
  32 #include <asm/irq.h>
  33
  34 enum {
  35         UNUSED, /* Indicates the end of the operand list */
  36         R_8,    /* GPR starting at position 8 */
  37         R_12,   /* GPR starting at position 12 */
  38         R_16,   /* GPR starting at position 16 */
  39         R_20,   /* GPR starting at position 20 */
  40         R_24,   /* GPR starting at position 24 */
  41         R_28,   /* GPR starting at position 28 */
  42         R_32,   /* GPR starting at position 32 */
  43         F_8,    /* FPR starting at position 8 */
  44         F_12,   /* FPR starting at position 12 */
  45         F_16,   /* FPR starting at position 16 */
  46         F_20,   /* FPR starting at position 16 */
  47         F_24,   /* FPR starting at position 24 */
  48         F_28,   /* FPR starting at position 28 */
  49         F_32,   /* FPR starting at position 32 */
  50         A_8,    /* Access reg. starting at position 8 */
  51         A_12,   /* Access reg. starting at position 12 */
  52         A_24,   /* Access reg. starting at position 24 */
  53         A_28,   /* Access reg. starting at position 28 */
  54         C_8,    /* Control reg. starting at position 8 */
  55         C_12,   /* Control reg. starting at position 12 */
  56         V_8,    /* Vector reg. starting at position 8, extension bit at 36 */
  57         V_12,   /* Vector reg. starting at position 12, extension bit at 37 */
  58         V_16,   /* Vector reg. starting at position 16, extension bit at 38 */
  59         V_32,   /* Vector reg. starting at position 32, extension bit at 39 */
  60         W_12,   /* Vector reg. at bit 12, extension at bit 37, used as index */
  61         B_16,   /* Base register starting at position 16 */
  62         B_32,   /* Base register starting at position 32 */
  63         X_12,   /* Index register starting at position 12 */
  64         D_20,   /* Displacement starting at position 20 */
  65         D_36,   /* Displacement starting at position 36 */
  66         D20_20, /* 20 bit displacement starting at 20 */
  67         L4_8,   /* 4 bit length starting at position 8 */
  68         L4_12,  /* 4 bit length starting at position 12 */
  69         L8_8,   /* 8 bit length starting at position 8 */
  70         U4_8,   /* 4 bit unsigned value starting at 8 */
  71         U4_12,  /* 4 bit unsigned value starting at 12 */
  72         U4_16,  /* 4 bit unsigned value starting at 16 */
  73         U4_20,  /* 4 bit unsigned value starting at 20 */
  74         U4_24,  /* 4 bit unsigned value starting at 24 */
  75         U4_28,  /* 4 bit unsigned value starting at 28 */
  76         U4_32,  /* 4 bit unsigned value starting at 32 */
  77         U4_36,  /* 4 bit unsigned value starting at 36 */
  78         U8_8,   /* 8 bit unsigned value starting at 8 */
  79         U8_16,  /* 8 bit unsigned value starting at 16 */
  80         U8_24,  /* 8 bit unsigned value starting at 24 */
  81         U8_32,  /* 8 bit unsigned value starting at 32 */
  82         I8_8,   /* 8 bit signed value starting at 8 */
  83         I8_16,  /* 8 bit signed value starting at 16 */
  84         I8_24,  /* 8 bit signed value starting at 24 */
  85         I8_32,  /* 8 bit signed value starting at 32 */
  86         J12_12, /* PC relative offset at 12 */
  87         I16_16, /* 16 bit signed value starting at 16 */
  88         I16_32, /* 32 bit signed value starting at 16 */
  89         U16_16, /* 16 bit unsigned value starting at 16 */
  90         U16_32, /* 32 bit unsigned value starting at 16 */
  91         J16_16, /* PC relative jump offset at 16 */
  92         J16_32, /* PC relative offset at 16 */
  93         I24_24, /* 24 bit signed value starting at 24 */
  94         J32_16, /* PC relative long offset at 16 */
  95         I32_16, /* 32 bit signed value starting at 16 */
  96         U32_16, /* 32 bit unsigned value starting at 16 */
  97         M_16,   /* 4 bit optional mask starting at 16 */
  98         M_20,   /* 4 bit optional mask starting at 20 */
  99         M_24,   /* 4 bit optional mask starting at 24 */
 100         M_28,   /* 4 bit optional mask starting at 28 */
 101         M_32,   /* 4 bit optional mask starting at 32 */
 102         RO_28,  /* optional GPR starting at position 28 */
 103 };
 104
 105 /*
 106  * Enumeration of the different instruction formats.
 107  * For details consult the principles of operation.
 108  */
 109 enum {
 110         INSTR_INVALID,
 111         INSTR_E,
 112         INSTR_IE_UU,
 113         INSTR_MII_UPI,
 114         INSTR_RIE_R0IU, INSTR_RIE_R0UU, INSTR_RIE_RRP, INSTR_RIE_RRPU,
 115         INSTR_RIE_RRUUU, INSTR_RIE_RUPI, INSTR_RIE_RUPU, INSTR_RIE_RRI0,
 116         INSTR_RIL_RI, INSTR_RIL_RP, INSTR_RIL_RU, INSTR_RIL_UP,
 117         INSTR_RIS_R0RDU, INSTR_RIS_R0UU, INSTR_RIS_RURDI, INSTR_RIS_RURDU,
 118         INSTR_RI_RI, INSTR_RI_RP, INSTR_RI_RU, INSTR_RI_UP,
 119         INSTR_RRE_00, INSTR_RRE_0R, INSTR_RRE_AA, INSTR_RRE_AR, INSTR_RRE_F0,
 120         INSTR_RRE_FF, INSTR_RRE_FR, INSTR_RRE_R0, INSTR_RRE_RA, INSTR_RRE_RF,
 121         INSTR_RRE_RR, INSTR_RRE_RR_OPT,
 122         INSTR_RRF_0UFF, INSTR_RRF_F0FF, INSTR_RRF_F0FF2, INSTR_RRF_F0FR,
 123         INSTR_RRF_FFRU, INSTR_RRF_FUFF, INSTR_RRF_FUFF2, INSTR_RRF_M0RR,
 124         INSTR_RRF_R0RR, INSTR_RRF_R0RR2, INSTR_RRF_RMRR, INSTR_RRF_RURR,
 125         INSTR_RRF_U0FF, INSTR_RRF_U0RF, INSTR_RRF_U0RR, INSTR_RRF_UUFF,
 126         INSTR_RRF_UUFR, INSTR_RRF_UURF,
 127         INSTR_RRR_F0FF, INSTR_RRS_RRRDU,
 128         INSTR_RR_FF, INSTR_RR_R0, INSTR_RR_RR, INSTR_RR_U0, INSTR_RR_UR,
 129         INSTR_RSE_CCRD, INSTR_RSE_RRRD, INSTR_RSE_RURD,
 130         INSTR_RSI_RRP,
 131         INSTR_RSL_LRDFU, INSTR_RSL_R0RD,
 132         INSTR_RSY_AARD, INSTR_RSY_CCRD, INSTR_RSY_RRRD, INSTR_RSY_RURD,
 133         INSTR_RSY_RDRM, INSTR_RSY_RMRD,
 134         INSTR_RS_AARD, INSTR_RS_CCRD, INSTR_RS_R0RD, INSTR_RS_RRRD,
 135         INSTR_RS_RURD,
 136         INSTR_RXE_FRRD, INSTR_RXE_RRRD, INSTR_RXE_RRRDM,
 137         INSTR_RXF_FRRDF,
 138         INSTR_RXY_FRRD, INSTR_RXY_RRRD, INSTR_RXY_URRD,
 139         INSTR_RX_FRRD, INSTR_RX_RRRD, INSTR_RX_URRD,
 140         INSTR_SIL_RDI, INSTR_SIL_RDU,
 141         INSTR_SIY_IRD, INSTR_SIY_URD,
 142         INSTR_SI_URD,
 143         INSTR_SMI_U0RDP,
 144         INSTR_SSE_RDRD,
 145         INSTR_SSF_RRDRD, INSTR_SSF_RRDRD2,
 146         INSTR_SS_L0RDRD, INSTR_SS_LIRDRD, INSTR_SS_LLRDRD, INSTR_SS_RRRDRD,
 147         INSTR_SS_RRRDRD2, INSTR_SS_RRRDRD3,
 148         INSTR_S_00, INSTR_S_RD,
 149         INSTR_VRI_V0IM, INSTR_VRI_V0I0, INSTR_VRI_V0IIM, INSTR_VRI_VVIM,
 150         INSTR_VRI_VVV0IM, INSTR_VRI_VVV0I0, INSTR_VRI_VVIMM,
 151         INSTR_VRR_VV00MMM, INSTR_VRR_VV000MM, INSTR_VRR_VV0000M,
 152         INSTR_VRR_VV00000, INSTR_VRR_VVV0M0M, INSTR_VRR_VV00M0M,
 153         INSTR_VRR_VVV000M, INSTR_VRR_VVV000V, INSTR_VRR_VVV0000,
 154         INSTR_VRR_VVV0MMM, INSTR_VRR_VVV00MM, INSTR_VRR_VVVMM0V,
 155         INSTR_VRR_VVVM0MV, INSTR_VRR_VVVM00V, INSTR_VRR_VRR0000,
 156         INSTR_VRS_VVRDM, INSTR_VRS_VVRD0, INSTR_VRS_VRRDM, INSTR_VRS_VRRD0,
 157         INSTR_VRS_RVRDM,
 158         INSTR_VRV_VVRDM, INSTR_VRV_VWRDM,
 159         INSTR_VRX_VRRDM, INSTR_VRX_VRRD0,
 160 };
 161
 162 static const struct s390_operand operands[] =
 163 {
 164         [UNUSED]  = { 0, 0, 0 },
 165         [R_8]    = {  4,  8, OPERAND_GPR },
 166         [R_12]   = {  4, 12, OPERAND_GPR },
 167         [R_16]   = {  4, 16, OPERAND_GPR },
 168         [R_20]   = {  4, 20, OPERAND_GPR },
 169         [R_24]   = {  4, 24, OPERAND_GPR },
 170         [R_28]   = {  4, 28, OPERAND_GPR },
 171         [R_32]   = {  4, 32, OPERAND_GPR },
 172         [F_8]    = {  4,  8, OPERAND_FPR },
 173         [F_12]   = {  4, 12, OPERAND_FPR },
 174         [F_16]   = {  4, 16, OPERAND_FPR },
 175         [F_20]   = {  4, 16, OPERAND_FPR },
 176         [F_24]   = {  4, 24, OPERAND_FPR },
 177         [F_28]   = {  4, 28, OPERAND_FPR },
 178         [F_32]   = {  4, 32, OPERAND_FPR },
 179         [A_8]    = {  4,  8, OPERAND_AR },
 180         [A_12]   = {  4, 12, OPERAND_AR },
 181         [A_24]   = {  4, 24, OPERAND_AR },
 182         [A_28]   = {  4, 28, OPERAND_AR },
 183         [C_8]    = {  4,  8, OPERAND_CR },
 184         [C_12]   = {  4, 12, OPERAND_CR },
 185         [V_8]    = {  4,  8, OPERAND_VR },
 186         [V_12]   = {  4, 12, OPERAND_VR },
 187         [V_16]   = {  4, 16, OPERAND_VR },
 188         [V_32]   = {  4, 32, OPERAND_VR },
 189         [W_12]   = {  4, 12, OPERAND_INDEX | OPERAND_VR },
 190         [B_16]   = {  4, 16, OPERAND_BASE | OPERAND_GPR },
 191         [B_32]   = {  4, 32, OPERAND_BASE | OPERAND_GPR },
 192         [X_12]   = {  4, 12, OPERAND_INDEX | OPERAND_GPR },
 193         [D_20]   = { 12, 20, OPERAND_DISP },
 194         [D_36]   = { 12, 36, OPERAND_DISP },
 195         [D20_20] = { 20, 20, OPERAND_DISP | OPERAND_SIGNED },
 196         [L4_8]   = {  4,  8, OPERAND_LENGTH },
 197         [L4_12]  = {  4, 12, OPERAND_LENGTH },
 198         [L8_8]   = {  8,  8, OPERAND_LENGTH },
 199         [U4_8]   = {  4,  8, 0 },
 200         [U4_12]  = {  4, 12, 0 },
 201         [U4_16]  = {  4, 16, 0 },
 202         [U4_20]  = {  4, 20, 0 },
 203         [U4_24]  = {  4, 24, 0 },
 204         [U4_28]  = {  4, 28, 0 },
 205         [U4_32]  = {  4, 32, 0 },
 206         [U4_36]  = {  4, 36, 0 },
 207         [U8_8]   = {  8,  8, 0 },
 208         [U8_16]  = {  8, 16, 0 },
 209         [U8_24]  = {  8, 24, 0 },
 210         [U8_32]  = {  8, 32, 0 },
 211         [J12_12] = { 12, 12, OPERAND_PCREL },
 212         [I8_8]   = {  8,  8, OPERAND_SIGNED },
 213         [I8_16]  = {  8, 16, OPERAND_SIGNED },
 214         [I8_24]  = {  8, 24, OPERAND_SIGNED },
 215         [I8_32]  = {  8, 32, OPERAND_SIGNED },
 216         [I16_32] = { 16, 32, OPERAND_SIGNED },
 217         [I16_16] = { 16, 16, OPERAND_SIGNED },
 218         [U16_16] = { 16, 16, 0 },
 219         [U16_32] = { 16, 32, 0 },
 220         [J16_16] = { 16, 16, OPERAND_PCREL },
 221         [J16_32] = { 16, 32, OPERAND_PCREL },
 222         [I24_24] = { 24, 24, OPERAND_SIGNED },
 223         [J32_16] = { 32, 16, OPERAND_PCREL },
 224         [I32_16] = { 32, 16, OPERAND_SIGNED },
 225         [U32_16] = { 32, 16, 0 },
 226         [M_16]   = {  4, 16, 0 },
 227         [M_20]   = {  4, 20, 0 },
 228         [M_24]   = {  4, 24, 0 },
 229         [M_28]   = {  4, 28, 0 },
 230         [M_32]   = {  4, 32, 0 },
 231         [RO_28]  = {  4, 28, OPERAND_GPR }
 232 };
 233
 234 static const unsigned char formats[][7] = {
 235         [INSTR_E]         = { 0xff, 0,0,0,0,0,0 },
 236         [INSTR_IE_UU]     = { 0xff, U4_24,U4_28,0,0,0,0 },
 237         [INSTR_MII_UPI]   = { 0xff, U4_8,J12_12,I24_24 },
 238         [INSTR_RIE_R0IU]  = { 0xff, R_8,I16_16,U4_32,0,0,0 },
 239         [INSTR_RIE_R0UU]  = { 0xff, R_8,U16_16,U4_32,0,0,0 },
 240         [INSTR_RIE_RRI0]  = { 0xff, R_8,R_12,I16_16,0,0,0 },
 241         [INSTR_RIE_RRPU]  = { 0xff, R_8,R_12,U4_32,J16_16,0,0 },
 242         [INSTR_RIE_RRP]   = { 0xff, R_8,R_12,J16_16,0,0,0 },
 243         [INSTR_RIE_RRUUU] = { 0xff, R_8,R_12,U8_16,U8_24,U8_32,0 },
 244         [INSTR_RIE_RUPI]  = { 0xff, R_8,I8_32,U4_12,J16_16,0,0 },
 245         [INSTR_RIE_RUPU]  = { 0xff, R_8,U8_32,U4_12,J16_16,0,0 },
 246         [INSTR_RIL_RI]    = { 0x0f, R_8,I32_16,0,0,0,0 },
 247         [INSTR_RIL_RP]    = { 0x0f, R_8,J32_16,0,0,0,0 },
 248         [INSTR_RIL_RU]    = { 0x0f, R_8,U32_16,0,0,0,0 },
 249         [INSTR_RIL_UP]    = { 0x0f, U4_8,J32_16,0,0,0,0 },
 250         [INSTR_RIS_R0RDU] = { 0xff, R_8,U8_32,D_20,B_16,0,0 },
 251         [INSTR_RIS_RURDI] = { 0xff, R_8,I8_32,U4_12,D_20,B_16,0 },
 252         [INSTR_RIS_RURDU] = { 0xff, R_8,U8_32,U4_12,D_20,B_16,0 },
 253         [INSTR_RI_RI]     = { 0x0f, R_8,I16_16,0,0,0,0 },
 254         [INSTR_RI_RP]     = { 0x0f, R_8,J16_16,0,0,0,0 },
 255         [INSTR_RI_RU]     = { 0x0f, R_8,U16_16,0,0,0,0 },
 256         [INSTR_RI_UP]     = { 0x0f, U4_8,J16_16,0,0,0,0 },
 257         [INSTR_RRE_00]    = { 0xff, 0,0,0,0,0,0 },
 258         [INSTR_RRE_0R]    = { 0xff, R_28,0,0,0,0,0 },
 259         [INSTR_RRE_AA]    = { 0xff, A_24,A_28,0,0,0,0 },
 260         [INSTR_RRE_AR]    = { 0xff, A_24,R_28,0,0,0,0 },
 261         [INSTR_RRE_F0]    = { 0xff, F_24,0,0,0,0,0 },
 262         [INSTR_RRE_FF]    = { 0xff, F_24,F_28,0,0,0,0 },
 263         [INSTR_RRE_FR]    = { 0xff, F_24,R_28,0,0,0,0 },
 264         [INSTR_RRE_R0]    = { 0xff, R_24,0,0,0,0,0 },
 265         [INSTR_RRE_RA]    = { 0xff, R_24,A_28,0,0,0,0 },
 266         [INSTR_RRE_RF]    = { 0xff, R_24,F_28,0,0,0,0 },
 267         [INSTR_RRE_RR]    = { 0xff, R_24,R_28,0,0,0,0 },
 268         [INSTR_RRE_RR_OPT]= { 0xff, R_24,RO_28,0,0,0,0 },
 269         [INSTR_RRF_0UFF]  = { 0xff, F_24,F_28,U4_20,0,0,0 },
 270         [INSTR_RRF_F0FF2] = { 0xff, F_24,F_16,F_28,0,0,0 },
 271         [INSTR_RRF_F0FF]  = { 0xff, F_16,F_24,F_28,0,0,0 },
 272         [INSTR_RRF_F0FR]  = { 0xff, F_24,F_16,R_28,0,0,0 },
 273         [INSTR_RRF_FFRU]  = { 0xff, F_24,F_16,R_28,U4_20,0,0 },
 274         [INSTR_RRF_FUFF]  = { 0xff, F_24,F_16,F_28,U4_20,0,0 },
 275         [INSTR_RRF_FUFF2] = { 0xff, F_24,F_28,F_16,U4_20,0,0 },
 276         [INSTR_RRF_M0RR]  = { 0xff, R_24,R_28,M_16,0,0,0 },
 277         [INSTR_RRF_R0RR]  = { 0xff, R_24,R_16,R_28,0,0,0 },
 278         [INSTR_RRF_R0RR2] = { 0xff, R_24,R_28,R_16,0,0,0 },
 279         [INSTR_RRF_RMRR]  = { 0xff, R_24,R_16,R_28,M_20,0,0 },
 280         [INSTR_RRF_RURR]  = { 0xff, R_24,R_28,R_16,U4_20,0,0 },
 281         [INSTR_RRF_U0FF]  = { 0xff, F_24,U4_16,F_28,0,0,0 },
 282         [INSTR_RRF_U0RF]  = { 0xff, R_24,U4_16,F_28,0,0,0 },
 283         [INSTR_RRF_U0RR]  = { 0xff, R_24,R_28,U4_16,0,0,0 },
 284         [INSTR_RRF_UUFF]  = { 0xff, F_24,U4_16,F_28,U4_20,0,0 },
 285         [INSTR_RRF_UUFR]  = { 0xff, F_24,U4_16,R_28,U4_20,0,0 },
 286         [INSTR_RRF_UURF]  = { 0xff, R_24,U4_16,F_28,U4_20,0,0 },
 287         [INSTR_RRR_F0FF]  = { 0xff, F_24,F_28,F_16,0,0,0 },
 288         [INSTR_RRS_RRRDU] = { 0xff, R_8,R_12,U4_32,D_20,B_16,0 },
 289         [INSTR_RR_FF]     = { 0xff, F_8,F_12,0,0,0,0 },
 290         [INSTR_RR_R0]     = { 0xff, R_8, 0,0,0,0,0 },
 291         [INSTR_RR_RR]     = { 0xff, R_8,R_12,0,0,0,0 },
 292         [INSTR_RR_U0]     = { 0xff, U8_8, 0,0,0,0,0 },
 293         [INSTR_RR_UR]     = { 0xff, U4_8,R_12,0,0,0,0 },
 294         [INSTR_RSE_CCRD]  = { 0xff, C_8,C_12,D_20,B_16,0,0 },
 295         [INSTR_RSE_RRRD]  = { 0xff, R_8,R_12,D_20,B_16,0,0 },
 296         [INSTR_RSE_RURD]  = { 0xff, R_8,U4_12,D_20,B_16,0,0 },
 297         [INSTR_RSI_RRP]   = { 0xff, R_8,R_12,J16_16,0,0,0 },
 298         [INSTR_RSL_LRDFU] = { 0xff, F_32,D_20,L4_8,B_16,U4_36,0 },
 299         [INSTR_RSL_R0RD]  = { 0xff, D_20,L4_8,B_16,0,0,0 },
 300         [INSTR_RSY_AARD]  = { 0xff, A_8,A_12,D20_20,B_16,0,0 },
 301         [INSTR_RSY_CCRD]  = { 0xff, C_8,C_12,D20_20,B_16,0,0 },
 302         [INSTR_RSY_RDRM]  = { 0xff, R_8,D20_20,B_16,U4_12,0,0 },
 303         [INSTR_RSY_RMRD]  = { 0xff, R_8,U4_12,D20_20,B_16,0,0 },
 304         [INSTR_RSY_RRRD]  = { 0xff, R_8,R_12,D20_20,B_16,0,0 },
 305         [INSTR_RSY_RURD]  = { 0xff, R_8,U4_12,D20_20,B_16,0,0 },
 306         [INSTR_RS_AARD]   = { 0xff, A_8,A_12,D_20,B_16,0,0 },
 307         [INSTR_RS_CCRD]   = { 0xff, C_8,C_12,D_20,B_16,0,0 },
 308         [INSTR_RS_R0RD]   = { 0xff, R_8,D_20,B_16,0,0,0 },
 309         [INSTR_RS_RRRD]   = { 0xff, R_8,R_12,D_20,B_16,0,0 },
 310         [INSTR_RS_RURD]   = { 0xff, R_8,U4_12,D_20,B_16,0,0 },
 311         [INSTR_RXE_FRRD]  = { 0xff, F_8,D_20,X_12,B_16,0,0 },
 312         [INSTR_RXE_RRRD]  = { 0xff, R_8,D_20,X_12,B_16,0,0 },
 313         [INSTR_RXE_RRRDM] = { 0xff, R_8,D_20,X_12,B_16,M_32,0 },
 314         [INSTR_RXF_FRRDF] = { 0xff, F_32,F_8,D_20,X_12,B_16,0 },
 315         [INSTR_RXY_FRRD]  = { 0xff, F_8,D20_20,X_12,B_16,0,0 },
 316         [INSTR_RXY_RRRD]  = { 0xff, R_8,D20_20,X_12,B_16,0,0 },
 317         [INSTR_RXY_URRD]  = { 0xff, U4_8,D20_20,X_12,B_16,0,0 },
 318         [INSTR_RX_FRRD]   = { 0xff, F_8,D_20,X_12,B_16,0,0 },
 319         [INSTR_RX_RRRD]   = { 0xff, R_8,D_20,X_12,B_16,0,0 },
 320         [INSTR_RX_URRD]   = { 0xff, U4_8,D_20,X_12,B_16,0,0 },
 321         [INSTR_SIL_RDI]   = { 0xff, D_20,B_16,I16_32,0,0,0 },
 322         [INSTR_SIL_RDU]   = { 0xff, D_20,B_16,U16_32,0,0,0 },
 323         [INSTR_SIY_IRD]   = { 0xff, D20_20,B_16,I8_8,0,0,0 },
 324         [INSTR_SIY_URD]   = { 0xff, D20_20,B_16,U8_8,0,0,0 },
 325         [INSTR_SI_URD]    = { 0xff, D_20,B_16,U8_8,0,0,0 },
 326         [INSTR_SMI_U0RDP] = { 0xff, U4_8,J16_32,D_20,B_16,0,0 },
 327         [INSTR_SSE_RDRD]  = { 0xff, D_20,B_16,D_36,B_32,0,0 },
 328         [INSTR_SSF_RRDRD] = { 0x0f, D_20,B_16,D_36,B_32,R_8,0 },
 329         [INSTR_SSF_RRDRD2]= { 0x0f, R_8,D_20,B_16,D_36,B_32,0 },
 330         [INSTR_SS_L0RDRD] = { 0xff, D_20,L8_8,B_16,D_36,B_32,0 },
 331         [INSTR_SS_LIRDRD] = { 0xff, D_20,L4_8,B_16,D_36,B_32,U4_12 },
 332         [INSTR_SS_LLRDRD] = { 0xff, D_20,L4_8,B_16,D_36,L4_12,B_32 },
 333         [INSTR_SS_RRRDRD2]= { 0xff, R_8,D_20,B_16,R_12,D_36,B_32 },
 334         [INSTR_SS_RRRDRD3]= { 0xff, R_8,R_12,D_20,B_16,D_36,B_32 },
 335         [INSTR_SS_RRRDRD] = { 0xff, D_20,R_8,B_16,D_36,B_32,R_12 },
 336         [INSTR_S_00]      = { 0xff, 0,0,0,0,0,0 },
 337         [INSTR_S_RD]      = { 0xff, D_20,B_16,0,0,0,0 },
 338         [INSTR_VRI_V0IM]  = { 0xff, V_8,I16_16,M_32,0,0,0 },
 339         [INSTR_VRI_V0I0]  = { 0xff, V_8,I16_16,0,0,0,0 },
 340         [INSTR_VRI_V0IIM] = { 0xff, V_8,I8_16,I8_24,M_32,0,0 },
 341         [INSTR_VRI_VVIM]  = { 0xff, V_8,I16_16,V_12,M_32,0,0 },
 342         [INSTR_VRI_VVV0IM]= { 0xff, V_8,V_12,V_16,I8_24,M_32,0 },
 343         [INSTR_VRI_VVV0I0]= { 0xff, V_8,V_12,V_16,I8_24,0,0 },
 344         [INSTR_VRI_VVIMM] = { 0xff, V_8,V_12,I16_16,M_32,M_28,0 },
 345         [INSTR_VRR_VV00MMM]={ 0xff, V_8,V_12,M_32,M_28,M_24,0 },
 346         [INSTR_VRR_VV000MM]={ 0xff, V_8,V_12,M_32,M_28,0,0 },
 347         [INSTR_VRR_VV0000M]={ 0xff, V_8,V_12,M_32,0,0,0 },
 348         [INSTR_VRR_VV00000]={ 0xff, V_8,V_12,0,0,0,0 },
 349         [INSTR_VRR_VVV0M0M]={ 0xff, V_8,V_12,V_16,M_32,M_24,0 },
 350         [INSTR_VRR_VV00M0M]={ 0xff, V_8,V_12,M_32,M_24,0,0 },
 351         [INSTR_VRR_VVV000M]={ 0xff, V_8,V_12,V_16,M_32,0,0 },
 352         [INSTR_VRR_VVV000V]={ 0xff, V_8,V_12,V_16,V_32,0,0 },
 353         [INSTR_VRR_VVV0000]={ 0xff, V_8,V_12,V_16,0,0,0 },
 354         [INSTR_VRR_VVV0MMM]={ 0xff, V_8,V_12,V_16,M_32,M_28,M_24 },
 355         [INSTR_VRR_VVV00MM]={ 0xff, V_8,V_12,V_16,M_32,M_28,0 },
 356         [INSTR_VRR_VVVMM0V]={ 0xff, V_8,V_12,V_16,V_32,M_20,M_24 },
 357         [INSTR_VRR_VVVM0MV]={ 0xff, V_8,V_12,V_16,V_32,M_28,M_20 },
 358         [INSTR_VRR_VVVM00V]={ 0xff, V_8,V_12,V_16,V_32,M_20,0 },
 359         [INSTR_VRR_VRR0000]={ 0xff, V_8,R_12,R_16,0,0,0 },
 360         [INSTR_VRS_VVRDM] = { 0xff, V_8,V_12,D_20,B_16,M_32,0 },
 361         [INSTR_VRS_VVRD0] = { 0xff, V_8,V_12,D_20,B_16,0,0 },
 362         [INSTR_VRS_VRRDM] = { 0xff, V_8,R_12,D_20,B_16,M_32,0 },
 363         [INSTR_VRS_VRRD0] = { 0xff, V_8,R_12,D_20,B_16,0,0 },
 364         [INSTR_VRS_RVRDM] = { 0xff, R_8,V_12,D_20,B_16,M_32,0 },
 365         [INSTR_VRV_VVRDM] = { 0xff, V_8,V_12,D_20,B_16,M_32,0 },
 366         [INSTR_VRV_VWRDM] = { 0xff, V_8,D_20,W_12,B_16,M_32,0 },
 367         [INSTR_VRX_VRRDM] = { 0xff, V_8,D_20,X_12,B_16,M_32,0 },
 368         [INSTR_VRX_VRRD0] = { 0xff, V_8,D_20,X_12,B_16,0,0 },
 369 };
 370
 371 enum {
 372         LONG_INSN_ALGHSIK,
 373         LONG_INSN_ALHHHR,
 374         LONG_INSN_ALHHLR,
 375         LONG_INSN_ALHSIK,
 376         LONG_INSN_ALSIHN,
 377         LONG_INSN_CDFBRA,
 378         LONG_INSN_CDGBRA,
 379         LONG_INSN_CDGTRA,
 380         LONG_INSN_CDLFBR,
 381         LONG_INSN_CDLFTR,
 382         LONG_INSN_CDLGBR,
 383         LONG_INSN_CDLGTR,
 384         LONG_INSN_CEFBRA,
 385         LONG_INSN_CEGBRA,
 386         LONG_INSN_CELFBR,
 387         LONG_INSN_CELGBR,
 388         LONG_INSN_CFDBRA,
 389         LONG_INSN_CFEBRA,
 390         LONG_INSN_CFXBRA,
 391         LONG_INSN_CGDBRA,
 392         LONG_INSN_CGDTRA,
 393         LONG_INSN_CGEBRA,
 394         LONG_INSN_CGXBRA,
 395         LONG_INSN_CGXTRA,
 396         LONG_INSN_CLFDBR,
 397         LONG_INSN_CLFDTR,
 398         LONG_INSN_CLFEBR,
 399         LONG_INSN_CLFHSI,
 400         LONG_INSN_CLFXBR,
 401         LONG_INSN_CLFXTR,
 402         LONG_INSN_CLGDBR,
 403         LONG_INSN_CLGDTR,
 404         LONG_INSN_CLGEBR,
 405         LONG_INSN_CLGFRL,
 406         LONG_INSN_CLGHRL,
 407         LONG_INSN_CLGHSI,
 408         LONG_INSN_CLGXBR,
 409         LONG_INSN_CLGXTR,
 410         LONG_INSN_CLHHSI,
 411         LONG_INSN_CXFBRA,
 412         LONG_INSN_CXGBRA,
 413         LONG_INSN_CXGTRA,
 414         LONG_INSN_CXLFBR,
 415         LONG_INSN_CXLFTR,
 416         LONG_INSN_CXLGBR,
 417         LONG_INSN_CXLGTR,
 418         LONG_INSN_FIDBRA,
 419         LONG_INSN_FIEBRA,
 420         LONG_INSN_FIXBRA,
 421         LONG_INSN_LDXBRA,
 422         LONG_INSN_LEDBRA,
 423         LONG_INSN_LEXBRA,
 424         LONG_INSN_LLGFAT,
 425         LONG_INSN_LLGFRL,
 426         LONG_INSN_LLGHRL,
 427         LONG_INSN_LLGTAT,
 428         LONG_INSN_POPCNT,
 429         LONG_INSN_RIEMIT,
 430         LONG_INSN_RINEXT,
 431         LONG_INSN_RISBGN,
 432         LONG_INSN_RISBHG,
 433         LONG_INSN_RISBLG,
 434         LONG_INSN_SLHHHR,
 435         LONG_INSN_SLHHLR,
 436         LONG_INSN_TABORT,
 437         LONG_INSN_TBEGIN,
 438         LONG_INSN_TBEGINC,
 439         LONG_INSN_PCISTG,
 440         LONG_INSN_MPCIFC,
 441         LONG_INSN_STPCIFC,
 442         LONG_INSN_PCISTB,
 443         LONG_INSN_VPOPCT,
 444         LONG_INSN_VERLLV,
 445         LONG_INSN_VESRAV,
 446         LONG_INSN_VESRLV,
 447         LONG_INSN_VSBCBI,
 448         LONG_INSN_STCCTM
 449 };
 450
 451 static char *long_insn_name[] = {
 452         [LONG_INSN_ALGHSIK] = "alghsik",
 453         [LONG_INSN_ALHHHR] = "alhhhr",
 454         [LONG_INSN_ALHHLR] = "alhhlr",
 455         [LONG_INSN_ALHSIK] = "alhsik",
 456         [LONG_INSN_ALSIHN] = "alsihn",
 457         [LONG_INSN_CDFBRA] = "cdfbra",
 458         [LONG_INSN_CDGBRA] = "cdgbra",
 459         [LONG_INSN_CDGTRA] = "cdgtra",
 460         [LONG_INSN_CDLFBR] = "cdlfbr",
 461         [LONG_INSN_CDLFTR] = "cdlftr",
 462         [LONG_INSN_CDLGBR] = "cdlgbr",
 463         [LONG_INSN_CDLGTR] = "cdlgtr",
 464         [LONG_INSN_CEFBRA] = "cefbra",
 465         [LONG_INSN_CEGBRA] = "cegbra",
 466         [LONG_INSN_CELFBR] = "celfbr",
 467         [LONG_INSN_CELGBR] = "celgbr",
 468         [LONG_INSN_CFDBRA] = "cfdbra",
 469         [LONG_INSN_CFEBRA] = "cfebra",
 470         [LONG_INSN_CFXBRA] = "cfxbra",
 471         [LONG_INSN_CGDBRA] = "cgdbra",
 472         [LONG_INSN_CGDTRA] = "cgdtra",
 473         [LONG_INSN_CGEBRA] = "cgebra",
 474         [LONG_INSN_CGXBRA] = "cgxbra",
 475         [LONG_INSN_CGXTRA] = "cgxtra",
 476         [LONG_INSN_CLFDBR] = "clfdbr",
 477         [LONG_INSN_CLFDTR] = "clfdtr",
 478         [LONG_INSN_CLFEBR] = "clfebr",
 479         [LONG_INSN_CLFHSI] = "clfhsi",
 480         [LONG_INSN_CLFXBR] = "clfxbr",
 481         [LONG_INSN_CLFXTR] = "clfxtr",
 482         [LONG_INSN_CLGDBR] = "clgdbr",
 483         [LONG_INSN_CLGDTR] = "clgdtr",
 484         [LONG_INSN_CLGEBR] = "clgebr",
 485         [LONG_INSN_CLGFRL] = "clgfrl",
 486         [LONG_INSN_CLGHRL] = "clghrl",
 487         [LONG_INSN_CLGHSI] = "clghsi",
 488         [LONG_INSN_CLGXBR] = "clgxbr",
 489         [LONG_INSN_CLGXTR] = "clgxtr",
 490         [LONG_INSN_CLHHSI] = "clhhsi",
 491         [LONG_INSN_CXFBRA] = "cxfbra",
 492         [LONG_INSN_CXGBRA] = "cxgbra",
 493         [LONG_INSN_CXGTRA] = "cxgtra",
 494         [LONG_INSN_CXLFBR] = "cxlfbr",
 495         [LONG_INSN_CXLFTR] = "cxlftr",
 496         [LONG_INSN_CXLGBR] = "cxlgbr",
 497         [LONG_INSN_CXLGTR] = "cxlgtr",
 498         [LONG_INSN_FIDBRA] = "fidbra",
 499         [LONG_INSN_FIEBRA] = "fiebra",
 500         [LONG_INSN_FIXBRA] = "fixbra",
 501         [LONG_INSN_LDXBRA] = "ldxbra",
 502         [LONG_INSN_LEDBRA] = "ledbra",
 503         [LONG_INSN_LEXBRA] = "lexbra",
 504         [LONG_INSN_LLGFAT] = "llgfat",
 505         [LONG_INSN_LLGFRL] = "llgfrl",
 506         [LONG_INSN_LLGHRL] = "llghrl",
 507         [LONG_INSN_LLGTAT] = "llgtat",
 508         [LONG_INSN_POPCNT] = "popcnt",
 509         [LONG_INSN_RIEMIT] = "riemit",
 510         [LONG_INSN_RINEXT] = "rinext",
 511         [LONG_INSN_RISBGN] = "risbgn",
 512         [LONG_INSN_RISBHG] = "risbhg",
 513         [LONG_INSN_RISBLG] = "risblg",
 514         [LONG_INSN_SLHHHR] = "slhhhr",
 515         [LONG_INSN_SLHHLR] = "slhhlr",
 516         [LONG_INSN_TABORT] = "tabort",
 517         [LONG_INSN_TBEGIN] = "tbegin",
 518         [LONG_INSN_TBEGINC] = "tbeginc",
 519         [LONG_INSN_PCISTG] = "pcistg",
 520         [LONG_INSN_MPCIFC] = "mpcifc",
 521         [LONG_INSN_STPCIFC] = "stpcifc",
 522         [LONG_INSN_PCISTB] = "pcistb",
 523         [LONG_INSN_VPOPCT] = "vpopct",
 524         [LONG_INSN_VERLLV] = "verllv",
 525         [LONG_INSN_VESRAV] = "vesrav",
 526         [LONG_INSN_VESRLV] = "vesrlv",
 527         [LONG_INSN_VSBCBI] = "vsbcbi",
 528         [LONG_INSN_STCCTM] = "stcctm",
 529 };
 530
 531 static struct s390_insn opcode[] = {
 532         { "bprp", 0xc5, INSTR_MII_UPI },
 533         { "bpp", 0xc7, INSTR_SMI_U0RDP },
 534         { "trtr", 0xd0, INSTR_SS_L0RDRD },
 535         { "lmd", 0xef, INSTR_SS_RRRDRD3 },
 536         { "spm", 0x04, INSTR_RR_R0 },
 537         { "balr", 0x05, INSTR_RR_RR },
 538         { "bctr", 0x06, INSTR_RR_RR },
 539         { "bcr", 0x07, INSTR_RR_UR },
 540         { "svc", 0x0a, INSTR_RR_U0 },
 541         { "bsm", 0x0b, INSTR_RR_RR },
 542         { "bassm", 0x0c, INSTR_RR_RR },
 543         { "basr", 0x0d, INSTR_RR_RR },
 544         { "mvcl", 0x0e, INSTR_RR_RR },
 545         { "clcl", 0x0f, INSTR_RR_RR },
 546         { "lpr", 0x10, INSTR_RR_RR },
 547         { "lnr", 0x11, INSTR_RR_RR },
 548         { "ltr", 0x12, INSTR_RR_RR },
 549         { "lcr", 0x13, INSTR_RR_RR },
 550         { "nr", 0x14, INSTR_RR_RR },
 551         { "clr", 0x15, INSTR_RR_RR },
 552         { "or", 0x16, INSTR_RR_RR },
 553         { "xr", 0x17, INSTR_RR_RR },
 554         { "lr", 0x18, INSTR_RR_RR },
 555         { "cr", 0x19, INSTR_RR_RR },
 556         { "ar", 0x1a, INSTR_RR_RR },
 557         { "sr", 0x1b, INSTR_RR_RR },
 558         { "mr", 0x1c, INSTR_RR_RR },
 559         { "dr", 0x1d, INSTR_RR_RR },
 560         { "alr", 0x1e, INSTR_RR_RR },
 561         { "slr", 0x1f, INSTR_RR_RR },
 562         { "lpdr", 0x20, INSTR_RR_FF },
 563         { "lndr", 0x21, INSTR_RR_FF },
 564         { "ltdr", 0x22, INSTR_RR_FF },
 565         { "lcdr", 0x23, INSTR_RR_FF },
 566         { "hdr", 0x24, INSTR_RR_FF },
 567         { "ldxr", 0x25, INSTR_RR_FF },
 568         { "mxr", 0x26, INSTR_RR_FF },
 569         { "mxdr", 0x27, INSTR_RR_FF },
 570         { "ldr", 0x28, INSTR_RR_FF },
 571         { "cdr", 0x29, INSTR_RR_FF },
 572         { "adr", 0x2a, INSTR_RR_FF },
 573         { "sdr", 0x2b, INSTR_RR_FF },
 574         { "mdr", 0x2c, INSTR_RR_FF },
 575         { "ddr", 0x2d, INSTR_RR_FF },
 576         { "awr", 0x2e, INSTR_RR_FF },
 577         { "swr", 0x2f, INSTR_RR_FF },
 578         { "lper", 0x30, INSTR_RR_FF },
 579         { "lner", 0x31, INSTR_RR_FF },
 580         { "lter", 0x32, INSTR_RR_FF },
 581         { "lcer", 0x33, INSTR_RR_FF },
 582         { "her", 0x34, INSTR_RR_FF },
 583         { "ledr", 0x35, INSTR_RR_FF },
 584         { "axr", 0x36, INSTR_RR_FF },
 585         { "sxr", 0x37, INSTR_RR_FF },
 586         { "ler", 0x38, INSTR_RR_FF },
 587         { "cer", 0x39, INSTR_RR_FF },
 588         { "aer", 0x3a, INSTR_RR_FF },
 589         { "ser", 0x3b, INSTR_RR_FF },
 590         { "mder", 0x3c, INSTR_RR_FF },
 591         { "der", 0x3d, INSTR_RR_FF },
 592         { "aur", 0x3e, INSTR_RR_FF },
 593         { "sur", 0x3f, INSTR_RR_FF },
 594         { "sth", 0x40, INSTR_RX_RRRD },
 595         { "la", 0x41, INSTR_RX_RRRD },
 596         { "stc", 0x42, INSTR_RX_RRRD },
 597         { "ic", 0x43, INSTR_RX_RRRD },
 598         { "ex", 0x44, INSTR_RX_RRRD },
 599         { "bal", 0x45, INSTR_RX_RRRD },
 600         { "bct", 0x46, INSTR_RX_RRRD },
 601         { "bc", 0x47, INSTR_RX_URRD },
 602         { "lh", 0x48, INSTR_RX_RRRD },
 603         { "ch", 0x49, INSTR_RX_RRRD },
 604         { "ah", 0x4a, INSTR_RX_RRRD },
 605         { "sh", 0x4b, INSTR_RX_RRRD },
 606         { "mh", 0x4c, INSTR_RX_RRRD },
 607         { "bas", 0x4d, INSTR_RX_RRRD },
 608         { "cvd", 0x4e, INSTR_RX_RRRD },
 609         { "cvb", 0x4f, INSTR_RX_RRRD },
 610         { "st", 0x50, INSTR_RX_RRRD },
 611         { "lae", 0x51, INSTR_RX_RRRD },
 612         { "n", 0x54, INSTR_RX_RRRD },
 613         { "cl", 0x55, INSTR_RX_RRRD },
 614         { "o", 0x56, INSTR_RX_RRRD },
 615         { "x", 0x57, INSTR_RX_RRRD },
 616         { "l", 0x58, INSTR_RX_RRRD },
 617         { "c", 0x59, INSTR_RX_RRRD },
 618         { "a", 0x5a, INSTR_RX_RRRD },
 619         { "s", 0x5b, INSTR_RX_RRRD },
 620         { "m", 0x5c, INSTR_RX_RRRD },
 621         { "d", 0x5d, INSTR_RX_RRRD },
 622         { "al", 0x5e, INSTR_RX_RRRD },
 623         { "sl", 0x5f, INSTR_RX_RRRD },
 624         { "std", 0x60, INSTR_RX_FRRD },
 625         { "mxd", 0x67, INSTR_RX_FRRD },
 626         { "ld", 0x68, INSTR_RX_FRRD },
 627         { "cd", 0x69, INSTR_RX_FRRD },
 628         { "ad", 0x6a, INSTR_RX_FRRD },
 629         { "sd", 0x6b, INSTR_RX_FRRD },
 630         { "md", 0x6c, INSTR_RX_FRRD },
 631         { "dd", 0x6d, INSTR_RX_FRRD },
 632         { "aw", 0x6e, INSTR_RX_FRRD },
 633         { "sw", 0x6f, INSTR_RX_FRRD },
 634         { "ste", 0x70, INSTR_RX_FRRD },
 635         { "ms", 0x71, INSTR_RX_RRRD },
 636         { "le", 0x78, INSTR_RX_FRRD },
 637         { "ce", 0x79, INSTR_RX_FRRD },
 638         { "ae", 0x7a, INSTR_RX_FRRD },
 639         { "se", 0x7b, INSTR_RX_FRRD },
 640         { "mde", 0x7c, INSTR_RX_FRRD },
 641         { "de", 0x7d, INSTR_RX_FRRD },
 642         { "au", 0x7e, INSTR_RX_FRRD },
 643         { "su", 0x7f, INSTR_RX_FRRD },
 644         { "ssm", 0x80, INSTR_S_RD },
 645         { "lpsw", 0x82, INSTR_S_RD },
 646         { "diag", 0x83, INSTR_RS_RRRD },
 647         { "brxh", 0x84, INSTR_RSI_RRP },
 648         { "brxle", 0x85, INSTR_RSI_RRP },
 649         { "bxh", 0x86, INSTR_RS_RRRD },
 650         { "bxle", 0x87, INSTR_RS_RRRD },
 651         { "srl", 0x88, INSTR_RS_R0RD },
 652         { "sll", 0x89, INSTR_RS_R0RD },
 653         { "sra", 0x8a, INSTR_RS_R0RD },
 654         { "sla", 0x8b, INSTR_RS_R0RD },
 655         { "srdl", 0x8c, INSTR_RS_R0RD },
 656         { "sldl", 0x8d, INSTR_RS_R0RD },
 657         { "srda", 0x8e, INSTR_RS_R0RD },
 658         { "slda", 0x8f, INSTR_RS_R0RD },
 659         { "stm", 0x90, INSTR_RS_RRRD },
 660         { "tm", 0x91, INSTR_SI_URD },
 661         { "mvi", 0x92, INSTR_SI_URD },
 662         { "ts", 0x93, INSTR_S_RD },
 663         { "ni", 0x94, INSTR_SI_URD },
 664         { "cli", 0x95, INSTR_SI_URD },
 665         { "oi", 0x96, INSTR_SI_URD },
 666         { "xi", 0x97, INSTR_SI_URD },
 667         { "lm", 0x98, INSTR_RS_RRRD },
 668         { "trace", 0x99, INSTR_RS_RRRD },
 669         { "lam", 0x9a, INSTR_RS_AARD },
 670         { "stam", 0x9b, INSTR_RS_AARD },
 671         { "mvcle", 0xa8, INSTR_RS_RRRD },
 672         { "clcle", 0xa9, INSTR_RS_RRRD },
 673         { "stnsm", 0xac, INSTR_SI_URD },
 674         { "stosm", 0xad, INSTR_SI_URD },
 675         { "sigp", 0xae, INSTR_RS_RRRD },
 676         { "mc", 0xaf, INSTR_SI_URD },
 677         { "lra", 0xb1, INSTR_RX_RRRD },
 678         { "stctl", 0xb6, INSTR_RS_CCRD },
 679         { "lctl", 0xb7, INSTR_RS_CCRD },
 680         { "cs", 0xba, INSTR_RS_RRRD },
 681         { "cds", 0xbb, INSTR_RS_RRRD },
 682         { "clm", 0xbd, INSTR_RS_RURD },
 683         { "stcm", 0xbe, INSTR_RS_RURD },
 684         { "icm", 0xbf, INSTR_RS_RURD },
 685         { "mvn", 0xd1, INSTR_SS_L0RDRD },
 686         { "mvc", 0xd2, INSTR_SS_L0RDRD },
 687         { "mvz", 0xd3, INSTR_SS_L0RDRD },
 688         { "nc", 0xd4, INSTR_SS_L0RDRD },
 689         { "clc", 0xd5, INSTR_SS_L0RDRD },
 690         { "oc", 0xd6, INSTR_SS_L0RDRD },
 691         { "xc", 0xd7, INSTR_SS_L0RDRD },
 692         { "mvck", 0xd9, INSTR_SS_RRRDRD },
 693         { "mvcp", 0xda, INSTR_SS_RRRDRD },
 694         { "mvcs", 0xdb, INSTR_SS_RRRDRD },
 695         { "tr", 0xdc, INSTR_SS_L0RDRD },
 696         { "trt", 0xdd, INSTR_SS_L0RDRD },
 697         { "ed", 0xde, INSTR_SS_L0RDRD },
 698         { "edmk", 0xdf, INSTR_SS_L0RDRD },
 699         { "pku", 0xe1, INSTR_SS_L0RDRD },
 700         { "unpku", 0xe2, INSTR_SS_L0RDRD },
 701         { "mvcin", 0xe8, INSTR_SS_L0RDRD },
 702         { "pka", 0xe9, INSTR_SS_L0RDRD },
 703         { "unpka", 0xea, INSTR_SS_L0RDRD },
 704         { "plo", 0xee, INSTR_SS_RRRDRD2 },
 705         { "srp", 0xf0, INSTR_SS_LIRDRD },
 706         { "mvo", 0xf1, INSTR_SS_LLRDRD },
 707         { "pack", 0xf2, INSTR_SS_LLRDRD },
 708         { "unpk", 0xf3, INSTR_SS_LLRDRD },
 709         { "zap", 0xf8, INSTR_SS_LLRDRD },
 710         { "cp", 0xf9, INSTR_SS_LLRDRD },
 711         { "ap", 0xfa, INSTR_SS_LLRDRD },
 712         { "sp", 0xfb, INSTR_SS_LLRDRD },
 713         { "mp", 0xfc, INSTR_SS_LLRDRD },
 714         { "dp", 0xfd, INSTR_SS_LLRDRD },
 715         { "", 0, INSTR_INVALID }
 716 };
 717
 718 static struct s390_insn opcode_01[] = {
 719         { "ptff", 0x04, INSTR_E },
 720         { "pfpo", 0x0a, INSTR_E },
 721         { "sam64", 0x0e, INSTR_E },
 722         { "pr", 0x01, INSTR_E },
 723         { "upt", 0x02, INSTR_E },
 724         { "sckpf", 0x07, INSTR_E },
 725         { "tam", 0x0b, INSTR_E },
 726         { "sam24", 0x0c, INSTR_E },
 727         { "sam31", 0x0d, INSTR_E },
 728         { "trap2", 0xff, INSTR_E },
 729         { "", 0, INSTR_INVALID }
 730 };
 731
 732 static struct s390_insn opcode_a5[] = {
 733         { "iihh", 0x00, INSTR_RI_RU },
 734         { "iihl", 0x01, INSTR_RI_RU },
 735         { "iilh", 0x02, INSTR_RI_RU },
 736         { "iill", 0x03, INSTR_RI_RU },
 737         { "nihh", 0x04, INSTR_RI_RU },
 738         { "nihl", 0x05, INSTR_RI_RU },
 739         { "nilh", 0x06, INSTR_RI_RU },
 740         { "nill", 0x07, INSTR_RI_RU },
 741         { "oihh", 0x08, INSTR_RI_RU },
 742         { "oihl", 0x09, INSTR_RI_RU },
 743         { "oilh", 0x0a, INSTR_RI_RU },
 744         { "oill", 0x0b, INSTR_RI_RU },
 745         { "llihh", 0x0c, INSTR_RI_RU },
 746         { "llihl", 0x0d, INSTR_RI_RU },
 747         { "llilh", 0x0e, INSTR_RI_RU },
 748         { "llill", 0x0f, INSTR_RI_RU },
 749         { "", 0, INSTR_INVALID }
 750 };
 751
 752 static struct s390_insn opcode_a7[] = {
 753         { "tmhh", 0x02, INSTR_RI_RU },
 754         { "tmhl", 0x03, INSTR_RI_RU },
 755         { "brctg", 0x07, INSTR_RI_RP },
 756         { "lghi", 0x09, INSTR_RI_RI },
 757         { "aghi", 0x0b, INSTR_RI_RI },
 758         { "mghi", 0x0d, INSTR_RI_RI },
 759         { "cghi", 0x0f, INSTR_RI_RI },
 760         { "tmlh", 0x00, INSTR_RI_RU },
 761         { "tmll", 0x01, INSTR_RI_RU },
 762         { "brc", 0x04, INSTR_RI_UP },
 763         { "bras", 0x05, INSTR_RI_RP },
 764         { "brct", 0x06, INSTR_RI_RP },
 765         { "lhi", 0x08, INSTR_RI_RI },
 766         { "ahi", 0x0a, INSTR_RI_RI },
 767         { "mhi", 0x0c, INSTR_RI_RI },
 768         { "chi", 0x0e, INSTR_RI_RI },
 769         { "", 0, INSTR_INVALID }
 770 };
 771
 772 static struct s390_insn opcode_aa[] = {
 773         { { 0, LONG_INSN_RINEXT }, 0x00, INSTR_RI_RI },
 774         { "rion", 0x01, INSTR_RI_RI },
 775         { "tric", 0x02, INSTR_RI_RI },
 776         { "rioff", 0x03, INSTR_RI_RI },
 777         { { 0, LONG_INSN_RIEMIT }, 0x04, INSTR_RI_RI },
 778         { "", 0, INSTR_INVALID }
 779 };
 780
 781 static struct s390_insn opcode_b2[] = {
 782         { "stckf", 0x7c, INSTR_S_RD },
 783         { "lpp", 0x80, INSTR_S_RD },
 784         { "lcctl", 0x84, INSTR_S_RD },
 785         { "lpctl", 0x85, INSTR_S_RD },
 786         { "qsi", 0x86, INSTR_S_RD },
 787         { "lsctl", 0x87, INSTR_S_RD },
 788         { "qctri", 0x8e, INSTR_S_RD },
 789         { "stfle", 0xb0, INSTR_S_RD },
 790         { "lpswe", 0xb2, INSTR_S_RD },
 791         { "srnmb", 0xb8, INSTR_S_RD },
 792         { "srnmt", 0xb9, INSTR_S_RD },
 793         { "lfas", 0xbd, INSTR_S_RD },
 794         { "scctr", 0xe0, INSTR_RRE_RR },
 795         { "spctr", 0xe1, INSTR_RRE_RR },
 796         { "ecctr", 0xe4, INSTR_RRE_RR },
 797         { "epctr", 0xe5, INSTR_RRE_RR },
 798         { "ppa", 0xe8, INSTR_RRF_U0RR },
 799         { "etnd", 0xec, INSTR_RRE_R0 },
 800         { "ecpga", 0xed, INSTR_RRE_RR },
 801         { "tend", 0xf8, INSTR_S_00 },
 802         { "niai", 0xfa, INSTR_IE_UU },
 803         { { 0, LONG_INSN_TABORT }, 0xfc, INSTR_S_RD },
 804         { "stidp", 0x02, INSTR_S_RD },
 805         { "sck", 0x04, INSTR_S_RD },
 806         { "stck", 0x05, INSTR_S_RD },
 807         { "sckc", 0x06, INSTR_S_RD },
 808         { "stckc", 0x07, INSTR_S_RD },
 809         { "spt", 0x08, INSTR_S_RD },
 810         { "stpt", 0x09, INSTR_S_RD },
 811         { "spka", 0x0a, INSTR_S_RD },
 812         { "ipk", 0x0b, INSTR_S_00 },
 813         { "ptlb", 0x0d, INSTR_S_00 },
 814         { "spx", 0x10, INSTR_S_RD },
 815         { "stpx", 0x11, INSTR_S_RD },
 816         { "stap", 0x12, INSTR_S_RD },
 817         { "sie", 0x14, INSTR_S_RD },
 818         { "pc", 0x18, INSTR_S_RD },
 819         { "sac", 0x19, INSTR_S_RD },
 820         { "cfc", 0x1a, INSTR_S_RD },
 821         { "servc", 0x20, INSTR_RRE_RR },
 822         { "ipte", 0x21, INSTR_RRE_RR },
 823         { "ipm", 0x22, INSTR_RRE_R0 },
 824         { "ivsk", 0x23, INSTR_RRE_RR },
 825         { "iac", 0x24, INSTR_RRE_R0 },
 826         { "ssar", 0x25, INSTR_RRE_R0 },
 827         { "epar", 0x26, INSTR_RRE_R0 },
 828         { "esar", 0x27, INSTR_RRE_R0 },
 829         { "pt", 0x28, INSTR_RRE_RR },
 830         { "iske", 0x29, INSTR_RRE_RR },
 831         { "rrbe", 0x2a, INSTR_RRE_RR },
 832         { "sske", 0x2b, INSTR_RRF_M0RR },
 833         { "tb", 0x2c, INSTR_RRE_0R },
 834         { "dxr", 0x2d, INSTR_RRE_FF },
 835         { "pgin", 0x2e, INSTR_RRE_RR },
 836         { "pgout", 0x2f, INSTR_RRE_RR },
 837         { "csch", 0x30, INSTR_S_00 },
 838         { "hsch", 0x31, INSTR_S_00 },
 839         { "msch", 0x32, INSTR_S_RD },
 840         { "ssch", 0x33, INSTR_S_RD },
 841         { "stsch", 0x34, INSTR_S_RD },
 842         { "tsch", 0x35, INSTR_S_RD },
 843         { "tpi", 0x36, INSTR_S_RD },
 844         { "sal", 0x37, INSTR_S_00 },
 845         { "rsch", 0x38, INSTR_S_00 },
 846         { "stcrw", 0x39, INSTR_S_RD },
 847         { "stcps", 0x3a, INSTR_S_RD },
 848         { "rchp", 0x3b, INSTR_S_00 },
 849         { "schm", 0x3c, INSTR_S_00 },
 850         { "bakr", 0x40, INSTR_RRE_RR },
 851         { "cksm", 0x41, INSTR_RRE_RR },
 852         { "sqdr", 0x44, INSTR_RRE_FF },
 853         { "sqer", 0x45, INSTR_RRE_FF },
 854         { "stura", 0x46, INSTR_RRE_RR },
 855         { "msta", 0x47, INSTR_RRE_R0 },
 856         { "palb", 0x48, INSTR_RRE_00 },
 857         { "ereg", 0x49, INSTR_RRE_RR },
 858         { "esta", 0x4a, INSTR_RRE_RR },
 859         { "lura", 0x4b, INSTR_RRE_RR },
 860         { "tar", 0x4c, INSTR_RRE_AR },
 861         { "cpya", 0x4d, INSTR_RRE_AA },
 862         { "sar", 0x4e, INSTR_RRE_AR },
 863         { "ear", 0x4f, INSTR_RRE_RA },
 864         { "csp", 0x50, INSTR_RRE_RR },
 865         { "msr", 0x52, INSTR_RRE_RR },
 866         { "mvpg", 0x54, INSTR_RRE_RR },
 867         { "mvst", 0x55, INSTR_RRE_RR },
 868         { "cuse", 0x57, INSTR_RRE_RR },
 869         { "bsg", 0x58, INSTR_RRE_RR },
 870         { "bsa", 0x5a, INSTR_RRE_RR },
 871         { "clst", 0x5d, INSTR_RRE_RR },
 872         { "srst", 0x5e, INSTR_RRE_RR },
 873         { "cmpsc", 0x63, INSTR_RRE_RR },
 874         { "siga", 0x74, INSTR_S_RD },
 875         { "xsch", 0x76, INSTR_S_00 },
 876         { "rp", 0x77, INSTR_S_RD },
 877         { "stcke", 0x78, INSTR_S_RD },
 878         { "sacf", 0x79, INSTR_S_RD },
 879         { "stsi", 0x7d, INSTR_S_RD },
 880         { "srnm", 0x99, INSTR_S_RD },
 881         { "stfpc", 0x9c, INSTR_S_RD },
 882         { "lfpc", 0x9d, INSTR_S_RD },
 883         { "tre", 0xa5, INSTR_RRE_RR },
 884         { "cuutf", 0xa6, INSTR_RRF_M0RR },
 885         { "cutfu", 0xa7, INSTR_RRF_M0RR },
 886         { "stfl", 0xb1, INSTR_S_RD },
 887         { "trap4", 0xff, INSTR_S_RD },
 888         { "", 0, INSTR_INVALID }
 889 };
 890
 891 static struct s390_insn opcode_b3[] = {
 892         { "maylr", 0x38, INSTR_RRF_F0FF },
 893         { "mylr", 0x39, INSTR_RRF_F0FF },
 894         { "mayr", 0x3a, INSTR_RRF_F0FF },
 895         { "myr", 0x3b, INSTR_RRF_F0FF },
 896         { "mayhr", 0x3c, INSTR_RRF_F0FF },
 897         { "myhr", 0x3d, INSTR_RRF_F0FF },
 898         { "lpdfr", 0x70, INSTR_RRE_FF },
 899         { "lndfr", 0x71, INSTR_RRE_FF },
 900         { "cpsdr", 0x72, INSTR_RRF_F0FF2 },
 901         { "lcdfr", 0x73, INSTR_RRE_FF },
 902         { "sfasr", 0x85, INSTR_RRE_R0 },
 903         { { 0, LONG_INSN_CELFBR }, 0x90, INSTR_RRF_UUFR },
 904         { { 0, LONG_INSN_CDLFBR }, 0x91, INSTR_RRF_UUFR },
 905         { { 0, LONG_INSN_CXLFBR }, 0x92, INSTR_RRF_UURF },
 906         { { 0, LONG_INSN_CEFBRA }, 0x94, INSTR_RRF_UUFR },
 907         { { 0, LONG_INSN_CDFBRA }, 0x95, INSTR_RRF_UUFR },
 908         { { 0, LONG_INSN_CXFBRA }, 0x96, INSTR_RRF_UURF },
 909         { { 0, LONG_INSN_CFEBRA }, 0x98, INSTR_RRF_UURF },
 910         { { 0, LONG_INSN_CFDBRA }, 0x99, INSTR_RRF_UURF },
 911         { { 0, LONG_INSN_CFXBRA }, 0x9a, INSTR_RRF_UUFR },
 912         { { 0, LONG_INSN_CLFEBR }, 0x9c, INSTR_RRF_UURF },
 913         { { 0, LONG_INSN_CLFDBR }, 0x9d, INSTR_RRF_UURF },
 914         { { 0, LONG_INSN_CLFXBR }, 0x9e, INSTR_RRF_UUFR },
 915         { { 0, LONG_INSN_CELGBR }, 0xa0, INSTR_RRF_UUFR },
 916         { { 0, LONG_INSN_CDLGBR }, 0xa1, INSTR_RRF_UUFR },
 917         { { 0, LONG_INSN_CXLGBR }, 0xa2, INSTR_RRF_UURF },
 918         { { 0, LONG_INSN_CEGBRA }, 0xa4, INSTR_RRF_UUFR },
 919         { { 0, LONG_INSN_CDGBRA }, 0xa5, INSTR_RRF_UUFR },
 920         { { 0, LONG_INSN_CXGBRA }, 0xa6, INSTR_RRF_UURF },
 921         { { 0, LONG_INSN_CGEBRA }, 0xa8, INSTR_RRF_UURF },
 922         { { 0, LONG_INSN_CGDBRA }, 0xa9, INSTR_RRF_UURF },
 923         { { 0, LONG_INSN_CGXBRA }, 0xaa, INSTR_RRF_UUFR },
 924         { { 0, LONG_INSN_CLGEBR }, 0xac, INSTR_RRF_UURF },
 925         { { 0, LONG_INSN_CLGDBR }, 0xad, INSTR_RRF_UURF },
 926         { { 0, LONG_INSN_CLGXBR }, 0xae, INSTR_RRF_UUFR },
 927         { "ldgr", 0xc1, INSTR_RRE_FR },
 928         { "cegr", 0xc4, INSTR_RRE_FR },
 929         { "cdgr", 0xc5, INSTR_RRE_FR },
 930         { "cxgr", 0xc6, INSTR_RRE_FR },
 931         { "cger", 0xc8, INSTR_RRF_U0RF },
 932         { "cgdr", 0xc9, INSTR_RRF_U0RF },
 933         { "cgxr", 0xca, INSTR_RRF_U0RF },
 934         { "lgdr", 0xcd, INSTR_RRE_RF },
 935         { "mdtra", 0xd0, INSTR_RRF_FUFF2 },
 936         { "ddtra", 0xd1, INSTR_RRF_FUFF2 },
 937         { "adtra", 0xd2, INSTR_RRF_FUFF2 },
 938         { "sdtra", 0xd3, INSTR_RRF_FUFF2 },
 939         { "ldetr", 0xd4, INSTR_RRF_0UFF },
 940         { "ledtr", 0xd5, INSTR_RRF_UUFF },
 941         { "ltdtr", 0xd6, INSTR_RRE_FF },
 942         { "fidtr", 0xd7, INSTR_RRF_UUFF },
 943         { "mxtra", 0xd8, INSTR_RRF_FUFF2 },
 944         { "dxtra", 0xd9, INSTR_RRF_FUFF2 },
 945         { "axtra", 0xda, INSTR_RRF_FUFF2 },
 946         { "sxtra", 0xdb, INSTR_RRF_FUFF2 },
 947         { "lxdtr", 0xdc, INSTR_RRF_0UFF },
 948         { "ldxtr", 0xdd, INSTR_RRF_UUFF },
 949         { "ltxtr", 0xde, INSTR_RRE_FF },
 950         { "fixtr", 0xdf, INSTR_RRF_UUFF },
 951         { "kdtr", 0xe0, INSTR_RRE_FF },
 952         { { 0, LONG_INSN_CGDTRA }, 0xe1, INSTR_RRF_UURF },
 953         { "cudtr", 0xe2, INSTR_RRE_RF },
 954         { "csdtr", 0xe3, INSTR_RRE_RF },
 955         { "cdtr", 0xe4, INSTR_RRE_FF },
 956         { "eedtr", 0xe5, INSTR_RRE_RF },
 957         { "esdtr", 0xe7, INSTR_RRE_RF },
 958         { "kxtr", 0xe8, INSTR_RRE_FF },
 959         { { 0, LONG_INSN_CGXTRA }, 0xe9, INSTR_RRF_UUFR },
 960         { "cuxtr", 0xea, INSTR_RRE_RF },
 961         { "csxtr", 0xeb, INSTR_RRE_RF },
 962         { "cxtr", 0xec, INSTR_RRE_FF },
 963         { "eextr", 0xed, INSTR_RRE_RF },
 964         { "esxtr", 0xef, INSTR_RRE_RF },
 965         { { 0, LONG_INSN_CDGTRA }, 0xf1, INSTR_RRF_UUFR },
 966         { "cdutr", 0xf2, INSTR_RRE_FR },
 967         { "cdstr", 0xf3, INSTR_RRE_FR },
 968         { "cedtr", 0xf4, INSTR_RRE_FF },
 969         { "qadtr", 0xf5, INSTR_RRF_FUFF },
 970         { "iedtr", 0xf6, INSTR_RRF_F0FR },
 971         { "rrdtr", 0xf7, INSTR_RRF_FFRU },
 972         { { 0, LONG_INSN_CXGTRA }, 0xf9, INSTR_RRF_UURF },
 973         { "cxutr", 0xfa, INSTR_RRE_FR },
 974         { "cxstr", 0xfb, INSTR_RRE_FR },
 975         { "cextr", 0xfc, INSTR_RRE_FF },
 976         { "qaxtr", 0xfd, INSTR_RRF_FUFF },
 977         { "iextr", 0xfe, INSTR_RRF_F0FR },
 978         { "rrxtr", 0xff, INSTR_RRF_FFRU },
 979         { "lpebr", 0x00, INSTR_RRE_FF },
 980         { "lnebr", 0x01, INSTR_RRE_FF },
 981         { "ltebr", 0x02, INSTR_RRE_FF },
 982         { "lcebr", 0x03, INSTR_RRE_FF },
 983         { "ldebr", 0x04, INSTR_RRE_FF },
 984         { "lxdbr", 0x05, INSTR_RRE_FF },
 985         { "lxebr", 0x06, INSTR_RRE_FF },
 986         { "mxdbr", 0x07, INSTR_RRE_FF },
 987         { "kebr", 0x08, INSTR_RRE_FF },
 988         { "cebr", 0x09, INSTR_RRE_FF },
 989         { "aebr", 0x0a, INSTR_RRE_FF },
 990         { "sebr", 0x0b, INSTR_RRE_FF },
 991         { "mdebr", 0x0c, INSTR_RRE_FF },
 992         { "debr", 0x0d, INSTR_RRE_FF },
 993         { "maebr", 0x0e, INSTR_RRF_F0FF },
 994         { "msebr", 0x0f, INSTR_RRF_F0FF },
 995         { "lpdbr", 0x10, INSTR_RRE_FF },
 996         { "lndbr", 0x11, INSTR_RRE_FF },
 997         { "ltdbr", 0x12, INSTR_RRE_FF },
 998         { "lcdbr", 0x13, INSTR_RRE_FF },
 999         { "sqebr", 0x14, INSTR_RRE_FF },
1000         { "sqdbr", 0x15, INSTR_RRE_FF },
1001         { "sqxbr", 0x16, INSTR_RRE_FF },
1002         { "meebr", 0x17, INSTR_RRE_FF },
1003         { "kdbr", 0x18, INSTR_RRE_FF },
1004         { "cdbr", 0x19, INSTR_RRE_FF },
1005         { "adbr", 0x1a, INSTR_RRE_FF },
1006         { "sdbr", 0x1b, INSTR_RRE_FF },
1007         { "mdbr", 0x1c, INSTR_RRE_FF },
1008         { "ddbr", 0x1d, INSTR_RRE_FF },
1009         { "madbr", 0x1e, INSTR_RRF_F0FF },
1010         { "msdbr", 0x1f, INSTR_RRF_F0FF },
1011         { "lder", 0x24, INSTR_RRE_FF },
1012         { "lxdr", 0x25, INSTR_RRE_FF },
1013         { "lxer", 0x26, INSTR_RRE_FF },
1014         { "maer", 0x2e, INSTR_RRF_F0FF },
1015         { "mser", 0x2f, INSTR_RRF_F0FF },
1016         { "sqxr", 0x36, INSTR_RRE_FF },
1017         { "meer", 0x37, INSTR_RRE_FF },
1018         { "madr", 0x3e, INSTR_RRF_F0FF },
1019         { "msdr", 0x3f, INSTR_RRF_F0FF },
1020         { "lpxbr", 0x40, INSTR_RRE_FF },
1021         { "lnxbr", 0x41, INSTR_RRE_FF },
1022         { "ltxbr", 0x42, INSTR_RRE_FF },
1023         { "lcxbr", 0x43, INSTR_RRE_FF },
1024         { { 0, LONG_INSN_LEDBRA }, 0x44, INSTR_RRF_UUFF },
1025         { { 0, LONG_INSN_LDXBRA }, 0x45, INSTR_RRF_UUFF },
1026         { { 0, LONG_INSN_LEXBRA }, 0x46, INSTR_RRF_UUFF },
1027         { { 0, LONG_INSN_FIXBRA }, 0x47, INSTR_RRF_UUFF },
1028         { "kxbr", 0x48, INSTR_RRE_FF },
1029         { "cxbr", 0x49, INSTR_RRE_FF },
1030         { "axbr", 0x4a, INSTR_RRE_FF },
1031         { "sxbr", 0x4b, INSTR_RRE_FF },
1032         { "mxbr", 0x4c, INSTR_RRE_FF },
1033         { "dxbr", 0x4d, INSTR_RRE_FF },
1034         { "tbedr", 0x50, INSTR_RRF_U0FF },
1035         { "tbdr", 0x51, INSTR_RRF_U0FF },
1036         { "diebr", 0x53, INSTR_RRF_FUFF },
1037         { { 0, LONG_INSN_FIEBRA }, 0x57, INSTR_RRF_UUFF },
1038         { "thder", 0x58, INSTR_RRE_FF },
1039         { "thdr", 0x59, INSTR_RRE_FF },
1040         { "didbr", 0x5b, INSTR_RRF_FUFF },
1041         { { 0, LONG_INSN_FIDBRA }, 0x5f, INSTR_RRF_UUFF },
1042         { "lpxr", 0x60, INSTR_RRE_FF },
1043         { "lnxr", 0x61, INSTR_RRE_FF },
1044         { "ltxr", 0x62, INSTR_RRE_FF },
1045         { "lcxr", 0x63, INSTR_RRE_FF },
1046         { "lxr", 0x65, INSTR_RRE_FF },
1047         { "lexr", 0x66, INSTR_RRE_FF },
1048         { "fixr", 0x67, INSTR_RRE_FF },
1049         { "cxr", 0x69, INSTR_RRE_FF },
1050         { "lzer", 0x74, INSTR_RRE_F0 },
1051         { "lzdr", 0x75, INSTR_RRE_F0 },
1052         { "lzxr", 0x76, INSTR_RRE_F0 },
1053         { "fier", 0x77, INSTR_RRE_FF },
1054         { "fidr", 0x7f, INSTR_RRE_FF },
1055         { "sfpc", 0x84, INSTR_RRE_RR_OPT },
1056         { "efpc", 0x8c, INSTR_RRE_RR_OPT },
1057         { "cefbr", 0x94, INSTR_RRE_RF },
1058         { "cdfbr", 0x95, INSTR_RRE_RF },
1059         { "cxfbr", 0x96, INSTR_RRE_RF },
1060         { "cfebr", 0x98, INSTR_RRF_U0RF },
1061         { "cfdbr", 0x99, INSTR_RRF_U0RF },
1062         { "cfxbr", 0x9a, INSTR_RRF_U0RF },
1063         { "cefr", 0xb4, INSTR_RRE_FR },
1064         { "cdfr", 0xb5, INSTR_RRE_FR },
1065         { "cxfr", 0xb6, INSTR_RRE_FR },
1066         { "cfer", 0xb8, INSTR_RRF_U0RF },
1067         { "cfdr", 0xb9, INSTR_RRF_U0RF },
1068         { "cfxr", 0xba, INSTR_RRF_U0RF },
1069         { "", 0, INSTR_INVALID }
1070 };
1071
1072 static struct s390_insn opcode_b9[] = {
1073         { "lpgr", 0x00, INSTR_RRE_RR },
1074         { "lngr", 0x01, INSTR_RRE_RR },
1075         { "ltgr", 0x02, INSTR_RRE_RR },
1076         { "lcgr", 0x03, INSTR_RRE_RR },
1077         { "lgr", 0x04, INSTR_RRE_RR },
1078         { "lurag", 0x05, INSTR_RRE_RR },
1079         { "lgbr", 0x06, INSTR_RRE_RR },
1080         { "lghr", 0x07, INSTR_RRE_RR },
1081         { "agr", 0x08, INSTR_RRE_RR },
1082         { "sgr", 0x09, INSTR_RRE_RR },
1083         { "algr", 0x0a, INSTR_RRE_RR },
1084         { "slgr", 0x0b, INSTR_RRE_RR },
1085         { "msgr", 0x0c, INSTR_RRE_RR },
1086         { "dsgr", 0x0d, INSTR_RRE_RR },
1087         { "eregg", 0x0e, INSTR_RRE_RR },
1088         { "lrvgr", 0x0f, INSTR_RRE_RR },
1089         { "lpgfr", 0x10, INSTR_RRE_RR },
1090         { "lngfr", 0x11, INSTR_RRE_RR },
1091         { "ltgfr", 0x12, INSTR_RRE_RR },
1092         { "lcgfr", 0x13, INSTR_RRE_RR },
1093         { "lgfr", 0x14, INSTR_RRE_RR },
1094         { "llgfr", 0x16, INSTR_RRE_RR },
1095         { "llgtr", 0x17, INSTR_RRE_RR },
1096         { "agfr", 0x18, INSTR_RRE_RR },
1097         { "sgfr", 0x19, INSTR_RRE_RR },
1098         { "algfr", 0x1a, INSTR_RRE_RR },
1099         { "slgfr", 0x1b, INSTR_RRE_RR },
1100         { "msgfr", 0x1c, INSTR_RRE_RR },
1101         { "dsgfr", 0x1d, INSTR_RRE_RR },
1102         { "cgr", 0x20, INSTR_RRE_RR },
1103         { "clgr", 0x21, INSTR_RRE_RR },
1104         { "sturg", 0x25, INSTR_RRE_RR },
1105         { "lbr", 0x26, INSTR_RRE_RR },
1106         { "lhr", 0x27, INSTR_RRE_RR },
1107         { "cgfr", 0x30, INSTR_RRE_RR },
1108         { "clgfr", 0x31, INSTR_RRE_RR },
1109         { "cfdtr", 0x41, INSTR_RRF_UURF },
1110         { { 0, LONG_INSN_CLGDTR }, 0x42, INSTR_RRF_UURF },
1111         { { 0, LONG_INSN_CLFDTR }, 0x43, INSTR_RRF_UURF },
1112         { "bctgr", 0x46, INSTR_RRE_RR },
1113         { "cfxtr", 0x49, INSTR_RRF_UURF },
1114         { { 0, LONG_INSN_CLGXTR }, 0x4a, INSTR_RRF_UUFR },
1115         { { 0, LONG_INSN_CLFXTR }, 0x4b, INSTR_RRF_UUFR },
1116         { "cdftr", 0x51, INSTR_RRF_UUFR },
1117         { { 0, LONG_INSN_CDLGTR }, 0x52, INSTR_RRF_UUFR },
1118         { { 0, LONG_INSN_CDLFTR }, 0x53, INSTR_RRF_UUFR },
1119         { "cxftr", 0x59, INSTR_RRF_UURF },
1120         { { 0, LONG_INSN_CXLGTR }, 0x5a, INSTR_RRF_UURF },
1121         { { 0, LONG_INSN_CXLFTR }, 0x5b, INSTR_RRF_UUFR },
1122         { "cgrt", 0x60, INSTR_RRF_U0RR },
1123         { "clgrt", 0x61, INSTR_RRF_U0RR },
1124         { "crt", 0x72, INSTR_RRF_U0RR },
1125         { "clrt", 0x73, INSTR_RRF_U0RR },
1126         { "ngr", 0x80, INSTR_RRE_RR },
1127         { "ogr", 0x81, INSTR_RRE_RR },
1128         { "xgr", 0x82, INSTR_RRE_RR },
1129         { "flogr", 0x83, INSTR_RRE_RR },
1130         { "llgcr", 0x84, INSTR_RRE_RR },
1131         { "llghr", 0x85, INSTR_RRE_RR },
1132         { "mlgr", 0x86, INSTR_RRE_RR },
1133         { "dlgr", 0x87, INSTR_RRE_RR },
1134         { "alcgr", 0x88, INSTR_RRE_RR },
1135         { "slbgr", 0x89, INSTR_RRE_RR },
1136         { "cspg", 0x8a, INSTR_RRE_RR },
1137         { "idte", 0x8e, INSTR_RRF_R0RR },
1138         { "crdte", 0x8f, INSTR_RRF_RMRR },
1139         { "llcr", 0x94, INSTR_RRE_RR },
1140         { "llhr", 0x95, INSTR_RRE_RR },
1141         { "esea", 0x9d, INSTR_RRE_R0 },
1142         { "ptf", 0xa2, INSTR_RRE_R0 },
1143         { "lptea", 0xaa, INSTR_RRF_RURR },
1144         { "rrbm", 0xae, INSTR_RRE_RR },
1145         { "pfmf", 0xaf, INSTR_RRE_RR },
1146         { "cu14", 0xb0, INSTR_RRF_M0RR },
1147         { "cu24", 0xb1, INSTR_RRF_M0RR },
1148         { "cu41", 0xb2, INSTR_RRE_RR },
1149         { "cu42", 0xb3, INSTR_RRE_RR },
1150         { "trtre", 0xbd, INSTR_RRF_M0RR },
1151         { "srstu", 0xbe, INSTR_RRE_RR },
1152         { "trte", 0xbf, INSTR_RRF_M0RR },
1153         { "ahhhr", 0xc8, INSTR_RRF_R0RR2 },
1154         { "shhhr", 0xc9, INSTR_RRF_R0RR2 },
1155         { { 0, LONG_INSN_ALHHHR }, 0xca, INSTR_RRF_R0RR2 },
1156         { { 0, LONG_INSN_SLHHHR }, 0xcb, INSTR_RRF_R0RR2 },
1157         { "chhr", 0xcd, INSTR_RRE_RR },
1158         { "clhhr", 0xcf, INSTR_RRE_RR },
1159         { { 0, LONG_INSN_PCISTG }, 0xd0, INSTR_RRE_RR },
1160         { "pcilg", 0xd2, INSTR_RRE_RR },
1161         { "rpcit", 0xd3, INSTR_RRE_RR },
1162         { "ahhlr", 0xd8, INSTR_RRF_R0RR2 },
1163         { "shhlr", 0xd9, INSTR_RRF_R0RR2 },
1164         { { 0, LONG_INSN_ALHHLR }, 0xda, INSTR_RRF_R0RR2 },
1165         { { 0, LONG_INSN_SLHHLR }, 0xdb, INSTR_RRF_R0RR2 },
1166         { "chlr", 0xdd, INSTR_RRE_RR },
1167         { "clhlr", 0xdf, INSTR_RRE_RR },
1168         { { 0, LONG_INSN_POPCNT }, 0xe1, INSTR_RRE_RR },
1169         { "locgr", 0xe2, INSTR_RRF_M0RR },
1170         { "ngrk", 0xe4, INSTR_RRF_R0RR2 },
1171         { "ogrk", 0xe6, INSTR_RRF_R0RR2 },
1172         { "xgrk", 0xe7, INSTR_RRF_R0RR2 },
1173         { "agrk", 0xe8, INSTR_RRF_R0RR2 },
1174         { "sgrk", 0xe9, INSTR_RRF_R0RR2 },
1175         { "algrk", 0xea, INSTR_RRF_R0RR2 },
1176         { "slgrk", 0xeb, INSTR_RRF_R0RR2 },
1177         { "locr", 0xf2, INSTR_RRF_M0RR },
1178         { "nrk", 0xf4, INSTR_RRF_R0RR2 },
1179         { "ork", 0xf6, INSTR_RRF_R0RR2 },
1180         { "xrk", 0xf7, INSTR_RRF_R0RR2 },
1181         { "ark", 0xf8, INSTR_RRF_R0RR2 },
1182         { "srk", 0xf9, INSTR_RRF_R0RR2 },
1183         { "alrk", 0xfa, INSTR_RRF_R0RR2 },
1184         { "slrk", 0xfb, INSTR_RRF_R0RR2 },
1185         { "kmac", 0x1e, INSTR_RRE_RR },
1186         { "lrvr", 0x1f, INSTR_RRE_RR },
1187         { "km", 0x2e, INSTR_RRE_RR },
1188         { "kmc", 0x2f, INSTR_RRE_RR },
1189         { "kimd", 0x3e, INSTR_RRE_RR },
1190         { "klmd", 0x3f, INSTR_RRE_RR },
1191         { "epsw", 0x8d, INSTR_RRE_RR },
1192         { "trtt", 0x90, INSTR_RRF_M0RR },
1193         { "trto", 0x91, INSTR_RRF_M0RR },
1194         { "trot", 0x92, INSTR_RRF_M0RR },
1195         { "troo", 0x93, INSTR_RRF_M0RR },
1196         { "mlr", 0x96, INSTR_RRE_RR },
1197         { "dlr", 0x97, INSTR_RRE_RR },
1198         { "alcr", 0x98, INSTR_RRE_RR },
1199         { "slbr", 0x99, INSTR_RRE_RR },
1200         { "", 0, INSTR_INVALID }
1201 };
1202
1203 static struct s390_insn opcode_c0[] = {
1204         { "lgfi", 0x01, INSTR_RIL_RI },
1205         { "xihf", 0x06, INSTR_RIL_RU },
1206         { "xilf", 0x07, INSTR_RIL_RU },
1207         { "iihf", 0x08, INSTR_RIL_RU },
1208         { "iilf", 0x09, INSTR_RIL_RU },
1209         { "nihf", 0x0a, INSTR_RIL_RU },
1210         { "nilf", 0x0b, INSTR_RIL_RU },
1211         { "oihf", 0x0c, INSTR_RIL_RU },
1212         { "oilf", 0x0d, INSTR_RIL_RU },
1213         { "llihf", 0x0e, INSTR_RIL_RU },
1214         { "llilf", 0x0f, INSTR_RIL_RU },
1215         { "larl", 0x00, INSTR_RIL_RP },
1216         { "brcl", 0x04, INSTR_RIL_UP },
1217         { "brasl", 0x05, INSTR_RIL_RP },
1218         { "", 0, INSTR_INVALID }
1219 };
1220
1221 static struct s390_insn opcode_c2[] = {
1222         { "msgfi", 0x00, INSTR_RIL_RI },
1223         { "msfi", 0x01, INSTR_RIL_RI },
1224         { "slgfi", 0x04, INSTR_RIL_RU },
1225         { "slfi", 0x05, INSTR_RIL_RU },
1226         { "agfi", 0x08, INSTR_RIL_RI },
1227         { "afi", 0x09, INSTR_RIL_RI },
1228         { "algfi", 0x0a, INSTR_RIL_RU },
1229         { "alfi", 0x0b, INSTR_RIL_RU },
1230         { "cgfi", 0x0c, INSTR_RIL_RI },
1231         { "cfi", 0x0d, INSTR_RIL_RI },
1232         { "clgfi", 0x0e, INSTR_RIL_RU },
1233         { "clfi", 0x0f, INSTR_RIL_RU },
1234         { "", 0, INSTR_INVALID }
1235 };
1236
1237 static struct s390_insn opcode_c4[] = {
1238         { "llhrl", 0x02, INSTR_RIL_RP },
1239         { "lghrl", 0x04, INSTR_RIL_RP },
1240         { "lhrl", 0x05, INSTR_RIL_RP },
1241         { { 0, LONG_INSN_LLGHRL }, 0x06, INSTR_RIL_RP },
1242         { "sthrl", 0x07, INSTR_RIL_RP },
1243         { "lgrl", 0x08, INSTR_RIL_RP },
1244         { "stgrl", 0x0b, INSTR_RIL_RP },
1245         { "lgfrl", 0x0c, INSTR_RIL_RP },
1246         { "lrl", 0x0d, INSTR_RIL_RP },
1247         { { 0, LONG_INSN_LLGFRL }, 0x0e, INSTR_RIL_RP },
1248         { "strl", 0x0f, INSTR_RIL_RP },
1249         { "", 0, INSTR_INVALID }
1250 };
1251
1252 static struct s390_insn opcode_c6[] = {
1253         { "exrl", 0x00, INSTR_RIL_RP },
1254         { "pfdrl", 0x02, INSTR_RIL_UP },
1255         { "cghrl", 0x04, INSTR_RIL_RP },
1256         { "chrl", 0x05, INSTR_RIL_RP },
1257         { { 0, LONG_INSN_CLGHRL }, 0x06, INSTR_RIL_RP },
1258         { "clhrl", 0x07, INSTR_RIL_RP },
1259         { "cgrl", 0x08, INSTR_RIL_RP },
1260         { "clgrl", 0x0a, INSTR_RIL_RP },
1261         { "cgfrl", 0x0c, INSTR_RIL_RP },
1262         { "crl", 0x0d, INSTR_RIL_RP },
1263         { { 0, LONG_INSN_CLGFRL }, 0x0e, INSTR_RIL_RP },
1264         { "clrl", 0x0f, INSTR_RIL_RP },
1265         { "", 0, INSTR_INVALID }
1266 };
1267
1268 static struct s390_insn opcode_c8[] = {
1269         { "mvcos", 0x00, INSTR_SSF_RRDRD },
1270         { "ectg", 0x01, INSTR_SSF_RRDRD },
1271         { "csst", 0x02, INSTR_SSF_RRDRD },
1272         { "lpd", 0x04, INSTR_SSF_RRDRD2 },
1273         { "lpdg", 0x05, INSTR_SSF_RRDRD2 },
1274         { "", 0, INSTR_INVALID }
1275 };
1276
1277 static struct s390_insn opcode_cc[] = {
1278         { "brcth", 0x06, INSTR_RIL_RP },
1279         { "aih", 0x08, INSTR_RIL_RI },
1280         { "alsih", 0x0a, INSTR_RIL_RI },
1281         { { 0, LONG_INSN_ALSIHN }, 0x0b, INSTR_RIL_RI },
1282         { "cih", 0x0d, INSTR_RIL_RI },
1283         { "clih", 0x0f, INSTR_RIL_RI },
1284         { "", 0, INSTR_INVALID }
1285 };
1286
1287 static struct s390_insn opcode_e3[] = {
1288         { "ltg", 0x02, INSTR_RXY_RRRD },
1289         { "lrag", 0x03, INSTR_RXY_RRRD },
1290         { "lg", 0x04, INSTR_RXY_RRRD },
1291         { "cvby", 0x06, INSTR_RXY_RRRD },
1292         { "ag", 0x08, INSTR_RXY_RRRD },
1293         { "sg", 0x09, INSTR_RXY_RRRD },
1294         { "alg", 0x0a, INSTR_RXY_RRRD },
1295         { "slg", 0x0b, INSTR_RXY_RRRD },
1296         { "msg", 0x0c, INSTR_RXY_RRRD },
1297         { "dsg", 0x0d, INSTR_RXY_RRRD },
1298         { "cvbg", 0x0e, INSTR_RXY_RRRD },
1299         { "lrvg", 0x0f, INSTR_RXY_RRRD },
1300         { "lt", 0x12, INSTR_RXY_RRRD },
1301         { "lray", 0x13, INSTR_RXY_RRRD },
1302         { "lgf", 0x14, INSTR_RXY_RRRD },
1303         { "lgh", 0x15, INSTR_RXY_RRRD },
1304         { "llgf", 0x16, INSTR_RXY_RRRD },
1305         { "llgt", 0x17, INSTR_RXY_RRRD },
1306         { "agf", 0x18, INSTR_RXY_RRRD },
1307         { "sgf", 0x19, INSTR_RXY_RRRD },
1308         { "algf", 0x1a, INSTR_RXY_RRRD },
1309         { "slgf", 0x1b, INSTR_RXY_RRRD },
1310         { "msgf", 0x1c, INSTR_RXY_RRRD },
1311         { "dsgf", 0x1d, INSTR_RXY_RRRD },
1312         { "cg", 0x20, INSTR_RXY_RRRD },
1313         { "clg", 0x21, INSTR_RXY_RRRD },
1314         { "stg", 0x24, INSTR_RXY_RRRD },
1315         { "ntstg", 0x25, INSTR_RXY_RRRD },
1316         { "cvdy", 0x26, INSTR_RXY_RRRD },
1317         { "cvdg", 0x2e, INSTR_RXY_RRRD },
1318         { "strvg", 0x2f, INSTR_RXY_RRRD },
1319         { "cgf", 0x30, INSTR_RXY_RRRD },
1320         { "clgf", 0x31, INSTR_RXY_RRRD },
1321         { "ltgf", 0x32, INSTR_RXY_RRRD },
1322         { "cgh", 0x34, INSTR_RXY_RRRD },
1323         { "pfd", 0x36, INSTR_RXY_URRD },
1324         { "strvh", 0x3f, INSTR_RXY_RRRD },
1325         { "bctg", 0x46, INSTR_RXY_RRRD },
1326         { "sty", 0x50, INSTR_RXY_RRRD },
1327         { "msy", 0x51, INSTR_RXY_RRRD },
1328         { "ny", 0x54, INSTR_RXY_RRRD },
1329         { "cly", 0x55, INSTR_RXY_RRRD },
1330         { "oy", 0x56, INSTR_RXY_RRRD },
1331         { "xy", 0x57, INSTR_RXY_RRRD },
1332         { "ly", 0x58, INSTR_RXY_RRRD },
1333         { "cy", 0x59, INSTR_RXY_RRRD },
1334         { "ay", 0x5a, INSTR_RXY_RRRD },
1335         { "sy", 0x5b, INSTR_RXY_RRRD },
1336         { "mfy", 0x5c, INSTR_RXY_RRRD },
1337         { "aly", 0x5e, INSTR_RXY_RRRD },
1338         { "sly", 0x5f, INSTR_RXY_RRRD },
1339         { "sthy", 0x70, INSTR_RXY_RRRD },
1340         { "lay", 0x71, INSTR_RXY_RRRD },
1341         { "stcy", 0x72, INSTR_RXY_RRRD },
1342         { "icy", 0x73, INSTR_RXY_RRRD },
1343         { "laey", 0x75, INSTR_RXY_RRRD },
1344         { "lb", 0x76, INSTR_RXY_RRRD },
1345         { "lgb", 0x77, INSTR_RXY_RRRD },
1346         { "lhy", 0x78, INSTR_RXY_RRRD },
1347         { "chy", 0x79, INSTR_RXY_RRRD },
1348         { "ahy", 0x7a, INSTR_RXY_RRRD },
1349         { "shy", 0x7b, INSTR_RXY_RRRD },
1350         { "mhy", 0x7c, INSTR_RXY_RRRD },
1351         { "ng", 0x80, INSTR_RXY_RRRD },
1352         { "og", 0x81, INSTR_RXY_RRRD },
1353         { "xg", 0x82, INSTR_RXY_RRRD },
1354         { "lgat", 0x85, INSTR_RXY_RRRD },
1355         { "mlg", 0x86, INSTR_RXY_RRRD },
1356         { "dlg", 0x87, INSTR_RXY_RRRD },
1357         { "alcg", 0x88, INSTR_RXY_RRRD },
1358         { "slbg", 0x89, INSTR_RXY_RRRD },
1359         { "stpq", 0x8e, INSTR_RXY_RRRD },
1360         { "lpq", 0x8f, INSTR_RXY_RRRD },
1361         { "llgc", 0x90, INSTR_RXY_RRRD },
1362         { "llgh", 0x91, INSTR_RXY_RRRD },
1363         { "llc", 0x94, INSTR_RXY_RRRD },
1364         { "llh", 0x95, INSTR_RXY_RRRD },
1365         { { 0, LONG_INSN_LLGTAT }, 0x9c, INSTR_RXY_RRRD },
1366         { { 0, LONG_INSN_LLGFAT }, 0x9d, INSTR_RXY_RRRD },
1367         { "lat", 0x9f, INSTR_RXY_RRRD },
1368         { "lbh", 0xc0, INSTR_RXY_RRRD },
1369         { "llch", 0xc2, INSTR_RXY_RRRD },
1370         { "stch", 0xc3, INSTR_RXY_RRRD },
1371         { "lhh", 0xc4, INSTR_RXY_RRRD },
1372         { "llhh", 0xc6, INSTR_RXY_RRRD },
1373         { "sthh", 0xc7, INSTR_RXY_RRRD },
1374         { "lfhat", 0xc8, INSTR_RXY_RRRD },
1375         { "lfh", 0xca, INSTR_RXY_RRRD },
1376         { "stfh", 0xcb, INSTR_RXY_RRRD },
1377         { "chf", 0xcd, INSTR_RXY_RRRD },
1378         { "clhf", 0xcf, INSTR_RXY_RRRD },
1379         { { 0, LONG_INSN_MPCIFC }, 0xd0, INSTR_RXY_RRRD },
1380         { { 0, LONG_INSN_STPCIFC }, 0xd4, INSTR_RXY_RRRD },
1381         { "lrv", 0x1e, INSTR_RXY_RRRD },
1382         { "lrvh", 0x1f, INSTR_RXY_RRRD },
1383         { "strv", 0x3e, INSTR_RXY_RRRD },
1384         { "ml", 0x96, INSTR_RXY_RRRD },
1385         { "dl", 0x97, INSTR_RXY_RRRD },
1386         { "alc", 0x98, INSTR_RXY_RRRD },
1387         { "slb", 0x99, INSTR_RXY_RRRD },
1388         { "", 0, INSTR_INVALID }
1389 };
1390
1391 static struct s390_insn opcode_e5[] = {
1392         { "strag", 0x02, INSTR_SSE_RDRD },
1393         { "mvhhi", 0x44, INSTR_SIL_RDI },
1394         { "mvghi", 0x48, INSTR_SIL_RDI },
1395         { "mvhi", 0x4c, INSTR_SIL_RDI },
1396         { "chhsi", 0x54, INSTR_SIL_RDI },
1397         { { 0, LONG_INSN_CLHHSI }, 0x55, INSTR_SIL_RDU },
1398         { "cghsi", 0x58, INSTR_SIL_RDI },
1399         { { 0, LONG_INSN_CLGHSI }, 0x59, INSTR_SIL_RDU },
1400         { "chsi", 0x5c, INSTR_SIL_RDI },
1401         { { 0, LONG_INSN_CLFHSI }, 0x5d, INSTR_SIL_RDU },
1402         { { 0, LONG_INSN_TBEGIN }, 0x60, INSTR_SIL_RDU },
1403         { { 0, LONG_INSN_TBEGINC }, 0x61, INSTR_SIL_RDU },
1404         { "lasp", 0x00, INSTR_SSE_RDRD },
1405         { "tprot", 0x01, INSTR_SSE_RDRD },
1406         { "mvcsk", 0x0e, INSTR_SSE_RDRD },
1407         { "mvcdk", 0x0f, INSTR_SSE_RDRD },
1408         { "", 0, INSTR_INVALID }
1409 };
1410
1411 static struct s390_insn opcode_e7[] = {
1412         { "lcbb", 0x27, INSTR_RXE_RRRDM },
1413         { "vgef", 0x13, INSTR_VRV_VVRDM },
1414         { "vgeg", 0x12, INSTR_VRV_VVRDM },
1415         { "vgbm", 0x44, INSTR_VRI_V0I0 },
1416         { "vgm", 0x46, INSTR_VRI_V0IIM },
1417         { "vl", 0x06, INSTR_VRX_VRRD0 },
1418         { "vlr", 0x56, INSTR_VRR_VV00000 },
1419         { "vlrp", 0x05, INSTR_VRX_VRRDM },
1420         { "vleb", 0x00, INSTR_VRX_VRRDM },
1421         { "vleh", 0x01, INSTR_VRX_VRRDM },
1422         { "vlef", 0x03, INSTR_VRX_VRRDM },
1423         { "vleg", 0x02, INSTR_VRX_VRRDM },
1424         { "vleib", 0x40, INSTR_VRI_V0IM },
1425         { "vleih", 0x41, INSTR_VRI_V0IM },
1426         { "vleif", 0x43, INSTR_VRI_V0IM },
1427         { "vleig", 0x42, INSTR_VRI_V0IM },
1428         { "vlgv", 0x21, INSTR_VRS_RVRDM },
1429         { "vllez", 0x04, INSTR_VRX_VRRDM },
1430         { "vlm", 0x36, INSTR_VRS_VVRD0 },
1431         { "vlbb", 0x07, INSTR_VRX_VRRDM },
1432         { "vlvg", 0x22, INSTR_VRS_VRRDM },
1433         { "vlvgp", 0x62, INSTR_VRR_VRR0000 },
1434         { "vll", 0x37, INSTR_VRS_VRRD0 },
1435         { "vmrh", 0x61, INSTR_VRR_VVV000M },
1436         { "vmrl", 0x60, INSTR_VRR_VVV000M },
1437         { "vpk", 0x94, INSTR_VRR_VVV000M },
1438         { "vpks", 0x97, INSTR_VRR_VVV0M0M },
1439         { "vpkls", 0x95, INSTR_VRR_VVV0M0M },
1440         { "vperm", 0x8c, INSTR_VRR_VVV000V },
1441         { "vpdi", 0x84, INSTR_VRR_VVV000M },
1442         { "vrep", 0x4d, INSTR_VRI_VVIM },
1443         { "vrepi", 0x45, INSTR_VRI_V0IM },
1444         { "vscef", 0x1b, INSTR_VRV_VWRDM },
1445         { "vsceg", 0x1a, INSTR_VRV_VWRDM },
1446         { "vsel", 0x8d, INSTR_VRR_VVV000V },
1447         { "vseg", 0x5f, INSTR_VRR_VV0000M },
1448         { "vst", 0x0e, INSTR_VRX_VRRD0 },
1449         { "vsteb", 0x08, INSTR_VRX_VRRDM },
1450         { "vsteh", 0x09, INSTR_VRX_VRRDM },
1451         { "vstef", 0x0b, INSTR_VRX_VRRDM },
1452         { "vsteg", 0x0a, INSTR_VRX_VRRDM },
1453         { "vstm", 0x3e, INSTR_VRS_VVRD0 },
1454         { "vstl", 0x3f, INSTR_VRS_VRRD0 },
1455         { "vuph", 0xd7, INSTR_VRR_VV0000M },
1456         { "vuplh", 0xd5, INSTR_VRR_VV0000M },
1457         { "vupl", 0xd6, INSTR_VRR_VV0000M },
1458         { "vupll", 0xd4, INSTR_VRR_VV0000M },
1459         { "va", 0xf3, INSTR_VRR_VVV000M },
1460         { "vacc", 0xf1, INSTR_VRR_VVV000M },
1461         { "vac", 0xbb, INSTR_VRR_VVVM00V },
1462         { "vaccc", 0xb9, INSTR_VRR_VVVM00V },
1463         { "vn", 0x68, INSTR_VRR_VVV0000 },
1464         { "vnc", 0x69, INSTR_VRR_VVV0000 },
1465         { "vavg", 0xf2, INSTR_VRR_VVV000M },
1466         { "vavgl", 0xf0, INSTR_VRR_VVV000M },
1467         { "vcksm", 0x66, INSTR_VRR_VVV0000 },
1468         { "vec", 0xdb, INSTR_VRR_VV0000M },
1469         { "vecl", 0xd9, INSTR_VRR_VV0000M },
1470         { "vceq", 0xf8, INSTR_VRR_VVV0M0M },
1471         { "vch", 0xfb, INSTR_VRR_VVV0M0M },
1472         { "vchl", 0xf9, INSTR_VRR_VVV0M0M },
1473         { "vclz", 0x53, INSTR_VRR_VV0000M },
1474         { "vctz", 0x52, INSTR_VRR_VV0000M },
1475         { "vx", 0x6d, INSTR_VRR_VVV0000 },
1476         { "vgfm", 0xb4, INSTR_VRR_VVV000M },
1477         { "vgfma", 0xbc, INSTR_VRR_VVVM00V },
1478         { "vlc", 0xde, INSTR_VRR_VV0000M },
1479         { "vlp", 0xdf, INSTR_VRR_VV0000M },
1480         { "vmx", 0xff, INSTR_VRR_VVV000M },
1481         { "vmxl", 0xfd, INSTR_VRR_VVV000M },
1482         { "vmn", 0xfe, INSTR_VRR_VVV000M },
1483         { "vmnl", 0xfc, INSTR_VRR_VVV000M },
1484         { "vmal", 0xaa, INSTR_VRR_VVVM00V },
1485         { "vmae", 0xae, INSTR_VRR_VVVM00V },
1486         { "vmale", 0xac, INSTR_VRR_VVVM00V },
1487         { "vmah", 0xab, INSTR_VRR_VVVM00V },
1488         { "vmalh", 0xa9, INSTR_VRR_VVVM00V },
1489         { "vmao", 0xaf, INSTR_VRR_VVVM00V },
1490         { "vmalo", 0xad, INSTR_VRR_VVVM00V },
1491         { "vmh", 0xa3, INSTR_VRR_VVV000M },
1492         { "vmlh", 0xa1, INSTR_VRR_VVV000M },
1493         { "vml", 0xa2, INSTR_VRR_VVV000M },
1494         { "vme", 0xa6, INSTR_VRR_VVV000M },
1495         { "vmle", 0xa4, INSTR_VRR_VVV000M },
1496         { "vmo", 0xa7, INSTR_VRR_VVV000M },
1497         { "vmlo", 0xa5, INSTR_VRR_VVV000M },
1498         { "vno", 0x6b, INSTR_VRR_VVV0000 },
1499         { "vo", 0x6a, INSTR_VRR_VVV0000 },
1500         { { 0, LONG_INSN_VPOPCT }, 0x50, INSTR_VRR_VV0000M },
1501         { { 0, LONG_INSN_VERLLV }, 0x73, INSTR_VRR_VVV000M },
1502         { "verll", 0x33, INSTR_VRS_VVRDM },
1503         { "verim", 0x72, INSTR_VRI_VVV0IM },
1504         { "veslv", 0x70, INSTR_VRR_VVV000M },
1505         { "vesl", 0x30, INSTR_VRS_VVRDM },
1506         { { 0, LONG_INSN_VESRAV }, 0x7a, INSTR_VRR_VVV000M },
1507         { "vesra", 0x3a, INSTR_VRS_VVRDM },
1508         { { 0, LONG_INSN_VESRLV }, 0x78, INSTR_VRR_VVV000M },
1509         { "vesrl", 0x38, INSTR_VRS_VVRDM },
1510         { "vsl", 0x74, INSTR_VRR_VVV0000 },
1511         { "vslb", 0x75, INSTR_VRR_VVV0000 },
1512         { "vsldb", 0x77, INSTR_VRI_VVV0I0 },
1513         { "vsra", 0x7e, INSTR_VRR_VVV0000 },
1514         { "vsrab", 0x7f, INSTR_VRR_VVV0000 },
1515         { "vsrl", 0x7c, INSTR_VRR_VVV0000 },
1516         { "vsrlb", 0x7d, INSTR_VRR_VVV0000 },
1517         { "vs", 0xf7, INSTR_VRR_VVV000M },
1518         { "vscb", 0xf5, INSTR_VRR_VVV000M },
1519         { "vsb", 0xbf, INSTR_VRR_VVVM00V },
1520         { { 0, LONG_INSN_VSBCBI }, 0xbd, INSTR_VRR_VVVM00V },
1521         { "vsumg", 0x65, INSTR_VRR_VVV000M },
1522         { "vsumq", 0x67, INSTR_VRR_VVV000M },
1523         { "vsum", 0x64, INSTR_VRR_VVV000M },
1524         { "vtm", 0xd8, INSTR_VRR_VV00000 },
1525         { "vfae", 0x82, INSTR_VRR_VVV0M0M },
1526         { "vfee", 0x80, INSTR_VRR_VVV0M0M },
1527         { "vfene", 0x81, INSTR_VRR_VVV0M0M },
1528         { "vistr", 0x5c, INSTR_VRR_VV00M0M },
1529         { "vstrc", 0x8a, INSTR_VRR_VVVMM0V },
1530         { "vfa", 0xe3, INSTR_VRR_VVV00MM },
1531         { "wfc", 0xcb, INSTR_VRR_VV000MM },
1532         { "wfk", 0xca, INSTR_VRR_VV000MM },
1533         { "vfce", 0xe8, INSTR_VRR_VVV0MMM },
1534         { "vfch", 0xeb, INSTR_VRR_VVV0MMM },
1535         { "vfche", 0xea, INSTR_VRR_VVV0MMM },
1536         { "vcdg", 0xc3, INSTR_VRR_VV00MMM },
1537         { "vcdlg", 0xc1, INSTR_VRR_VV00MMM },
1538         { "vcgd", 0xc2, INSTR_VRR_VV00MMM },
1539         { "vclgd", 0xc0, INSTR_VRR_VV00MMM },
1540         { "vfd", 0xe5, INSTR_VRR_VVV00MM },
1541         { "vfi", 0xc7, INSTR_VRR_VV00MMM },
1542         { "vlde", 0xc4, INSTR_VRR_VV000MM },
1543         { "vled", 0xc5, INSTR_VRR_VV00MMM },
1544         { "vfm", 0xe7, INSTR_VRR_VVV00MM },
1545         { "vfma", 0x8f, INSTR_VRR_VVVM0MV },
1546         { "vfms", 0x8e, INSTR_VRR_VVVM0MV },
1547         { "vfpso", 0xcc, INSTR_VRR_VV00MMM },
1548         { "vfsq", 0xce, INSTR_VRR_VV000MM },
1549         { "vfs", 0xe2, INSTR_VRR_VVV00MM },
1550         { "vftci", 0x4a, INSTR_VRI_VVIMM },
1551 };
1552
1553 static struct s390_insn opcode_eb[] = {
1554         { "lmg", 0x04, INSTR_RSY_RRRD },
1555         { "srag", 0x0a, INSTR_RSY_RRRD },
1556         { "slag", 0x0b, INSTR_RSY_RRRD },
1557         { "srlg", 0x0c, INSTR_RSY_RRRD },
1558         { "sllg", 0x0d, INSTR_RSY_RRRD },
1559         { "tracg", 0x0f, INSTR_RSY_RRRD },
1560         { "csy", 0x14, INSTR_RSY_RRRD },
1561         { "rllg", 0x1c, INSTR_RSY_RRRD },
1562         { "clmh", 0x20, INSTR_RSY_RURD },
1563         { "clmy", 0x21, INSTR_RSY_RURD },
1564         { "clt", 0x23, INSTR_RSY_RURD },
1565         { "stmg", 0x24, INSTR_RSY_RRRD },
1566         { "stctg", 0x25, INSTR_RSY_CCRD },
1567         { "stmh", 0x26, INSTR_RSY_RRRD },
1568         { "clgt", 0x2b, INSTR_RSY_RURD },
1569         { "stcmh", 0x2c, INSTR_RSY_RURD },
1570         { "stcmy", 0x2d, INSTR_RSY_RURD },
1571         { "lctlg", 0x2f, INSTR_RSY_CCRD },
1572         { "csg", 0x30, INSTR_RSY_RRRD },
1573         { "cdsy", 0x31, INSTR_RSY_RRRD },
1574         { "cdsg", 0x3e, INSTR_RSY_RRRD },
1575         { "bxhg", 0x44, INSTR_RSY_RRRD },
1576         { "bxleg", 0x45, INSTR_RSY_RRRD },
1577         { "ecag", 0x4c, INSTR_RSY_RRRD },
1578         { "tmy", 0x51, INSTR_SIY_URD },
1579         { "mviy", 0x52, INSTR_SIY_URD },
1580         { "niy", 0x54, INSTR_SIY_URD },
1581         { "cliy", 0x55, INSTR_SIY_URD },
1582         { "oiy", 0x56, INSTR_SIY_URD },
1583         { "xiy", 0x57, INSTR_SIY_URD },
1584         { "asi", 0x6a, INSTR_SIY_IRD },
1585         { "alsi", 0x6e, INSTR_SIY_IRD },
1586         { "agsi", 0x7a, INSTR_SIY_IRD },
1587         { "algsi", 0x7e, INSTR_SIY_IRD },
1588         { "icmh", 0x80, INSTR_RSY_RURD },
1589         { "icmy", 0x81, INSTR_RSY_RURD },
1590         { "clclu", 0x8f, INSTR_RSY_RRRD },
1591         { "stmy", 0x90, INSTR_RSY_RRRD },
1592         { "lmh", 0x96, INSTR_RSY_RRRD },
1593         { "lmy", 0x98, INSTR_RSY_RRRD },
1594         { "lamy", 0x9a, INSTR_RSY_AARD },
1595         { "stamy", 0x9b, INSTR_RSY_AARD },
1596         { { 0, LONG_INSN_PCISTB }, 0xd0, INSTR_RSY_RRRD },
1597         { "sic", 0xd1, INSTR_RSY_RRRD },
1598         { "srak", 0xdc, INSTR_RSY_RRRD },
1599         { "slak", 0xdd, INSTR_RSY_RRRD },
1600         { "srlk", 0xde, INSTR_RSY_RRRD },
1601         { "sllk", 0xdf, INSTR_RSY_RRRD },
1602         { "locg", 0xe2, INSTR_RSY_RDRM },
1603         { "stocg", 0xe3, INSTR_RSY_RDRM },
1604         { "lang", 0xe4, INSTR_RSY_RRRD },
1605         { "laog", 0xe6, INSTR_RSY_RRRD },
1606         { "laxg", 0xe7, INSTR_RSY_RRRD },
1607         { "laag", 0xe8, INSTR_RSY_RRRD },
1608         { "laalg", 0xea, INSTR_RSY_RRRD },
1609         { "loc", 0xf2, INSTR_RSY_RDRM },
1610         { "stoc", 0xf3, INSTR_RSY_RDRM },
1611         { "lan", 0xf4, INSTR_RSY_RRRD },
1612         { "lao", 0xf6, INSTR_RSY_RRRD },
1613         { "lax", 0xf7, INSTR_RSY_RRRD },
1614         { "laa", 0xf8, INSTR_RSY_RRRD },
1615         { "laal", 0xfa, INSTR_RSY_RRRD },
1616         { "lric", 0x60, INSTR_RSY_RDRM },
1617         { "stric", 0x61, INSTR_RSY_RDRM },
1618         { "mric", 0x62, INSTR_RSY_RDRM },
1619         { { 0, LONG_INSN_STCCTM }, 0x17, INSTR_RSY_RMRD },
1620         { "rll", 0x1d, INSTR_RSY_RRRD },
1621         { "mvclu", 0x8e, INSTR_RSY_RRRD },
1622         { "tp", 0xc0, INSTR_RSL_R0RD },
1623         { "", 0, INSTR_INVALID }
1624 };
1625
1626 static struct s390_insn opcode_ec[] = {
1627         { "brxhg", 0x44, INSTR_RIE_RRP },
1628         { "brxlg", 0x45, INSTR_RIE_RRP },
1629         { { 0, LONG_INSN_RISBLG }, 0x51, INSTR_RIE_RRUUU },
1630         { "rnsbg", 0x54, INSTR_RIE_RRUUU },
1631         { "risbg", 0x55, INSTR_RIE_RRUUU },
1632         { "rosbg", 0x56, INSTR_RIE_RRUUU },
1633         { "rxsbg", 0x57, INSTR_RIE_RRUUU },
1634         { { 0, LONG_INSN_RISBGN }, 0x59, INSTR_RIE_RRUUU },
1635         { { 0, LONG_INSN_RISBHG }, 0x5D, INSTR_RIE_RRUUU },
1636         { "cgrj", 0x64, INSTR_RIE_RRPU },
1637         { "clgrj", 0x65, INSTR_RIE_RRPU },
1638         { "cgit", 0x70, INSTR_RIE_R0IU },
1639         { "clgit", 0x71, INSTR_RIE_R0UU },
1640         { "cit", 0x72, INSTR_RIE_R0IU },
1641         { "clfit", 0x73, INSTR_RIE_R0UU },
1642         { "crj", 0x76, INSTR_RIE_RRPU },
1643         { "clrj", 0x77, INSTR_RIE_RRPU },
1644         { "cgij", 0x7c, INSTR_RIE_RUPI },
1645         { "clgij", 0x7d, INSTR_RIE_RUPU },
1646         { "cij", 0x7e, INSTR_RIE_RUPI },
1647         { "clij", 0x7f, INSTR_RIE_RUPU },
1648         { "ahik", 0xd8, INSTR_RIE_RRI0 },
1649         { "aghik", 0xd9, INSTR_RIE_RRI0 },
1650         { { 0, LONG_INSN_ALHSIK }, 0xda, INSTR_RIE_RRI0 },
1651         { { 0, LONG_INSN_ALGHSIK }, 0xdb, INSTR_RIE_RRI0 },
1652         { "cgrb", 0xe4, INSTR_RRS_RRRDU },
1653         { "clgrb", 0xe5, INSTR_RRS_RRRDU },
1654         { "crb", 0xf6, INSTR_RRS_RRRDU },
1655         { "clrb", 0xf7, INSTR_RRS_RRRDU },
1656         { "cgib", 0xfc, INSTR_RIS_RURDI },
1657         { "clgib", 0xfd, INSTR_RIS_RURDU },
1658         { "cib", 0xfe, INSTR_RIS_RURDI },
1659         { "clib", 0xff, INSTR_RIS_RURDU },
1660         { "", 0, INSTR_INVALID }
1661 };
1662
1663 static struct s390_insn opcode_ed[] = {
1664         { "mayl", 0x38, INSTR_RXF_FRRDF },
1665         { "myl", 0x39, INSTR_RXF_FRRDF },
1666         { "may", 0x3a, INSTR_RXF_FRRDF },
1667         { "my", 0x3b, INSTR_RXF_FRRDF },
1668         { "mayh", 0x3c, INSTR_RXF_FRRDF },
1669         { "myh", 0x3d, INSTR_RXF_FRRDF },
1670         { "sldt", 0x40, INSTR_RXF_FRRDF },
1671         { "srdt", 0x41, INSTR_RXF_FRRDF },
1672         { "slxt", 0x48, INSTR_RXF_FRRDF },
1673         { "srxt", 0x49, INSTR_RXF_FRRDF },
1674         { "tdcet", 0x50, INSTR_RXE_FRRD },
1675         { "tdget", 0x51, INSTR_RXE_FRRD },
1676         { "tdcdt", 0x54, INSTR_RXE_FRRD },
1677         { "tdgdt", 0x55, INSTR_RXE_FRRD },
1678         { "tdcxt", 0x58, INSTR_RXE_FRRD },
1679         { "tdgxt", 0x59, INSTR_RXE_FRRD },
1680         { "ley", 0x64, INSTR_RXY_FRRD },
1681         { "ldy", 0x65, INSTR_RXY_FRRD },
1682         { "stey", 0x66, INSTR_RXY_FRRD },
1683         { "stdy", 0x67, INSTR_RXY_FRRD },
1684         { "czdt", 0xa8, INSTR_RSL_LRDFU },
1685         { "czxt", 0xa9, INSTR_RSL_LRDFU },
1686         { "cdzt", 0xaa, INSTR_RSL_LRDFU },
1687         { "cxzt", 0xab, INSTR_RSL_LRDFU },
1688         { "ldeb", 0x04, INSTR_RXE_FRRD },
1689         { "lxdb", 0x05, INSTR_RXE_FRRD },
1690         { "lxeb", 0x06, INSTR_RXE_FRRD },
1691         { "mxdb", 0x07, INSTR_RXE_FRRD },
1692         { "keb", 0x08, INSTR_RXE_FRRD },
1693         { "ceb", 0x09, INSTR_RXE_FRRD },
1694         { "aeb", 0x0a, INSTR_RXE_FRRD },
1695         { "seb", 0x0b, INSTR_RXE_FRRD },
1696         { "mdeb", 0x0c, INSTR_RXE_FRRD },
1697         { "deb", 0x0d, INSTR_RXE_FRRD },
1698         { "maeb", 0x0e, INSTR_RXF_FRRDF },
1699         { "mseb", 0x0f, INSTR_RXF_FRRDF },
1700         { "tceb", 0x10, INSTR_RXE_FRRD },
1701         { "tcdb", 0x11, INSTR_RXE_FRRD },
1702         { "tcxb", 0x12, INSTR_RXE_FRRD },
1703         { "sqeb", 0x14, INSTR_RXE_FRRD },
1704         { "sqdb", 0x15, INSTR_RXE_FRRD },
1705         { "meeb", 0x17, INSTR_RXE_FRRD },
1706         { "kdb", 0x18, INSTR_RXE_FRRD },
1707         { "cdb", 0x19, INSTR_RXE_FRRD },
1708         { "adb", 0x1a, INSTR_RXE_FRRD },
1709         { "sdb", 0x1b, INSTR_RXE_FRRD },
1710         { "mdb", 0x1c, INSTR_RXE_FRRD },
1711         { "ddb", 0x1d, INSTR_RXE_FRRD },
1712         { "madb", 0x1e, INSTR_RXF_FRRDF },
1713         { "msdb", 0x1f, INSTR_RXF_FRRDF },
1714         { "lde", 0x24, INSTR_RXE_FRRD },
1715         { "lxd", 0x25, INSTR_RXE_FRRD },
1716         { "lxe", 0x26, INSTR_RXE_FRRD },
1717         { "mae", 0x2e, INSTR_RXF_FRRDF },
1718         { "mse", 0x2f, INSTR_RXF_FRRDF },
1719         { "sqe", 0x34, INSTR_RXE_FRRD },
1720         { "sqd", 0x35, INSTR_RXE_FRRD },
1721         { "mee", 0x37, INSTR_RXE_FRRD },
1722         { "mad", 0x3e, INSTR_RXF_FRRDF },
1723         { "msd", 0x3f, INSTR_RXF_FRRDF },
1724         { "", 0, INSTR_INVALID }
1725 };
1726
1727 /* Extracts an operand value from an instruction.  */
1728 static unsigned int extract_operand(unsigned char *code,
1729                                     const struct s390_operand *operand)
1730 {
1731         unsigned char *cp;
1732         unsigned int val;
1733         int bits;
1734
1735         /* Extract fragments of the operand byte for byte.  */
1736         cp = code + operand->shift / 8;
1737         bits = (operand->shift & 7) + operand->bits;
1738         val = 0;
1739         do {
1740                 val <<= 8;
1741                 val |= (unsigned int) *cp++;
1742                 bits -= 8;
1743         } while (bits > 0);
1744         val >>= -bits;
1745         val &= ((1U << (operand->bits - 1)) << 1) - 1;
1746
1747         /* Check for special long displacement case.  */
1748         if (operand->bits == 20 && operand->shift == 20)
1749                 val = (val & 0xff) << 12 | (val & 0xfff00) >> 8;
1750
1751         /* Check for register extensions bits for vector registers. */
1752         if (operand->flags & OPERAND_VR) {
1753                 if (operand->shift == 8)
1754                         val |= (code[4] & 8) << 1;
1755                 else if (operand->shift == 12)
1756                         val |= (code[4] & 4) << 2;
1757                 else if (operand->shift == 16)
1758                         val |= (code[4] & 2) << 3;
1759                 else if (operand->shift == 32)
1760                         val |= (code[4] & 1) << 4;
1761         }
1762
1763         /* Sign extend value if the operand is signed or pc relative.  */
1764         if ((operand->flags & (OPERAND_SIGNED | OPERAND_PCREL)) &&
1765             (val & (1U << (operand->bits - 1))))
1766                 val |= (-1U << (operand->bits - 1)) << 1;
1767
1768         /* Double value if the operand is pc relative.  */
1769         if (operand->flags & OPERAND_PCREL)
1770                 val <<= 1;
1771
1772         /* Length x in an instructions has real length x + 1.  */
1773         if (operand->flags & OPERAND_LENGTH)
1774                 val++;
1775         return val;
1776 }
1777
1778 struct s390_insn *find_insn(unsigned char *code)
1779 {
1780         unsigned char opfrag = code[1];
1781         unsigned char opmask;
1782         struct s390_insn *table;
1783
1784         switch (code[0]) {
1785         case 0x01:
1786                 table = opcode_01;
1787                 break;
1788         case 0xa5:
1789                 table = opcode_a5;
1790                 break;
1791         case 0xa7:
1792                 table = opcode_a7;
1793                 break;
1794         case 0xaa:
1795                 table = opcode_aa;
1796                 break;
1797         case 0xb2:
1798                 table = opcode_b2;
1799                 break;
1800         case 0xb3:
1801                 table = opcode_b3;
1802                 break;
1803         case 0xb9:
1804                 table = opcode_b9;
1805                 break;
1806         case 0xc0:
1807                 table = opcode_c0;
1808                 break;
1809         case 0xc2:
1810                 table = opcode_c2;
1811                 break;
1812         case 0xc4:
1813                 table = opcode_c4;
1814                 break;
1815         case 0xc6:
1816                 table = opcode_c6;
1817                 break;
1818         case 0xc8:
1819                 table = opcode_c8;
1820                 break;
1821         case 0xcc:
1822                 table = opcode_cc;
1823                 break;
1824         case 0xe3:
1825                 table = opcode_e3;
1826                 opfrag = code[5];
1827                 break;
1828         case 0xe5:
1829                 table = opcode_e5;
1830                 break;
1831         case 0xe7:
1832                 table = opcode_e7;
1833                 opfrag = code[5];
1834                 break;
1835         case 0xeb:
1836                 table = opcode_eb;
1837                 opfrag = code[5];
1838                 break;
1839         case 0xec:
1840                 table = opcode_ec;
1841                 opfrag = code[5];
1842                 break;
1843         case 0xed:
1844                 table = opcode_ed;
1845                 opfrag = code[5];
1846                 break;
1847         default:
1848                 table = opcode;
1849                 opfrag = code[0];
1850                 break;
1851         }
1852         while (table->format != INSTR_INVALID) {
1853                 opmask = formats[table->format][0];
1854                 if (table->opfrag == (opfrag & opmask))
1855                         return table;
1856                 table++;
1857         }
1858         return NULL;
1859 }
1860
1861 /**
1862  * insn_to_mnemonic - decode an s390 instruction
1863  * @instruction: instruction to decode
1864  * @buf: buffer to fill with mnemonic
1865  * @len: length of buffer
1866  *
1867  * Decode the instruction at @instruction and store the corresponding
1868  * mnemonic into @buf of length @len.
1869  * @buf is left unchanged if the instruction could not be decoded.
1870  * Returns:
1871  *  %0 on success, %-ENOENT if the instruction was not found.
1872  */
1873 int insn_to_mnemonic(unsigned char *instruction, char *buf, unsigned int len)
1874 {
1875         struct s390_insn *insn;
1876
1877         insn = find_insn(instruction);
1878         if (!insn)
1879                 return -ENOENT;
1880         if (insn->name[0] == '\0')
1881                 snprintf(buf, len, "%s",
1882                          long_insn_name[(int) insn->name[1]]);
1883         else
1884                 snprintf(buf, len, "%.5s", insn->name);
1885         return 0;
1886 }
1887 EXPORT_SYMBOL_GPL(insn_to_mnemonic);
1888
1889 static int print_insn(char *buffer, unsigned char *code, unsigned long addr)
1890 {
1891         struct s390_insn *insn;
1892         const unsigned char *ops;
1893         const struct s390_operand *operand;
1894         unsigned int value;
1895         char separator;
1896         char *ptr;
1897         int i;
1898
1899         ptr = buffer;
1900         insn = find_insn(code);
1901         if (insn) {
1902                 if (insn->name[0] == '\0')
1903                         ptr += sprintf(ptr, "%s\t",
1904                                        long_insn_name[(int) insn->name[1]]);
1905                 else
1906                         ptr += sprintf(ptr, "%.5s\t", insn->name);
1907                 /* Extract the operands. */
1908                 separator = 0;
1909                 for (ops = formats[insn->format] + 1, i = 0;
1910                      *ops != 0 && i < 6; ops++, i++) {
1911                         operand = operands + *ops;
1912                         value = extract_operand(code, operand);
1913                         if ((operand->flags & OPERAND_INDEX)  && value == 0)
1914                                 continue;
1915                         if ((operand->flags & OPERAND_BASE) &&
1916                             value == 0 && separator == '(') {
1917                                 separator = ',';
1918                                 continue;
1919                         }
1920                         if (separator)
1921                                 ptr += sprintf(ptr, "%c", separator);
1922                         if (operand->flags & OPERAND_GPR)
1923                                 ptr += sprintf(ptr, "%%r%i", value);
1924                         else if (operand->flags & OPERAND_FPR)
1925                                 ptr += sprintf(ptr, "%%f%i", value);
1926                         else if (operand->flags & OPERAND_AR)
1927                                 ptr += sprintf(ptr, "%%a%i", value);
1928                         else if (operand->flags & OPERAND_CR)
1929                                 ptr += sprintf(ptr, "%%c%i", value);
1930                         else if (operand->flags & OPERAND_VR)
1931                                 ptr += sprintf(ptr, "%%v%i", value);
1932                         else if (operand->flags & OPERAND_PCREL)
1933                                 ptr += sprintf(ptr, "%lx", (signed int) value
1934                                                                       + addr);
1935                         else if (operand->flags & OPERAND_SIGNED)
1936                                 ptr += sprintf(ptr, "%i", value);
1937                         else
1938                                 ptr += sprintf(ptr, "%u", value);
1939                         if (operand->flags & OPERAND_DISP)
1940                                 separator = '(';
1941                         else if (operand->flags & OPERAND_BASE) {
1942                                 ptr += sprintf(ptr, ")");
1943                                 separator = ',';
1944                         } else
1945                                 separator = ',';
1946                 }
1947         } else
1948                 ptr += sprintf(ptr, "unknown");
1949         return (int) (ptr - buffer);
1950 }
1951
1952 void show_code(struct pt_regs *regs)
1953 {
1954         char *mode = user_mode(regs) ? "User" : "Krnl";
1955         unsigned char code[64];
1956         char buffer[64], *ptr;
1957         mm_segment_t old_fs;
1958         unsigned long addr;
1959         int start, end, opsize, hops, i;
1960
1961         /* Get a snapshot of the 64 bytes surrounding the fault address. */
1962         old_fs = get_fs();
1963         set_fs(user_mode(regs) ? USER_DS : KERNEL_DS);
1964         for (start = 32; start && regs->psw.addr >= 34 - start; start -= 2) {
1965                 addr = regs->psw.addr - 34 + start;
1966                 if (__copy_from_user(code + start - 2,
1967                                      (char __user *) addr, 2))
1968                         break;
1969         }
1970         for (end = 32; end < 64; end += 2) {
1971                 addr = regs->psw.addr + end - 32;
1972                 if (__copy_from_user(code + end,
1973                                      (char __user *) addr, 2))
1974                         break;
1975         }
1976         set_fs(old_fs);
1977         /* Code snapshot useable ? */
1978         if ((regs->psw.addr & 1) || start >= end) {
1979                 printk("%s Code: Bad PSW.\n", mode);
1980                 return;
1981         }
1982         /* Find a starting point for the disassembly. */
1983         while (start < 32) {
1984                 for (i = 0, hops = 0; start + i < 32 && hops < 3; hops++) {
1985                         if (!find_insn(code + start + i))
1986                                 break;
1987                         i += insn_length(code[start + i]);
1988                 }
1989                 if (start + i == 32)
1990                         /* Looks good, sequence ends at PSW. */
1991                         break;
1992                 start += 2;
1993         }
1994         /* Decode the instructions. */
1995         ptr = buffer;
1996         ptr += sprintf(ptr, "%s Code:", mode);
1997         hops = 0;
1998         while (start < end && hops < 8) {
1999                 opsize = insn_length(code[start]);
2000                 if  (start + opsize == 32)
2001                         *ptr++ = '#';
2002                 else if (start == 32)
2003                         *ptr++ = '>';
2004                 else
2005                         *ptr++ = ' ';
2006                 addr = regs->psw.addr + start - 32;
2007                 ptr += sprintf(ptr, "%016lx: ", addr);
2008                 if (start + opsize >= end)
2009                         break;
2010                 for (i = 0; i < opsize; i++)
2011                         ptr += sprintf(ptr, "%02x", code[start + i]);
2012                 *ptr++ = '\t';
2013                 if (i < 6)
2014                         *ptr++ = '\t';
2015                 ptr += print_insn(ptr, code + start, addr);
2016                 start += opsize;
2017                 printk("%s", buffer);
2018                 ptr = buffer;
2019                 ptr += sprintf(ptr, "\n          ");
2020                 hops++;
2021         }
2022         printk("\n");
2023 }
2024
2025 void print_fn_code(unsigned char *code, unsigned long len)
2026 {
2027         char buffer[64], *ptr;
2028         int opsize, i;
2029
2030         while (len) {
2031                 ptr = buffer;
2032                 opsize = insn_length(*code);
2033                 if (opsize > len)
2034                         break;
2035                 ptr += sprintf(ptr, "%p: ", code);
2036                 for (i = 0; i < opsize; i++)
2037                         ptr += sprintf(ptr, "%02x", code[i]);
2038                 *ptr++ = '\t';
2039                 if (i < 4)
2040                         *ptr++ = '\t';
2041                 ptr += print_insn(ptr, code, (unsigned long) code);
2042                 *ptr++ = '\n';
2043                 *ptr++ = 0;
2044                 printk("%s", buffer);
2045                 code += opsize;
2046                 len -= opsize;
2047         }
2048 }