2000-08-03 H.J. Lu (hjl@gnu.org)
[binutils.git] / opcodes / m10200-dis.c
blob01d54627b149cefda25cee8c9143e78da5e1162e
1 /* Disassemble MN10200 instructions.
2 Copyright (C) 1996, 1997, 1998 Free Software Foundation, Inc.
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.
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.
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. */
19 #include <stdio.h>
21 #include "sysdep.h"
22 #include "opcode/mn10200.h"
23 #include "dis-asm.h"
24 #include "opintl.h"
26 static void disassemble PARAMS ((bfd_vma, struct disassemble_info *,
27 unsigned long insn, unsigned long,
28 unsigned int));
30 int
31 print_insn_mn10200 (memaddr, info)
32 bfd_vma memaddr;
33 struct disassemble_info *info;
35 int status;
36 bfd_byte buffer[4];
37 unsigned long insn;
38 unsigned long extension = 0;
39 unsigned int consume;
41 /* First figure out how big the opcode is. */
42 status = (*info->read_memory_func) (memaddr, buffer, 1, info);
43 if (status != 0)
45 (*info->memory_error_func) (status, memaddr, info);
46 return -1;
49 insn = *(unsigned char *) buffer;
51 /* These are one byte insns. */
52 if ((insn & 0xf0) == 0x00
53 || (insn & 0xf0) == 0x10
54 || (insn & 0xf0) == 0x20
55 || (insn & 0xf0) == 0x30
56 || ((insn & 0xf0) == 0x80
57 && (insn & 0x0c) >> 2 != (insn & 0x03))
58 || (insn & 0xf0) == 0x90
59 || (insn & 0xf0) == 0xa0
60 || (insn & 0xf0) == 0xb0
61 || (insn & 0xff) == 0xeb
62 || (insn & 0xff) == 0xf6
63 || (insn & 0xff) == 0xfe
64 || (insn & 0xff) == 0xff)
66 extension = 0;
67 consume = 1;
70 /* These are two byte insns. */
71 else if ((insn & 0xf0) == 0x40
72 || (insn & 0xf0) == 0x50
73 || (insn & 0xf0) == 0x60
74 || (insn & 0xf0) == 0x70
75 || (insn & 0xf0) == 0x80
76 || (insn & 0xfc) == 0xd0
77 || (insn & 0xfc) == 0xd4
78 || (insn & 0xfc) == 0xd8
79 || (insn & 0xfc) == 0xe0
80 || (insn & 0xfc) == 0xe4
81 || (insn & 0xff) == 0xe8
82 || (insn & 0xff) == 0xe9
83 || (insn & 0xff) == 0xea
84 || (insn & 0xff) == 0xf0
85 || (insn & 0xff) == 0xf1
86 || (insn & 0xff) == 0xf2
87 || (insn & 0xff) == 0xf3)
89 status = (*info->read_memory_func) (memaddr, buffer, 2, info);
90 if (status != 0)
92 (*info->memory_error_func) (status, memaddr, info);
93 return -1;
95 insn = bfd_getb16 (buffer);
96 consume = 2;
99 /* These are three byte insns with a 16bit operand in little
100 endian form. */
101 else if ((insn & 0xf0) == 0xc0
102 || (insn & 0xfc) == 0xdc
103 || (insn & 0xfc) == 0xec
104 || (insn & 0xff) == 0xf8
105 || (insn & 0xff) == 0xf9
106 || (insn & 0xff) == 0xfa
107 || (insn & 0xff) == 0xfb
108 || (insn & 0xff) == 0xfc
109 || (insn & 0xff) == 0xfd)
111 status = (*info->read_memory_func) (memaddr + 1, buffer, 2, info);
112 if (status != 0)
114 (*info->memory_error_func) (status, memaddr, info);
115 return -1;
117 insn <<= 16;
118 insn |= bfd_getl16 (buffer);
119 extension = 0;
120 consume = 3;
122 /* These are three byte insns too, but we don't have to mess with
123 endianness stuff. */
124 else if ((insn & 0xff) == 0xf5)
126 status = (*info->read_memory_func) (memaddr + 1, buffer, 2, info);
127 if (status != 0)
129 (*info->memory_error_func) (status, memaddr, info);
130 return -1;
132 insn <<= 16;
133 insn |= bfd_getb16 (buffer);
134 extension = 0;
135 consume = 3;
138 /* These are four byte insns. */
139 else if ((insn & 0xff) == 0xf7)
141 status = (*info->read_memory_func) (memaddr, buffer, 2, info);
142 if (status != 0)
144 (*info->memory_error_func) (status, memaddr, info);
145 return -1;
147 insn = bfd_getb16 (buffer);
148 insn <<= 16;
149 status = (*info->read_memory_func) (memaddr + 2, buffer, 2, info);
150 if (status != 0)
152 (*info->memory_error_func) (status, memaddr, info);
153 return -1;
155 insn |= bfd_getl16 (buffer);
156 extension = 0;
157 consume = 4;
160 /* These are five byte insns. */
161 else if ((insn & 0xff) == 0xf4)
163 status = (*info->read_memory_func) (memaddr, buffer, 2, info);
164 if (status != 0)
166 (*info->memory_error_func) (status, memaddr, info);
167 return -1;
169 insn = bfd_getb16 (buffer);
170 insn <<= 16;
172 status = (*info->read_memory_func) (memaddr + 4, buffer, 1, info);
173 if (status != 0)
175 (*info->memory_error_func) (status, memaddr, info);
176 return -1;
178 insn |= (*(unsigned char *)buffer << 8) & 0xff00;
180 status = (*info->read_memory_func) (memaddr + 3, buffer, 1, info);
181 if (status != 0)
183 (*info->memory_error_func) (status, memaddr, info);
184 return -1;
186 insn |= (*(unsigned char *)buffer) & 0xff;
188 status = (*info->read_memory_func) (memaddr + 2, buffer, 1, info);
189 if (status != 0)
191 (*info->memory_error_func) (status, memaddr, info);
192 return -1;
194 extension = (*(unsigned char *)buffer) & 0xff;
195 consume = 5;
197 else
199 (*info->fprintf_func) (info->stream, _("unknown\t0x%02x"), insn);
200 return 1;
203 disassemble (memaddr, info, insn, extension, consume);
205 return consume;
208 static void
209 disassemble (memaddr, info, insn, extension, size)
210 bfd_vma memaddr;
211 struct disassemble_info *info;
212 unsigned long insn;
213 unsigned long extension;
214 unsigned int size;
216 struct mn10200_opcode *op = (struct mn10200_opcode *)mn10200_opcodes;
217 const struct mn10200_operand *operand;
218 int match = 0;
220 /* Find the opcode. */
221 while (op->name)
223 int mysize, extra_shift;
225 if (op->format == FMT_1)
226 mysize = 1;
227 else if (op->format == FMT_2
228 || op->format == FMT_4)
229 mysize = 2;
230 else if (op->format == FMT_3
231 || op->format == FMT_5)
232 mysize = 3;
233 else if (op->format == FMT_6)
234 mysize = 4;
235 else if (op->format == FMT_7)
236 mysize = 5;
237 else
238 abort ();
240 if (op->format == FMT_2 || op->format == FMT_5)
241 extra_shift = 8;
242 else if (op->format == FMT_3
243 || op->format == FMT_6
244 || op->format == FMT_7)
245 extra_shift = 16;
246 else
247 extra_shift = 0;
249 if ((op->mask & insn) == op->opcode
250 && size == (unsigned int) mysize)
252 const unsigned char *opindex_ptr;
253 unsigned int nocomma;
254 int paren = 0;
256 match = 1;
257 (*info->fprintf_func) (info->stream, "%s\t", op->name);
259 /* Now print the operands. */
260 for (opindex_ptr = op->operands, nocomma = 1;
261 *opindex_ptr != 0;
262 opindex_ptr++)
264 unsigned long value;
266 operand = &mn10200_operands[*opindex_ptr];
268 if ((operand->flags & MN10200_OPERAND_EXTENDED) != 0)
270 value = (insn & 0xffff) << 8;
271 value |= extension;
273 else
275 value = ((insn >> (operand->shift))
276 & ((1L << operand->bits) - 1L));
279 if ((operand->flags & MN10200_OPERAND_SIGNED) != 0)
280 value = ((long)(value << (32 - operand->bits))
281 >> (32 - operand->bits));
283 if (!nocomma
284 && (!paren
285 || ((operand->flags & MN10200_OPERAND_PAREN) == 0)))
286 (*info->fprintf_func) (info->stream, ",");
288 nocomma = 0;
290 if ((operand->flags & MN10200_OPERAND_DREG) != 0)
292 value = ((insn >> (operand->shift + extra_shift))
293 & ((1 << operand->bits) - 1));
294 (*info->fprintf_func) (info->stream, "d%d", value);
297 else if ((operand->flags & MN10200_OPERAND_AREG) != 0)
299 value = ((insn >> (operand->shift + extra_shift))
300 & ((1 << operand->bits) - 1));
301 (*info->fprintf_func) (info->stream, "a%d", value);
304 else if ((operand->flags & MN10200_OPERAND_PSW) != 0)
305 (*info->fprintf_func) (info->stream, "psw");
307 else if ((operand->flags & MN10200_OPERAND_MDR) != 0)
308 (*info->fprintf_func) (info->stream, "mdr");
310 else if ((operand->flags & MN10200_OPERAND_PAREN) != 0)
312 if (paren)
313 (*info->fprintf_func) (info->stream, ")");
314 else
316 (*info->fprintf_func) (info->stream, "(");
317 nocomma = 1;
319 paren = !paren;
322 else if ((operand->flags & MN10200_OPERAND_PCREL) != 0)
323 (*info->print_address_func) ((value + memaddr + mysize) & 0xffffff, info);
325 else if ((operand->flags & MN10200_OPERAND_MEMADDR) != 0)
326 (*info->print_address_func) (value, info);
328 else
329 (*info->fprintf_func) (info->stream, "%ld", value);
331 /* All done. */
332 break;
334 op++;
337 if (!match)
339 (*info->fprintf_func) (info->stream, _("unknown\t0x%04lx"), insn);