1 /* Print instructions for the Motorola 88000, for GDB and GNU Binutils.
2 Copyright (c) 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1998
3 Free Software Foundation, Inc.
4 Contributed by Data General Corporation, November 1989.
5 Partially derived from an earlier printcmd.c.
7 This file is part of GDB and the GNU Binutils.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
25 #include "opcode/m88k.h"
28 INSTAB *hashtable[HASHVAL] = {0};
31 m88kdis PARAMS ((bfd_vma, unsigned long, struct disassemble_info *));
34 printop PARAMS ((struct disassemble_info *, OPSPEC *,
35 unsigned long, bfd_vma, int));
38 init_disasm PARAMS ((void));
41 install PARAMS ((INSTAB *instptr));
44 * Disassemble an M88000 Instruction
47 * This module decodes the instruction at memaddr.
51 * Revision 1.0 11/08/85 Creation date by Motorola
52 * 05/11/89 R. Trawick adapted to GDB interface.
53 * 07/12/93 Ian Lance Taylor updated to
58 print_insn_m88k (memaddr, info)
60 struct disassemble_info *info;
65 /* Instruction addresses may have low two bits set. Clear them. */
66 memaddr &=~ (bfd_vma) 3;
68 status = (*info->read_memory_func) (memaddr, buffer, 4, info);
71 (*info->memory_error_func) (status, memaddr, info);
75 return m88kdis (memaddr, bfd_getb32 (buffer), info);
79 * disassemble the instruction in 'instruction'.
80 * 'pc' should be the address of this instruction, it will
81 * be used to print the target address if this is a relative jump or call
82 * the disassembled instruction is written to 'info'.
83 * The function returns the length of this instruction in bytes.
87 m88kdis (pc, instruction, info)
89 unsigned long instruction;
90 struct disassemble_info *info;
92 static int ihashtab_initialized = 0;
98 if (! ihashtab_initialized)
101 /* create the appropriate mask to isolate the opcode */
103 class = instruction & DEFMASK;
104 if ((class >= SFU0) && (class <= SFU7))
106 if (instruction < SFU1)
111 else if (class == RRR)
113 else if (class == RRI10)
116 /* isolate the opcode */
117 opcode = instruction & opmask;
119 /* search the hash table with the isolated opcode */
120 for (entry_ptr = hashtable[opcode % HASHVAL];
121 (entry_ptr != NULL) && (entry_ptr->opcode != opcode);
122 entry_ptr = entry_ptr->next)
125 if (entry_ptr == NULL)
126 (*info->fprintf_func) (info->stream, "word\t%08x", instruction);
129 (*info->fprintf_func) (info->stream, "%s", entry_ptr->mnemonic);
130 printop (info, &(entry_ptr->op1), instruction, pc, 1);
131 printop (info, &(entry_ptr->op2), instruction, pc, 0);
132 printop (info, &(entry_ptr->op3), instruction, pc, 0);
139 * Decode an Operand of an Instruction
141 * Functional Description
143 * This module formats and writes an operand of an instruction to info
144 * based on the operand specification. When the first flag is set this
145 * is the first operand of an instruction. Undefined operand types
146 * cause a <dis error> message.
149 * disassemble_info where the operand may be printed
150 * OPSPEC *opptr Pointer to an operand specification
151 * UINT inst Instruction from which operand is extracted
152 * UINT pc PC of instruction; used for pc-relative disp.
153 * int first Flag which if nonzero indicates the first
154 * operand of an instruction
158 * The operand specified is extracted from the instruction and is
159 * written to buf in the format specified. The operand is preceded
160 * by a comma if it is not the first operand of an instruction and it
161 * is not a register indirect form. Registers are preceded by 'r' and
162 * hex values by '0x'.
166 * Revision 1.0 11/08/85 Creation date
170 printop (info, opptr, inst, pc, first)
171 struct disassemble_info *info;
180 if (opptr->width == 0)
191 (*info->fprintf_func) (info->stream, ",");
199 (*info->fprintf_func) (info->stream, "cr%d",
200 UEXT (inst, opptr->offset, opptr->width));
204 (*info->fprintf_func) (info->stream, "fcr%d",
205 UEXT (inst, opptr->offset, opptr->width));
209 (*info->fprintf_func) (info->stream, "[r%d]",
210 UEXT (inst, opptr->offset, opptr->width));
214 (*info->fprintf_func) (info->stream, "r%d",
215 UEXT (inst, opptr->offset, opptr->width));
219 (*info->fprintf_func) (info->stream, "x%d",
220 UEXT (inst, opptr->offset, opptr->width));
224 extracted_field = UEXT (inst, opptr->offset, opptr->width);
225 if (extracted_field == 0)
226 (*info->fprintf_func) (info->stream, "0");
228 (*info->fprintf_func) (info->stream, "0x%02x", extracted_field);
232 extracted_field = UEXT (inst, opptr->offset, opptr->width);
233 (*info->fprintf_func) (info->stream, "%d", extracted_field);
237 extracted_field = UEXT (inst, opptr->offset, opptr->width);
238 switch (extracted_field & 0x0f)
240 case 0x1: cond_mask_sym = "gt0"; break;
241 case 0x2: cond_mask_sym = "eq0"; break;
242 case 0x3: cond_mask_sym = "ge0"; break;
243 case 0xc: cond_mask_sym = "lt0"; break;
244 case 0xd: cond_mask_sym = "ne0"; break;
245 case 0xe: cond_mask_sym = "le0"; break;
246 default: cond_mask_sym = NULL; break;
248 if (cond_mask_sym != NULL)
249 (*info->fprintf_func) (info->stream, "%s", cond_mask_sym);
251 (*info->fprintf_func) (info->stream, "%x", extracted_field);
255 (*info->print_address_func)
256 (pc + (4 * (SEXT (inst, opptr->offset, opptr->width))),
261 (*info->fprintf_func) (info->stream, "%d,r%d",
262 UEXT (inst, opptr->offset, 5),
263 UEXT (inst, (opptr->offset) + 5, 5));
267 (*info->fprintf_func) (info->stream, "%d<%d>",
268 UEXT (inst, (opptr->offset) + 5, 5),
269 UEXT (inst, opptr->offset, 5));
273 /* xgettext:c-format */
274 (*info->fprintf_func) (info->stream, _("# <dis error: %08x>"), inst);
279 * Initialize the Disassembler Instruction Table
281 * Initialize the hash table and instruction table for the disassembler.
282 * This should be called once before the first call to disasm().
288 * If the debug option is selected, certain statistics about the hashing
289 * distribution are written to stdout.
293 * Revision 1.0 11/08/85 Creation date
301 for (i = 0; i < HASHVAL; i++)
304 size = sizeof (instructions) / sizeof (INSTAB);
305 for (i = 0; i < size; i++)
306 install (&instructions[i]);
310 * Insert an instruction into the disassembler table by hashing the
311 * opcode and inserting it into the linked list for that hash value.
315 * INSTAB *instptr Pointer to the entry in the instruction table
318 * Revision 1.0 11/08/85 Creation date
319 * 05/11/89 R. TRAWICK ADAPTED FROM MOTOROLA
328 i = (instptr->opcode) % HASHVAL;
329 instptr->next = hashtable[i];
330 hashtable[i] = instptr;