| 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 | } | 
|---|