1 | /* m68hc11-dis.c -- Motorola 68HC11 & 68HC12 disassembly
|
---|
2 | Copyright 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
|
---|
3 | Written by Stephane Carrez (stcarrez@nerim.fr)
|
---|
4 |
|
---|
5 | This program is free software; you can redistribute it and/or modify
|
---|
6 | it under the terms of the GNU General Public License as published by
|
---|
7 | the Free Software Foundation; either version 2 of the License, or
|
---|
8 | (at your option) any later version.
|
---|
9 |
|
---|
10 | This program is distributed in the hope that it will be useful,
|
---|
11 | but WITHOUT ANY WARRANTY; without even the implied warranty of
|
---|
12 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
---|
13 | GNU General Public License for more details.
|
---|
14 |
|
---|
15 | You should have received a copy of the GNU General Public License
|
---|
16 | along with this program; if not, write to the Free Software
|
---|
17 | Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
---|
18 |
|
---|
19 | #include <stdio.h>
|
---|
20 |
|
---|
21 | #include "ansidecl.h"
|
---|
22 | #include "opcode/m68hc11.h"
|
---|
23 | #include "dis-asm.h"
|
---|
24 |
|
---|
25 | #define PC_REGNUM 3
|
---|
26 |
|
---|
27 | static const char *const reg_name[] = {
|
---|
28 | "X", "Y", "SP", "PC"
|
---|
29 | };
|
---|
30 |
|
---|
31 | static const char *const reg_src_table[] = {
|
---|
32 | "A", "B", "CCR", "TMP3", "D", "X", "Y", "SP"
|
---|
33 | };
|
---|
34 |
|
---|
35 | static const char *const reg_dst_table[] = {
|
---|
36 | "A", "B", "CCR", "TMP2", "D", "X", "Y", "SP"
|
---|
37 | };
|
---|
38 |
|
---|
39 | #define OP_PAGE_MASK (M6811_OP_PAGE2|M6811_OP_PAGE3|M6811_OP_PAGE4)
|
---|
40 |
|
---|
41 | /* Prototypes for local functions. */
|
---|
42 | static int read_memory
|
---|
43 | PARAMS ((bfd_vma, bfd_byte *, int, struct disassemble_info *));
|
---|
44 | static int print_indexed_operand
|
---|
45 | PARAMS ((bfd_vma, struct disassemble_info *, int*, int, int, bfd_vma));
|
---|
46 | static int print_insn
|
---|
47 | PARAMS ((bfd_vma, struct disassemble_info *, int));
|
---|
48 |
|
---|
49 | static int
|
---|
50 | read_memory (memaddr, buffer, size, info)
|
---|
51 | bfd_vma memaddr;
|
---|
52 | bfd_byte *buffer;
|
---|
53 | int size;
|
---|
54 | struct disassemble_info *info;
|
---|
55 | {
|
---|
56 | int status;
|
---|
57 |
|
---|
58 | /* Get first byte. Only one at a time because we don't know the
|
---|
59 | size of the insn. */
|
---|
60 | status = (*info->read_memory_func) (memaddr, buffer, size, info);
|
---|
61 | if (status != 0)
|
---|
62 | {
|
---|
63 | (*info->memory_error_func) (status, memaddr, info);
|
---|
64 | return -1;
|
---|
65 | }
|
---|
66 | return 0;
|
---|
67 | }
|
---|
68 |
|
---|
69 |
|
---|
70 | /* Read the 68HC12 indexed operand byte and print the corresponding mode.
|
---|
71 | Returns the number of bytes read or -1 if failure. */
|
---|
72 | static int
|
---|
73 | print_indexed_operand (memaddr, info, indirect, mov_insn, pc_offset, endaddr)
|
---|
74 | bfd_vma memaddr;
|
---|
75 | struct disassemble_info *info;
|
---|
76 | int *indirect;
|
---|
77 | int mov_insn;
|
---|
78 | int pc_offset;
|
---|
79 | bfd_vma endaddr;
|
---|
80 | {
|
---|
81 | bfd_byte buffer[4];
|
---|
82 | int reg;
|
---|
83 | int status;
|
---|
84 | short sval;
|
---|
85 | int pos = 1;
|
---|
86 |
|
---|
87 | if (indirect)
|
---|
88 | *indirect = 0;
|
---|
89 |
|
---|
90 | status = read_memory (memaddr, &buffer[0], 1, info);
|
---|
91 | if (status != 0)
|
---|
92 | {
|
---|
93 | return status;
|
---|
94 | }
|
---|
95 |
|
---|
96 | /* n,r with 5-bits signed constant. */
|
---|
97 | if ((buffer[0] & 0x20) == 0)
|
---|
98 | {
|
---|
99 | reg = (buffer[0] >> 6) & 3;
|
---|
100 | sval = (buffer[0] & 0x1f);
|
---|
101 | if (sval & 0x10)
|
---|
102 | sval |= 0xfff0;
|
---|
103 | /* 68HC12 requires an adjustment for movb/movw pc relative modes. */
|
---|
104 | if (reg == PC_REGNUM && info->mach == bfd_mach_m6812 && mov_insn)
|
---|
105 | sval += pc_offset;
|
---|
106 | (*info->fprintf_func) (info->stream, "%d,%s",
|
---|
107 | (int) sval, reg_name[reg]);
|
---|
108 |
|
---|
109 | if (reg == PC_REGNUM)
|
---|
110 | {
|
---|
111 | (* info->fprintf_func) (info->stream, " {");
|
---|
112 | (* info->print_address_func) (endaddr + sval, info);
|
---|
113 | (* info->fprintf_func) (info->stream, "}");
|
---|
114 | }
|
---|
115 | }
|
---|
116 |
|
---|
117 | /* Auto pre/post increment/decrement. */
|
---|
118 | else if ((buffer[0] & 0xc0) != 0xc0)
|
---|
119 | {
|
---|
120 | const char *mode;
|
---|
121 |
|
---|
122 | reg = (buffer[0] >> 6) & 3;
|
---|
123 | sval = (buffer[0] & 0x0f);
|
---|
124 | if (sval & 0x8)
|
---|
125 | {
|
---|
126 | sval |= 0xfff0;
|
---|
127 | sval = -sval;
|
---|
128 | mode = "-";
|
---|
129 | }
|
---|
130 | else
|
---|
131 | {
|
---|
132 | sval = sval + 1;
|
---|
133 | mode = "+";
|
---|
134 | }
|
---|
135 | (*info->fprintf_func) (info->stream, "%d,%s%s%s",
|
---|
136 | (int) sval,
|
---|
137 | (buffer[0] & 0x10 ? "" : mode),
|
---|
138 | reg_name[reg], (buffer[0] & 0x10 ? mode : ""));
|
---|
139 | }
|
---|
140 |
|
---|
141 | /* [n,r] 16-bits offset indexed indirect. */
|
---|
142 | else if ((buffer[0] & 0x07) == 3)
|
---|
143 | {
|
---|
144 | if (mov_insn)
|
---|
145 | {
|
---|
146 | (*info->fprintf_func) (info->stream, "<invalid op: 0x%x>",
|
---|
147 | buffer[0] & 0x0ff);
|
---|
148 | return 0;
|
---|
149 | }
|
---|
150 | reg = (buffer[0] >> 3) & 0x03;
|
---|
151 | status = read_memory (memaddr + pos, &buffer[0], 2, info);
|
---|
152 | if (status != 0)
|
---|
153 | {
|
---|
154 | return status;
|
---|
155 | }
|
---|
156 |
|
---|
157 | pos += 2;
|
---|
158 | sval = ((buffer[0] << 8) | (buffer[1] & 0x0FF));
|
---|
159 | (*info->fprintf_func) (info->stream, "[%u,%s]",
|
---|
160 | sval & 0x0ffff, reg_name[reg]);
|
---|
161 | if (indirect)
|
---|
162 | *indirect = 1;
|
---|
163 | }
|
---|
164 |
|
---|
165 | /* n,r with 9 and 16 bit signed constant. */
|
---|
166 | else if ((buffer[0] & 0x4) == 0)
|
---|
167 | {
|
---|
168 | if (mov_insn)
|
---|
169 | {
|
---|
170 | (*info->fprintf_func) (info->stream, "<invalid op: 0x%x>",
|
---|
171 | buffer[0] & 0x0ff);
|
---|
172 | return 0;
|
---|
173 | }
|
---|
174 | reg = (buffer[0] >> 3) & 0x03;
|
---|
175 | status = read_memory (memaddr + pos,
|
---|
176 | &buffer[1], (buffer[0] & 0x2 ? 2 : 1), info);
|
---|
177 | if (status != 0)
|
---|
178 | {
|
---|
179 | return status;
|
---|
180 | }
|
---|
181 | if (buffer[0] & 2)
|
---|
182 | {
|
---|
183 | sval = ((buffer[1] << 8) | (buffer[2] & 0x0FF));
|
---|
184 | sval &= 0x0FFFF;
|
---|
185 | pos += 2;
|
---|
186 | endaddr += 2;
|
---|
187 | }
|
---|
188 | else
|
---|
189 | {
|
---|
190 | sval = buffer[1] & 0x00ff;
|
---|
191 | if (buffer[0] & 0x01)
|
---|
192 | sval |= 0xff00;
|
---|
193 | pos++;
|
---|
194 | endaddr++;
|
---|
195 | }
|
---|
196 | (*info->fprintf_func) (info->stream, "%d,%s",
|
---|
197 | (int) sval, reg_name[reg]);
|
---|
198 | if (reg == PC_REGNUM)
|
---|
199 | {
|
---|
200 | (* info->fprintf_func) (info->stream, " {");
|
---|
201 | (* info->print_address_func) (endaddr + sval, info);
|
---|
202 | (* info->fprintf_func) (info->stream, "}");
|
---|
203 | }
|
---|
204 | }
|
---|
205 | else
|
---|
206 | {
|
---|
207 | reg = (buffer[0] >> 3) & 0x03;
|
---|
208 | switch (buffer[0] & 3)
|
---|
209 | {
|
---|
210 | case 0:
|
---|
211 | (*info->fprintf_func) (info->stream, "A,%s", reg_name[reg]);
|
---|
212 | break;
|
---|
213 | case 1:
|
---|
214 | (*info->fprintf_func) (info->stream, "B,%s", reg_name[reg]);
|
---|
215 | break;
|
---|
216 | case 2:
|
---|
217 | (*info->fprintf_func) (info->stream, "D,%s", reg_name[reg]);
|
---|
218 | break;
|
---|
219 | case 3:
|
---|
220 | default:
|
---|
221 | (*info->fprintf_func) (info->stream, "[D,%s]", reg_name[reg]);
|
---|
222 | if (indirect)
|
---|
223 | *indirect = 1;
|
---|
224 | break;
|
---|
225 | }
|
---|
226 | }
|
---|
227 |
|
---|
228 | return pos;
|
---|
229 | }
|
---|
230 |
|
---|
231 | /* Disassemble one instruction at address 'memaddr'. Returns the number
|
---|
232 | of bytes used by that instruction. */
|
---|
233 | static int
|
---|
234 | print_insn (memaddr, info, arch)
|
---|
235 | bfd_vma memaddr;
|
---|
236 | struct disassemble_info *info;
|
---|
237 | int arch;
|
---|
238 | {
|
---|
239 | int status;
|
---|
240 | bfd_byte buffer[4];
|
---|
241 | unsigned char code;
|
---|
242 | long format, pos, i;
|
---|
243 | short sval;
|
---|
244 | const struct m68hc11_opcode *opcode;
|
---|
245 |
|
---|
246 | /* Get first byte. Only one at a time because we don't know the
|
---|
247 | size of the insn. */
|
---|
248 | status = read_memory (memaddr, buffer, 1, info);
|
---|
249 | if (status != 0)
|
---|
250 | {
|
---|
251 | return status;
|
---|
252 | }
|
---|
253 |
|
---|
254 | format = 0;
|
---|
255 | code = buffer[0];
|
---|
256 | pos = 0;
|
---|
257 |
|
---|
258 | /* Look for page2,3,4 opcodes. */
|
---|
259 | if (code == M6811_OPCODE_PAGE2)
|
---|
260 | {
|
---|
261 | pos++;
|
---|
262 | format = M6811_OP_PAGE2;
|
---|
263 | }
|
---|
264 | else if (code == M6811_OPCODE_PAGE3 && arch == cpu6811)
|
---|
265 | {
|
---|
266 | pos++;
|
---|
267 | format = M6811_OP_PAGE3;
|
---|
268 | }
|
---|
269 | else if (code == M6811_OPCODE_PAGE4 && arch == cpu6811)
|
---|
270 | {
|
---|
271 | pos++;
|
---|
272 | format = M6811_OP_PAGE4;
|
---|
273 | }
|
---|
274 |
|
---|
275 | /* We are in page2,3,4; get the real opcode. */
|
---|
276 | if (pos == 1)
|
---|
277 | {
|
---|
278 | status = read_memory (memaddr + pos, &buffer[1], 1, info);
|
---|
279 | if (status != 0)
|
---|
280 | {
|
---|
281 | return status;
|
---|
282 | }
|
---|
283 | code = buffer[1];
|
---|
284 | }
|
---|
285 |
|
---|
286 |
|
---|
287 | /* Look first for a 68HC12 alias. All of them are 2-bytes long and
|
---|
288 | in page 1. There is no operand to print. We read the second byte
|
---|
289 | only when we have a possible match. */
|
---|
290 | if ((arch & cpu6812) && format == 0)
|
---|
291 | {
|
---|
292 | int must_read = 1;
|
---|
293 |
|
---|
294 | /* Walk the alias table to find a code1+code2 match. */
|
---|
295 | for (i = 0; i < m68hc12_num_alias; i++)
|
---|
296 | {
|
---|
297 | if (m68hc12_alias[i].code1 == code)
|
---|
298 | {
|
---|
299 | if (must_read)
|
---|
300 | {
|
---|
301 | status = read_memory (memaddr + pos + 1,
|
---|
302 | &buffer[1], 1, info);
|
---|
303 | if (status != 0)
|
---|
304 | break;
|
---|
305 |
|
---|
306 | must_read = 1;
|
---|
307 | }
|
---|
308 | if (m68hc12_alias[i].code2 == (unsigned char) buffer[1])
|
---|
309 | {
|
---|
310 | (*info->fprintf_func) (info->stream, "%s",
|
---|
311 | m68hc12_alias[i].name);
|
---|
312 | return 2;
|
---|
313 | }
|
---|
314 | }
|
---|
315 | }
|
---|
316 | }
|
---|
317 |
|
---|
318 | pos++;
|
---|
319 |
|
---|
320 | /* Scan the opcode table until we find the opcode
|
---|
321 | with the corresponding page. */
|
---|
322 | opcode = m68hc11_opcodes;
|
---|
323 | for (i = 0; i < m68hc11_num_opcodes; i++, opcode++)
|
---|
324 | {
|
---|
325 | int offset;
|
---|
326 | int pc_src_offset;
|
---|
327 | int pc_dst_offset;
|
---|
328 |
|
---|
329 | if ((opcode->arch & arch) == 0)
|
---|
330 | continue;
|
---|
331 | if (opcode->opcode != code)
|
---|
332 | continue;
|
---|
333 | if ((opcode->format & OP_PAGE_MASK) != format)
|
---|
334 | continue;
|
---|
335 |
|
---|
336 | if (opcode->format & M6812_OP_REG)
|
---|
337 | {
|
---|
338 | int j;
|
---|
339 | int is_jump;
|
---|
340 |
|
---|
341 | if (opcode->format & M6811_OP_JUMP_REL)
|
---|
342 | is_jump = 1;
|
---|
343 | else
|
---|
344 | is_jump = 0;
|
---|
345 |
|
---|
346 | status = read_memory (memaddr + pos, &buffer[0], 1, info);
|
---|
347 | if (status != 0)
|
---|
348 | {
|
---|
349 | return status;
|
---|
350 | }
|
---|
351 | for (j = 0; i + j < m68hc11_num_opcodes; j++)
|
---|
352 | {
|
---|
353 | if ((opcode[j].arch & arch) == 0)
|
---|
354 | continue;
|
---|
355 | if (opcode[j].opcode != code)
|
---|
356 | continue;
|
---|
357 | if (is_jump)
|
---|
358 | {
|
---|
359 | if (!(opcode[j].format & M6811_OP_JUMP_REL))
|
---|
360 | continue;
|
---|
361 |
|
---|
362 | if ((opcode[j].format & M6812_OP_IBCC_MARKER)
|
---|
363 | && (buffer[0] & 0xc0) != 0x80)
|
---|
364 | continue;
|
---|
365 | if ((opcode[j].format & M6812_OP_TBCC_MARKER)
|
---|
366 | && (buffer[0] & 0xc0) != 0x40)
|
---|
367 | continue;
|
---|
368 | if ((opcode[j].format & M6812_OP_DBCC_MARKER)
|
---|
369 | && (buffer[0] & 0xc0) != 0)
|
---|
370 | continue;
|
---|
371 | if ((opcode[j].format & M6812_OP_EQ_MARKER)
|
---|
372 | && (buffer[0] & 0x20) == 0)
|
---|
373 | break;
|
---|
374 | if (!(opcode[j].format & M6812_OP_EQ_MARKER)
|
---|
375 | && (buffer[0] & 0x20) != 0)
|
---|
376 | break;
|
---|
377 | continue;
|
---|
378 | }
|
---|
379 | if (opcode[j].format & M6812_OP_EXG_MARKER && buffer[0] & 0x80)
|
---|
380 | break;
|
---|
381 | if ((opcode[j].format & M6812_OP_SEX_MARKER)
|
---|
382 | && (((buffer[0] & 0x07) >= 3 && (buffer[0] & 7) <= 7))
|
---|
383 | && ((buffer[0] & 0x0f0) <= 0x20))
|
---|
384 | break;
|
---|
385 | if (opcode[j].format & M6812_OP_TFR_MARKER
|
---|
386 | && !(buffer[0] & 0x80))
|
---|
387 | break;
|
---|
388 | }
|
---|
389 | if (i + j < m68hc11_num_opcodes)
|
---|
390 | opcode = &opcode[j];
|
---|
391 | }
|
---|
392 |
|
---|
393 | /* We have found the opcode. Extract the operand and print it. */
|
---|
394 | (*info->fprintf_func) (info->stream, "%s", opcode->name);
|
---|
395 |
|
---|
396 | format = opcode->format;
|
---|
397 | if (format & (M6811_OP_MASK | M6811_OP_BITMASK
|
---|
398 | | M6811_OP_JUMP_REL | M6812_OP_JUMP_REL16))
|
---|
399 | {
|
---|
400 | (*info->fprintf_func) (info->stream, "\t");
|
---|
401 | }
|
---|
402 |
|
---|
403 | /* The movb and movw must be handled in a special way...
|
---|
404 | The source constant 'ii' is not always at the same place.
|
---|
405 | This is the same for the destination for the post-indexed byte.
|
---|
406 | The 'offset' is used to do the appropriate correction.
|
---|
407 |
|
---|
408 | offset offset
|
---|
409 | for constant for destination
|
---|
410 | movb 18 OB ii hh ll 0 0
|
---|
411 | 18 08 xb ii 1 -1
|
---|
412 | 18 0C hh ll hh ll 0 0
|
---|
413 | 18 09 xb hh ll 1 -1
|
---|
414 | 18 0D xb hh ll 0 0
|
---|
415 | 18 0A xb xb 0 0
|
---|
416 |
|
---|
417 | movw 18 03 jj kk hh ll 0 0
|
---|
418 | 18 00 xb jj kk 1 -1
|
---|
419 | 18 04 hh ll hh ll 0 0
|
---|
420 | 18 01 xb hh ll 1 -1
|
---|
421 | 18 05 xb hh ll 0 0
|
---|
422 | 18 02 xb xb 0 0
|
---|
423 |
|
---|
424 | After the source operand is read, the position 'pos' is incremented
|
---|
425 | this explains the negative offset for destination.
|
---|
426 |
|
---|
427 | movb/movw above are the only instructions with this matching
|
---|
428 | format. */
|
---|
429 | offset = ((format & M6812_OP_IDX_P2)
|
---|
430 | && (format & (M6811_OP_IMM8 | M6811_OP_IMM16 |
|
---|
431 | M6811_OP_IND16)));
|
---|
432 |
|
---|
433 | /* Operand with one more byte: - immediate, offset,
|
---|
434 | direct-low address. */
|
---|
435 | if (format &
|
---|
436 | (M6811_OP_IMM8 | M6811_OP_IX | M6811_OP_IY | M6811_OP_DIRECT))
|
---|
437 | {
|
---|
438 | status = read_memory (memaddr + pos + offset, &buffer[0], 1, info);
|
---|
439 | if (status != 0)
|
---|
440 | {
|
---|
441 | return status;
|
---|
442 | }
|
---|
443 |
|
---|
444 | pos++;
|
---|
445 |
|
---|
446 | /* This movb/movw is special (see above). */
|
---|
447 | offset = -offset;
|
---|
448 |
|
---|
449 | pc_dst_offset = 2;
|
---|
450 | if (format & M6811_OP_IMM8)
|
---|
451 | {
|
---|
452 | (*info->fprintf_func) (info->stream, "#%d", (int) buffer[0]);
|
---|
453 | format &= ~M6811_OP_IMM8;
|
---|
454 | /* Set PC destination offset. */
|
---|
455 | pc_dst_offset = 1;
|
---|
456 | }
|
---|
457 | else if (format & M6811_OP_IX)
|
---|
458 | {
|
---|
459 | /* Offsets are in range 0..255, print them unsigned. */
|
---|
460 | (*info->fprintf_func) (info->stream, "%u,x", buffer[0] & 0x0FF);
|
---|
461 | format &= ~M6811_OP_IX;
|
---|
462 | }
|
---|
463 | else if (format & M6811_OP_IY)
|
---|
464 | {
|
---|
465 | (*info->fprintf_func) (info->stream, "%u,y", buffer[0] & 0x0FF);
|
---|
466 | format &= ~M6811_OP_IY;
|
---|
467 | }
|
---|
468 | else if (format & M6811_OP_DIRECT)
|
---|
469 | {
|
---|
470 | (*info->fprintf_func) (info->stream, "*");
|
---|
471 | (*info->print_address_func) (buffer[0] & 0x0FF, info);
|
---|
472 | format &= ~M6811_OP_DIRECT;
|
---|
473 | }
|
---|
474 | }
|
---|
475 |
|
---|
476 | #define M6812_DST_MOVE (M6812_OP_IND16_P2 | M6812_OP_IDX_P2)
|
---|
477 | #define M6812_INDEXED_FLAGS (M6812_OP_IDX|M6812_OP_IDX_1|M6812_OP_IDX_2)
|
---|
478 | /* Analyze the 68HC12 indexed byte. */
|
---|
479 | if (format & M6812_INDEXED_FLAGS)
|
---|
480 | {
|
---|
481 | int indirect;
|
---|
482 | bfd_vma endaddr;
|
---|
483 |
|
---|
484 | endaddr = memaddr + pos + 1;
|
---|
485 | if (format & M6811_OP_IND16)
|
---|
486 | endaddr += 2;
|
---|
487 | pc_src_offset = -1;
|
---|
488 | pc_dst_offset = 1;
|
---|
489 | status = print_indexed_operand (memaddr + pos, info, &indirect,
|
---|
490 | (format & M6812_DST_MOVE),
|
---|
491 | pc_src_offset, endaddr);
|
---|
492 | if (status < 0)
|
---|
493 | {
|
---|
494 | return status;
|
---|
495 | }
|
---|
496 | pos += status;
|
---|
497 |
|
---|
498 | /* The indirect addressing mode of the call instruction does
|
---|
499 | not need the page code. */
|
---|
500 | if ((format & M6812_OP_PAGE) && indirect)
|
---|
501 | format &= ~M6812_OP_PAGE;
|
---|
502 | }
|
---|
503 |
|
---|
504 | /* 68HC12 dbcc/ibcc/tbcc operands. */
|
---|
505 | if ((format & M6812_OP_REG) && (format & M6811_OP_JUMP_REL))
|
---|
506 | {
|
---|
507 | status = read_memory (memaddr + pos, &buffer[0], 2, info);
|
---|
508 | if (status != 0)
|
---|
509 | {
|
---|
510 | return status;
|
---|
511 | }
|
---|
512 | (*info->fprintf_func) (info->stream, "%s,",
|
---|
513 | reg_src_table[buffer[0] & 0x07]);
|
---|
514 | sval = buffer[1] & 0x0ff;
|
---|
515 | if (buffer[0] & 0x10)
|
---|
516 | sval |= 0xff00;
|
---|
517 |
|
---|
518 | pos += 2;
|
---|
519 | (*info->print_address_func) (memaddr + pos + sval, info);
|
---|
520 | format &= ~(M6812_OP_REG | M6811_OP_JUMP_REL);
|
---|
521 | }
|
---|
522 | else if (format & (M6812_OP_REG | M6812_OP_REG_2))
|
---|
523 | {
|
---|
524 | status = read_memory (memaddr + pos, &buffer[0], 1, info);
|
---|
525 | if (status != 0)
|
---|
526 | {
|
---|
527 | return status;
|
---|
528 | }
|
---|
529 |
|
---|
530 | pos++;
|
---|
531 | (*info->fprintf_func) (info->stream, "%s,%s",
|
---|
532 | reg_src_table[(buffer[0] >> 4) & 7],
|
---|
533 | reg_dst_table[(buffer[0] & 7)]);
|
---|
534 | }
|
---|
535 |
|
---|
536 | if (format & (M6811_OP_IMM16 | M6811_OP_IND16))
|
---|
537 | {
|
---|
538 | int val;
|
---|
539 | bfd_vma addr;
|
---|
540 | unsigned page = 0;
|
---|
541 |
|
---|
542 | status = read_memory (memaddr + pos + offset, &buffer[0], 2, info);
|
---|
543 | if (status != 0)
|
---|
544 | {
|
---|
545 | return status;
|
---|
546 | }
|
---|
547 | if (format & M6812_OP_IDX_P2)
|
---|
548 | offset = -2;
|
---|
549 | else
|
---|
550 | offset = 0;
|
---|
551 | pos += 2;
|
---|
552 |
|
---|
553 | val = ((buffer[0] << 8) | (buffer[1] & 0x0FF));
|
---|
554 | val &= 0x0FFFF;
|
---|
555 | addr = val;
|
---|
556 | pc_dst_offset = 2;
|
---|
557 | if (format & M6812_OP_PAGE)
|
---|
558 | {
|
---|
559 | status = read_memory (memaddr + pos + offset, buffer, 1, info);
|
---|
560 | if (status != 0)
|
---|
561 | return status;
|
---|
562 |
|
---|
563 | page = (unsigned) buffer[0];
|
---|
564 | if (addr >= M68HC12_BANK_BASE && addr < 0x0c000)
|
---|
565 | addr = ((val - M68HC12_BANK_BASE)
|
---|
566 | | (page << M68HC12_BANK_SHIFT))
|
---|
567 | + M68HC12_BANK_VIRT;
|
---|
568 | }
|
---|
569 | else if ((arch & cpu6812)
|
---|
570 | && addr >= M68HC12_BANK_BASE && addr < 0x0c000)
|
---|
571 | {
|
---|
572 | int cur_page;
|
---|
573 | bfd_vma vaddr;
|
---|
574 |
|
---|
575 | if (memaddr >= M68HC12_BANK_VIRT)
|
---|
576 | cur_page = ((memaddr - M68HC12_BANK_VIRT)
|
---|
577 | >> M68HC12_BANK_SHIFT);
|
---|
578 | else
|
---|
579 | cur_page = 0;
|
---|
580 |
|
---|
581 | vaddr = ((addr - M68HC12_BANK_BASE)
|
---|
582 | + (cur_page << M68HC12_BANK_SHIFT))
|
---|
583 | + M68HC12_BANK_VIRT;
|
---|
584 | if (!info->symbol_at_address_func (addr, info)
|
---|
585 | && info->symbol_at_address_func (vaddr, info))
|
---|
586 | addr = vaddr;
|
---|
587 | }
|
---|
588 | if (format & M6811_OP_IMM16)
|
---|
589 | {
|
---|
590 | format &= ~M6811_OP_IMM16;
|
---|
591 | (*info->fprintf_func) (info->stream, "#");
|
---|
592 | }
|
---|
593 | else
|
---|
594 | format &= ~M6811_OP_IND16;
|
---|
595 |
|
---|
596 | (*info->print_address_func) (addr, info);
|
---|
597 | if (format & M6812_OP_PAGE)
|
---|
598 | {
|
---|
599 | (* info->fprintf_func) (info->stream, " {");
|
---|
600 | (* info->print_address_func) (val, info);
|
---|
601 | (* info->fprintf_func) (info->stream, ", %d}", page);
|
---|
602 | format &= ~M6812_OP_PAGE;
|
---|
603 | pos += 1;
|
---|
604 | }
|
---|
605 | }
|
---|
606 |
|
---|
607 | if (format & M6812_OP_IDX_P2)
|
---|
608 | {
|
---|
609 | (*info->fprintf_func) (info->stream, ", ");
|
---|
610 | status = print_indexed_operand (memaddr + pos + offset, info,
|
---|
611 | 0, 1, pc_dst_offset,
|
---|
612 | memaddr + pos + offset + 1);
|
---|
613 | if (status < 0)
|
---|
614 | return status;
|
---|
615 | pos += status;
|
---|
616 | }
|
---|
617 |
|
---|
618 | if (format & M6812_OP_IND16_P2)
|
---|
619 | {
|
---|
620 | int val;
|
---|
621 |
|
---|
622 | (*info->fprintf_func) (info->stream, ", ");
|
---|
623 |
|
---|
624 | status = read_memory (memaddr + pos + offset, &buffer[0], 2, info);
|
---|
625 | if (status != 0)
|
---|
626 | {
|
---|
627 | return status;
|
---|
628 | }
|
---|
629 | pos += 2;
|
---|
630 |
|
---|
631 | val = ((buffer[0] << 8) | (buffer[1] & 0x0FF));
|
---|
632 | val &= 0x0FFFF;
|
---|
633 | (*info->print_address_func) (val, info);
|
---|
634 | }
|
---|
635 |
|
---|
636 | /* M6811_OP_BITMASK and M6811_OP_JUMP_REL must be treated separately
|
---|
637 | and in that order. The brset/brclr insn have a bitmask and then
|
---|
638 | a relative branch offset. */
|
---|
639 | if (format & M6811_OP_BITMASK)
|
---|
640 | {
|
---|
641 | status = read_memory (memaddr + pos, &buffer[0], 1, info);
|
---|
642 | if (status != 0)
|
---|
643 | {
|
---|
644 | return status;
|
---|
645 | }
|
---|
646 | pos++;
|
---|
647 | (*info->fprintf_func) (info->stream, " #$%02x%s",
|
---|
648 | buffer[0] & 0x0FF,
|
---|
649 | (format & M6811_OP_JUMP_REL ? " " : ""));
|
---|
650 | format &= ~M6811_OP_BITMASK;
|
---|
651 | }
|
---|
652 | if (format & M6811_OP_JUMP_REL)
|
---|
653 | {
|
---|
654 | int val;
|
---|
655 |
|
---|
656 | status = read_memory (memaddr + pos, &buffer[0], 1, info);
|
---|
657 | if (status != 0)
|
---|
658 | {
|
---|
659 | return status;
|
---|
660 | }
|
---|
661 |
|
---|
662 | pos++;
|
---|
663 | val = (buffer[0] & 0x80) ? buffer[0] | 0xFFFFFF00 : buffer[0];
|
---|
664 | (*info->print_address_func) (memaddr + pos + val, info);
|
---|
665 | format &= ~M6811_OP_JUMP_REL;
|
---|
666 | }
|
---|
667 | else if (format & M6812_OP_JUMP_REL16)
|
---|
668 | {
|
---|
669 | int val;
|
---|
670 |
|
---|
671 | status = read_memory (memaddr + pos, &buffer[0], 2, info);
|
---|
672 | if (status != 0)
|
---|
673 | {
|
---|
674 | return status;
|
---|
675 | }
|
---|
676 |
|
---|
677 | pos += 2;
|
---|
678 | val = ((buffer[0] << 8) | (buffer[1] & 0x0FF));
|
---|
679 | if (val & 0x8000)
|
---|
680 | val |= 0xffff0000;
|
---|
681 |
|
---|
682 | (*info->print_address_func) (memaddr + pos + val, info);
|
---|
683 | format &= ~M6812_OP_JUMP_REL16;
|
---|
684 | }
|
---|
685 |
|
---|
686 | if (format & M6812_OP_PAGE)
|
---|
687 | {
|
---|
688 | int val;
|
---|
689 |
|
---|
690 | status = read_memory (memaddr + pos + offset, &buffer[0], 1, info);
|
---|
691 | if (status != 0)
|
---|
692 | {
|
---|
693 | return status;
|
---|
694 | }
|
---|
695 | pos += 1;
|
---|
696 |
|
---|
697 | val = buffer[0] & 0x0ff;
|
---|
698 | (*info->fprintf_func) (info->stream, ", %d", val);
|
---|
699 | }
|
---|
700 |
|
---|
701 | #ifdef DEBUG
|
---|
702 | /* Consistency check. 'format' must be 0, so that we have handled
|
---|
703 | all formats; and the computed size of the insn must match the
|
---|
704 | opcode table content. */
|
---|
705 | if (format & ~(M6811_OP_PAGE4 | M6811_OP_PAGE3 | M6811_OP_PAGE2))
|
---|
706 | {
|
---|
707 | (*info->fprintf_func) (info->stream, "; Error, format: %x", format);
|
---|
708 | }
|
---|
709 | if (pos != opcode->size)
|
---|
710 | {
|
---|
711 | (*info->fprintf_func) (info->stream, "; Error, size: %d expect %d",
|
---|
712 | pos, opcode->size);
|
---|
713 | }
|
---|
714 | #endif
|
---|
715 | return pos;
|
---|
716 | }
|
---|
717 |
|
---|
718 | /* Opcode not recognized. */
|
---|
719 | if (format == M6811_OP_PAGE2 && arch & cpu6812
|
---|
720 | && ((code >= 0x30 && code <= 0x39) || (code >= 0x40 && code <= 0xff)))
|
---|
721 | (*info->fprintf_func) (info->stream, "trap\t#%d", code & 0x0ff);
|
---|
722 |
|
---|
723 | else if (format == M6811_OP_PAGE2)
|
---|
724 | (*info->fprintf_func) (info->stream, ".byte\t0x%02x, 0x%02x",
|
---|
725 | M6811_OPCODE_PAGE2, code);
|
---|
726 | else if (format == M6811_OP_PAGE3)
|
---|
727 | (*info->fprintf_func) (info->stream, ".byte\t0x%02x, 0x%02x",
|
---|
728 | M6811_OPCODE_PAGE3, code);
|
---|
729 | else if (format == M6811_OP_PAGE4)
|
---|
730 | (*info->fprintf_func) (info->stream, ".byte\t0x%02x, 0x%02x",
|
---|
731 | M6811_OPCODE_PAGE4, code);
|
---|
732 | else
|
---|
733 | (*info->fprintf_func) (info->stream, ".byte\t0x%02x", code);
|
---|
734 |
|
---|
735 | return pos;
|
---|
736 | }
|
---|
737 |
|
---|
738 | /* Disassemble one instruction at address 'memaddr'. Returns the number
|
---|
739 | of bytes used by that instruction. */
|
---|
740 | int
|
---|
741 | print_insn_m68hc11 (memaddr, info)
|
---|
742 | bfd_vma memaddr;
|
---|
743 | struct disassemble_info *info;
|
---|
744 | {
|
---|
745 | return print_insn (memaddr, info, cpu6811);
|
---|
746 | }
|
---|
747 |
|
---|
748 | int
|
---|
749 | print_insn_m68hc12 (memaddr, info)
|
---|
750 | bfd_vma memaddr;
|
---|
751 | struct disassemble_info *info;
|
---|
752 | {
|
---|
753 | return print_insn (memaddr, info, cpu6812);
|
---|
754 | }
|
---|