/* Disassemble SH instructions.
|
/* Disassemble SH instructions.
|
Copyright (C) 1993, 94, 95, 96, 97, 1998, 2000 Free Software Foundation, Inc.
|
Copyright (C) 1993, 94, 95, 96, 97, 1998, 2000 Free Software Foundation, Inc.
|
|
|
This program is free software; you can redistribute it and/or modify
|
This program is free software; you can redistribute it and/or modify
|
it under the terms of the GNU General Public License as published by
|
it under the terms of the GNU General Public License as published by
|
the Free Software Foundation; either version 2 of the License, or
|
the Free Software Foundation; either version 2 of the License, or
|
(at your option) any later version.
|
(at your option) any later version.
|
|
|
This program is distributed in the hope that it will be useful,
|
This program is distributed in the hope that it will be useful,
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
GNU General Public License for more details.
|
GNU General Public License for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
along with this program; if not, write to the Free Software
|
along with this program; if not, write to the Free Software
|
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
|
|
#include <stdio.h>
|
#include <stdio.h>
|
#define STATIC_TABLE
|
#define STATIC_TABLE
|
#define DEFINE_TABLE
|
#define DEFINE_TABLE
|
|
|
#include "sh-opc.h"
|
#include "sh-opc.h"
|
#include "dis-asm.h"
|
#include "dis-asm.h"
|
|
|
#define LITTLE_BIT 2
|
#define LITTLE_BIT 2
|
|
|
static void
|
static void
|
print_movxy (op, rn, rm, fprintf_fn, stream)
|
print_movxy (op, rn, rm, fprintf_fn, stream)
|
sh_opcode_info *op;
|
sh_opcode_info *op;
|
int rn, rm;
|
int rn, rm;
|
fprintf_ftype fprintf_fn;
|
fprintf_ftype fprintf_fn;
|
void *stream;
|
void *stream;
|
{
|
{
|
int n;
|
int n;
|
|
|
fprintf_fn (stream,"%s\t", op->name);
|
fprintf_fn (stream,"%s\t", op->name);
|
for (n = 0; n < 2; n++)
|
for (n = 0; n < 2; n++)
|
{
|
{
|
switch (op->arg[n])
|
switch (op->arg[n])
|
{
|
{
|
case A_IND_N:
|
case A_IND_N:
|
fprintf_fn (stream, "@r%d", rn);
|
fprintf_fn (stream, "@r%d", rn);
|
break;
|
break;
|
case A_INC_N:
|
case A_INC_N:
|
fprintf_fn (stream, "@r%d+", rn);
|
fprintf_fn (stream, "@r%d+", rn);
|
break;
|
break;
|
case A_PMOD_N:
|
case A_PMOD_N:
|
fprintf_fn (stream, "@r%d+r8", rn);
|
fprintf_fn (stream, "@r%d+r8", rn);
|
break;
|
break;
|
case A_PMODY_N:
|
case A_PMODY_N:
|
fprintf_fn (stream, "@r%d+r9", rn);
|
fprintf_fn (stream, "@r%d+r9", rn);
|
break;
|
break;
|
case DSP_REG_M:
|
case DSP_REG_M:
|
fprintf_fn (stream, "a%c", '0' + rm);
|
fprintf_fn (stream, "a%c", '0' + rm);
|
break;
|
break;
|
case DSP_REG_X:
|
case DSP_REG_X:
|
fprintf_fn (stream, "x%c", '0' + rm);
|
fprintf_fn (stream, "x%c", '0' + rm);
|
break;
|
break;
|
case DSP_REG_Y:
|
case DSP_REG_Y:
|
fprintf_fn (stream, "y%c", '0' + rm);
|
fprintf_fn (stream, "y%c", '0' + rm);
|
break;
|
break;
|
default:
|
default:
|
abort ();
|
abort ();
|
}
|
}
|
if (n == 0)
|
if (n == 0)
|
fprintf_fn (stream, ",");
|
fprintf_fn (stream, ",");
|
}
|
}
|
}
|
}
|
|
|
/* Print a double data transfer insn. INSN is just the lower three
|
/* Print a double data transfer insn. INSN is just the lower three
|
nibbles of the insn, i.e. field a and the bit that indicates if
|
nibbles of the insn, i.e. field a and the bit that indicates if
|
a parallel processing insn follows.
|
a parallel processing insn follows.
|
Return nonzero if a field b of a parallel processing insns follows. */
|
Return nonzero if a field b of a parallel processing insns follows. */
|
static void
|
static void
|
print_insn_ddt (insn, info)
|
print_insn_ddt (insn, info)
|
int insn;
|
int insn;
|
struct disassemble_info *info;
|
struct disassemble_info *info;
|
{
|
{
|
fprintf_ftype fprintf_fn = info->fprintf_func;
|
fprintf_ftype fprintf_fn = info->fprintf_func;
|
void *stream = info->stream;
|
void *stream = info->stream;
|
|
|
/* If this is just a nop, make sure to emit something. */
|
/* If this is just a nop, make sure to emit something. */
|
if (insn == 0x000)
|
if (insn == 0x000)
|
fprintf_fn (stream, "nopx\tnopy");
|
fprintf_fn (stream, "nopx\tnopy");
|
|
|
/* If a parallel processing insn was printed before,
|
/* If a parallel processing insn was printed before,
|
and we got a non-nop, emit a tab. */
|
and we got a non-nop, emit a tab. */
|
if ((insn & 0x800) && (insn & 0x3ff))
|
if ((insn & 0x800) && (insn & 0x3ff))
|
fprintf_fn (stream, "\t");
|
fprintf_fn (stream, "\t");
|
|
|
/* Check if either the x or y part is invalid. */
|
/* Check if either the x or y part is invalid. */
|
if (((insn & 0xc) == 0 && (insn & 0x2a0))
|
if (((insn & 0xc) == 0 && (insn & 0x2a0))
|
|| ((insn & 3) == 0 && (insn & 0x150)))
|
|| ((insn & 3) == 0 && (insn & 0x150)))
|
fprintf_fn (stream, ".word 0x%x", insn);
|
fprintf_fn (stream, ".word 0x%x", insn);
|
else
|
else
|
{
|
{
|
static sh_opcode_info *first_movx, *first_movy;
|
static sh_opcode_info *first_movx, *first_movy;
|
sh_opcode_info *opx, *opy;
|
sh_opcode_info *opx, *opy;
|
int insn_x, insn_y;
|
int insn_x, insn_y;
|
|
|
if (! first_movx)
|
if (! first_movx)
|
{
|
{
|
for (first_movx = sh_table; first_movx->nibbles[1] != MOVX; )
|
for (first_movx = sh_table; first_movx->nibbles[1] != MOVX; )
|
first_movx++;
|
first_movx++;
|
for (first_movy = first_movx; first_movy->nibbles[1] != MOVY; )
|
for (first_movy = first_movx; first_movy->nibbles[1] != MOVY; )
|
first_movy++;
|
first_movy++;
|
}
|
}
|
insn_x = (insn >> 2) & 0xb;
|
insn_x = (insn >> 2) & 0xb;
|
if (insn_x)
|
if (insn_x)
|
{
|
{
|
for (opx = first_movx; opx->nibbles[2] != insn_x; ) opx++;
|
for (opx = first_movx; opx->nibbles[2] != insn_x; ) opx++;
|
print_movxy (opx, ((insn >> 9) & 1) + 4, (insn >> 7) & 1,
|
print_movxy (opx, ((insn >> 9) & 1) + 4, (insn >> 7) & 1,
|
fprintf_fn, stream);
|
fprintf_fn, stream);
|
}
|
}
|
insn_y = (insn & 3) | ((insn >> 1) & 8);
|
insn_y = (insn & 3) | ((insn >> 1) & 8);
|
if (insn_y)
|
if (insn_y)
|
{
|
{
|
if (insn_x)
|
if (insn_x)
|
fprintf_fn (stream, "\t");
|
fprintf_fn (stream, "\t");
|
for (opy = first_movy; opy->nibbles[2] != insn_y; ) opy++;
|
for (opy = first_movy; opy->nibbles[2] != insn_y; ) opy++;
|
print_movxy (opy, ((insn >> 8) & 1) + 6, (insn >> 6) & 1,
|
print_movxy (opy, ((insn >> 8) & 1) + 6, (insn >> 6) & 1,
|
fprintf_fn, stream);
|
fprintf_fn, stream);
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
static void
|
static void
|
print_dsp_reg (rm, fprintf_fn, stream)
|
print_dsp_reg (rm, fprintf_fn, stream)
|
int rm;
|
int rm;
|
fprintf_ftype fprintf_fn;
|
fprintf_ftype fprintf_fn;
|
void *stream;
|
void *stream;
|
{
|
{
|
switch (rm)
|
switch (rm)
|
{
|
{
|
case A_A1_NUM:
|
case A_A1_NUM:
|
fprintf_fn (stream, "a1");
|
fprintf_fn (stream, "a1");
|
break;
|
break;
|
case A_A0_NUM:
|
case A_A0_NUM:
|
fprintf_fn (stream, "a0");
|
fprintf_fn (stream, "a0");
|
break;
|
break;
|
case A_X0_NUM:
|
case A_X0_NUM:
|
fprintf_fn (stream, "x0");
|
fprintf_fn (stream, "x0");
|
break;
|
break;
|
case A_X1_NUM:
|
case A_X1_NUM:
|
fprintf_fn (stream, "x1");
|
fprintf_fn (stream, "x1");
|
break;
|
break;
|
case A_Y0_NUM:
|
case A_Y0_NUM:
|
fprintf_fn (stream, "y0");
|
fprintf_fn (stream, "y0");
|
break;
|
break;
|
case A_Y1_NUM:
|
case A_Y1_NUM:
|
fprintf_fn (stream, "y1");
|
fprintf_fn (stream, "y1");
|
break;
|
break;
|
case A_M0_NUM:
|
case A_M0_NUM:
|
fprintf_fn (stream, "m0");
|
fprintf_fn (stream, "m0");
|
break;
|
break;
|
case A_A1G_NUM:
|
case A_A1G_NUM:
|
fprintf_fn (stream, "a1g");
|
fprintf_fn (stream, "a1g");
|
break;
|
break;
|
case A_M1_NUM:
|
case A_M1_NUM:
|
fprintf_fn (stream, "m1");
|
fprintf_fn (stream, "m1");
|
break;
|
break;
|
case A_A0G_NUM:
|
case A_A0G_NUM:
|
fprintf_fn (stream, "a0g");
|
fprintf_fn (stream, "a0g");
|
break;
|
break;
|
default:
|
default:
|
fprintf_fn (stream, "0x%x", rm);
|
fprintf_fn (stream, "0x%x", rm);
|
break;
|
break;
|
}
|
}
|
}
|
}
|
|
|
static void
|
static void
|
print_insn_ppi (field_b, info)
|
print_insn_ppi (field_b, info)
|
int field_b;
|
int field_b;
|
struct disassemble_info *info;
|
struct disassemble_info *info;
|
{
|
{
|
static char *sx_tab[] = {"x0","x1","a0","a1"};
|
static char *sx_tab[] = {"x0","x1","a0","a1"};
|
static char *sy_tab[] = {"y0","y1","m0","m1"};
|
static char *sy_tab[] = {"y0","y1","m0","m1"};
|
fprintf_ftype fprintf_fn = info->fprintf_func;
|
fprintf_ftype fprintf_fn = info->fprintf_func;
|
void *stream = info->stream;
|
void *stream = info->stream;
|
int nib1, nib2, nib3;
|
int nib1, nib2, nib3;
|
char *dc;
|
char *dc;
|
sh_opcode_info *op;
|
sh_opcode_info *op;
|
|
|
if ((field_b & 0xe800) == 0)
|
if ((field_b & 0xe800) == 0)
|
{
|
{
|
fprintf_fn (stream, "psh%c\t#%d,",
|
fprintf_fn (stream, "psh%c\t#%d,",
|
field_b & 0x1000 ? 'a' : 'l',
|
field_b & 0x1000 ? 'a' : 'l',
|
(field_b >> 4) & 127);
|
(field_b >> 4) & 127);
|
print_dsp_reg (field_b & 0xf, fprintf_fn, stream);
|
print_dsp_reg (field_b & 0xf, fprintf_fn, stream);
|
return;
|
return;
|
}
|
}
|
if ((field_b & 0xc000) == 0x4000 && (field_b & 0x3000) != 0x1000)
|
if ((field_b & 0xc000) == 0x4000 && (field_b & 0x3000) != 0x1000)
|
{
|
{
|
static char *du_tab[] = {"x0","y0","a0","a1"};
|
static char *du_tab[] = {"x0","y0","a0","a1"};
|
static char *se_tab[] = {"x0","x1","y0","a1"};
|
static char *se_tab[] = {"x0","x1","y0","a1"};
|
static char *sf_tab[] = {"y0","y1","x0","a1"};
|
static char *sf_tab[] = {"y0","y1","x0","a1"};
|
static char *sg_tab[] = {"m0","m1","a0","a1"};
|
static char *sg_tab[] = {"m0","m1","a0","a1"};
|
|
|
if (field_b & 0x2000)
|
if (field_b & 0x2000)
|
{
|
{
|
fprintf_fn (stream, "p%s %s,%s,%s\t",
|
fprintf_fn (stream, "p%s %s,%s,%s\t",
|
(field_b & 0x1000) ? "add" : "sub",
|
(field_b & 0x1000) ? "add" : "sub",
|
sx_tab[(field_b >> 6) & 3],
|
sx_tab[(field_b >> 6) & 3],
|
sy_tab[(field_b >> 4) & 3],
|
sy_tab[(field_b >> 4) & 3],
|
du_tab[(field_b >> 0) & 3]);
|
du_tab[(field_b >> 0) & 3]);
|
}
|
}
|
fprintf_fn (stream, "pmuls%c%s,%s,%s",
|
fprintf_fn (stream, "pmuls%c%s,%s,%s",
|
field_b & 0x2000 ? ' ' : '\t',
|
field_b & 0x2000 ? ' ' : '\t',
|
se_tab[(field_b >> 10) & 3],
|
se_tab[(field_b >> 10) & 3],
|
sf_tab[(field_b >> 8) & 3],
|
sf_tab[(field_b >> 8) & 3],
|
sg_tab[(field_b >> 2) & 3]);
|
sg_tab[(field_b >> 2) & 3]);
|
return;
|
return;
|
}
|
}
|
|
|
nib1 = PPIC;
|
nib1 = PPIC;
|
nib2 = field_b >> 12 & 0xf;
|
nib2 = field_b >> 12 & 0xf;
|
nib3 = field_b >> 8 & 0xf;
|
nib3 = field_b >> 8 & 0xf;
|
switch (nib3 & 0x3)
|
switch (nib3 & 0x3)
|
{
|
{
|
case 0:
|
case 0:
|
dc = "";
|
dc = "";
|
nib1 = PPI3;
|
nib1 = PPI3;
|
break;
|
break;
|
case 1:
|
case 1:
|
dc = "";
|
dc = "";
|
break;
|
break;
|
case 2:
|
case 2:
|
dc = "dct ";
|
dc = "dct ";
|
nib3 -= 1;
|
nib3 -= 1;
|
break;
|
break;
|
case 3:
|
case 3:
|
dc = "dcf ";
|
dc = "dcf ";
|
nib3 -= 2;
|
nib3 -= 2;
|
break;
|
break;
|
}
|
}
|
for (op = sh_table; op->name; op++)
|
for (op = sh_table; op->name; op++)
|
{
|
{
|
if (op->nibbles[1] == nib1
|
if (op->nibbles[1] == nib1
|
&& op->nibbles[2] == nib2
|
&& op->nibbles[2] == nib2
|
&& op->nibbles[3] == nib3)
|
&& op->nibbles[3] == nib3)
|
{
|
{
|
int n;
|
int n;
|
|
|
fprintf_fn (stream, "%s%s\t", dc, op->name);
|
fprintf_fn (stream, "%s%s\t", dc, op->name);
|
for (n = 0; n < 3 && op->arg[n] != A_END; n++)
|
for (n = 0; n < 3 && op->arg[n] != A_END; n++)
|
{
|
{
|
if (n && op->arg[1] != A_END)
|
if (n && op->arg[1] != A_END)
|
fprintf_fn (stream, ",");
|
fprintf_fn (stream, ",");
|
switch (op->arg[n])
|
switch (op->arg[n])
|
{
|
{
|
case DSP_REG_N:
|
case DSP_REG_N:
|
print_dsp_reg (field_b & 0xf, fprintf_fn, stream);
|
print_dsp_reg (field_b & 0xf, fprintf_fn, stream);
|
break;
|
break;
|
case DSP_REG_X:
|
case DSP_REG_X:
|
fprintf_fn (stream, sx_tab[(field_b >> 6) & 3]);
|
fprintf_fn (stream, sx_tab[(field_b >> 6) & 3]);
|
break;
|
break;
|
case DSP_REG_Y:
|
case DSP_REG_Y:
|
fprintf_fn (stream, sy_tab[(field_b >> 4) & 3]);
|
fprintf_fn (stream, sy_tab[(field_b >> 4) & 3]);
|
break;
|
break;
|
case A_MACH:
|
case A_MACH:
|
fprintf_fn (stream, "mach");
|
fprintf_fn (stream, "mach");
|
break;
|
break;
|
case A_MACL:
|
case A_MACL:
|
fprintf_fn (stream ,"macl");
|
fprintf_fn (stream ,"macl");
|
break;
|
break;
|
default:
|
default:
|
abort ();
|
abort ();
|
}
|
}
|
}
|
}
|
return;
|
return;
|
}
|
}
|
}
|
}
|
/* Not found. */
|
/* Not found. */
|
fprintf_fn (stream, ".word 0x%x", field_b);
|
fprintf_fn (stream, ".word 0x%x", field_b);
|
}
|
}
|
|
|
static int
|
static int
|
print_insn_shx (memaddr, info)
|
print_insn_shx (memaddr, info)
|
bfd_vma memaddr;
|
bfd_vma memaddr;
|
struct disassemble_info *info;
|
struct disassemble_info *info;
|
{
|
{
|
fprintf_ftype fprintf_fn = info->fprintf_func;
|
fprintf_ftype fprintf_fn = info->fprintf_func;
|
void *stream = info->stream;
|
void *stream = info->stream;
|
unsigned char insn[2];
|
unsigned char insn[2];
|
unsigned char nibs[4];
|
unsigned char nibs[4];
|
int status;
|
int status;
|
bfd_vma relmask = ~ (bfd_vma) 0;
|
bfd_vma relmask = ~ (bfd_vma) 0;
|
sh_opcode_info *op;
|
sh_opcode_info *op;
|
int target_arch;
|
int target_arch;
|
|
|
switch (info->mach)
|
switch (info->mach)
|
{
|
{
|
case bfd_mach_sh:
|
case bfd_mach_sh:
|
target_arch = arch_sh1;
|
target_arch = arch_sh1;
|
break;
|
break;
|
case bfd_mach_sh2:
|
case bfd_mach_sh2:
|
target_arch = arch_sh2;
|
target_arch = arch_sh2;
|
break;
|
break;
|
case bfd_mach_sh_dsp:
|
case bfd_mach_sh_dsp:
|
target_arch = arch_sh_dsp;
|
target_arch = arch_sh_dsp;
|
break;
|
break;
|
case bfd_mach_sh3:
|
case bfd_mach_sh3:
|
target_arch = arch_sh3;
|
target_arch = arch_sh3;
|
break;
|
break;
|
case bfd_mach_sh3_dsp:
|
case bfd_mach_sh3_dsp:
|
target_arch = arch_sh3_dsp;
|
target_arch = arch_sh3_dsp;
|
break;
|
break;
|
case bfd_mach_sh3e:
|
case bfd_mach_sh3e:
|
target_arch = arch_sh3e;
|
target_arch = arch_sh3e;
|
break;
|
break;
|
case bfd_mach_sh4:
|
case bfd_mach_sh4:
|
target_arch = arch_sh4;
|
target_arch = arch_sh4;
|
break;
|
break;
|
default:
|
default:
|
abort ();
|
abort ();
|
}
|
}
|
|
|
status = info->read_memory_func (memaddr, insn, 2, info);
|
status = info->read_memory_func (memaddr, insn, 2, info);
|
|
|
if (status != 0)
|
if (status != 0)
|
{
|
{
|
info->memory_error_func (status, memaddr, info);
|
info->memory_error_func (status, memaddr, info);
|
return -1;
|
return -1;
|
}
|
}
|
|
|
if (info->flags & LITTLE_BIT)
|
if (info->flags & LITTLE_BIT)
|
{
|
{
|
nibs[0] = (insn[1] >> 4) & 0xf;
|
nibs[0] = (insn[1] >> 4) & 0xf;
|
nibs[1] = insn[1] & 0xf;
|
nibs[1] = insn[1] & 0xf;
|
|
|
nibs[2] = (insn[0] >> 4) & 0xf;
|
nibs[2] = (insn[0] >> 4) & 0xf;
|
nibs[3] = insn[0] & 0xf;
|
nibs[3] = insn[0] & 0xf;
|
}
|
}
|
else
|
else
|
{
|
{
|
nibs[0] = (insn[0] >> 4) & 0xf;
|
nibs[0] = (insn[0] >> 4) & 0xf;
|
nibs[1] = insn[0] & 0xf;
|
nibs[1] = insn[0] & 0xf;
|
|
|
nibs[2] = (insn[1] >> 4) & 0xf;
|
nibs[2] = (insn[1] >> 4) & 0xf;
|
nibs[3] = insn[1] & 0xf;
|
nibs[3] = insn[1] & 0xf;
|
}
|
}
|
|
|
if (nibs[0] == 0xf && (nibs[1] & 4) == 0 && target_arch & arch_sh_dsp_up)
|
if (nibs[0] == 0xf && (nibs[1] & 4) == 0 && target_arch & arch_sh_dsp_up)
|
{
|
{
|
if (nibs[1] & 8)
|
if (nibs[1] & 8)
|
{
|
{
|
int field_b;
|
int field_b;
|
|
|
status = info->read_memory_func (memaddr + 2, insn, 2, info);
|
status = info->read_memory_func (memaddr + 2, insn, 2, info);
|
|
|
if (status != 0)
|
if (status != 0)
|
{
|
{
|
info->memory_error_func (status, memaddr + 2, info);
|
info->memory_error_func (status, memaddr + 2, info);
|
return -1;
|
return -1;
|
}
|
}
|
|
|
if (info->flags & LITTLE_BIT)
|
if (info->flags & LITTLE_BIT)
|
field_b = insn[1] << 8 | insn[0];
|
field_b = insn[1] << 8 | insn[0];
|
else
|
else
|
field_b = insn[0] << 8 | insn[1];
|
field_b = insn[0] << 8 | insn[1];
|
|
|
print_insn_ppi (field_b, info);
|
print_insn_ppi (field_b, info);
|
print_insn_ddt ((nibs[1] << 8) | (nibs[2] << 4) | nibs[3], info);
|
print_insn_ddt ((nibs[1] << 8) | (nibs[2] << 4) | nibs[3], info);
|
return 4;
|
return 4;
|
}
|
}
|
print_insn_ddt ((nibs[1] << 8) | (nibs[2] << 4) | nibs[3], info);
|
print_insn_ddt ((nibs[1] << 8) | (nibs[2] << 4) | nibs[3], info);
|
return 2;
|
return 2;
|
}
|
}
|
for (op = sh_table; op->name; op++)
|
for (op = sh_table; op->name; op++)
|
{
|
{
|
int n;
|
int n;
|
int imm = 0;
|
int imm = 0;
|
int rn = 0;
|
int rn = 0;
|
int rm = 0;
|
int rm = 0;
|
int rb = 0;
|
int rb = 0;
|
int disp_pc;
|
int disp_pc;
|
bfd_vma disp_pc_addr = 0;
|
bfd_vma disp_pc_addr = 0;
|
|
|
if ((op->arch & target_arch) == 0)
|
if ((op->arch & target_arch) == 0)
|
goto fail;
|
goto fail;
|
for (n = 0; n < 4; n++)
|
for (n = 0; n < 4; n++)
|
{
|
{
|
int i = op->nibbles[n];
|
int i = op->nibbles[n];
|
|
|
if (i < 16)
|
if (i < 16)
|
{
|
{
|
if (nibs[n] == i)
|
if (nibs[n] == i)
|
continue;
|
continue;
|
goto fail;
|
goto fail;
|
}
|
}
|
switch (i)
|
switch (i)
|
{
|
{
|
case BRANCH_8:
|
case BRANCH_8:
|
imm = (nibs[2] << 4) | (nibs[3]);
|
imm = (nibs[2] << 4) | (nibs[3]);
|
if (imm & 0x80)
|
if (imm & 0x80)
|
imm |= ~0xff;
|
imm |= ~0xff;
|
imm = ((char)imm) * 2 + 4 ;
|
imm = ((char)imm) * 2 + 4 ;
|
goto ok;
|
goto ok;
|
case BRANCH_12:
|
case BRANCH_12:
|
imm = ((nibs[1]) << 8) | (nibs[2] << 4) | (nibs[3]);
|
imm = ((nibs[1]) << 8) | (nibs[2] << 4) | (nibs[3]);
|
if (imm & 0x800)
|
if (imm & 0x800)
|
imm |= ~0xfff;
|
imm |= ~0xfff;
|
imm = imm * 2 + 4;
|
imm = imm * 2 + 4;
|
goto ok;
|
goto ok;
|
case IMM0_4:
|
case IMM0_4:
|
case IMM1_4:
|
case IMM1_4:
|
imm = nibs[3];
|
imm = nibs[3];
|
goto ok;
|
goto ok;
|
case IMM0_4BY2:
|
case IMM0_4BY2:
|
case IMM1_4BY2:
|
case IMM1_4BY2:
|
imm = nibs[3] <<1;
|
imm = nibs[3] <<1;
|
goto ok;
|
goto ok;
|
case IMM0_4BY4:
|
case IMM0_4BY4:
|
case IMM1_4BY4:
|
case IMM1_4BY4:
|
imm = nibs[3] <<2;
|
imm = nibs[3] <<2;
|
goto ok;
|
goto ok;
|
case IMM0_8:
|
case IMM0_8:
|
case IMM1_8:
|
case IMM1_8:
|
imm = (nibs[2] << 4) | nibs[3];
|
imm = (nibs[2] << 4) | nibs[3];
|
goto ok;
|
goto ok;
|
case PCRELIMM_8BY2:
|
case PCRELIMM_8BY2:
|
imm = ((nibs[2] << 4) | nibs[3]) <<1;
|
imm = ((nibs[2] << 4) | nibs[3]) <<1;
|
relmask = ~ (bfd_vma) 1;
|
relmask = ~ (bfd_vma) 1;
|
goto ok;
|
goto ok;
|
case PCRELIMM_8BY4:
|
case PCRELIMM_8BY4:
|
imm = ((nibs[2] << 4) | nibs[3]) <<2;
|
imm = ((nibs[2] << 4) | nibs[3]) <<2;
|
relmask = ~ (bfd_vma) 3;
|
relmask = ~ (bfd_vma) 3;
|
goto ok;
|
goto ok;
|
case IMM0_8BY2:
|
case IMM0_8BY2:
|
case IMM1_8BY2:
|
case IMM1_8BY2:
|
imm = ((nibs[2] << 4) | nibs[3]) <<1;
|
imm = ((nibs[2] << 4) | nibs[3]) <<1;
|
goto ok;
|
goto ok;
|
case IMM0_8BY4:
|
case IMM0_8BY4:
|
case IMM1_8BY4:
|
case IMM1_8BY4:
|
imm = ((nibs[2] << 4) | nibs[3]) <<2;
|
imm = ((nibs[2] << 4) | nibs[3]) <<2;
|
goto ok;
|
goto ok;
|
case REG_N:
|
case REG_N:
|
rn = nibs[n];
|
rn = nibs[n];
|
break;
|
break;
|
case REG_M:
|
case REG_M:
|
rm = nibs[n];
|
rm = nibs[n];
|
break;
|
break;
|
case REG_NM:
|
case REG_NM:
|
rn = (nibs[n] & 0xc) >> 2;
|
rn = (nibs[n] & 0xc) >> 2;
|
rm = (nibs[n] & 0x3);
|
rm = (nibs[n] & 0x3);
|
break;
|
break;
|
case REG_B:
|
case REG_B:
|
rb = nibs[n] & 0x07;
|
rb = nibs[n] & 0x07;
|
break;
|
break;
|
case SDT_REG_N:
|
case SDT_REG_N:
|
/* sh-dsp: single data transfer. */
|
/* sh-dsp: single data transfer. */
|
rn = nibs[n];
|
rn = nibs[n];
|
if ((rn & 0xc) != 4)
|
if ((rn & 0xc) != 4)
|
goto fail;
|
goto fail;
|
rn = rn & 0x3;
|
rn = rn & 0x3;
|
rn |= (rn & 2) << 1;
|
rn |= (rn & 2) << 1;
|
break;
|
break;
|
case PPI:
|
case PPI:
|
case REPEAT:
|
case REPEAT:
|
goto fail;
|
goto fail;
|
default:
|
default:
|
abort();
|
abort();
|
}
|
}
|
}
|
}
|
|
|
ok:
|
ok:
|
fprintf_fn (stream,"%s\t", op->name);
|
fprintf_fn (stream,"%s\t", op->name);
|
disp_pc = 0;
|
disp_pc = 0;
|
for (n = 0; n < 3 && op->arg[n] != A_END; n++)
|
for (n = 0; n < 3 && op->arg[n] != A_END; n++)
|
{
|
{
|
if (n && op->arg[1] != A_END)
|
if (n && op->arg[1] != A_END)
|
fprintf_fn (stream, ",");
|
fprintf_fn (stream, ",");
|
switch (op->arg[n])
|
switch (op->arg[n])
|
{
|
{
|
case A_IMM:
|
case A_IMM:
|
fprintf_fn (stream, "#%d", (char)(imm));
|
fprintf_fn (stream, "#%d", (char)(imm));
|
break;
|
break;
|
case A_R0:
|
case A_R0:
|
fprintf_fn (stream, "r0");
|
fprintf_fn (stream, "r0");
|
break;
|
break;
|
case A_REG_N:
|
case A_REG_N:
|
fprintf_fn (stream, "r%d", rn);
|
fprintf_fn (stream, "r%d", rn);
|
break;
|
break;
|
case A_INC_N:
|
case A_INC_N:
|
fprintf_fn (stream, "@r%d+", rn);
|
fprintf_fn (stream, "@r%d+", rn);
|
break;
|
break;
|
case A_DEC_N:
|
case A_DEC_N:
|
fprintf_fn (stream, "@-r%d", rn);
|
fprintf_fn (stream, "@-r%d", rn);
|
break;
|
break;
|
case A_IND_N:
|
case A_IND_N:
|
fprintf_fn (stream, "@r%d", rn);
|
fprintf_fn (stream, "@r%d", rn);
|
break;
|
break;
|
case A_DISP_REG_N:
|
case A_DISP_REG_N:
|
fprintf_fn (stream, "@(%d,r%d)", imm, rn);
|
fprintf_fn (stream, "@(%d,r%d)", imm, rn);
|
break;
|
break;
|
case A_PMOD_N:
|
case A_PMOD_N:
|
fprintf_fn (stream, "@r%d+r8", rn);
|
fprintf_fn (stream, "@r%d+r8", rn);
|
break;
|
break;
|
case A_REG_M:
|
case A_REG_M:
|
fprintf_fn (stream, "r%d", rm);
|
fprintf_fn (stream, "r%d", rm);
|
break;
|
break;
|
case A_INC_M:
|
case A_INC_M:
|
fprintf_fn (stream, "@r%d+", rm);
|
fprintf_fn (stream, "@r%d+", rm);
|
break;
|
break;
|
case A_DEC_M:
|
case A_DEC_M:
|
fprintf_fn (stream, "@-r%d", rm);
|
fprintf_fn (stream, "@-r%d", rm);
|
break;
|
break;
|
case A_IND_M:
|
case A_IND_M:
|
fprintf_fn (stream, "@r%d", rm);
|
fprintf_fn (stream, "@r%d", rm);
|
break;
|
break;
|
case A_DISP_REG_M:
|
case A_DISP_REG_M:
|
fprintf_fn (stream, "@(%d,r%d)", imm, rm);
|
fprintf_fn (stream, "@(%d,r%d)", imm, rm);
|
break;
|
break;
|
case A_REG_B:
|
case A_REG_B:
|
fprintf_fn (stream, "r%d_bank", rb);
|
fprintf_fn (stream, "r%d_bank", rb);
|
break;
|
break;
|
case A_DISP_PC:
|
case A_DISP_PC:
|
disp_pc = 1;
|
disp_pc = 1;
|
disp_pc_addr = imm + 4 + (memaddr & relmask);
|
disp_pc_addr = imm + 4 + (memaddr & relmask);
|
(*info->print_address_func) (disp_pc_addr, info);
|
(*info->print_address_func) (disp_pc_addr, info);
|
break;
|
break;
|
case A_IND_R0_REG_N:
|
case A_IND_R0_REG_N:
|
fprintf_fn (stream, "@(r0,r%d)", rn);
|
fprintf_fn (stream, "@(r0,r%d)", rn);
|
break;
|
break;
|
case A_IND_R0_REG_M:
|
case A_IND_R0_REG_M:
|
fprintf_fn (stream, "@(r0,r%d)", rm);
|
fprintf_fn (stream, "@(r0,r%d)", rm);
|
break;
|
break;
|
case A_DISP_GBR:
|
case A_DISP_GBR:
|
fprintf_fn (stream, "@(%d,gbr)",imm);
|
fprintf_fn (stream, "@(%d,gbr)",imm);
|
break;
|
break;
|
case A_R0_GBR:
|
case A_R0_GBR:
|
fprintf_fn (stream, "@(r0,gbr)");
|
fprintf_fn (stream, "@(r0,gbr)");
|
break;
|
break;
|
case A_BDISP12:
|
case A_BDISP12:
|
case A_BDISP8:
|
case A_BDISP8:
|
(*info->print_address_func) (imm + memaddr, info);
|
(*info->print_address_func) (imm + memaddr, info);
|
break;
|
break;
|
case A_SR:
|
case A_SR:
|
fprintf_fn (stream, "sr");
|
fprintf_fn (stream, "sr");
|
break;
|
break;
|
case A_GBR:
|
case A_GBR:
|
fprintf_fn (stream, "gbr");
|
fprintf_fn (stream, "gbr");
|
break;
|
break;
|
case A_VBR:
|
case A_VBR:
|
fprintf_fn (stream, "vbr");
|
fprintf_fn (stream, "vbr");
|
break;
|
break;
|
case A_DSR:
|
case A_DSR:
|
fprintf_fn (stream, "dsr");
|
fprintf_fn (stream, "dsr");
|
break;
|
break;
|
case A_MOD:
|
case A_MOD:
|
fprintf_fn (stream, "mod");
|
fprintf_fn (stream, "mod");
|
break;
|
break;
|
case A_RE:
|
case A_RE:
|
fprintf_fn (stream, "re");
|
fprintf_fn (stream, "re");
|
break;
|
break;
|
case A_RS:
|
case A_RS:
|
fprintf_fn (stream, "rs");
|
fprintf_fn (stream, "rs");
|
break;
|
break;
|
case A_A0:
|
case A_A0:
|
fprintf_fn (stream, "a0");
|
fprintf_fn (stream, "a0");
|
break;
|
break;
|
case A_X0:
|
case A_X0:
|
fprintf_fn (stream, "x0");
|
fprintf_fn (stream, "x0");
|
break;
|
break;
|
case A_X1:
|
case A_X1:
|
fprintf_fn (stream, "x1");
|
fprintf_fn (stream, "x1");
|
break;
|
break;
|
case A_Y0:
|
case A_Y0:
|
fprintf_fn (stream, "y0");
|
fprintf_fn (stream, "y0");
|
break;
|
break;
|
case A_Y1:
|
case A_Y1:
|
fprintf_fn (stream, "y1");
|
fprintf_fn (stream, "y1");
|
break;
|
break;
|
case DSP_REG_M:
|
case DSP_REG_M:
|
print_dsp_reg (rm, fprintf_fn, stream);
|
print_dsp_reg (rm, fprintf_fn, stream);
|
break;
|
break;
|
case A_SSR:
|
case A_SSR:
|
fprintf_fn (stream, "ssr");
|
fprintf_fn (stream, "ssr");
|
break;
|
break;
|
case A_SPC:
|
case A_SPC:
|
fprintf_fn (stream, "spc");
|
fprintf_fn (stream, "spc");
|
break;
|
break;
|
case A_MACH:
|
case A_MACH:
|
fprintf_fn (stream, "mach");
|
fprintf_fn (stream, "mach");
|
break;
|
break;
|
case A_MACL:
|
case A_MACL:
|
fprintf_fn (stream ,"macl");
|
fprintf_fn (stream ,"macl");
|
break;
|
break;
|
case A_PR:
|
case A_PR:
|
fprintf_fn (stream, "pr");
|
fprintf_fn (stream, "pr");
|
break;
|
break;
|
case A_SGR:
|
case A_SGR:
|
fprintf_fn (stream, "sgr");
|
fprintf_fn (stream, "sgr");
|
break;
|
break;
|
case A_DBR:
|
case A_DBR:
|
fprintf_fn (stream, "dbr");
|
fprintf_fn (stream, "dbr");
|
break;
|
break;
|
case F_REG_N:
|
case F_REG_N:
|
fprintf_fn (stream, "fr%d", rn);
|
fprintf_fn (stream, "fr%d", rn);
|
break;
|
break;
|
case F_REG_M:
|
case F_REG_M:
|
fprintf_fn (stream, "fr%d", rm);
|
fprintf_fn (stream, "fr%d", rm);
|
break;
|
break;
|
case DX_REG_N:
|
case DX_REG_N:
|
if (rn & 1)
|
if (rn & 1)
|
{
|
{
|
fprintf_fn (stream, "xd%d", rn & ~1);
|
fprintf_fn (stream, "xd%d", rn & ~1);
|
break;
|
break;
|
}
|
}
|
d_reg_n:
|
d_reg_n:
|
case D_REG_N:
|
case D_REG_N:
|
fprintf_fn (stream, "dr%d", rn);
|
fprintf_fn (stream, "dr%d", rn);
|
break;
|
break;
|
case DX_REG_M:
|
case DX_REG_M:
|
if (rm & 1)
|
if (rm & 1)
|
{
|
{
|
fprintf_fn (stream, "xd%d", rm & ~1);
|
fprintf_fn (stream, "xd%d", rm & ~1);
|
break;
|
break;
|
}
|
}
|
case D_REG_M:
|
case D_REG_M:
|
fprintf_fn (stream, "dr%d", rm);
|
fprintf_fn (stream, "dr%d", rm);
|
break;
|
break;
|
case FPSCR_M:
|
case FPSCR_M:
|
case FPSCR_N:
|
case FPSCR_N:
|
fprintf_fn (stream, "fpscr");
|
fprintf_fn (stream, "fpscr");
|
break;
|
break;
|
case FPUL_M:
|
case FPUL_M:
|
case FPUL_N:
|
case FPUL_N:
|
fprintf_fn (stream, "fpul");
|
fprintf_fn (stream, "fpul");
|
break;
|
break;
|
case F_FR0:
|
case F_FR0:
|
fprintf_fn (stream, "fr0");
|
fprintf_fn (stream, "fr0");
|
break;
|
break;
|
case V_REG_N:
|
case V_REG_N:
|
fprintf_fn (stream, "fv%d", rn*4);
|
fprintf_fn (stream, "fv%d", rn*4);
|
break;
|
break;
|
case V_REG_M:
|
case V_REG_M:
|
fprintf_fn (stream, "fv%d", rm*4);
|
fprintf_fn (stream, "fv%d", rm*4);
|
break;
|
break;
|
case XMTRX_M4:
|
case XMTRX_M4:
|
fprintf_fn (stream, "xmtrx");
|
fprintf_fn (stream, "xmtrx");
|
break;
|
break;
|
default:
|
default:
|
abort();
|
abort();
|
}
|
}
|
}
|
}
|
|
|
#if 0
|
#if 0
|
/* This code prints instructions in delay slots on the same line
|
/* This code prints instructions in delay slots on the same line
|
as the instruction which needs the delay slots. This can be
|
as the instruction which needs the delay slots. This can be
|
confusing, since other disassembler don't work this way, and
|
confusing, since other disassembler don't work this way, and
|
it means that the instructions are not all in a line. So I
|
it means that the instructions are not all in a line. So I
|
disabled it. Ian. */
|
disabled it. Ian. */
|
if (!(info->flags & 1)
|
if (!(info->flags & 1)
|
&& (op->name[0] == 'j'
|
&& (op->name[0] == 'j'
|
|| (op->name[0] == 'b'
|
|| (op->name[0] == 'b'
|
&& (op->name[1] == 'r'
|
&& (op->name[1] == 'r'
|
|| op->name[1] == 's'))
|
|| op->name[1] == 's'))
|
|| (op->name[0] == 'r' && op->name[1] == 't')
|
|| (op->name[0] == 'r' && op->name[1] == 't')
|
|| (op->name[0] == 'b' && op->name[2] == '.')))
|
|| (op->name[0] == 'b' && op->name[2] == '.')))
|
{
|
{
|
info->flags |= 1;
|
info->flags |= 1;
|
fprintf_fn (stream, "\t(slot ");
|
fprintf_fn (stream, "\t(slot ");
|
print_insn_shx (memaddr + 2, info);
|
print_insn_shx (memaddr + 2, info);
|
info->flags &= ~1;
|
info->flags &= ~1;
|
fprintf_fn (stream, ")");
|
fprintf_fn (stream, ")");
|
return 4;
|
return 4;
|
}
|
}
|
#endif
|
#endif
|
|
|
if (disp_pc && strcmp (op->name, "mova") != 0)
|
if (disp_pc && strcmp (op->name, "mova") != 0)
|
{
|
{
|
int size;
|
int size;
|
bfd_byte bytes[4];
|
bfd_byte bytes[4];
|
|
|
if (relmask == ~ (bfd_vma) 1)
|
if (relmask == ~ (bfd_vma) 1)
|
size = 2;
|
size = 2;
|
else
|
else
|
size = 4;
|
size = 4;
|
status = info->read_memory_func (disp_pc_addr, bytes, size, info);
|
status = info->read_memory_func (disp_pc_addr, bytes, size, info);
|
if (status == 0)
|
if (status == 0)
|
{
|
{
|
unsigned int val;
|
unsigned int val;
|
|
|
if (size == 2)
|
if (size == 2)
|
{
|
{
|
if ((info->flags & LITTLE_BIT) != 0)
|
if ((info->flags & LITTLE_BIT) != 0)
|
val = bfd_getl16 (bytes);
|
val = bfd_getl16 (bytes);
|
else
|
else
|
val = bfd_getb16 (bytes);
|
val = bfd_getb16 (bytes);
|
}
|
}
|
else
|
else
|
{
|
{
|
if ((info->flags & LITTLE_BIT) != 0)
|
if ((info->flags & LITTLE_BIT) != 0)
|
val = bfd_getl32 (bytes);
|
val = bfd_getl32 (bytes);
|
else
|
else
|
val = bfd_getb32 (bytes);
|
val = bfd_getb32 (bytes);
|
}
|
}
|
fprintf_fn (stream, "\t! 0x%x", val);
|
fprintf_fn (stream, "\t! 0x%x", val);
|
}
|
}
|
}
|
}
|
|
|
return 2;
|
return 2;
|
fail:
|
fail:
|
;
|
;
|
|
|
}
|
}
|
fprintf_fn (stream, ".word 0x%x%x%x%x", nibs[0], nibs[1], nibs[2], nibs[3]);
|
fprintf_fn (stream, ".word 0x%x%x%x%x", nibs[0], nibs[1], nibs[2], nibs[3]);
|
return 2;
|
return 2;
|
}
|
}
|
|
|
int
|
int
|
print_insn_shl (memaddr, info)
|
print_insn_shl (memaddr, info)
|
bfd_vma memaddr;
|
bfd_vma memaddr;
|
struct disassemble_info *info;
|
struct disassemble_info *info;
|
{
|
{
|
int r;
|
int r;
|
|
|
info->flags = LITTLE_BIT;
|
info->flags = LITTLE_BIT;
|
r = print_insn_shx (memaddr, info);
|
r = print_insn_shx (memaddr, info);
|
return r;
|
return r;
|
}
|
}
|
|
|
int
|
int
|
print_insn_sh (memaddr, info)
|
print_insn_sh (memaddr, info)
|
bfd_vma memaddr;
|
bfd_vma memaddr;
|
struct disassemble_info *info;
|
struct disassemble_info *info;
|
{
|
{
|
int r;
|
int r;
|
|
|
info->flags = 0;
|
info->flags = 0;
|
r = print_insn_shx (memaddr, info);
|
r = print_insn_shx (memaddr, info);
|
return r;
|
return r;
|
}
|
}
|
|
|
