Loading...
1// SPDX-License-Identifier: GPL-2.0
2/*
3 * Disassemble s390 instructions.
4 *
5 * Copyright IBM Corp. 2007
6 * Author(s): Martin Schwidefsky (schwidefsky@de.ibm.com),
7 */
8
9#include <linux/sched.h>
10#include <linux/kernel.h>
11#include <linux/string.h>
12#include <linux/errno.h>
13#include <linux/ptrace.h>
14#include <linux/timer.h>
15#include <linux/mm.h>
16#include <linux/smp.h>
17#include <linux/init.h>
18#include <linux/interrupt.h>
19#include <linux/delay.h>
20#include <linux/export.h>
21#include <linux/kallsyms.h>
22#include <linux/reboot.h>
23#include <linux/kprobes.h>
24#include <linux/kdebug.h>
25#include <linux/uaccess.h>
26#include <linux/atomic.h>
27#include <asm/dis.h>
28#include <asm/io.h>
29#include <asm/cpcmd.h>
30#include <asm/lowcore.h>
31#include <asm/debug.h>
32#include <asm/irq.h>
33
34/* Type of operand */
35#define OPERAND_GPR 0x1 /* Operand printed as %rx */
36#define OPERAND_FPR 0x2 /* Operand printed as %fx */
37#define OPERAND_AR 0x4 /* Operand printed as %ax */
38#define OPERAND_CR 0x8 /* Operand printed as %cx */
39#define OPERAND_VR 0x10 /* Operand printed as %vx */
40#define OPERAND_DISP 0x20 /* Operand printed as displacement */
41#define OPERAND_BASE 0x40 /* Operand printed as base register */
42#define OPERAND_INDEX 0x80 /* Operand printed as index register */
43#define OPERAND_PCREL 0x100 /* Operand printed as pc-relative symbol */
44#define OPERAND_SIGNED 0x200 /* Operand printed as signed value */
45#define OPERAND_LENGTH 0x400 /* Operand printed as length (+1) */
46
47struct s390_operand {
48 unsigned char bits; /* The number of bits in the operand. */
49 unsigned char shift; /* The number of bits to shift. */
50 unsigned short flags; /* One bit syntax flags. */
51};
52
53struct s390_insn {
54 union {
55 const char name[5];
56 struct {
57 unsigned char zero;
58 unsigned int offset;
59 } __packed;
60 };
61 unsigned char opfrag;
62 unsigned char format;
63};
64
65struct s390_opcode_offset {
66 unsigned char opcode;
67 unsigned char mask;
68 unsigned char byte;
69 unsigned short offset;
70 unsigned short count;
71} __packed;
72
73enum {
74 UNUSED,
75 A_8, /* Access reg. starting at position 8 */
76 A_12, /* Access reg. starting at position 12 */
77 A_24, /* Access reg. starting at position 24 */
78 A_28, /* Access reg. starting at position 28 */
79 B_16, /* Base register starting at position 16 */
80 B_32, /* Base register starting at position 32 */
81 C_8, /* Control reg. starting at position 8 */
82 C_12, /* Control reg. starting at position 12 */
83 D20_20, /* 20 bit displacement starting at 20 */
84 D_20, /* Displacement starting at position 20 */
85 D_36, /* Displacement starting at position 36 */
86 F_8, /* FPR starting at position 8 */
87 F_12, /* FPR starting at position 12 */
88 F_16, /* FPR starting at position 16 */
89 F_24, /* FPR starting at position 24 */
90 F_28, /* FPR starting at position 28 */
91 F_32, /* FPR starting at position 32 */
92 I8_8, /* 8 bit signed value starting at 8 */
93 I8_32, /* 8 bit signed value starting at 32 */
94 I16_16, /* 16 bit signed value starting at 16 */
95 I16_32, /* 16 bit signed value starting at 32 */
96 I32_16, /* 32 bit signed value starting at 16 */
97 J12_12, /* 12 bit PC relative offset at 12 */
98 J16_16, /* 16 bit PC relative offset at 16 */
99 J16_32, /* 16 bit PC relative offset at 32 */
100 J24_24, /* 24 bit PC relative offset at 24 */
101 J32_16, /* 32 bit PC relative offset at 16 */
102 L4_8, /* 4 bit length starting at position 8 */
103 L4_12, /* 4 bit length starting at position 12 */
104 L8_8, /* 8 bit length starting at position 8 */
105 R_8, /* GPR starting at position 8 */
106 R_12, /* GPR starting at position 12 */
107 R_16, /* GPR starting at position 16 */
108 R_24, /* GPR starting at position 24 */
109 R_28, /* GPR starting at position 28 */
110 U4_8, /* 4 bit unsigned value starting at 8 */
111 U4_12, /* 4 bit unsigned value starting at 12 */
112 U4_16, /* 4 bit unsigned value starting at 16 */
113 U4_20, /* 4 bit unsigned value starting at 20 */
114 U4_24, /* 4 bit unsigned value starting at 24 */
115 U4_28, /* 4 bit unsigned value starting at 28 */
116 U4_32, /* 4 bit unsigned value starting at 32 */
117 U4_36, /* 4 bit unsigned value starting at 36 */
118 U8_8, /* 8 bit unsigned value starting at 8 */
119 U8_16, /* 8 bit unsigned value starting at 16 */
120 U8_24, /* 8 bit unsigned value starting at 24 */
121 U8_28, /* 8 bit unsigned value starting at 28 */
122 U8_32, /* 8 bit unsigned value starting at 32 */
123 U12_16, /* 12 bit unsigned value starting at 16 */
124 U16_16, /* 16 bit unsigned value starting at 16 */
125 U16_32, /* 16 bit unsigned value starting at 32 */
126 U32_16, /* 32 bit unsigned value starting at 16 */
127 VX_12, /* Vector index register starting at position 12 */
128 V_8, /* Vector reg. starting at position 8 */
129 V_12, /* Vector reg. starting at position 12 */
130 V_16, /* Vector reg. starting at position 16 */
131 V_32, /* Vector reg. starting at position 32 */
132 X_12, /* Index register starting at position 12 */
133};
134
135static const struct s390_operand operands[] = {
136 [UNUSED] = { 0, 0, 0 },
137 [A_8] = { 4, 8, OPERAND_AR },
138 [A_12] = { 4, 12, OPERAND_AR },
139 [A_24] = { 4, 24, OPERAND_AR },
140 [A_28] = { 4, 28, OPERAND_AR },
141 [B_16] = { 4, 16, OPERAND_BASE | OPERAND_GPR },
142 [B_32] = { 4, 32, OPERAND_BASE | OPERAND_GPR },
143 [C_8] = { 4, 8, OPERAND_CR },
144 [C_12] = { 4, 12, OPERAND_CR },
145 [D20_20] = { 20, 20, OPERAND_DISP | OPERAND_SIGNED },
146 [D_20] = { 12, 20, OPERAND_DISP },
147 [D_36] = { 12, 36, OPERAND_DISP },
148 [F_8] = { 4, 8, OPERAND_FPR },
149 [F_12] = { 4, 12, OPERAND_FPR },
150 [F_16] = { 4, 16, OPERAND_FPR },
151 [F_24] = { 4, 24, OPERAND_FPR },
152 [F_28] = { 4, 28, OPERAND_FPR },
153 [F_32] = { 4, 32, OPERAND_FPR },
154 [I8_8] = { 8, 8, OPERAND_SIGNED },
155 [I8_32] = { 8, 32, OPERAND_SIGNED },
156 [I16_16] = { 16, 16, OPERAND_SIGNED },
157 [I16_32] = { 16, 32, OPERAND_SIGNED },
158 [I32_16] = { 32, 16, OPERAND_SIGNED },
159 [J12_12] = { 12, 12, OPERAND_PCREL },
160 [J16_16] = { 16, 16, OPERAND_PCREL },
161 [J16_32] = { 16, 32, OPERAND_PCREL },
162 [J24_24] = { 24, 24, OPERAND_PCREL },
163 [J32_16] = { 32, 16, OPERAND_PCREL },
164 [L4_8] = { 4, 8, OPERAND_LENGTH },
165 [L4_12] = { 4, 12, OPERAND_LENGTH },
166 [L8_8] = { 8, 8, OPERAND_LENGTH },
167 [R_8] = { 4, 8, OPERAND_GPR },
168 [R_12] = { 4, 12, OPERAND_GPR },
169 [R_16] = { 4, 16, OPERAND_GPR },
170 [R_24] = { 4, 24, OPERAND_GPR },
171 [R_28] = { 4, 28, OPERAND_GPR },
172 [U4_8] = { 4, 8, 0 },
173 [U4_12] = { 4, 12, 0 },
174 [U4_16] = { 4, 16, 0 },
175 [U4_20] = { 4, 20, 0 },
176 [U4_24] = { 4, 24, 0 },
177 [U4_28] = { 4, 28, 0 },
178 [U4_32] = { 4, 32, 0 },
179 [U4_36] = { 4, 36, 0 },
180 [U8_8] = { 8, 8, 0 },
181 [U8_16] = { 8, 16, 0 },
182 [U8_24] = { 8, 24, 0 },
183 [U8_28] = { 8, 28, 0 },
184 [U8_32] = { 8, 32, 0 },
185 [U12_16] = { 12, 16, 0 },
186 [U16_16] = { 16, 16, 0 },
187 [U16_32] = { 16, 32, 0 },
188 [U32_16] = { 32, 16, 0 },
189 [VX_12] = { 4, 12, OPERAND_INDEX | OPERAND_VR },
190 [V_8] = { 4, 8, OPERAND_VR },
191 [V_12] = { 4, 12, OPERAND_VR },
192 [V_16] = { 4, 16, OPERAND_VR },
193 [V_32] = { 4, 32, OPERAND_VR },
194 [X_12] = { 4, 12, OPERAND_INDEX | OPERAND_GPR },
195};
196
197static const unsigned char formats[][6] = {
198 [INSTR_E] = { 0, 0, 0, 0, 0, 0 },
199 [INSTR_IE_UU] = { U4_24, U4_28, 0, 0, 0, 0 },
200 [INSTR_MII_UPP] = { U4_8, J12_12, J24_24 },
201 [INSTR_RIE_R0IU] = { R_8, I16_16, U4_32, 0, 0, 0 },
202 [INSTR_RIE_R0UU] = { R_8, U16_16, U4_32, 0, 0, 0 },
203 [INSTR_RIE_RRI0] = { R_8, R_12, I16_16, 0, 0, 0 },
204 [INSTR_RIE_RRP] = { R_8, R_12, J16_16, 0, 0, 0 },
205 [INSTR_RIE_RRPU] = { R_8, R_12, U4_32, J16_16, 0, 0 },
206 [INSTR_RIE_RRUUU] = { R_8, R_12, U8_16, U8_24, U8_32, 0 },
207 [INSTR_RIE_RUI0] = { R_8, I16_16, U4_12, 0, 0, 0 },
208 [INSTR_RIE_RUPI] = { R_8, I8_32, U4_12, J16_16, 0, 0 },
209 [INSTR_RIE_RUPU] = { R_8, U8_32, U4_12, J16_16, 0, 0 },
210 [INSTR_RIL_RI] = { R_8, I32_16, 0, 0, 0, 0 },
211 [INSTR_RIL_RP] = { R_8, J32_16, 0, 0, 0, 0 },
212 [INSTR_RIL_RU] = { R_8, U32_16, 0, 0, 0, 0 },
213 [INSTR_RIL_UP] = { U4_8, J32_16, 0, 0, 0, 0 },
214 [INSTR_RIS_RURDI] = { R_8, I8_32, U4_12, D_20, B_16, 0 },
215 [INSTR_RIS_RURDU] = { R_8, U8_32, U4_12, D_20, B_16, 0 },
216 [INSTR_RI_RI] = { R_8, I16_16, 0, 0, 0, 0 },
217 [INSTR_RI_RP] = { R_8, J16_16, 0, 0, 0, 0 },
218 [INSTR_RI_RU] = { R_8, U16_16, 0, 0, 0, 0 },
219 [INSTR_RI_UP] = { U4_8, J16_16, 0, 0, 0, 0 },
220 [INSTR_RRE_00] = { 0, 0, 0, 0, 0, 0 },
221 [INSTR_RRE_AA] = { A_24, A_28, 0, 0, 0, 0 },
222 [INSTR_RRE_AR] = { A_24, R_28, 0, 0, 0, 0 },
223 [INSTR_RRE_F0] = { F_24, 0, 0, 0, 0, 0 },
224 [INSTR_RRE_FF] = { F_24, F_28, 0, 0, 0, 0 },
225 [INSTR_RRE_FR] = { F_24, R_28, 0, 0, 0, 0 },
226 [INSTR_RRE_R0] = { R_24, 0, 0, 0, 0, 0 },
227 [INSTR_RRE_RA] = { R_24, A_28, 0, 0, 0, 0 },
228 [INSTR_RRE_RF] = { R_24, F_28, 0, 0, 0, 0 },
229 [INSTR_RRE_RR] = { R_24, R_28, 0, 0, 0, 0 },
230 [INSTR_RRF_0UFF] = { F_24, F_28, U4_20, 0, 0, 0 },
231 [INSTR_RRF_0URF] = { R_24, F_28, U4_20, 0, 0, 0 },
232 [INSTR_RRF_F0FF] = { F_16, F_24, F_28, 0, 0, 0 },
233 [INSTR_RRF_F0FF2] = { F_24, F_16, F_28, 0, 0, 0 },
234 [INSTR_RRF_F0FR] = { F_24, F_16, R_28, 0, 0, 0 },
235 [INSTR_RRF_FFRU] = { F_24, F_16, R_28, U4_20, 0, 0 },
236 [INSTR_RRF_FUFF] = { F_24, F_16, F_28, U4_20, 0, 0 },
237 [INSTR_RRF_FUFF2] = { F_24, F_28, F_16, U4_20, 0, 0 },
238 [INSTR_RRF_R0RR] = { R_24, R_16, R_28, 0, 0, 0 },
239 [INSTR_RRF_R0RR2] = { R_24, R_28, R_16, 0, 0, 0 },
240 [INSTR_RRF_RURR] = { R_24, R_28, R_16, U4_20, 0, 0 },
241 [INSTR_RRF_RURR2] = { R_24, R_16, R_28, U4_20, 0, 0 },
242 [INSTR_RRF_U0FF] = { F_24, U4_16, F_28, 0, 0, 0 },
243 [INSTR_RRF_U0RF] = { R_24, U4_16, F_28, 0, 0, 0 },
244 [INSTR_RRF_U0RR] = { R_24, R_28, U4_16, 0, 0, 0 },
245 [INSTR_RRF_URR] = { R_24, R_28, U8_16, 0, 0, 0 },
246 [INSTR_RRF_UUFF] = { F_24, U4_16, F_28, U4_20, 0, 0 },
247 [INSTR_RRF_UUFR] = { F_24, U4_16, R_28, U4_20, 0, 0 },
248 [INSTR_RRF_UURF] = { R_24, U4_16, F_28, U4_20, 0, 0 },
249 [INSTR_RRS_RRRDU] = { R_8, R_12, U4_32, D_20, B_16 },
250 [INSTR_RR_FF] = { F_8, F_12, 0, 0, 0, 0 },
251 [INSTR_RR_R0] = { R_8, 0, 0, 0, 0, 0 },
252 [INSTR_RR_RR] = { R_8, R_12, 0, 0, 0, 0 },
253 [INSTR_RR_U0] = { U8_8, 0, 0, 0, 0, 0 },
254 [INSTR_RR_UR] = { U4_8, R_12, 0, 0, 0, 0 },
255 [INSTR_RSI_RRP] = { R_8, R_12, J16_16, 0, 0, 0 },
256 [INSTR_RSL_LRDFU] = { F_32, D_20, L8_8, B_16, U4_36, 0 },
257 [INSTR_RSL_R0RD] = { D_20, L4_8, B_16, 0, 0, 0 },
258 [INSTR_RSY_AARD] = { A_8, A_12, D20_20, B_16, 0, 0 },
259 [INSTR_RSY_CCRD] = { C_8, C_12, D20_20, B_16, 0, 0 },
260 [INSTR_RSY_RDRU] = { R_8, D20_20, B_16, U4_12, 0, 0 },
261 [INSTR_RSY_RRRD] = { R_8, R_12, D20_20, B_16, 0, 0 },
262 [INSTR_RSY_RURD] = { R_8, U4_12, D20_20, B_16, 0, 0 },
263 [INSTR_RSY_RURD2] = { R_8, D20_20, B_16, U4_12, 0, 0 },
264 [INSTR_RS_AARD] = { A_8, A_12, D_20, B_16, 0, 0 },
265 [INSTR_RS_CCRD] = { C_8, C_12, D_20, B_16, 0, 0 },
266 [INSTR_RS_R0RD] = { R_8, D_20, B_16, 0, 0, 0 },
267 [INSTR_RS_RRRD] = { R_8, R_12, D_20, B_16, 0, 0 },
268 [INSTR_RS_RURD] = { R_8, U4_12, D_20, B_16, 0, 0 },
269 [INSTR_RXE_FRRD] = { F_8, D_20, X_12, B_16, 0, 0 },
270 [INSTR_RXE_RRRDU] = { R_8, D_20, X_12, B_16, U4_32, 0 },
271 [INSTR_RXF_FRRDF] = { F_32, F_8, D_20, X_12, B_16, 0 },
272 [INSTR_RXY_FRRD] = { F_8, D20_20, X_12, B_16, 0, 0 },
273 [INSTR_RXY_RRRD] = { R_8, D20_20, X_12, B_16, 0, 0 },
274 [INSTR_RXY_URRD] = { U4_8, D20_20, X_12, B_16, 0, 0 },
275 [INSTR_RX_FRRD] = { F_8, D_20, X_12, B_16, 0, 0 },
276 [INSTR_RX_RRRD] = { R_8, D_20, X_12, B_16, 0, 0 },
277 [INSTR_RX_URRD] = { U4_8, D_20, X_12, B_16, 0, 0 },
278 [INSTR_SIL_RDI] = { D_20, B_16, I16_32, 0, 0, 0 },
279 [INSTR_SIL_RDU] = { D_20, B_16, U16_32, 0, 0, 0 },
280 [INSTR_SIY_IRD] = { D20_20, B_16, I8_8, 0, 0, 0 },
281 [INSTR_SIY_URD] = { D20_20, B_16, U8_8, 0, 0, 0 },
282 [INSTR_SI_RD] = { D_20, B_16, 0, 0, 0, 0 },
283 [INSTR_SI_URD] = { D_20, B_16, U8_8, 0, 0, 0 },
284 [INSTR_SMI_U0RDP] = { U4_8, J16_32, D_20, B_16, 0, 0 },
285 [INSTR_SSE_RDRD] = { D_20, B_16, D_36, B_32, 0, 0 },
286 [INSTR_SSF_RRDRD] = { D_20, B_16, D_36, B_32, R_8, 0 },
287 [INSTR_SSF_RRDRD2] = { R_8, D_20, B_16, D_36, B_32, 0 },
288 [INSTR_SS_L0RDRD] = { D_20, L8_8, B_16, D_36, B_32, 0 },
289 [INSTR_SS_L2RDRD] = { D_20, B_16, D_36, L8_8, B_32, 0 },
290 [INSTR_SS_LIRDRD] = { D_20, L4_8, B_16, D_36, B_32, U4_12 },
291 [INSTR_SS_LLRDRD] = { D_20, L4_8, B_16, D_36, L4_12, B_32 },
292 [INSTR_SS_RRRDRD] = { D_20, R_8, B_16, D_36, B_32, R_12 },
293 [INSTR_SS_RRRDRD2] = { R_8, D_20, B_16, R_12, D_36, B_32 },
294 [INSTR_SS_RRRDRD3] = { R_8, R_12, D_20, B_16, D_36, B_32 },
295 [INSTR_S_00] = { 0, 0, 0, 0, 0, 0 },
296 [INSTR_S_RD] = { D_20, B_16, 0, 0, 0, 0 },
297 [INSTR_VRI_V0IU] = { V_8, I16_16, U4_32, 0, 0, 0 },
298 [INSTR_VRI_V0U] = { V_8, U16_16, 0, 0, 0, 0 },
299 [INSTR_VRI_V0UU2] = { V_8, U16_16, U4_32, 0, 0, 0 },
300 [INSTR_VRI_V0UUU] = { V_8, U8_16, U8_24, U4_32, 0, 0 },
301 [INSTR_VRI_VR0UU] = { V_8, R_12, U8_28, U4_24, 0, 0 },
302 [INSTR_VRI_VVUU] = { V_8, V_12, U16_16, U4_32, 0, 0 },
303 [INSTR_VRI_VVUUU] = { V_8, V_12, U12_16, U4_32, U4_28, 0 },
304 [INSTR_VRI_VVUUU2] = { V_8, V_12, U8_28, U8_16, U4_24, 0 },
305 [INSTR_VRI_VVV0U] = { V_8, V_12, V_16, U8_24, 0, 0 },
306 [INSTR_VRI_VVV0UU] = { V_8, V_12, V_16, U8_24, U4_32, 0 },
307 [INSTR_VRI_VVV0UU2] = { V_8, V_12, V_16, U8_28, U4_24, 0 },
308 [INSTR_VRR_0V] = { V_12, 0, 0, 0, 0, 0 },
309 [INSTR_VRR_0VV0U] = { V_12, V_16, U4_24, 0, 0, 0 },
310 [INSTR_VRR_RV0UU] = { R_8, V_12, U4_24, U4_28, 0, 0 },
311 [INSTR_VRR_VRR] = { V_8, R_12, R_16, 0, 0, 0 },
312 [INSTR_VRR_VV] = { V_8, V_12, 0, 0, 0, 0 },
313 [INSTR_VRR_VV0U] = { V_8, V_12, U4_32, 0, 0, 0 },
314 [INSTR_VRR_VV0U0U] = { V_8, V_12, U4_32, U4_24, 0, 0 },
315 [INSTR_VRR_VV0UU2] = { V_8, V_12, U4_32, U4_28, 0, 0 },
316 [INSTR_VRR_VV0UUU] = { V_8, V_12, U4_32, U4_28, U4_24, 0 },
317 [INSTR_VRR_VVV] = { V_8, V_12, V_16, 0, 0, 0 },
318 [INSTR_VRR_VVV0U] = { V_8, V_12, V_16, U4_32, 0, 0 },
319 [INSTR_VRR_VVV0U0U] = { V_8, V_12, V_16, U4_32, U4_24, 0 },
320 [INSTR_VRR_VVV0UU] = { V_8, V_12, V_16, U4_32, U4_28, 0 },
321 [INSTR_VRR_VVV0UUU] = { V_8, V_12, V_16, U4_32, U4_28, U4_24 },
322 [INSTR_VRR_VVV0V] = { V_8, V_12, V_16, V_32, 0, 0 },
323 [INSTR_VRR_VVVU0UV] = { V_8, V_12, V_16, V_32, U4_28, U4_20 },
324 [INSTR_VRR_VVVU0V] = { V_8, V_12, V_16, V_32, U4_20, 0 },
325 [INSTR_VRR_VVVUU0V] = { V_8, V_12, V_16, V_32, U4_20, U4_24 },
326 [INSTR_VRS_RRDV] = { V_32, R_12, D_20, B_16, 0, 0 },
327 [INSTR_VRS_RVRDU] = { R_8, V_12, D_20, B_16, U4_32, 0 },
328 [INSTR_VRS_VRRD] = { V_8, R_12, D_20, B_16, 0, 0 },
329 [INSTR_VRS_VRRDU] = { V_8, R_12, D_20, B_16, U4_32, 0 },
330 [INSTR_VRS_VVRDU] = { V_8, V_12, D_20, B_16, U4_32, 0 },
331 [INSTR_VRV_VVXRDU] = { V_8, D_20, VX_12, B_16, U4_32, 0 },
332 [INSTR_VRX_VRRDU] = { V_8, D_20, X_12, B_16, U4_32, 0 },
333 [INSTR_VRX_VV] = { V_8, V_12, 0, 0, 0, 0 },
334 [INSTR_VSI_URDV] = { V_32, D_20, B_16, U8_8, 0, 0 },
335};
336
337static char long_insn_name[][7] = LONG_INSN_INITIALIZER;
338static struct s390_insn opcode[] = OPCODE_TABLE_INITIALIZER;
339static struct s390_opcode_offset opcode_offset[] = OPCODE_OFFSET_INITIALIZER;
340
341/* Extracts an operand value from an instruction. */
342static unsigned int extract_operand(unsigned char *code,
343 const struct s390_operand *operand)
344{
345 unsigned char *cp;
346 unsigned int val;
347 int bits;
348
349 /* Extract fragments of the operand byte for byte. */
350 cp = code + operand->shift / 8;
351 bits = (operand->shift & 7) + operand->bits;
352 val = 0;
353 do {
354 val <<= 8;
355 val |= (unsigned int) *cp++;
356 bits -= 8;
357 } while (bits > 0);
358 val >>= -bits;
359 val &= ((1U << (operand->bits - 1)) << 1) - 1;
360
361 /* Check for special long displacement case. */
362 if (operand->bits == 20 && operand->shift == 20)
363 val = (val & 0xff) << 12 | (val & 0xfff00) >> 8;
364
365 /* Check for register extensions bits for vector registers. */
366 if (operand->flags & OPERAND_VR) {
367 if (operand->shift == 8)
368 val |= (code[4] & 8) << 1;
369 else if (operand->shift == 12)
370 val |= (code[4] & 4) << 2;
371 else if (operand->shift == 16)
372 val |= (code[4] & 2) << 3;
373 else if (operand->shift == 32)
374 val |= (code[4] & 1) << 4;
375 }
376
377 /* Sign extend value if the operand is signed or pc relative. */
378 if ((operand->flags & (OPERAND_SIGNED | OPERAND_PCREL)) &&
379 (val & (1U << (operand->bits - 1))))
380 val |= (-1U << (operand->bits - 1)) << 1;
381
382 /* Double value if the operand is pc relative. */
383 if (operand->flags & OPERAND_PCREL)
384 val <<= 1;
385
386 /* Length x in an instructions has real length x + 1. */
387 if (operand->flags & OPERAND_LENGTH)
388 val++;
389 return val;
390}
391
392struct s390_insn *find_insn(unsigned char *code)
393{
394 struct s390_opcode_offset *entry;
395 struct s390_insn *insn;
396 unsigned char opfrag;
397 int i;
398
399 /* Search the opcode offset table to find an entry which
400 * matches the beginning of the opcode. If there is no match
401 * the last entry will be used, which is the default entry for
402 * unknown instructions as well as 1-byte opcode instructions.
403 */
404 for (i = 0; i < ARRAY_SIZE(opcode_offset); i++) {
405 entry = &opcode_offset[i];
406 if (entry->opcode == code[0])
407 break;
408 }
409
410 opfrag = *(code + entry->byte) & entry->mask;
411
412 insn = &opcode[entry->offset];
413 for (i = 0; i < entry->count; i++) {
414 if (insn->opfrag == opfrag)
415 return insn;
416 insn++;
417 }
418 return NULL;
419}
420
421static int print_insn(char *buffer, unsigned char *code, unsigned long addr)
422{
423 struct s390_insn *insn;
424 const unsigned char *ops;
425 const struct s390_operand *operand;
426 unsigned int value;
427 char separator;
428 char *ptr;
429 int i;
430
431 ptr = buffer;
432 insn = find_insn(code);
433 if (insn) {
434 if (insn->zero == 0)
435 ptr += sprintf(ptr, "%.7s\t",
436 long_insn_name[insn->offset]);
437 else
438 ptr += sprintf(ptr, "%.5s\t", insn->name);
439 /* Extract the operands. */
440 separator = 0;
441 for (ops = formats[insn->format], i = 0;
442 *ops != 0 && i < 6; ops++, i++) {
443 operand = operands + *ops;
444 value = extract_operand(code, operand);
445 if ((operand->flags & OPERAND_INDEX) && value == 0)
446 continue;
447 if ((operand->flags & OPERAND_BASE) &&
448 value == 0 && separator == '(') {
449 separator = ',';
450 continue;
451 }
452 if (separator)
453 ptr += sprintf(ptr, "%c", separator);
454 if (operand->flags & OPERAND_GPR)
455 ptr += sprintf(ptr, "%%r%i", value);
456 else if (operand->flags & OPERAND_FPR)
457 ptr += sprintf(ptr, "%%f%i", value);
458 else if (operand->flags & OPERAND_AR)
459 ptr += sprintf(ptr, "%%a%i", value);
460 else if (operand->flags & OPERAND_CR)
461 ptr += sprintf(ptr, "%%c%i", value);
462 else if (operand->flags & OPERAND_VR)
463 ptr += sprintf(ptr, "%%v%i", value);
464 else if (operand->flags & OPERAND_PCREL)
465 ptr += sprintf(ptr, "%lx", (signed int) value
466 + addr);
467 else if (operand->flags & OPERAND_SIGNED)
468 ptr += sprintf(ptr, "%i", value);
469 else
470 ptr += sprintf(ptr, "%u", value);
471 if (operand->flags & OPERAND_DISP)
472 separator = '(';
473 else if (operand->flags & OPERAND_BASE) {
474 ptr += sprintf(ptr, ")");
475 separator = ',';
476 } else
477 separator = ',';
478 }
479 } else
480 ptr += sprintf(ptr, "unknown");
481 return (int) (ptr - buffer);
482}
483
484void show_code(struct pt_regs *regs)
485{
486 char *mode = user_mode(regs) ? "User" : "Krnl";
487 unsigned char code[64];
488 char buffer[128], *ptr;
489 mm_segment_t old_fs;
490 unsigned long addr;
491 int start, end, opsize, hops, i;
492
493 /* Get a snapshot of the 64 bytes surrounding the fault address. */
494 old_fs = get_fs();
495 set_fs(user_mode(regs) ? USER_DS : KERNEL_DS);
496 for (start = 32; start && regs->psw.addr >= 34 - start; start -= 2) {
497 addr = regs->psw.addr - 34 + start;
498 if (__copy_from_user(code + start - 2,
499 (char __user *) addr, 2))
500 break;
501 }
502 for (end = 32; end < 64; end += 2) {
503 addr = regs->psw.addr + end - 32;
504 if (__copy_from_user(code + end,
505 (char __user *) addr, 2))
506 break;
507 }
508 set_fs(old_fs);
509 /* Code snapshot useable ? */
510 if ((regs->psw.addr & 1) || start >= end) {
511 printk("%s Code: Bad PSW.\n", mode);
512 return;
513 }
514 /* Find a starting point for the disassembly. */
515 while (start < 32) {
516 for (i = 0, hops = 0; start + i < 32 && hops < 3; hops++) {
517 if (!find_insn(code + start + i))
518 break;
519 i += insn_length(code[start + i]);
520 }
521 if (start + i == 32)
522 /* Looks good, sequence ends at PSW. */
523 break;
524 start += 2;
525 }
526 /* Decode the instructions. */
527 ptr = buffer;
528 ptr += sprintf(ptr, "%s Code:", mode);
529 hops = 0;
530 while (start < end && hops < 8) {
531 opsize = insn_length(code[start]);
532 if (start + opsize == 32)
533 *ptr++ = '#';
534 else if (start == 32)
535 *ptr++ = '>';
536 else
537 *ptr++ = ' ';
538 addr = regs->psw.addr + start - 32;
539 ptr += sprintf(ptr, "%016lx: ", addr);
540 if (start + opsize >= end)
541 break;
542 for (i = 0; i < opsize; i++)
543 ptr += sprintf(ptr, "%02x", code[start + i]);
544 *ptr++ = '\t';
545 if (i < 6)
546 *ptr++ = '\t';
547 ptr += print_insn(ptr, code + start, addr);
548 start += opsize;
549 pr_cont("%s", buffer);
550 ptr = buffer;
551 ptr += sprintf(ptr, "\n ");
552 hops++;
553 }
554 pr_cont("\n");
555}
556
557void print_fn_code(unsigned char *code, unsigned long len)
558{
559 char buffer[64], *ptr;
560 int opsize, i;
561
562 while (len) {
563 ptr = buffer;
564 opsize = insn_length(*code);
565 if (opsize > len)
566 break;
567 ptr += sprintf(ptr, "%p: ", code);
568 for (i = 0; i < opsize; i++)
569 ptr += sprintf(ptr, "%02x", code[i]);
570 *ptr++ = '\t';
571 if (i < 4)
572 *ptr++ = '\t';
573 ptr += print_insn(ptr, code, (unsigned long) code);
574 *ptr++ = '\n';
575 *ptr++ = 0;
576 printk("%s", buffer);
577 code += opsize;
578 len -= opsize;
579 }
580}
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 <linux/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
34enum {
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 */
109enum {
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
162static 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
234static 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
371enum {
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
451static 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
531static 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
718static 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
732static 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
752static 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
772static 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
781static 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
891static 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
1072static 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
1203static 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
1221static 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
1237static 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
1252static 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
1268static 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
1277static 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
1287static 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
1391static 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
1411static 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
1553static 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
1626static 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
1663static 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. */
1728static 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
1778struct 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 */
1873int 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}
1887EXPORT_SYMBOL_GPL(insn_to_mnemonic);
1888
1889static 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
1952void 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 pr_cont("%s", buffer);
2018 ptr = buffer;
2019 ptr += sprintf(ptr, "\n ");
2020 hops++;
2021 }
2022 pr_cont("\n");
2023}
2024
2025void 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}