source: trunk/src/binutils/opcodes/h8500-dis.c@ 402

Last change on this file since 402 was 10, checked in by bird, 23 years ago

Initial revision
  • Property cvs2svn:cvs-rev set to 1.1
  • Property svn:eol-style set to native
  • Property svn:executable set to *
File size: 7.8 KB
Line 
1/* Disassemble h8500 instructions.
2 Copyright 1993, 1998, 2000 Free Software Foundation, Inc.
3
4This program is free software; you can redistribute it and/or modify
5it under the terms of the GNU General Public License as published by
6the Free Software Foundation; either version 2 of the License, or
7(at your option) any later version.
8
9This program is distributed in the hope that it will be useful,
10but WITHOUT ANY WARRANTY; without even the implied warranty of
11MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12GNU General Public License for more details.
13
14You should have received a copy of the GNU General Public License
15along with this program; if not, write to the Free Software
16Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
17
18#include <stdio.h>
19
20#define DISASSEMBLER_TABLE
21#define DEFINE_TABLE
22
23#include "sysdep.h"
24#include "h8500-opc.h"
25#include "dis-asm.h"
26#include "opintl.h"
27
28/* Maximum length of an instruction. */
29#define MAXLEN 8
30
31#include <setjmp.h>
32
33struct private
34{
35 /* Points to first byte not fetched. */
36 bfd_byte *max_fetched;
37 bfd_byte the_buffer[MAXLEN];
38 bfd_vma insn_start;
39 jmp_buf bailout;
40};
41
42/* Make sure that bytes from INFO->PRIVATE_DATA->BUFFER (inclusive)
43 to ADDR (exclusive) are valid. Returns 1 for success, longjmps
44 on error. */
45#define FETCH_DATA(info, addr) \
46 ((addr) <= ((struct private *)(info->private_data))->max_fetched \
47 ? 1 : fetch_data ((info), (addr)))
48
49static int
50fetch_data (info, addr)
51 struct disassemble_info *info;
52 bfd_byte *addr;
53{
54 int status;
55 struct private *priv = (struct private *) info->private_data;
56 bfd_vma start = priv->insn_start + (priv->max_fetched - priv->the_buffer);
57
58 status = (*info->read_memory_func) (start,
59 priv->max_fetched,
60 addr - priv->max_fetched,
61 info);
62 if (status != 0)
63 {
64 (*info->memory_error_func) (status, start, info);
65 longjmp (priv->bailout, 1);
66 }
67 else
68 priv->max_fetched = addr;
69 return 1;
70}
71
72static char *crname[] = { "sr", "ccr", "*", "br", "ep", "dp", "*", "tp" };
73
74int
75print_insn_h8500 (addr, info)
76 bfd_vma addr;
77 disassemble_info *info;
78{
79 h8500_opcode_info *opcode;
80 void *stream = info->stream;
81 fprintf_ftype func = info->fprintf_func;
82
83 struct private priv;
84 bfd_byte *buffer = priv.the_buffer;
85
86 info->private_data = (PTR) & priv;
87 priv.max_fetched = priv.the_buffer;
88 priv.insn_start = addr;
89 if (setjmp (priv.bailout) != 0)
90 /* Error return. */
91 return -1;
92
93 if (0)
94 {
95 static int one;
96
97 if (!one)
98 {
99 one = 1;
100 for (opcode = h8500_table; opcode->name; opcode++)
101 {
102 if ((opcode->bytes[0].contents & 0x8) == 0)
103 printf ("%s\n", opcode->name);
104 }
105 }
106 }
107
108 /* Run down the table to find the one which matches. */
109 for (opcode = h8500_table; opcode->name; opcode++)
110 {
111 int byte;
112 int rn = 0;
113 int rd = 0;
114 int rs = 0;
115 int disp = 0;
116 int abs = 0;
117 int imm = 0;
118 int pcrel = 0;
119 int qim = 0;
120 int i;
121 int cr = 0;
122
123 for (byte = 0; byte < opcode->length; byte++)
124 {
125 FETCH_DATA (info, buffer + byte + 1);
126 if ((buffer[byte] & opcode->bytes[byte].mask)
127 != (opcode->bytes[byte].contents))
128 {
129 goto next;
130 }
131 else
132 {
133 /* Extract any info parts. */
134 switch (opcode->bytes[byte].insert)
135 {
136 case 0:
137 case FP:
138 break;
139 default:
140 /* xgettext:c-format */
141 func (stream, _("can't cope with insert %d\n"),
142 opcode->bytes[byte].insert);
143 break;
144 case RN:
145 rn = buffer[byte] & 0x7;
146 break;
147 case RS:
148 rs = buffer[byte] & 0x7;
149 break;
150 case CRB:
151 cr = buffer[byte] & 0x7;
152 if (cr == 0)
153 goto next;
154 break;
155 case CRW:
156 cr = buffer[byte] & 0x7;
157 if (cr != 0)
158 goto next;
159 break;
160 case DISP16:
161 FETCH_DATA (info, buffer + byte + 2);
162 disp = (buffer[byte] << 8) | (buffer[byte + 1]);
163 break;
164 case FPIND_D8:
165 case DISP8:
166 disp = ((char) (buffer[byte]));
167 break;
168 case RD:
169 case RDIND:
170 rd = buffer[byte] & 0x7;
171 break;
172 case ABS24:
173 FETCH_DATA (info, buffer + byte + 3);
174 abs =
175 (buffer[byte] << 16)
176 | (buffer[byte + 1] << 8)
177 | (buffer[byte + 2]);
178 break;
179 case ABS16:
180 FETCH_DATA (info, buffer + byte + 2);
181 abs = (buffer[byte] << 8) | (buffer[byte + 1]);
182 break;
183 case ABS8:
184 abs = (buffer[byte]);
185 break;
186 case IMM16:
187 FETCH_DATA (info, buffer + byte + 2);
188 imm = (buffer[byte] << 8) | (buffer[byte + 1]);
189 break;
190 case IMM4:
191 imm = (buffer[byte]) & 0xf;
192 break;
193 case IMM8:
194 case RLIST:
195 imm = (buffer[byte]);
196 break;
197 case PCREL16:
198 FETCH_DATA (info, buffer + byte + 2);
199 pcrel = (buffer[byte] << 8) | (buffer[byte + 1]);
200 break;
201 case PCREL8:
202 pcrel = (buffer[byte]);
203 break;
204 case QIM:
205 switch (buffer[byte] & 0x7)
206 {
207 case 0:
208 qim = 1;
209 break;
210 case 1:
211 qim = 2;
212 break;
213 case 4:
214 qim = -1;
215 break;
216 case 5:
217 qim = -2;
218 break;
219 }
220 break;
221
222 }
223 }
224 }
225 /* We get here when all the masks have passed so we can output
226 the operands. */
227 FETCH_DATA (info, buffer + opcode->length);
228 for (i = 0; i < opcode->length; i++)
229 {
230 (func) (stream, "%02x ", buffer[i]);
231 }
232 for (; i < 6; i++)
233 {
234 (func) (stream, " ");
235 }
236 (func) (stream, "%s\t", opcode->name);
237 for (i = 0; i < opcode->nargs; i++)
238 {
239 if (i)
240 (func) (stream, ",");
241 switch (opcode->arg_type[i])
242 {
243 case FP:
244 func (stream, "fp");
245 break;
246 case RNIND_D16:
247 func (stream, "@(0x%x:16,r%d)", disp, rn);
248 break;
249 case RNIND_D8:
250 func (stream, "@(0x%x:8 (%d),r%d)", disp & 0xff, disp, rn);
251 break;
252 case RDIND_D16:
253 func (stream, "@(0x%x:16,r%d)", disp, rd);
254 break;
255 case RDIND_D8:
256 func (stream, "@(0x%x:8 (%d), r%d)", disp & 0xff, disp, rd);
257 break;
258 case FPIND_D8:
259 func (stream, "@(0x%x:8 (%d), fp)", disp & 0xff, disp, rn);
260 break;
261 case CRB:
262 case CRW:
263 func (stream, "%s", crname[cr]);
264 break;
265 case RN:
266 func (stream, "r%d", rn);
267 break;
268 case RD:
269 func (stream, "r%d", rd);
270 break;
271 case RS:
272 func (stream, "r%d", rs);
273 break;
274 case RNDEC:
275 func (stream, "@-r%d", rn);
276 break;
277 case RNINC:
278 func (stream, "@r%d+", rn);
279 break;
280 case RNIND:
281 func (stream, "@r%d", rn);
282 break;
283 case RDIND:
284 func (stream, "@r%d", rd);
285 break;
286 case SPINC:
287 func (stream, "@sp+");
288 break;
289 case SPDEC:
290 func (stream, "@-sp");
291 break;
292 case ABS24:
293 func (stream, "@0x%0x:24", abs);
294 break;
295 case ABS16:
296 func (stream, "@0x%0x:16", abs & 0xffff);
297 break;
298 case ABS8:
299 func (stream, "@0x%0x:8", abs & 0xff);
300 break;
301 case IMM16:
302 func (stream, "#0x%0x:16", imm & 0xffff);
303 break;
304 case RLIST:
305 {
306 int i;
307 int nc = 0;
308 func (stream, "(");
309 for (i = 0; i < 8; i++)
310 {
311 if (imm & (1 << i))
312 {
313 func (stream, "r%d", i);
314 if (nc)
315 func (stream, ",");
316 nc = 1;
317 }
318 }
319 func (stream, ")");
320 }
321 break;
322 case IMM8:
323 func (stream, "#0x%0x:8", imm & 0xff);
324 break;
325 case PCREL16:
326 func (stream, "0x%0x:16",
327 (pcrel + addr + opcode->length) & 0xffff);
328 break;
329 case PCREL8:
330 func (stream, "#0x%0x:8",
331 ((char) pcrel + addr + opcode->length) & 0xffff);
332 break;
333 case QIM:
334 func (stream, "#%d:q", qim);
335 break;
336 case IMM4:
337 func (stream, "#%d:4", imm);
338 break;
339 }
340 }
341 return opcode->length;
342 next:
343 ;
344 }
345
346 /* Couldn't understand anything. */
347 /* xgettext:c-format */
348 func (stream, _("%02x\t\t*unknown*"), buffer[0]);
349 return 1;
350}
Note: See TracBrowser for help on using the repository browser.