static t_param *print_col(t_param *buf, int nb_row, int col_nb, int nb_tab) { int row; row = 0; while (row < nb_row) { if (print_one_arg(buf) == -1) return (NULL); buf = buf->next; if (buf->nb == 0) { go_to_origin(row); break ; } move_cursor_one_down(nb_tab, col_nb); row++; } return (buf); }
static unsigned int bfd_h8_disassemble (bfd_vma addr, disassemble_info *info, int mach) { /* Find the first entry in the table for this opcode. */ int regno[3] = { 0, 0, 0 }; int dispregno[3] = { 0, 0, 0 }; int cst[3] = { 0, 0, 0 }; int cstlen[3] = { 0, 0, 0 }; static bfd_boolean init = 0; const struct h8_instruction *qi; char const **pregnames = mach != 0 ? lregnames : wregnames; int status; unsigned int l; unsigned char data[MAX_CODE_NIBBLES]; void *stream = info->stream; fprintf_ftype outfn = info->fprintf_func; if (!init) { bfd_h8_disassemble_init (); init = 1; } status = info->read_memory_func (addr, data, 2, info); if (status != 0) { info->memory_error_func (status, addr, info); return -1; } for (l = 2; status == 0 && l < sizeof (data) / 2; l += 2) status = info->read_memory_func (addr + l, data + l, 2, info); /* Find the exact opcode/arg combo. */ for (qi = h8_instructions; qi->opcode->name; qi++) { const struct h8_opcode *q = qi->opcode; const op_type *nib = q->data.nib; unsigned int len = 0; while (1) { op_type looking_for = *nib; int thisnib = data[len / 2]; int opnr; thisnib = (len & 1) ? (thisnib & 0xf) : ((thisnib / 16) & 0xf); opnr = ((looking_for & OP3) == OP3 ? 2 : (looking_for & DST) == DST ? 1 : 0); if (looking_for < 16 && looking_for >= 0) { if (looking_for != thisnib) goto fail; } else { if ((int) looking_for & (int) B31) { if (!((thisnib & 0x8) != 0)) goto fail; looking_for = (op_type) ((int) looking_for & ~(int) B31); thisnib &= 0x7; } else if ((int) looking_for & (int) B30) { if (!((thisnib & 0x8) == 0)) goto fail; looking_for = (op_type) ((int) looking_for & ~(int) B30); } if ((int) looking_for & (int) B21) { if (!((thisnib & 0x4) != 0)) goto fail; looking_for = (op_type) ((int) looking_for & ~(int) B21); thisnib &= 0xb; } else if ((int) looking_for & (int) B20) { if (!((thisnib & 0x4) == 0)) goto fail; looking_for = (op_type) ((int) looking_for & ~(int) B20); } if ((int) looking_for & (int) B11) { if (!((thisnib & 0x2) != 0)) goto fail; looking_for = (op_type) ((int) looking_for & ~(int) B11); thisnib &= 0xd; } else if ((int) looking_for & (int) B10) { if (!((thisnib & 0x2) == 0)) goto fail; looking_for = (op_type) ((int) looking_for & ~(int) B10); } if ((int) looking_for & (int) B01) { if (!((thisnib & 0x1) != 0)) goto fail; looking_for = (op_type) ((int) looking_for & ~(int) B01); thisnib &= 0xe; } else if ((int) looking_for & (int) B00) { if (!((thisnib & 0x1) == 0)) goto fail; looking_for = (op_type) ((int) looking_for & ~(int) B00); } if (looking_for & IGNORE) { /* Hitachi has declared that IGNORE must be zero. */ if (thisnib != 0) goto fail; } else if ((looking_for & MODE) == DATA) { ; /* Skip embedded data. */ } else if ((looking_for & MODE) == DBIT) { /* Exclude adds/subs by looking at bit 0 and 2, and make sure the operand size, either w or l, matches by looking at bit 1. */ if ((looking_for & 7) != (thisnib & 7)) goto fail; cst[opnr] = (thisnib & 0x8) ? 2 : 1; } else if ((looking_for & MODE) == DISP || (looking_for & MODE) == ABS || (looking_for & MODE) == PCREL || (looking_for & MODE) == INDEXB || (looking_for & MODE) == INDEXW || (looking_for & MODE) == INDEXL) { extract_immediate (stream, looking_for, thisnib, data + len / 2, cst + opnr, cstlen + opnr, q); /* Even address == bra, odd == bra/s. */ if (q->how == O (O_BRAS, SB)) cst[opnr] -= 1; } else if ((looking_for & MODE) == REG || (looking_for & MODE) == LOWREG || (looking_for & MODE) == IND || (looking_for & MODE) == PREINC || (looking_for & MODE) == POSTINC || (looking_for & MODE) == PREDEC || (looking_for & MODE) == POSTDEC) { regno[opnr] = thisnib; } else if (looking_for & CTRL) /* Control Register. */ { thisnib &= 7; if (((looking_for & MODE) == CCR && (thisnib != C_CCR)) || ((looking_for & MODE) == EXR && (thisnib != C_EXR)) || ((looking_for & MODE) == MACH && (thisnib != C_MACH)) || ((looking_for & MODE) == MACL && (thisnib != C_MACL)) || ((looking_for & MODE) == VBR && (thisnib != C_VBR)) || ((looking_for & MODE) == SBR && (thisnib != C_SBR))) goto fail; if (((looking_for & MODE) == CCR_EXR && (thisnib != C_CCR && thisnib != C_EXR)) || ((looking_for & MODE) == VBR_SBR && (thisnib != C_VBR && thisnib != C_SBR)) || ((looking_for & MODE) == MACREG && (thisnib != C_MACH && thisnib != C_MACL))) goto fail; if (((looking_for & MODE) == CC_EX_VB_SB && (thisnib != C_CCR && thisnib != C_EXR && thisnib != C_VBR && thisnib != C_SBR))) goto fail; regno[opnr] = thisnib; } else if ((looking_for & SIZE) == L_5) { cst[opnr] = data[len / 2] & 31; cstlen[opnr] = 5; } else if ((looking_for & SIZE) == L_4) { cst[opnr] = thisnib; cstlen[opnr] = 4; } else if ((looking_for & SIZE) == L_16 || (looking_for & SIZE) == L_16U) { cst[opnr] = (data[len / 2]) * 256 + data[(len + 2) / 2]; cstlen[opnr] = 16; } else if ((looking_for & MODE) == MEMIND) { cst[opnr] = data[1]; } else if ((looking_for & MODE) == VECIND) { cst[opnr] = data[1] & 0x7f; } else if ((looking_for & SIZE) == L_32) { int i = len / 2; cst[opnr] = ((data[i] << 24) | (data[i + 1] << 16) | (data[i + 2] << 8) | (data[i + 3])); cstlen[opnr] = 32; } else if ((looking_for & SIZE) == L_24) { int i = len / 2; cst[opnr] = (data[i] << 16) | (data[i + 1] << 8) | (data[i + 2]); cstlen[opnr] = 24; } else if (looking_for & IGNORE) { ; } else if (looking_for & DISPREG) { dispregno[opnr] = thisnib & 7; } else if ((looking_for & MODE) == KBIT) { switch (thisnib) { case 9: cst[opnr] = 4; break; case 8: cst[opnr] = 2; break; case 0: cst[opnr] = 1; break; default: goto fail; } } else if ((looking_for & SIZE) == L_8) { cstlen[opnr] = 8; cst[opnr] = data[len / 2]; } else if ((looking_for & SIZE) == L_3 || (looking_for & SIZE) == L_3NZ) { cst[opnr] = thisnib & 0x7; if (cst[opnr] == 0 && (looking_for & SIZE) == L_3NZ) goto fail; } else if ((looking_for & SIZE) == L_2) { cstlen[opnr] = 2; cst[opnr] = thisnib & 0x3; } else if ((looking_for & MODE) == MACREG) { cst[opnr] = (thisnib == 3); } else if (looking_for == (op_type) E) { outfn (stream, "%s\t", q->name); /* Gross. Disgusting. */ if (strcmp (q->name, "ldm.l") == 0) { int count, high; count = (data[1] / 16) & 0x3; high = regno[1]; outfn (stream, "@sp+,er%d-er%d", high - count, high); return qi->length; } if (strcmp (q->name, "stm.l") == 0) { int count, low; count = (data[1] / 16) & 0x3; low = regno[0]; outfn (stream, "er%d-er%d,@-sp", low, low + count); return qi->length; } if (strcmp (q->name, "rte/l") == 0 || strcmp (q->name, "rts/l") == 0) { if (regno[0] == 0) outfn (stream, "er%d", regno[1]); else outfn (stream, "er%d-er%d", regno[1] - regno[0], regno[1]); return qi->length; } if (CONST_STRNEQ (q->name, "mova")) { const op_type *args = q->args.nib; if (args[1] == (op_type) E) { /* Short form. */ print_one_arg (info, addr, args[0], cst[0], cstlen[0], dispregno[0], regno[0], pregnames, qi->length); outfn (stream, ",er%d", dispregno[0]); } else { outfn (stream, "@(0x%x:%d,", cst[0], cstlen[0]); print_one_arg (info, addr, args[1], cst[1], cstlen[1], dispregno[1], regno[1], pregnames, qi->length); outfn (stream, ".%c),", (args[0] & MODE) == INDEXB ? 'b' : 'w'); print_one_arg (info, addr, args[2], cst[2], cstlen[2], dispregno[2], regno[2], pregnames, qi->length); } return qi->length; } /* Fill in the args. */ { const op_type *args = q->args.nib; int hadone = 0; int nargs; /* Special case handling for the adds and subs instructions since in H8 mode thay can only take the r0-r7 registers but in other (higher) modes they can take the er0-er7 registers as well. */ if (strcmp (qi->opcode->name, "adds") == 0 || strcmp (qi->opcode->name, "subs") == 0) { outfn (stream, "#%d,%s", cst[0], pregnames[regno[1] & 0x7]); return qi->length; } for (nargs = 0; nargs < 3 && args[nargs] != (op_type) E; nargs++) { int x = args[nargs]; if (hadone) outfn (stream, ","); print_one_arg (info, addr, x, cst[nargs], cstlen[nargs], dispregno[nargs], regno[nargs], pregnames, qi->length); hadone = 1; } } return qi->length; } else /* xgettext:c-format */ outfn (stream, _("Don't understand 0x%x \n"), looking_for); } len++; nib++; } fail: ; } /* Fell off the end. */ outfn (stream, ".word\tH'%x,H'%x", data[0], data[1]); return 2; }