OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [binutils-2.18.50/] [opcodes/] [m10200-dis.c] - Blame information for rev 856

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 38 julius
/* Disassemble MN10200 instructions.
2
   Copyright 1996, 1997, 1998, 2000, 2005, 2007 Free Software Foundation, Inc.
3
 
4
   This file is part of the GNU opcodes library.
5
 
6
   This library is free software; you can redistribute it and/or modify
7
   it under the terms of the GNU General Public License as published by
8
   the Free Software Foundation; either version 3, or (at your option)
9
   any later version.
10
 
11
   It is distributed in the hope that it will be useful, but WITHOUT
12
   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
13
   or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
14
   License for more details.
15
 
16
   You should have received a copy of the GNU General Public License
17
   along with this program; if not, write to the Free Software
18
   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
19
   MA 02110-1301, USA.  */
20
 
21
#include <stdio.h>
22
 
23
#include "sysdep.h"
24
#include "opcode/mn10200.h" 
25
#include "dis-asm.h"
26
#include "opintl.h"
27
 
28
static void
29
disassemble (bfd_vma memaddr,
30
             struct disassemble_info *info,
31
             unsigned long insn,
32
             unsigned long extension,
33
             unsigned int size)
34
{
35
  struct mn10200_opcode *op = (struct mn10200_opcode *)mn10200_opcodes;
36
  const struct mn10200_operand *operand;
37
  int match = 0;
38
 
39
  /* Find the opcode.  */
40
  while (op->name)
41
    {
42
      int mysize, extra_shift;
43
 
44
      if (op->format == FMT_1)
45
        mysize = 1;
46
      else if (op->format == FMT_2
47
               || op->format == FMT_4)
48
        mysize = 2;
49
      else if (op->format == FMT_3
50
               || op->format == FMT_5)
51
        mysize = 3;
52
      else if (op->format == FMT_6)
53
        mysize = 4;
54
      else if (op->format == FMT_7)
55
        mysize = 5;
56
      else
57
        abort ();
58
 
59
      if (op->format == FMT_2 || op->format == FMT_5)
60
        extra_shift = 8;
61
      else if (op->format == FMT_3
62
               || op->format == FMT_6
63
               || op->format == FMT_7)
64
        extra_shift = 16;
65
      else
66
        extra_shift = 0;
67
 
68
      if ((op->mask & insn) == op->opcode
69
          && size == (unsigned int) mysize)
70
        {
71
          const unsigned char *opindex_ptr;
72
          unsigned int nocomma;
73
          int paren = 0;
74
 
75
          match = 1;
76
          (*info->fprintf_func) (info->stream, "%s\t", op->name);
77
 
78
          /* Now print the operands.  */
79
          for (opindex_ptr = op->operands, nocomma = 1;
80
               *opindex_ptr != 0;
81
               opindex_ptr++)
82
            {
83
              unsigned long value;
84
 
85
              operand = &mn10200_operands[*opindex_ptr];
86
 
87
              if ((operand->flags & MN10200_OPERAND_EXTENDED) != 0)
88
                {
89
                  value = (insn & 0xffff) << 8;
90
                  value |= extension;
91
                }
92
              else
93
                {
94
                  value = ((insn >> (operand->shift))
95
                           & ((1L << operand->bits) - 1L));
96
                }
97
 
98
              if ((operand->flags & MN10200_OPERAND_SIGNED) != 0)
99
                value = ((long)(value << (32 - operand->bits))
100
                          >> (32 - operand->bits));
101
 
102
              if (!nocomma
103
                  && (!paren
104
                      || ((operand->flags & MN10200_OPERAND_PAREN) == 0)))
105
                (*info->fprintf_func) (info->stream, ",");
106
 
107
              nocomma = 0;
108
 
109
              if ((operand->flags & MN10200_OPERAND_DREG) != 0)
110
                {
111
                  value = ((insn >> (operand->shift + extra_shift))
112
                           & ((1 << operand->bits) - 1));
113
                  (*info->fprintf_func) (info->stream, "d%ld", value);
114
                }
115
 
116
              else if ((operand->flags & MN10200_OPERAND_AREG) != 0)
117
                {
118
                  value = ((insn >> (operand->shift + extra_shift))
119
                           & ((1 << operand->bits) - 1));
120
                  (*info->fprintf_func) (info->stream, "a%ld", value);
121
                }
122
 
123
              else if ((operand->flags & MN10200_OPERAND_PSW) != 0)
124
                (*info->fprintf_func) (info->stream, "psw");
125
 
126
              else if ((operand->flags & MN10200_OPERAND_MDR) != 0)
127
                (*info->fprintf_func) (info->stream, "mdr");
128
 
129
              else if ((operand->flags & MN10200_OPERAND_PAREN) != 0)
130
                {
131
                  if (paren)
132
                    (*info->fprintf_func) (info->stream, ")");
133
                  else
134
                    {
135
                      (*info->fprintf_func) (info->stream, "(");
136
                      nocomma = 1;
137
                    }
138
                  paren = !paren;
139
                }
140
 
141
              else if ((operand->flags & MN10200_OPERAND_PCREL) != 0)
142
                (*info->print_address_func)
143
                  ((value + memaddr + mysize) & 0xffffff, info);
144
 
145
              else if ((operand->flags & MN10200_OPERAND_MEMADDR) != 0)
146
                (*info->print_address_func) (value, info);
147
 
148
              else
149
                (*info->fprintf_func) (info->stream, "%ld", value);
150
            }
151
          /* All done. */
152
          break;
153
        }
154
      op++;
155
    }
156
 
157
  if (!match)
158
    (*info->fprintf_func) (info->stream, _("unknown\t0x%04lx"), insn);
159
}
160
 
161
int
162
print_insn_mn10200 (bfd_vma memaddr, struct disassemble_info *info)
163
{
164
  int status;
165
  bfd_byte buffer[4];
166
  unsigned long insn;
167
  unsigned long extension = 0;
168
  unsigned int consume;
169
 
170
  /* First figure out how big the opcode is.  */
171
  status = (*info->read_memory_func) (memaddr, buffer, 1, info);
172
  if (status != 0)
173
    {
174
      (*info->memory_error_func) (status, memaddr, info);
175
      return -1;
176
    }
177
 
178
  insn = *(unsigned char *) buffer;
179
 
180
  /* These are one byte insns.  */
181
  if ((insn & 0xf0) == 0x00
182
      || (insn & 0xf0) == 0x10
183
      || (insn & 0xf0) == 0x20
184
      || (insn & 0xf0) == 0x30
185
      || ((insn & 0xf0) == 0x80
186
          && (insn & 0x0c) >> 2 != (insn & 0x03))
187
      || (insn & 0xf0) == 0x90
188
      || (insn & 0xf0) == 0xa0
189
      || (insn & 0xf0) == 0xb0
190
      || (insn & 0xff) == 0xeb
191
      || (insn & 0xff) == 0xf6
192
      || (insn & 0xff) == 0xfe
193
      || (insn & 0xff) == 0xff)
194
    {
195
      extension = 0;
196
      consume = 1;
197
    }
198
 
199
  /* These are two byte insns.  */
200
  else if ((insn & 0xf0) == 0x40
201
           || (insn & 0xf0) == 0x50
202
           || (insn & 0xf0) == 0x60
203
           || (insn & 0xf0) == 0x70
204
           || (insn & 0xf0) == 0x80
205
           || (insn & 0xfc) == 0xd0
206
           || (insn & 0xfc) == 0xd4
207
           || (insn & 0xfc) == 0xd8
208
           || (insn & 0xfc) == 0xe0
209
           || (insn & 0xfc) == 0xe4
210
           || (insn & 0xff) == 0xe8
211
           || (insn & 0xff) == 0xe9
212
           || (insn & 0xff) == 0xea
213
           || (insn & 0xff) == 0xf0
214
           || (insn & 0xff) == 0xf1
215
           || (insn & 0xff) == 0xf2
216
           || (insn & 0xff) == 0xf3)
217
    {
218
      status = (*info->read_memory_func) (memaddr, buffer, 2, info);
219
      if (status != 0)
220
        {
221
          (*info->memory_error_func) (status, memaddr, info);
222
           return -1;
223
        }
224
      insn = bfd_getb16 (buffer);
225
      consume = 2;
226
    }
227
 
228
  /* These are three byte insns with a 16bit operand in little
229
     endian form.  */
230
  else if ((insn & 0xf0) == 0xc0
231
           || (insn & 0xfc) == 0xdc
232
           || (insn & 0xfc) == 0xec
233
           || (insn & 0xff) == 0xf8
234
           || (insn & 0xff) == 0xf9
235
           || (insn & 0xff) == 0xfa
236
           || (insn & 0xff) == 0xfb
237
           || (insn & 0xff) == 0xfc
238
           || (insn & 0xff) == 0xfd)
239
    {
240
      status = (*info->read_memory_func) (memaddr + 1, buffer, 2, info);
241
      if (status != 0)
242
        {
243
          (*info->memory_error_func) (status, memaddr, info);
244
          return -1;
245
        }
246
      insn <<= 16;
247
      insn |= bfd_getl16 (buffer);
248
      extension = 0;
249
      consume = 3;
250
    }
251
  /* These are three byte insns too, but we don't have to mess with
252
     endianness stuff.  */
253
  else if ((insn & 0xff) == 0xf5)
254
    {
255
      status = (*info->read_memory_func) (memaddr + 1, buffer, 2, info);
256
      if (status != 0)
257
        {
258
          (*info->memory_error_func) (status, memaddr, info);
259
          return -1;
260
        }
261
      insn <<= 16;
262
      insn |= bfd_getb16 (buffer);
263
      extension = 0;
264
      consume = 3;
265
    }
266
 
267
  /* These are four byte insns.  */
268
  else if ((insn & 0xff) == 0xf7)
269
    {
270
      status = (*info->read_memory_func) (memaddr, buffer, 2, info);
271
      if (status != 0)
272
        {
273
          (*info->memory_error_func) (status, memaddr, info);
274
          return -1;
275
        }
276
      insn = bfd_getb16 (buffer);
277
      insn <<= 16;
278
      status = (*info->read_memory_func) (memaddr + 2, buffer, 2, info);
279
      if (status != 0)
280
        {
281
          (*info->memory_error_func) (status, memaddr, info);
282
          return -1;
283
        }
284
      insn |= bfd_getl16 (buffer);
285
      extension = 0;
286
      consume = 4;
287
    }
288
 
289
  /* These are five byte insns.  */
290
  else if ((insn & 0xff) == 0xf4)
291
    {
292
      status = (*info->read_memory_func) (memaddr, buffer, 2, info);
293
      if (status != 0)
294
        {
295
          (*info->memory_error_func) (status, memaddr, info);
296
          return -1;
297
        }
298
      insn = bfd_getb16 (buffer);
299
      insn <<= 16;
300
 
301
      status = (*info->read_memory_func) (memaddr + 4, buffer, 1, info);
302
      if (status != 0)
303
        {
304
          (*info->memory_error_func) (status, memaddr, info);
305
          return -1;
306
        }
307
      insn |= (*(unsigned char *)buffer << 8) & 0xff00;
308
 
309
      status = (*info->read_memory_func) (memaddr + 3, buffer, 1, info);
310
      if (status != 0)
311
        {
312
          (*info->memory_error_func) (status, memaddr, info);
313
          return -1;
314
        }
315
      insn |= (*(unsigned char *)buffer) & 0xff;
316
 
317
      status = (*info->read_memory_func) (memaddr + 2, buffer, 1, info);
318
      if (status != 0)
319
        {
320
          (*info->memory_error_func) (status, memaddr, info);
321
          return -1;
322
        }
323
      extension = (*(unsigned char *)buffer) & 0xff;
324
      consume = 5;
325
    }
326
  else
327
    {
328
      (*info->fprintf_func) (info->stream, _("unknown\t0x%02lx"), insn);
329
      return 1;
330
    }
331
 
332
  disassemble (memaddr, info, insn, extension, consume);
333
 
334
  return consume;
335
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.