Print this page
patch fixup2
| Split |
Close |
| Expand all |
| Collapse all |
--- old/usr/src/lib/libdisasm/common/dis_s390x.c
+++ new/usr/src/lib/libdisasm/common/dis_s390x.c
1 1 /*
2 2 * This file and its contents are supplied under the terms of the
3 3 * Common Development and Distribution License ("CDDL"), version 1.0.
4 4 * You may only use this file in accordance with the terms of version
5 5 * 1.0 of the CDDL.
6 6 *
7 7 * A full copy of the text of the CDDL should have accompanied this
8 8 * source. A copy of the CDDL is also available via the Internet at
9 9 * http://www.illumos.org/license/CDDL.
10 10 */
11 11
12 12 /*
13 13 * Copyright 2015 Josef 'Jeff' Sipek <jeffpc@josefsipek.net>
14 14 */
15 15
16 16 #include <stdio.h>
17 17 #include <libdisasm.h>
18 18 #include <sys/sysmacros.h>
19 19 #include <sys/debug.h>
20 20 #include <sys/byteorder.h>
21 21
22 22 #include "libdisasm_impl.h"
23 23
24 24 #define ILC2LEN(ilc) (2 * ((ilc) >= 2 ? (ilc) : (ilc) + 1))
25 25
26 26 /*
27 27 * Throughout this file, the instruction format names based on:
28 28 * SA22-7832-09 z/Architecture Principles of Operation
29 29 *
30 30 * System/370, ESA/390, and earlier z/Architecture POP use slightly
31 31 * different names for the formats (the variant names are numeric). For the
32 32 * sake of simplicity, we use the most detailed definitions - z/Architecture.
33 33 *
34 34 * For ESA/390 we map the formats:
35 35 * E -> E
36 36 * I -> I
37 37 * RR -> RR
38 38 * RRE -> RRE
39 39 * RRF -> RRD & RRFa-e
40 40 * RX -> RXa-b
41 41 * RXE -> RXE
42 42 * RXF -> RXF
43 43 * RS -> RSa-b
44 44 * RSE -> RSYa-b
45 45 * RSL -> RSLa
46 46 * RSI -> RSI
47 47 * RI -> RIa-c
48 48 * RIL -> RILa-c
49 49 * SI -> SI
50 50 * S -> S
51 51 * SS -> SSa-b & SSd-e
52 52 * SSE -> SSE
53 53 *
54 54 * For System/370 we map the formats:
55 55 * RR -> RR
56 56 * RX -> RXa-b
57 57 * RS -> RSa-b
58 58 * SI -> SI
59 59 * S -> S
60 60 * SS -> SSa-c
61 61 *
62 62 * Disassembly begins in tbl_xx. The first byte of the instruction is used
63 63 * as the index. This yields either an instruction or a sub-table.
64 64 *
65 65 * If an instruction is encountered, its format field is used to format the
66 66 * instruction.
67 67 *
68 68 * There are two types of sub-tables: extended opcode tables (indicated with
69 69 * IF_TBL) or a multiple mnemonics tables (indicated with IF_MULTI).
70 70 *
71 71 * Extended opcode tables indicade which additional bits of the instruction
72 72 * should be inspected. These bits are used as an index into the sub table.
73 73 *
74 74 * Multiple mnemonic tables are used to print different mnemonics depending
75 75 * on the architecture. Over the years, certain instructions got a new
76 76 * preferred mnemonic. For example, 0xa70 is test-under-mask-high (tmh) on
77 77 * System/390. On z/Architecture systems, the instruction behaves
78 78 * identically (and the assembler hapilly accepts tmh), but the preferred
79 79 * mnemonic is tmlh (test-under-mask-low-high) because z/Architecture
80 80 * extended the general purpose registers from 32 bits to 64 bits. The
81 81 * current architecture flag (e.g., F_390) is used to index into the
82 82 * sub-table.
83 83 *
84 84 * Regardless of which sub-table is encountered, the selected entry in the
85 85 * sub-table is interpreted using the same rules as the contents of tbl_xx.
86 86 *
87 87 * Finally, we use the extended opcode sub-table mechanism to pretty print
88 88 * the branching instructions. All branches are conditional based on a
89 89 * 4-bit mask indicating which value of the condition code will result in a
90 90 * taken branch. In order to produce a more human friendly output, we use
91 91 * the 4-bit mask as an extended opcode to break up the branching
92 92 * instruction into 16 different ones. For example, instead of printing:
93 93 *
94 94 * bc 7,0x123(%r1,%r2)
95 95 *
96 96 * we print:
97 97 *
98 98 * bne 0x123(%r1,%r2)
99 99 *
100 100 * Note that we are using designated initializers via the INSTR/TABLE/MULTI
101 101 * macros and therefore the below tables can be sparse. We rely on unset
102 102 * entries having zero format fields (aka. IF_INVAL) per C99.
103 103 */
104 104
105 105 /* BEGIN CSTYLED */
106 106 enum ifmt {
107 107 /* invalid */
108 108 IF_INVAL = 0,
109 109
110 110 /* indirection */
111 111 IF_TBL,
112 112 IF_MULTI,
113 113
114 114 /* 2-byte */
115 115 IF_ZERO, /* 370, 390, z */
116 116 IF_E, /* 390, z */
117 117 IF_I, /* 390, z */
118 118 IF_RR, /* 370, 390, z */
119 119
120 120 /* 4-byte */
121 121 IF_DIAG, /* 370, 390, z */
122 122 IF_IE, /* z */
123 123 IF_RIa, /* 390, z */
124 124 IF_RIb, /* 390, z */
125 125 IF_RIc, /* 390, z */
126 126 IF_RRD, /* 390, z */ /* on 390 these are RRF */
127 127 IF_RRE, /* 390, z */
128 128 IF_RRFa, /* 390, z */
129 129 IF_RRFb, /* 390, z */
130 130 IF_RRFc, /* 390, z */
131 131 IF_RRFd, /* 390, z */
132 132 IF_RRFe, /* 390, z */
133 133 IF_RSa, /* 370, 390, z */
134 134 IF_RSb, /* 370, 390, z */
135 135 IF_RSI, /* 390, z */
136 136 IF_RXa, /* 370, 390, z */
137 137 IF_RXb, /* 370, 390, z */
138 138 IF_S, /* 370, 390, z */
139 139 IF_SI, /* 370, 390, z */
140 140
141 141 /* 6-byte */
142 142 IF_MII, /* z */
143 143 IF_RIEa, /* z */
144 144 IF_RIEb, /* z */
145 145 IF_RIEc, /* z */
146 146 IF_RIEd, /* z */
147 147 IF_RIEe, /* z */
148 148 IF_RIEf, /* z */
149 149 IF_RILa, /* 390, z */
150 150 IF_RILb, /* 390, z */
151 151 IF_RILc, /* 390, z */
152 152 IF_RIS, /* z */
153 153 IF_RRS, /* z */
154 154 IF_RSLa, /* 390, z */
155 155 IF_RSLb, /* z */
156 156 IF_RSYa, /* z */
157 157 IF_RSYb, /* z */
158 158 IF_RXE, /* 390, z */
159 159 IF_RXF, /* 390, z */
160 160 IF_RXYa, /* z */
161 161 IF_RXYb, /* z */
162 162 IF_SIL, /* z */
163 163 IF_SIY, /* z */
164 164 IF_SMI, /* z */
165 165 IF_SSa, /* 370, 390, z */
166 166 IF_SSb, /* 370, 390, z */
167 167 IF_SSc, /* 370, 390, z */
168 168 IF_SSd, /* 390, z */
169 169 IF_SSe, /* 390, z */
170 170 IF_SSf, /* 390, z */
171 171 IF_SSE, /* 390, z */
172 172 IF_SSF, /* z */
173 173 };
174 174
175 175 #define IF_NFMTS (IF_SSF + 1)
176 176
177 177 #define F_370 0x0001 /* 370 */
178 178 #define F_390 0x0002 /* 390 */
179 179 #define F_Z 0x0004 /* z */
180 180 #define F_SIGNED_IMM 0x0010 /* 370, 390, z */
181 181 #define F_CTL_REG 0x0020 /* 370, 390, z */
182 182 #define F_HIDE_MASK 0x0040 /* 370, 390, z */
183 183 #define F_R1_IS_MASK 0x0080 /* 370, 390, z */
184 184 /* END CSTYLED */
185 185
186 186 struct inst_table {
187 187 union {
188 188 struct {
189 189 const char *it_name;
190 190 unsigned it_flags;
191 191 } it_inst;
192 192 struct {
193 193 const struct inst_table *it_ptr;
194 194 uint8_t it_off:4;
195 195 uint8_t it_shift:4;
196 196 uint8_t it_mask;
197 197 } it_table;
198 198 struct {
199 199 const struct inst_table *it_ptr;
200 200 } it_multi;
201 201 } it_u;
202 202 enum ifmt it_fmt;
203 203 };
204 204
205 205 #define BITFLD(a, b) DECL_BITFIELD2(b:4, a:4)
206 206
207 207 union inst {
208 208 uint8_t raw[6];
209 209 struct {
210 210 uint8_t op;
211 211 uint8_t par1;
212 212 uint16_t par2;
213 213 } diag;
214 214 struct {
215 215 uint8_t op;
216 216 uint8_t i;
217 217 } i;
218 218 struct {
219 219 uint16_t op;
220 220 uint8_t pad;
221 221 BITFLD(i1, i2);
222 222 } ie;
223 223 struct {
224 224 uint8_t op;
225 225 BITFLD(m1, ri2h);
226 226 uint8_t ri2l;
227 227 uint8_t ri3h;
228 228 uint16_t ri3l;
229 229 } mii;
230 230 struct {
231 231 uint8_t op;
232 232 BITFLD(r1, r2);
233 233 } rr;
234 234 struct {
235 235 uint16_t op;
236 236 BITFLD(r1, pad);
237 237 BITFLD(r3, r2);
238 238 } rrd;
239 239 struct {
240 240 uint16_t op;
241 241 uint8_t pad;
242 242 BITFLD(r1, r2);
243 243 } rre;
244 244 struct {
245 245 uint16_t op;
246 246 BITFLD(r1, m4);
247 247 BITFLD(r3, r2);
248 248 } rrf_ab;
249 249 struct {
250 250 uint16_t op;
251 251 BITFLD(m3, m4);
252 252 BITFLD(r1, r2);
253 253 } rrf_cde;
254 254 struct {
255 255 uint8_t op1;
256 256 BITFLD(r1, r2);
257 257 BITFLD(b4, d4h);
258 258 uint8_t d4l;
259 259 BITFLD(m3, pad);
260 260 uint8_t op2;
261 261 } rrs;
262 262 struct {
263 263 uint8_t op;
264 264 BITFLD(r1, x2);
265 265 BITFLD(b2, d2h);
266 266 uint8_t d2l;
267 267 } rx_a;
268 268 struct {
269 269 uint8_t op;
270 270 BITFLD(m1, x2);
271 271 BITFLD(b2, d2h);
272 272 uint8_t d2l;
273 273 } rx_b;
274 274 struct {
275 275 uint8_t op1;
276 276 BITFLD(r1, x2);
277 277 BITFLD(b2, d2h);
278 278 uint8_t d2l;
279 279 uint8_t pad;
280 280 uint8_t op2;
281 281 } rxe;
282 282 struct {
283 283 uint8_t op1;
284 284 BITFLD(r3, x2);
285 285 BITFLD(b2, d2h);
286 286 uint8_t d2l;
287 287 BITFLD(r1, pad);
288 288 uint8_t op2;
289 289 } rxf;
290 290 struct {
291 291 uint8_t op1;
292 292 BITFLD(r1, x2);
293 293 BITFLD(b2, dl2h);
294 294 uint8_t dl2l;
295 295 uint8_t dh2;
296 296 uint8_t op2;
297 297 } rxy_a;
298 298 struct {
299 299 uint8_t op1;
300 300 BITFLD(m1, x2);
301 301 BITFLD(b2, dl2h);
302 302 uint8_t dl2l;
303 303 uint8_t dh2;
304 304 uint8_t op2;
305 305 } rxy_b;
306 306 struct {
307 307 uint8_t op;
308 308 BITFLD(r1, r3);
309 309 BITFLD(b2, d2h);
310 310 uint8_t d2l;
311 311 } rs_a;
312 312 struct {
313 313 uint8_t op;
314 314 BITFLD(r1, m3);
315 315 BITFLD(b2, d2h);
316 316 uint8_t d2l;
317 317 } rs_b;
318 318 struct {
319 319 uint8_t op1;
320 320 BITFLD(l1, pad1);
321 321 BITFLD(b1, d1h);
322 322 uint8_t d1l;
323 323 uint8_t pad2;
324 324 uint8_t op2;
325 325 } rsl_a;
326 326 struct {
327 327 uint8_t op1;
328 328 uint8_t l2;
329 329 BITFLD(b2, d2h);
330 330 uint8_t d2l;
331 331 BITFLD(r1, m3);
332 332 uint8_t op2;
333 333 } rsl_b;
334 334 struct {
335 335 uint8_t op;
336 336 BITFLD(r1, r3);
337 337 uint16_t ri2;
338 338 } rsi;
339 339 struct {
340 340 uint8_t op1;
341 341 BITFLD(r1, r3);
342 342 BITFLD(b2, dl2h);
343 343 uint8_t dl2l;
344 344 uint8_t dh2;
345 345 uint8_t op2;
346 346 } rsy_a;
347 347 struct {
348 348 uint8_t op1;
349 349 BITFLD(r1, m3);
350 350 BITFLD(b2, dl2h);
351 351 uint8_t dl2l;
352 352 uint8_t dh2;
353 353 uint8_t op2;
354 354 } rsy_b;
355 355 struct {
356 356 uint8_t op1;
357 357 BITFLD(r1, op2);
358 358 uint16_t i2;
359 359 } ri_a;
360 360 struct {
361 361 uint8_t op1;
362 362 BITFLD(r1, op2);
363 363 uint16_t ri2;
364 364 } ri_b;
365 365 struct {
366 366 uint8_t op1;
367 367 BITFLD(m1, op2);
368 368 uint16_t ri2;
369 369 } ri_c;
370 370 struct {
371 371 uint8_t op1;
372 372 BITFLD(r1, _pad0);
373 373 uint16_t i2;
374 374 BITFLD(m3, _pad1);
375 375 uint8_t op2;
376 376 } rie_a;
377 377 struct {
378 378 uint8_t op1;
379 379 BITFLD(r1, r2);
380 380 uint16_t ri4;
381 381 BITFLD(m3, _pad);
382 382 uint8_t op2;
383 383 } rie_b;
384 384 struct {
385 385 uint8_t op1;
386 386 BITFLD(r1, m3);
387 387 uint16_t ri4;
388 388 uint8_t i2;
389 389 uint8_t op2;
390 390 } rie_c;
391 391 struct {
392 392 uint8_t op1;
393 393 BITFLD(r1, r3);
394 394 uint16_t i2;
395 395 uint8_t _pad;
396 396 uint8_t op2;
397 397 } rie_d;
398 398 struct {
399 399 uint8_t op1;
400 400 BITFLD(r1, r3);
401 401 uint16_t ri2;
402 402 uint8_t _pad;
403 403 uint8_t op2;
404 404 } rie_e;
405 405 struct {
406 406 uint8_t op1;
407 407 BITFLD(r1, r2);
408 408 uint8_t i3;
409 409 uint8_t i4;
410 410 uint8_t i5;
411 411 uint8_t op2;
412 412 } rie_f;
413 413 struct {
414 414 uint8_t op1;
415 415 BITFLD(r1, op2);
416 416 uint16_t i2h;
417 417 uint16_t i2l;
418 418 } ril_a;
419 419 struct {
420 420 uint8_t op1;
421 421 BITFLD(r1, op2);
422 422 uint16_t ri2h;
423 423 uint16_t ri2l;
424 424 } ril_b;
425 425 struct {
426 426 uint8_t op1;
427 427 BITFLD(m1, op2);
428 428 uint16_t ri2h;
429 429 uint16_t ri2l;
430 430 } ril_c;
431 431 struct {
432 432 uint8_t op1;
433 433 BITFLD(r1, m3);
434 434 BITFLD(b4, d4h);
435 435 uint8_t d4l;
436 436 uint8_t i2;
437 437 uint8_t op2;
438 438 } ris;
439 439 struct {
440 440 uint8_t op;
441 441 uint8_t i2;
442 442 BITFLD(b1, d1h);
443 443 uint8_t d1l;
444 444 } si;
445 445 struct {
446 446 uint16_t op;
447 447 BITFLD(b1, d1h);
448 448 uint8_t d1l;
449 449 uint16_t i2;
450 450 } sil;
451 451 struct {
452 452 uint8_t op1;
453 453 uint8_t i2;
454 454 BITFLD(b1, dl1h);
455 455 uint8_t dl1l;
456 456 uint8_t dh1;
457 457 uint8_t op2;
458 458 } siy;
459 459 struct {
460 460 uint8_t op;
461 461 BITFLD(m1, pad);
462 462 BITFLD(b3, d3h);
463 463 uint8_t d3l;
464 464 uint16_t ri2;
465 465 } smi;
466 466 struct {
467 467 uint8_t op1;
468 468 uint8_t op2;
469 469 BITFLD(b2, d2h);
470 470 uint8_t d2l;
471 471 } s;
472 472 struct {
473 473 uint8_t op;
474 474 uint8_t l;
475 475 BITFLD(b1, d1h);
476 476 uint8_t d1l;
477 477 BITFLD(b2, d2h);
478 478 uint8_t d2l;
479 479 } ss_a;
480 480 struct {
481 481 uint8_t op;
482 482 BITFLD(l1, l2);
483 483 BITFLD(b1, d1h);
484 484 uint8_t d1l;
485 485 BITFLD(b2, d2h);
486 486 uint8_t d2l;
487 487 } ss_b;
488 488 struct {
489 489 uint8_t op;
490 490 BITFLD(l1, i3);
491 491 BITFLD(b1, d1h);
492 492 uint8_t d1l;
493 493 BITFLD(b2, d2h);
494 494 uint8_t d2l;
495 495 } ss_c;
496 496 struct {
497 497 uint8_t op;
498 498 BITFLD(r1, r3);
499 499 BITFLD(b1, d1h);
500 500 uint8_t d1l;
501 501 BITFLD(b2, d2h);
502 502 uint8_t d2l;
503 503 } ss_d;
504 504 struct {
505 505 uint8_t op;
506 506 BITFLD(r1, r3);
507 507 BITFLD(b2, d2h);
508 508 uint8_t d2l;
509 509 BITFLD(b4, d4h);
510 510 uint8_t d4l;
511 511 } ss_e;
512 512 struct {
513 513 uint8_t op;
514 514 uint8_t l2;
515 515 BITFLD(b1, d1h);
516 516 uint8_t d1l;
517 517 BITFLD(b2, d2h);
518 518 uint8_t d2l;
519 519 } ss_f;
520 520 struct {
521 521 uint16_t op;
522 522 BITFLD(b1, d1h);
523 523 uint8_t d1l;
524 524 BITFLD(b2, d2h);
525 525 uint8_t d2l;
526 526 } sse;
527 527 struct {
528 528 uint8_t op1;
529 529 BITFLD(r3, op2);
530 530 BITFLD(b1, d1h);
531 531 uint8_t d1l;
532 532 BITFLD(b2, d2h);
533 533 uint8_t d2l;
534 534 } ssf;
535 535 };
536 536
537 537 #define INSTR(op, m, fm, fl) [op] = { \
538 538 .it_u.it_inst = { \
539 539 .it_name = (m), \
540 540 .it_flags = (fl), \
541 541 }, \
542 542 .it_fmt = (fm), \
543 543 }
544 544 #define TABLE(op, tbl, o, s, m) [op] = { \
545 545 .it_u.it_table = { \
546 546 .it_ptr = (tbl), \
547 547 .it_off = (o), \
548 548 .it_shift = (s), \
549 549 .it_mask = (m), \
550 550 }, \
551 551 .it_fmt = IF_TBL, \
552 552 }
553 553 #define MULTI(op, tbl) [op] = { \
554 554 .it_u.it_multi.it_ptr = (tbl), \
555 555 .it_fmt = IF_MULTI, \
556 556 }
557 557
558 558 /*
559 559 * Instruction tables based on:
560 560 * GA22-7000-4 System/370 Principles of Operation
561 561 * SA22-7201-08 ESA/390 Principles of Operation
562 562 * SA22-7832-09 z/Architecture Principles of Operation
563 563 */
564 564
565 565 /* BEGIN CSTYLED */
566 566 static const struct inst_table tbl_01xx[256] = {
567 567 INSTR(0x01, "pr", IF_E, F_390 | F_Z),
568 568 INSTR(0x02, "upt", IF_E, F_390 | F_Z),
569 569 INSTR(0x04, "ptff", IF_E, F_Z),
570 570 INSTR(0x07, "sckpf", IF_E, F_390 | F_Z),
571 571 INSTR(0x0a, "pfpo", IF_E, F_Z),
572 572 INSTR(0x0b, "tam", IF_E, F_390 | F_Z),
573 573 INSTR(0x0c, "sam24", IF_E, F_390 | F_Z),
574 574 INSTR(0x0d, "sam31", IF_E, F_390 | F_Z),
575 575 INSTR(0x0e, "sam64", IF_E, F_Z),
576 576 INSTR(0xff, "trap2", IF_E, F_390 | F_Z),
577 577 };
578 578
579 579 static const struct inst_table tbl_07[] = {
580 580 INSTR(0x0, "nopr", IF_RR, F_370 | F_390 | F_Z | F_HIDE_MASK),
581 581 INSTR(0x1, "bor", IF_RR, F_370 | F_390 | F_Z | F_HIDE_MASK),
582 582 INSTR(0x2, "bhr", IF_RR, F_370 | F_390 | F_Z | F_HIDE_MASK),
583 583 INSTR(0x3, "bcr", IF_RR, F_370 | F_390 | F_Z | F_R1_IS_MASK),
584 584 INSTR(0x4, "blr", IF_RR, F_370 | F_390 | F_Z | F_HIDE_MASK),
585 585 INSTR(0x5, "bcr", IF_RR, F_370 | F_390 | F_Z | F_R1_IS_MASK),
586 586 INSTR(0x6, "bcr", IF_RR, F_370 | F_390 | F_Z | F_R1_IS_MASK),
587 587 INSTR(0x7, "bnzr", IF_RR, F_370 | F_390 | F_Z | F_HIDE_MASK),
588 588 INSTR(0x8, "ber", IF_RR, F_370 | F_390 | F_Z | F_HIDE_MASK),
589 589 INSTR(0x9, "bcr", IF_RR, F_370 | F_390 | F_Z | F_R1_IS_MASK),
590 590 INSTR(0xa, "bcr", IF_RR, F_370 | F_390 | F_Z | F_R1_IS_MASK),
591 591 INSTR(0xb, "bner", IF_RR, F_370 | F_390 | F_Z | F_HIDE_MASK),
592 592 INSTR(0xc, "bcr", IF_RR, F_370 | F_390 | F_Z | F_R1_IS_MASK),
593 593 INSTR(0xd, "bnhr", IF_RR, F_370 | F_390 | F_Z | F_HIDE_MASK),
594 594 INSTR(0xe, "bnor", IF_RR, F_370 | F_390 | F_Z | F_HIDE_MASK),
595 595 INSTR(0xf, "br", IF_RR, F_370 | F_390 | F_Z | F_HIDE_MASK),
596 596 };
597 597
598 598 static const struct inst_table tbl_47[] = {
599 599 INSTR(0x0, "nop", IF_RXb, F_370 | F_390 | F_Z | F_HIDE_MASK),
600 600 INSTR(0x1, "bo", IF_RXb, F_370 | F_390 | F_Z | F_HIDE_MASK),
601 601 INSTR(0x2, "bh", IF_RXb, F_370 | F_390 | F_Z | F_HIDE_MASK),
602 602 INSTR(0x3, "bc", IF_RXb, F_370 | F_390 | F_Z),
603 603 INSTR(0x4, "bl", IF_RXb, F_370 | F_390 | F_Z | F_HIDE_MASK),
604 604 INSTR(0x5, "bc", IF_RXb, F_370 | F_390 | F_Z),
605 605 INSTR(0x6, "bc", IF_RXb, F_370 | F_390 | F_Z),
606 606 INSTR(0x7, "bne", IF_RXb, F_370 | F_390 | F_Z | F_HIDE_MASK),
607 607 INSTR(0x8, "be", IF_RXb, F_370 | F_390 | F_Z | F_HIDE_MASK),
608 608 INSTR(0x9, "bc", IF_RXb, F_370 | F_390 | F_Z),
609 609 INSTR(0xa, "bc", IF_RXb, F_370 | F_390 | F_Z),
610 610 INSTR(0xb, "bnl", IF_RXb, F_370 | F_390 | F_Z | F_HIDE_MASK),
611 611 INSTR(0xc, "bc", IF_RXb, F_370 | F_390 | F_Z),
612 612 INSTR(0xd, "bnh", IF_RXb, F_370 | F_390 | F_Z | F_HIDE_MASK),
613 613 INSTR(0xe, "bno", IF_RXb, F_370 | F_390 | F_Z | F_HIDE_MASK),
614 614 INSTR(0xf, "b", IF_RXb, F_370 | F_390 | F_Z | F_HIDE_MASK),
615 615 };
616 616
617 617 /* the preferred mnemonic changed over time */
618 618 static const struct inst_table tbl_25[] = {
619 619 INSTR(F_370, "lrdr", IF_RR, F_370),
620 620 INSTR(F_390, "ldxr", IF_RR, F_390),
621 621 INSTR(F_Z, "ldxr", IF_RR, F_Z),
622 622 };
623 623
624 624 /* the preferred mnemonic changed over time */
625 625 static const struct inst_table tbl_35[] = {
626 626 INSTR(F_370, "lrer", IF_RR, F_370),
627 627 INSTR(F_390, "ledr", IF_RR, F_390),
628 628 INSTR(F_Z, "ledr", IF_RR, F_Z),
629 629 };
630 630
631 631 /* the preferred mnemonic changed over time */
632 632 static const struct inst_table tbl_3c[] = {
633 633 INSTR(F_370, "mer", IF_RR, F_370),
634 634 INSTR(F_390, "mder", IF_RR, F_390),
635 635 INSTR(F_Z, "mder", IF_RR, F_Z),
636 636 };
637 637
638 638 /* the preferred mnemonic changed over time */
639 639 static const struct inst_table tbl_7c[] = {
640 640 INSTR(F_370, "me", IF_RXa, F_370),
641 641 INSTR(F_390, "mde", IF_RXa, F_390),
642 642 INSTR(F_Z, "mde", IF_RXa, F_Z),
643 643 };
644 644
645 645 /* the meaning of this instruction changed over time */
646 646 static const struct inst_table tbl_84[] = {
647 647 INSTR(F_370, "wrd", IF_SI, F_370),
648 648 INSTR(F_390, "brxh", IF_RSI, F_390),
649 649 INSTR(F_Z, "brxh", IF_RSI, F_Z),
650 650 };
651 651
652 652 /* the meaning of this instruction changed over time */
653 653 static const struct inst_table tbl_85[] = {
654 654 INSTR(F_370, "rdd", IF_SI, F_370),
655 655 INSTR(F_390, "brxle", IF_RSI, F_390),
656 656 INSTR(F_Z, "brxle", IF_RSI, F_Z),
657 657 };
658 658
659 659 static const struct inst_table tbl_a5x[16] = {
660 660 INSTR(0x0, "iihh", IF_RIa, F_Z),
661 661 INSTR(0x1, "iihl", IF_RIa, F_Z),
662 662 INSTR(0x2, "iilh", IF_RIa, F_Z),
663 663 INSTR(0x3, "iill", IF_RIa, F_Z),
664 664 INSTR(0x4, "nihh", IF_RIa, F_Z),
665 665 INSTR(0x5, "nihl", IF_RIa, F_Z),
666 666 INSTR(0x6, "nilh", IF_RIa, F_Z),
667 667 INSTR(0x7, "nill", IF_RIa, F_Z),
668 668 INSTR(0x8, "oihh", IF_RIa, F_Z),
669 669 INSTR(0x9, "oihl", IF_RIa, F_Z),
670 670 INSTR(0xa, "oilh", IF_RIa, F_Z),
671 671 INSTR(0xb, "oill", IF_RIa, F_Z),
672 672 INSTR(0xc, "llihh", IF_RIa, F_Z),
673 673 INSTR(0xd, "llihl", IF_RIa, F_Z),
674 674 INSTR(0xe, "llilh", IF_RIa, F_Z),
675 675 INSTR(0xf, "llill", IF_RIa, F_Z),
676 676 };
677 677
678 678 /* the preferred mnemonic changed over time */
679 679 static const struct inst_table tbl_a70[] = {
680 680 INSTR(F_390, "tmh", IF_RIa, F_390),
681 681 INSTR(F_Z, "tmlh", IF_RIa, F_Z),
682 682 };
683 683
684 684 /* the preferred mnemonic changed over time */
685 685 static const struct inst_table tbl_a71[] = {
686 686 INSTR(F_390, "tml", IF_RIa, F_390),
687 687 INSTR(F_Z, "tmll", IF_RIa, F_Z),
688 688 };
689 689
690 690 static const struct inst_table tbl_a74[16] = {
691 691 INSTR(0x0, "jnop", IF_RIc, F_390 | F_Z | F_HIDE_MASK),
692 692 INSTR(0x1, "jo", IF_RIc, F_390 | F_Z | F_HIDE_MASK),
693 693 INSTR(0x2, "jh", IF_RIc, F_390 | F_Z | F_HIDE_MASK),
694 694 INSTR(0x3, "brc", IF_RIc, F_390 | F_Z),
695 695 INSTR(0x4, "jl", IF_RIc, F_390 | F_Z | F_HIDE_MASK),
696 696 INSTR(0x5, "brc", IF_RIc, F_390 | F_Z),
697 697 INSTR(0x6, "brc", IF_RIc, F_390 | F_Z),
698 698 INSTR(0x7, "jne", IF_RIc, F_390 | F_Z | F_HIDE_MASK),
699 699 INSTR(0x8, "je", IF_RIc, F_390 | F_Z | F_HIDE_MASK),
700 700 INSTR(0x9, "brc", IF_RIc, F_390 | F_Z),
701 701 INSTR(0xa, "brc", IF_RIc, F_390 | F_Z),
702 702 INSTR(0xb, "jnl", IF_RIc, F_390 | F_Z | F_HIDE_MASK),
703 703 INSTR(0xc, "brc", IF_RIc, F_390 | F_Z),
704 704 INSTR(0xd, "jnh", IF_RIc, F_390 | F_Z | F_HIDE_MASK),
705 705 INSTR(0xe, "jno", IF_RIc, F_390 | F_Z | F_HIDE_MASK),
706 706 INSTR(0xf, "j", IF_RIc, F_390 | F_Z | F_HIDE_MASK),
707 707 };
708 708
709 709 static const struct inst_table tbl_a7x[16] = {
710 710 MULTI(0x0, tbl_a70),
711 711 MULTI(0x1, tbl_a71),
712 712 INSTR(0x2, "tmhh", IF_RIa, F_Z),
713 713 INSTR(0x3, "tmhl", IF_RIa, F_Z),
714 714 TABLE(0x4, tbl_a74, 1, 4, 0x0f),
715 715 INSTR(0x5, "bras", IF_RIb, F_390 | F_Z),
716 716 INSTR(0x6, "brct", IF_RIb, F_390 | F_Z),
717 717 INSTR(0x7, "brctg", IF_RIb, F_Z),
718 718 INSTR(0x8, "lhi", IF_RIa, F_390 | F_Z),
719 719 INSTR(0x9, "lghi", IF_RIa, F_Z),
720 720 INSTR(0xa, "ahi", IF_RIa, F_390 | F_Z | F_SIGNED_IMM),
721 721 INSTR(0xb, "aghi", IF_RIa, F_Z | F_SIGNED_IMM),
722 722 INSTR(0xc, "mhi", IF_RIa, F_390 | F_Z),
723 723 INSTR(0xd, "mghi", IF_RIa, F_Z),
724 724 INSTR(0xe, "chi", IF_RIa, F_390 | F_Z | F_SIGNED_IMM),
725 725 INSTR(0xf, "cghi", IF_RIa, F_Z | F_SIGNED_IMM),
726 726 };
727 727
728 728 static const struct inst_table tbl_b2a6[] = {
729 729 INSTR(F_390, "cuutf", IF_RRFc, F_390),
730 730 INSTR(F_Z, "c21", IF_RRFc, F_Z),
731 731 };
732 732
733 733 static const struct inst_table tbl_b2a7[] = {
734 734 INSTR(F_390, "cutfu", IF_RRFc, F_390),
735 735 INSTR(F_Z, "cu12", IF_RRFc, F_Z),
736 736 };
737 737
738 738 static const struct inst_table tbl_b2xx[256] = {
739 739 INSTR(0x02, "stidp", IF_S, F_370 | F_390 | F_Z),
740 740 INSTR(0x04, "sck", IF_S, F_370 | F_390 | F_Z),
741 741 INSTR(0x05, "stck", IF_S, F_370 | F_390 | F_Z),
742 742 INSTR(0x06, "sckc", IF_S, F_370 | F_390 | F_Z),
743 743 INSTR(0x07, "stckc", IF_S, F_370 | F_390 | F_Z),
744 744 INSTR(0x08, "spt", IF_S, F_370 | F_390 | F_Z),
745 745 INSTR(0x09, "stpt", IF_S, F_370 | F_390 | F_Z),
746 746 INSTR(0x0a, "spka", IF_S, F_370 | F_390 | F_Z),
747 747 INSTR(0x0b, "ipk", IF_S, F_370 | F_390 | F_Z),
748 748 INSTR(0x0d, "ptlb", IF_S, F_370 | F_390 | F_Z),
749 749 INSTR(0x10, "spx", IF_S, F_370 | F_390 | F_Z),
750 750 INSTR(0x11, "stpx", IF_S, F_370 | F_390 | F_Z),
751 751 INSTR(0x12, "stap", IF_S, F_370 | F_390 | F_Z),
752 752 INSTR(0x13, "rrb", IF_S, F_370),
753 753 INSTR(0x14, "sie", IF_S, F_390 | F_Z),
754 754 INSTR(0x18, "pc", IF_S, F_390 | F_Z),
755 755 INSTR(0x19, "sac", IF_S, F_390 | F_Z),
756 756 INSTR(0x1a, "cfc", IF_S, F_390 | F_Z),
757 757 INSTR(0x21, "ipte", IF_RRE, F_390 | F_Z),
758 758 INSTR(0x22, "ipm", IF_RRE, F_390 | F_Z),
759 759 INSTR(0x23, "ivsk", IF_RRE, F_390 | F_Z),
760 760 INSTR(0x24, "iac", IF_RRE, F_390 | F_Z),
761 761 INSTR(0x25, "ssar", IF_RRE, F_390 | F_Z),
762 762 INSTR(0x26, "epar", IF_RRE, F_390 | F_Z),
763 763 INSTR(0x27, "esar", IF_RRE, F_390 | F_Z),
764 764 INSTR(0x28, "pt", IF_RRE, F_390 | F_Z),
765 765 INSTR(0x29, "iske", IF_RRE, F_390 | F_Z),
766 766 INSTR(0x2a, "rrbe", IF_RRE, F_390 | F_Z),
767 767 INSTR(0x2b, "sske", IF_RRFc, F_390 | F_Z),
768 768 INSTR(0x2c, "tb", IF_RRE, F_390 | F_Z),
769 769 INSTR(0x2d, "dxr", IF_RRE, F_390 | F_Z),
770 770 INSTR(0x2e, "pgin", IF_RRE, F_390 | F_Z),
771 771 INSTR(0x2f, "pgout", IF_RRE, F_390 | F_Z),
772 772 INSTR(0x30, "csch", IF_S, F_Z),
773 773 INSTR(0x31, "hsch", IF_S, F_Z),
774 774 INSTR(0x32, "msch", IF_S, F_Z),
775 775 INSTR(0x33, "ssch", IF_S, F_Z),
776 776 INSTR(0x34, "stsch", IF_S, F_Z),
777 777 INSTR(0x35, "tsch", IF_S, F_Z),
778 778 INSTR(0x36, "tpi", IF_S, F_Z),
779 779 INSTR(0x37, "sal", IF_S, F_Z),
780 780 INSTR(0x38, "rsch", IF_S, F_Z),
781 781 INSTR(0x39, "stcrw", IF_S, F_Z),
782 782 INSTR(0x3a, "stcps", IF_S, F_Z),
783 783 INSTR(0x3b, "rchp", IF_S, F_Z),
784 784 INSTR(0x3d, "schm", IF_S, F_Z),
785 785 INSTR(0x40, "bakr", IF_RRE, F_390 | F_Z),
786 786 INSTR(0x41, "cksm", IF_RRE, F_390 | F_Z),
787 787 INSTR(0x44, "sqdr", IF_RRE, F_390 | F_Z),
788 788 INSTR(0x45, "sqer", IF_RRE, F_390 | F_Z),
789 789 INSTR(0x46, "stura", IF_RRE, F_390 | F_Z),
790 790 INSTR(0x47, "msta", IF_RRE, F_390 | F_Z),
791 791 INSTR(0x48, "palb", IF_RRE, F_390 | F_Z),
792 792 INSTR(0x49, "ereg", IF_RRE, F_390 | F_Z),
793 793 INSTR(0x4a, "esta", IF_RRE, F_390 | F_Z),
794 794 INSTR(0x4b, "lura", IF_RRE, F_390 | F_Z),
795 795 INSTR(0x4c, "tar", IF_RRE, F_390 | F_Z),
796 796 INSTR(0x4d, "cpya", IF_RRE, F_390 | F_Z),
797 797 INSTR(0x4e, "sar", IF_RRE, F_390 | F_Z),
798 798 INSTR(0x4f, "ear", IF_RRE, F_390 | F_Z),
799 799 INSTR(0x50, "csp", IF_RRE, F_390 | F_Z),
800 800 INSTR(0x52, "msr", IF_RRE, F_390 | F_Z),
801 801 INSTR(0x54, "mvpg", IF_RRE, F_390 | F_Z),
802 802 INSTR(0x55, "mvst", IF_RRE, F_390 | F_Z),
803 803 INSTR(0x57, "cuse", IF_RRE, F_390 | F_Z),
804 804 INSTR(0x58, "bsg", IF_RRE, F_390 | F_Z),
805 805 INSTR(0x5a, "bsa", IF_RRE, F_390 | F_Z),
806 806 INSTR(0x5d, "clst", IF_RRE, F_390 | F_Z),
807 807 INSTR(0x5e, "srst", IF_RRE, F_390 | F_Z),
808 808 INSTR(0x63, "cmpsc", IF_RRE, F_Z),
809 809 INSTR(0x76, "xsch", IF_S, F_Z),
810 810 INSTR(0x77, "rp", IF_S, F_390 | F_Z),
811 811 INSTR(0x78, "stcke", IF_S, F_390 | F_Z),
812 812 INSTR(0x79, "sacf", IF_S, F_390 | F_Z),
813 813 INSTR(0x7c, "stckf", IF_S, F_Z),
814 814 INSTR(0x7d, "stsi", IF_S, F_390 | F_Z),
815 815 INSTR(0x99, "srnm", IF_S, F_390 | F_Z),
816 816 INSTR(0x9c, "stfpc", IF_S, F_390 | F_Z),
817 817 INSTR(0x9d, "lfpc", IF_S, F_390 | F_Z),
818 818 INSTR(0xa5, "tre", IF_RRE, F_390 | F_Z),
819 819 MULTI(0xa6, tbl_b2a6),
820 820 MULTI(0xa7, tbl_b2a7),
821 821 INSTR(0xb0, "stfle", IF_S, F_Z),
822 822 INSTR(0xb1, "stfl", IF_S, F_390 | F_Z),
823 823 INSTR(0xb2, "lpswe", IF_S, F_Z),
824 824 INSTR(0xb8, "srnmb", IF_S, F_Z),
825 825 INSTR(0xb9, "srnmt", IF_S, F_Z),
826 826 INSTR(0xbd, "lfas", IF_S, F_Z),
827 827 INSTR(0xe8, "ppa", IF_RRFc, F_Z),
828 828 INSTR(0xec, "etnd", IF_RRE, F_Z),
829 829 INSTR(0xf8, "tend", IF_S, F_Z),
830 830 INSTR(0xfa, "niai", IF_IE, F_Z),
831 831 INSTR(0xfc, "tabort", IF_S, F_Z),
832 832 INSTR(0xff, "trap4", IF_S, F_390 | F_Z),
833 833 };
834 834
835 835 static const struct inst_table tbl_b344[] = {
836 836 INSTR(F_390, "ledbr", IF_RRE, F_390),
837 837 INSTR(F_Z, "ledbra", IF_RRFe, F_Z),
838 838 };
839 839
840 840 static const struct inst_table tbl_b345[] = {
841 841 INSTR(F_390, "ldxbr", IF_RRE, F_390),
842 842 INSTR(F_Z, "ldxbra", IF_RRFe, F_Z),
843 843 };
844 844
845 845 static const struct inst_table tbl_b346[] = {
846 846 INSTR(F_390, "lexbr", IF_RRE, F_390),
847 847 INSTR(F_Z, "lexbra", IF_RRFe, F_Z),
848 848 };
849 849
850 850 static const struct inst_table tbl_b347[] = {
851 851 INSTR(F_390, "fixbr", IF_RRFe, F_390),
852 852 INSTR(F_Z, "fixbra", IF_RRFe, F_Z),
853 853 };
854 854
855 855 static const struct inst_table tbl_b357[] = {
856 856 INSTR(F_390, "fiebr", IF_RRFe, F_390),
857 857 INSTR(F_Z, "fiebre", IF_RRFe, F_Z),
858 858 };
859 859
860 860 static const struct inst_table tbl_b35f[] = {
861 861 INSTR(F_390, "fidbr", IF_RRFe, F_390),
862 862 INSTR(F_Z, "fidbra", IF_RRFe, F_Z),
863 863 };
864 864
865 865 static const struct inst_table tbl_b394[] = {
866 866 INSTR(F_390, "cefbr", IF_RRE, F_390),
867 867 INSTR(F_Z, "cefbra", IF_RRFe, F_Z),
868 868 };
869 869
870 870 static const struct inst_table tbl_b395[] = {
871 871 INSTR(F_390, "cdfbr", IF_RRE, F_390),
872 872 INSTR(F_Z, "cdfbra", IF_RRFe, F_Z),
873 873 };
874 874
875 875 static const struct inst_table tbl_b396[] = {
876 876 INSTR(F_390, "cxfbr", IF_RRE, F_390),
877 877 INSTR(F_Z, "cxfbra", IF_RRFe, F_Z),
878 878 };
879 879
880 880 static const struct inst_table tbl_b398[] = {
881 881 INSTR(F_390, "cfebr", IF_RRFe, F_390),
882 882 INSTR(F_Z, "cfebra", IF_RRFe, F_Z),
883 883 };
884 884
885 885 static const struct inst_table tbl_b399[] = {
886 886 INSTR(F_390, "cfdbr", IF_RRFe, F_390),
887 887 INSTR(F_Z, "cfdbra", IF_RRFe, F_Z),
888 888 };
889 889
890 890 static const struct inst_table tbl_b39a[] = {
891 891 INSTR(F_390, "cfxbr", IF_RRFe, F_390),
892 892 INSTR(F_Z, "cfxbra", IF_RRFe, F_Z),
893 893 };
894 894
895 895 static const struct inst_table tbl_b3xx[256] = {
896 896 INSTR(0x00, "lpebr", IF_RRE, F_390 | F_Z),
897 897 INSTR(0x01, "lnebr", IF_RRE, F_390 | F_Z),
898 898 INSTR(0x02, "ltebr", IF_RRE, F_390 | F_Z),
899 899 INSTR(0x03, "lcebr", IF_RRE, F_390 | F_Z),
900 900 INSTR(0x04, "ldebr", IF_RRE, F_390 | F_Z),
901 901 INSTR(0x05, "lxdbr", IF_RRE, F_390 | F_Z),
902 902 INSTR(0x06, "lxebr", IF_RRE, F_390 | F_Z),
903 903 INSTR(0x07, "mxdbr", IF_RRE, F_390 | F_Z),
904 904 INSTR(0x08, "kebr", IF_RRE, F_390 | F_Z),
905 905 INSTR(0x09, "cebr", IF_RRE, F_390 | F_Z),
906 906 INSTR(0x0a, "aebr", IF_RRE, F_390 | F_Z),
907 907 INSTR(0x0b, "sebr", IF_RRE, F_390 | F_Z),
908 908 INSTR(0x0c, "mdebr", IF_RRE, F_390 | F_Z),
909 909 INSTR(0x0d, "debr", IF_RRE, F_390 | F_Z),
910 910 INSTR(0x0e, "maebr", IF_RRD, F_390 | F_Z),
911 911 INSTR(0x0f, "msebr", IF_RRD, F_390 | F_Z),
912 912 INSTR(0x10, "lpdbr", IF_RRE, F_390 | F_Z),
913 913 INSTR(0x11, "lndbr", IF_RRE, F_390 | F_Z),
914 914 INSTR(0x12, "ltdbr", IF_RRE, F_390 | F_Z),
915 915 INSTR(0x13, "lcdbr", IF_RRE, F_390 | F_Z),
916 916 INSTR(0x14, "sqebr", IF_RRE, F_390 | F_Z),
917 917 INSTR(0x15, "sqdbr", IF_RRE, F_390 | F_Z),
918 918 INSTR(0x16, "sqxbr", IF_RRE, F_390 | F_Z),
919 919 INSTR(0x17, "meebr", IF_RRE, F_390 | F_Z),
920 920 INSTR(0x18, "kdbr", IF_RRE, F_390 | F_Z),
921 921 INSTR(0x19, "cdbr", IF_RRE, F_390 | F_Z),
922 922 INSTR(0x1a, "adbr", IF_RRE, F_390 | F_Z),
923 923 INSTR(0x1b, "sdbr", IF_RRE, F_390 | F_Z),
924 924 INSTR(0x1c, "mdbr", IF_RRE, F_390 | F_Z),
925 925 INSTR(0x1d, "ddbr", IF_RRE, F_390 | F_Z),
926 926 INSTR(0x1e, "madbr", IF_RRD, F_390 | F_Z),
927 927 INSTR(0x1f, "msdbr", IF_RRD, F_390 | F_Z),
928 928 INSTR(0x24, "lder", IF_RRE, F_390 | F_Z),
929 929 INSTR(0x25, "lxdr", IF_RRE, F_390 | F_Z),
930 930 INSTR(0x26, "lxer", IF_RRE, F_390 | F_Z),
931 931 INSTR(0x2e, "maer", IF_RRD, F_390 | F_Z),
932 932 INSTR(0x2f, "mser", IF_RRD, F_390 | F_Z),
933 933 INSTR(0x36, "sqxr", IF_RRE, F_390 | F_Z),
934 934 INSTR(0x37, "meer", IF_RRE, F_390 | F_Z),
935 935 INSTR(0x38, "maylr", IF_RRD, F_Z),
936 936 INSTR(0x39, "mylr", IF_RRD, F_Z),
937 937 INSTR(0x3a, "mayr", IF_RRD, F_Z),
938 938 INSTR(0x3b, "myr", IF_RRD, F_Z),
939 939 INSTR(0x3c, "mayhr", IF_RRD, F_Z),
940 940 INSTR(0x3d, "myhr", IF_RRD, F_Z),
941 941 INSTR(0x3e, "madr", IF_RRD, F_390 | F_Z),
942 942 INSTR(0x3f, "msdr", IF_RRD, F_390 | F_Z),
943 943 INSTR(0x40, "lpxbr", IF_RRE, F_390 | F_Z),
944 944 INSTR(0x41, "lnxbr", IF_RRE, F_390 | F_Z),
945 945 INSTR(0x42, "ltxbr", IF_RRE, F_390 | F_Z),
946 946 INSTR(0x43, "lcxbr", IF_RRE, F_390 | F_Z),
947 947 MULTI(0x44, tbl_b344),
948 948 MULTI(0x45, tbl_b345),
949 949 MULTI(0x46, tbl_b346),
950 950 MULTI(0x47, tbl_b347),
951 951 INSTR(0x48, "kxbr", IF_RRE, F_390 | F_Z),
952 952 INSTR(0x49, "cxbr", IF_RRE, F_390 | F_Z),
953 953 INSTR(0x4a, "axbr", IF_RRE, F_390 | F_Z),
954 954 INSTR(0x4b, "sxbr", IF_RRE, F_390 | F_Z),
955 955 INSTR(0x4c, "mxbr", IF_RRE, F_390 | F_Z),
956 956 INSTR(0x4d, "dxbr", IF_RRE, F_390 | F_Z),
957 957 INSTR(0x50, "tbedr", IF_RRFe, F_390 | F_Z),
958 958 INSTR(0x51, "tbdr", IF_RRFe, F_390 | F_Z),
959 959 INSTR(0x53, "diebr", IF_RRFb, F_390 | F_Z),
960 960 MULTI(0x57, tbl_b357),
961 961 INSTR(0x58, "thder", IF_RRE, F_390 | F_Z),
962 962 INSTR(0x59, "thdr", IF_RRE, F_390 | F_Z),
963 963 INSTR(0x5b, "didbr", IF_RRFe, F_390 | F_Z),
964 964 MULTI(0x5f, tbl_b35f),
965 965 INSTR(0x60, "lpxr", IF_RRE, F_390 | F_Z),
966 966 INSTR(0x61, "lnxr", IF_RRE, F_390 | F_Z),
967 967 INSTR(0x62, "ltxr", IF_RRE, F_390 | F_Z),
968 968 INSTR(0x63, "lcxr", IF_RRE, F_390 | F_Z),
969 969 INSTR(0x65, "lxr", IF_RRE, F_390 | F_Z),
970 970 INSTR(0x66, "lexr", IF_RRE, F_390 | F_Z),
971 971 INSTR(0x67, "fixr", IF_RRE, F_390 | F_Z),
972 972 INSTR(0x69, "cxr", IF_RRE, F_390 | F_Z),
973 973 INSTR(0x70, "lpdfr", IF_RRE, F_Z),
974 974 INSTR(0x71, "lndfr", IF_RRE, F_Z),
975 975 INSTR(0x72, "cpsdr", IF_RRFe, F_Z),
976 976 INSTR(0x73, "lcdfr", IF_RRE, F_Z),
977 977 INSTR(0x74, "lzer", IF_RRE, F_390 | F_Z),
978 978 INSTR(0x75, "lzdr", IF_RRE, F_390 | F_Z),
979 979 INSTR(0x76, "lzxr", IF_RRE, F_390 | F_Z),
980 980 INSTR(0x77, "fier", IF_RRE, F_390 | F_Z),
981 981 INSTR(0x7f, "fidr", IF_RRE, F_390 | F_Z),
982 982 INSTR(0x84, "sfpc", IF_RRE, F_390 | F_Z),
983 983 INSTR(0x85, "sfasr", IF_RRE, F_Z),
984 984 INSTR(0x8c, "efpc", IF_RRE, F_390 | F_Z),
985 985 INSTR(0x90, "celfbr", IF_RRFe, F_Z),
986 986 INSTR(0x91, "cdlfbr", IF_RRFe, F_Z),
987 987 INSTR(0x92, "cxlfbr", IF_RRFe, F_Z),
988 988 MULTI(0x94, tbl_b394),
989 989 MULTI(0x95, tbl_b395),
990 990 MULTI(0x96, tbl_b396),
991 991 MULTI(0x98, tbl_b398),
992 992 MULTI(0x99, tbl_b399),
993 993 MULTI(0x9a, tbl_b39a),
994 994 INSTR(0x9c, "clfebr", IF_RRFe, F_Z),
995 995 INSTR(0x9d, "clfdbr", IF_RRFe, F_Z),
996 996 INSTR(0x9e, "clfxbr", IF_RRFe, F_Z),
997 997 INSTR(0xa0, "celgbr", IF_RRFe, F_Z),
998 998 INSTR(0xa1, "cdlgbr", IF_RRFe, F_Z),
999 999 INSTR(0xa2, "cxlgbr", IF_RRFe, F_Z),
1000 1000 INSTR(0xa4, "cegbra", IF_RRFe, F_Z),
1001 1001 INSTR(0xa5, "cdgbra", IF_RRFe, F_Z),
1002 1002 INSTR(0xa6, "cxgbra", IF_RRFe, F_Z),
1003 1003 INSTR(0xa8, "cgebra", IF_RRFe, F_Z),
1004 1004 INSTR(0xa9, "cgdbra", IF_RRFe, F_Z),
1005 1005 INSTR(0xaa, "cgxbra", IF_RRFe, F_Z),
1006 1006 INSTR(0xac, "clgebr", IF_RRFe, F_Z),
1007 1007 INSTR(0xad, "clgdbr", IF_RRFe, F_Z),
1008 1008 INSTR(0xae, "clgxbr", IF_RRFe, F_Z),
1009 1009 INSTR(0xb4, "cefr", IF_RRE, F_390 | F_Z),
1010 1010 INSTR(0xb5, "cdfr", IF_RRE, F_390 | F_Z),
1011 1011 INSTR(0xb6, "cxfr", IF_RRE, F_390 | F_Z),
1012 1012 INSTR(0xb8, "cfer", IF_RRFe, F_390 | F_Z),
1013 1013 INSTR(0xb9, "cfdr", IF_RRFe, F_390 | F_Z),
1014 1014 INSTR(0xba, "cfxr", IF_RRFe, F_390 | F_Z),
1015 1015 INSTR(0xc1, "ldgr", IF_RRE, F_Z),
1016 1016 INSTR(0xc4, "cegr", IF_RRE, F_Z),
1017 1017 INSTR(0xc5, "cdgr", IF_RRE, F_Z),
1018 1018 INSTR(0xc6, "cxgr", IF_RRE, F_Z),
1019 1019 INSTR(0xc8, "cger", IF_RRFe, F_Z),
1020 1020 INSTR(0xc9, "cgdr", IF_RRFe, F_Z),
1021 1021 INSTR(0xca, "cgxr", IF_RRFe, F_Z),
1022 1022 INSTR(0xcd, "lgdr", IF_RRE, F_Z),
1023 1023 INSTR(0xd0, "mdtra", IF_RRFa, F_Z),
1024 1024 INSTR(0xd1, "ddtra", IF_RRFa, F_Z),
1025 1025 INSTR(0xd2, "adtra", IF_RRFa, F_Z),
1026 1026 INSTR(0xd3, "sdtra", IF_RRFa, F_Z),
1027 1027 INSTR(0xd4, "ldetr", IF_RRFd, F_Z),
1028 1028 INSTR(0xd5, "ledtr", IF_RRFe, F_Z),
1029 1029 INSTR(0xd6, "ltdtr", IF_RRE, F_Z),
1030 1030 INSTR(0xd7, "fidtr", IF_RRFe, F_Z),
1031 1031 INSTR(0xd8, "mxtra", IF_RRFa, F_Z),
1032 1032 INSTR(0xd9, "dxtra", IF_RRFa, F_Z),
1033 1033 INSTR(0xda, "axtra", IF_RRFa, F_Z),
1034 1034 INSTR(0xdb, "sxtra", IF_RRFa, F_Z),
1035 1035 INSTR(0xdc, "lxdtr", IF_RRFd, F_Z),
1036 1036 INSTR(0xdd, "ldxtr", IF_RRFe, F_Z),
1037 1037 INSTR(0xde, "ltxtr", IF_RRE, F_Z),
1038 1038 INSTR(0xdf, "fixtr", IF_RRFe, F_Z),
1039 1039 INSTR(0xe0, "kdtr", IF_RRE, F_Z),
1040 1040 INSTR(0xe1, "cgdtra", IF_RRFe, F_Z),
1041 1041 INSTR(0xe2, "cudtr", IF_RRE, F_Z),
1042 1042 INSTR(0xe3, "csdtr", IF_RRFd, F_Z),
1043 1043 INSTR(0xe4, "cdtr", IF_RRE, F_Z),
1044 1044 INSTR(0xe5, "eedtr", IF_RRE, F_Z),
1045 1045 INSTR(0xe7, "esdtr", IF_RRE, F_Z),
1046 1046 INSTR(0xe8, "kxtr", IF_RRE, F_Z),
1047 1047 INSTR(0xe9, "cgxtra", IF_RRFe, F_Z),
1048 1048 INSTR(0xea, "cuxtr", IF_RRE, F_Z),
1049 1049 INSTR(0xeb, "csxtr", IF_RRFd, F_Z),
1050 1050 INSTR(0xec, "cxtr", IF_RRE, F_Z),
1051 1051 INSTR(0xed, "eextr", IF_RRE, F_Z),
1052 1052 INSTR(0xef, "esxtr", IF_RRE, F_Z),
1053 1053 INSTR(0xf1, "cdgtra", IF_RRE, F_Z),
1054 1054 INSTR(0xf2, "cdutr", IF_RRE, F_Z),
1055 1055 INSTR(0xf3, "cdstr", IF_RRE, F_Z),
1056 1056 INSTR(0xf4, "cedtr", IF_RRE, F_Z),
1057 1057 INSTR(0xf5, "qadtr", IF_RRFb, F_Z),
1058 1058 INSTR(0xf6, "iedtr", IF_RRFb, F_Z),
1059 1059 INSTR(0xf7, "rrdtr", IF_RRFb, F_Z),
1060 1060 INSTR(0xf9, "cxgtra", IF_RRE, F_Z),
1061 1061 INSTR(0xfa, "cxutr", IF_RRE, F_Z),
1062 1062 INSTR(0xfb, "cxstr", IF_RRE, F_Z),
1063 1063 INSTR(0xfc, "cextr", IF_RRE, F_Z),
1064 1064 INSTR(0xfd, "qaxtr", IF_RRFb, F_Z),
1065 1065 INSTR(0xfe, "iextr", IF_RRFb, F_Z),
1066 1066 INSTR(0xff, "rrxtr", IF_RRFb, F_Z),
1067 1067 };
1068 1068
1069 1069 static const struct inst_table tbl_b9xx[256] = {
1070 1070 INSTR(0x00, "lpgr", IF_RRE, F_Z),
1071 1071 INSTR(0x01, "lngr", IF_RRE, F_Z),
1072 1072 INSTR(0x02, "ltgr", IF_RRE, F_Z),
1073 1073 INSTR(0x03, "lcgr", IF_RRE, F_Z),
1074 1074 INSTR(0x04, "lgr", IF_RRE, F_Z),
1075 1075 INSTR(0x05, "lurag", IF_RRE, F_Z),
1076 1076 INSTR(0x06, "lgbr", IF_RRE, F_Z),
1077 1077 INSTR(0x07, "lghr", IF_RRE, F_Z),
1078 1078 INSTR(0x08, "agr", IF_RRE, F_Z),
1079 1079 INSTR(0x09, "sgr", IF_RRE, F_Z),
1080 1080 INSTR(0x0a, "algr", IF_RRE, F_Z),
1081 1081 INSTR(0x0b, "slgr", IF_RRE, F_Z),
1082 1082 INSTR(0x0c, "msgr", IF_RRE, F_Z),
1083 1083 INSTR(0x0d, "dsgr", IF_RRE, F_Z),
1084 1084 INSTR(0x0e, "eregg", IF_RRE, F_Z),
1085 1085 INSTR(0x0f, "lrvgr", IF_RRE, F_Z),
1086 1086 INSTR(0x10, "lpgfr", IF_RRE, F_Z),
1087 1087 INSTR(0x11, "lngfr", IF_RRE, F_Z),
1088 1088 INSTR(0x12, "ltgfr", IF_RRE, F_Z),
1089 1089 INSTR(0x13, "lcgfr", IF_RRE, F_Z),
1090 1090 INSTR(0x14, "lgfr", IF_RRE, F_Z),
1091 1091 INSTR(0x16, "llgfr", IF_RRE, F_Z),
1092 1092 INSTR(0x17, "llgtr", IF_RRE, F_Z),
1093 1093 INSTR(0x18, "agfr", IF_RRE, F_Z),
1094 1094 INSTR(0x19, "sgfr", IF_RRE, F_Z),
1095 1095 INSTR(0x1a, "algfr", IF_RRE, F_Z),
1096 1096 INSTR(0x1b, "slgfr", IF_RRE, F_Z),
1097 1097 INSTR(0x1c, "msgfr", IF_RRE, F_Z),
1098 1098 INSTR(0x1d, "dsgfr", IF_RRE, F_Z),
1099 1099 INSTR(0x1e, "kmac", IF_RRE, F_390 | F_Z),
1100 1100 INSTR(0x1f, "lrvr", IF_RRE, F_390 | F_Z),
1101 1101 INSTR(0x20, "cgr", IF_RRE, F_Z),
1102 1102 INSTR(0x21, "clgr", IF_RRE, F_Z),
1103 1103 INSTR(0x25, "sturg", IF_RRE, F_Z),
1104 1104 INSTR(0x26, "lbr", IF_RRE, F_Z),
1105 1105 INSTR(0x27, "lhr", IF_RRE, F_Z),
1106 1106 INSTR(0x28, "pckmo", IF_RRE, F_Z),
1107 1107 INSTR(0x2a, "kmf", IF_RRE, F_Z),
1108 1108 INSTR(0x2b, "kmo", IF_RRE, F_Z),
1109 1109 INSTR(0x2c, "pcc", IF_RRE, F_Z),
1110 1110 INSTR(0x2d, "kmctr", IF_RRFd, F_Z),
1111 1111 INSTR(0x2e, "km", IF_RRE, F_390 | F_Z),
1112 1112 INSTR(0x2f, "kmc", IF_RRE, F_390 | F_Z),
1113 1113 INSTR(0x30, "cgfr", IF_RRE, F_Z),
1114 1114 INSTR(0x31, "clgfr", IF_RRE, F_Z),
1115 1115 INSTR(0x3e, "kimd", IF_RRE, F_390 | F_Z),
1116 1116 INSTR(0x3f, "klmd", IF_RRE, F_390 | F_Z),
1117 1117 INSTR(0x41, "cfdtr", IF_RRFe, F_Z),
1118 1118 INSTR(0x42, "clgdtr", IF_RRFe, F_Z),
1119 1119 INSTR(0x43, "clfdtr", IF_RRFe, F_Z),
1120 1120 INSTR(0x46, "bctgr", IF_RRE, F_Z),
1121 1121 INSTR(0x49, "cfxtr", IF_RRFe, F_Z),
1122 1122 INSTR(0x4a, "clgxtr", IF_RRFe, F_Z),
1123 1123 INSTR(0x4b, "clfxtr", IF_RRFe, F_Z),
1124 1124 INSTR(0x51, "cdftr", IF_RRE, F_Z),
1125 1125 INSTR(0x52, "cdlgtr", IF_RRFe, F_Z),
1126 1126 INSTR(0x53, "cdlftr", IF_RRFe, F_Z),
1127 1127 INSTR(0x59, "cxftr", IF_RRE, F_Z),
1128 1128 INSTR(0x5a, "cxlgtr", IF_RRFe, F_Z),
1129 1129 INSTR(0x5b, "cxlftr", IF_RRFe, F_Z),
1130 1130 INSTR(0x60, "cgrt", IF_RRFc, F_Z),
1131 1131 INSTR(0x61, "clgrt", IF_RRFc, F_Z),
1132 1132 INSTR(0x72, "crt", IF_RRFc, F_Z),
1133 1133 INSTR(0x73, "clrt", IF_RRFc, F_Z),
1134 1134 INSTR(0x80, "ngr", IF_RRE, F_Z),
1135 1135 INSTR(0x81, "ogr", IF_RRE, F_Z),
1136 1136 INSTR(0x82, "xgr", IF_RRE, F_Z),
1137 1137 INSTR(0x83, "flogr", IF_RRE, F_Z),
1138 1138 INSTR(0x84, "llgcr", IF_RRE, F_Z),
1139 1139 INSTR(0x85, "llghr", IF_RRE, F_Z),
1140 1140 INSTR(0x86, "mlgr", IF_RRE, F_Z),
1141 1141 INSTR(0x87, "dlgr", IF_RRE, F_Z),
1142 1142 INSTR(0x88, "alcgr", IF_RRE, F_Z),
1143 1143 INSTR(0x89, "slbgr", IF_RRE, F_Z),
1144 1144 INSTR(0x8a, "cspg", IF_RRE, F_Z),
1145 1145 INSTR(0x8d, "epsw", IF_RRE, F_390 | F_Z),
1146 1146 INSTR(0x8e, "idte", IF_RRFb, F_Z),
1147 1147 INSTR(0x8f, "crdte", IF_RRFb, F_Z),
1148 1148 INSTR(0x90, "trtt", IF_RRFc, F_390 | F_Z),
1149 1149 INSTR(0x91, "trto", IF_RRFc, F_390 | F_Z),
1150 1150 INSTR(0x92, "trot", IF_RRFc, F_390 | F_Z),
1151 1151 INSTR(0x93, "troo", IF_RRFc, F_390 | F_Z),
1152 1152 INSTR(0x94, "llcr", IF_RRE, F_Z),
1153 1153 INSTR(0x95, "llhr", IF_RRE, F_Z),
1154 1154 INSTR(0x96, "mlr", IF_RRE, F_390 | F_Z),
1155 1155 INSTR(0x97, "dlr", IF_RRE, F_390 | F_Z),
1156 1156 INSTR(0x98, "alcr", IF_RRE, F_390 | F_Z),
1157 1157 INSTR(0x99, "slbr", IF_RRE, F_390 | F_Z),
1158 1158 INSTR(0x9a, "epair", IF_RRE, F_Z),
1159 1159 INSTR(0x9b, "esair", IF_RRE, F_Z),
1160 1160 INSTR(0x9d, "esea", IF_RRE, F_Z),
1161 1161 INSTR(0x9e, "pti", IF_RRE, F_Z),
1162 1162 INSTR(0x9f, "ssair", IF_RRE, F_Z),
1163 1163 INSTR(0xa2, "ptf", IF_RRE, F_Z),
1164 1164 INSTR(0xaa, "lptea", IF_RRFb, F_Z),
1165 1165 INSTR(0xae, "rrbm", IF_RRE, F_Z),
1166 1166 INSTR(0xaf, "pfmf", IF_RRE, F_Z),
1167 1167 INSTR(0xb0, "cu14", IF_RRFc, F_Z),
1168 1168 INSTR(0xb1, "cu24", IF_RRFc, F_Z),
1169 1169 INSTR(0xb2, "cu41", IF_RRE, F_Z),
1170 1170 INSTR(0xb3, "cu42", IF_RRE, F_Z),
1171 1171 INSTR(0xbd, "trtre", IF_RRFc, F_Z),
1172 1172 INSTR(0xbe, "srstu", IF_RRE, F_Z),
1173 1173 INSTR(0xbf, "trte", IF_RRFc, F_Z),
1174 1174 INSTR(0xc8, "ahhhr", IF_RRFa, F_Z),
1175 1175 INSTR(0xc9, "shhhr", IF_RRFa, F_Z),
1176 1176 INSTR(0xca, "alhhhr", IF_RRFa, F_Z),
1177 1177 INSTR(0xcb, "slhhhr", IF_RRFa, F_Z),
1178 1178 INSTR(0xcd, "chhr", IF_RRE, F_Z),
1179 1179 INSTR(0xcf, "clhhr", IF_RRE, F_Z),
1180 1180 INSTR(0xd8, "ahhlr", IF_RRFa, F_Z),
1181 1181 INSTR(0xd9, "shhlr", IF_RRFa, F_Z),
1182 1182 INSTR(0xda, "alhhlr", IF_RRFa, F_Z),
1183 1183 INSTR(0xdb, "slhhlr", IF_RRFa, F_Z),
1184 1184 INSTR(0xdd, "chlr", IF_RRE, F_Z),
1185 1185 INSTR(0xdf, "clhlr", IF_RRE, F_Z),
1186 1186 INSTR(0xe1, "popcnt", IF_RRE, F_Z),
1187 1187 INSTR(0xe2, "locgr", IF_RRFc, F_Z),
1188 1188 INSTR(0xe4, "ngrk", IF_RRFa, F_Z),
1189 1189 INSTR(0xe6, "ogrk", IF_RRFa, F_Z),
1190 1190 INSTR(0xe7, "xgrk", IF_RRFa, F_Z),
1191 1191 INSTR(0xe8, "agrk", IF_RRFa, F_Z),
1192 1192 INSTR(0xe9, "sgrk", IF_RRFa, F_Z),
1193 1193 INSTR(0xea, "algrk", IF_RRFa, F_Z),
1194 1194 INSTR(0xeb, "slgrk", IF_RRFa, F_Z),
1195 1195 INSTR(0xf2, "locgr", IF_RRFc, F_Z),
1196 1196 INSTR(0xf4, "nrk", IF_RRFa, F_Z),
1197 1197 INSTR(0xf6, "ork", IF_RRFa, F_Z),
1198 1198 INSTR(0xf7, "xrk", IF_RRFa, F_Z),
1199 1199 INSTR(0xf8, "ark", IF_RRFa, F_Z),
1200 1200 INSTR(0xf9, "srk", IF_RRFa, F_Z),
1201 1201 INSTR(0xfa, "alrk", IF_RRFa, F_Z),
1202 1202 INSTR(0xfb, "slrk", IF_RRFa, F_Z),
1203 1203 };
1204 1204
1205 1205 static const struct inst_table tbl_c0x[16] = {
1206 1206 INSTR(0x0, "larl", IF_RILb, F_390 | F_Z),
1207 1207 INSTR(0x1, "lgfi", IF_RILa, F_Z),
1208 1208 INSTR(0x4, "brcl", IF_RILc, F_390 | F_Z),
1209 1209 INSTR(0x5, "brasl", IF_RILb, F_390 | F_Z),
1210 1210 INSTR(0x6, "xihf", IF_RILa, F_Z),
1211 1211 INSTR(0x7, "xilf", IF_RILa, F_Z),
1212 1212 INSTR(0x8, "iihf", IF_RILa, F_Z),
1213 1213 INSTR(0x9, "iilf", IF_RILa, F_Z),
1214 1214 INSTR(0xa, "nihf", IF_RILa, F_Z),
1215 1215 INSTR(0xb, "nilf", IF_RILa, F_Z),
1216 1216 INSTR(0xc, "oihf", IF_RILa, F_Z),
1217 1217 INSTR(0xd, "oilf", IF_RILa, F_Z),
1218 1218 INSTR(0xe, "llihf", IF_RILa, F_Z),
1219 1219 INSTR(0xf, "llilf", IF_RILa, F_Z),
1220 1220 };
1221 1221
1222 1222 static const struct inst_table tbl_c2x[16] = {
1223 1223 INSTR(0x0, "msgfi", IF_RILa, F_Z),
1224 1224 INSTR(0x1, "msfi", IF_RILa, F_Z),
1225 1225 INSTR(0x4, "slgfi", IF_RILa, F_Z),
1226 1226 INSTR(0x5, "slfi", IF_RILa, F_Z),
1227 1227 INSTR(0x8, "agfi", IF_RILa, F_Z),
1228 1228 INSTR(0x9, "afi", IF_RILa, F_Z),
1229 1229 INSTR(0xa, "algfi", IF_RILa, F_Z),
1230 1230 INSTR(0xb, "alfi", IF_RILa, F_Z),
1231 1231 INSTR(0xc, "cgfi", IF_RILa, F_Z),
1232 1232 INSTR(0xd, "cfi", IF_RILa, F_Z),
1233 1233 INSTR(0xe, "clgfi", IF_RILa, F_Z),
1234 1234 INSTR(0xf, "clfi", IF_RILa, F_Z),
1235 1235 };
1236 1236
1237 1237 static const struct inst_table tbl_c4x[16] = {
1238 1238 INSTR(0x2, "llhrl", IF_RILb, F_Z),
1239 1239 INSTR(0x4, "lghrl", IF_RILb, F_Z),
1240 1240 INSTR(0x5, "lhrl", IF_RILb, F_Z),
1241 1241 INSTR(0x6, "llghrl", IF_RILb, F_Z),
1242 1242 INSTR(0x7, "sthrl", IF_RILb, F_Z),
1243 1243 INSTR(0x8, "lgrl", IF_RILb, F_Z),
1244 1244 INSTR(0xb, "stgrl", IF_RILb, F_Z),
1245 1245 INSTR(0xc, "lgfrl", IF_RILb, F_Z),
1246 1246 INSTR(0xd, "lrl", IF_RILb, F_Z),
1247 1247 INSTR(0xe, "llgfrl", IF_RILb, F_Z),
1248 1248 INSTR(0xf, "strl", IF_RILb, F_Z),
1249 1249 };
1250 1250
1251 1251 static const struct inst_table tbl_c6x[16] = {
1252 1252 INSTR(0x0, "exrl", IF_RILb, F_Z),
1253 1253 INSTR(0x2, "pfdrl", IF_RILc, F_Z),
1254 1254 INSTR(0x4, "cghrl", IF_RILb, F_Z),
1255 1255 INSTR(0x5, "chrl", IF_RILb, F_Z),
1256 1256 INSTR(0x6, "clghrl", IF_RILb, F_Z),
1257 1257 INSTR(0x7, "clhrl", IF_RILb, F_Z),
1258 1258 INSTR(0x8, "cgrl", IF_RILb, F_Z),
1259 1259 INSTR(0xa, "clgrl", IF_RILb, F_Z),
1260 1260 INSTR(0xc, "cgfrl", IF_RILb, F_Z),
1261 1261 INSTR(0xd, "crl", IF_RILb, F_Z),
1262 1262 INSTR(0xe, "clgfrl", IF_RILb, F_Z),
1263 1263 INSTR(0xf, "clrl", IF_RILb, F_Z),
1264 1264 };
1265 1265
1266 1266 static const struct inst_table tbl_c8x[16] = {
1267 1267 INSTR(0x0, "mvcos", IF_SSF, F_Z),
1268 1268 INSTR(0x1, "ectg", IF_SSF, F_Z),
1269 1269 INSTR(0x2, "csst", IF_SSF, F_Z),
1270 1270 INSTR(0x4, "lpd", IF_SSF, F_Z),
1271 1271 INSTR(0x5, "lpdg", IF_SSF, F_Z),
1272 1272 };
1273 1273
1274 1274 static const struct inst_table tbl_ccx[16] = {
1275 1275 INSTR(0x6, "brcth", IF_RILb, F_Z),
1276 1276 INSTR(0x8, "aih", IF_RILa, F_Z),
1277 1277 INSTR(0xa, "alsih", IF_RILa, F_Z),
1278 1278 INSTR(0xb, "alsihn", IF_RILa, F_Z),
1279 1279 INSTR(0xd, "cih", IF_RILa, F_Z),
1280 1280 INSTR(0xf, "clih", IF_RILa, F_Z),
1281 1281 };
1282 1282
1283 1283 static const struct inst_table tbl_e3xx[256] = {
1284 1284 INSTR(0x02, "ltg", IF_RXYa, F_Z),
1285 1285 INSTR(0x03, "lrag", IF_RXYa, F_Z),
1286 1286 INSTR(0x04, "lg", IF_RXYa, F_Z),
1287 1287 INSTR(0x06, "cvby", IF_RXYa, F_Z),
1288 1288 INSTR(0x08, "ag", IF_RXYa, F_Z),
1289 1289 INSTR(0x09, "sg", IF_RXYa, F_Z),
1290 1290 INSTR(0x0a, "alg", IF_RXYa, F_Z),
1291 1291 INSTR(0x0b, "slg", IF_RXYa, F_Z),
1292 1292 INSTR(0x0c, "msg", IF_RXYa, F_Z),
1293 1293 INSTR(0x0d, "dsg", IF_RXYa, F_Z),
1294 1294 INSTR(0x0e, "cvbg", IF_RXYa, F_Z),
1295 1295 INSTR(0x0f, "lrvg", IF_RXYa, F_Z),
1296 1296 INSTR(0x12, "lt", IF_RXYa, F_Z),
1297 1297 INSTR(0x13, "lray", IF_RXYa, F_Z),
1298 1298 INSTR(0x14, "lgf", IF_RXYa, F_Z),
1299 1299 INSTR(0x15, "lgh", IF_RXYa, F_Z),
1300 1300 INSTR(0x16, "llgf", IF_RXYa, F_Z),
1301 1301 INSTR(0x17, "llgt", IF_RXYa, F_Z),
1302 1302 INSTR(0x18, "agf", IF_RXYa, F_Z),
1303 1303 INSTR(0x19, "sgf", IF_RXYa, F_Z),
1304 1304 INSTR(0x1a, "algf", IF_RXYa, F_Z),
1305 1305 INSTR(0x1b, "slgf", IF_RXYa, F_Z),
1306 1306 INSTR(0x1c, "msgf", IF_RXYa, F_Z),
1307 1307 INSTR(0x1d, "dsgf", IF_RXYa, F_Z),
1308 1308 INSTR(0x1e, "lrv", IF_RXYa, F_390 | F_Z),
1309 1309 INSTR(0x1f, "lrvh", IF_RXYa, F_390 | F_Z),
1310 1310 INSTR(0x20, "cg", IF_RXYa, F_Z),
1311 1311 INSTR(0x21, "clg", IF_RXYa, F_Z),
1312 1312 INSTR(0x24, "stg", IF_RXYa, F_Z),
1313 1313 INSTR(0x25, "ntstg", IF_RXYa, F_Z),
1314 1314 INSTR(0x26, "cvdy", IF_RXYa, F_Z),
1315 1315 INSTR(0x2e, "cvdg", IF_RXYa, F_Z),
1316 1316 INSTR(0x2f, "strvg", IF_RXYa, F_Z),
1317 1317 INSTR(0x30, "cgf", IF_RXYa, F_Z),
1318 1318 INSTR(0x31, "clgf", IF_RXYa, F_Z),
1319 1319 INSTR(0x32, "ltgf", IF_RXYa, F_Z),
1320 1320 INSTR(0x34, "cgh", IF_RXYa, F_Z),
1321 1321 INSTR(0x36, "pfd", IF_RXYb, F_Z),
1322 1322 INSTR(0x3e, "strv", IF_RXYa, F_390 | F_Z),
1323 1323 INSTR(0x3f, "strvh", IF_RXYa, F_390 | F_Z),
1324 1324 INSTR(0x46, "bctg", IF_RXYa, F_Z),
1325 1325 INSTR(0x50, "sty", IF_RXYa, F_Z),
1326 1326 INSTR(0x51, "msy", IF_RXYa, F_Z),
1327 1327 INSTR(0x54, "ny", IF_RXYa, F_Z),
1328 1328 INSTR(0x55, "cly", IF_RXYa, F_Z),
1329 1329 INSTR(0x56, "oy", IF_RXYa, F_Z),
1330 1330 INSTR(0x57, "xy", IF_RXYa, F_Z),
1331 1331 INSTR(0x58, "ly", IF_RXYa, F_Z),
1332 1332 INSTR(0x59, "cy", IF_RXYa, F_Z),
1333 1333 INSTR(0x5a, "ay", IF_RXYa, F_Z),
1334 1334 INSTR(0x5b, "sy", IF_RXYa, F_Z),
1335 1335 INSTR(0x5c, "mfy", IF_RXYa, F_Z),
1336 1336 INSTR(0x5e, "aly", IF_RXYa, F_Z),
1337 1337 INSTR(0x5f, "sly", IF_RXYa, F_Z),
1338 1338 INSTR(0x70, "sthy", IF_RXYa, F_Z),
1339 1339 INSTR(0x71, "lay", IF_RXYa, F_Z),
1340 1340 INSTR(0x72, "stcy", IF_RXYa, F_Z),
1341 1341 INSTR(0x73, "icy", IF_RXYa, F_Z),
1342 1342 INSTR(0x75, "laey", IF_RXYa, F_Z),
1343 1343 INSTR(0x76, "lb", IF_RXYa, F_Z),
1344 1344 INSTR(0x77, "lgb", IF_RXYa, F_Z),
1345 1345 INSTR(0x78, "lhy", IF_RXYa, F_Z),
1346 1346 INSTR(0x79, "chy", IF_RXYa, F_Z),
1347 1347 INSTR(0x7a, "ahy", IF_RXYa, F_Z),
1348 1348 INSTR(0x7b, "shy", IF_RXYa, F_Z),
1349 1349 INSTR(0x7c, "mhy", IF_RXYa, F_Z),
1350 1350 INSTR(0x80, "ng", IF_RXYa, F_Z),
1351 1351 INSTR(0x81, "og", IF_RXYa, F_Z),
1352 1352 INSTR(0x82, "xg", IF_RXYa, F_Z),
1353 1353 INSTR(0x85, "lgat", IF_RXYa, F_Z),
1354 1354 INSTR(0x86, "mlg", IF_RXYa, F_Z),
1355 1355 INSTR(0x87, "dlg", IF_RXYa, F_Z),
1356 1356 INSTR(0x88, "alcg", IF_RXYa, F_Z),
1357 1357 INSTR(0x89, "slbg", IF_RXYa, F_Z),
1358 1358 INSTR(0x8e, "stpq", IF_RXYa, F_Z),
1359 1359 INSTR(0x8f, "lpq", IF_RXYa, F_Z),
1360 1360 INSTR(0x90, "llgc", IF_RXYa, F_Z),
1361 1361 INSTR(0x91, "llgh", IF_RXYa, F_Z),
1362 1362 INSTR(0x94, "llc", IF_RXYa, F_Z),
1363 1363 INSTR(0x95, "llh", IF_RXYa, F_Z),
1364 1364 INSTR(0x96, "ml", IF_RXYa, F_390 | F_Z),
1365 1365 INSTR(0x97, "dl", IF_RXYa, F_390 | F_Z),
1366 1366 INSTR(0x98, "alc", IF_RXYa, F_390 | F_Z),
1367 1367 INSTR(0x99, "slb", IF_RXYa, F_390 | F_Z),
1368 1368 INSTR(0x9c, "llgtat", IF_RXYa, F_Z),
1369 1369 INSTR(0x9d, "llgfat", IF_RXYa, F_Z),
1370 1370 INSTR(0x9f, "lat", IF_RXYa, F_Z),
1371 1371 INSTR(0xc0, "lbh", IF_RXYa, F_Z),
1372 1372 INSTR(0xc2, "llch", IF_RXYa, F_Z),
1373 1373 INSTR(0xc3, "stch", IF_RXYa, F_Z),
1374 1374 INSTR(0xc4, "lhh", IF_RXYa, F_Z),
1375 1375 INSTR(0xc6, "llhh", IF_RXYa, F_Z),
1376 1376 INSTR(0xc7, "sthh", IF_RXYa, F_Z),
1377 1377 INSTR(0xc8, "lfhat", IF_RXYa, F_Z),
1378 1378 INSTR(0xca, "lfh", IF_RXYa, F_Z),
1379 1379 INSTR(0xcb, "stfh", IF_RXYa, F_Z),
1380 1380 INSTR(0xcd, "chf", IF_RXYa, F_Z),
1381 1381 INSTR(0xcf, "clhf", IF_RXYa, F_Z),
1382 1382 };
1383 1383
1384 1384 static const struct inst_table tbl_e5xx[256] = {
1385 1385 INSTR(0x00, "lasp", IF_SSE, F_390 | F_Z),
1386 1386 INSTR(0x01, "tprot", IF_SSE, F_390 | F_Z),
1387 1387 INSTR(0x02, "strag", IF_SSE, F_Z),
1388 1388 INSTR(0x0e, "mvcsk", IF_SSE, F_390 | F_Z),
1389 1389 INSTR(0x0f, "mvcdk", IF_SSE, F_390 | F_Z),
1390 1390 INSTR(0x44, "mvhhi", IF_SIL, F_Z),
1391 1391 INSTR(0x48, "mvghi", IF_SIL, F_Z),
1392 1392 INSTR(0x4c, "mvhi", IF_SIL, F_Z),
1393 1393 INSTR(0x54, "chhsi", IF_SIL, F_Z),
1394 1394 INSTR(0x55, "clhhsi", IF_SIL, F_Z),
1395 1395 INSTR(0x58, "cghsi", IF_SIL, F_Z),
1396 1396 INSTR(0x59, "clghsi", IF_SIL, F_Z),
1397 1397 INSTR(0x5c, "chsi", IF_SIL, F_Z),
1398 1398 INSTR(0x5d, "clfhsi", IF_SIL, F_Z),
1399 1399 INSTR(0x60, "tbegin", IF_SIL, F_Z),
1400 1400 INSTR(0x61, "tbeginc", IF_SIL, F_Z),
1401 1401 };
1402 1402
1403 1403 static const struct inst_table tbl_ebxx[256] = {
1404 1404 INSTR(0x04, "lmg", IF_RSYa, F_Z),
1405 1405 INSTR(0x0a, "srag", IF_RSYa, F_Z),
1406 1406 INSTR(0x0b, "slag", IF_RSYa, F_Z),
1407 1407 INSTR(0x0c, "srlg", IF_RSYa, F_Z),
1408 1408 INSTR(0x0d, "sllg", IF_RSYa, F_Z),
1409 1409 INSTR(0x0f, "tracg", IF_RSYa, F_Z),
1410 1410 INSTR(0x14, "csy", IF_RSYa, F_Z),
1411 1411 INSTR(0x1c, "rllg", IF_RSYa, F_Z),
1412 1412 INSTR(0x1d, "rll", IF_RSYa, F_390 | F_Z),
1413 1413 INSTR(0x20, "clmh", IF_RSYb, F_Z),
1414 1414 INSTR(0x21, "clmy", IF_RSYb, F_Z),
1415 1415 INSTR(0x23, "clt", IF_RSYb, F_Z),
1416 1416 INSTR(0x24, "stmg", IF_RSYa, F_Z),
1417 1417 INSTR(0x25, "stctg", IF_RSYa, F_Z | F_CTL_REG),
1418 1418 INSTR(0x26, "stmh", IF_RSYa, F_Z),
1419 1419 INSTR(0x2b, "clgt", IF_RSYb, F_Z),
1420 1420 INSTR(0x2c, "stcmh", IF_RSYb, F_Z),
1421 1421 INSTR(0x2d, "stcmy", IF_RSYb, F_Z),
1422 1422 INSTR(0x2f, "lctlg", IF_RSYa, F_Z | F_CTL_REG),
1423 1423 INSTR(0x30, "csg", IF_RSYa, F_Z),
1424 1424 INSTR(0x31, "cdsy", IF_RSYa, F_Z),
1425 1425 INSTR(0x3e, "cdsg", IF_RSYa, F_Z),
1426 1426 INSTR(0x44, "bxhg", IF_RSYa, F_Z),
1427 1427 INSTR(0x45, "bxleg", IF_RSYa, F_Z),
1428 1428 INSTR(0x4c, "ecag", IF_RSYa, F_Z),
1429 1429 INSTR(0x51, "tmy", IF_SIY, F_Z),
1430 1430 INSTR(0x52, "mviy", IF_SIY, F_Z),
1431 1431 INSTR(0x54, "niy", IF_SIY, F_Z),
1432 1432 INSTR(0x55, "cliy", IF_SIY, F_Z),
1433 1433 INSTR(0x56, "oiy", IF_SIY, F_Z),
1434 1434 INSTR(0x57, "xiy", IF_SIY, F_Z),
1435 1435 INSTR(0x6a, "asi", IF_SIY, F_Z),
1436 1436 INSTR(0x6e, "alsi", IF_SIY, F_Z),
1437 1437 INSTR(0x80, "icmh", IF_RSYb, F_Z),
1438 1438 INSTR(0x81, "icmy", IF_RSYb, F_Z),
1439 1439 INSTR(0x8e, "mvclu", IF_RSYa, F_390 | F_Z),
1440 1440 INSTR(0x8f, "clclu", IF_RSYa, F_390 | F_Z),
1441 1441 INSTR(0x90, "stmy", IF_RSYa, F_Z),
1442 1442 INSTR(0x96, "lmh", IF_RSYa, F_Z),
1443 1443 INSTR(0x98, "lmy", IF_RSYa, F_Z),
1444 1444 INSTR(0x9a, "lamy", IF_RSYa, F_Z),
1445 1445 INSTR(0x9b, "stamy", IF_RSYa, F_Z),
1446 1446 INSTR(0xc0, "tp", IF_RSLa, F_390 | F_Z),
1447 1447 INSTR(0xdc, "srak", IF_RSYa, F_Z),
1448 1448 INSTR(0xdd, "slak", IF_RSYa, F_Z),
1449 1449 INSTR(0xde, "srlk", IF_RSYa, F_Z),
1450 1450 INSTR(0xdf, "sllk", IF_RSYa, F_Z),
1451 1451 INSTR(0xe2, "locg", IF_RSYb, F_Z),
1452 1452 INSTR(0xe3, "stocg", IF_RSYb, F_Z),
1453 1453 INSTR(0xe4, "lang", IF_RSYa, F_Z),
1454 1454 INSTR(0xe6, "laog", IF_RSYa, F_Z),
1455 1455 INSTR(0xe7, "laxg", IF_RSYa, F_Z),
1456 1456 INSTR(0xe8, "laag", IF_RSYa, F_Z),
1457 1457 INSTR(0xea, "laalg", IF_RSYa, F_Z),
1458 1458 INSTR(0xf2, "loc", IF_RSYb, F_Z),
1459 1459 INSTR(0xf3, "stoc", IF_RSYb, F_Z),
1460 1460 INSTR(0xf4, "lan", IF_RSYa, F_Z),
1461 1461 INSTR(0xf6, "lao", IF_RSYa, F_Z),
1462 1462 INSTR(0xf7, "lax", IF_RSYa, F_Z),
1463 1463 INSTR(0xf8, "laa", IF_RSYa, F_Z),
1464 1464 INSTR(0xfa, "laal", IF_RSYa, F_Z),
1465 1465 };
1466 1466
1467 1467 static const struct inst_table tbl_ecxx[256] = {
1468 1468 INSTR(0x44, "brxhg", IF_RIEe, F_Z),
1469 1469 INSTR(0x45, "brxlg", IF_RIEe, F_Z),
1470 1470 INSTR(0x51, "risblg", IF_RIEf, F_Z),
1471 1471 INSTR(0x54, "rnsbg", IF_RIEf, F_Z),
1472 1472 INSTR(0x55, "risbg", IF_RIEf, F_Z),
1473 1473 INSTR(0x56, "rosbg", IF_RIEf, F_Z),
1474 1474 INSTR(0x57, "rxsbg", IF_RIEf, F_Z),
1475 1475 INSTR(0x59, "risbgn", IF_RIEf, F_Z),
1476 1476 INSTR(0x5d, "risbhg", IF_RIEf, F_Z),
1477 1477 INSTR(0x64, "cgrj", IF_RIEb, F_Z),
1478 1478 INSTR(0x65, "clgrj", IF_RIEb, F_Z),
1479 1479 INSTR(0x70, "cgit", IF_RIEa, F_Z),
1480 1480 INSTR(0x71, "clgit", IF_RIEa, F_Z),
1481 1481 INSTR(0x72, "cit", IF_RIEa, F_Z),
1482 1482 INSTR(0x73, "clfit", IF_RIEa, F_Z),
1483 1483 INSTR(0x76, "crj", IF_RIEb, F_Z),
1484 1484 INSTR(0x77, "clrj", IF_RIEb, F_Z),
1485 1485 INSTR(0x7c, "cgij", IF_RIEc, F_Z),
1486 1486 INSTR(0x7d, "clgij", IF_RIEc, F_Z),
1487 1487 INSTR(0x7e, "cij", IF_RIEc, F_Z),
1488 1488 INSTR(0x7f, "clij", IF_RIEc, F_Z),
1489 1489 INSTR(0xd8, "ahik", IF_RIEd, F_Z),
1490 1490 INSTR(0xd9, "aghik", IF_RIEd, F_Z),
1491 1491 INSTR(0xda, "alhsik", IF_RIEd, F_Z),
1492 1492 INSTR(0xdb, "alghsik", IF_RIEd, F_Z),
1493 1493 INSTR(0xe4, "cgrb", IF_RRS, F_Z),
1494 1494 INSTR(0xe5, "clgrb", IF_RRS, F_Z),
1495 1495 INSTR(0xf6, "crb", IF_RRS, F_Z),
1496 1496 INSTR(0xf7, "clrb", IF_RRS, F_Z),
1497 1497 INSTR(0xfc, "cgib", IF_RIS, F_Z),
1498 1498 INSTR(0xfd, "clgib", IF_RIS, F_Z),
1499 1499 INSTR(0xfe, "cib", IF_RIS, F_Z),
1500 1500 INSTR(0xff, "clib", IF_RIS, F_Z),
1501 1501 };
1502 1502
1503 1503 static const struct inst_table tbl_edxx[256] = {
1504 1504 INSTR(0x04, "ldeb", IF_RXE, F_390 | F_Z),
1505 1505 INSTR(0x05, "lxdb", IF_RXE, F_390 | F_Z),
1506 1506 INSTR(0x06, "lxeb", IF_RXE, F_390 | F_Z),
1507 1507 INSTR(0x07, "mxdb", IF_RXE, F_390 | F_Z),
1508 1508 INSTR(0x08, "keb", IF_RXE, F_390 | F_Z),
1509 1509 INSTR(0x09, "ceb", IF_RXE, F_390 | F_Z),
1510 1510 INSTR(0x0a, "aeb", IF_RXE, F_390 | F_Z),
1511 1511 INSTR(0x0b, "seb", IF_RXE, F_390 | F_Z),
1512 1512 INSTR(0x0c, "mdeb", IF_RXE, F_390 | F_Z),
1513 1513 INSTR(0x0d, "deb", IF_RXE, F_390 | F_Z),
1514 1514 INSTR(0x0e, "maeb", IF_RXF, F_390 | F_Z),
1515 1515 INSTR(0x0f, "mseb", IF_RXF, F_390 | F_Z),
1516 1516 INSTR(0x10, "tceb", IF_RXE, F_390 | F_Z),
1517 1517 INSTR(0x11, "tcdb", IF_RXE, F_390 | F_Z),
1518 1518 INSTR(0x12, "tcxb", IF_RXE, F_390 | F_Z),
1519 1519 INSTR(0x14, "sqeb", IF_RXE, F_390 | F_Z),
1520 1520 INSTR(0x15, "sqdb", IF_RXE, F_390 | F_Z),
1521 1521 INSTR(0x17, "meeb", IF_RXE, F_390 | F_Z),
1522 1522 INSTR(0x18, "kdb", IF_RXE, F_390 | F_Z),
1523 1523 INSTR(0x19, "cdb", IF_RXE, F_390 | F_Z),
1524 1524 INSTR(0x1a, "adb", IF_RXE, F_390 | F_Z),
1525 1525 INSTR(0x1b, "sdb", IF_RXE, F_390 | F_Z),
1526 1526 INSTR(0x1c, "mdb", IF_RXE, F_390 | F_Z),
1527 1527 INSTR(0x1d, "ddb", IF_RXE, F_390 | F_Z),
1528 1528 INSTR(0x1e, "madb", IF_RXF, F_390 | F_Z),
1529 1529 INSTR(0x1f, "msdb", IF_RXF, F_390 | F_Z),
1530 1530 INSTR(0x24, "lde", IF_RXE, F_390 | F_Z),
1531 1531 INSTR(0x25, "lxd", IF_RXE, F_390 | F_Z),
1532 1532 INSTR(0x26, "lxe", IF_RXE, F_390 | F_Z),
1533 1533 INSTR(0x2e, "mae", IF_RXF, F_390 | F_Z),
1534 1534 INSTR(0x2f, "mse", IF_RXF, F_390 | F_Z),
1535 1535 INSTR(0x34, "sqe", IF_RXE, F_390 | F_Z),
1536 1536 INSTR(0x35, "sqd", IF_RXE, F_390 | F_Z),
1537 1537 INSTR(0x37, "mee", IF_RXE, F_390 | F_Z),
1538 1538 INSTR(0x38, "mayl", IF_RXF, F_Z),
1539 1539 INSTR(0x39, "myl", IF_RXF, F_Z),
1540 1540 INSTR(0x3a, "may", IF_RXF, F_Z),
1541 1541 INSTR(0x3b, "my", IF_RXF, F_Z),
1542 1542 INSTR(0x3c, "mayh", IF_RXF, F_Z),
1543 1543 INSTR(0x3d, "myh", IF_RXF, F_Z),
1544 1544 INSTR(0x3e, "mad", IF_RXF, F_390 | F_Z),
1545 1545 INSTR(0x3f, "msd", IF_RXF, F_390 | F_Z),
1546 1546 INSTR(0x40, "sldt", IF_RXF, F_Z),
1547 1547 INSTR(0x41, "srdt", IF_RXF, F_Z),
1548 1548 INSTR(0x48, "slxt", IF_RXF, F_Z),
1549 1549 INSTR(0x49, "srxt", IF_RXF, F_Z),
1550 1550 INSTR(0x50, "tdcet", IF_RXE, F_Z),
1551 1551 INSTR(0x51, "tdget", IF_RXE, F_Z),
1552 1552 INSTR(0x54, "tdcdt", IF_RXE, F_Z),
1553 1553 INSTR(0x55, "tdgdt", IF_RXE, F_Z),
1554 1554 INSTR(0x58, "tdcxt", IF_RXE, F_Z),
1555 1555 INSTR(0x59, "tdgxt", IF_RXE, F_Z),
1556 1556 INSTR(0x64, "ley", IF_RXYa, F_Z),
1557 1557 INSTR(0x65, "ldy", IF_RXYa, F_Z),
1558 1558 INSTR(0x66, "stey", IF_RXYa, F_Z),
1559 1559 INSTR(0x67, "stdy", IF_RXYa, F_Z),
1560 1560 INSTR(0xa8, "czdt", IF_RSLb, F_Z),
1561 1561 INSTR(0xa9, "czxt", IF_RSLb, F_Z),
1562 1562 INSTR(0xaa, "cdzt", IF_RSLb, F_Z),
1563 1563 INSTR(0xab, "cxzt", IF_RSLb, F_Z),
1564 1564 };
1565 1565
1566 1566 static const struct inst_table tbl_xx[256] = {
1567 1567 INSTR(0x00, ".byte", IF_ZERO, F_370 | F_390 | F_Z),
1568 1568 TABLE(0x01, tbl_01xx, 1, 0, 0xff),
1569 1569 INSTR(0x04, "spm", IF_RR, F_370 | F_Z),
1570 1570 INSTR(0x05, "balr", IF_RR, F_370 | F_Z),
1571 1571 INSTR(0x06, "bctr", IF_RR, F_370 | F_Z),
1572 1572 TABLE(0x07, tbl_07, 1, 4, 0x0f),
1573 1573 INSTR(0x08, "ssk", IF_RR, F_370),
1574 1574 INSTR(0x09, "isk", IF_RR, F_370),
1575 1575 INSTR(0x0a, "svc", IF_I, F_370 | F_390 | F_Z),
1576 1576 INSTR(0x0b, "bsm", IF_RR, F_390 | F_Z),
1577 1577 INSTR(0x0c, "bassm", IF_RR, F_390 | F_Z),
1578 1578 INSTR(0x0d, "basr", IF_RR, F_390 | F_Z),
1579 1579 INSTR(0x0e, "mvcl", IF_RR, F_370 | F_390 | F_Z),
1580 1580 INSTR(0x0f, "clcl", IF_RR, F_370 | F_390 | F_Z),
1581 1581 INSTR(0x10, "lpr", IF_RR, F_370 | F_390 | F_Z),
1582 1582 INSTR(0x11, "lnr", IF_RR, F_370 | F_390 | F_Z),
1583 1583 INSTR(0x12, "ltr", IF_RR, F_370 | F_390 | F_Z),
1584 1584 INSTR(0x13, "lcr", IF_RR, F_370 | F_390 | F_Z),
1585 1585 INSTR(0x14, "nr", IF_RR, F_370 | F_390 | F_Z),
1586 1586 INSTR(0x15, "clr", IF_RR, F_370 | F_390 | F_Z),
1587 1587 INSTR(0x16, "or", IF_RR, F_370 | F_390 | F_Z),
1588 1588 INSTR(0x17, "xr", IF_RR, F_370 | F_390 | F_Z),
1589 1589 INSTR(0x18, "lr", IF_RR, F_370 | F_390 | F_Z),
1590 1590 INSTR(0x19, "cr", IF_RR, F_370 | F_390 | F_Z),
1591 1591 INSTR(0x1a, "ar", IF_RR, F_370 | F_390 | F_Z),
1592 1592 INSTR(0x1b, "sr", IF_RR, F_370 | F_390 | F_Z),
1593 1593 INSTR(0x1c, "mr", IF_RR, F_370 | F_390 | F_Z),
1594 1594 INSTR(0x1d, "dr", IF_RR, F_370 | F_390 | F_Z),
1595 1595 INSTR(0x1e, "alr", IF_RR, F_370 | F_390 | F_Z),
1596 1596 INSTR(0x1f, "slr", IF_RR, F_370 | F_390 | F_Z),
1597 1597 INSTR(0x20, "lpdr", IF_RR, F_370 | F_390 | F_Z),
1598 1598 INSTR(0x21, "lndr", IF_RR, F_370 | F_390 | F_Z),
1599 1599 INSTR(0x22, "ltdr", IF_RR, F_370 | F_390 | F_Z),
1600 1600 INSTR(0x23, "lcdr", IF_RR, F_370 | F_390 | F_Z),
1601 1601 INSTR(0x24, "hdr", IF_RR, F_370 | F_390 | F_Z),
1602 1602 MULTI(0x25, tbl_25),
1603 1603 INSTR(0x26, "mxr", IF_RR, F_370 | F_390 | F_Z),
1604 1604 INSTR(0x27, "mxdr", IF_RR, F_370 | F_390 | F_Z),
1605 1605 INSTR(0x28, "ldr", IF_RR, F_370 | F_390 | F_Z),
1606 1606 INSTR(0x29, "cdr", IF_RR, F_370 | F_390 | F_Z),
1607 1607 INSTR(0x2a, "adr", IF_RR, F_370 | F_390 | F_Z),
1608 1608 INSTR(0x2b, "sdr", IF_RR, F_370 | F_390 | F_Z),
1609 1609 INSTR(0x2c, "mdr", IF_RR, F_370 | F_390 | F_Z),
1610 1610 INSTR(0x2d, "ddr", IF_RR, F_370 | F_390 | F_Z),
1611 1611 INSTR(0x2e, "awr", IF_RR, F_370 | F_390 | F_Z),
1612 1612 INSTR(0x2f, "swr", IF_RR, F_370 | F_390 | F_Z),
1613 1613 INSTR(0x30, "lper", IF_RR, F_370 | F_390 | F_Z),
1614 1614 INSTR(0x31, "lner", IF_RR, F_370 | F_390 | F_Z),
1615 1615 INSTR(0x32, "lter", IF_RR, F_370 | F_390 | F_Z),
1616 1616 INSTR(0x33, "lcer", IF_RR, F_370 | F_390 | F_Z),
1617 1617 INSTR(0x34, "her", IF_RR, F_370 | F_390 | F_Z),
1618 1618 MULTI(0x35, tbl_35),
1619 1619 INSTR(0x36, "axr", IF_RR, F_370 | F_390 | F_Z),
1620 1620 INSTR(0x37, "sxr", IF_RR, F_370 | F_390 | F_Z),
1621 1621 INSTR(0x38, "ler", IF_RR, F_370 | F_390 | F_Z),
1622 1622 INSTR(0x39, "cer", IF_RR, F_370 | F_390 | F_Z),
1623 1623 INSTR(0x3a, "aer", IF_RR, F_370 | F_390 | F_Z),
1624 1624 INSTR(0x3b, "ser", IF_RR, F_370 | F_390 | F_Z),
1625 1625 MULTI(0x3c, tbl_3c),
1626 1626 INSTR(0x3d, "der", IF_RR, F_370 | F_390 | F_Z),
1627 1627 INSTR(0x3e, "aur", IF_RR, F_370 | F_390 | F_Z),
1628 1628 INSTR(0x3f, "sur", IF_RR, F_370 | F_390 | F_Z),
1629 1629 INSTR(0x40, "sth", IF_RXa, F_370 | F_390 | F_Z),
1630 1630 INSTR(0x41, "la", IF_RXa, F_370 | F_390 | F_Z),
1631 1631 INSTR(0x42, "stc", IF_RXa, F_370 | F_390 | F_Z),
1632 1632 INSTR(0x43, "ic", IF_RXa, F_370 | F_390 | F_Z),
1633 1633 INSTR(0x44, "ex", IF_RXa, F_370 | F_390 | F_Z),
1634 1634 INSTR(0x45, "bal", IF_RXa, F_370 | F_390 | F_Z),
1635 1635 INSTR(0x46, "bct", IF_RXa, F_370 | F_390 | F_Z),
1636 1636 TABLE(0x47, tbl_47, 1, 4, 0x0f),
1637 1637 INSTR(0x48, "lh", IF_RXa, F_370 | F_390 | F_Z),
1638 1638 INSTR(0x49, "ch", IF_RXa, F_370 | F_390 | F_Z),
1639 1639 INSTR(0x4a, "ah", IF_RXa, F_370 | F_390 | F_Z),
1640 1640 INSTR(0x4b, "sh", IF_RXa, F_370 | F_390 | F_Z),
1641 1641 INSTR(0x4c, "mh", IF_RXa, F_370 | F_390 | F_Z),
1642 1642 INSTR(0x4d, "bas", IF_RXa, F_390 | F_Z),
1643 1643 INSTR(0x4e, "cvd", IF_RXa, F_370 | F_390 | F_Z),
1644 1644 INSTR(0x4f, "cvb", IF_RXa, F_370 | F_390 | F_Z),
1645 1645 INSTR(0x50, "st", IF_RXa, F_370 | F_390 | F_Z),
1646 1646 INSTR(0x51, "lae", IF_RXa, F_390 | F_Z),
1647 1647 INSTR(0x54, "n", IF_RXa, F_370 | F_390 | F_Z),
1648 1648 INSTR(0x55, "cl", IF_RXa, F_370 | F_390 | F_Z),
1649 1649 INSTR(0x56, "o", IF_RXa, F_370 | F_390 | F_Z),
1650 1650 INSTR(0x57, "x", IF_RXa, F_370 | F_390 | F_Z),
1651 1651 INSTR(0x58, "l", IF_RXa, F_370 | F_390 | F_Z),
1652 1652 INSTR(0x59, "c", IF_RXa, F_370 | F_390 | F_Z),
1653 1653 INSTR(0x5a, "a", IF_RXa, F_370 | F_390 | F_Z),
1654 1654 INSTR(0x5b, "s", IF_RXa, F_370 | F_390 | F_Z),
1655 1655 INSTR(0x5c, "m", IF_RXa, F_370 | F_390 | F_Z),
1656 1656 INSTR(0x5d, "d", IF_RXa, F_370 | F_390 | F_Z),
1657 1657 INSTR(0x5e, "al", IF_RXa, F_370 | F_390 | F_Z),
1658 1658 INSTR(0x5f, "sl", IF_RXa, F_370 | F_390 | F_Z),
1659 1659 INSTR(0x60, "std", IF_RXa, F_370 | F_390 | F_Z),
1660 1660 INSTR(0x67, "mxd", IF_RXa, F_370 | F_390 | F_Z),
1661 1661 INSTR(0x68, "ld", IF_RXa, F_370 | F_390 | F_Z),
1662 1662 INSTR(0x69, "cd", IF_RXa, F_370 | F_390 | F_Z),
1663 1663 INSTR(0x6a, "ad", IF_RXa, F_370 | F_390 | F_Z),
1664 1664 INSTR(0x6b, "sd", IF_RXa, F_370 | F_390 | F_Z),
1665 1665 INSTR(0x6c, "md", IF_RXa, F_370 | F_390 | F_Z),
1666 1666 INSTR(0x6d, "dd", IF_RXa, F_370 | F_390 | F_Z),
1667 1667 INSTR(0x6e, "aw", IF_RXa, F_370 | F_390 | F_Z),
1668 1668 INSTR(0x6f, "sw", IF_RXa, F_370 | F_390 | F_Z),
1669 1669 INSTR(0x70, "ste", IF_RXa, F_370 | F_390 | F_Z),
1670 1670 INSTR(0x71, "ms", IF_RXa, F_390 | F_Z),
1671 1671 INSTR(0x78, "le", IF_RXa, F_370 | F_390 | F_Z),
1672 1672 INSTR(0x79, "ce", IF_RXa, F_370 | F_390 | F_Z),
1673 1673 INSTR(0x7a, "ae", IF_RXa, F_370 | F_390 | F_Z),
1674 1674 INSTR(0x7b, "se", IF_RXa, F_370 | F_390 | F_Z),
1675 1675 MULTI(0x7c, tbl_7c),
1676 1676 INSTR(0x7d, "de", IF_RXa, F_370 | F_390 | F_Z),
1677 1677 INSTR(0x7e, "au", IF_RXa, F_370 | F_390 | F_Z),
1678 1678 INSTR(0x7f, "su", IF_RXa, F_370 | F_390 | F_Z),
1679 1679 INSTR(0x80, "ssm", IF_S, F_370 | F_390 | F_Z),
1680 1680 INSTR(0x82, "lpsw", IF_S, F_370 | F_390 | F_Z),
1681 1681 INSTR(0x83, "diag", IF_DIAG, F_370 | F_390 | F_Z),
1682 1682 MULTI(0x84, tbl_84),
1683 1683 MULTI(0x85, tbl_85),
1684 1684 INSTR(0x86, "bxh", IF_RSa, F_370 | F_390 | F_Z),
1685 1685 INSTR(0x87, "bxle", IF_RSa, F_370 | F_390 | F_Z),
1686 1686 INSTR(0x88, "srl", IF_RSa, F_370 | F_390 | F_Z),
1687 1687 INSTR(0x89, "sll", IF_RSa, F_370 | F_390 | F_Z),
1688 1688 INSTR(0x8a, "sra", IF_RSa, F_370 | F_390 | F_Z),
1689 1689 INSTR(0x8b, "sla", IF_RSa, F_370 | F_390 | F_Z),
1690 1690 INSTR(0x8c, "srdl", IF_RSa, F_370 | F_390 | F_Z),
1691 1691 INSTR(0x8d, "sldl", IF_RSa, F_370 | F_390 | F_Z),
1692 1692 INSTR(0x8e, "srda", IF_RSa, F_370 | F_390 | F_Z),
1693 1693 INSTR(0x8f, "slda", IF_RSa, F_370 | F_390 | F_Z),
1694 1694 INSTR(0x90, "stm", IF_RSa, F_370 | F_390 | F_Z),
1695 1695 INSTR(0x91, "tm", IF_SI, F_370 | F_390 | F_Z),
1696 1696 INSTR(0x92, "mvi", IF_SI, F_370 | F_390 | F_Z),
1697 1697 INSTR(0x93, "ts", IF_S, F_370 | F_390 | F_Z),
1698 1698 INSTR(0x94, "ni", IF_SI, F_370 | F_390 | F_Z),
1699 1699 INSTR(0x95, "cli", IF_SI, F_370 | F_390 | F_Z),
1700 1700 INSTR(0x96, "oi", IF_SI, F_370 | F_390 | F_Z),
1701 1701 INSTR(0x97, "xi", IF_SI, F_370 | F_390 | F_Z),
1702 1702 INSTR(0x98, "lm", IF_RSa, F_370 | F_390 | F_Z),
1703 1703 INSTR(0x99, "trace", IF_RSa, F_390 | F_Z),
1704 1704 INSTR(0x9a, "lam", IF_RSa, F_390 | F_Z),
1705 1705 INSTR(0x9b, "stam", IF_RSa, F_390 | F_Z),
1706 1706 TABLE(0xa5, tbl_a5x, 1, 0, 0x0f),
1707 1707 TABLE(0xa7, tbl_a7x, 1, 0, 0x0f),
1708 1708 INSTR(0xa8, "mvcle", IF_RSa, F_390 | F_Z),
1709 1709 INSTR(0xa9, "clcle", IF_RSa, F_390 | F_Z),
1710 1710 INSTR(0xac, "stnsm", IF_SI, F_370 | F_390 | F_Z),
1711 1711 INSTR(0xad, "stosm", IF_SI, F_370 | F_390 | F_Z),
1712 1712 INSTR(0xae, "sigp", IF_RSa, F_370 | F_390 | F_Z),
1713 1713 INSTR(0xaf, "mc", IF_SI, F_370 | F_390 | F_Z),
1714 1714 INSTR(0xb1, "lra", IF_RXa, F_370 | F_390 | F_Z),
1715 1715 TABLE(0xb2, tbl_b2xx, 1, 0, 0xff),
1716 1716 TABLE(0xb3, tbl_b3xx, 1, 0, 0xff),
1717 1717 INSTR(0xb6, "stctl", IF_RSa, F_370 | F_390 | F_Z | F_CTL_REG),
1718 1718 INSTR(0xb7, "lctl", IF_RSa, F_370 | F_390 | F_Z | F_CTL_REG),
1719 1719 TABLE(0xb9, tbl_b9xx, 1, 0, 0xff),
1720 1720 INSTR(0xba, "cs", IF_RSa, F_370 | F_390 | F_Z),
1721 1721 INSTR(0xbb, "cds", IF_RSa, F_370 | F_390 | F_Z),
1722 1722 INSTR(0xbd, "clm", IF_RSb, F_370 | F_390 | F_Z),
1723 1723 INSTR(0xbe, "stcm", IF_RSb, F_370 | F_390 | F_Z),
1724 1724 INSTR(0xbf, "icm", IF_RSb, F_370 | F_390 | F_Z),
1725 1725 TABLE(0xc0, tbl_c0x, 1, 0, 0x0f),
1726 1726 TABLE(0xc2, tbl_c2x, 1, 0, 0x0f),
1727 1727 TABLE(0xc4, tbl_c4x, 1, 0, 0x0f),
1728 1728 INSTR(0xc5, "bprp", IF_MII, F_Z),
1729 1729 TABLE(0xc6, tbl_c6x, 1, 0, 0x0f),
1730 1730 INSTR(0xc7, "bpp", IF_SMI, F_Z),
1731 1731 TABLE(0xc8, tbl_c8x, 1, 0, 0x0f),
1732 1732 TABLE(0xcc, tbl_ccx, 1, 0, 0x0f),
1733 1733 INSTR(0xd0, "trtr", IF_SSa, F_Z),
1734 1734 INSTR(0xd1, "mvn", IF_SSa, F_370 | F_390 | F_Z),
1735 1735 INSTR(0xd2, "mvc", IF_SSa, F_370 | F_390 | F_Z),
1736 1736 INSTR(0xd3, "mvz", IF_SSa, F_370 | F_390 | F_Z),
1737 1737 INSTR(0xd4, "nc", IF_SSa, F_370 | F_390 | F_Z),
1738 1738 INSTR(0xd5, "clc", IF_SSa, F_370 | F_390 | F_Z),
1739 1739 INSTR(0xd6, "oc", IF_SSa, F_370 | F_390 | F_Z),
1740 1740 INSTR(0xd7, "xc", IF_SSa, F_370 | F_390 | F_Z),
1741 1741 INSTR(0xd9, "mvck", IF_SSd, F_390 | F_Z),
1742 1742 INSTR(0xda, "mvcp", IF_SSd, F_390 | F_Z),
1743 1743 INSTR(0xdb, "mvcs", IF_SSd, F_390 | F_Z),
1744 1744 INSTR(0xdc, "tr", IF_SSa, F_370 | F_390 | F_Z),
1745 1745 INSTR(0xdd, "trt", IF_SSa, F_370 | F_390 | F_Z),
1746 1746 INSTR(0xde, "ed", IF_SSa, F_370 | F_390 | F_Z),
1747 1747 INSTR(0xdf, "edmk", IF_SSa, F_370 | F_390 | F_Z),
1748 1748 INSTR(0xe1, "pku", IF_SSf, F_390 | F_Z),
1749 1749 INSTR(0xe2, "unpku", IF_SSa, F_390 | F_Z),
1750 1750 TABLE(0xe3, tbl_e3xx, 5, 0, 0xff),
1751 1751 TABLE(0xe5, tbl_e5xx, 1, 0, 0xff),
1752 1752 INSTR(0xe8, "mvcin", IF_SSa, F_390 | F_Z),
1753 1753 INSTR(0xe9, "pka", IF_SSf, F_390 | F_Z),
1754 1754 INSTR(0xea, "unpka", IF_SSa, F_390 | F_Z),
1755 1755 TABLE(0xeb, tbl_ebxx, 5, 0, 0xff),
1756 1756 TABLE(0xec, tbl_ecxx, 5, 0, 0xff),
1757 1757 TABLE(0xed, tbl_edxx, 5, 0, 0xff),
1758 1758 INSTR(0xee, "plo", IF_SSe, F_390 | F_Z),
1759 1759 INSTR(0xef, "lmd", IF_SSe, F_Z),
1760 1760 INSTR(0xf0, "srp", IF_SSc, F_370 | F_390 | F_Z),
1761 1761 INSTR(0xf1, "mvo", IF_SSb, F_370 | F_390 | F_Z),
1762 1762 INSTR(0xf2, "pack", IF_SSb, F_370 | F_390 | F_Z),
1763 1763 INSTR(0xf3, "unpk", IF_SSb, F_370 | F_390 | F_Z),
1764 1764 INSTR(0xf8, "zap", IF_SSb, F_370 | F_390 | F_Z),
1765 1765 INSTR(0xf9, "cp", IF_SSb, F_370 | F_390 | F_Z),
1766 1766 INSTR(0xfa, "ap", IF_SSb, F_370 | F_390 | F_Z),
1767 1767 INSTR(0xfb, "sp", IF_SSb, F_370 | F_390 | F_Z),
1768 1768 INSTR(0xfc, "mp", IF_SSb, F_370 | F_390 | F_Z),
1769 1769 INSTR(0xfd, "dp", IF_SSb, F_370 | F_390 | F_Z),
1770 1770 };
1771 1771 /* END CSTYLED */
1772 1772
1773 1773 /* how masks are printed */
1774 1774 static const char *M[16] = {
1775 1775 "0", "1", "2", "3", "4", "5", "6", "7",
1776 1776 "8", "9", "10", "11", "12", "13", "14", "15",
1777 1777 };
1778 1778
1779 1779 /* how general purpose regs are printed */
1780 1780 static const char *R[16] = {
1781 1781 "%r0", "%r1", "%r2", "%r3", "%r4", "%r5", "%r6", "%r7",
1782 1782 "%r8", "%r9", "%r10", "%r11", "%r12", "%r13", "%r14", "%r15",
1783 1783 };
1784 1784
1785 1785 /* how control regs are printed */
1786 1786 static const char *C[16] = {
1787 1787 "%c0", "%c1", "%c2", "%c3", "%c4", "%c5", "%c6", "%c7",
1788 1788 "%c8", "%c9", "%c10", "%c11", "%c12", "%c13", "%c14", "%c15",
1789 1789 };
1790 1790
1791 1791 /* B and X registers are still registers - print them the same way */
1792 1792 #define B R
1793 1793 #define X R
1794 1794
1795 1795 static inline uint32_t
1796 1796 val_8_4_8(uint32_t hi, uint32_t mid, uint32_t lo)
1797 1797 {
1798 1798 ASSERT0(hi & ~0xff);
1799 1799 ASSERT0(mid & ~0xf);
1800 1800 ASSERT0(lo & ~0xff);
1801 1801 return ((hi << 12) | (mid << 8) | lo);
1802 1802 }
1803 1803
1804 1804 static inline uint32_t
1805 1805 val_16_16(uint32_t hi, uint32_t lo)
1806 1806 {
1807 1807 ASSERT0(hi & ~0xffff);
1808 1808 ASSERT0(lo & ~0xffff);
1809 1809 return ((BE_16(hi) << 16) | BE_16(lo));
1810 1810 }
1811 1811
1812 1812 static inline int32_t
1813 1813 sval_16_16(uint32_t hi, uint32_t lo)
1814 1814 {
1815 1815 return (val_16_16(hi, lo));
1816 1816 }
1817 1817
1818 1818 static inline uint32_t
1819 1819 val_8_16(uint32_t hi, uint32_t lo)
1820 1820 {
1821 1821 ASSERT0(hi & ~0xff);
1822 1822 ASSERT0(lo & ~0xffff);
1823 1823 return ((hi << 16) | BE_16(lo));
1824 1824 }
1825 1825
1826 1826 static inline int32_t
1827 1827 sval_8_16(uint32_t hi, uint32_t lo)
1828 1828 {
1829 1829 int32_t tmp = val_8_16(hi, lo);
1830 1830
1831 1831 /* sign extend */
1832 1832 if (tmp & 0x00800000)
1833 1833 return (0xff000000 | tmp);
1834 1834 return (tmp);
1835 1835 }
1836 1836
1837 1837 static inline uint32_t
1838 1838 val_4_8(uint32_t hi, uint32_t lo)
1839 1839 {
1840 1840 ASSERT0(hi & ~0xf);
1841 1841 ASSERT0(lo & ~0xff);
1842 1842 return ((hi << 8) | lo);
1843 1843 }
1844 1844
1845 1845 static inline int32_t
1846 1846 sval_4_8(uint32_t hi, uint32_t lo)
1847 1847 {
1848 1848 uint32_t tmp = val_4_8(hi, lo);
1849 1849
1850 1850 /* sign extend */
1851 1851 if (tmp & 0x800)
1852 1852 return (0xfffff000 | tmp);
1853 1853 return (tmp);
1854 1854 }
1855 1855
1856 1856 /* ARGSUSED */
1857 1857 static void
1858 1858 fmt_zero(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
1859 1859 {
1860 1860 (void) snprintf(buf, buflen, "0x00, 0x00");
1861 1861 }
1862 1862
1863 1863 /* ARGSUSED */
1864 1864 static void
1865 1865 fmt_diag(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
1866 1866 {
1867 1867 (void) snprintf(buf, buflen, "%#x",
1868 1868 val_8_16(inst->diag.par1, inst->diag.par2));
1869 1869 }
1870 1870
1871 1871 /* ARGSUSED */
1872 1872 static void
1873 1873 fmt_e(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
1874 1874 {
1875 1875 /* nothing to do */
1876 1876 }
1877 1877
1878 1878 /* ARGSUSED */
1879 1879 static void
1880 1880 fmt_i(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
1881 1881 {
1882 1882 (void) snprintf(buf, buflen, "%#x", inst->i.i);
1883 1883 }
1884 1884
1885 1885 /* ARGSUSED */
1886 1886 static void
1887 1887 fmt_ie(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
1888 1888 {
1889 1889 (void) snprintf(buf, buflen, "%u,%u", inst->ie.i1, inst->ie.i2);
1890 1890 }
1891 1891
1892 1892 /* ARGSUSED */
1893 1893 static void
1894 1894 fmt_mii(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
1895 1895 {
1896 1896 uint64_t ri2 = addr + 2 * sval_4_8(inst->mii.ri2h, inst->mii.ri2l);
1897 1897 uint64_t ri3 = addr + 2 * sval_8_16(inst->mii.ri3h, inst->mii.ri3l);
1898 1898
1899 1899 (void) snprintf(buf, buflen, "%s,%#x,%#x", M[inst->mii.m1], ri2, ri3);
1900 1900 }
1901 1901
1902 1902 /* ARGSUSED */
1903 1903 static void
1904 1904 fmt_ril_a(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
1905 1905 {
1906 1906 (void) snprintf(buf, buflen, "%s,%u", R[inst->ril_a.r1],
1907 1907 val_16_16(inst->ril_a.i2h, inst->ril_a.i2l));
1908 1908 }
1909 1909
1910 1910 /* ARGSUSED */
1911 1911 static void
1912 1912 fmt_ril_b(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
1913 1913 {
1914 1914 uint64_t ri2 = addr + 2 *
1915 1915 sval_16_16(inst->ril_b.ri2h, inst->ril_b.ri2l);
1916 1916
1917 1917 (void) snprintf(buf, buflen, "%s,%#x", R[inst->ril_b.r1], ri2);
1918 1918 }
1919 1919
1920 1920 /* ARGSUSED */
1921 1921 static void
1922 1922 fmt_ril_c(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
1923 1923 {
1924 1924 uint64_t ri2 = addr + 2 *
1925 1925 sval_16_16(inst->ril_c.ri2h, inst->ril_c.ri2l);
1926 1926
1927 1927 (void) snprintf(buf, buflen, "%s,%#x", M[inst->ril_c.m1], ri2);
1928 1928 }
1929 1929
1930 1930 /* ARGSUSED */
1931 1931 static void
1932 1932 fmt_ris(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
1933 1933 {
1934 1934 uint32_t d4 = val_4_8(inst->ris.d4h, inst->ris.d4l);
1935 1935
1936 1936 (void) snprintf(buf, buflen, "%s,%u,%s,%u(%s)",
1937 1937 R[inst->ris.r1], inst->ris.i2, M[inst->ris.m3], d4,
1938 1938 B[inst->ris.b4]);
1939 1939 }
1940 1940
1941 1941 /* ARGSUSED */
1942 1942 static void
1943 1943 fmt_ri_a(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
1944 1944 {
1945 1945 uint16_t i2 = BE_16(inst->ri_a.i2);
1946 1946
1947 1947 if (flags & F_SIGNED_IMM)
1948 1948 (void) snprintf(buf, buflen, "%s,%d", R[inst->ri_a.r1],
1949 1949 (int16_t)i2);
1950 1950 else
1951 1951 (void) snprintf(buf, buflen, "%s,%u", R[inst->ri_a.r1],
1952 1952 i2);
1953 1953 }
1954 1954
1955 1955 /* ARGSUSED */
1956 1956 static void
1957 1957 fmt_ri_b(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
1958 1958 {
1959 1959 uint64_t ri2 = addr + 2 * (int16_t)BE_16(inst->ri_b.ri2);
1960 1960
1961 1961 (void) snprintf(buf, buflen, "%s,%#x", R[inst->ri_b.r1], ri2);
1962 1962 }
1963 1963
1964 1964 static void
1965 1965 fmt_ri_c(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
1966 1966 {
1967 1967 uint64_t ri2 = addr + 2 * (int16_t)BE_16(inst->ri_c.ri2);
1968 1968
1969 1969 if (flags & F_HIDE_MASK)
1970 1970 (void) snprintf(buf, buflen, "%#x", ri2);
1971 1971 else
1972 1972 (void) snprintf(buf, buflen, "%s,%#x", M[inst->ri_c.m1], ri2);
1973 1973 }
1974 1974
1975 1975 /* ARGSUSED */
1976 1976 static void
1977 1977 fmt_rie_a(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
1978 1978 {
1979 1979 (void) snprintf(buf, buflen, "%s,%u,%s", R[inst->rie_a.r1],
1980 1980 BE_16(inst->rie_a.i2), M[inst->rie_a.m3]);
1981 1981 }
1982 1982
1983 1983 /* ARGSUSED */
1984 1984 static void
1985 1985 fmt_rie_b(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
1986 1986 {
1987 1987 uint64_t ri4 = addr + 2 * (int16_t)BE_16(inst->rie_b.ri4);
1988 1988
1989 1989 (void) snprintf(buf, buflen, "%s,%s,%s,%#x", R[inst->rie_b.r1],
1990 1990 R[inst->rie_b.r2], M[inst->rie_b.m3], ri4);
1991 1991 }
1992 1992
1993 1993 /* ARGSUSED */
1994 1994 static void
1995 1995 fmt_rie_c(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
1996 1996 {
1997 1997 uint64_t ri4 = addr + 2 * (int16_t)BE_16(inst->rie_c.ri4);
1998 1998
1999 1999 (void) snprintf(buf, buflen, "%s,%u,%s,%#x", R[inst->rie_c.r1],
2000 2000 inst->rie_c.i2, M[inst->rie_c.m3], ri4);
2001 2001 }
2002 2002
2003 2003 /* ARGSUSED */
2004 2004 static void
2005 2005 fmt_rie_d(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2006 2006 {
2007 2007 (void) snprintf(buf, buflen, "%s,%s,%u", R[inst->rie_d.r1],
2008 2008 R[inst->rie_d.r3], BE_16(inst->rie_d.i2));
2009 2009 }
2010 2010
2011 2011 /* ARGSUSED */
2012 2012 static void
2013 2013 fmt_rie_e(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2014 2014 {
2015 2015 uint64_t ri2 = addr + 2 * (int16_t)BE_16(inst->rie_e.ri2);
2016 2016
2017 2017 (void) snprintf(buf, buflen, "%s,%s,%#x", R[inst->rie_e.r1],
2018 2018 R[inst->rie_e.r3], ri2);
2019 2019 }
2020 2020
2021 2021 /* ARGSUSED */
2022 2022 static void
2023 2023 fmt_rie_f(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2024 2024 {
2025 2025 (void) snprintf(buf, buflen, "%s,%s,%u,%u,%u", R[inst->rie_f.r1],
2026 2026 R[inst->rie_f.r2], inst->rie_f.i3, inst->rie_f.i4,
2027 2027 inst->rie_f.i5);
2028 2028 }
2029 2029
2030 2030 /* ARGSUSED */
2031 2031 static void
2032 2032 fmt_rre(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2033 2033 {
2034 2034 (void) snprintf(buf, buflen, "%s,%s", R[inst->rre.r1], R[inst->rre.r2]);
2035 2035 }
2036 2036
2037 2037 /* ARGSUSED */
2038 2038 static void
2039 2039 fmt_rrf_a(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2040 2040 {
2041 2041 (void) snprintf(buf, buflen, "%s,%s,%s",
2042 2042 R[inst->rrf_ab.r1], R[inst->rrf_ab.r2], R[inst->rrf_ab.r3]);
2043 2043 }
2044 2044
2045 2045 /* ARGSUSED */
2046 2046 static void
2047 2047 fmt_rrf_b(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2048 2048 {
2049 2049 (void) snprintf(buf, buflen, "%s,%s,%s",
2050 2050 R[inst->rrf_ab.r1], R[inst->rrf_ab.r3], R[inst->rrf_ab.r2]);
2051 2051 }
2052 2052
2053 2053 /* ARGSUSED */
2054 2054 static void
2055 2055 fmt_rrf_c(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2056 2056 {
2057 2057 (void) snprintf(buf, buflen, "%s,%s,%s",
2058 2058 R[inst->rrf_cde.r1], R[inst->rrf_cde.r2], M[inst->rrf_cde.m3]);
2059 2059 }
2060 2060
2061 2061 /* ARGSUSED */
2062 2062 static void
2063 2063 fmt_rrf_d(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2064 2064 {
2065 2065 (void) snprintf(buf, buflen, "%s,%s,%s",
2066 2066 R[inst->rrf_cde.r1], R[inst->rrf_cde.r2], M[inst->rrf_cde.m4]);
2067 2067 }
2068 2068
2069 2069 /* ARGSUSED */
2070 2070 static void
2071 2071 fmt_rrf_e(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2072 2072 {
2073 2073 (void) snprintf(buf, buflen, "%s,%s,%s,%s",
2074 2074 R[inst->rrf_cde.r1], M[inst->rrf_cde.m3],
2075 2075 R[inst->rrf_cde.r2], M[inst->rrf_cde.m4]);
2076 2076 }
2077 2077
2078 2078 /* ARGSUSED */
2079 2079 static void
2080 2080 fmt_rrs(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2081 2081 {
2082 2082 (void) snprintf(buf, buflen, "%s,%s,%s,%u(%s)", R[inst->rrs.r1],
2083 2083 R[inst->rrs.r2], M[inst->rrs.m3],
2084 2084 val_4_8(inst->rrs.d4h, inst->rrs.d4l), B[inst->rrs.b4]);
2085 2085 }
2086 2086
2087 2087 /* ARGSUSED */
2088 2088 static void
2089 2089 fmt_rr(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2090 2090 {
2091 2091 /* a branch uses r1 as a mask */
2092 2092 if (flags & F_HIDE_MASK)
2093 2093 (void) snprintf(buf, buflen, "%s", R[inst->rr.r2]);
2094 2094 else if (flags & F_R1_IS_MASK)
2095 2095 (void) snprintf(buf, buflen, "%s,%s", M[inst->rr.r1],
2096 2096 R[inst->rr.r2]);
2097 2097 else
2098 2098 (void) snprintf(buf, buflen, "%s,%s", R[inst->rr.r1],
2099 2099 R[inst->rr.r2]);
2100 2100 }
2101 2101
2102 2102 /* ARGSUSED */
2103 2103 static void
2104 2104 fmt_rrd(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2105 2105 {
2106 2106 (void) snprintf(buf, buflen, "%s,%s,%s", R[inst->rrd.r1],
2107 2107 R[inst->rrd.r3], R[inst->rrd.r2]);
2108 2108 }
2109 2109
2110 2110 /* ARGSUSED */
2111 2111 static void
2112 2112 fmt_rx_a(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2113 2113 {
2114 2114 uint32_t d2 = val_4_8(inst->rx_a.d2h, inst->rx_b.d2l);
2115 2115
2116 2116 (void) snprintf(buf, buflen, "%s,%u(%s,%s)", R[inst->rx_a.r1],
2117 2117 d2, X[inst->rx_a.x2], B[inst->rx_a.b2]);
2118 2118 }
2119 2119
2120 2120 /* ARGSUSED */
2121 2121 static void
2122 2122 fmt_rx_b(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2123 2123 {
2124 2124 uint32_t d2 = val_4_8(inst->rx_b.d2h, inst->rx_b.d2l);
2125 2125
2126 2126 if (flags & F_HIDE_MASK)
2127 2127 (void) snprintf(buf, buflen, "%u(%s,%s)",
2128 2128 d2, X[inst->rx_b.x2], B[inst->rx_b.b2]);
2129 2129 else
2130 2130 (void) snprintf(buf, buflen, "%s,%u(%s,%s)", M[inst->rx_b.m1],
2131 2131 d2, X[inst->rx_b.x2], B[inst->rx_b.b2]);
2132 2132 }
2133 2133
2134 2134 /* ARGSUSED */
2135 2135 static void
2136 2136 fmt_rxe(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2137 2137 {
2138 2138 uint32_t d2 = val_4_8(inst->rxe.d2h, inst->rxe.d2l);
2139 2139
2140 2140 (void) snprintf(buf, buflen, "%s,%u(%s,%s)",
2141 2141 R[inst->rxe.r1], d2, X[inst->rxe.x2], B[inst->rxe.b2]);
2142 2142 }
2143 2143
2144 2144 /* ARGSUSED */
2145 2145 static void
2146 2146 fmt_rxf(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2147 2147 {
2148 2148 uint32_t d2 = val_4_8(inst->rxf.d2h, inst->rxf.d2l);
2149 2149
2150 2150 (void) snprintf(buf, buflen, "%s,%s,%u(%s,%s)",
2151 2151 R[inst->rxf.r1], R[inst->rxf.r3], d2, X[inst->rxf.x2],
2152 2152 B[inst->rxf.b2]);
2153 2153 }
2154 2154
2155 2155 /* ARGSUSED */
2156 2156 static void
2157 2157 fmt_rxy_a(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2158 2158 {
2159 2159 uint32_t d2;
2160 2160
2161 2161 d2 = val_8_4_8(inst->rxy_a.dh2, inst->rxy_a.dl2h, inst->rxy_a.dl2l);
2162 2162
2163 2163 (void) snprintf(buf, buflen, "%s,%u(%s,%s)",
2164 2164 R[inst->rxy_a.r1], d2, X[inst->rxy_a.x2], B[inst->rxy_a.b2]);
2165 2165 }
2166 2166
2167 2167 /* ARGSUSED */
2168 2168 static void
2169 2169 fmt_rxy_b(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2170 2170 {
2171 2171 uint32_t d2;
2172 2172
2173 2173 d2 = val_8_4_8(inst->rxy_b.dh2, inst->rxy_b.dl2h, inst->rxy_b.dl2l);
2174 2174
2175 2175 (void) snprintf(buf, buflen, "%s,%u(%s,%s)",
2176 2176 M[inst->rxy_b.m1], d2, X[inst->rxy_b.x2], B[inst->rxy_b.b2]);
2177 2177 }
2178 2178
2179 2179 /* ARGSUSED */
2180 2180 static void
2181 2181 fmt_rs_a(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2182 2182 {
2183 2183 const char *r1, *r3;
2184 2184
2185 2185 if (flags & F_CTL_REG) {
2186 2186 r1 = C[inst->rs_a.r1];
2187 2187 r3 = C[inst->rs_a.r3];
2188 2188 } else {
2189 2189 r1 = R[inst->rs_a.r1];
2190 2190 r3 = R[inst->rs_a.r3];
2191 2191 }
2192 2192
2193 2193 (void) snprintf(buf, buflen, "%s,%s,%u(%s)", r1, r3,
2194 2194 val_4_8(inst->rs_a.d2h, inst->rs_a.d2l), B[inst->rs_a.b2]);
2195 2195 }
2196 2196
2197 2197 /* ARGSUSED */
2198 2198 static void
2199 2199 fmt_rs_b(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2200 2200 {
2201 2201 (void) snprintf(buf, buflen, "%s,%s,%u(%s)", R[inst->rs_b.r1],
2202 2202 M[inst->rs_b.m3], val_4_8(inst->rs_b.d2h, inst->rs_b.d2l),
2203 2203 B[inst->rs_b.b2]);
2204 2204 }
2205 2205
2206 2206 /* ARGSUSED */
2207 2207 static void
2208 2208 fmt_rsl_a(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2209 2209 {
2210 2210 (void) snprintf(buf, buflen, "%u(%u,%s)",
2211 2211 val_4_8(inst->rsl_a.d1h, inst->rsl_a.d1l), inst->rsl_a.l1,
2212 2212 B[inst->rsl_a.b1]);
2213 2213 }
2214 2214
2215 2215 /* ARGSUSED */
2216 2216 static void
2217 2217 fmt_rsl_b(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2218 2218 {
2219 2219 (void) snprintf(buf, buflen, "%s,%u(%u,%s),%s",
2220 2220 R[inst->rsl_b.r1],
2221 2221 val_4_8(inst->rsl_b.d2h, inst->rsl_b.d2l), inst->rsl_b.l2,
2222 2222 B[inst->rsl_b.b2], M[inst->rsl_b.m3]);
2223 2223 }
2224 2224
2225 2225 /* ARGSUSED */
2226 2226 static void
2227 2227 fmt_rsy_a(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2228 2228 {
2229 2229 const char *r1, *r3;
2230 2230 uint32_t d2;
2231 2231
2232 2232 d2 = val_8_4_8(inst->rsy_a.dh2, inst->rsy_a.dl2h, inst->rsy_a.dl2l);
2233 2233
2234 2234 if (flags & F_CTL_REG) {
2235 2235 r1 = C[inst->rsy_a.r1];
2236 2236 r3 = C[inst->rsy_a.r3];
2237 2237 } else {
2238 2238 r1 = R[inst->rsy_a.r1];
2239 2239 r3 = R[inst->rsy_a.r3];
2240 2240 }
2241 2241
2242 2242 (void) snprintf(buf, buflen, "%s,%s,%u(%s)", r1, r3, d2,
2243 2243 B[inst->rsy_a.b2]);
2244 2244 }
2245 2245
2246 2246 /* ARGSUSED */
2247 2247 static void
2248 2248 fmt_rsy_b(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2249 2249 {
2250 2250 uint32_t d2;
2251 2251
2252 2252 d2 = val_8_4_8(inst->rsy_b.dh2, inst->rsy_b.dl2h, inst->rsy_b.dl2l);
2253 2253
2254 2254 (void) snprintf(buf, buflen, "%s,%s,%u(%s)",
2255 2255 R[inst->rsy_b.r1], M[inst->rsy_b.m3],
2256 2256 d2, B[inst->rsy_b.b2]);
2257 2257 }
2258 2258
2259 2259 /* ARGSUSED */
2260 2260 static void
2261 2261 fmt_rsi(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2262 2262 {
2263 2263 uint64_t ri2 = addr + 2 * (int16_t)BE_16(inst->rsi.ri2);
2264 2264
2265 2265 (void) snprintf(buf, buflen, "%s,%s,%#x", R[inst->rsi.r1],
2266 2266 R[inst->rsi.r3], ri2);
2267 2267 }
2268 2268
2269 2269 /* ARGSUSED */
2270 2270 static void
2271 2271 fmt_si(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2272 2272 {
2273 2273 uint32_t d1 = val_4_8(inst->si.d1h, inst->si.d1l);
2274 2274
2275 2275 (void) snprintf(buf, buflen, "%u(%s),%u", d1, B[inst->si.b1],
2276 2276 inst->si.i2);
2277 2277 }
2278 2278
2279 2279 /* ARGSUSED */
2280 2280 static void
2281 2281 fmt_sil(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2282 2282 {
2283 2283 (void) snprintf(buf, buflen, "%u(%s),%u",
2284 2284 val_4_8(inst->sil.d1h, inst->sil.d1l), B[inst->sil.b1],
2285 2285 BE_16(inst->sil.i2));
2286 2286 }
2287 2287
2288 2288 /* ARGSUSED */
2289 2289 static void
2290 2290 fmt_siy(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2291 2291 {
2292 2292 (void) snprintf(buf, buflen, "%u(%s),%u",
2293 2293 val_8_4_8(inst->siy.dh1, inst->siy.dl1h, inst->siy.dl1l),
2294 2294 B[inst->siy.b1], inst->siy.i2);
2295 2295 }
2296 2296
2297 2297 /* ARGSUSED */
2298 2298 static void
2299 2299 fmt_smi(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2300 2300 {
2301 2301 uint64_t ri2 = addr + 2 * (int16_t)BE_16(inst->smi.ri2);
2302 2302
2303 2303 (void) snprintf(buf, buflen, "%s,%#x,%u(%s)", M[inst->smi.m1], ri2,
2304 2304 val_4_8(inst->smi.d3h, inst->smi.d3l), B[inst->smi.b3]);
2305 2305 }
2306 2306
2307 2307 /* ARGSUSED */
2308 2308 static void
2309 2309 fmt_s(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2310 2310 {
2311 2311 uint32_t d = val_4_8(inst->s.d2h, inst->s.d2l);
2312 2312
2313 2313 (void) snprintf(buf, buflen, "%u(%s)", d, B[inst->s.b2]);
2314 2314 }
2315 2315
2316 2316 /* ARGSUSED */
2317 2317 static void
2318 2318 fmt_ss_a(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2319 2319 {
2320 2320 uint32_t d1, d2;
2321 2321
2322 2322 d1 = val_4_8(inst->ss_a.d1h, inst->ss_a.d1l);
2323 2323 d2 = val_4_8(inst->ss_a.d2h, inst->ss_a.d2l);
2324 2324
2325 2325 (void) snprintf(buf, buflen, "%u(%u,%s),%u(%s)",
2326 2326 d1, inst->ss_a.l + 1, B[inst->ss_a.b1],
2327 2327 d2, B[inst->ss_a.b2]);
2328 2328 }
2329 2329
2330 2330 /* ARGSUSED */
2331 2331 static void
2332 2332 fmt_ss_b(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2333 2333 {
2334 2334 uint32_t d1, d2;
2335 2335
2336 2336 d1 = val_4_8(inst->ss_b.d1h, inst->ss_b.d1l);
2337 2337 d2 = val_4_8(inst->ss_b.d2h, inst->ss_b.d2l);
2338 2338
2339 2339 (void) snprintf(buf, buflen, "%u(%u,%s),%u(%u,%s)",
2340 2340 d1, inst->ss_b.l1 + 1, B[inst->ss_b.b1],
2341 2341 d2, inst->ss_b.l2 + 1, B[inst->ss_b.b2]);
2342 2342 }
2343 2343
2344 2344 /* ARGSUSED */
2345 2345 static void
2346 2346 fmt_ss_c(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2347 2347 {
2348 2348 uint32_t d1, d2;
2349 2349
2350 2350 d1 = val_4_8(inst->ss_c.d1h, inst->ss_c.d1l);
2351 2351 d2 = val_4_8(inst->ss_c.d2h, inst->ss_c.d2l);
2352 2352
2353 2353 (void) snprintf(buf, buflen, "%u(%u,%s),%u(%s),%u",
2354 2354 d1, inst->ss_c.l1, B[inst->ss_c.b1],
2355 2355 d2, B[inst->ss_c.b2], inst->ss_c.i3);
2356 2356 }
2357 2357
2358 2358 /* ARGSUSED */
2359 2359 static void
2360 2360 fmt_ss_d(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2361 2361 {
2362 2362 uint32_t d1, d2;
2363 2363
2364 2364 d1 = val_4_8(inst->ss_d.d1h, inst->ss_d.d1l);
2365 2365 d2 = val_4_8(inst->ss_d.d2h, inst->ss_d.d2l);
2366 2366
2367 2367 (void) snprintf(buf, buflen, "%u(%s,%s),%u(%s),%s",
2368 2368 d1, R[inst->ss_d.r1], B[inst->ss_d.b1],
2369 2369 d2, B[inst->ss_d.b2], R[inst->ss_d.r3]);
2370 2370 }
2371 2371
2372 2372 /* ARGSUSED */
2373 2373 static void
2374 2374 fmt_ss_e(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2375 2375 {
2376 2376 uint32_t d2, d4;
2377 2377
2378 2378 d2 = val_4_8(inst->ss_e.d2h, inst->ss_e.d2l);
2379 2379 d4 = val_4_8(inst->ss_e.d4h, inst->ss_e.d4l);
2380 2380
2381 2381 (void) snprintf(buf, buflen, "%s,%u(%s),%s,%u(%s)",
2382 2382 R[inst->ss_e.r1], d2, B[inst->ss_e.b2],
2383 2383 R[inst->ss_e.r3], d4, B[inst->ss_e.b4]);
2384 2384 }
2385 2385
2386 2386 /* ARGSUSED */
2387 2387 static void
2388 2388 fmt_ss_f(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2389 2389 {
2390 2390 uint32_t d1, d2;
2391 2391
2392 2392 d1 = val_4_8(inst->ss_f.d1h, inst->ss_f.d1l);
2393 2393 d2 = val_4_8(inst->ss_f.d2h, inst->ss_f.d2l);
2394 2394
2395 2395 (void) snprintf(buf, buflen, "%u(%s),%u(%u,%s)",
2396 2396 d1, B[inst->ss_f.b1], d2, inst->ss_f.l2,
2397 2397 B[inst->ss_f.b2]);
2398 2398 }
2399 2399
2400 2400 /* ARGSUSED */
2401 2401 static void
2402 2402 fmt_sse(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2403 2403 {
2404 2404 uint32_t d1 = val_4_8(inst->sse.d1h, inst->sse.d1l);
2405 2405 uint32_t d2 = val_4_8(inst->sse.d2h, inst->sse.d2l);
2406 2406
2407 2407 (void) snprintf(buf, buflen, "%u(%s),%u(%s)",
2408 2408 d1, B[inst->sse.b1], d2, B[inst->sse.b2]);
2409 2409 }
2410 2410
2411 2411 /* ARGSUSED */
2412 2412 static void
2413 2413 fmt_ssf(uint64_t addr, union inst *inst, char *buf, size_t buflen, int flags)
2414 2414 {
2415 2415 uint32_t d1 = val_4_8(inst->ssf.d1h, inst->ssf.d1l);
2416 2416 uint32_t d2 = val_4_8(inst->ssf.d2h, inst->ssf.d2l);
2417 2417
2418 2418 (void) snprintf(buf, buflen, "%u(%s),%u(%s),%s",
2419 2419 d1, B[inst->ssf.b1],
2420 2420 d2, B[inst->ssf.b2], R[inst->ssf.r3]);
2421 2421 }
2422 2422
2423 2423 static void (*fmt_fxns[IF_NFMTS])(uint64_t, union inst *, char *, size_t,
2424 2424 int) = {
2425 2425 [IF_ZERO] = fmt_zero,
2426 2426 [IF_DIAG] = fmt_diag,
2427 2427 [IF_E] = fmt_e,
2428 2428 [IF_I] = fmt_i,
2429 2429 [IF_IE] = fmt_ie,
2430 2430 [IF_MII] = fmt_mii,
2431 2431 [IF_RIa] = fmt_ri_a,
2432 2432 [IF_RIb] = fmt_ri_b,
2433 2433 [IF_RIc] = fmt_ri_c,
2434 2434 [IF_RIEa] = fmt_rie_a,
2435 2435 [IF_RIEb] = fmt_rie_b,
2436 2436 [IF_RIEc] = fmt_rie_c,
2437 2437 [IF_RIEd] = fmt_rie_d,
2438 2438 [IF_RIEe] = fmt_rie_e,
2439 2439 [IF_RIEf] = fmt_rie_f,
2440 2440 [IF_RILa] = fmt_ril_a,
2441 2441 [IF_RILb] = fmt_ril_b,
2442 2442 [IF_RILc] = fmt_ril_c,
2443 2443 [IF_RIS] = fmt_ris,
2444 2444 [IF_RR] = fmt_rr,
2445 2445 [IF_RRD] = fmt_rrd,
2446 2446 [IF_RRE] = fmt_rre,
2447 2447 [IF_RRFa] = fmt_rrf_a,
2448 2448 [IF_RRFb] = fmt_rrf_b,
2449 2449 [IF_RRFc] = fmt_rrf_c,
2450 2450 [IF_RRFd] = fmt_rrf_d,
2451 2451 [IF_RRFe] = fmt_rrf_e,
2452 2452 [IF_RRS] = fmt_rrs,
2453 2453 [IF_RSa] = fmt_rs_a,
2454 2454 [IF_RSb] = fmt_rs_b,
2455 2455 [IF_RSI] = fmt_rsi,
2456 2456 [IF_RSLa] = fmt_rsl_a,
2457 2457 [IF_RSLb] = fmt_rsl_b,
2458 2458 [IF_RSYa] = fmt_rsy_a,
2459 2459 [IF_RSYb] = fmt_rsy_b,
2460 2460 [IF_RXa] = fmt_rx_a,
2461 2461 [IF_RXb] = fmt_rx_b,
2462 2462 [IF_RXE] = fmt_rxe,
2463 2463 [IF_RXF] = fmt_rxf,
2464 2464 [IF_RXYa] = fmt_rxy_a,
2465 2465 [IF_RXYb] = fmt_rxy_b,
2466 2466 [IF_S] = fmt_s,
2467 2467 [IF_SI] = fmt_si,
2468 2468 [IF_SIL] = fmt_sil,
2469 2469 [IF_SIY] = fmt_siy,
2470 2470 [IF_SMI] = fmt_smi,
|
↓ open down ↓ |
2470 lines elided |
↑ open up ↑ |
2471 2471 [IF_SSa] = fmt_ss_a,
2472 2472 [IF_SSb] = fmt_ss_b,
2473 2473 [IF_SSc] = fmt_ss_c,
2474 2474 [IF_SSd] = fmt_ss_d,
2475 2475 [IF_SSe] = fmt_ss_e,
2476 2476 [IF_SSf] = fmt_ss_f,
2477 2477 [IF_SSE] = fmt_sse,
2478 2478 [IF_SSF] = fmt_ssf,
2479 2479 };
2480 2480
2481 -static int
2481 +/*
2482 + * Even if we don't know how to disassemble the instruction, we know how long
2483 + * it is, so we always succeed. That is why we can get away with returning
2484 + * void.
2485 + */
2486 +static void
2482 2487 dis_s390(uint64_t addr, union inst *inst, char *buf, size_t buflen, int mach)
2483 2488 {
2484 2489 const struct inst_table *tbl = &tbl_xx[inst->raw[0]];
2485 2490 int tmp;
2486 2491
2492 + /* nothing to do */
2493 + if (buflen == 0)
2494 + return;
2495 +
2487 2496 while (tbl->it_fmt == IF_TBL || tbl->it_fmt == IF_MULTI) {
2488 2497 if (tbl->it_fmt == IF_TBL) {
2489 2498 int idx;
2490 2499
2491 2500 idx = inst->raw[tbl->it_u.it_table.it_off];
2492 2501 idx >>= tbl->it_u.it_table.it_shift;
2493 2502 idx &= tbl->it_u.it_table.it_mask;
2494 2503
2495 2504 tbl = &tbl->it_u.it_table.it_ptr[idx];
2496 2505 } else if (tbl->it_fmt == IF_MULTI) {
2497 2506 tbl = &tbl->it_u.it_multi.it_ptr[mach];
|
↓ open down ↓ |
1 lines elided |
↑ open up ↑ |
2498 2507 }
2499 2508 }
2500 2509
2501 2510 if (tbl->it_fmt == IF_INVAL)
2502 2511 goto inval;
2503 2512
2504 2513 if ((tbl->it_u.it_inst.it_flags & mach) == 0)
2505 2514 goto inval;
2506 2515
2507 2516 tmp = snprintf(buf, buflen, "%-7s ", tbl->it_u.it_inst.it_name);
2517 + if (tmp < 0)
2518 + return;
2508 2519
2509 2520 fmt_fxns[tbl->it_fmt](addr, inst, buf + tmp, buflen - tmp,
2510 2521 tbl->it_u.it_inst.it_flags);
2511 2522
2512 - return (0);
2523 + return;
2513 2524
2514 2525 inval:
2515 2526 (void) snprintf(buf, buflen, "??");
2516 -
2517 - /*
2518 - * Even if we don't know how to disassemble the instruction, we know
2519 - * how long it is, so we "succeed" even when we fail.
2520 - */
2521 - return (0);
2522 2527 }
2523 2528
2524 2529 static int
2525 2530 dis_s390_supports_flags(int flags)
2526 2531 {
2527 2532 int archflags = flags & DIS_ARCH_MASK;
2528 2533
2529 2534 if (archflags == DIS_S370 || archflags == DIS_S390_31 ||
2530 2535 archflags == DIS_S390_64)
2531 2536 return (1);
2532 2537
2533 2538 return (0);
2534 2539 }
2535 2540
2536 2541 static int
2537 2542 dis_s390_disassemble(dis_handle_t *dhp, uint64_t addr, char *buf,
2538 2543 size_t buflen)
2539 2544 {
2540 2545 union inst inst;
2541 2546 int mach;
2542 2547 int len;
2543 2548
2544 2549 if (dhp->dh_read(dhp->dh_data, addr, &inst.raw[0], 2) != 2)
2545 2550 return (-1);
2546 2551
2547 2552 len = ILC2LEN(inst.raw[0] >> 6) - 2;
2548 2553
2549 2554 if (len > 0 &&
2550 2555 dhp->dh_read(dhp->dh_data, addr + 2, &inst.raw[2], len) != len)
2551 2556 return (-1);
2552 2557
2553 2558 switch (dhp->dh_flags & (DIS_S370 | DIS_S390_31 | DIS_S390_64)) {
2554 2559 case DIS_S370:
|
↓ open down ↓ |
23 lines elided |
↑ open up ↑ |
2555 2560 mach = F_370;
2556 2561 break;
2557 2562 case DIS_S390_31:
2558 2563 mach = F_390;
2559 2564 break;
2560 2565 case DIS_S390_64:
2561 2566 mach = F_Z;
2562 2567 break;
2563 2568 }
2564 2569
2565 - return (dis_s390(addr, &inst, buf, buflen, mach));
2570 + dis_s390(addr, &inst, buf, buflen, mach);
2571 +
2572 + return (0);
2566 2573 }
2567 2574
2568 2575 /* ARGSUSED */
2569 2576 static int
2570 2577 dis_s390_min_instrlen(dis_handle_t *dhp)
2571 2578 {
2572 2579 return (2);
2573 2580 }
2574 2581
2575 2582 /* ARGSUSED */
2576 2583 static int
2577 2584 dis_s390_max_instrlen(dis_handle_t *dhp)
2578 2585 {
2579 2586 return (6);
2580 2587 }
2581 2588
2582 2589 dis_arch_t dis_arch_s390 = {
2583 2590 .da_supports_flags = dis_s390_supports_flags,
2584 2591 .da_disassemble = dis_s390_disassemble,
2585 2592 .da_min_instrlen = dis_s390_min_instrlen,
2586 2593 .da_max_instrlen = dis_s390_max_instrlen,
2587 2594 };
|
↓ open down ↓ |
12 lines elided |
↑ open up ↑ |
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX