opcodes/tic30-dis.c

   1 /* Disassembly routines for TMS320C30 architecture
   2    Copyright (C) 1998 Free Software Foundation, Inc.
   3    Contributed by Steven Haworth (steve@pm.cse.rmit.edu.au)
   4
   5    This program is free software; you can redistribute it and/or modify
   6    it under the terms of the GNU General Public License as published by
   7    the Free Software Foundation; either version 2 of the License, or
   8    (at your option) any later version.
   9
  10    This program is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13    GNU General Public License for more details.
  14
  15    You should have received a copy of the GNU General Public License
  16    along with this program; if not, write to the Free Software
  17    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  18    02111-1307, USA.  */
  19
  20 #include <errno.h>
  21 #include <math.h>
  22 #include <stdlib.h>
  23 #include <string.h>
  24 #include "dis-asm.h"
  25 #include "opcode/tic30.h"
  26
  27 #define NORMAL_INSN   1
  28 #define PARALLEL_INSN 2
  29
  30 /* Gets the type of instruction based on the top 2 or 3 bits of the
  31    instruction word. */
  32 #define GET_TYPE(insn) (insn & 0x80000000 ? insn & 0xC0000000 : insn & 0xE0000000)
  33
  34 /* Instruction types. */
  35 #define TWO_OPERAND_1 0x00000000
  36 #define TWO_OPERAND_2 0x40000000
  37 #define THREE_OPERAND 0x20000000
  38 #define PAR_STORE     0xC0000000
  39 #define MUL_ADDS      0x80000000
  40 #define BRANCHES      0x60000000
  41
  42 /* Specific instruction id bits. */
  43 #define NORMAL_IDEN    0x1F800000
  44 #define PAR_STORE_IDEN 0x3E000000
  45 #define MUL_ADD_IDEN   0x2C000000
  46 #define BR_IMM_IDEN    0x1F000000
  47 #define BR_COND_IDEN   0x1C3F0000
  48
  49 /* Addressing modes. */
  50 #define AM_REGISTER 0x00000000
  51 #define AM_DIRECT   0x00200000
  52 #define AM_INDIRECT 0x00400000
  53 #define AM_IMM      0x00600000
  54
  55 #define P_FIELD 0x03000000
  56
  57 #define REG_AR0 0x08
  58 #define LDP_INSN 0x08700000
  59
  60 /* TMS320C30 program counter for current instruction. */
  61 static unsigned int _pc;
  62
  63 struct instruction
  64   {
  65     int type;
  66     template *tm;
  67     partemplate *ptm;
  68   };
  69
  70 int get_tic30_instruction PARAMS ((unsigned long, struct instruction *));
  71 int print_two_operand
  72   PARAMS ((disassemble_info *, unsigned long, struct instruction *));
  73 int print_three_operand
  74   PARAMS ((disassemble_info *, unsigned long, struct instruction *));
  75 int print_par_insn
  76   PARAMS ((disassemble_info *, unsigned long, struct instruction *));
  77 int print_branch
  78   PARAMS ((disassemble_info *, unsigned long, struct instruction *));
  79 int get_indirect_operand PARAMS ((unsigned short, int, char *));
  80 int get_register_operand PARAMS ((unsigned char, char *));
  81 int cnvt_tmsfloat_ieee PARAMS ((unsigned long, int, float *));
  82
  83 int
  84 print_insn_tic30 (pc, info)
  85      bfd_vma pc;
  86      disassemble_info *info;
  87 {
  88   unsigned long insn_word;
  89   struct instruction insn =
  90   {0, NULL, NULL};
  91   bfd_vma bufaddr = pc - info->buffer_vma;
  92   /* Obtain the current instruction word from the buffer. */
  93   insn_word = (*(info->buffer + bufaddr) << 24) | (*(info->buffer + bufaddr + 1) << 16) |
  94     (*(info->buffer + bufaddr + 2) << 8) | *(info->buffer + bufaddr + 3);
  95   _pc = pc / 4;
  96   /* Get the instruction refered to by the current instruction word
  97      and print it out based on its type. */
  98   if (!get_tic30_instruction (insn_word, &insn))
  99     return -1;
 100   switch (GET_TYPE (insn_word))
 101     {
 102     case TWO_OPERAND_1:
 103     case TWO_OPERAND_2:
 104       if (!print_two_operand (info, insn_word, &insn))
 105         return -1;
 106       break;
 107     case THREE_OPERAND:
 108       if (!print_three_operand (info, insn_word, &insn))
 109         return -1;
 110       break;
 111     case PAR_STORE:
 112     case MUL_ADDS:
 113       if (!print_par_insn (info, insn_word, &insn))
 114         return -1;
 115       break;
 116     case BRANCHES:
 117       if (!print_branch (info, insn_word, &insn))
 118         return -1;
 119       break;
 120     }
 121   return 4;
 122 }
 123
 124 int
 125 get_tic30_instruction (insn_word, insn)
 126      unsigned long insn_word;
 127      struct instruction *insn;
 128 {
 129   switch (GET_TYPE (insn_word))
 130     {
 131     case TWO_OPERAND_1:
 132     case TWO_OPERAND_2:
 133     case THREE_OPERAND:
 134       insn->type = NORMAL_INSN;
 135       {
 136         template *current_optab = (template *) tic30_optab;
 137         for (; current_optab < tic30_optab_end; current_optab++)
 138           {
 139             if (GET_TYPE (current_optab->base_opcode) == GET_TYPE (insn_word))
 140               {
 141                 if (current_optab->operands == 0)
 142                   {
 143                     if (current_optab->base_opcode == insn_word)
 144                       {
 145                         insn->tm = current_optab;
 146                         break;
 147                       }
 148                   }
 149                 else if ((current_optab->base_opcode & NORMAL_IDEN) == (insn_word & NORMAL_IDEN))
 150                   {
 151                     insn->tm = current_optab;
 152                     break;
 153                   }
 154               }
 155           }
 156       }
 157       break;
 158     case PAR_STORE:
 159       insn->type = PARALLEL_INSN;
 160       {
 161         partemplate *current_optab = (partemplate *) tic30_paroptab;
 162         for (; current_optab < tic30_paroptab_end; current_optab++)
 163           {
 164             if (GET_TYPE (current_optab->base_opcode) == GET_TYPE (insn_word))
 165               {
 166                 if ((current_optab->base_opcode & PAR_STORE_IDEN) == (insn_word & PAR_STORE_IDEN))
 167                   {
 168                     insn->ptm = current_optab;
 169                     break;
 170                   }
 171               }
 172           }
 173       }
 174       break;
 175     case MUL_ADDS:
 176       insn->type = PARALLEL_INSN;
 177       {
 178         partemplate *current_optab = (partemplate *) tic30_paroptab;
 179         for (; current_optab < tic30_paroptab_end; current_optab++)
 180           {
 181             if (GET_TYPE (current_optab->base_opcode) == GET_TYPE (insn_word))
 182               {
 183                 if ((current_optab->base_opcode & MUL_ADD_IDEN) == (insn_word & MUL_ADD_IDEN))
 184                   {
 185                     insn->ptm = current_optab;
 186                     break;
 187                   }
 188               }
 189           }
 190       }
 191       break;
 192     case BRANCHES:
 193       insn->type = NORMAL_INSN;
 194       {
 195         template *current_optab = (template *) tic30_optab;
 196         for (; current_optab < tic30_optab_end; current_optab++)
 197           {
 198             if (GET_TYPE (current_optab->base_opcode) == GET_TYPE (insn_word))
 199               {
 200                 if (current_optab->operand_types[0] & Imm24)
 201                   {
 202                     if ((current_optab->base_opcode & BR_IMM_IDEN) == (insn_word & BR_IMM_IDEN))
 203                       {
 204                         insn->tm = current_optab;
 205                         break;
 206                       }
 207                   }
 208                 else if (current_optab->operands > 0)
 209                   {
 210                     if ((current_optab->base_opcode & BR_COND_IDEN) == (insn_word & BR_COND_IDEN))
 211                       {
 212                         insn->tm = current_optab;
 213                         break;
 214                       }
 215                   }
 216                 else
 217                   {
 218                     if ((current_optab->base_opcode & (BR_COND_IDEN | 0x00800000)) == (insn_word & (BR_COND_IDEN | 0x00800000)))
 219                       {
 220                         insn->tm = current_optab;
 221                         break;
 222                       }
 223                   }
 224               }
 225           }
 226       }
 227       break;
 228     default:
 229       return 0;
 230     }
 231   return 1;
 232 }
 233
 234 int
 235 print_two_operand (info, insn_word, insn)
 236      disassemble_info *info;
 237      unsigned long insn_word;
 238      struct instruction *insn;
 239 {
 240   char name[12];
 241   char operand[2][13] =
 242   {
 243     {0},
 244     {0}};
 245   float f_number;
 246
 247   if (insn->tm == NULL)
 248     return 0;
 249   strcpy (name, insn->tm->name);
 250   if (insn->tm->opcode_modifier == AddressMode)
 251     {
 252       int src_op, dest_op;
 253       /* Determine whether instruction is a store or a normal instruction. */
 254       if ((insn->tm->operand_types[1] & (Direct | Indirect)) == (Direct | Indirect))
 255         {
 256           src_op = 1;
 257           dest_op = 0;
 258         }
 259       else
 260         {
 261           src_op = 0;
 262           dest_op = 1;
 263         }
 264       /* Get the destination register. */
 265       if (insn->tm->operands == 2)
 266         get_register_operand ((insn_word & 0x001F0000) >> 16, operand[dest_op]);
 267       /* Get the source operand based on addressing mode. */
 268       switch (insn_word & AddressMode)
 269         {
 270         case AM_REGISTER:
 271           /* Check for the NOP instruction before getting the operand. */
 272           if ((insn->tm->operand_types[0] & NotReq) == 0)
 273             get_register_operand ((insn_word & 0x0000001F), operand[src_op]);
 274           break;
 275         case AM_DIRECT:
 276           sprintf (operand[src_op], "@0x%lX", (insn_word & 0x0000FFFF));
 277           break;
 278         case AM_INDIRECT:
 279           get_indirect_operand ((insn_word & 0x0000FFFF), 2, operand[src_op]);
 280           break;
 281         case AM_IMM:
 282           /* Get the value of the immediate operand based on variable type. */
 283           switch (insn->tm->imm_arg_type)
 284             {
 285             case Imm_Float:
 286               cnvt_tmsfloat_ieee ((insn_word & 0x0000FFFF), 2, &f_number);
 287               sprintf (operand[src_op], "%2.2f", f_number);
 288               break;
 289             case Imm_SInt:
 290               sprintf (operand[src_op], "%d", (short) (insn_word & 0x0000FFFF));
 291               break;
 292             case Imm_UInt:
 293               sprintf (operand[src_op], "%lu", (insn_word & 0x0000FFFF));
 294               break;
 295             default:
 296               return 0;
 297             }
 298           /* Handle special case for LDP instruction. */
 299           if ((insn_word & 0xFFFFFF00) == LDP_INSN)
 300             {
 301               strcpy (name, "ldp");
 302               sprintf (operand[0], "0x%06lX", (insn_word & 0x000000FF) << 16);
 303               operand[1][0] = '\0';
 304             }
 305         }
 306     }
 307   /* Handle case for stack and rotate instructions. */
 308   else if (insn->tm->operands == 1)
 309     {
 310       if (insn->tm->opcode_modifier == StackOp)
 311         {
 312           get_register_operand ((insn_word & 0x001F0000) >> 16, operand[0]);
 313         }
 314     }
 315   /* Output instruction to stream. */
 316   info->fprintf_func (info->stream, "   %s %s%c%s", name,
 317                       operand[0][0] ? operand[0] : "",
 318                       operand[1][0] ? ',' : ' ',
 319                       operand[1][0] ? operand[1] : "");
 320   return 1;
 321 }
 322
 323 int
 324 print_three_operand (info, insn_word, insn)
 325      disassemble_info *info;
 326      unsigned long insn_word;
 327      struct instruction *insn;
 328 {
 329   char operand[3][13] =
 330   {
 331     {0},
 332     {0},
 333     {0}};
 334
 335   if (insn->tm == NULL)
 336     return 0;
 337   switch (insn_word & AddressMode)
 338     {
 339     case AM_REGISTER:
 340       get_register_operand ((insn_word & 0x000000FF), operand[0]);
 341       get_register_operand ((insn_word & 0x0000FF00) >> 8, operand[1]);
 342       break;
 343     case AM_DIRECT:
 344       get_register_operand ((insn_word & 0x000000FF), operand[0]);
 345       get_indirect_operand ((insn_word & 0x0000FF00) >> 8, 1, operand[1]);
 346       break;
 347     case AM_INDIRECT:
 348       get_indirect_operand ((insn_word & 0x000000FF), 1, operand[0]);
 349       get_register_operand ((insn_word & 0x0000FF00) >> 8, operand[1]);
 350       break;
 351     case AM_IMM:
 352       get_indirect_operand ((insn_word & 0x000000FF), 1, operand[0]);
 353       get_indirect_operand ((insn_word & 0x0000FF00) >> 8, 1, operand[1]);
 354       break;
 355     default:
 356       return 0;
 357     }
 358   if (insn->tm->operands == 3)
 359     get_register_operand ((insn_word & 0x001F0000) >> 16, operand[2]);
 360   info->fprintf_func (info->stream, "   %s %s,%s%c%s", insn->tm->name,
 361                       operand[0], operand[1],
 362                       operand[2][0] ? ',' : ' ',
 363                       operand[2][0] ? operand[2] : "");
 364   return 1;
 365 }
 366
 367 int
 368 print_par_insn (info, insn_word, insn)
 369      disassemble_info *info;
 370      unsigned long insn_word;
 371      struct instruction *insn;
 372 {
 373   size_t i, len;
 374   char *name1, *name2;
 375   char operand[2][3][13] =
 376   {
 377     {
 378       {0},
 379       {0},
 380       {0}},
 381     {
 382       {0},
 383       {0},
 384       {0}}};
 385
 386   if (insn->ptm == NULL)
 387     return 0;
 388   /* Parse out the names of each of the parallel instructions from the
 389      q_insn1_insn2 format. */
 390   name1 = (char *) strdup (insn->ptm->name + 2);
 391   name2 = "";
 392   len = strlen (name1);
 393   for (i = 0; i < len; i++)
 394     {
 395       if (name1[i] == '_')
 396         {
 397           name2 = &name1[i + 1];
 398           name1[i] = '\0';
 399           break;
 400         }
 401     }
 402   /* Get the operands of the instruction based on the operand order. */
 403   switch (insn->ptm->oporder)
 404     {
 405     case OO_4op1:
 406       get_indirect_operand ((insn_word & 0x000000FF), 1, operand[0][0]);
 407       get_indirect_operand ((insn_word & 0x0000FF00) >> 8, 1, operand[1][1]);
 408       get_register_operand ((insn_word >> 16) & 0x07, operand[1][0]);
 409       get_register_operand ((insn_word >> 22) & 0x07, operand[0][1]);
 410       break;
 411     case OO_4op2:
 412       get_indirect_operand ((insn_word & 0x000000FF), 1, operand[0][0]);
 413       get_indirect_operand ((insn_word & 0x0000FF00) >> 8, 1, operand[1][0]);
 414       get_register_operand ((insn_word >> 19) & 0x07, operand[1][1]);
 415       get_register_operand ((insn_word >> 22) & 0x07, operand[0][1]);
 416       break;
 417     case OO_4op3:
 418       get_indirect_operand ((insn_word & 0x000000FF), 1, operand[0][1]);
 419       get_indirect_operand ((insn_word & 0x0000FF00) >> 8, 1, operand[1][1]);
 420       get_register_operand ((insn_word >> 16) & 0x07, operand[1][0]);
 421       get_register_operand ((insn_word >> 22) & 0x07, operand[0][0]);
 422       break;
 423     case OO_5op1:
 424       get_indirect_operand ((insn_word & 0x000000FF), 1, operand[0][0]);
 425       get_indirect_operand ((insn_word & 0x0000FF00) >> 8, 1, operand[1][1]);
 426       get_register_operand ((insn_word >> 16) & 0x07, operand[1][0]);
 427       get_register_operand ((insn_word >> 19) & 0x07, operand[0][1]);
 428       get_register_operand ((insn_word >> 22) & 0x07, operand[0][2]);
 429       break;
 430     case OO_5op2:
 431       get_indirect_operand ((insn_word & 0x000000FF), 1, operand[0][1]);
 432       get_indirect_operand ((insn_word & 0x0000FF00) >> 8, 1, operand[1][1]);
 433       get_register_operand ((insn_word >> 16) & 0x07, operand[1][0]);
 434       get_register_operand ((insn_word >> 19) & 0x07, operand[0][0]);
 435       get_register_operand ((insn_word >> 22) & 0x07, operand[0][2]);
 436       break;
 437     case OO_PField:
 438       if (insn_word & 0x00800000)
 439         get_register_operand (0x01, operand[0][2]);
 440       else
 441         get_register_operand (0x00, operand[0][2]);
 442       if (insn_word & 0x00400000)
 443         get_register_operand (0x03, operand[1][2]);
 444       else
 445         get_register_operand (0x02, operand[1][2]);
 446       switch (insn_word & P_FIELD)
 447         {
 448         case 0x00000000:
 449           get_indirect_operand ((insn_word & 0x000000FF), 1, operand[0][1]);
 450           get_indirect_operand ((insn_word & 0x0000FF00) >> 8, 1, operand[0][0]);
 451           get_register_operand ((insn_word >> 16) & 0x07, operand[1][1]);
 452           get_register_operand ((insn_word >> 19) & 0x07, operand[1][0]);
 453           break;
 454         case 0x01000000:
 455           get_indirect_operand ((insn_word & 0x000000FF), 1, operand[1][0]);
 456           get_indirect_operand ((insn_word & 0x0000FF00) >> 8, 1, operand[0][0]);
 457           get_register_operand ((insn_word >> 16) & 0x07, operand[1][1]);
 458           get_register_operand ((insn_word >> 19) & 0x07, operand[0][1]);
 459           break;
 460         case 0x02000000:
 461           get_indirect_operand ((insn_word & 0x000000FF), 1, operand[1][1]);
 462           get_indirect_operand ((insn_word & 0x0000FF00) >> 8, 1, operand[1][0]);
 463           get_register_operand ((insn_word >> 16) & 0x07, operand[0][1]);
 464           get_register_operand ((insn_word >> 19) & 0x07, operand[0][0]);
 465           break;
 466         case 0x03000000:
 467           get_indirect_operand ((insn_word & 0x000000FF), 1, operand[1][1]);
 468           get_indirect_operand ((insn_word & 0x0000FF00) >> 8, 1, operand[0][0]);
 469           get_register_operand ((insn_word >> 16) & 0x07, operand[1][0]);
 470           get_register_operand ((insn_word >> 19) & 0x07, operand[0][1]);
 471           break;
 472         }
 473       break;
 474     default:
 475       return 0;
 476     }
 477   info->fprintf_func (info->stream, "   %s %s,%s%c%s", name1,
 478                       operand[0][0], operand[0][1],
 479                       operand[0][2][0] ? ',' : ' ',
 480                       operand[0][2][0] ? operand[0][2] : "");
 481   info->fprintf_func (info->stream, "\n\t\t\t|| %s %s,%s%c%s", name2,
 482                       operand[1][0], operand[1][1],
 483                       operand[1][2][0] ? ',' : ' ',
 484                       operand[1][2][0] ? operand[1][2] : "");
 485   free (name1);
 486   return 1;
 487 }
 488
 489 int
 490 print_branch (info, insn_word, insn)
 491      disassemble_info *info;
 492      unsigned long insn_word;
 493      struct instruction *insn;
 494 {
 495   char operand[2][13] =
 496   {
 497     {0},
 498     {0}};
 499   unsigned long address;
 500   int print_label = 0;
 501
 502   if (insn->tm == NULL)
 503     return 0;
 504   /* Get the operands for 24-bit immediate jumps. */
 505   if (insn->tm->operand_types[0] & Imm24)
 506     {
 507       address = insn_word & 0x00FFFFFF;
 508       sprintf (operand[0], "0x%lX", address);
 509       print_label = 1;
 510     }
 511   /* Get the operand for the trap instruction. */
 512   else if (insn->tm->operand_types[0] & IVector)
 513     {
 514       address = insn_word & 0x0000001F;
 515       sprintf (operand[0], "0x%lX", address);
 516     }
 517   else
 518     {
 519       address = insn_word & 0x0000FFFF;
 520       /* Get the operands for the DB instructions. */
 521       if (insn->tm->operands == 2)
 522         {
 523           get_register_operand (((insn_word & 0x01C00000) >> 22) + REG_AR0, operand[0]);
 524           if (insn_word & PCRel)
 525             {
 526               sprintf (operand[1], "%d", (short) address);
 527               print_label = 1;
 528             }
 529           else
 530             get_register_operand (insn_word & 0x0000001F, operand[1]);
 531         }
 532       /* Get the operands for the standard branches. */
 533       else if (insn->tm->operands == 1)
 534         {
 535           if (insn_word & PCRel)
 536             {
 537               address = (short) address;
 538               sprintf (operand[0], "%ld", address);
 539               print_label = 1;
 540             }
 541           else
 542             get_register_operand (insn_word & 0x0000001F, operand[0]);
 543         }
 544     }
 545   info->fprintf_func (info->stream, "   %s %s%c%s", insn->tm->name,
 546                       operand[0][0] ? operand[0] : "",
 547                       operand[1][0] ? ',' : ' ',
 548                       operand[1][0] ? operand[1] : "");
 549   /* Print destination of branch in relation to current symbol. */
 550   if (print_label && info->symbols)
 551     {
 552       asymbol *sym = *info->symbols;
 553
 554       if ((insn->tm->opcode_modifier == PCRel) && (insn_word & PCRel))
 555         {
 556           address = (_pc + 1 + (short) address) - ((sym->section->vma + sym->value) / 4);
 557           /* Check for delayed instruction, if so adjust destination. */
 558           if (insn_word & 0x00200000)
 559             address += 2;
 560         }
 561       else
 562         {
 563           address -= ((sym->section->vma + sym->value) / 4);
 564         }
 565       if (address == 0)
 566         info->fprintf_func (info->stream, " <%s>", sym->name);
 567       else
 568         info->fprintf_func (info->stream, " <%s %c %d>", sym->name,
 569                             ((short) address < 0) ? '-' : '+',
 570                             abs (address));
 571     }
 572   return 1;
 573 }
 574
 575 int
 576 get_indirect_operand (fragment, size, buffer)
 577      unsigned short fragment;
 578      int size;
 579      char *buffer;
 580 {
 581   unsigned char mod;
 582   unsigned arnum;
 583   unsigned char disp;
 584
 585   if (buffer == NULL)
 586     return 0;
 587   /* Determine which bits identify the sections of the indirect operand based on the
 588      size in bytes. */
 589   switch (size)
 590     {
 591     case 1:
 592       mod = (fragment & 0x00F8) >> 3;
 593       arnum = (fragment & 0x0007);
 594       disp = 0;
 595       break;
 596     case 2:
 597       mod = (fragment & 0xF800) >> 11;
 598       arnum = (fragment & 0x0700) >> 8;
 599       disp = (fragment & 0x00FF);
 600       break;
 601     default:
 602       return 0;
 603     }
 604   {
 605     const ind_addr_type *current_ind = tic30_indaddr_tab;
 606     for (; current_ind < tic30_indaddrtab_end; current_ind++)
 607       {
 608         if (current_ind->modfield == mod)
 609           {
 610             if (current_ind->displacement == IMPLIED_DISP && size == 2)
 611               {
 612                 continue;
 613               }
 614             else
 615               {
 616                 size_t i, len;
 617                 int bufcnt;
 618
 619                 len = strlen (current_ind->syntax);
 620                 for (i = 0, bufcnt = 0; i < len; i++, bufcnt++)
 621                   {
 622                     buffer[bufcnt] = current_ind->syntax[i];
 623                     if (buffer[bufcnt - 1] == 'a' && buffer[bufcnt] == 'r')
 624                       buffer[++bufcnt] = arnum + '0';
 625                     if (buffer[bufcnt] == '(' && current_ind->displacement == DISP_REQUIRED)
 626                       {
 627                         sprintf (&buffer[bufcnt + 1], "%u", disp);
 628                         bufcnt += strlen (&buffer[bufcnt + 1]);
 629                       }
 630                   }
 631                 buffer[bufcnt + 1] = '\0';
 632                 break;
 633               }
 634           }
 635       }
 636   }
 637   return 1;
 638 }
 639
 640 int
 641 get_register_operand (fragment, buffer)
 642      unsigned char fragment;
 643      char *buffer;
 644 {
 645   const reg *current_reg = tic30_regtab;
 646
 647   if (buffer == NULL)
 648     return 0;
 649   for (; current_reg < tic30_regtab_end; current_reg++)
 650     {
 651       if ((fragment & 0x1F) == current_reg->opcode)
 652         {
 653           strcpy (buffer, current_reg->name);
 654           return 1;
 655         }
 656     }
 657   return 0;
 658 }
 659
 660 int
 661 cnvt_tmsfloat_ieee (tmsfloat, size, ieeefloat)
 662      unsigned long tmsfloat;
 663      int size;
 664      float *ieeefloat;
 665 {
 666   unsigned long exp, sign, mant;
 667
 668   if (size == 2)
 669     {
 670       if ((tmsfloat & 0x0000F000) == 0x00008000)
 671         tmsfloat = 0x80000000;
 672       else
 673         {
 674           tmsfloat <<= 16;
 675           tmsfloat = (long) tmsfloat >> 4;
 676         }
 677     }
 678   exp = tmsfloat & 0xFF000000;
 679   if (exp == 0x80000000)
 680     {
 681       *ieeefloat = 0.0;
 682       return 1;
 683     }
 684   exp += 0x7F000000;
 685   sign = (tmsfloat & 0x00800000) << 8;
 686   mant = tmsfloat & 0x007FFFFF;
 687   if (exp == 0xFF000000)
 688     {
 689       if (mant == 0)
 690         *ieeefloat = ERANGE;
 691       if (sign == 0)
 692         *ieeefloat = 1.0 / 0.0;
 693       else
 694         *ieeefloat = -1.0 / 0.0;
 695       return 1;
 696     }
 697   exp >>= 1;
 698   if (sign)
 699     {
 700       mant = (~mant) & 0x007FFFFF;
 701       mant += 1;
 702       exp += mant & 0x00800000;
 703       exp &= 0x7F800000;
 704       mant &= 0x007FFFFF;
 705     }
 706   if (tmsfloat == 0x80000000)
 707     sign = mant = exp = 0;
 708   tmsfloat = sign | exp | mant;
 709   *ieeefloat = *((float *) &tmsfloat);
 710   return 1;
 711 }