[thirdparty/binutils-gdb.git] / opcodes / dlx-dis.c

/* Instruction printing code for the DLX Microprocessor
   Copyright (C) 2002-2024 Free Software Foundation, Inc.
   Contributed by Kuang Hwa Lin.  Written by Kuang Hwa Lin, 03/2002.

   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 "disassemble.h"
#include "opcode/dlx.h"

#define R_ERROR     0x1
#define R_TYPE      0x2
#define ILD_TYPE    0x3
#define IST_TYPE    0x4
#define IAL_TYPE    0x5
#define IBR_TYPE    0x6
#define IJ_TYPE     0x7
#define IJR_TYPE    0x8
#define NIL         0x9

#define OPC(x)      ((x >> 26) & 0x3F)
#define FUNC(x)     (x & 0x7FF)

unsigned char opc, rs1, rs2, rd;
unsigned long imm26, imm16, func, current_insn_addr;

/* Print one instruction from MEMADDR on INFO->STREAM.
   Return the size of the instruction (always 4 on dlx).  */

static unsigned char
dlx_get_opcode (unsigned long opcode)
{
  return (unsigned char) ((opcode >> 26) & 0x3F);
}

static unsigned char
dlx_get_rs1 (unsigned long opcode)
{
  return (unsigned char) ((opcode >> 21) & 0x1F);
}

static unsigned char
dlx_get_rs2 (unsigned long opcode)
{
  return (unsigned char) ((opcode >> 16) & 0x1F);
}

static unsigned char
dlx_get_rdR (unsigned long opcode)
{
  return (unsigned char) ((opcode >> 11) & 0x1F);
}

static unsigned long
dlx_get_func (unsigned long opcode)
{
  return (unsigned char) (opcode & 0x7FF);
}

static unsigned long
dlx_get_imm16 (unsigned long opcode)
{
  return (unsigned long) (opcode & 0xFFFF);
}

static unsigned long
dlx_get_imm26 (unsigned long opcode)
{
  return (unsigned long) (opcode & 0x03FFFFFF);
}

/* Fill the opcode to the max length.  */

static void
operand_deliminator (struct disassemble_info *info, char *ptr)
{
  int difft = 8 - (int) strlen (ptr);

  while (difft > 0)
    {
      (*info->fprintf_func) (info->stream, "%c", ' ');
      difft -= 1;
    }
}

/* Process the R-type opcode.  */

static unsigned char
dlx_r_type (struct disassemble_info *info)
{
  unsigned char r_opc[] = { OPC(ALUOP) }; /* Fix ME */
  int r_opc_num = (sizeof r_opc) / (sizeof (char));
  struct _r_opcode
  {
    unsigned long func;
    char *name;
  }
  dlx_r_opcode[] =
  {
    { NOPF,     "nop"    },  /* NOP                          */
    { ADDF,     "add"    },  /* Add                          */
    { ADDUF,    "addu"   },  /* Add Unsigned                 */
    { SUBF,     "sub"    },  /* SUB                          */
    { SUBUF,    "subu"   },  /* Sub Unsigned                 */
    { MULTF,    "mult"   },  /* MULTIPLY                     */
    { MULTUF,   "multu"  },  /* MULTIPLY Unsigned            */
    { DIVF,     "div"    },  /* DIVIDE                       */
    { DIVUF,    "divu"   },  /* DIVIDE Unsigned              */
    { ANDF,     "and"    },  /* AND                          */
    { ORF,      "or"     },  /* OR                           */
    { XORF,     "xor"    },  /* Exclusive OR                 */
    { SLLF,     "sll"    },  /* SHIFT LEFT LOGICAL           */
    { SRAF,     "sra"    },  /* SHIFT RIGHT ARITHMETIC       */
    { SRLF,     "srl"    },  /* SHIFT RIGHT LOGICAL          */
    { SEQF,     "seq"    },  /* Set if equal                 */
    { SNEF,     "sne"    },  /* Set if not equal             */
    { SLTF,     "slt"    },  /* Set if less                  */
    { SGTF,     "sgt"    },  /* Set if greater               */
    { SLEF,     "sle"    },  /* Set if less or equal         */
    { SGEF,     "sge"    },  /* Set if greater or equal      */
    { SEQUF,    "sequ"   },  /* Set if equal                 */
    { SNEUF,    "sneu"   },  /* Set if not equal             */
    { SLTUF,    "sltu"   },  /* Set if less                  */
    { SGTUF,    "sgtu"   },  /* Set if greater               */
    { SLEUF,    "sleu"   },  /* Set if less or equal         */
    { SGEUF,    "sgeu"   },  /* Set if greater or equal      */
    { MVTSF,    "mvts"   },  /* Move to special register     */
    { MVFSF,    "mvfs"   },  /* Move from special register   */
    { BSWAPF,   "bswap"  },  /* Byte swap ??                 */
    { LUTF,     "lut"    }   /* ????????? ??                 */
  };
  int dlx_r_opcode_num = (sizeof dlx_r_opcode) / (sizeof dlx_r_opcode[0]);
  int idx;

  for (idx = 0; idx < r_opc_num; idx++)
    {
      if (r_opc[idx] != opc)
	continue;
      else
	break;
    }

  if (idx == r_opc_num)
    return NIL;

  for (idx = 0 ; idx < dlx_r_opcode_num; idx++)
    if (dlx_r_opcode[idx].func == func)
      {
	(*info->fprintf_func) (info->stream, "%s", dlx_r_opcode[idx].name);

	if (func != NOPF)
	  {
	    /* This is not a nop.  */
	    operand_deliminator (info, dlx_r_opcode[idx].name);
	    (*info->fprintf_func) (info->stream, "r%d,", (int)rd);
	    (*info->fprintf_func) (info->stream, "r%d", (int)rs1);
	    if (func != MVTSF && func != MVFSF)
	      (*info->fprintf_func) (info->stream, ",r%d", (int)rs2);
	  }
	return (unsigned char) R_TYPE;
      }

  return (unsigned char) R_ERROR;
}

/* Process the memory read opcode.  */

static unsigned char
dlx_load_type (struct disassemble_info* info)
{
  struct _load_opcode
  {
    unsigned long opcode;
    char *name;
  }
  dlx_load_opcode[] =
  {
    { OPC(LHIOP),   "lhi" },  /* Load HI to register.           */
    { OPC(LBOP),     "lb" },  /* load byte sign extended.       */
    { OPC(LBUOP),   "lbu" },  /* load byte unsigned.            */
    { OPC(LSBUOP),"ldstbu"},  /* load store byte unsigned.      */
    { OPC(LHOP),     "lh" },  /* load halfword sign extended.   */
    { OPC(LHUOP),   "lhu" },  /* load halfword unsigned.        */
    { OPC(LSHUOP),"ldsthu"},  /* load store halfword unsigned.  */
    { OPC(LWOP),     "lw" },  /* load word.                     */
    { OPC(LSWOP), "ldstw" }   /* load store word.               */
  };
  int dlx_load_opcode_num =
    (sizeof dlx_load_opcode) / (sizeof dlx_load_opcode[0]);
  int idx;

  for (idx = 0 ; idx < dlx_load_opcode_num; idx++)
    if (dlx_load_opcode[idx].opcode == opc)
      {
	if (opc == OPC (LHIOP))
	  {
	    (*info->fprintf_func) (info->stream, "%s", dlx_load_opcode[idx].name);
	    operand_deliminator (info, dlx_load_opcode[idx].name);
	    (*info->fprintf_func) (info->stream, "r%d,", (int)rs2);
	    (*info->fprintf_func) (info->stream, "0x%04x", (int)imm16);
	  }
	else
	  {
	    (*info->fprintf_func) (info->stream, "%s", dlx_load_opcode[idx].name);
	    operand_deliminator (info, dlx_load_opcode[idx].name);
	    (*info->fprintf_func) (info->stream, "r%d,", (int)rs2);
	    (*info->fprintf_func) (info->stream, "0x%04x[r%d]", (int)imm16, (int)rs1);
	  }

	return (unsigned char) ILD_TYPE;
    }

  return (unsigned char) NIL;
}

/* Process the memory store opcode.  */

static unsigned char
dlx_store_type (struct disassemble_info* info)
{
  struct _store_opcode
  {
    unsigned long opcode;
    char *name;
  }
  dlx_store_opcode[] =
  {
    { OPC(SBOP),     "sb" },  /* Store byte.      */
    { OPC(SHOP),     "sh" },  /* Store halfword.  */
    { OPC(SWOP),     "sw" },  /* Store word.      */
  };
  int dlx_store_opcode_num =
    (sizeof dlx_store_opcode) / (sizeof dlx_store_opcode[0]);
  int idx;

  for (idx = 0 ; idx < dlx_store_opcode_num; idx++)
    if (dlx_store_opcode[idx].opcode == opc)
      {
	(*info->fprintf_func) (info->stream, "%s", dlx_store_opcode[idx].name);
	operand_deliminator (info, dlx_store_opcode[idx].name);
	(*info->fprintf_func) (info->stream, "0x%04x[r%d],", (int)imm16, (int)rs1);
	(*info->fprintf_func) (info->stream, "r%d", (int)rs2);
	return (unsigned char) IST_TYPE;
      }

  return (unsigned char) NIL;
}

/* Process the Arithmetic and Logical I-TYPE opcode.  */

static unsigned char
dlx_aluI_type (struct disassemble_info* info)
{
  struct _aluI_opcode
  {
    unsigned long opcode;
    char *name;
  }
  dlx_aluI_opcode[] =
  {
    { OPC(ADDIOP),   "addi"  },  /* Store byte.      */
    { OPC(ADDUIOP),  "addui" },  /* Store halfword.  */
    { OPC(SUBIOP),   "subi"  },  /* Store word.      */
    { OPC(SUBUIOP),  "subui" },  /* Store word.      */
    { OPC(ANDIOP),   "andi"  },  /* Store word.      */
    { OPC(ORIOP),    "ori"   },  /* Store word.      */
    { OPC(XORIOP),   "xori"  },  /* Store word.      */
    { OPC(SLLIOP),   "slli"  },  /* Store word.      */
    { OPC(SRAIOP),   "srai"  },  /* Store word.      */
    { OPC(SRLIOP),   "srli"  },  /* Store word.      */
    { OPC(SEQIOP),   "seqi"  },  /* Store word.      */
    { OPC(SNEIOP),   "snei"  },  /* Store word.      */
    { OPC(SLTIOP),   "slti"  },  /* Store word.      */
    { OPC(SGTIOP),   "sgti"  },  /* Store word.      */
    { OPC(SLEIOP),   "slei"  },  /* Store word.      */
    { OPC(SGEIOP),   "sgei"  },  /* Store word.      */
    { OPC(SEQUIOP),  "sequi" },  /* Store word.      */
    { OPC(SNEUIOP),  "sneui" },  /* Store word.      */
    { OPC(SLTUIOP),  "sltui" },  /* Store word.      */
    { OPC(SGTUIOP),  "sgtui" },  /* Store word.      */
    { OPC(SLEUIOP),  "sleui" },  /* Store word.      */
    { OPC(SGEUIOP),  "sgeui" },  /* Store word.      */
#if 0
    { OPC(MVTSOP),   "mvts"  },  /* Store word.      */
    { OPC(MVFSOP),   "mvfs"  },  /* Store word.      */
#endif
  };
  int dlx_aluI_opcode_num =
    (sizeof dlx_aluI_opcode) / (sizeof dlx_aluI_opcode[0]);
  int idx;

  for (idx = 0 ; idx < dlx_aluI_opcode_num; idx++)
    if (dlx_aluI_opcode[idx].opcode == opc)
      {
	(*info->fprintf_func) (info->stream, "%s", dlx_aluI_opcode[idx].name);
	operand_deliminator (info, dlx_aluI_opcode[idx].name);
	(*info->fprintf_func) (info->stream, "r%d,", (int)rs2);
	(*info->fprintf_func) (info->stream, "r%d,", (int)rs1);
	(*info->fprintf_func) (info->stream, "0x%04x", (int)imm16);

	return (unsigned char) IAL_TYPE;
      }

  return (unsigned char) NIL;
}

/* Process the branch instruction.  */

static unsigned char
dlx_br_type (struct disassemble_info* info)
{
  struct _br_opcode
  {
    unsigned long opcode;
    char *name;
  }
  dlx_br_opcode[] =
  {
    { OPC(BEQOP), "beqz" }, /* Store byte.  */
    { OPC(BNEOP), "bnez" }  /* Store halfword.  */
  };
  int dlx_br_opcode_num =
    (sizeof dlx_br_opcode) / (sizeof dlx_br_opcode[0]);
  int idx;

  for (idx = 0 ; idx < dlx_br_opcode_num; idx++)
    if (dlx_br_opcode[idx].opcode == opc)
      {
	if (imm16 & 0x00008000)
	  imm16 |= 0xFFFF0000;

	imm16 += (current_insn_addr + 4);
	(*info->fprintf_func) (info->stream, "%s", dlx_br_opcode[idx].name);
	operand_deliminator (info, dlx_br_opcode[idx].name);
	(*info->fprintf_func) (info->stream, "r%d,", (int) rs1);
	(*info->fprintf_func) (info->stream, "0x%08x", (int) imm16);

	return (unsigned char) IBR_TYPE;
      }

  return (unsigned char) NIL;
}

/* Process the jump instruction.  */

static unsigned char
dlx_jmp_type (struct disassemble_info* info)
{
  struct _jmp_opcode
  {
    unsigned long opcode;
    char *name;
  }
  dlx_jmp_opcode[] =
  {
    { OPC(JOP),         "j" },  /* Store byte.      */
    { OPC(JALOP),     "jal" },  /* Store halfword.  */
    { OPC(BREAKOP), "break" },  /* Store halfword.  */
    { OPC(TRAPOP),   "trap" },  /* Store halfword.  */
    { OPC(RFEOP),     "rfe" }   /* Store halfword.  */
  };
  int dlx_jmp_opcode_num =
    (sizeof dlx_jmp_opcode) / (sizeof dlx_jmp_opcode[0]);
  int idx;

  for (idx = 0 ; idx < dlx_jmp_opcode_num; idx++)
    if (dlx_jmp_opcode[idx].opcode == opc)
      {
	if (imm26 & 0x02000000)
	  imm26 |= 0xFC000000;

	imm26 += (current_insn_addr + 4);

	(*info->fprintf_func) (info->stream, "%s", dlx_jmp_opcode[idx].name);
	operand_deliminator (info, dlx_jmp_opcode[idx].name);
	(*info->fprintf_func) (info->stream, "0x%08x", (int)imm26);

	return (unsigned char) IJ_TYPE;
      }

  return (unsigned char) NIL;
}

/* Process the jump register instruction.  */

static unsigned char
dlx_jr_type (struct disassemble_info* info)
{
  struct _jr_opcode
  {
    unsigned long opcode;
    char *name;
  }
  dlx_jr_opcode[] =
  {
    { OPC(JROP),   "jr"    },  /* Store byte.  */
    { OPC(JALROP), "jalr"  }   /* Store halfword.  */
  };
  int dlx_jr_opcode_num =
    (sizeof dlx_jr_opcode) / (sizeof dlx_jr_opcode[0]);
  int idx;

  for (idx = 0 ; idx < dlx_jr_opcode_num; idx++)
    if (dlx_jr_opcode[idx].opcode == opc)
      {
	(*info->fprintf_func) (info->stream, "%s", dlx_jr_opcode[idx].name);
	operand_deliminator (info, dlx_jr_opcode[idx].name);
	(*info->fprintf_func) (info->stream, "r%d", (int)rs1);
	return (unsigned char) IJR_TYPE;
      }

  return (unsigned char) NIL;
}

typedef unsigned char (* dlx_insn) (struct disassemble_info *);

/* This is the main DLX insn handling routine.  */

int
print_insn_dlx (bfd_vma memaddr, struct disassemble_info* info)
{
  bfd_byte buffer[4];
  int insn_idx;
  unsigned long insn_word;
  dlx_insn dlx_insn_type[] =
  {
    dlx_r_type,
    dlx_load_type,
    dlx_store_type,
    dlx_aluI_type,
    dlx_br_type,
    dlx_jmp_type,
    dlx_jr_type,
    (dlx_insn) NULL
  };
  int dlx_insn_type_num = ((sizeof dlx_insn_type) / (sizeof (dlx_insn))) - 1;
  int status =
    (*info->read_memory_func) (memaddr, (bfd_byte *) &buffer[0], 4, info);

  if (status != 0)
    {
      (*info->memory_error_func) (status, memaddr, info);
      return -1;
    }

  /* Now decode the insn    */
  insn_word = bfd_getb32 (buffer);
  opc  = dlx_get_opcode (insn_word);
  rs1  = dlx_get_rs1 (insn_word);
  rs2  = dlx_get_rs2 (insn_word);
  rd   = dlx_get_rdR (insn_word);
  func = dlx_get_func (insn_word);
  imm16= dlx_get_imm16 (insn_word);
  imm26= dlx_get_imm26 (insn_word);

#if 0
  printf ("print_insn_big_dlx: opc = 0x%02x\n"
	  "                    rs1 = 0x%02x\n"
	  "                    rs2 = 0x%02x\n"
	  "                    rd  = 0x%02x\n"
	  "                  func  = 0x%08x\n"
	  "                 imm16  = 0x%08x\n"
	  "                 imm26  = 0x%08x\n",
	  opc, rs1, rs2, rd, func, imm16, imm26);
#endif

  /* Scan through all the insn type and print the insn out.  */
  current_insn_addr = (unsigned long) memaddr;

  for (insn_idx = 0; dlx_insn_type[insn_idx] != 0x0; insn_idx++)
    switch ((dlx_insn_type[insn_idx]) (info))
      {
	/* Found the correct opcode   */
      case R_TYPE:
      case ILD_TYPE:
      case IST_TYPE:
      case IAL_TYPE:
      case IBR_TYPE:
      case IJ_TYPE:
      case IJR_TYPE:
	return 4;

	/* Wrong insn type check next one. */
      default:
      case NIL:
	continue;

	/* All rest of the return code are not recongnized, treat it as error */
	/* we should never get here,  I hope! */
      case R_ERROR:
	return -1;
      }

  if (insn_idx ==  dlx_insn_type_num)
    /* Well, does not recoganize this opcode.  */
    (*info->fprintf_func) (info->stream, "<%s>", "Unrecognized Opcode");

  return 4;
}
Commit	Line	Data
d172d4ba	1	/* Instruction printing code for the DLX Microprocessor
fd67aa11	2	Copyright (C) 2002-2024 Free Software Foundation, Inc.
d172d4ba NC	3	Contributed by Kuang Hwa Lin. Written by Kuang Hwa Lin, 03/2002.
d172d4ba NC	4
9b201bb5 NC	5	This file is part of the GNU opcodes library.
	6
	7	This library is free software; you can redistribute it and/or modify
d172d4ba	8	it under the terms of the GNU General Public License as published by
9b201bb5 NC	9	the Free Software Foundation; either version 3, or (at your option)
9b201bb5 NC	10	any later version.
d172d4ba	11
9b201bb5 NC	12	It is distributed in the hope that it will be useful, but WITHOUT
	13	ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
	14	or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
	15	License for more details.
d172d4ba NC	16
	17	You should have received a copy of the GNU General Public License
	18	along with this program; if not, write to the Free Software
47b0e7ad NC	19	Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
47b0e7ad NC	20	MA 02110-1301, USA. */
d172d4ba NC	21
d172d4ba NC	22	#include "sysdep.h"
88c1242d	23	#include "disassemble.h"
d172d4ba NC	24	#include "opcode/dlx.h"
	25
	26	#define R_ERROR 0x1
	27	#define R_TYPE 0x2
	28	#define ILD_TYPE 0x3
	29	#define IST_TYPE 0x4
	30	#define IAL_TYPE 0x5
	31	#define IBR_TYPE 0x6
	32	#define IJ_TYPE 0x7
	33	#define IJR_TYPE 0x8
	34	#define NIL 0x9
	35
	36	#define OPC(x) ((x >> 26) & 0x3F)
	37	#define FUNC(x) (x & 0x7FF)
	38
	39	unsigned char opc, rs1, rs2, rd;
	40	unsigned long imm26, imm16, func, current_insn_addr;
	41
d172d4ba NC	42	/* Print one instruction from MEMADDR on INFO->STREAM.
	43	Return the size of the instruction (always 4 on dlx). */
	44
	45	static unsigned char
47b0e7ad	46	dlx_get_opcode (unsigned long opcode)
d172d4ba NC	47	{
	48	return (unsigned char) ((opcode >> 26) & 0x3F);
	49	}
	50
	51	static unsigned char
47b0e7ad	52	dlx_get_rs1 (unsigned long opcode)
d172d4ba NC	53	{
	54	return (unsigned char) ((opcode >> 21) & 0x1F);
	55	}
	56
	57	static unsigned char
47b0e7ad	58	dlx_get_rs2 (unsigned long opcode)
d172d4ba NC	59	{
	60	return (unsigned char) ((opcode >> 16) & 0x1F);
	61	}
	62
	63	static unsigned char
47b0e7ad	64	dlx_get_rdR (unsigned long opcode)
d172d4ba NC	65	{
	66	return (unsigned char) ((opcode >> 11) & 0x1F);
	67	}
	68
	69	static unsigned long
47b0e7ad	70	dlx_get_func (unsigned long opcode)
d172d4ba NC	71	{
	72	return (unsigned char) (opcode & 0x7FF);
	73	}
	74
	75	static unsigned long
47b0e7ad	76	dlx_get_imm16 (unsigned long opcode)
d172d4ba NC	77	{
	78	return (unsigned long) (opcode & 0xFFFF);
	79	}
	80
	81	static unsigned long
47b0e7ad	82	dlx_get_imm26 (unsigned long opcode)
d172d4ba NC	83	{
	84	return (unsigned long) (opcode & 0x03FFFFFF);
	85	}
	86
	87	/* Fill the opcode to the max length. */
47b0e7ad	88
d172d4ba	89	static void
47b0e7ad	90	operand_deliminator (struct disassemble_info info, char ptr)
d172d4ba NC	91	{
	92	int difft = 8 - (int) strlen (ptr);
	93
	94	while (difft > 0)
	95	{
	96	(*info->fprintf_func) (info->stream, "%c", ' ');
	97	difft -= 1;
	98	}
	99	}
	100
	101	/* Process the R-type opcode. */
47b0e7ad	102
d172d4ba	103	static unsigned char
47b0e7ad	104	dlx_r_type (struct disassemble_info *info)
d172d4ba NC	105	{
	106	unsigned char r_opc[] = { OPC(ALUOP) }; /* Fix ME */
	107	int r_opc_num = (sizeof r_opc) / (sizeof (char));
	108	struct _r_opcode
	109	{
	110	unsigned long func;
	111	char *name;
	112	}
	113	dlx_r_opcode[] =
47b0e7ad	114	{
d172d4ba NC	115	{ NOPF, "nop" }, /* NOP */
	116	{ ADDF, "add" }, /* Add */
	117	{ ADDUF, "addu" }, /* Add Unsigned */
	118	{ SUBF, "sub" }, /* SUB */
	119	{ SUBUF, "subu" }, /* Sub Unsigned */
	120	{ MULTF, "mult" }, /* MULTIPLY */
	121	{ MULTUF, "multu" }, /* MULTIPLY Unsigned */
	122	{ DIVF, "div" }, /* DIVIDE */
	123	{ DIVUF, "divu" }, /* DIVIDE Unsigned */
	124	{ ANDF, "and" }, /* AND */
	125	{ ORF, "or" }, /* OR */
	126	{ XORF, "xor" }, /* Exclusive OR */
	127	{ SLLF, "sll" }, /* SHIFT LEFT LOGICAL */
	128	{ SRAF, "sra" }, /* SHIFT RIGHT ARITHMETIC */
	129	{ SRLF, "srl" }, /* SHIFT RIGHT LOGICAL */
	130	{ SEQF, "seq" }, /* Set if equal */
	131	{ SNEF, "sne" }, /* Set if not equal */
	132	{ SLTF, "slt" }, /* Set if less */
	133	{ SGTF, "sgt" }, /* Set if greater */
	134	{ SLEF, "sle" }, /* Set if less or equal */
	135	{ SGEF, "sge" }, /* Set if greater or equal */
	136	{ SEQUF, "sequ" }, /* Set if equal */
	137	{ SNEUF, "sneu" }, /* Set if not equal */
	138	{ SLTUF, "sltu" }, /* Set if less */
	139	{ SGTUF, "sgtu" }, /* Set if greater */
	140	{ SLEUF, "sleu" }, /* Set if less or equal */
	141	{ SGEUF, "sgeu" }, /* Set if greater or equal */
	142	{ MVTSF, "mvts" }, /* Move to special register */
	143	{ MVFSF, "mvfs" }, /* Move from special register */
	144	{ BSWAPF, "bswap" }, /* Byte swap ?? */
	145	{ LUTF, "lut" } /* ????????? ?? */
	146	};
	147	int dlx_r_opcode_num = (sizeof dlx_r_opcode) / (sizeof dlx_r_opcode[0]);
	148	int idx;
	149
	150	for (idx = 0; idx < r_opc_num; idx++)
	151	{
	152	if (r_opc[idx] != opc)
	153	continue;
	154	else
	155	break;
47b0e7ad	156	}
d172d4ba NC	157
	158	if (idx == r_opc_num)
	159	return NIL;
	160
	161	for (idx = 0 ; idx < dlx_r_opcode_num; idx++)
	162	if (dlx_r_opcode[idx].func == func)
	163	{
	164	(*info->fprintf_func) (info->stream, "%s", dlx_r_opcode[idx].name);
	165
	166	if (func != NOPF)
	167	{
	168	/* This is not a nop. */
	169	operand_deliminator (info, dlx_r_opcode[idx].name);
	170	(*info->fprintf_func) (info->stream, "r%d,", (int)rd);
	171	(*info->fprintf_func) (info->stream, "r%d", (int)rs1);
	172	if (func != MVTSF && func != MVFSF)
	173	(*info->fprintf_func) (info->stream, ",r%d", (int)rs2);
	174	}
	175	return (unsigned char) R_TYPE;
	176	}
	177
	178	return (unsigned char) R_ERROR;
	179	}
	180
	181	/* Process the memory read opcode. */
	182
	183	static unsigned char
47b0e7ad	184	dlx_load_type (struct disassemble_info* info)
d172d4ba NC	185	{
	186	struct _load_opcode
	187	{
	188	unsigned long opcode;
	189	char *name;
	190	}
	191	dlx_load_opcode[] =
47b0e7ad NC	192	{
	193	{ OPC(LHIOP), "lhi" }, /* Load HI to register. */
	194	{ OPC(LBOP), "lb" }, /* load byte sign extended. */
	195	{ OPC(LBUOP), "lbu" }, /* load byte unsigned. */
	196	{ OPC(LSBUOP),"ldstbu"}, /* load store byte unsigned. */
	197	{ OPC(LHOP), "lh" }, /* load halfword sign extended. */
	198	{ OPC(LHUOP), "lhu" }, /* load halfword unsigned. */
	199	{ OPC(LSHUOP),"ldsthu"}, /* load store halfword unsigned. */
	200	{ OPC(LWOP), "lw" }, /* load word. */
	201	{ OPC(LSWOP), "ldstw" } /* load store word. */
	202	};
d172d4ba NC	203	int dlx_load_opcode_num =
	204	(sizeof dlx_load_opcode) / (sizeof dlx_load_opcode[0]);
	205	int idx;
	206
	207	for (idx = 0 ; idx < dlx_load_opcode_num; idx++)
	208	if (dlx_load_opcode[idx].opcode == opc)
	209	{
	210	if (opc == OPC (LHIOP))
	211	{
	212	(*info->fprintf_func) (info->stream, "%s", dlx_load_opcode[idx].name);
	213	operand_deliminator (info, dlx_load_opcode[idx].name);
	214	(*info->fprintf_func) (info->stream, "r%d,", (int)rs2);
	215	(*info->fprintf_func) (info->stream, "0x%04x", (int)imm16);
	216	}
	217	else
	218	{
	219	(*info->fprintf_func) (info->stream, "%s", dlx_load_opcode[idx].name);
	220	operand_deliminator (info, dlx_load_opcode[idx].name);
	221	(*info->fprintf_func) (info->stream, "r%d,", (int)rs2);
	222	(*info->fprintf_func) (info->stream, "0x%04x[r%d]", (int)imm16, (int)rs1);
	223	}
	224
	225	return (unsigned char) ILD_TYPE;
	226	}
	227
	228	return (unsigned char) NIL;
	229	}
	230
	231	/* Process the memory store opcode. */
	232
	233	static unsigned char
47b0e7ad	234	dlx_store_type (struct disassemble_info* info)
d172d4ba NC	235	{
	236	struct _store_opcode
	237	{
	238	unsigned long opcode;
	239	char *name;
	240	}
	241	dlx_store_opcode[] =
47b0e7ad NC	242	{
	243	{ OPC(SBOP), "sb" }, /* Store byte. */
	244	{ OPC(SHOP), "sh" }, /* Store halfword. */
	245	{ OPC(SWOP), "sw" }, /* Store word. */
	246	};
d172d4ba NC	247	int dlx_store_opcode_num =
	248	(sizeof dlx_store_opcode) / (sizeof dlx_store_opcode[0]);
	249	int idx;
	250
	251	for (idx = 0 ; idx < dlx_store_opcode_num; idx++)
	252	if (dlx_store_opcode[idx].opcode == opc)
	253	{
	254	(*info->fprintf_func) (info->stream, "%s", dlx_store_opcode[idx].name);
	255	operand_deliminator (info, dlx_store_opcode[idx].name);
	256	(*info->fprintf_func) (info->stream, "0x%04x[r%d],", (int)imm16, (int)rs1);
	257	(*info->fprintf_func) (info->stream, "r%d", (int)rs2);
	258	return (unsigned char) IST_TYPE;
	259	}
	260
	261	return (unsigned char) NIL;
	262	}
	263
	264	/* Process the Arithmetic and Logical I-TYPE opcode. */
	265
	266	static unsigned char
47b0e7ad	267	dlx_aluI_type (struct disassemble_info* info)
d172d4ba NC	268	{
	269	struct _aluI_opcode
	270	{
	271	unsigned long opcode;
	272	char *name;
	273	}
	274	dlx_aluI_opcode[] =
47b0e7ad NC	275	{
	276	{ OPC(ADDIOP), "addi" }, /* Store byte. */
	277	{ OPC(ADDUIOP), "addui" }, /* Store halfword. */
	278	{ OPC(SUBIOP), "subi" }, /* Store word. */
	279	{ OPC(SUBUIOP), "subui" }, /* Store word. */
	280	{ OPC(ANDIOP), "andi" }, /* Store word. */
	281	{ OPC(ORIOP), "ori" }, /* Store word. */
	282	{ OPC(XORIOP), "xori" }, /* Store word. */
	283	{ OPC(SLLIOP), "slli" }, /* Store word. */
	284	{ OPC(SRAIOP), "srai" }, /* Store word. */
	285	{ OPC(SRLIOP), "srli" }, /* Store word. */
	286	{ OPC(SEQIOP), "seqi" }, /* Store word. */
	287	{ OPC(SNEIOP), "snei" }, /* Store word. */
	288	{ OPC(SLTIOP), "slti" }, /* Store word. */
	289	{ OPC(SGTIOP), "sgti" }, /* Store word. */
	290	{ OPC(SLEIOP), "slei" }, /* Store word. */
	291	{ OPC(SGEIOP), "sgei" }, /* Store word. */
	292	{ OPC(SEQUIOP), "sequi" }, /* Store word. */
	293	{ OPC(SNEUIOP), "sneui" }, /* Store word. */
	294	{ OPC(SLTUIOP), "sltui" }, /* Store word. */
	295	{ OPC(SGTUIOP), "sgtui" }, /* Store word. */
	296	{ OPC(SLEUIOP), "sleui" }, /* Store word. */
	297	{ OPC(SGEUIOP), "sgeui" }, /* Store word. */
43e65147	298	#if 0
47b0e7ad NC	299	{ OPC(MVTSOP), "mvts" }, /* Store word. */
47b0e7ad NC	300	{ OPC(MVFSOP), "mvfs" }, /* Store word. */
d172d4ba	301	#endif
47b0e7ad	302	};
d172d4ba NC	303	int dlx_aluI_opcode_num =
	304	(sizeof dlx_aluI_opcode) / (sizeof dlx_aluI_opcode[0]);
	305	int idx;
	306
	307	for (idx = 0 ; idx < dlx_aluI_opcode_num; idx++)
	308	if (dlx_aluI_opcode[idx].opcode == opc)
	309	{
	310	(*info->fprintf_func) (info->stream, "%s", dlx_aluI_opcode[idx].name);
	311	operand_deliminator (info, dlx_aluI_opcode[idx].name);
	312	(*info->fprintf_func) (info->stream, "r%d,", (int)rs2);
	313	(*info->fprintf_func) (info->stream, "r%d,", (int)rs1);
	314	(*info->fprintf_func) (info->stream, "0x%04x", (int)imm16);
	315
	316	return (unsigned char) IAL_TYPE;
	317	}
	318
	319	return (unsigned char) NIL;
	320	}
	321
	322	/* Process the branch instruction. */
	323
	324	static unsigned char
47b0e7ad	325	dlx_br_type (struct disassemble_info* info)
d172d4ba NC	326	{
	327	struct _br_opcode
	328	{
	329	unsigned long opcode;
	330	char *name;
	331	}
	332	dlx_br_opcode[] =
47b0e7ad NC	333	{
	334	{ OPC(BEQOP), "beqz" }, /* Store byte. */
	335	{ OPC(BNEOP), "bnez" } /* Store halfword. */
	336	};
d172d4ba NC	337	int dlx_br_opcode_num =
	338	(sizeof dlx_br_opcode) / (sizeof dlx_br_opcode[0]);
	339	int idx;
	340
	341	for (idx = 0 ; idx < dlx_br_opcode_num; idx++)
	342	if (dlx_br_opcode[idx].opcode == opc)
	343	{
	344	if (imm16 & 0x00008000)
	345	imm16 \|= 0xFFFF0000;
	346
	347	imm16 += (current_insn_addr + 4);
	348	(*info->fprintf_func) (info->stream, "%s", dlx_br_opcode[idx].name);
	349	operand_deliminator (info, dlx_br_opcode[idx].name);
47b0e7ad NC	350	(*info->fprintf_func) (info->stream, "r%d,", (int) rs1);
47b0e7ad NC	351	(*info->fprintf_func) (info->stream, "0x%08x", (int) imm16);
d172d4ba NC	352
	353	return (unsigned char) IBR_TYPE;
	354	}
	355
	356	return (unsigned char) NIL;
	357	}
	358
	359	/* Process the jump instruction. */
	360
	361	static unsigned char
47b0e7ad	362	dlx_jmp_type (struct disassemble_info* info)
d172d4ba NC	363	{
	364	struct _jmp_opcode
	365	{
	366	unsigned long opcode;
	367	char *name;
	368	}
	369	dlx_jmp_opcode[] =
47b0e7ad NC	370	{
	371	{ OPC(JOP), "j" }, /* Store byte. */
	372	{ OPC(JALOP), "jal" }, /* Store halfword. */
	373	{ OPC(BREAKOP), "break" }, /* Store halfword. */
	374	{ OPC(TRAPOP), "trap" }, /* Store halfword. */
	375	{ OPC(RFEOP), "rfe" } /* Store halfword. */
	376	};
d172d4ba NC	377	int dlx_jmp_opcode_num =
	378	(sizeof dlx_jmp_opcode) / (sizeof dlx_jmp_opcode[0]);
	379	int idx;
	380
	381	for (idx = 0 ; idx < dlx_jmp_opcode_num; idx++)
	382	if (dlx_jmp_opcode[idx].opcode == opc)
	383	{
	384	if (imm26 & 0x02000000)
	385	imm26 \|= 0xFC000000;
	386
	387	imm26 += (current_insn_addr + 4);
	388
	389	(*info->fprintf_func) (info->stream, "%s", dlx_jmp_opcode[idx].name);
	390	operand_deliminator (info, dlx_jmp_opcode[idx].name);
	391	(*info->fprintf_func) (info->stream, "0x%08x", (int)imm26);
	392
	393	return (unsigned char) IJ_TYPE;
	394	}
	395
	396	return (unsigned char) NIL;
	397	}
	398
	399	/* Process the jump register instruction. */
	400
	401	static unsigned char
47b0e7ad	402	dlx_jr_type (struct disassemble_info* info)
d172d4ba NC	403	{
	404	struct _jr_opcode
	405	{
	406	unsigned long opcode;
	407	char *name;
	408	}
47b0e7ad NC	409	dlx_jr_opcode[] =
47b0e7ad NC	410	{
d172d4ba NC	411	{ OPC(JROP), "jr" }, /* Store byte. */
	412	{ OPC(JALROP), "jalr" } /* Store halfword. */
	413	};
	414	int dlx_jr_opcode_num =
	415	(sizeof dlx_jr_opcode) / (sizeof dlx_jr_opcode[0]);
	416	int idx;
	417
	418	for (idx = 0 ; idx < dlx_jr_opcode_num; idx++)
	419	if (dlx_jr_opcode[idx].opcode == opc)
	420	{
	421	(*info->fprintf_func) (info->stream, "%s", dlx_jr_opcode[idx].name);
	422	operand_deliminator (info, dlx_jr_opcode[idx].name);
	423	(*info->fprintf_func) (info->stream, "r%d", (int)rs1);
	424	return (unsigned char) IJR_TYPE;
	425	}
	426
	427	return (unsigned char) NIL;
	428	}
	429
47b0e7ad	430	typedef unsigned char (* dlx_insn) (struct disassemble_info *);
d172d4ba NC	431
	432	/* This is the main DLX insn handling routine. */
	433
	434	int
47b0e7ad	435	print_insn_dlx (bfd_vma memaddr, struct disassemble_info* info)
d172d4ba NC	436	{
	437	bfd_byte buffer[4];
	438	int insn_idx;
	439	unsigned long insn_word;
8901a3cd	440	dlx_insn dlx_insn_type[] =
47b0e7ad	441	{
8901a3cd PM	442	dlx_r_type,
	443	dlx_load_type,
	444	dlx_store_type,
	445	dlx_aluI_type,
	446	dlx_br_type,
	447	dlx_jmp_type,
	448	dlx_jr_type,
	449	(dlx_insn) NULL
d172d4ba	450	};
8901a3cd	451	int dlx_insn_type_num = ((sizeof dlx_insn_type) / (sizeof (dlx_insn))) - 1;
d172d4ba NC	452	int status =
	453	(info->read_memory_func) (memaddr, (bfd_byte ) &buffer[0], 4, info);
	454
	455	if (status != 0)
	456	{
	457	(*info->memory_error_func) (status, memaddr, info);
	458	return -1;
	459	}
	460
	461	/* Now decode the insn */
	462	insn_word = bfd_getb32 (buffer);
	463	opc = dlx_get_opcode (insn_word);
	464	rs1 = dlx_get_rs1 (insn_word);
	465	rs2 = dlx_get_rs2 (insn_word);
	466	rd = dlx_get_rdR (insn_word);
	467	func = dlx_get_func (insn_word);
	468	imm16= dlx_get_imm16 (insn_word);
	469	imm26= dlx_get_imm26 (insn_word);
	470
	471	#if 0
	472	printf ("print_insn_big_dlx: opc = 0x%02x\n"
	473	" rs1 = 0x%02x\n"
	474	" rs2 = 0x%02x\n"
	475	" rd = 0x%02x\n"
	476	" func = 0x%08x\n"
	477	" imm16 = 0x%08x\n"
	478	" imm26 = 0x%08x\n",
	479	opc, rs1, rs2, rd, func, imm16, imm26);
	480	#endif
	481
	482	/* Scan through all the insn type and print the insn out. */
d172d4ba NC	483	current_insn_addr = (unsigned long) memaddr;
	484
	485	for (insn_idx = 0; dlx_insn_type[insn_idx] != 0x0; insn_idx++)
8901a3cd	486	switch ((dlx_insn_type[insn_idx]) (info))
d172d4ba NC	487	{
	488	/* Found the correct opcode */
	489	case R_TYPE:
	490	case ILD_TYPE:
	491	case IST_TYPE:
	492	case IAL_TYPE:
	493	case IBR_TYPE:
	494	case IJ_TYPE:
	495	case IJR_TYPE:
	496	return 4;
	497
	498	/* Wrong insn type check next one. */
	499	default:
	500	case NIL:
	501	continue;
	502
	503	/* All rest of the return code are not recongnized, treat it as error */
	504	/* we should never get here, I hope! */
	505	case R_ERROR:
	506	return -1;
	507	}
	508
	509	if (insn_idx == dlx_insn_type_num)
	510	/* Well, does not recoganize this opcode. */
	511	(*info->fprintf_func) (info->stream, "<%s>", "Unrecognized Opcode");
	512
	513	return 4;
	514	}