-/* Returns number of bytes "eaten" by the operand, or return -1 if an
- invalid operand was found, or -2 if an opcode tabel error was
- found. */
-
-static int
-print_insn_arg (d, p0, addr, info)
- const char *d;
- unsigned char *p0;
- bfd_vma addr; /* PC for this arg to be relative to */
- disassemble_info *info;
-{
- int arg_len;
-
- /* check validity of addressing length */
- switch (d[1])
- {
- case 'b' : arg_len = 1; break;
- case 'd' : arg_len = 8; break;
- case 'f' : arg_len = 4; break;
- case 'g' : arg_len = 8; break;
- case 'h' : arg_len = 16; break;
- case 'l' : arg_len = 4; break;
- case 'o' : arg_len = 16; break;
- case 'w' : arg_len = 2; break;
- case 'q' : arg_len = 8; break;
- default : abort();
- }
-
- /* branches have no mode byte */
- if (d[0] == 'b')
- {
- unsigned char *p = p0;
-
- if (arg_len == 1)
- (*info->print_address_func) (addr + 1 + NEXTBYTE (p), info);
- else
- (*info->print_address_func) (addr + 2 + NEXTWORD (p), info);
-
- return p - p0;
- }
-
- return print_insn_mode (d, arg_len, p0, addr, info);
-}
-
-static int
-print_insn_mode (d, size, p0, addr, info)
- const char *d;
- int size;
- unsigned char *p0;
- bfd_vma addr; /* PC for this arg to be relative to */
- disassemble_info *info;
-{
- unsigned char *p = p0;
- unsigned char mode, reg;
-
- /* fetch and interpret mode byte */
- mode = (unsigned char) NEXTBYTE (p);
- reg = mode & 0xF;
- switch (mode & 0xF0)
- {
- case 0x00:
- case 0x10:
- case 0x20:
- case 0x30: /* literal mode $number */
- if (d[1] == 'd' || d[1] == 'f' || d[1] == 'g' || d[1] == 'h')
- (*info->fprintf_func) (info->stream, "$0x%x [%c-float]", mode, d[1]);
- else
- (*info->fprintf_func) (info->stream, "$0x%x", mode);
- break;
- case 0x40: /* index: base-addr[Rn] */
- p += print_insn_mode (d, size, p0 + 1, addr + 1, info);
- (*info->fprintf_func) (info->stream, "[%s]", reg_names[reg]);
- break;
- case 0x50: /* register: Rn */
- (*info->fprintf_func) (info->stream, "%s", reg_names[reg]);
- break;
- case 0x60: /* register deferred: (Rn) */
- (*info->fprintf_func) (info->stream, "(%s)", reg_names[reg]);
- break;
- case 0x70: /* autodecrement: -(Rn) */
- (*info->fprintf_func) (info->stream, "-(%s)", reg_names[reg]);
- break;
- case 0x80: /* autoincrement: (Rn)+ */
- if (reg == 0xF)
- { /* immediate? */
- int i;
-
- FETCH_DATA (info, p + size);
- (*info->fprintf_func) (info->stream, "$0x");
- if (d[1] == 'd' || d[1] == 'f' || d[1] == 'g' || d[1] == 'h')
- {
- int float_word;
-
- float_word = p[0] | (p[1] << 8);
- if ((d[1] == 'd' || d[1] == 'f')
- && (float_word & 0xff80) == 0x8000)
- {
- (*info->fprintf_func) (info->stream, "[invalid %c-float]",
- d[1]);
- }
- else
- {
- for (i = 0; i < size; i++)
- (*info->fprintf_func) (info->stream, "%02x",
- p[size - i - 1]);
- (*info->fprintf_func) (info->stream, " [%c-float]", d[1]);
- }
- }
- else
- {
- for (i = 0; i < size; i++)
- (*info->fprintf_func) (info->stream, "%02x", p[size - i - 1]);
- }
- p += size;
- }
- else
- (*info->fprintf_func) (info->stream, "(%s)+", reg_names[reg]);
- break;
- case 0x90: /* autoincrement deferred: @(Rn)+ */
- if (reg == 0xF)
- (*info->fprintf_func) (info->stream, "*0x%x", NEXTLONG (p));
- else
- (*info->fprintf_func) (info->stream, "@(%s)+", reg_names[reg]);
- break;
- case 0xB0: /* displacement byte deferred: *displ(Rn) */
- (*info->fprintf_func) (info->stream, "*");
- case 0xA0: /* displacement byte: displ(Rn) */
- if (reg == 0xF)
- (*info->print_address_func) (addr + 2 + NEXTBYTE (p), info);
- else
- (*info->fprintf_func) (info->stream, "0x%x(%s)", NEXTBYTE (p),
- reg_names[reg]);
- break;
- case 0xD0: /* displacement word deferred: *displ(Rn) */
- (*info->fprintf_func) (info->stream, "*");
- case 0xC0: /* displacement word: displ(Rn) */
- if (reg == 0xF)
- (*info->print_address_func) (addr + 3 + NEXTWORD (p), info);
- else
- (*info->fprintf_func) (info->stream, "0x%x(%s)", NEXTWORD (p),
- reg_names[reg]);
- break;
- case 0xF0: /* displacement long deferred: *displ(Rn) */
- (*info->fprintf_func) (info->stream, "*");
- case 0xE0: /* displacement long: displ(Rn) */
- if (reg == 0xF)
- (*info->print_address_func) (addr + 5 + NEXTLONG (p), info);
- else
- (*info->fprintf_func) (info->stream, "0x%x(%s)", NEXTLONG (p),
- reg_names[reg]);
- break;
- }
-
- return p - p0;
-}