1 /* Disassemble AVR instructions.
2 Copyright 1999, 2000, 2002, 2004, 2005, 2006, 2007, 2008, 2012
3 Free Software Foundation, Inc.
5 Contributed by Denis Chertykov <denisc@overta.ru>
7 This file is part of libopcodes.
9 This library 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 3, or (at your option)
14 It is distributed in the hope that it will be useful, but WITHOUT
15 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
16 or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
17 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., 51 Franklin Street - Fifth Floor, Boston,
22 MA 02110-1301, USA. */
28 #include "libiberty.h"
35 int insn_size
; /* In words. */
37 unsigned int bin_opcode
;
40 #define AVR_INSN(NAME, CONSTR, OPCODE, SIZE, ISA, BIN) \
41 {#NAME, CONSTR, OPCODE, SIZE, ISA, BIN},
43 const struct avr_opcodes_s avr_opcodes
[] =
45 #include "opcode/avr.h"
46 {NULL
, NULL
, NULL
, 0, 0, 0}
49 static const char * comment_start
= "0x";
52 avr_operand (unsigned int insn
, unsigned int insn2
, unsigned int pc
, int constraint
,
53 char *opcode_str
, char *buf
, char *comment
, int regs
, int *sym
, bfd_vma
*sym_addr
)
60 /* Any register operand. */
63 insn
= (insn
& 0xf) | ((insn
& 0x0200) >> 5); /* Source register. */
65 insn
= (insn
& 0x01f0) >> 4; /* Destination register. */
67 sprintf (buf
, "r%d", insn
);
72 sprintf (buf
, "r%d", 16 + (insn
& 0xf));
74 sprintf (buf
, "r%d", 16 + ((insn
& 0xf0) >> 4));
78 sprintf (buf
, "r%d", 24 + ((insn
& 0x30) >> 3));
83 sprintf (buf
, "r%d", 16 + (insn
& 7));
85 sprintf (buf
, "r%d", 16 + ((insn
>> 4) & 7));
90 sprintf (buf
, "r%d", (insn
& 0xf) * 2);
92 sprintf (buf
, "r%d", ((insn
& 0xf0) >> 3));
99 switch (insn
& 0x100f)
101 case 0x0000: xyz
= "Z"; break;
102 case 0x1001: xyz
= "Z+"; break;
103 case 0x1002: xyz
= "-Z"; break;
104 case 0x0008: xyz
= "Y"; break;
105 case 0x1009: xyz
= "Y+"; break;
106 case 0x100a: xyz
= "-Y"; break;
107 case 0x100c: xyz
= "X"; break;
108 case 0x100d: xyz
= "X+"; break;
109 case 0x100e: xyz
= "-X"; break;
110 default: xyz
= "??"; ok
= 0;
114 if (AVR_UNDEF_P (insn
))
115 sprintf (comment
, _("undefined"));
122 /* Check for post-increment. */
124 for (s
= opcode_str
; *s
; ++s
)
128 if (insn
& (1 << (15 - (s
- opcode_str
))))
135 if (AVR_UNDEF_P (insn
))
136 sprintf (comment
, _("undefined"));
144 x
|= (insn
>> 7) & (3 << 3);
145 x
|= (insn
>> 8) & (1 << 5);
151 sprintf (buf
, "+%d", x
);
152 sprintf (comment
, "0x%02x", x
);
158 *sym_addr
= ((((insn
& 1) | ((insn
& 0x1f0) >> 3)) << 16) | insn2
) * 2;
159 /* See PR binutils/2454. Ideally we would like to display the hex
160 value of the address only once, but this would mean recoding
161 objdump_print_address() which would affect many targets. */
162 sprintf (buf
, "%#lx", (unsigned long) *sym_addr
);
163 strcpy (comment
, comment_start
);
168 int rel_addr
= (((insn
& 0xfff) ^ 0x800) - 0x800) * 2;
169 sprintf (buf
, ".%+-8d", rel_addr
);
171 *sym_addr
= pc
+ 2 + rel_addr
;
172 strcpy (comment
, comment_start
);
178 int rel_addr
= ((((insn
>> 3) & 0x7f) ^ 0x40) - 0x40) * 2;
180 sprintf (buf
, ".%+-8d", rel_addr
);
182 *sym_addr
= pc
+ 2 + rel_addr
;
183 strcpy (comment
, comment_start
);
188 sprintf (buf
, "0x%04X", insn2
);
192 sprintf (buf
, "0x%02X", ((insn
& 0xf00) >> 4) | (insn
& 0xf));
193 sprintf (comment
, "%d", ((insn
& 0xf00) >> 4) | (insn
& 0xf));
198 fprintf (stderr
, _("Internal disassembler error"));
206 x
= (insn
& 0xf) | ((insn
>> 2) & 0x30);
207 sprintf (buf
, "0x%02x", x
);
208 sprintf (comment
, "%d", x
);
213 sprintf (buf
, "%d", insn
& 7);
217 sprintf (buf
, "%d", (insn
>> 4) & 7);
225 x
|= (insn
>> 5) & 0x30;
226 sprintf (buf
, "0x%02x", x
);
227 sprintf (comment
, "%d", x
);
235 x
= (insn
>> 3) & 0x1f;
236 sprintf (buf
, "0x%02x", x
);
237 sprintf (comment
, "%d", x
);
242 sprintf (buf
, "%d", (insn
>> 4) & 15);
251 fprintf (stderr
, _("unknown constraint `%c'"), constraint
);
258 static unsigned short
259 avrdis_opcode (bfd_vma addr
, disassemble_info
*info
)
264 status
= info
->read_memory_func (addr
, buffer
, 2, info
);
267 return bfd_getl16 (buffer
);
269 info
->memory_error_func (status
, addr
, info
);
275 print_insn_avr (bfd_vma addr
, disassemble_info
*info
)
277 unsigned int insn
, insn2
;
278 const struct avr_opcodes_s
*opcode
;
279 static unsigned int *maskptr
;
280 void *stream
= info
->stream
;
281 fprintf_ftype prin
= info
->fprintf_func
;
282 static unsigned int *avr_bin_masks
;
283 static int initialized
;
286 char op1
[20], op2
[20], comment1
[40], comment2
[40];
287 int sym_op1
= 0, sym_op2
= 0;
288 bfd_vma sym_addr1
, sym_addr2
;
293 unsigned int nopcodes
;
295 /* PR 4045: Try to avoid duplicating the 0x prefix that
296 objdump_print_addr() will put on addresses when there
297 is no symbol table available. */
298 if (info
->symtab_size
== 0)
301 nopcodes
= sizeof (avr_opcodes
) / sizeof (struct avr_opcodes_s
);
303 avr_bin_masks
= xmalloc (nopcodes
* sizeof (unsigned int));
305 for (opcode
= avr_opcodes
, maskptr
= avr_bin_masks
;
310 unsigned int bin
= 0;
311 unsigned int mask
= 0;
313 for (s
= opcode
->opcode
; *s
; ++s
)
318 mask
|= (*s
== '1' || *s
== '0');
320 assert (s
- opcode
->opcode
== 16);
321 assert (opcode
->bin_opcode
== bin
);
328 insn
= avrdis_opcode (addr
, info
);
330 for (opcode
= avr_opcodes
, maskptr
= avr_bin_masks
;
333 if ((insn
& *maskptr
) == opcode
->bin_opcode
)
336 /* Special case: disassemble `ldd r,b+0' as `ld r,b', and
337 `std b+0,r' as `st b,r' (next entry in the table). */
339 if (AVR_DISP0_P (insn
))
349 char *constraints
= opcode
->constraints
;
350 char *opcode_str
= opcode
->opcode
;
355 if (opcode
->insn_size
> 1)
357 insn2
= avrdis_opcode (addr
+ 2, info
);
361 if (*constraints
&& *constraints
!= '?')
363 int regs
= REGISTER_P (*constraints
);
365 ok
= avr_operand (insn
, insn2
, addr
, *constraints
, opcode_str
, op1
, comment1
, 0, &sym_op1
, &sym_addr1
);
367 if (ok
&& *(++constraints
) == ',')
368 ok
= avr_operand (insn
, insn2
, addr
, *(++constraints
), opcode_str
, op2
,
369 *comment1
? comment2
: comment1
, regs
, &sym_op2
, &sym_addr2
);
375 /* Unknown opcode, or invalid combination of operands. */
376 sprintf (op1
, "0x%04x", insn
);
378 sprintf (comment1
, "????");
382 (*prin
) (stream
, "%s", ok
? opcode
->name
: ".word");
385 (*prin
) (stream
, "\t%s", op1
);
388 (*prin
) (stream
, ", %s", op2
);
391 (*prin
) (stream
, "\t; %s", comment1
);
394 info
->print_address_func (sym_addr1
, info
);
397 (*prin
) (stream
, " %s", comment2
);
400 info
->print_address_func (sym_addr2
, info
);