opcodes/v850-opc.c

   1 /* Assemble V850 instructions.
   2    Copyright (C) 1996 Free Software Foundation, Inc.
   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 #include "ansidecl.h"
  19 #include "opcode/v850.h"
  20
  21 /* Local insertion and extraction functions.  */
  22 static unsigned long insert_d9 PARAMS ((unsigned long, long, const char **));
  23 static long extract_d9 PARAMS ((unsigned long, int *));
  24 static unsigned long insert_d22 PARAMS ((unsigned long, long, const char **));
  25 static long extract_d22 PARAMS ((unsigned long, int *));
  26 static unsigned long insert_d16_15 PARAMS ((unsigned long, long,
  27                                             const char **));
  28 static long extract_d16_15 PARAMS ((unsigned long, int *));
  29 static unsigned long insert_d8_7 PARAMS ((unsigned long, long, const char **));
  30 static long extract_d8_7 PARAMS ((unsigned long, int *));
  31 static unsigned long insert_d8_6 PARAMS ((unsigned long, long, const char **));
  32 static long extract_d8_6 PARAMS ((unsigned long, int *));
  33
  34 /* regular opcode */
  35 #define OP(x)           ((x & 0x3f) << 5)
  36 #define OP_MASK         OP(0x3f)
  37
  38 /* conditional branch opcode */
  39 #define BOP(x)          ((0x0b << 7) | (x & 0x0f))
  40 #define BOP_MASK        ((0x0f << 7) | 0x0f)
  41
  42 /* one-word opcodes */
  43 #define one(x)          ((unsigned int) (x))
  44
  45 /* two-word opcodes */
  46 #define two(x,y)        ((unsigned int) (x) | ((unsigned int) (y) << 16))
  47
  48
  49 \f
  50 const struct v850_operand v850_operands[] = {
  51 #define UNUSED  0
  52   { 0, 0, 0, 0, 0 },
  53
  54 /* The R1 field in a format 1, 6, 7, or 9 insn. */
  55 #define R1      (UNUSED+1)
  56   { 5, 0, 0, 0, V850_OPERAND_REG },
  57
  58 /* The R2 field in a format 1, 2, 4, 5, 6, 7, 9 insn. */
  59 #define R2      (R1+1)
  60   { 5, 11, 0, 0, V850_OPERAND_REG },
  61
  62 /* The IMM5 field in a format 2 insn. */
  63 #define I5      (R2+1)
  64   { 5, 0, 0, 0, V850_OPERAND_SIGNED },
  65
  66 #define I5U     (I5+1)
  67   { 5, 0, 0, 0, 0 },
  68
  69 /* The IMM16 field in a format 6 insn. */
  70 #define I16     (I5U+1)
  71   { 16, 16, 0, 0, V850_OPERAND_SIGNED },
  72
  73 /* The signed DISP7 field in a format 4 insn. */
  74 #define D7      (I16+1)
  75   { 7, 0, 0, 0, 0},
  76
  77 /* The DISP9 field in a format 3 insn. */
  78 #define D9      (D7+1)
  79   { 9, 0, insert_d9, extract_d9, V850_OPERAND_SIGNED | V850_OPERAND_DISP },
  80
  81 /* The DISP16 field in a format 6 insn. */
  82 #define D16_15  (D9+1)
  83   { 16, 16, insert_d16_15, extract_d16_15, V850_OPERAND_SIGNED },
  84
  85 /* The DISP22 field in a format 4 insn. */
  86 #define D22     (D16_15+1)
  87   { 22, 0, insert_d22, extract_d22, V850_OPERAND_SIGNED | V850_OPERAND_DISP },
  88
  89 #define B3      (D22+1)
  90 /* The 3 bit immediate field in format 8 insn.  */
  91   { 3, 11, 0, 0, 0 },
  92
  93 #define CCCC    (B3+1)
  94 /* The 4 bit condition code in a setf instruction */
  95   { 4, 0, 0, 0, V850_OPERAND_CC },
  96
  97 /* The unsigned DISP8_7 field in a format 4 insn. */
  98 #define D8_7    (CCCC+1)
  99   { 8, 0, insert_d8_7, extract_d8_7, 0 },
 100
 101 /* The unsigned DISP8_6 field in a format 4 insn. */
 102 #define D8_6    (D8_7+1)
 103   { 8, 0, insert_d8_6, extract_d8_6, 0 },
 104
 105 /* System register operands.  */
 106 #define SR1     (D8_6+1)
 107   { 5, 0, 0, 0, V850_OPERAND_SRG },
 108
 109 /* EP Register.  */
 110 #define EP      (SR1+1)
 111   { 0, 0, 0, 0, V850_OPERAND_EP },
 112
 113 /* The IMM16 field (unsigned0 in a format 6 insn. */
 114 #define I16U    (EP+1)
 115   { 16, 16, 0, 0, 0},
 116
 117 /* The R2 field as a system register.  */
 118 #define SR2     (I16U+1)
 119   { 5, 11, 0, 0, V850_OPERAND_SRG },
 120
 121 /* The DISP16 field in a format 8 insn. */
 122 #define D16     (SR2+1)
 123   { 16, 16, 0, 0, V850_OPERAND_SIGNED },
 124
 125 } ;
 126
 127 \f
 128 /* reg-reg instruction format (Format I) */
 129 #define IF1     {R1, R2}
 130
 131 /* imm-reg instruction format (Format II) */
 132 #define IF2     {I5, R2}
 133
 134 /* conditional branch instruction format (Format III) */
 135 #define IF3     {D9}
 136
 137 /* 16-bit load/store instruction (Format IV) */
 138 #define IF4A    {D7, EP, R2}
 139 #define IF4B    {R2, D7, EP}
 140 #define IF4C    {D8_7, EP, R2}
 141 #define IF4D    {R2, D8_7, EP}
 142 #define IF4E    {D8_6, EP, R2}
 143 #define IF4F    {R2, D8_6, EP}
 144
 145 /* Jump instruction (Format V) */
 146 #define IF5     {D22}
 147
 148 /* 3 operand instruction (Format VI) */
 149 #define IF6     {I16, R1, R2}
 150
 151 /* 3 operand instruction (Format VI) */
 152 #define IF6U    {I16U, R1, R2}
 153
 154 /* 32-bit load/store half/word instruction (Format VII) */
 155 #define IF7A    {D16_15, R1, R2}
 156 #define IF7B    {R2, D16_15, R1}
 157
 158 /* 32-bit load/store byte instruction (Format VII) */
 159 #define IF7C    {D16, R1, R2}
 160 #define IF7D    {R2, D16, R1}
 161
 162 /* Bit manipulation function.  */
 163
 164
 165 \f
 166 /* The opcode table.
 167
 168    The format of the opcode table is:
 169
 170    NAME         OPCODE          MASK            { OPERANDS }
 171
 172    NAME is the name of the instruction.
 173    OPCODE is the instruction opcode.
 174    MASK is the opcode mask; this is used to tell the disassembler
 175      which bits in the actual opcode must match OPCODE.
 176    OPERANDS is the list of operands.
 177
 178    The disassembler reads the table in order and prints the first
 179    instruction which matches, so this table is sorted to put more
 180    specific instructions before more general instructions.  It is also
 181    sorted by major opcode.  */
 182
 183 const struct v850_opcode v850_opcodes[] = {
 184 { "breakpoint", 0xffff,                 0xffff,         0,    0 },
 185 /* load/store instructions */
 186 { "sld.b",      one(0x0300),            one(0x0780),    IF4A, 1 },
 187 { "sld.h",      one(0x0400),            one(0x0780),    IF4C, 1 },
 188 { "sld.w",      one(0x0500),            one(0x0781),    IF4E, 1 },
 189 { "sst.b",      one(0x0380),            one(0x0780),    IF4B, 2 },
 190 { "sst.h",      one(0x0480),            one(0x0780),    IF4D, 2 },
 191 { "sst.w",      one(0x0501),            one(0x0781),    IF4F, 2 },
 192
 193 { "ld.b",       two(0x0700,0x0000),     two (0x07e0,0x0000),    IF7C, 1 },
 194 { "ld.h",       two(0x0720,0x0000),     two (0x07e0,0x0001),    IF7A, 1 },
 195 { "ld.w",       two(0x0720,0x0001),     two (0x07e0,0x0001),    IF7A, 1 },
 196 { "st.b",       two(0x0740,0x0000),     two (0x07e0,0x0000),    IF7D, 2 },
 197 { "st.h",       two(0x0760,0x0000),     two (0x07e0,0x0001),    IF7B, 2 },
 198 { "st.w",       two(0x0760,0x0001),     two (0x07e0,0x0001),    IF7B, 2 },
 199
 200 /* arithmetic operation instructions */
 201 { "nop",        one(0x00),              one(0xffff),            {0}, 0 },
 202 { "mov",        OP(0x00),               OP_MASK,        IF1, 0 },
 203 { "mov",        OP(0x10),               OP_MASK,        IF2, 0 },
 204 { "movea",      OP(0x31),               OP_MASK,        IF6, 0 },
 205 { "movhi",      OP(0x32),               OP_MASK,        IF6, 0 },
 206 { "add",        OP(0x0e),               OP_MASK,        IF1, 0 },
 207 { "add",        OP(0x12),               OP_MASK,        IF2, 0 },
 208 { "addi",       OP(0x30),               OP_MASK,        IF6, 0 },
 209 { "sub",        OP(0x0d),               OP_MASK,        IF1, 0 },
 210 { "subr",       OP(0x0c),               OP_MASK,        IF1, 0 },
 211 { "mulh",       OP(0x07),               OP_MASK,        IF1, 0 },
 212 { "mulh",       OP(0x17),               OP_MASK,        IF2, 0 },
 213 { "mulhi",      OP(0x37),               OP_MASK,        IF6, 0 },
 214 { "divh",       OP(0x02),               OP_MASK,        IF1, 0 },
 215 { "cmp",        OP(0x0f),               OP_MASK,        IF1, 0 },
 216 { "cmp",        OP(0x13),               OP_MASK,        IF2, 0 },
 217 { "setf",       two(0x07e0,0x0000),     two(0x07f0,0xffff), {CCCC,R2}, 0 },
 218
 219 /* saturated operation instructions */
 220 { "satadd",     OP(0x06),               OP_MASK,        IF1, 0 },
 221 { "satadd",     OP(0x11),               OP_MASK,        IF2, 0 },
 222 { "satsub",     OP(0x05),               OP_MASK,        IF1, 0 },
 223 { "satsubi",    OP(0x33),               OP_MASK,        IF6, 0 },
 224 { "satsubr",    OP(0x04),               OP_MASK,        IF1, 0 },
 225
 226 /* logical operation instructions */
 227 { "tst",        OP(0x0b),               OP_MASK,        IF1, 0 },
 228 { "or",         OP(0x08),               OP_MASK,        IF1, 0 },
 229 { "ori",        OP(0x34),               OP_MASK,        IF6U, 0 },
 230 { "and",        OP(0x0a),               OP_MASK,        IF1, 0 },
 231 { "andi",       OP(0x36),               OP_MASK,        IF6U, 0 },
 232 { "xor",        OP(0x09),               OP_MASK,        IF1, 0 },
 233 { "xori",       OP(0x35),               OP_MASK,        IF6U, 0 },
 234 { "not",        OP(0x01),               OP_MASK,        IF1, 0 },
 235 { "sar",        OP(0x15),               OP_MASK,        {I5U, R2}, 0 },
 236 { "sar",        two(0x07e0,0x00a0),     two(0x07e0,0xffff),     {R1,R2}, 0 },
 237 { "shl",        OP(0x16),               OP_MASK,                {I5U, R2}, 0 },
 238 { "shl",        two(0x07e0,0x00c0),     two(0x07e0,0xffff),     {R1,R2}, 0 },
 239 { "shr",        OP(0x14),               OP_MASK,                {I5U, R2}, 0 },
 240 { "shr",        two(0x07e0,0x0080),     two(0x07e0,0xffff),     {R1,R2}, 0 },
 241
 242 /* branch instructions */
 243         /* signed integer */
 244 { "bgt",        BOP(0xf),               BOP_MASK,       IF3, 0 },
 245 { "bge",        BOP(0xe),               BOP_MASK,       IF3, 0 },
 246 { "blt",        BOP(0x6),               BOP_MASK,       IF3, 0 },
 247 { "ble",        BOP(0x7),               BOP_MASK,       IF3, 0 },
 248         /* unsigned integer */
 249 { "bh",         BOP(0xb),               BOP_MASK,       IF3, 0 },
 250 { "bnh",        BOP(0x3),               BOP_MASK,       IF3, 0 },
 251 { "bl",         BOP(0x1),               BOP_MASK,       IF3, 0 },
 252 { "bnl",        BOP(0x9),               BOP_MASK,       IF3, 0 },
 253         /* common */
 254 { "be",         BOP(0x2),               BOP_MASK,       IF3, 0 },
 255 { "bne",        BOP(0xa),               BOP_MASK,       IF3, 0 },
 256         /* others */
 257 { "bv",         BOP(0x0),               BOP_MASK,       IF3, 0 },
 258 { "bnv",        BOP(0x8),               BOP_MASK,       IF3, 0 },
 259 { "bn",         BOP(0x4),               BOP_MASK,       IF3, 0 },
 260 { "bp",         BOP(0xc),               BOP_MASK,       IF3, 0 },
 261 { "bc",         BOP(0x1),               BOP_MASK,       IF3, 0 },
 262 { "bnc",        BOP(0x9),               BOP_MASK,       IF3, 0 },
 263 { "bz",         BOP(0x2),               BOP_MASK,       IF3, 0 },
 264 { "bnz",        BOP(0xa),               BOP_MASK,       IF3, 0 },
 265 { "br",         BOP(0x5),               BOP_MASK,       IF3, 0 },
 266 { "bsa",        BOP(0xd),               BOP_MASK,       IF3, 0 },
 267
 268 /* Branch aliases */
 269         /* signed integer */
 270 { "jgt",        BOP(0xf),               BOP_MASK,       IF3, 0 },
 271 { "jge",        BOP(0xe),               BOP_MASK,       IF3, 0 },
 272 { "jlt",        BOP(0x6),               BOP_MASK,       IF3, 0 },
 273 { "jle",        BOP(0x7),               BOP_MASK,       IF3, 0 },
 274         /* unsigned integer */
 275 { "jh",         BOP(0xb),               BOP_MASK,       IF3, 0 },
 276 { "jnh",        BOP(0x3),               BOP_MASK,       IF3, 0 },
 277 { "jl",         BOP(0x1),               BOP_MASK,       IF3, 0 },
 278 { "jnl",        BOP(0x9),               BOP_MASK,       IF3, 0 },
 279         /* common */
 280 { "je",         BOP(0x2),               BOP_MASK,       IF3, 0 },
 281 { "jne",        BOP(0xa),               BOP_MASK,       IF3, 0 },
 282         /* others */
 283 { "jv",         BOP(0x0),               BOP_MASK,       IF3, 0 },
 284 { "jnv",        BOP(0x8),               BOP_MASK,       IF3, 0 },
 285 { "jn",         BOP(0x4),               BOP_MASK,       IF3, 0 },
 286 { "jp",         BOP(0xc),               BOP_MASK,       IF3, 0 },
 287 { "jc",         BOP(0x1),               BOP_MASK,       IF3, 0 },
 288 { "jnc",        BOP(0x9),               BOP_MASK,       IF3, 0 },
 289 { "jz",         BOP(0x2),               BOP_MASK,       IF3, 0 },
 290 { "jnz",        BOP(0xa),               BOP_MASK,       IF3, 0 },
 291 { "jsa",        BOP(0xd),               BOP_MASK,       IF3, 0 },
 292
 293 { "jmp",        one(0x0060),            one(0xffe0),    { R1}, 1 },
 294 { "jr",         one(0x0780),            two(0xffc0,0x0001),{ D22 }, 0 },
 295 { "jarl",       one(0x0780),            two(0x07c0,0x0001),{ D22, R2 }, 0 },
 296
 297 /* bit manipulation instructions */
 298 { "set1",       two(0x07c0,0x0000),     two(0xc7e0,0x0000),     {B3, D16, R1}, 2 },
 299 { "not1",       two(0x47c0,0x0000),     two(0xc7e0,0x0000),     {B3, D16, R1}, 2 },
 300 { "clr1",       two(0x87c0,0x0000),     two(0xc7e0,0x0000),     {B3, D16, R1}, 2 },
 301 { "tst1",       two(0xc7c0,0x0000),     two(0xc7e0,0x0000),     {B3, D16, R1}, 2 },
 302
 303 /* special instructions */
 304 { "di",         two(0x07e0,0x0160),     two(0xffff,0xffff),     {0}, 0 },
 305 { "ei",         two(0x87e0,0x0160),     two(0xffff,0xffff),     {0}, 0 },
 306 { "halt",       two(0x07e0,0x0120),     two(0xffff,0xffff),     {0}, 0 },
 307 { "reti",       two(0x07e0,0x0140),     two(0xffff,0xffff),     {0}, 0 },
 308 { "trap",       two(0x07e0,0x0100),     two(0xffe0,0xffff),     {I5U}, 0 },
 309 { "ldsr",       two(0x07e0,0x0020),     two(0x07e0,0xffff),     {R1,SR2}, 0 },
 310 { "stsr",       two(0x07e0,0x0040),     two(0x07e0,0xffff),     {SR1,R2}, 0 },
 311 { 0, 0, 0, {0}, 0 },
 312
 313 } ;
 314
 315 const int v850_num_opcodes =
 316   sizeof (v850_opcodes) / sizeof (v850_opcodes[0]);
 317
 318 \f
 319 /* The functions used to insert and extract complicated operands.  */
 320
 321 static unsigned long
 322 insert_d9 (insn, value, errmsg)
 323      unsigned long insn;
 324      long value;
 325      const char **errmsg;
 326 {
 327   if (value > 0xff || value < -0x100)
 328     *errmsg = "branch value out of range";
 329
 330   if ((value % 2) != 0)
 331     *errmsg = "branch to odd offset";
 332
 333   return (insn | ((value & 0x1f0) << 7) | ((value & 0x0e) << 3));
 334 }
 335
 336 static long
 337 extract_d9 (insn, invalid)
 338      unsigned long insn;
 339      int *invalid;
 340 {
 341   long ret = ((insn & 0xf800) >> 7) | ((insn & 0x0070) >> 3);
 342
 343   if ((insn & 0x8000) != 0)
 344     ret -= 0x0200;
 345
 346   return ret;
 347 }
 348
 349 static unsigned long
 350 insert_d22 (insn, value, errmsg)
 351      unsigned long insn;
 352      long value;
 353      const char **errmsg;
 354 {
 355   if (value > 0x1fffff || value < -0x200000)
 356     *errmsg = "branch value out of range";
 357
 358   if ((value % 2) != 0)
 359     *errmsg = "branch to odd offset";
 360
 361   return (insn | ((value & 0xfffe) << 16) | ((value & 0x3f0000) >> 16));
 362 }
 363
 364 static long
 365 extract_d22 (insn, invalid)
 366      unsigned long insn;
 367      int *invalid;
 368 {
 369   int ret = ((insn & 0xfffe0000) >> 16) | ((insn & 0x3f) << 16);
 370
 371   return ((ret << 10) >> 10);
 372 }
 373
 374 static unsigned long
 375 insert_d16_15 (insn, value, errmsg)
 376      unsigned long insn;
 377      long value;
 378      const char **errmsg;
 379 {
 380   if (value > 0x7fff || value < -0x8000)
 381     *errmsg = "value out of range";
 382
 383   if ((value % 2) != 0)
 384     *errmsg = "load/store half/word at odd offset";
 385
 386   return (insn | ((value & 0xfffe) << 16));
 387 }
 388
 389 static long
 390 extract_d16_15 (insn, invalid)
 391      unsigned long insn;
 392      int *invalid;
 393 {
 394   int ret = ((insn & 0xfffe0000) >> 16);
 395
 396   return ((ret << 16) >> 16);
 397 }
 398
 399 static unsigned long
 400 insert_d8_7 (insn, value, errmsg)
 401      unsigned long insn;
 402      long value;
 403      const char **errmsg;
 404 {
 405   if (value > 0xff || value < 0)
 406     *errmsg = "short load/store half value out of range";
 407
 408   if ((value % 2) != 0)
 409     *errmsg = "short load/store half at odd offset";
 410
 411   value >>= 1;
 412
 413   return (insn | (value & 0x7f));
 414 }
 415
 416 static long
 417 extract_d8_7 (insn, invalid)
 418      unsigned long insn;
 419      int *invalid;
 420 {
 421   int ret = (insn & 0x7f);
 422
 423   return ret << 1;
 424 }
 425
 426 static unsigned long
 427 insert_d8_6 (insn, value, errmsg)
 428      unsigned long insn;
 429      long value;
 430      const char **errmsg;
 431 {
 432   if (value > 0xff || value < 0)
 433     *errmsg = "short load/store word value out of range";
 434
 435   if ((value % 4) != 0)
 436     *errmsg = "short load/store word at odd offset";
 437
 438   value >>= 2;
 439
 440   return (insn | (value & 0x7e));
 441 }
 442
 443 static long
 444 extract_d8_6 (insn, invalid)
 445      unsigned long insn;
 446      int *invalid;
 447 {
 448   int ret = (insn & 0x7e);
 449
 450   return ret << 1;
 451 }