1 /* Disassemble AVR instructions.
2 Copyright (C) 1999-2016 Free Software Foundation, Inc.
4 Contributed by Denis Chertykov <denisc@overta.ru>
6 This file is part of libopcodes.
8 This library is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 3, or (at your option)
13 It is distributed in the hope that it will be useful, but WITHOUT
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
15 or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
16 License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
21 MA 02110-1301, USA. */
27 #include "libiberty.h"
34 int insn_size
; /* In words. */
36 unsigned int bin_opcode
;
39 #define AVR_INSN(NAME, CONSTR, OPCODE, SIZE, ISA, BIN) \
40 {#NAME, CONSTR, OPCODE, SIZE, ISA, BIN},
42 const struct avr_opcodes_s avr_opcodes
[] =
44 #include "opcode/avr.h"
45 {NULL
, NULL
, NULL
, 0, 0, 0}
48 static const char * comment_start
= "0x";
51 avr_operand (unsigned int insn
, unsigned int insn2
, unsigned int pc
, int constraint
,
52 char *opcode_str
, char *buf
, char *comment
, int regs
, int *sym
, bfd_vma
*sym_addr
)
59 /* Any register operand. */
62 insn
= (insn
& 0xf) | ((insn
& 0x0200) >> 5); /* Source register. */
64 insn
= (insn
& 0x01f0) >> 4; /* Destination register. */
66 sprintf (buf
, "r%d", insn
);
71 sprintf (buf
, "r%d", 16 + (insn
& 0xf));
73 sprintf (buf
, "r%d", 16 + ((insn
& 0xf0) >> 4));
77 sprintf (buf
, "r%d", 24 + ((insn
& 0x30) >> 3));
82 sprintf (buf
, "r%d", 16 + (insn
& 7));
84 sprintf (buf
, "r%d", 16 + ((insn
>> 4) & 7));
89 sprintf (buf
, "r%d", (insn
& 0xf) * 2);
91 sprintf (buf
, "r%d", ((insn
& 0xf0) >> 3));
98 switch (insn
& 0x100f)
100 case 0x0000: xyz
= "Z"; break;
101 case 0x1001: xyz
= "Z+"; break;
102 case 0x1002: xyz
= "-Z"; break;
103 case 0x0008: xyz
= "Y"; break;
104 case 0x1009: xyz
= "Y+"; break;
105 case 0x100a: xyz
= "-Y"; break;
106 case 0x100c: xyz
= "X"; break;
107 case 0x100d: xyz
= "X+"; break;
108 case 0x100e: xyz
= "-X"; break;
109 default: xyz
= "??"; ok
= 0;
113 if (AVR_UNDEF_P (insn
))
114 sprintf (comment
, _("undefined"));
121 /* Check for post-increment. */
123 for (s
= opcode_str
; *s
; ++s
)
127 if (insn
& (1 << (15 - (s
- opcode_str
))))
134 if (AVR_UNDEF_P (insn
))
135 sprintf (comment
, _("undefined"));
143 x
|= (insn
>> 7) & (3 << 3);
144 x
|= (insn
>> 8) & (1 << 5);
150 sprintf (buf
, "+%d", x
);
151 sprintf (comment
, "0x%02x", x
);
157 *sym_addr
= ((((insn
& 1) | ((insn
& 0x1f0) >> 3)) << 16) | insn2
) * 2;
158 /* See PR binutils/2454. Ideally we would like to display the hex
159 value of the address only once, but this would mean recoding
160 objdump_print_address() which would affect many targets. */
161 sprintf (buf
, "%#lx", (unsigned long) *sym_addr
);
162 strcpy (comment
, comment_start
);
167 int rel_addr
= (((insn
& 0xfff) ^ 0x800) - 0x800) * 2;
168 sprintf (buf
, ".%+-8d", rel_addr
);
170 *sym_addr
= pc
+ 2 + rel_addr
;
171 strcpy (comment
, comment_start
);
177 int rel_addr
= ((((insn
>> 3) & 0x7f) ^ 0x40) - 0x40) * 2;
179 sprintf (buf
, ".%+-8d", rel_addr
);
181 *sym_addr
= pc
+ 2 + rel_addr
;
182 strcpy (comment
, comment_start
);
187 sprintf (buf
, "0x%04X", insn2
);
192 unsigned int val
= ((insn
& 0xf) | ((insn
& 0x600) >> 5)
193 | ((insn
& 0x100) >> 2));
194 if (val
> 0 && !(insn
& 0x100))
196 sprintf (buf
, "0x%02x", val
);
197 sprintf (buf
, "%d", val
);
202 sprintf (buf
, "0x%02X", ((insn
& 0xf00) >> 4) | (insn
& 0xf));
203 sprintf (comment
, "%d", ((insn
& 0xf00) >> 4) | (insn
& 0xf));
208 fprintf (stderr
, _("Internal disassembler error"));
216 x
= (insn
& 0xf) | ((insn
>> 2) & 0x30);
217 sprintf (buf
, "0x%02x", x
);
218 sprintf (comment
, "%d", x
);
223 sprintf (buf
, "%d", insn
& 7);
227 sprintf (buf
, "%d", (insn
>> 4) & 7);
235 x
|= (insn
>> 5) & 0x30;
236 sprintf (buf
, "0x%02x", x
);
237 sprintf (comment
, "%d", x
);
245 x
= (insn
>> 3) & 0x1f;
246 sprintf (buf
, "0x%02x", x
);
247 sprintf (comment
, "%d", x
);
252 sprintf (buf
, "%d", (insn
>> 4) & 15);
261 fprintf (stderr
, _("unknown constraint `%c'"), constraint
);
268 static unsigned short
269 avrdis_opcode (bfd_vma addr
, disassemble_info
*info
)
274 status
= info
->read_memory_func (addr
, buffer
, 2, info
);
277 return bfd_getl16 (buffer
);
279 info
->memory_error_func (status
, addr
, info
);
285 print_insn_avr (bfd_vma addr
, disassemble_info
*info
)
287 unsigned int insn
, insn2
;
288 const struct avr_opcodes_s
*opcode
;
289 static unsigned int *maskptr
;
290 void *stream
= info
->stream
;
291 fprintf_ftype prin
= info
->fprintf_func
;
292 static unsigned int *avr_bin_masks
;
293 static int initialized
;
296 char op1
[20], op2
[20], comment1
[40], comment2
[40];
297 int sym_op1
= 0, sym_op2
= 0;
298 bfd_vma sym_addr1
, sym_addr2
;
303 unsigned int nopcodes
;
305 /* PR 4045: Try to avoid duplicating the 0x prefix that
306 objdump_print_addr() will put on addresses when there
307 is no symbol table available. */
308 if (info
->symtab_size
== 0)
311 nopcodes
= sizeof (avr_opcodes
) / sizeof (struct avr_opcodes_s
);
313 avr_bin_masks
= xmalloc (nopcodes
* sizeof (unsigned int));
315 for (opcode
= avr_opcodes
, maskptr
= avr_bin_masks
;
320 unsigned int bin
= 0;
321 unsigned int mask
= 0;
323 for (s
= opcode
->opcode
; *s
; ++s
)
328 mask
|= (*s
== '1' || *s
== '0');
330 assert (s
- opcode
->opcode
== 16);
331 assert (opcode
->bin_opcode
== bin
);
338 insn
= avrdis_opcode (addr
, info
);
340 for (opcode
= avr_opcodes
, maskptr
= avr_bin_masks
;
344 if ((opcode
->isa
== AVR_ISA_TINY
) && (info
->mach
!= bfd_mach_avrtiny
))
346 if ((insn
& *maskptr
) == opcode
->bin_opcode
)
350 /* Special case: disassemble `ldd r,b+0' as `ld r,b', and
351 `std b+0,r' as `st b,r' (next entry in the table). */
353 if (AVR_DISP0_P (insn
))
363 char *constraints
= opcode
->constraints
;
364 char *opcode_str
= opcode
->opcode
;
369 if (opcode
->insn_size
> 1)
371 insn2
= avrdis_opcode (addr
+ 2, info
);
375 if (*constraints
&& *constraints
!= '?')
377 int regs
= REGISTER_P (*constraints
);
379 ok
= avr_operand (insn
, insn2
, addr
, *constraints
, opcode_str
, op1
, comment1
, 0, &sym_op1
, &sym_addr1
);
381 if (ok
&& *(++constraints
) == ',')
382 ok
= avr_operand (insn
, insn2
, addr
, *(++constraints
), opcode_str
, op2
,
383 *comment1
? comment2
: comment1
, regs
, &sym_op2
, &sym_addr2
);
389 /* Unknown opcode, or invalid combination of operands. */
390 sprintf (op1
, "0x%04x", insn
);
392 sprintf (comment1
, "????");
396 (*prin
) (stream
, "%s", ok
? opcode
->name
: ".word");
399 (*prin
) (stream
, "\t%s", op1
);
402 (*prin
) (stream
, ", %s", op2
);
405 (*prin
) (stream
, "\t; %s", comment1
);
408 info
->print_address_func (sym_addr1
, info
);
411 (*prin
) (stream
, " %s", comment2
);
414 info
->print_address_func (sym_addr2
, info
);