mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-09 12:54:40 +00:00
287 lines
8.2 KiB
C
287 lines
8.2 KiB
C
/* Disassembler for the i860.
|
|
Copyright 2000, 2003, 2005, 2007, 2012 Free Software Foundation, Inc.
|
|
|
|
Contributed by Jason Eckhardt <jle@cygnus.com>.
|
|
|
|
This file is part of the GNU opcodes library.
|
|
|
|
This library is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 3, or (at your option)
|
|
any later version.
|
|
|
|
It is distributed in the hope that it will be useful, but WITHOUT
|
|
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
|
|
or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
|
|
License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
|
|
MA 02110-1301, USA. */
|
|
|
|
#include "sysdep.h"
|
|
#include "dis-asm.h"
|
|
#include "opcode/i860.h"
|
|
|
|
/* Later we should probably choose the prefix based on which OS flavor. */
|
|
#define I860_REG_PREFIX "%"
|
|
|
|
/* Integer register names (encoded as 0..31 in the instruction). */
|
|
static const char *const grnames[] =
|
|
{"r0", "r1", "sp", "fp", "r4", "r5", "r6", "r7",
|
|
"r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15",
|
|
"r16", "r17", "r18", "r19", "r20", "r21", "r22", "r23",
|
|
"r24", "r25", "r26", "r27", "r28", "r29", "r30", "r31"};
|
|
|
|
/* FP register names (encoded as 0..31 in the instruction). */
|
|
static const char *const frnames[] =
|
|
{"f0", "f1", "f2", "f3", "f4", "f5", "f6", "f7",
|
|
"f8", "f9", "f10", "f11", "f12", "f13", "f14", "f15",
|
|
"f16", "f17", "f18", "f19", "f20", "f21", "f22", "f23",
|
|
"f24", "f25", "f26", "f27", "f28", "f29", "f30", "f31"};
|
|
|
|
/* Control/status register names (encoded as 0..11 in the instruction).
|
|
Registers bear, ccr, p0, p1, p2 and p3 are XP only. */
|
|
static const char *const crnames[] =
|
|
{"fir", "psr", "dirbase", "db", "fsr", "epsr", "bear", "ccr",
|
|
"p0", "p1", "p2", "p3", "--", "--", "--", "--" };
|
|
|
|
|
|
|
|
/* True if opcode is xor, xorh, and, andh, or, orh, andnot, andnoth. */
|
|
#define BITWISE_OP(op) ((op) == 0x30 || (op) == 0x31 \
|
|
|| (op) == 0x34 || (op) == 0x35 \
|
|
|| (op) == 0x38 || (op) == 0x39 \
|
|
|| (op) == 0x3c || (op) == 0x3d \
|
|
|| (op) == 0x33 || (op) == 0x37 \
|
|
|| (op) == 0x3b || (op) == 0x3f)
|
|
|
|
|
|
/* Sign extend N-bit number. */
|
|
static int
|
|
sign_ext (unsigned int x, int n)
|
|
{
|
|
int t;
|
|
t = x >> (n - 1);
|
|
t = ((-t) << n) | x;
|
|
return t;
|
|
}
|
|
|
|
|
|
/* Print a PC-relative branch offset. VAL is the sign extended value
|
|
from the branch instruction. */
|
|
static void
|
|
print_br_address (disassemble_info *info, bfd_vma memaddr, long val)
|
|
{
|
|
|
|
long adj = (long)memaddr + 4 + (val << 2);
|
|
|
|
(*info->fprintf_func) (info->stream, "0x%08lx", adj);
|
|
|
|
/* Attempt to obtain a symbol for the target address. */
|
|
|
|
if (info->print_address_func && adj != 0)
|
|
{
|
|
(*info->fprintf_func) (info->stream, "\t// ");
|
|
(*info->print_address_func) (adj, info);
|
|
}
|
|
}
|
|
|
|
|
|
/* Print one instruction. */
|
|
int
|
|
print_insn_i860 (bfd_vma memaddr, disassemble_info *info)
|
|
{
|
|
bfd_byte buff[4];
|
|
unsigned int insn, i;
|
|
int status;
|
|
const struct i860_opcode *opcode = 0;
|
|
|
|
status = (*info->read_memory_func) (memaddr, buff, sizeof (buff), info);
|
|
if (status != 0)
|
|
{
|
|
(*info->memory_error_func) (status, memaddr, info);
|
|
return -1;
|
|
}
|
|
|
|
/* Note that i860 instructions are always accessed as little endian
|
|
data, regardless of the endian mode of the i860. */
|
|
insn = bfd_getl32 (buff);
|
|
|
|
status = 0;
|
|
i = 0;
|
|
while (i860_opcodes[i].name != NULL)
|
|
{
|
|
opcode = &i860_opcodes[i];
|
|
if ((insn & opcode->match) == opcode->match
|
|
&& (insn & opcode->lose) == 0)
|
|
{
|
|
status = 1;
|
|
break;
|
|
}
|
|
++i;
|
|
}
|
|
|
|
if (status == 0)
|
|
{
|
|
/* Instruction not in opcode table. */
|
|
(*info->fprintf_func) (info->stream, ".long %#08x", insn);
|
|
}
|
|
else
|
|
{
|
|
const char *s;
|
|
int val;
|
|
|
|
/* If this a flop (or a shrd) and its dual bit is set,
|
|
prefix with 'd.'. */
|
|
if (((insn & 0xfc000000) == 0x48000000
|
|
|| (insn & 0xfc000000) == 0xb0000000)
|
|
&& (insn & 0x200))
|
|
(*info->fprintf_func) (info->stream, "d.%s\t", opcode->name);
|
|
else
|
|
(*info->fprintf_func) (info->stream, "%s\t", opcode->name);
|
|
|
|
for (s = opcode->args; *s; s++)
|
|
{
|
|
switch (*s)
|
|
{
|
|
/* Integer register (src1). */
|
|
case '1':
|
|
(*info->fprintf_func) (info->stream, "%s%s", I860_REG_PREFIX,
|
|
grnames[(insn >> 11) & 0x1f]);
|
|
break;
|
|
|
|
/* Integer register (src2). */
|
|
case '2':
|
|
(*info->fprintf_func) (info->stream, "%s%s", I860_REG_PREFIX,
|
|
grnames[(insn >> 21) & 0x1f]);
|
|
break;
|
|
|
|
/* Integer destination register. */
|
|
case 'd':
|
|
(*info->fprintf_func) (info->stream, "%s%s", I860_REG_PREFIX,
|
|
grnames[(insn >> 16) & 0x1f]);
|
|
break;
|
|
|
|
/* Floating-point register (src1). */
|
|
case 'e':
|
|
(*info->fprintf_func) (info->stream, "%s%s", I860_REG_PREFIX,
|
|
frnames[(insn >> 11) & 0x1f]);
|
|
break;
|
|
|
|
/* Floating-point register (src2). */
|
|
case 'f':
|
|
(*info->fprintf_func) (info->stream, "%s%s", I860_REG_PREFIX,
|
|
frnames[(insn >> 21) & 0x1f]);
|
|
break;
|
|
|
|
/* Floating-point destination register. */
|
|
case 'g':
|
|
(*info->fprintf_func) (info->stream, "%s%s", I860_REG_PREFIX,
|
|
frnames[(insn >> 16) & 0x1f]);
|
|
break;
|
|
|
|
/* Control register. */
|
|
case 'c':
|
|
(*info->fprintf_func) (info->stream, "%s%s", I860_REG_PREFIX,
|
|
crnames[(insn >> 21) & 0xf]);
|
|
break;
|
|
|
|
/* 16-bit immediate (sign extend, except for bitwise ops). */
|
|
case 'i':
|
|
if (BITWISE_OP ((insn & 0xfc000000) >> 26))
|
|
(*info->fprintf_func) (info->stream, "0x%04x",
|
|
(unsigned int) (insn & 0xffff));
|
|
else
|
|
(*info->fprintf_func) (info->stream, "%d",
|
|
sign_ext ((insn & 0xffff), 16));
|
|
break;
|
|
|
|
/* 16-bit immediate, aligned (2^0, ld.b). */
|
|
case 'I':
|
|
(*info->fprintf_func) (info->stream, "%d",
|
|
sign_ext ((insn & 0xffff), 16));
|
|
break;
|
|
|
|
/* 16-bit immediate, aligned (2^1, ld.s). */
|
|
case 'J':
|
|
(*info->fprintf_func) (info->stream, "%d",
|
|
sign_ext ((insn & 0xfffe), 16));
|
|
break;
|
|
|
|
/* 16-bit immediate, aligned (2^2, ld.l, {p}fld.l, fst.l). */
|
|
case 'K':
|
|
(*info->fprintf_func) (info->stream, "%d",
|
|
sign_ext ((insn & 0xfffc), 16));
|
|
break;
|
|
|
|
/* 16-bit immediate, aligned (2^3, {p}fld.d, fst.d). */
|
|
case 'L':
|
|
(*info->fprintf_func) (info->stream, "%d",
|
|
sign_ext ((insn & 0xfff8), 16));
|
|
break;
|
|
|
|
/* 16-bit immediate, aligned (2^4, {p}fld.q, fst.q). */
|
|
case 'M':
|
|
(*info->fprintf_func) (info->stream, "%d",
|
|
sign_ext ((insn & 0xfff0), 16));
|
|
break;
|
|
|
|
/* 5-bit immediate (zero extend). */
|
|
case '5':
|
|
(*info->fprintf_func) (info->stream, "%d",
|
|
((insn >> 11) & 0x1f));
|
|
break;
|
|
|
|
/* Split 16 bit immediate (20..16:10..0). */
|
|
case 's':
|
|
val = ((insn >> 5) & 0xf800) | (insn & 0x07ff);
|
|
(*info->fprintf_func) (info->stream, "%d",
|
|
sign_ext (val, 16));
|
|
break;
|
|
|
|
/* Split 16 bit immediate, aligned. (2^0, st.b). */
|
|
case 'S':
|
|
val = ((insn >> 5) & 0xf800) | (insn & 0x07ff);
|
|
(*info->fprintf_func) (info->stream, "%d",
|
|
sign_ext (val, 16));
|
|
break;
|
|
|
|
/* Split 16 bit immediate, aligned. (2^1, st.s). */
|
|
case 'T':
|
|
val = ((insn >> 5) & 0xf800) | (insn & 0x07fe);
|
|
(*info->fprintf_func) (info->stream, "%d",
|
|
sign_ext (val, 16));
|
|
break;
|
|
|
|
/* Split 16 bit immediate, aligned. (2^2, st.l). */
|
|
case 'U':
|
|
val = ((insn >> 5) & 0xf800) | (insn & 0x07fc);
|
|
(*info->fprintf_func) (info->stream, "%d",
|
|
sign_ext (val, 16));
|
|
break;
|
|
|
|
/* 26-bit PC relative immediate (lbroff). */
|
|
case 'l':
|
|
val = sign_ext ((insn & 0x03ffffff), 26);
|
|
print_br_address (info, memaddr, val);
|
|
break;
|
|
|
|
/* 16-bit PC relative immediate (sbroff). */
|
|
case 'r':
|
|
val = sign_ext ((((insn >> 5) & 0xf800) | (insn & 0x07ff)), 16);
|
|
print_br_address (info, memaddr, val);
|
|
break;
|
|
|
|
default:
|
|
(*info->fprintf_func) (info->stream, "%c", *s);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
return sizeof (insn);
|
|
}
|
|
|