[deliverable/binutils-gdb.git] / opcodes / m10300-dis.c

/* Disassemble MN10300 instructions.
   Copyright 1996, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.

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
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */


#include <stdio.h>

#include "sysdep.h"
#include "opcode/mn10300.h"
#include "dis-asm.h"
#include "opintl.h"

static void disassemble PARAMS ((bfd_vma, struct disassemble_info *,
				 unsigned long insn, unsigned int));

#define HAVE_AM33 (info->mach == AM33)
#define HAVE_AM30 (info->mach == AM30)

int
print_insn_mn10300 (memaddr, info)
     bfd_vma memaddr;
     struct disassemble_info *info;
{
  int status;
  bfd_byte buffer[4];
  unsigned long insn;
  unsigned int consume;

  /* First figure out how big the opcode is.  */
  status = (*info->read_memory_func) (memaddr, buffer, 1, info);
  if (status != 0)
    {
      (*info->memory_error_func) (status, memaddr, info);
      return -1;
    }
  insn = *(unsigned char *) buffer;

  /* These are one byte insns.  */
  if ((insn & 0xf3) == 0x00
      || (insn & 0xf0) == 0x10
      || (insn & 0xfc) == 0x3c
      || (insn & 0xf3) == 0x41
      || (insn & 0xf3) == 0x40
      || (insn & 0xfc) == 0x50
      || (insn & 0xfc) == 0x54
      || (insn & 0xf0) == 0x60
      || (insn & 0xf0) == 0x70
      || ((insn & 0xf0) == 0x80
	  && (insn & 0x0c) >> 2 != (insn & 0x03))
      || ((insn & 0xf0) == 0x90
	  && (insn & 0x0c) >> 2 != (insn & 0x03))
      || ((insn & 0xf0) == 0xa0
	  && (insn & 0x0c) >> 2 != (insn & 0x03))
      || ((insn & 0xf0) == 0xb0
	  && (insn & 0x0c) >> 2 != (insn & 0x03))
      || (insn & 0xff) == 0xcb
      || (insn & 0xfc) == 0xd0
      || (insn & 0xfc) == 0xd4
      || (insn & 0xfc) == 0xd8
      || (insn & 0xf0) == 0xe0
      || (insn & 0xff) == 0xff)
    {
      consume = 1;
    }

  /* These are two byte insns.  */
  else if ((insn & 0xf0) == 0x80
	   || (insn & 0xf0) == 0x90
	   || (insn & 0xf0) == 0xa0
	   || (insn & 0xf0) == 0xb0
	   || (insn & 0xfc) == 0x20
	   || (insn & 0xfc) == 0x28
	   || (insn & 0xf3) == 0x43
	   || (insn & 0xf3) == 0x42
	   || (insn & 0xfc) == 0x58
	   || (insn & 0xfc) == 0x5c
	   || ((insn & 0xf0) == 0xc0
	       && (insn & 0xff) != 0xcb
	       && (insn & 0xff) != 0xcc
	       && (insn & 0xff) != 0xcd)
	   || (insn & 0xff) == 0xf0
	   || (insn & 0xff) == 0xf1
	   || (insn & 0xff) == 0xf2
	   || (insn & 0xff) == 0xf3
	   || (insn & 0xff) == 0xf4
	   || (insn & 0xff) == 0xf5
	   || (insn & 0xff) == 0xf6)
    {
      status = (*info->read_memory_func) (memaddr, buffer, 2, info);
      if (status != 0)
	{
	  (*info->memory_error_func) (status, memaddr, info);
	  return -1;
	}
      insn = bfd_getb16 (buffer);
      consume = 2;
    }

  /* These are three byte insns.  */
  else if ((insn & 0xff) == 0xf8
	   || (insn & 0xff) == 0xcc
	   || (insn & 0xff) == 0xf9
	   || (insn & 0xf3) == 0x01
	   || (insn & 0xf3) == 0x02
	   || (insn & 0xf3) == 0x03
	   || (insn & 0xfc) == 0x24
	   || (insn & 0xfc) == 0x2c
	   || (insn & 0xfc) == 0x30
	   || (insn & 0xfc) == 0x34
	   || (insn & 0xfc) == 0x38
	   || (insn & 0xff) == 0xde
	   || (insn & 0xff) == 0xdf
	   || (insn & 0xff) == 0xf9
	   || (insn & 0xff) == 0xcc)
    {
      status = (*info->read_memory_func) (memaddr, buffer, 2, info);
      if (status != 0)
	{
	  (*info->memory_error_func) (status, memaddr, info);
	  return -1;
	}
      insn = bfd_getb16 (buffer);
      insn <<= 8;
      status = (*info->read_memory_func) (memaddr + 2, buffer, 1, info);
      if (status != 0)
	{
	  (*info->memory_error_func) (status, memaddr, info);
	  return -1;
	}
      insn |= *(unsigned char *) buffer;
      consume = 3;
    }

  /* These are four byte insns.  */
  else if ((insn & 0xff) == 0xfa
	   || (insn & 0xff) == 0xf7
	   || (insn & 0xff) == 0xfb)
    {
      status = (*info->read_memory_func) (memaddr, buffer, 4, info);
      if (status != 0)
	{
	  (*info->memory_error_func) (status, memaddr, info);
	  return -1;
	}
      insn = bfd_getb32 (buffer);
      consume = 4;
    }

  /* These are five byte insns.  */
  else if ((insn & 0xff) == 0xcd
	   || (insn & 0xff) == 0xdc)
    {
      status = (*info->read_memory_func) (memaddr, buffer, 4, info);
      if (status != 0)
	{
	  (*info->memory_error_func) (status, memaddr, info);
	  return -1;
	}
      insn = bfd_getb32 (buffer);
      consume = 5;
    }

  /* These are six byte insns.  */
  else if ((insn & 0xff) == 0xfd
	   || (insn & 0xff) == 0xfc)
    {
      status = (*info->read_memory_func) (memaddr, buffer, 4, info);
      if (status != 0)
	{
	  (*info->memory_error_func) (status, memaddr, info);
	  return -1;
	}

      insn = bfd_getb32 (buffer);
      consume = 6;
    }

  /* Else its a seven byte insns (in theory).  */
  else
    {
      status = (*info->read_memory_func) (memaddr, buffer, 4, info);
      if (status != 0)
	{
	  (*info->memory_error_func) (status, memaddr, info);
	  return -1;
	}

      insn = bfd_getb32 (buffer);
      consume = 7;
    }

  disassemble (memaddr, info, insn, consume);

  return consume;
}

static void
disassemble (memaddr, info, insn, size)
     bfd_vma memaddr;
     struct disassemble_info *info;
     unsigned long insn;
     unsigned int size;
{
  struct mn10300_opcode *op = (struct mn10300_opcode *)mn10300_opcodes;
  const struct mn10300_operand *operand;
  bfd_byte buffer[4];
  unsigned long extension = 0;
  int status, match = 0;

  /* Find the opcode.  */
  while (op->name)
    {
      int mysize, extra_shift;

      if (op->format == FMT_S0)
	mysize = 1;
      else if (op->format == FMT_S1
	       || op->format == FMT_D0)
	mysize = 2;
      else if (op->format == FMT_S2
	       || op->format == FMT_D1)
	mysize = 3;
      else if (op->format == FMT_S4)
	mysize = 5;
      else if (op->format == FMT_D2)
	mysize = 4;
      else if (op->format == FMT_D4)
	mysize = 6;
      else if (op->format == FMT_D6)
	mysize = 3;
      else if (op->format == FMT_D7 || op->format == FMT_D10)
	mysize = 4;
      else if (op->format == FMT_D8)
	mysize = 6;
      else if (op->format == FMT_D9)
	mysize = 7;
      else
	mysize = 7;

      if ((op->mask & insn) == op->opcode
	  && size == (unsigned int) mysize
	  && (op->machine == 0
	      || (op->machine == AM33 && HAVE_AM33)
	      || (op->machine == AM30 && HAVE_AM30)))
	{
	  const unsigned char *opindex_ptr;
	  unsigned int nocomma;
	  int paren = 0;

	  if (op->format == FMT_D1 || op->format == FMT_S1)
	    extra_shift = 8;
	  else if (op->format == FMT_D2 || op->format == FMT_D4
		   || op->format == FMT_S2 || op->format == FMT_S4
		   || op->format == FMT_S6 || op->format == FMT_D5)
	    extra_shift = 16;
	  else if (op->format == FMT_D7
		   || op->format == FMT_D8
		   || op->format == FMT_D9)
	    extra_shift = 8;
	  else
	    extra_shift = 0;

	  if (size == 1 || size == 2)
	    {
	      extension = 0;
	    }
	  else if (size == 3
		   && (op->format == FMT_D1
		       || op->opcode == 0xdf0000
		       || op->opcode == 0xde0000))
	    {
	      extension = 0;
	    }
	  else if (size == 3
		   && op->format == FMT_D6)
	    {
	      extension = 0;
	    }
	  else if (size == 3)
	    {
	      insn &= 0xff0000;
	      status = (*info->read_memory_func) (memaddr + 1, buffer, 2, info);
	      if (status != 0)
		{
		  (*info->memory_error_func) (status, memaddr, info);
		  return;
		}

	      insn |= bfd_getl16 (buffer);
	      extension = 0;
	    }
	  else if (size == 4
		   && (op->opcode == 0xfaf80000
		       || op->opcode == 0xfaf00000
		       || op->opcode == 0xfaf40000))
	    {
	      extension = 0;
	    }
	  else if (size == 4
		   && (op->format == FMT_D7
		       || op->format == FMT_D10))
	    {
	      extension = 0;
	    }
	  else if (size == 4)
	    {
	      insn &= 0xffff0000;
	      status = (*info->read_memory_func) (memaddr + 2, buffer, 2, info);
	      if (status != 0)
		{
		  (*info->memory_error_func) (status, memaddr, info);
		  return;
		}

	      insn |= bfd_getl16 (buffer);
	      extension = 0;
	    }
	  else if (size == 5 && op->opcode == 0xdc000000)
	    {
	      unsigned long temp = 0;
	      status = (*info->read_memory_func) (memaddr + 1, buffer, 4, info);
	      if (status != 0)
		{
		  (*info->memory_error_func) (status, memaddr, info);
		  return;
		}
	      temp |= bfd_getl32 (buffer);

	      insn &= 0xff000000;
	      insn |= (temp & 0xffffff00) >> 8;
	      extension = temp & 0xff;
	    }
	  else if (size == 5)
	    {
	      unsigned long temp = 0;
	      status = (*info->read_memory_func) (memaddr + 1, buffer, 2, info);
	      if (status != 0)
		{
		  (*info->memory_error_func) (status, memaddr, info);
		  return;
		}
	      temp |= bfd_getl16 (buffer);

	      insn &= 0xff0000ff;
	      insn |= temp << 8;

	      status = (*info->read_memory_func) (memaddr + 4, buffer, 1, info);
	      if (status != 0)
		{
		  (*info->memory_error_func) (status, memaddr, info);
		  return;
		}
	      extension = *(unsigned char *) buffer;
	    }
	  else if (size == 6 && op->format == FMT_D8)
	    {
	      insn &= 0xffffff00;
	      status = (*info->read_memory_func) (memaddr + 5, buffer, 1, info);
	      if (status != 0)
		{
		  (*info->memory_error_func) (status, memaddr, info);
		  return;
		}
	      insn |= *(unsigned char *) buffer;

	      status = (*info->read_memory_func) (memaddr + 3, buffer, 2, info);
	      if (status != 0)
		{
		  (*info->memory_error_func) (status, memaddr, info);
		  return;
		}
	      extension = bfd_getl16 (buffer);
	    }
	  else if (size == 6)
	    {
	      unsigned long temp = 0;
	      status = (*info->read_memory_func) (memaddr + 2, buffer, 4, info);
	      if (status != 0)
		{
		  (*info->memory_error_func) (status, memaddr, info);
		  return;
		}
	      temp |= bfd_getl32 (buffer);

	      insn &= 0xffff0000;
	      insn |= (temp >> 16) & 0xffff;
	      extension = temp & 0xffff;
	    }
	  else if (size == 7 && op->format == FMT_D9)
	    {
	      insn &= 0xffffff00;
	      status = (*info->read_memory_func) (memaddr + 3, buffer, 4, info);
	      if (status != 0)
		{
		  (*info->memory_error_func) (status, memaddr, info);
		  return;
		}
	      extension = bfd_getl32 (buffer);
	      insn |= (extension & 0xff000000) >> 24;
	      extension &= 0xffffff;
	    }
	  else if (size == 7 && op->opcode == 0xdd000000)
	    {
	      unsigned long temp = 0;
	      status = (*info->read_memory_func) (memaddr + 1, buffer, 4, info);
	      if (status != 0)
		{
		  (*info->memory_error_func) (status, memaddr, info);
		  return;
		}
	      temp |= bfd_getl32 (buffer);

	      insn &= 0xff000000;
	      insn |= (temp >> 8) & 0xffffff;
	      extension = (temp & 0xff) << 16;

	      status = (*info->read_memory_func) (memaddr + 5, buffer, 2, info);
	      if (status != 0)
		{
		  (*info->memory_error_func) (status, memaddr, info);
		  return;
		}
	      extension |= bfd_getb16 (buffer);
	    }
	  else if (size == 7)
	    {
	      unsigned long temp = 0;
	      status = (*info->read_memory_func) (memaddr + 2, buffer, 4, info);
	      if (status != 0)
		{
		  (*info->memory_error_func) (status, memaddr, info);
		  return;
		}
	      temp |= bfd_getl32 (buffer);

	      insn &= 0xffff0000;
	      insn |= (temp >> 16) & 0xffff;
	      extension = (temp & 0xffff) << 8;

	      status = (*info->read_memory_func) (memaddr + 6, buffer, 1, info);
	      if (status != 0)
		{
		  (*info->memory_error_func) (status, memaddr, info);
		  return;
		}
	      extension |= *(unsigned char *) buffer;
	    }

	  match = 1;
	  (*info->fprintf_func) (info->stream, "%s\t", op->name);

	  /* Now print the operands.  */
	  for (opindex_ptr = op->operands, nocomma = 1;
	       *opindex_ptr != 0;
	       opindex_ptr++)
	    {
	      unsigned long value;

	      operand = &mn10300_operands[*opindex_ptr];

	      /* If this operand is a PLUS (autoincrement), then do not emit
		 a comma before emitting the plus.  */
	      if ((operand->flags & MN10300_OPERAND_PLUS) != 0)
		nocomma = 1;

	      if ((operand->flags & MN10300_OPERAND_SPLIT) != 0)
		{
		  unsigned long temp;
		  value = insn & ((1 << operand->bits) - 1);
		  value <<= (32 - operand->bits);
		  temp = extension >> operand->shift;
		  temp &= ((1 << (32 - operand->bits)) - 1);
		  value |= temp;
		  value = ((value ^ (((unsigned long) 1) << 31))
			   - (((unsigned long) 1) << 31));
		}
	      else if ((operand->flags & MN10300_OPERAND_24BIT) != 0)
		{
		  unsigned long temp;
		  value = insn & ((1 << operand->bits) - 1);
		  value <<= (24 - operand->bits);
		  temp = extension >> operand->shift;
		  temp &= ((1 << (24 - operand->bits)) - 1);
		  value |= temp;
		  if ((operand->flags & MN10300_OPERAND_SIGNED) != 0)
		    value = ((value & 0xffffff) ^ 0x800000) - 0x800000;
		}
	      else if ((operand->flags & MN10300_OPERAND_EXTENDED) != 0)
		{
		  value = ((extension >> (operand->shift))
			   & ((1 << operand->bits) - 1));
		}
	      else
		{
		  value = ((insn >> (operand->shift))
			   & ((1 << operand->bits) - 1));
		}

	      if ((operand->flags & MN10300_OPERAND_SIGNED) != 0
		  /* These are properly extended by the code above.  */
		  && ((operand->flags & MN10300_OPERAND_24BIT) == 0))
		value = ((value ^ (((unsigned long) 1) << (operand->bits - 1)))
			 - (((unsigned long) 1) << (operand->bits - 1)));

	      if (!nocomma
		  && (!paren
		      || ((operand->flags & MN10300_OPERAND_PAREN) == 0)))
		(*info->fprintf_func) (info->stream, ",");

	      nocomma = 0;

	      if ((operand->flags & MN10300_OPERAND_DREG) != 0)
		{
		  value = ((insn >> (operand->shift + extra_shift))
			   & ((1 << operand->bits) - 1));
		  (*info->fprintf_func) (info->stream, "d%d", (int) value);
		}

	      else if ((operand->flags & MN10300_OPERAND_AREG) != 0)
		{
		  value = ((insn >> (operand->shift + extra_shift))
			   & ((1 << operand->bits) - 1));
		  (*info->fprintf_func) (info->stream, "a%d", (int) value);
		}

	      else if ((operand->flags & MN10300_OPERAND_SP) != 0)
		(*info->fprintf_func) (info->stream, "sp");

	      else if ((operand->flags & MN10300_OPERAND_PSW) != 0)
		(*info->fprintf_func) (info->stream, "psw");

	      else if ((operand->flags & MN10300_OPERAND_MDR) != 0)
		(*info->fprintf_func) (info->stream, "mdr");

	      else if ((operand->flags & MN10300_OPERAND_RREG) != 0)
		{
		  value = ((insn >> (operand->shift + extra_shift))
			   & ((1 << operand->bits) - 1));
		  if (value < 8)
		    (*info->fprintf_func) (info->stream, "r%d", (int) value);
		  else if (value < 12)
		    (*info->fprintf_func) (info->stream, "a%d", (int) value - 8);
		  else
		    (*info->fprintf_func) (info->stream, "d%d", (int) value - 12);
		}

	      else if ((operand->flags & MN10300_OPERAND_XRREG) != 0)
		{
		  value = ((insn >> (operand->shift + extra_shift))
			   & ((1 << operand->bits) - 1));
		  if (value == 0)
		    (*info->fprintf_func) (info->stream, "sp", value);
		  else
		    (*info->fprintf_func) (info->stream, "xr%d", (int) value);
		}

	      else if ((operand->flags & MN10300_OPERAND_USP) != 0)
		(*info->fprintf_func) (info->stream, "usp");

	      else if ((operand->flags & MN10300_OPERAND_SSP) != 0)
		(*info->fprintf_func) (info->stream, "ssp");

	      else if ((operand->flags & MN10300_OPERAND_MSP) != 0)
		(*info->fprintf_func) (info->stream, "msp");

	      else if ((operand->flags & MN10300_OPERAND_PC) != 0)
		(*info->fprintf_func) (info->stream, "pc");

	      else if ((operand->flags & MN10300_OPERAND_EPSW) != 0)
		(*info->fprintf_func) (info->stream, "epsw");

	      else if ((operand->flags & MN10300_OPERAND_PLUS) != 0)
		(*info->fprintf_func) (info->stream, "+");

	      else if ((operand->flags & MN10300_OPERAND_PAREN) != 0)
		{
		  if (paren)
		    (*info->fprintf_func) (info->stream, ")");
		  else
		    {
		      (*info->fprintf_func) (info->stream, "(");
		      nocomma = 1;
		    }
		  paren = !paren;
		}

	      else if ((operand->flags & MN10300_OPERAND_PCREL) != 0)
		(*info->print_address_func) ((long) value + memaddr, info);

	      else if ((operand->flags & MN10300_OPERAND_MEMADDR) != 0)
		(*info->print_address_func) (value, info);

	      else if ((operand->flags & MN10300_OPERAND_REG_LIST) != 0)
		{
		  int comma = 0;

		  (*info->fprintf_func) (info->stream, "[");
		  if (value & 0x80)
		    {
		      (*info->fprintf_func) (info->stream, "d2");
		      comma = 1;
		    }

		  if (value & 0x40)
		    {
		      if (comma)
			(*info->fprintf_func) (info->stream, ",");
		      (*info->fprintf_func) (info->stream, "d3");
		      comma = 1;
		    }

		  if (value & 0x20)
		    {
		      if (comma)
			(*info->fprintf_func) (info->stream, ",");
		      (*info->fprintf_func) (info->stream, "a2");
		      comma = 1;
		    }

		  if (value & 0x10)
		    {
		      if (comma)
			(*info->fprintf_func) (info->stream, ",");
		      (*info->fprintf_func) (info->stream, "a3");
		      comma = 1;
		    }

		  if (value & 0x08)
		    {
		      if (comma)
			(*info->fprintf_func) (info->stream, ",");
		      (*info->fprintf_func) (info->stream, "other");
		      comma = 1;
		    }

		  if (value & 0x04)
		    {
		      if (comma)
			(*info->fprintf_func) (info->stream, ",");
		      (*info->fprintf_func) (info->stream, "exreg0");
		      comma = 1;
		    }
		  if (value & 0x02)
		    {
		      if (comma)
			(*info->fprintf_func) (info->stream, ",");
		      (*info->fprintf_func) (info->stream, "exreg1");
		      comma = 1;
		    }
		  if (value & 0x01)
		    {
		      if (comma)
			(*info->fprintf_func) (info->stream, ",");
		      (*info->fprintf_func) (info->stream, "exother");
		      comma = 1;
		    }
		  (*info->fprintf_func) (info->stream, "]");
		}

	      else
		(*info->fprintf_func) (info->stream, "%ld", (long) value);
	    }
	  /* All done. */
	  break;
	}
      op++;
    }

  if (!match)
    {
      /* xgettext:c-format */
      (*info->fprintf_func) (info->stream, _("unknown\t0x%04x"), insn);
    }
}
Commit	Line	Data
252b5132	1	/* Disassemble MN10300 instructions.
33822a8e	2	Copyright 1996, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
252b5132 RH	3
	4	This program is free software; you can redistribute it and/or modify
	5	it under the terms of the GNU General Public License as published by
	6	the Free Software Foundation; either version 2 of the License, or
	7	(at your option) any later version.
	8
	9	This program is distributed in the hope that it will be useful,
	10	but WITHOUT ANY WARRANTY; without even the implied warranty of
	11	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	12	GNU General Public License for more details.
	13
	14	You should have received a copy of the GNU General Public License
	15	along with this program; if not, write to the Free Software
	16	Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
	17
	18
	19	#include <stdio.h>
	20
0d8dfecf	21	#include "sysdep.h"
33822a8e	22	#include "opcode/mn10300.h"
252b5132 RH	23	#include "dis-asm.h"
	24	#include "opintl.h"
	25
	26	static void disassemble PARAMS ((bfd_vma, struct disassemble_info *,
	27	unsigned long insn, unsigned int));
	28
4d85706b AO	29	#define HAVE_AM33 (info->mach == AM33)
	30	#define HAVE_AM30 (info->mach == AM30)
	31
33822a8e	32	int
252b5132 RH	33	print_insn_mn10300 (memaddr, info)
	34	bfd_vma memaddr;
	35	struct disassemble_info *info;
	36	{
	37	int status;
	38	bfd_byte buffer[4];
	39	unsigned long insn;
	40	unsigned int consume;
	41
	42	/* First figure out how big the opcode is. */
	43	status = (*info->read_memory_func) (memaddr, buffer, 1, info);
	44	if (status != 0)
	45	{
	46	(*info->memory_error_func) (status, memaddr, info);
	47	return -1;
	48	}
	49	insn = (unsigned char ) buffer;
	50
	51	/* These are one byte insns. */
	52	if ((insn & 0xf3) == 0x00
	53	\|\| (insn & 0xf0) == 0x10
	54	\|\| (insn & 0xfc) == 0x3c
	55	\|\| (insn & 0xf3) == 0x41
	56	\|\| (insn & 0xf3) == 0x40
	57	\|\| (insn & 0xfc) == 0x50
	58	\|\| (insn & 0xfc) == 0x54
	59	\|\| (insn & 0xf0) == 0x60
	60	\|\| (insn & 0xf0) == 0x70
	61	\|\| ((insn & 0xf0) == 0x80
	62	&& (insn & 0x0c) >> 2 != (insn & 0x03))
	63	\|\| ((insn & 0xf0) == 0x90
	64	&& (insn & 0x0c) >> 2 != (insn & 0x03))
	65	\|\| ((insn & 0xf0) == 0xa0
	66	&& (insn & 0x0c) >> 2 != (insn & 0x03))
	67	\|\| ((insn & 0xf0) == 0xb0
	68	&& (insn & 0x0c) >> 2 != (insn & 0x03))
	69	\|\| (insn & 0xff) == 0xcb
	70	\|\| (insn & 0xfc) == 0xd0
	71	\|\| (insn & 0xfc) == 0xd4
	72	\|\| (insn & 0xfc) == 0xd8
	73	\|\| (insn & 0xf0) == 0xe0
	74	\|\| (insn & 0xff) == 0xff)
	75	{
	76	consume = 1;
	77	}
	78
	79	/* These are two byte insns. */
	80	else if ((insn & 0xf0) == 0x80
	81	\|\| (insn & 0xf0) == 0x90
	82	\|\| (insn & 0xf0) == 0xa0
	83	\|\| (insn & 0xf0) == 0xb0
	84	\|\| (insn & 0xfc) == 0x20
	85	\|\| (insn & 0xfc) == 0x28
	86	\|\| (insn & 0xf3) == 0x43
	87	\|\| (insn & 0xf3) == 0x42
	88	\|\| (insn & 0xfc) == 0x58
	89	\|\| (insn & 0xfc) == 0x5c
	90	\|\| ((insn & 0xf0) == 0xc0
	91	&& (insn & 0xff) != 0xcb
	92	&& (insn & 0xff) != 0xcc
	93	&& (insn & 0xff) != 0xcd)
	94	\|\| (insn & 0xff) == 0xf0
	95	\|\| (insn & 0xff) == 0xf1
	96	\|\| (insn & 0xff) == 0xf2
97	\|\| (insn & 0xff) == 0xf3
98	\|\| (insn & 0xff) == 0xf4
99	\|\| (insn & 0xff) == 0xf5
100	\|\| (insn & 0xff) == 0xf6)
101	{
102	status = (*info->read_memory_func) (memaddr, buffer, 2, info);
103	if (status != 0)
104	{
105	(*info->memory_error_func) (status, memaddr, info);
33822a8e	106	return -1;
252b5132 RH	107	}
	108	insn = bfd_getb16 (buffer);
	109	consume = 2;
	110	}
	111
	112	/* These are three byte insns. */
	113	else if ((insn & 0xff) == 0xf8
33822a8e	114	\|\| (insn & 0xff) == 0xcc
252b5132 RH	115	\|\| (insn & 0xff) == 0xf9
	116	\|\| (insn & 0xf3) == 0x01
	117	\|\| (insn & 0xf3) == 0x02
	118	\|\| (insn & 0xf3) == 0x03
	119	\|\| (insn & 0xfc) == 0x24
	120	\|\| (insn & 0xfc) == 0x2c
	121	\|\| (insn & 0xfc) == 0x30
	122	\|\| (insn & 0xfc) == 0x34
	123	\|\| (insn & 0xfc) == 0x38
	124	\|\| (insn & 0xff) == 0xde
	125	\|\| (insn & 0xff) == 0xdf
a9af5e04	126	\|\| (insn & 0xff) == 0xf9
252b5132 RH	127	\|\| (insn & 0xff) == 0xcc)
	128	{
	129	status = (*info->read_memory_func) (memaddr, buffer, 2, info);
	130	if (status != 0)
	131	{
	132	(*info->memory_error_func) (status, memaddr, info);
	133	return -1;
	134	}
	135	insn = bfd_getb16 (buffer);
	136	insn <<= 8;
	137	status = (*info->read_memory_func) (memaddr + 2, buffer, 1, info);
	138	if (status != 0)
	139	{
	140	(*info->memory_error_func) (status, memaddr, info);
	141	return -1;
	142	}
33822a8e	143	insn \|= (unsigned char ) buffer;
252b5132 RH	144	consume = 3;
	145	}
	146
	147	/* These are four byte insns. */
	148	else if ((insn & 0xff) == 0xfa
a9af5e04	149	\|\| (insn & 0xff) == 0xf7
252b5132 RH	150	\|\| (insn & 0xff) == 0xfb)
	151	{
	152	status = (*info->read_memory_func) (memaddr, buffer, 4, info);
	153	if (status != 0)
	154	{
	155	(*info->memory_error_func) (status, memaddr, info);
	156	return -1;
	157	}
	158	insn = bfd_getb32 (buffer);
	159	consume = 4;
	160	}
	161
	162	/* These are five byte insns. */
	163	else if ((insn & 0xff) == 0xcd
	164	\|\| (insn & 0xff) == 0xdc)
	165	{
	166	status = (*info->read_memory_func) (memaddr, buffer, 4, info);
	167	if (status != 0)
	168	{
	169	(*info->memory_error_func) (status, memaddr, info);
	170	return -1;
	171	}
	172	insn = bfd_getb32 (buffer);
	173	consume = 5;
	174	}
	175
	176	/* These are six byte insns. */
	177	else if ((insn & 0xff) == 0xfd
	178	\|\| (insn & 0xff) == 0xfc)
	179	{
	180	status = (*info->read_memory_func) (memaddr, buffer, 4, info);
	181	if (status != 0)
	182	{
	183	(*info->memory_error_func) (status, memaddr, info);
	184	return -1;
	185	}
	186
	187	insn = bfd_getb32 (buffer);
	188	consume = 6;
	189	}
	190
	191	/* Else its a seven byte insns (in theory). */
	192	else
	193	{
	194	status = (*info->read_memory_func) (memaddr, buffer, 4, info);
	195	if (status != 0)
	196	{
	197	(*info->memory_error_func) (status, memaddr, info);
	198	return -1;
	199	}
	200
	201	insn = bfd_getb32 (buffer);
	202	consume = 7;
	203	}
	204
	205	disassemble (memaddr, info, insn, consume);
	206
	207	return consume;
	208	}
	209
	210	static void
	211	disassemble (memaddr, info, insn, size)
	212	bfd_vma memaddr;
	213	struct disassemble_info *info;
214	unsigned long insn;
215	unsigned int size;
216	{
217	struct mn10300_opcode op = (struct mn10300_opcode )mn10300_opcodes;
218	const struct mn10300_operand *operand;
219	bfd_byte buffer[4];
220	unsigned long extension = 0;
221	int status, match = 0;
222
223	/* Find the opcode. */
224	while (op->name)
225	{
226	int mysize, extra_shift;
227
228	if (op->format == FMT_S0)
229	mysize = 1;
230	else if (op->format == FMT_S1
231	\|\| op->format == FMT_D0)
232	mysize = 2;
233	else if (op->format == FMT_S2
234	\|\| op->format == FMT_D1)
235	mysize = 3;
236	else if (op->format == FMT_S4)
237	mysize = 5;
238	else if (op->format == FMT_D2)
239	mysize = 4;
240	else if (op->format == FMT_D4)
241	mysize = 6;
a9af5e04 JL	242	else if (op->format == FMT_D6)
	243	mysize = 3;
	244	else if (op->format == FMT_D7 \|\| op->format == FMT_D10)
	245	mysize = 4;
	246	else if (op->format == FMT_D8)
	247	mysize = 6;
	248	else if (op->format == FMT_D9)
	249	mysize = 7;
252b5132 RH	250	else
252b5132 RH	251	mysize = 7;
33822a8e	252
252b5132 RH	253	if ((op->mask & insn) == op->opcode
	254	&& size == (unsigned int) mysize
	255	&& (op->machine == 0
4d85706b AO	256	\|\| (op->machine == AM33 && HAVE_AM33)
4d85706b AO	257	\|\| (op->machine == AM30 && HAVE_AM30)))
252b5132 RH	258	{
	259	const unsigned char *opindex_ptr;
	260	unsigned int nocomma;
	261	int paren = 0;
33822a8e	262
252b5132 RH	263	if (op->format == FMT_D1 \|\| op->format == FMT_S1)
	264	extra_shift = 8;
	265	else if (op->format == FMT_D2 \|\| op->format == FMT_D4
	266	\|\| op->format == FMT_S2 \|\| op->format == FMT_S4
	267	\|\| op->format == FMT_S6 \|\| op->format == FMT_D5)
	268	extra_shift = 16;
a9af5e04 JL	269	else if (op->format == FMT_D7
	270	\|\| op->format == FMT_D8
	271	\|\| op->format == FMT_D9)
	272	extra_shift = 8;
252b5132 RH	273	else
	274	extra_shift = 0;
	275
	276	if (size == 1 \|\| size == 2)
	277	{
	278	extension = 0;
	279	}
	280	else if (size == 3
	281	&& (op->format == FMT_D1
	282	\|\| op->opcode == 0xdf0000
	283	\|\| op->opcode == 0xde0000))
	284	{
	285	extension = 0;
	286	}
a9af5e04 JL	287	else if (size == 3
	288	&& op->format == FMT_D6)
	289	{
	290	extension = 0;
	291	}
252b5132 RH	292	else if (size == 3)
	293	{
	294	insn &= 0xff0000;
	295	status = (*info->read_memory_func) (memaddr + 1, buffer, 2, info);
	296	if (status != 0)
	297	{
	298	(*info->memory_error_func) (status, memaddr, info);
	299	return;
	300	}
	301
	302	insn \|= bfd_getl16 (buffer);
	303	extension = 0;
	304	}
	305	else if (size == 4
	306	&& (op->opcode == 0xfaf80000
	307	\|\| op->opcode == 0xfaf00000
	308	\|\| op->opcode == 0xfaf40000))
	309	{
	310	extension = 0;
	311	}
a9af5e04 JL	312	else if (size == 4
	313	&& (op->format == FMT_D7
	314	\|\| op->format == FMT_D10))
	315	{
	316	extension = 0;
	317	}
252b5132 RH	318	else if (size == 4)
	319	{
	320	insn &= 0xffff0000;
	321	status = (*info->read_memory_func) (memaddr + 2, buffer, 2, info);
	322	if (status != 0)
	323	{
	324	(*info->memory_error_func) (status, memaddr, info);
	325	return;
	326	}
	327
	328	insn \|= bfd_getl16 (buffer);
	329	extension = 0;
	330	}
	331	else if (size == 5 && op->opcode == 0xdc000000)
	332	{
	333	unsigned long temp = 0;
	334	status = (*info->read_memory_func) (memaddr + 1, buffer, 4, info);
	335	if (status != 0)
	336	{
	337	(*info->memory_error_func) (status, memaddr, info);
	338	return;
	339	}
	340	temp \|= bfd_getl32 (buffer);
	341
	342	insn &= 0xff000000;
	343	insn \|= (temp & 0xffffff00) >> 8;
	344	extension = temp & 0xff;
	345	}
	346	else if (size == 5)
	347	{
	348	unsigned long temp = 0;
	349	status = (*info->read_memory_func) (memaddr + 1, buffer, 2, info);
	350	if (status != 0)
	351	{
	352	(*info->memory_error_func) (status, memaddr, info);
	353	return;
	354	}
	355	temp \|= bfd_getl16 (buffer);
	356
	357	insn &= 0xff0000ff;
	358	insn \|= temp << 8;
	359
	360	status = (*info->read_memory_func) (memaddr + 4, buffer, 1, info);
	361	if (status != 0)
	362	{
	363	(*info->memory_error_func) (status, memaddr, info);
	364	return;
	365	}
33822a8e	366	extension = (unsigned char ) buffer;
252b5132	367	}
a9af5e04 JL	368	else if (size == 6 && op->format == FMT_D8)
	369	{
	370	insn &= 0xffffff00;
	371	status = (*info->read_memory_func) (memaddr + 5, buffer, 1, info);
	372	if (status != 0)
	373	{
	374	(*info->memory_error_func) (status, memaddr, info);
	375	return;
	376	}
33822a8e	377	insn \|= (unsigned char ) buffer;
a9af5e04 JL	378
	379	status = (*info->read_memory_func) (memaddr + 3, buffer, 2, info);
	380	if (status != 0)
	381	{
	382	(*info->memory_error_func) (status, memaddr, info);
	383	return;
	384	}
	385	extension = bfd_getl16 (buffer);
	386	}
252b5132 RH	387	else if (size == 6)
	388	{
	389	unsigned long temp = 0;
	390	status = (*info->read_memory_func) (memaddr + 2, buffer, 4, info);
	391	if (status != 0)
	392	{
	393	(*info->memory_error_func) (status, memaddr, info);
	394	return;
	395	}
	396	temp \|= bfd_getl32 (buffer);
	397
	398	insn &= 0xffff0000;
	399	insn \|= (temp >> 16) & 0xffff;
	400	extension = temp & 0xffff;
	401	}
a9af5e04 JL	402	else if (size == 7 && op->format == FMT_D9)
	403	{
	404	insn &= 0xffffff00;
	405	status = (*info->read_memory_func) (memaddr + 3, buffer, 4, info);
	406	if (status != 0)
	407	{
	408	(*info->memory_error_func) (status, memaddr, info);
	409	return;
	410	}
	411	extension = bfd_getl32 (buffer);
	412	insn \|= (extension & 0xff000000) >> 24;
	413	extension &= 0xffffff;
	414	}
252b5132 RH	415	else if (size == 7 && op->opcode == 0xdd000000)
	416	{
	417	unsigned long temp = 0;
	418	status = (*info->read_memory_func) (memaddr + 1, buffer, 4, info);
	419	if (status != 0)
	420	{
	421	(*info->memory_error_func) (status, memaddr, info);
	422	return;
	423	}
	424	temp \|= bfd_getl32 (buffer);
	425
	426	insn &= 0xff000000;
	427	insn \|= (temp >> 8) & 0xffffff;
	428	extension = (temp & 0xff) << 16;
33822a8e	429
252b5132 RH	430	status = (*info->read_memory_func) (memaddr + 5, buffer, 2, info);
	431	if (status != 0)
	432	{
	433	(*info->memory_error_func) (status, memaddr, info);
	434	return;
	435	}
	436	extension \|= bfd_getb16 (buffer);
	437	}
	438	else if (size == 7)
	439	{
	440	unsigned long temp = 0;
	441	status = (*info->read_memory_func) (memaddr + 2, buffer, 4, info);
	442	if (status != 0)
	443	{
	444	(*info->memory_error_func) (status, memaddr, info);
	445	return;
	446	}
	447	temp \|= bfd_getl32 (buffer);
	448
	449	insn &= 0xffff0000;
	450	insn \|= (temp >> 16) & 0xffff;
	451	extension = (temp & 0xffff) << 8;
33822a8e	452
252b5132 RH	453	status = (*info->read_memory_func) (memaddr + 6, buffer, 1, info);
	454	if (status != 0)
	455	{
	456	(*info->memory_error_func) (status, memaddr, info);
	457	return;
	458	}
33822a8e	459	extension \|= (unsigned char ) buffer;
252b5132 RH	460	}
	461
	462	match = 1;
	463	(*info->fprintf_func) (info->stream, "%s\t", op->name);
	464
	465	/* Now print the operands. */
	466	for (opindex_ptr = op->operands, nocomma = 1;
	467	*opindex_ptr != 0;
	468	opindex_ptr++)
	469	{
	470	unsigned long value;
	471
	472	operand = &mn10300_operands[*opindex_ptr];
	473
a9af5e04 JL	474	/* If this operand is a PLUS (autoincrement), then do not emit
	475	a comma before emitting the plus. */
	476	if ((operand->flags & MN10300_OPERAND_PLUS) != 0)
	477	nocomma = 1;
252b5132 RH	478
	479	if ((operand->flags & MN10300_OPERAND_SPLIT) != 0)
	480	{
	481	unsigned long temp;
	482	value = insn & ((1 << operand->bits) - 1);
	483	value <<= (32 - operand->bits);
	484	temp = extension >> operand->shift;
	485	temp &= ((1 << (32 - operand->bits)) - 1);
	486	value \|= temp;
33822a8e KH	487	value = ((value ^ (((unsigned long) 1) << 31))
33822a8e KH	488	- (((unsigned long) 1) << 31));
252b5132	489	}
a9af5e04 JL	490	else if ((operand->flags & MN10300_OPERAND_24BIT) != 0)
	491	{
	492	unsigned long temp;
	493	value = insn & ((1 << operand->bits) - 1);
	494	value <<= (24 - operand->bits);
	495	temp = extension >> operand->shift;
	496	temp &= ((1 << (24 - operand->bits)) - 1);
	497	value \|= temp;
	498	if ((operand->flags & MN10300_OPERAND_SIGNED) != 0)
d6062282	499	value = ((value & 0xffffff) ^ 0x800000) - 0x800000;
a9af5e04	500	}
252b5132 RH	501	else if ((operand->flags & MN10300_OPERAND_EXTENDED) != 0)
	502	{
	503	value = ((extension >> (operand->shift))
	504	& ((1 << operand->bits) - 1));
	505	}
	506	else
	507	{
	508	value = ((insn >> (operand->shift))
	509	& ((1 << operand->bits) - 1));
	510	}
	511
	512	if ((operand->flags & MN10300_OPERAND_SIGNED) != 0
d6062282 AO	513	/* These are properly extended by the code above. */
d6062282 AO	514	&& ((operand->flags & MN10300_OPERAND_24BIT) == 0))
33822a8e KH	515	value = ((value ^ (((unsigned long) 1) << (operand->bits - 1)))
33822a8e KH	516	- (((unsigned long) 1) << (operand->bits - 1)));
252b5132 RH	517
	518	if (!nocomma
	519	&& (!paren
	520	\|\| ((operand->flags & MN10300_OPERAND_PAREN) == 0)))
	521	(*info->fprintf_func) (info->stream, ",");
	522
	523	nocomma = 0;
33822a8e	524
252b5132 RH	525	if ((operand->flags & MN10300_OPERAND_DREG) != 0)
	526	{
	527	value = ((insn >> (operand->shift + extra_shift))
	528	& ((1 << operand->bits) - 1));
33822a8e	529	(*info->fprintf_func) (info->stream, "d%d", (int) value);
252b5132 RH	530	}
	531
	532	else if ((operand->flags & MN10300_OPERAND_AREG) != 0)
	533	{
	534	value = ((insn >> (operand->shift + extra_shift))
	535	& ((1 << operand->bits) - 1));
33822a8e	536	(*info->fprintf_func) (info->stream, "a%d", (int) value);
252b5132 RH	537	}
	538
	539	else if ((operand->flags & MN10300_OPERAND_SP) != 0)
	540	(*info->fprintf_func) (info->stream, "sp");
	541
	542	else if ((operand->flags & MN10300_OPERAND_PSW) != 0)
	543	(*info->fprintf_func) (info->stream, "psw");
	544
	545	else if ((operand->flags & MN10300_OPERAND_MDR) != 0)
	546	(*info->fprintf_func) (info->stream, "mdr");
	547
a9af5e04 JL	548	else if ((operand->flags & MN10300_OPERAND_RREG) != 0)
	549	{
	550	value = ((insn >> (operand->shift + extra_shift))
	551	& ((1 << operand->bits) - 1));
	552	if (value < 8)
33822a8e	553	(*info->fprintf_func) (info->stream, "r%d", (int) value);
a9af5e04	554	else if (value < 12)
33822a8e	555	(*info->fprintf_func) (info->stream, "a%d", (int) value - 8);
a9af5e04	556	else
33822a8e	557	(*info->fprintf_func) (info->stream, "d%d", (int) value - 12);
a9af5e04 JL	558	}
	559
	560	else if ((operand->flags & MN10300_OPERAND_XRREG) != 0)
	561	{
	562	value = ((insn >> (operand->shift + extra_shift))
	563	& ((1 << operand->bits) - 1));
	564	if (value == 0)
	565	(*info->fprintf_func) (info->stream, "sp", value);
	566	else
33822a8e	567	(*info->fprintf_func) (info->stream, "xr%d", (int) value);
a9af5e04 JL	568	}
	569
	570	else if ((operand->flags & MN10300_OPERAND_USP) != 0)
	571	(*info->fprintf_func) (info->stream, "usp");
	572
	573	else if ((operand->flags & MN10300_OPERAND_SSP) != 0)
	574	(*info->fprintf_func) (info->stream, "ssp");
	575
	576	else if ((operand->flags & MN10300_OPERAND_MSP) != 0)
	577	(*info->fprintf_func) (info->stream, "msp");
	578
	579	else if ((operand->flags & MN10300_OPERAND_PC) != 0)
	580	(*info->fprintf_func) (info->stream, "pc");
	581
	582	else if ((operand->flags & MN10300_OPERAND_EPSW) != 0)
	583	(*info->fprintf_func) (info->stream, "epsw");
	584
	585	else if ((operand->flags & MN10300_OPERAND_PLUS) != 0)
	586	(*info->fprintf_func) (info->stream, "+");
252b5132 RH	587
	588	else if ((operand->flags & MN10300_OPERAND_PAREN) != 0)
	589	{
	590	if (paren)
	591	(*info->fprintf_func) (info->stream, ")");
	592	else
	593	{
	594	(*info->fprintf_func) (info->stream, "(");
	595	nocomma = 1;
	596	}
	597	paren = !paren;
	598	}
	599
	600	else if ((operand->flags & MN10300_OPERAND_PCREL) != 0)
	601	(*info->print_address_func) ((long) value + memaddr, info);
	602
	603	else if ((operand->flags & MN10300_OPERAND_MEMADDR) != 0)
	604	(*info->print_address_func) (value, info);
	605
	606	else if ((operand->flags & MN10300_OPERAND_REG_LIST) != 0)
	607	{
	608	int comma = 0;
	609
	610	(*info->fprintf_func) (info->stream, "[");
	611	if (value & 0x80)
	612	{
	613	(*info->fprintf_func) (info->stream, "d2");
	614	comma = 1;
	615	}
	616
	617	if (value & 0x40)
	618	{
	619	if (comma)
	620	(*info->fprintf_func) (info->stream, ",");
	621	(*info->fprintf_func) (info->stream, "d3");
	622	comma = 1;
	623	}
	624
	625	if (value & 0x20)
	626	{
	627	if (comma)
	628	(*info->fprintf_func) (info->stream, ",");
	629	(*info->fprintf_func) (info->stream, "a2");
	630	comma = 1;
	631	}
	632
	633	if (value & 0x10)
	634	{
	635	if (comma)
	636	(*info->fprintf_func) (info->stream, ",");
	637	(*info->fprintf_func) (info->stream, "a3");
	638	comma = 1;
	639	}
	640
	641	if (value & 0x08)
	642	{
	643	if (comma)
	644	(*info->fprintf_func) (info->stream, ",");
	645	(*info->fprintf_func) (info->stream, "other");
	646	comma = 1;
	647	}
	648
a9af5e04 JL	649	if (value & 0x04)
	650	{
	651	if (comma)
	652	(*info->fprintf_func) (info->stream, ",");
	653	(*info->fprintf_func) (info->stream, "exreg0");
	654	comma = 1;
	655	}
	656	if (value & 0x02)
	657	{
	658	if (comma)
	659	(*info->fprintf_func) (info->stream, ",");
	660	(*info->fprintf_func) (info->stream, "exreg1");
	661	comma = 1;
	662	}
	663	if (value & 0x01)
	664	{
	665	if (comma)
	666	(*info->fprintf_func) (info->stream, ",");
	667	(*info->fprintf_func) (info->stream, "exother");
	668	comma = 1;
	669	}
252b5132 RH	670	(*info->fprintf_func) (info->stream, "]");
	671	}
	672
33822a8e KH	673	else
33822a8e KH	674	(*info->fprintf_func) (info->stream, "%ld", (long) value);
252b5132 RH	675	}
	676	/* All done. */
	677	break;
	678	}
	679	op++;
	680	}
	681
	682	if (!match)
	683	{
	684	/* xgettext:c-format */
	685	(*info->fprintf_func) (info->stream, _("unknown\t0x%04x"), insn);
	686	}
	687	}