home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / gnu / gdb-4.14-src.lha / gdb-4.14 / opcodes / sh-dis.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-11-24  |  5.8 KB  |  276 lines
  1. /* Disassemble h8500 instructions.
  2.    Copyright (C) 1993 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., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  17.  
  18. #include <stdio.h>
  19. #define STATIC_TABLE
  20. #define DEFINE_TABLE
  21.  
  22. #include "sh-opc.h"
  23. #include "dis-asm.h"
  24.  
  25. #define LITTLE_BIT 2
  26.  
  27. static int 
  28. print_insn_shx(memaddr, info)
  29.      bfd_vma memaddr;
  30.      struct disassemble_info *info;
  31. {
  32.   fprintf_ftype fprintf = info->fprintf_func;
  33.   void *stream = info->stream;
  34.   unsigned  char insn[2];
  35.   unsigned  char nibs[4];
  36.   int status;
  37.   int relmask = ~0;
  38.   sh_opcode_info *op;
  39.  
  40.   int dslot = 0;
  41.   
  42.   status = info->read_memory_func(memaddr, insn, 2, info);
  43.  
  44.   if (status != 0) 
  45.     {
  46.       info->memory_error_func(status, memaddr, info);
  47.       return -1;
  48.     }
  49.  
  50.  
  51.  
  52.   if (info->flags & LITTLE_BIT) 
  53.     {
  54.       nibs[0] = (insn[1] >> 4) & 0xf;
  55.       nibs[1] = insn[1] & 0xf;
  56.  
  57.       nibs[2] = (insn[0] >> 4) & 0xf;
  58.       nibs[3] = insn[0] & 0xf;
  59.     }
  60.   else 
  61.     {
  62.       nibs[0] = (insn[0] >> 4) & 0xf;
  63.       nibs[1] = insn[0] & 0xf;
  64.  
  65.       nibs[2] = (insn[1] >> 4) & 0xf;
  66.       nibs[3] = insn[1] & 0xf;
  67.     }
  68.  
  69.   for (op = sh_table; op->name; op++) 
  70.     {
  71.       int n;
  72.       int imm;
  73.       int rn;
  74.       int rm;
  75.       for (n = 0; n < 4; n++) {
  76.     int i = op->nibbles[n];
  77.     if (i < 16) 
  78.       {
  79.         if (nibs[n] == i) continue;
  80.         goto fail;
  81.       }
  82.     switch (i)
  83.       {
  84.       case BRANCH_8:
  85.         imm = (nibs[2] << 4) | (nibs[3]);      
  86.         if (imm & 0x80)
  87.           imm |= ~0xff;
  88.         imm = ((char)imm) * 2 + 4 ;
  89.         goto ok;
  90.  
  91.       case BRANCH_12:
  92.         imm = ((nibs[1]) << 8) | (nibs[2] << 4) | (nibs[3]);
  93.         if (imm & 0x800)
  94.           imm |= ~0xfff;
  95.         imm = imm * 2 + 4;
  96.         goto ok;
  97.       case IMM_4:
  98.         imm = nibs[3];
  99.         goto ok;
  100.       case IMM_4BY2:
  101.         imm = nibs[3] <<1;
  102.         goto ok;
  103.       case IMM_4BY4:
  104.         imm = nibs[3] <<2;
  105.         goto ok;
  106.  
  107.         
  108.       case IMM_8:
  109.         imm = (nibs[2] << 4) | nibs[3];
  110.         goto ok;
  111.       case PCRELIMM_8BY2:
  112.         imm = ((nibs[2] << 4) | nibs[3]) <<1;
  113.         relmask  = ~1;
  114.         
  115.         goto ok;
  116.  
  117.       case PCRELIMM_8BY4:
  118.         imm = ((nibs[2] << 4) | nibs[3]) <<2;
  119.         relmask  = ~3;        
  120.         goto ok;
  121.         
  122.       case IMM_8BY2:
  123.         imm = ((nibs[2] << 4) | nibs[3]) <<1;
  124.         goto ok;
  125.       case IMM_8BY4:
  126.         imm = ((nibs[2] << 4) | nibs[3]) <<2;
  127.         goto ok;
  128.       case DISP_8:
  129.         imm = (nibs[2] << 4) | (nibs[3]);      
  130.         goto ok;
  131.       case DISP_4:
  132.         imm = nibs[3];
  133.         goto ok;
  134.       case REG_N:
  135.         rn = nibs[n];
  136.         break;
  137.       case REG_M:
  138.         rm = nibs[n];
  139.         break;
  140.       default:
  141.         abort();
  142.       }
  143.  
  144.       }
  145.     ok:
  146.       fprintf(stream,"%s\t", op->name);
  147.       for (n = 0; n < 2 && op->arg[n] != A_END; n++) 
  148.     {
  149.       if (n && op->arg[1] != A_END)
  150.         fprintf(stream,",");
  151.       switch (op->arg[n]) 
  152.         {
  153.         case A_IMM:
  154.           fprintf(stream,"#%d", (char)(imm));
  155.           break;
  156.         case A_R0:
  157.           fprintf(stream,"r0");
  158.           break;
  159.         case A_REG_N:
  160.           fprintf(stream,"r%d", rn);
  161.           break;
  162.         case A_INC_N:
  163.           fprintf(stream,"@r%d+", rn);    
  164.           break;
  165.         case A_DEC_N:
  166.           fprintf(stream,"@-r%d", rn);    
  167.           break;
  168.         case A_IND_N:
  169.           fprintf(stream,"@r%d", rn);    
  170.           break;
  171.         case A_DISP_REG_N:
  172.           fprintf(stream,"@(%d,r%d)",imm, rn);    
  173.           break;
  174.         case A_REG_M:
  175.           fprintf(stream,"r%d", rm);
  176.           break;
  177.         case A_INC_M:
  178.           fprintf(stream,"@r%d+", rm);    
  179.           break;
  180.         case A_DEC_M:
  181.           fprintf(stream,"@-r%d", rm);    
  182.           break;
  183.         case A_IND_M:
  184.           fprintf(stream,"@r%d", rm);    
  185.           break;
  186.         case A_DISP_REG_M:
  187.           fprintf(stream,"@(%d,r%d)",imm, rm);    
  188.           break;
  189.         case A_DISP_PC:
  190.           fprintf(stream,"0x%0x", imm+ 4+(memaddr&relmask));
  191.           break;
  192.         case A_IND_R0_REG_N:
  193.           fprintf(stream,"@(r0,r%d)", rn);
  194.           break; 
  195.         case A_IND_R0_REG_M:
  196.           fprintf(stream,"@(r0,r%d)", rm);
  197.           break; 
  198.         case A_DISP_GBR:
  199.           fprintf(stream,"@(%d,gbr)",imm);
  200.           break;
  201.         case A_R0_GBR:
  202.           fprintf(stream,"@(r0,gbr)");
  203.           break;
  204.         case A_BDISP12:
  205.         case A_BDISP8:
  206.           fprintf(stream,"0x%x", imm + memaddr);    
  207.           break;
  208.         case A_SR:
  209.           fprintf(stream,"sr");
  210.           break;
  211.         case A_GBR:
  212.           fprintf(stream,"gbr");
  213.           break;
  214.         case A_VBR:
  215.           fprintf(stream,"vbr");
  216.           break;
  217.         case A_MACH:
  218.           fprintf(stream,"mach");
  219.           break;
  220.         case A_MACL:
  221.           fprintf(stream,"macl");
  222.           break;
  223.         case A_PR:
  224.           fprintf(stream,"pr");
  225.           break;
  226.         default:
  227.           abort();
  228.         }
  229.     
  230.     }
  231.       if (!(info->flags & 1) &&
  232.       op->name[0] == 'j'
  233.       || (op->name[0] == 'b' && (op->name[1] == 'r' 
  234.                      || op->name[1] == 's'))
  235.       || (op->name[0] == 'r' && op->name[1] == 't')
  236.       || (op->name[0] == 'b' && op->name[2] == '.'))
  237.     {
  238.       info->flags |= 1;
  239.       fprintf(stream,"\t(slot ");  print_insn_shx(memaddr +2, info);
  240.       info->flags &= ~1;
  241.       fprintf(stream,")");
  242.       return 4;
  243.     }
  244.       
  245.       return 2;
  246.     fail:
  247.       ;
  248.  
  249.     }
  250.   fprintf(stream,".word 0x%x%x%x%x", nibs[0], nibs[1], nibs[2], nibs[3]);
  251.   return 2;
  252. }
  253.  
  254.  
  255. int 
  256. print_insn_shl(memaddr, info)
  257.      bfd_vma memaddr;
  258.      struct disassemble_info *info;
  259. {
  260.   int r;
  261.   info->flags = LITTLE_BIT;
  262.   r =print_insn_shx (memaddr, info);
  263.   return r;
  264. }
  265.  
  266. int 
  267. print_insn_sh(memaddr, info)
  268.      bfd_vma memaddr;
  269.      struct disassemble_info *info;
  270. {
  271.   int r;
  272.   info->flags = 0;
  273.   r =print_insn_shx (memaddr, info);
  274.   return r;
  275. }
  276.