Subversion Repositories or1k

/* Opcode table for TI TMS320C80 (MVP).

   Copyright 1996, 1997, 2000 Free Software Foundation, Inc.

This file is part of GDB, GAS, and the GNU binutils.

GDB, GAS, and the GNU binutils are free software; you can redistribute

them and/or modify them under the terms of the GNU General Public

License as published by the Free Software Foundation; either version

1, or (at your option) any later version.

GDB, GAS, and the GNU binutils are distributed in the hope that they

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 file; see the file COPYING.  If not, write to the Free

Software Foundation, 59 Temple Place - Suite 330, Boston, MA

02111-1307, USA.  */

#include <stdio.h>

#include "sysdep.h"

#include "opcode/tic80.h"

/* This file holds various tables for the TMS320C80 (MVP).

   The opcode table is strictly constant data, so the compiler should

   be able to put it in the .text section.

   This file also holds the operand table.  All knowledge about

   inserting operands into instructions and vice-versa is kept in this

   file.

   The predefined register table maps from register names to register

   values.  */

/* Table of predefined symbol names, such as general purpose registers,

   floating point registers, condition codes, control registers, and bit

   numbers.

   The table is sorted case independently by name so that it is suitable for

   searching via a binary search using a case independent comparison

   function.

   Note that the type of the symbol is stored in the upper bits of the value

   field, which allows the value and type to be passed around as a unit in a

   single int.  The types have to be masked off before using the numeric

   value as a number.

*/

const struct predefined_symbol tic80_predefined_symbols[] =

{

  { "a0",       TIC80_OPERAND_FPA | 0 },

  { "a1",       TIC80_OPERAND_FPA | 1 },

  { "alw.b",    TIC80_OPERAND_CC | 7 },

  { "alw.h",    TIC80_OPERAND_CC | 15 },

  { "alw.w",    TIC80_OPERAND_CC | 23 },

  { "ANASTAT",  TIC80_OPERAND_CR | 0x34 },

  { "BRK1",     TIC80_OPERAND_CR | 0x39 },

  { "BRK2",     TIC80_OPERAND_CR | 0x3A },

  { "CONFIG",   TIC80_OPERAND_CR | 2 },

  { "DLRU",     TIC80_OPERAND_CR | 0x500 },

  { "DTAG0",    TIC80_OPERAND_CR | 0x400 },

  { "DTAG1",    TIC80_OPERAND_CR | 0x401 },

  { "DTAG10",   TIC80_OPERAND_CR | 0x40A },

  { "DTAG11",   TIC80_OPERAND_CR | 0x40B },

  { "DTAG12",   TIC80_OPERAND_CR | 0x40C },

  { "DTAG13",   TIC80_OPERAND_CR | 0x40D },

  { "DTAG14",   TIC80_OPERAND_CR | 0x40E },

  { "DTAG15",   TIC80_OPERAND_CR | 0x40F },

  { "DTAG2",    TIC80_OPERAND_CR | 0x402 },

  { "DTAG3",    TIC80_OPERAND_CR | 0x403 },

  { "DTAG4",    TIC80_OPERAND_CR | 0x404 },

  { "DTAG5",    TIC80_OPERAND_CR | 0x405 },

  { "DTAG6",    TIC80_OPERAND_CR | 0x406 },

  { "DTAG7",    TIC80_OPERAND_CR | 0x407 },

  { "DTAG8",    TIC80_OPERAND_CR | 0x408 },

  { "DTAG9",    TIC80_OPERAND_CR | 0x409 },

  { "ECOMCNTL", TIC80_OPERAND_CR | 0x33 },

  { "EIP",      TIC80_OPERAND_CR | 1 },

  { "EPC",      TIC80_OPERAND_CR | 0 },

  { "eq.b",     TIC80_OPERAND_BITNUM  | 0 },

  { "eq.f",     TIC80_OPERAND_BITNUM  | 20 },

  { "eq.h",     TIC80_OPERAND_BITNUM  | 10 },

  { "eq.w",     TIC80_OPERAND_BITNUM  | 20 },

  { "eq0.b",    TIC80_OPERAND_CC | 2 },

  { "eq0.h",    TIC80_OPERAND_CC | 10 },

  { "eq0.w",    TIC80_OPERAND_CC | 18 },

  { "FLTADR",   TIC80_OPERAND_CR | 0x11 },

  { "FLTDTH",   TIC80_OPERAND_CR | 0x14 },

  { "FLTDTL",   TIC80_OPERAND_CR | 0x13 },

  { "FLTOP",    TIC80_OPERAND_CR | 0x10 },

  { "FLTTAG",   TIC80_OPERAND_CR | 0x12 },

  { "FPST",     TIC80_OPERAND_CR | 8 },

  { "ge.b",     TIC80_OPERAND_BITNUM  | 5 },

  { "ge.f",     TIC80_OPERAND_BITNUM  | 25 },

  { "ge.h",     TIC80_OPERAND_BITNUM  | 15 },

  { "ge.w",     TIC80_OPERAND_BITNUM  | 25 },

  { "ge0.b",    TIC80_OPERAND_CC | 3 },

  { "ge0.h",    TIC80_OPERAND_CC | 11 },

  { "ge0.w",    TIC80_OPERAND_CC | 19 },

  { "gt.b",     TIC80_OPERAND_BITNUM  | 2 },

  { "gt.f",     TIC80_OPERAND_BITNUM  | 22 },

  { "gt.h",     TIC80_OPERAND_BITNUM  | 12 },

  { "gt.w",     TIC80_OPERAND_BITNUM  | 22 },

  { "gt0.b",    TIC80_OPERAND_CC | 1 },

  { "gt0.h",    TIC80_OPERAND_CC | 9 },

  { "gt0.w",    TIC80_OPERAND_CC | 17 },

  { "hi.b",     TIC80_OPERAND_BITNUM  | 6 },

  { "hi.h",     TIC80_OPERAND_BITNUM  | 16 },

  { "hi.w",     TIC80_OPERAND_BITNUM  | 26 },

  { "hs.b",     TIC80_OPERAND_BITNUM  | 9 },

  { "hs.h",     TIC80_OPERAND_BITNUM  | 19 },

  { "hs.w",     TIC80_OPERAND_BITNUM  | 29 },

  { "ib.f",     TIC80_OPERAND_BITNUM  | 28 },

  { "IE",       TIC80_OPERAND_CR | 6 },

  { "ILRU",     TIC80_OPERAND_CR | 0x300 },

  { "in.f",     TIC80_OPERAND_BITNUM  | 27 },

  { "IN0P",     TIC80_OPERAND_CR | 0x4000 },

  { "IN1P",     TIC80_OPERAND_CR | 0x4001 },

  { "INTPEN",   TIC80_OPERAND_CR | 4 },

  { "ITAG0",    TIC80_OPERAND_CR | 0x200 },

  { "ITAG1",    TIC80_OPERAND_CR | 0x201 },

  { "ITAG10",   TIC80_OPERAND_CR | 0x20A },

  { "ITAG11",   TIC80_OPERAND_CR | 0x20B },

  { "ITAG12",   TIC80_OPERAND_CR | 0x20C },

  { "ITAG13",   TIC80_OPERAND_CR | 0x20D },

  { "ITAG14",   TIC80_OPERAND_CR | 0x20E },

  { "ITAG15",   TIC80_OPERAND_CR | 0x20F },

  { "ITAG2",    TIC80_OPERAND_CR | 0x202 },

  { "ITAG3",    TIC80_OPERAND_CR | 0x203 },

  { "ITAG4",    TIC80_OPERAND_CR | 0x204 },

  { "ITAG5",    TIC80_OPERAND_CR | 0x205 },

  { "ITAG6",    TIC80_OPERAND_CR | 0x206 },

  { "ITAG7",    TIC80_OPERAND_CR | 0x207 },

  { "ITAG8",    TIC80_OPERAND_CR | 0x208 },

  { "ITAG9",    TIC80_OPERAND_CR | 0x209 },

  { "le.b",     TIC80_OPERAND_BITNUM  | 3 },

  { "le.f",     TIC80_OPERAND_BITNUM  | 23 },

  { "le.h",     TIC80_OPERAND_BITNUM  | 13 },

  { "le.w",     TIC80_OPERAND_BITNUM  | 23 },

  { "le0.b",    TIC80_OPERAND_CC | 6 },

  { "le0.h",    TIC80_OPERAND_CC | 14 },

  { "le0.w",    TIC80_OPERAND_CC | 22 },

  { "lo.b",     TIC80_OPERAND_BITNUM  | 8 },

  { "lo.h",     TIC80_OPERAND_BITNUM  | 18 },

  { "lo.w",     TIC80_OPERAND_BITNUM  | 28 },

  { "ls.b",     TIC80_OPERAND_BITNUM  | 7 },

  { "ls.h",     TIC80_OPERAND_BITNUM  | 17 },

  { "ls.w",     TIC80_OPERAND_BITNUM  | 27 },

  { "lt.b",     TIC80_OPERAND_BITNUM  | 4 },

  { "lt.f",     TIC80_OPERAND_BITNUM  | 24 },

  { "lt.h",     TIC80_OPERAND_BITNUM  | 14 },

  { "lt.w",     TIC80_OPERAND_BITNUM  | 24 },

  { "lt0.b",    TIC80_OPERAND_CC | 4 },

  { "lt0.h",    TIC80_OPERAND_CC | 12 },

  { "lt0.w",    TIC80_OPERAND_CC | 20 },

  { "MIP",      TIC80_OPERAND_CR | 0x31 },

  { "MPC",      TIC80_OPERAND_CR | 0x30 },

  { "ne.b",     TIC80_OPERAND_BITNUM  | 1 },

  { "ne.f",     TIC80_OPERAND_BITNUM  | 21 },

  { "ne.h",     TIC80_OPERAND_BITNUM  | 11 },

  { "ne.w",     TIC80_OPERAND_BITNUM  | 21 },

  { "ne0.b",    TIC80_OPERAND_CC | 5 },

  { "ne0.h",    TIC80_OPERAND_CC | 13 },

  { "ne0.w",    TIC80_OPERAND_CC | 21 },

  { "nev.b",    TIC80_OPERAND_CC | 0 },

  { "nev.h",    TIC80_OPERAND_CC | 8 },

  { "nev.w",    TIC80_OPERAND_CC | 16 },

  { "ob.f",     TIC80_OPERAND_BITNUM  | 29 },

  { "or.f",     TIC80_OPERAND_BITNUM  | 31 },

  { "ou.f",     TIC80_OPERAND_BITNUM  | 26 },

  { "OUTP",     TIC80_OPERAND_CR | 0x4002 },

  { "PKTREQ",   TIC80_OPERAND_CR | 0xD },

  { "PPERROR",  TIC80_OPERAND_CR | 0xA },

  { "r0",       TIC80_OPERAND_GPR | 0 },

  { "r1",       TIC80_OPERAND_GPR | 1 },

  { "r10",      TIC80_OPERAND_GPR | 10 },

  { "r11",      TIC80_OPERAND_GPR | 11 },

  { "r12",      TIC80_OPERAND_GPR | 12 },

  { "r13",      TIC80_OPERAND_GPR | 13 },

  { "r14",      TIC80_OPERAND_GPR | 14 },

  { "r15",      TIC80_OPERAND_GPR | 15 },

  { "r16",      TIC80_OPERAND_GPR | 16 },

  { "r17",      TIC80_OPERAND_GPR | 17 },

  { "r18",      TIC80_OPERAND_GPR | 18 },

  { "r19",      TIC80_OPERAND_GPR | 19 },

  { "r2",       TIC80_OPERAND_GPR | 2 },

  { "r20",      TIC80_OPERAND_GPR | 20 },

  { "r21",      TIC80_OPERAND_GPR | 21 },

  { "r22",      TIC80_OPERAND_GPR | 22 },

  { "r23",      TIC80_OPERAND_GPR | 23 },

  { "r24",      TIC80_OPERAND_GPR | 24 },

  { "r25",      TIC80_OPERAND_GPR | 25 },

  { "r26",      TIC80_OPERAND_GPR | 26 },

  { "r27",      TIC80_OPERAND_GPR | 27 },

  { "r28",      TIC80_OPERAND_GPR | 28 },

  { "r29",      TIC80_OPERAND_GPR | 29 },

  { "r3",       TIC80_OPERAND_GPR | 3 },

  { "r30",      TIC80_OPERAND_GPR | 30 },

  { "r31",      TIC80_OPERAND_GPR | 31 },

  { "r4",       TIC80_OPERAND_GPR | 4 },

  { "r5",       TIC80_OPERAND_GPR | 5 },

  { "r6",       TIC80_OPERAND_GPR | 6 },

  { "r7",       TIC80_OPERAND_GPR | 7 },

  { "r8",       TIC80_OPERAND_GPR | 8 },

  { "r9",       TIC80_OPERAND_GPR | 9 },

  { "SYSSTK",   TIC80_OPERAND_CR | 0x20 },

  { "SYSTMP",   TIC80_OPERAND_CR | 0x21 },

  { "TCOUNT",   TIC80_OPERAND_CR | 0xE },

  { "TSCALE",   TIC80_OPERAND_CR | 0xF },

  { "uo.f",     TIC80_OPERAND_BITNUM  | 30 },

};

const int tic80_num_predefined_symbols = sizeof (tic80_predefined_symbols) / sizeof (struct predefined_symbol);

/* This function takes a predefined symbol name in NAME, symbol class

   in CLASS, and translates it to a numeric value, which it returns.

   If CLASS is zero, any symbol that matches NAME is translated.  If

   CLASS is non-zero, then only a symbol that has class CLASS is

   matched.

   If no translation is possible, it returns -1, a value not used by

   any predefined symbol. Note that the predefined symbol array is

   presorted case independently by name.

   This function is implemented with the assumption that there are no

   duplicate names in the predefined symbol array, which happens to be

   true at the moment.

 */

int

tic80_symbol_to_value (name, class)

     char *name;

     int class;

{

  const struct predefined_symbol *pdsp;

  int low = 0;

  int middle;

  int high = tic80_num_predefined_symbols - 1;

  int cmp;

  int rtnval = -1;

  while (low <= high)

    {

      middle = (low + high) / 2;

      cmp = strcasecmp (name, tic80_predefined_symbols[middle].name);

      if (cmp < 0)

        {

          high = middle - 1;

        }

      else if (cmp > 0)

        {

          low = middle + 1;

        }

      else

        {

          pdsp = &tic80_predefined_symbols[middle];

          if ((class == 0) || (class & PDS_VALUE (pdsp)))

            {

              rtnval = PDS_VALUE (pdsp);

            }

          /* For now we assume that there are no duplicate names */

          break;

        }

    }

  return (rtnval);

}

/* This function takes a value VAL and finds a matching predefined

   symbol that is in the operand class specified by CLASS.  If CLASS

   is zero, the first matching symbol is returned. */

const char *

tic80_value_to_symbol (val, class)

     int val;

     int class;

{

  const struct predefined_symbol *pdsp;

  int ival;

  char *name;

  name = NULL;

  for (pdsp = tic80_predefined_symbols;

       pdsp < tic80_predefined_symbols + tic80_num_predefined_symbols;

       pdsp++)

    {

      ival = PDS_VALUE (pdsp) & ~TIC80_OPERAND_MASK;

      if (ival == val)

        {

          if ((class == 0) || (class & PDS_VALUE (pdsp)))

            {

              /* Found the desired match */

              name = PDS_NAME (pdsp);

              break;

            }

        }

    }

  return (name);

}

/* This function returns a pointer to the next symbol in the predefined

   symbol table after PDSP, or NULL if PDSP points to the last symbol.  If

   PDSP is NULL, it returns the first symbol in the table.  Thus it can be

   used to walk through the table by first calling it with NULL and then

   calling it with each value it returned on the previous call, until it

   returns NULL. */

const struct predefined_symbol *

tic80_next_predefined_symbol (pdsp)

     const struct predefined_symbol *pdsp;

{

  if (pdsp == NULL)

    {

      pdsp = tic80_predefined_symbols;

    }

  else if (pdsp >= tic80_predefined_symbols &&

           pdsp < tic80_predefined_symbols + tic80_num_predefined_symbols - 1)

    {

      pdsp++;

    }

  else

    {

      pdsp = NULL;

    }

  return (pdsp);

}

/* The operands table.  The fields are:

        bits, shift, insertion function, extraction function, flags

 */

const struct tic80_operand tic80_operands[] =

{

  /* The zero index is used to indicate the end of the list of operands.  */

#define UNUSED (0)

  { 0, 0, 0, 0, 0 },

  /* Short signed immediate value in bits 14-0. */

#define SSI (UNUSED + 1)

  { 15, 0, NULL, NULL, TIC80_OPERAND_SIGNED },

  /* Short unsigned immediate value in bits 14-0 */

#define SUI (SSI + 1)

  { 15, 0, NULL, NULL, 0 },

  /* Short unsigned bitfield in bits 14-0.  We distinguish this

     from a regular unsigned immediate value only for the convenience

     of the disassembler and the user. */

#define SUBF (SUI + 1)

  { 15, 0, NULL, NULL, TIC80_OPERAND_BITFIELD },

  /* Long signed immediate in following 32 bit word */

#define LSI (SUBF + 1)

  { 32, 0, NULL, NULL, TIC80_OPERAND_SIGNED },

  /* Long unsigned immediate in following 32 bit word */

#define LUI (LSI + 1)

  { 32, 0, NULL, NULL, 0 },

  /* Long unsigned bitfield in following 32 bit word.  We distinguish

     this from a regular unsigned immediate value only for the

     convenience of the disassembler and the user. */

#define LUBF (LUI + 1)

  { 32, 0, NULL, NULL, TIC80_OPERAND_BITFIELD },

  /* Single precision floating point immediate in following 32 bit

     word. */

#define SPFI (LUBF + 1)

  { 32, 0, NULL, NULL, TIC80_OPERAND_FLOAT },

  /* Register in bits 4-0 */

#define REG_0 (SPFI + 1)

  { 5, 0, NULL, NULL, TIC80_OPERAND_GPR },

  /* Even register in bits 4-0 */

#define REG_0_E (REG_0 + 1)

  { 5, 0, NULL, NULL, TIC80_OPERAND_GPR | TIC80_OPERAND_EVEN },

  /* Register in bits 26-22 */

#define REG_22 (REG_0_E + 1)

  { 5, 22, NULL, NULL, TIC80_OPERAND_GPR },

  /* Even register in bits 26-22 */

#define REG_22_E (REG_22 + 1)

  { 5, 22, NULL, NULL, TIC80_OPERAND_GPR | TIC80_OPERAND_EVEN },

  /* Register in bits 31-27 */

#define REG_DEST (REG_22_E + 1)

  { 5, 27, NULL, NULL, TIC80_OPERAND_GPR },

  /* Even register in bits 31-27 */

#define REG_DEST_E (REG_DEST + 1)

  { 5, 27, NULL, NULL, TIC80_OPERAND_GPR | TIC80_OPERAND_EVEN },

  /* Floating point accumulator register (a0-a3) specified by bit 16 (MSB)

     and bit 11 (LSB) */

  /* FIXME!  Needs to use functions to insert and extract the register

     number in bits 16 and 11. */

#define REG_FPA (REG_DEST_E + 1)

  { 0, 0, NULL, NULL, TIC80_OPERAND_FPA },

  /* Short signed PC word offset in bits 14-0 */

#define OFF_SS_PC (REG_FPA + 1)

  { 15, 0, NULL, NULL, TIC80_OPERAND_PCREL | TIC80_OPERAND_SIGNED },

  /* Long signed PC word offset in following 32 bit word */

#define OFF_SL_PC (OFF_SS_PC + 1)

  { 32, 0, NULL, NULL, TIC80_OPERAND_PCREL | TIC80_OPERAND_SIGNED },

  /* Short signed base relative byte offset in bits 14-0 */

#define OFF_SS_BR (OFF_SL_PC + 1)

  { 15, 0, NULL, NULL, TIC80_OPERAND_BASEREL | TIC80_OPERAND_SIGNED },

  /* Long signed base relative byte offset in following 32 bit word */

#define OFF_SL_BR (OFF_SS_BR + 1)

  { 32, 0, NULL, NULL, TIC80_OPERAND_BASEREL | TIC80_OPERAND_SIGNED },

  /* Long signed base relative byte offset in following 32 bit word

     with optional ":s" modifier flag in bit 11 */

#define OFF_SL_BR_SCALED (OFF_SL_BR + 1)

  { 32, 0, NULL, NULL, TIC80_OPERAND_BASEREL | TIC80_OPERAND_SIGNED | TIC80_OPERAND_SCALED },

  /* BITNUM in bits 31-27 */

#define BITNUM (OFF_SL_BR_SCALED + 1)

  { 5, 27, NULL, NULL, TIC80_OPERAND_BITNUM },

  /* Condition code in bits 31-27 */

#define CC (BITNUM + 1)

  { 5, 27, NULL, NULL, TIC80_OPERAND_CC },

  /* Control register number in bits 14-0 */

#define CR_SI (CC + 1)

  { 15, 0, NULL, NULL, TIC80_OPERAND_CR },

  /* Control register number in next 32 bit word */

#define CR_LI (CR_SI + 1)

  { 32, 0, NULL, NULL, TIC80_OPERAND_CR },

  /* A base register in bits 26-22, enclosed in parens */

#define REG_BASE (CR_LI + 1)

  { 5, 22, NULL, NULL, TIC80_OPERAND_GPR | TIC80_OPERAND_PARENS },

  /* A base register in bits 26-22, enclosed in parens, with optional ":m"

     flag in bit 17 (short immediate instructions only) */

#define REG_BASE_M_SI (REG_BASE + 1)

  { 5, 22, NULL, NULL, TIC80_OPERAND_GPR | TIC80_OPERAND_PARENS | TIC80_OPERAND_M_SI },

  /* A base register in bits 26-22, enclosed in parens, with optional ":m"

   flag in bit 15 (long immediate and register instructions only) */

#define REG_BASE_M_LI (REG_BASE_M_SI + 1)

  { 5, 22, NULL, NULL, TIC80_OPERAND_GPR | TIC80_OPERAND_PARENS | TIC80_OPERAND_M_LI },

  /* Scaled register in bits 4-0, with optional ":s" modifier flag in bit 11 */

#define REG_SCALED (REG_BASE_M_LI + 1)

  { 5, 0, NULL, NULL, TIC80_OPERAND_GPR | TIC80_OPERAND_SCALED },

  /* Unsigned immediate in bits 4-0, used only for shift instructions */

#define ROTATE (REG_SCALED + 1)

  { 5, 0, NULL, NULL, 0 },

  /* Unsigned immediate in bits 9-5, used only for shift instructions */

#define ENDMASK (ROTATE + 1)

  { 5, 5, NULL, NULL, TIC80_OPERAND_ENDMASK },

};

const int tic80_num_operands = sizeof (tic80_operands)/sizeof(*tic80_operands);

/* Macros used to generate entries for the opcodes table. */

#define FIXME 0

/* Short-Immediate Format Instructions - basic opcode */

#define OP_SI(x)        (((x) & 0x7F) << 15)

#define MASK_SI         OP_SI(0x7F)

/* Long-Immediate Format Instructions - basic opcode */

#define OP_LI(x)        (((x) & 0x3FF) << 12)

#define MASK_LI         OP_LI(0x3FF)

/* Register Format Instructions - basic opcode */

#define OP_REG(x)       OP_LI(x)        /* For readability */

#define MASK_REG        MASK_LI         /* For readability */

/* The 'n' bit at bit 10 */

#define n(x)            ((x) << 10)

/* The 'i' bit at bit 11 */

#define i(x)            ((x) << 11)

/* The 'F' bit at bit 27 */

#define F(x)            ((x) << 27)

/* The 'E' bit at bit 27 */

#define E(x)            ((x) << 27)

/* The 'M' bit at bit 15 in register and long immediate opcodes */

#define M_REG(x)        ((x) << 15)

#define M_LI(x)         ((x) << 15)

/* The 'M' bit at bit 17 in short immediate opcodes */

#define M_SI(x)         ((x) << 17)

/* The 'SZ' field at bits 14-13 in register and long immediate opcodes */

#define SZ_REG(x)       ((x) << 13)

#define SZ_LI(x)        ((x) << 13)

/* The 'SZ' field at bits 16-15 in short immediate opcodes */

#define SZ_SI(x)        ((x) << 15)

/* The 'D' (direct external memory access) bit at bit 10 in long immediate

   and register opcodes. */

#define D(x)            ((x) << 10)

/* The 'S' (scale offset by data size) bit at bit 11 in long immediate

   and register opcodes. */

#define S(x)            ((x) << 11)

/* The 'PD' field at bits 10-9 in floating point instructions */

#define PD(x)           ((x) << 9)

/* The 'P2' field at bits 8-7 in floating point instructions */

#define P2(x)           ((x) << 7)

/* The 'P1' field at bits 6-5 in floating point instructions */

#define P1(x)           ((x) << 5)

/* The 'a' field at bit 16 in vector instructions */

#define V_a1(x)         ((x) << 16)

/* The 'a' field at bit 11 in vector instructions */

#define V_a0(x)         ((x) << 11)

/* The 'm' field at bit 10 in vector instructions */

#define V_m(x)          ((x) << 10)

/* The 'S' field at bit 9 in vector instructions */

#define V_S(x)          ((x) << 9)

/* The 'Z' field at bit 8 in vector instructions */

#define V_Z(x)          ((x) << 8)

/* The 'p' field at bit 6 in vector instructions */

#define V_p(x)          ((x) << 6)

/* The opcode field at bits 21-17 for vector instructions */

#define OP_V(x)         ((x) << 17)

#define MASK_V          OP_V(0x1F)

/* The opcode table.  Formatted for better readability on a wide screen.  Also, all

 entries with the same mnemonic are sorted so that they are adjacent in the table,

 allowing the use of a hash table to locate the first of a sequence of opcodes that have

 a particular name.  The short immediate forms also come before the long immediate forms

 so that the assembler will pick the "best fit" for the size of the operand, except for

 the case of the PC relative forms, where the long forms come first and are the default

 forms. */

const struct tic80_opcode tic80_opcodes[] = {

  /* The "nop" instruction is really "rdcr 0,r0".  We put it first so that this

     specific bit pattern will get disassembled as a nop rather than an rdcr. The

     mask of all ones ensures that this will happen. */

  {"nop",       OP_SI(0x4),     ~0,              0,               {0}                      },

  /* The "br" instruction is really "bbz target,r0,31".  We put it first so that

     this specific bit pattern will get disassembled as a br rather than bbz. */

  {"br",        OP_SI(0x48),    0xFFFF8000,     0,       {OFF_SS_PC}     },

  {"br",        OP_LI(0x391),   0xFFFFF000,     0,       {OFF_SL_PC}     },

  {"br",        OP_REG(0x390),  0xFFFFF000,     0,       {REG_0}         },

  {"br.a",      OP_SI(0x49),    0xFFFF8000,     0,       {OFF_SS_PC}     },

  {"br.a",      OP_LI(0x393),   0xFFFFF000,     0,       {OFF_SL_PC}     },

  {"br.a",      OP_REG(0x392),  0xFFFFF000,     0,       {REG_0}         },

  /* Signed integer ADD */

  {"add",       OP_SI(0x58),    MASK_SI,        0,       {SSI, REG_22, REG_DEST}         },

  {"add",       OP_LI(0x3B1),   MASK_LI,        0,       {LSI, REG_22, REG_DEST}         },

  {"add",       OP_REG(0x3B0),  MASK_REG,       0,       {REG_0, REG_22, REG_DEST}       },

  /* Unsigned integer ADD */

  {"addu",      OP_SI(0x59),    MASK_SI,        0,       {SSI, REG_22, REG_DEST}         },

  {"addu",      OP_LI(0x3B3),   MASK_LI,        0,       {LSI, REG_22, REG_DEST}         },

  {"addu",      OP_REG(0x3B2),  MASK_REG,       0,       {REG_0, REG_22, REG_DEST}       },

  /* Bitwise AND */

  {"and",       OP_SI(0x11),    MASK_SI,        0,       {SUBF, REG_22, REG_DEST}        },

  {"and",       OP_LI(0x323),   MASK_LI,        0,       {LUBF, REG_22, REG_DEST}        },

  {"and",       OP_REG(0x322),  MASK_REG,       0,       {REG_0, REG_22, REG_DEST}       },

  {"and.tt",    OP_SI(0x11),    MASK_SI,        0,       {SUBF, REG_22, REG_DEST}        },

  {"and.tt",    OP_LI(0x323),   MASK_LI,        0,       {LUBF, REG_22, REG_DEST}        },