123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857 |
- /* m68hc11-dis.c -- Motorola 68HC11 & 68HC12 disassembly
- Copyright (C) 1999-2022 Free Software Foundation, Inc.
- Written by Stephane Carrez (stcarrez@nerim.fr)
- XGATE and S12X added by James Murray (jsm@jsm-net.demon.co.uk)
- This file is part of the GNU opcodes library.
- This library is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 3, or (at your option)
- any later version.
- It is distributed in the hope that it will be useful, but WITHOUT
- ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
- License for more details.
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
- MA 02110-1301, USA. */
- #include "sysdep.h"
- #include <stdio.h>
- #include "opcode/m68hc11.h"
- #include "disassemble.h"
- #define PC_REGNUM 3
- static const char *const reg_name[] =
- {
- "X", "Y", "SP", "PC"
- };
- static const char *const reg_src_table[] =
- {
- "A", "B", "CCR", "TMP3", "D", "X", "Y", "SP"
- };
- static const char *const reg_dst_table[] =
- {
- "A", "B", "CCR", "TMP2", "D", "X", "Y", "SP"
- };
- #define OP_PAGE_MASK (M6811_OP_PAGE2|M6811_OP_PAGE3|M6811_OP_PAGE4)
- static int
- read_memory (bfd_vma memaddr, bfd_byte* buffer, int size,
- struct disassemble_info* info)
- {
- int status;
- /* Get first byte. Only one at a time because we don't know the
- size of the insn. */
- status = (*info->read_memory_func) (memaddr, buffer, size, info);
- if (status != 0)
- {
- (*info->memory_error_func) (status, memaddr, info);
- return -1;
- }
- return 0;
- }
- /* Read the 68HC12 indexed operand byte and print the corresponding mode.
- Returns the number of bytes read or -1 if failure. */
- static int
- print_indexed_operand (bfd_vma memaddr, struct disassemble_info* info,
- int* indirect, int mov_insn, int pc_offset,
- bfd_vma endaddr, int arch)
- {
- bfd_byte buffer[4];
- int reg;
- int status;
- bfd_vma val;
- int pos = 1;
- if (indirect)
- *indirect = 0;
- status = read_memory (memaddr, &buffer[0], 1, info);
- if (status != 0)
- {
- return status;
- }
- /* n,r with 5-bits signed constant. */
- if ((buffer[0] & 0x20) == 0)
- {
- reg = (buffer[0] >> 6) & 3;
- val = ((buffer[0] & 0x1f) ^ 0x10) - 0x10;
- /* 68HC12 requires an adjustment for movb/movw pc relative modes. */
- if (reg == PC_REGNUM && info->mach == bfd_mach_m6812 && mov_insn)
- val += pc_offset;
- (*info->fprintf_func) (info->stream, "0x%x,%s",
- (unsigned) val & 0xffff, reg_name[reg]);
- if (reg == PC_REGNUM)
- {
- (* info->fprintf_func) (info->stream, " {");
- /* Avoid duplicate 0x from core binutils. */
- if (info->symtab_size > 0)
- (*info->fprintf_func) (info->stream, "0x");
- (* info->print_address_func) (endaddr + val, info);
- (* info->fprintf_func) (info->stream, "}");
- }
- }
- /* Auto pre/post increment/decrement. */
- else if ((buffer[0] & 0xc0) != 0xc0)
- {
- const char *mode;
- reg = (buffer[0] >> 6) & 3;
- val = buffer[0] & 7;
- if (buffer[0] & 8)
- {
- val = 8 - val;
- mode = "-";
- }
- else
- {
- val = val + 1;
- mode = "+";
- }
- (*info->fprintf_func) (info->stream, "%d,%s%s%s",
- (unsigned) val,
- buffer[0] & 0x10 ? "" : mode,
- reg_name[reg], buffer[0] & 0x10 ? mode : "");
- }
- /* [n,r] 16-bits offset indexed indirect. */
- else if ((buffer[0] & 0x07) == 3)
- {
- if ((mov_insn) && (!(arch & cpu9s12x)))
- {
- (*info->fprintf_func) (info->stream, "<invalid op: 0x%x>",
- buffer[0] & 0x0ff);
- return 0;
- }
- reg = (buffer[0] >> 3) & 0x03;
- status = read_memory (memaddr + pos, &buffer[0], 2, info);
- if (status != 0)
- return status;
- pos += 2;
- val = (buffer[0] << 8) | buffer[1];
- (*info->fprintf_func) (info->stream, "[0x%x,%s]",
- (unsigned) val & 0xffff, reg_name[reg]);
- if (indirect)
- *indirect = 1;
- }
- /* n,r with 9 and 16 bit signed constant. */
- else if ((buffer[0] & 0x4) == 0)
- {
- if ((mov_insn) && (!(arch & cpu9s12x)))
- {
- (*info->fprintf_func) (info->stream, "<invalid op: 0x%x>",
- buffer[0] & 0x0ff);
- return 0;
- }
- reg = (buffer[0] >> 3) & 0x03;
- status = read_memory (memaddr + pos,
- &buffer[1], (buffer[0] & 0x2 ? 2 : 1), info);
- if (status != 0)
- return status;
- if (buffer[0] & 2)
- {
- val = (((buffer[1] << 8) | buffer[2]) ^ 0x8000) - 0x8000;
- pos += 2;
- endaddr += 2;
- }
- else
- {
- val = buffer[1] - ((buffer[0] & 1) << 8);
- pos++;
- endaddr++;
- }
- (*info->fprintf_func) (info->stream, "0x%x,%s",
- (unsigned) val & 0xffff, reg_name[reg]);
- if (reg == PC_REGNUM)
- {
- (* info->fprintf_func) (info->stream, " {0x");
- (* info->print_address_func) (endaddr + val, info);
- (* info->fprintf_func) (info->stream, "}");
- }
- }
- else
- {
- reg = (buffer[0] >> 3) & 0x03;
- switch (buffer[0] & 3)
- {
- case 0:
- (*info->fprintf_func) (info->stream, "A,%s", reg_name[reg]);
- break;
- case 1:
- (*info->fprintf_func) (info->stream, "B,%s", reg_name[reg]);
- break;
- case 2:
- (*info->fprintf_func) (info->stream, "D,%s", reg_name[reg]);
- break;
- case 3:
- default:
- (*info->fprintf_func) (info->stream, "[D,%s]", reg_name[reg]);
- if (indirect)
- *indirect = 1;
- break;
- }
- }
- return pos;
- }
- /* Disassemble one instruction at address 'memaddr'. Returns the number
- of bytes used by that instruction. */
- static int
- print_insn (bfd_vma memaddr, struct disassemble_info* info, int arch)
- {
- int status;
- bfd_byte buffer[4];
- unsigned int code;
- long format, pos, i;
- bfd_vma val;
- const struct m68hc11_opcode *opcode;
- if (arch & cpuxgate)
- {
- /* Get two bytes as all XGATE instructions are 16bit. */
- status = read_memory (memaddr, buffer, 2, info);
- if (status != 0)
- return status;
- format = 0;
- code = (buffer[0] << 8) + buffer[1];
- /* Scan the opcode table until we find the opcode
- with the corresponding page. */
- opcode = m68hc11_opcodes;
- for (i = 0; i < m68hc11_num_opcodes; i++, opcode++)
- {
- if ((opcode->opcode != (code & opcode->xg_mask)) || (opcode->arch != cpuxgate))
- continue;
- /* We have found the opcode. Extract the operand and print it. */
- (*info->fprintf_func) (info->stream, "%s", opcode->name);
- format = opcode->format;
- if (format & (M68XG_OP_NONE))
- {
- /* Nothing to print. */
- }
- else if (format & M68XG_OP_IMM3)
- (*info->fprintf_func) (info->stream, " #0x%x", (code >> 8) & 0x7);
- else if (format & M68XG_OP_R_R)
- (*info->fprintf_func) (info->stream, " R%x, R%x",
- (code >> 8) & 0x7, (code >> 5) & 0x7);
- else if (format & M68XG_OP_R_R_R)
- (*info->fprintf_func) (info->stream, " R%x, R%x, R%x",
- (code >> 8) & 0x7, (code >> 5) & 0x7, (code >> 2) & 0x7);
- else if (format & M68XG_OP_RD_RB_RI)
- (*info->fprintf_func) (info->stream, " R%x, (R%x, R%x)",
- (code >> 8) & 0x7, (code >> 5) & 0x7, (code >> 2) & 0x7);
- else if (format & M68XG_OP_RD_RB_RIp)
- (*info->fprintf_func) (info->stream, " R%x, (R%x, R%x+)",
- (code >> 8) & 0x7, (code >> 5) & 0x7, (code >> 2) & 0x7);
- else if (format & M68XG_OP_RD_RB_mRI)
- (*info->fprintf_func) (info->stream, " R%x, (R%x, -R%x)",
- (code >> 8) & 0x7, (code >> 5) & 0x7, (code >> 2) & 0x7);
- else if (format & M68XG_OP_R_R_OFFS5)
- (*info->fprintf_func) (info->stream, " R%x, (R%x, #0x%x)",
- (code >> 8) & 0x7, (code >> 5) & 0x7, code & 0x1f);
- else if (format & M68XG_OP_R_IMM8)
- (*info->fprintf_func) (info->stream, " R%x, #0x%02x",
- (code >> 8) & 0x7, code & 0xff);
- else if (format & M68XG_OP_R_IMM4)
- (*info->fprintf_func) (info->stream, " R%x, #0x%x",
- (code >> 8) & 0x7, (code & 0xf0) >> 4);
- else if (format & M68XG_OP_REL9)
- {
- (*info->fprintf_func) (info->stream, " 0x");
- val = buffer[1] - ((buffer[0] & 1) << 8);
- (*info->print_address_func) (memaddr + (val << 1) + 2, info);
- }
- else if (format & M68XG_OP_REL10)
- {
- (*info->fprintf_func) (info->stream, " 0x");
- val = (buffer[0] << 8) | buffer[1];
- val = ((val & 0x3ff) ^ 0x200) - 0x200;
- (*info->print_address_func) (memaddr + (val << 1) + 2, info);
- }
- else if ((code & 0x00ff) == 0x00f8)
- (*info->fprintf_func) (info->stream, " R%x, CCR", (code >> 8) & 0x7);
- else if ((code & 0x00ff) == 0x00f9)
- (*info->fprintf_func) (info->stream, " CCR, R%x", (code >> 8) & 0x7);
- else if ((code & 0x00ff) == 0x0)
- (*info->fprintf_func) (info->stream, " R%x, PC", (code >> 8) & 0x7);
- else if (format & M68XG_OP_R)
- {
- /* Special cases for TFR. */
- if ((code & 0xf8ff) == 0x00f8)
- (*info->fprintf_func) (info->stream, " R%x, CCR", (code >> 8) & 0x7);
- else if ((code & 0xf8ff) == 0x00f9)
- (*info->fprintf_func) (info->stream, " CCR, R%x", (code >> 8) & 0x7);
- else if ((code & 0xf8ff) == 0x00fa)
- (*info->fprintf_func) (info->stream, " R%x, PC", (code >> 8) & 0x7);
- else
- (*info->fprintf_func) (info->stream, " R%x", (code >> 8) & 0x7);
- }
- else
- /* Opcode not recognized. */
- (*info->fprintf_func) (info->stream, "Not yet handled TEST .byte\t0x%04x", code);
- return 2;
- }
- /* Opcode not recognized. */
- (*info->fprintf_func) (info->stream, ".byte\t0x%04x", code);
- return 2; /* Everything is two bytes. */
- }
- /* HC11 and HC12. */
- /* Get first byte. Only one at a time because we don't know the
- size of the insn. */
- status = read_memory (memaddr, buffer, 1, info);
- if (status != 0)
- return status;
- format = 0;
- code = buffer[0];
- pos = 0;
- /* Look for page2,3,4 opcodes. */
- if (code == M6811_OPCODE_PAGE2)
- {
- pos++;
- format = M6811_OP_PAGE2;
- }
- else if (code == M6811_OPCODE_PAGE3 && arch == cpu6811)
- {
- pos++;
- format = M6811_OP_PAGE3;
- }
- else if (code == M6811_OPCODE_PAGE4 && arch == cpu6811)
- {
- pos++;
- format = M6811_OP_PAGE4;
- }
- /* We are in page2,3,4; get the real opcode. */
- if (pos == 1)
- {
- status = read_memory (memaddr + pos, &buffer[1], 1, info);
- if (status != 0)
- return status;
- code = buffer[1];
- }
- /* Look first for a 68HC12 alias. All of them are 2-bytes long and
- in page 1. There is no operand to print. We read the second byte
- only when we have a possible match. */
- if ((arch & cpu6812) && format == 0)
- {
- int must_read = 1;
- /* Walk the alias table to find a code1+code2 match. */
- for (i = 0; i < m68hc12_num_alias; i++)
- {
- if (m68hc12_alias[i].code1 == code)
- {
- if (must_read)
- {
- status = read_memory (memaddr + pos + 1,
- &buffer[1], 1, info);
- if (status != 0)
- break;
- must_read = 1;
- }
- if (m68hc12_alias[i].code2 == (unsigned char) buffer[1])
- {
- (*info->fprintf_func) (info->stream, "%s",
- m68hc12_alias[i].name);
- return 2;
- }
- }
- }
- }
- pos++;
- /* Scan the opcode table until we find the opcode
- with the corresponding page. */
- opcode = m68hc11_opcodes;
- for (i = 0; i < m68hc11_num_opcodes; i++, opcode++)
- {
- int offset;
- int pc_src_offset;
- int pc_dst_offset = 0;
- if ((opcode->arch & arch) == 0)
- continue;
- if (opcode->opcode != code)
- continue;
- if ((opcode->format & OP_PAGE_MASK) != format)
- continue;
- if (opcode->format & M6812_OP_REG)
- {
- int j;
- int is_jump;
- if (opcode->format & M6811_OP_JUMP_REL)
- is_jump = 1;
- else
- is_jump = 0;
- status = read_memory (memaddr + pos, &buffer[0], 1, info);
- if (status != 0)
- {
- return status;
- }
- for (j = 0; i + j < m68hc11_num_opcodes; j++)
- {
- if ((opcode[j].arch & arch) == 0)
- continue;
- if (opcode[j].opcode != code)
- continue;
- if (is_jump)
- {
- if (!(opcode[j].format & M6811_OP_JUMP_REL))
- continue;
- if ((opcode[j].format & M6812_OP_IBCC_MARKER)
- && (buffer[0] & 0xc0) != 0x80)
- continue;
- if ((opcode[j].format & M6812_OP_TBCC_MARKER)
- && (buffer[0] & 0xc0) != 0x40)
- continue;
- if ((opcode[j].format & M6812_OP_DBCC_MARKER)
- && (buffer[0] & 0xc0) != 0)
- continue;
- if ((opcode[j].format & M6812_OP_EQ_MARKER)
- && (buffer[0] & 0x20) == 0)
- break;
- if (!(opcode[j].format & M6812_OP_EQ_MARKER)
- && (buffer[0] & 0x20) != 0)
- break;
- continue;
- }
- if (opcode[j].format & M6812_OP_EXG_MARKER && buffer[0] & 0x80)
- break;
- if ((opcode[j].format & M6812_OP_SEX_MARKER)
- && (((buffer[0] & 0x07) >= 3 && (buffer[0] & 7) <= 7))
- && ((buffer[0] & 0x0f0) <= 0x20))
- break;
- if ((opcode[j].format & M6812_OP_SEX_MARKER)
- && (arch & cpu9s12x)
- && ((buffer[0] == 0x4d) || (buffer[0] == 0x4e)))
- break;
- if (opcode[j].format & M6812_OP_TFR_MARKER
- && !(buffer[0] & 0x80))
- break;
- }
- if (i + j < m68hc11_num_opcodes)
- opcode = &opcode[j];
- }
- /* We have found the opcode. Extract the operand and print it. */
- (*info->fprintf_func) (info->stream, "%s", opcode->name);
- format = opcode->format;
- if (format & (M6811_OP_MASK | M6811_OP_BITMASK
- | M6811_OP_JUMP_REL | M6812_OP_JUMP_REL16))
- {
- (*info->fprintf_func) (info->stream, "\t");
- }
- /* The movb and movw must be handled in a special way...
- The source constant 'ii' is not always at the same place.
- This is the same for the destination for the post-indexed byte.
- The 'offset' is used to do the appropriate correction.
- offset offset
- for constant for destination
- movb 18 OB ii hh ll 0 0
- 18 08 xb ii 1 -1
- 18 08 xb ff ii 2 1 9 bit
- 18 08 xb ee ff ii 3 1 16 bit
- 18 0C hh ll hh ll 0 0
- 18 09 xb hh ll 1 -1
- 18 0D xb hh ll 0 0
- 18 0A xb xb 0 0
- movw 18 03 jj kk hh ll 0 0
- 18 00 xb jj kk 1 -1
- 18 04 hh ll hh ll 0 0
- 18 01 xb hh ll 1 -1
- 18 05 xb hh ll 0 0
- 18 02 xb xb 0 0
- After the source operand is read, the position 'pos' is incremented
- this explains the negative offset for destination.
- movb/movw above are the only instructions with this matching
- format. */
- offset = ((format & M6812_OP_IDX_P2)
- && (format & (M6811_OP_IMM8 | M6811_OP_IMM16 |
- M6811_OP_IND16)));
- if (offset)
- {
- /* Check xb to see position of data. */
- status = read_memory (memaddr + pos, &buffer[0], 1, info);
- if (status != 0)
- {
- return status;
- }
- if (((buffer[0] & 0xe0) == 0xe0) && ((buffer[0] & 0x04) == 0))
- {
- /* 9 or 16 bit. */
- if ((buffer[0] & 0x02) == 0)
- {
- /* 9 bit. */
- offset = 2;
- }
- else
- {
- /* 16 bit. */
- offset = 3;
- }
- }
- }
- /* Operand with one more byte: - immediate, offset,
- direct-low address. */
- if (format &
- (M6811_OP_IMM8 | M6811_OP_IX | M6811_OP_IY | M6811_OP_DIRECT))
- {
- status = read_memory (memaddr + pos + offset, &buffer[0], 1, info);
- if (status != 0)
- return status;
- /* This movb/movw is special (see above). */
- if (offset < 2)
- {
- offset = -offset;
- pc_dst_offset = 2;
- }
- else
- {
- offset = -1;
- pc_dst_offset = 5;
- }
- pos++;
- if (format & M6811_OP_IMM8)
- {
- (*info->fprintf_func) (info->stream, "#0x%x", (int) buffer[0]);
- format &= ~M6811_OP_IMM8;
- /* Set PC destination offset. */
- pc_dst_offset = 1;
- }
- else if (format & M6811_OP_IX)
- {
- /* Offsets are in range 0..255, print them unsigned. */
- (*info->fprintf_func) (info->stream, "0x%x,x", buffer[0] & 0x0FF);
- format &= ~M6811_OP_IX;
- }
- else if (format & M6811_OP_IY)
- {
- (*info->fprintf_func) (info->stream, "0x%x,y", buffer[0] & 0x0FF);
- format &= ~M6811_OP_IY;
- }
- else if (format & M6811_OP_DIRECT)
- {
- (*info->fprintf_func) (info->stream, "*");
- if (info->symtab_size > 0) /* Avoid duplicate 0x. */
- (*info->fprintf_func) (info->stream, "0x");
- (*info->print_address_func) (buffer[0] & 0x0FF, info);
- format &= ~M6811_OP_DIRECT;
- }
- }
- #define M6812_DST_MOVE (M6812_OP_IND16_P2 | M6812_OP_IDX_P2)
- #define M6812_INDEXED_FLAGS (M6812_OP_IDX|M6812_OP_IDX_1|M6812_OP_IDX_2)
- /* Analyze the 68HC12 indexed byte. */
- if (format & M6812_INDEXED_FLAGS)
- {
- int indirect;
- bfd_vma endaddr;
- endaddr = memaddr + pos + 1;
- if (format & M6811_OP_IND16)
- endaddr += 2;
- pc_src_offset = -1;
- pc_dst_offset = 1;
- status = print_indexed_operand (memaddr + pos, info, &indirect,
- (format & M6812_DST_MOVE),
- pc_src_offset, endaddr, arch);
- if (status < 0)
- return status;
- pos += status;
- /* The indirect addressing mode of the call instruction does
- not need the page code. */
- if ((format & M6812_OP_PAGE) && indirect)
- format &= ~M6812_OP_PAGE;
- }
- /* 68HC12 dbcc/ibcc/tbcc operands. */
- if ((format & M6812_OP_REG) && (format & M6811_OP_JUMP_REL))
- {
- status = read_memory (memaddr + pos, &buffer[0], 2, info);
- if (status != 0)
- return status;
- (*info->fprintf_func) (info->stream, "%s,",
- reg_src_table[buffer[0] & 0x07]);
- val = buffer[1] - ((buffer[0] & 0x10) << 4);
- pos += 2;
- (*info->fprintf_func) (info->stream, "0x");
- (*info->print_address_func) (memaddr + pos + val, info);
- format &= ~(M6812_OP_REG | M6811_OP_JUMP_REL);
- }
- else if (format & (M6812_OP_REG | M6812_OP_REG_2))
- {
- status = read_memory (memaddr + pos, &buffer[0], 1, info);
- if (status != 0)
- return status;
- pos++;
- (*info->fprintf_func) (info->stream, "%s,%s",
- reg_src_table[(buffer[0] >> 4) & 7],
- reg_dst_table[(buffer[0] & 7)]);
- }
- if (format & (M6811_OP_IMM16 | M6811_OP_IND16))
- {
- bfd_vma addr;
- unsigned page = 0;
- status = read_memory (memaddr + pos + offset, &buffer[0], 2, info);
- if (status != 0)
- return status;
- if (format & M6812_OP_IDX_P2)
- offset = -2;
- else
- offset = 0;
- pos += 2;
- addr = val = (buffer[0] << 8) | buffer[1];
- pc_dst_offset = 2;
- if (format & M6812_OP_PAGE)
- {
- status = read_memory (memaddr + pos + offset, buffer, 1, info);
- if (status != 0)
- return status;
- page = buffer[0];
- if (addr >= M68HC12_BANK_BASE && addr < 0x0c000)
- addr = (val - M68HC12_BANK_BASE + (page << M68HC12_BANK_SHIFT)
- + M68HC12_BANK_VIRT);
- }
- else if ((arch & cpu6812)
- && addr >= M68HC12_BANK_BASE && addr < 0x0c000)
- {
- unsigned cur_page;
- bfd_vma vaddr;
- if (memaddr >= M68HC12_BANK_VIRT)
- cur_page = ((memaddr - M68HC12_BANK_VIRT)
- >> M68HC12_BANK_SHIFT);
- else
- cur_page = 0;
- vaddr = (addr - M68HC12_BANK_BASE
- + (cur_page << M68HC12_BANK_SHIFT)) + M68HC12_BANK_VIRT;
- if (!info->symbol_at_address_func (addr, info)
- && info->symbol_at_address_func (vaddr, info))
- addr = vaddr;
- }
- if (format & M6811_OP_IMM16)
- {
- format &= ~M6811_OP_IMM16;
- (*info->fprintf_func) (info->stream, "#");
- }
- else
- {
- format &= ~M6811_OP_IND16;
- }
- /* Avoid duplicate 0x from core binutils. */
- if (info->symtab_size > 0)
- (*info->fprintf_func) (info->stream, "0x");
- (*info->print_address_func) (addr, info);
- if (format & M6812_OP_PAGE)
- {
- (* info->fprintf_func) (info->stream, " {");
- /* Avoid duplicate 0x from core binutils. */
- if (info->symtab_size > 0)
- (*info->fprintf_func) (info->stream, "0x");
- (* info->print_address_func) (val, info);
- (* info->fprintf_func) (info->stream, ", 0x%x}", page);
- format &= ~M6812_OP_PAGE;
- pos += 1;
- }
- }
- if (format & M6812_OP_IDX_P2)
- {
- (*info->fprintf_func) (info->stream, ", ");
- status = print_indexed_operand (memaddr + pos + offset, info,
- 0, 1, pc_dst_offset,
- memaddr + pos + offset + 1, arch);
- if (status < 0)
- return status;
- pos += status;
- }
- if (format & M6812_OP_IND16_P2)
- {
- (*info->fprintf_func) (info->stream, ", ");
- status = read_memory (memaddr + pos + offset, &buffer[0], 2, info);
- if (status != 0)
- return status;
- pos += 2;
- val = (buffer[0] << 8) | buffer[1];
- /* Avoid duplicate 0x from core binutils. */
- if (info->symtab_size > 0)
- (*info->fprintf_func) (info->stream, "0x");
- (*info->print_address_func) (val, info);
- }
- /* M6811_OP_BITMASK and M6811_OP_JUMP_REL must be treated separately
- and in that order. The brset/brclr insn have a bitmask and then
- a relative branch offset. */
- if (format & M6811_OP_BITMASK)
- {
- status = read_memory (memaddr + pos, &buffer[0], 1, info);
- if (status != 0)
- return status;
- pos++;
- (*info->fprintf_func) (info->stream, ", #0x%02x%s",
- buffer[0] & 0x0FF,
- (format & M6811_OP_JUMP_REL ? ", " : ""));
- format &= ~M6811_OP_BITMASK;
- }
- if (format & M6811_OP_JUMP_REL)
- {
- status = read_memory (memaddr + pos, &buffer[0], 1, info);
- if (status != 0)
- return status;
- (*info->fprintf_func) (info->stream, "0x");
- pos++;
- val = (buffer[0] ^ 0x80) - 0x80;
- (*info->print_address_func) (memaddr + pos + val, info);
- format &= ~M6811_OP_JUMP_REL;
- }
- else if (format & M6812_OP_JUMP_REL16)
- {
- status = read_memory (memaddr + pos, &buffer[0], 2, info);
- if (status != 0)
- return status;
- pos += 2;
- val = (((buffer[0] << 8) | buffer[1]) ^ 0x8000) - 0x8000;
- (*info->fprintf_func) (info->stream, "0x");
- (*info->print_address_func) (memaddr + pos + val, info);
- format &= ~M6812_OP_JUMP_REL16;
- }
- if (format & M6812_OP_PAGE)
- {
- status = read_memory (memaddr + pos + offset, &buffer[0], 1, info);
- if (status != 0)
- return status;
- pos += 1;
- val = buffer[0];
- (*info->fprintf_func) (info->stream, ", 0x%x", (unsigned) val);
- }
- #ifdef DEBUG
- /* Consistency check. 'format' must be 0, so that we have handled
- all formats; and the computed size of the insn must match the
- opcode table content. */
- if (format & ~(M6811_OP_PAGE4 | M6811_OP_PAGE3 | M6811_OP_PAGE2))
- (*info->fprintf_func) (info->stream, "; Error, format: %lx", format);
- if (pos != opcode->size)
- (*info->fprintf_func) (info->stream, "; Error, size: %ld expect %d",
- pos, opcode->size);
- #endif
- return pos;
- }
- /* Opcode not recognized. */
- if (format == M6811_OP_PAGE2 && arch & cpu6812
- && ((code >= 0x30 && code <= 0x39) || (code >= 0x40)))
- (*info->fprintf_func) (info->stream, "trap\t#0x%02x", code & 0x0ff);
- else if (format == M6811_OP_PAGE2)
- (*info->fprintf_func) (info->stream, ".byte\t0x%02x, 0x%02x",
- M6811_OPCODE_PAGE2, code);
- else if (format == M6811_OP_PAGE3)
- (*info->fprintf_func) (info->stream, ".byte\t0x%02x, 0x%02x",
- M6811_OPCODE_PAGE3, code);
- else if (format == M6811_OP_PAGE4)
- (*info->fprintf_func) (info->stream, ".byte\t0x%02x, 0x%02x",
- M6811_OPCODE_PAGE4, code);
- else
- (*info->fprintf_func) (info->stream, ".byte\t0x%02x", code);
- return pos;
- }
- /* Disassemble one instruction at address 'memaddr'. Returns the number
- of bytes used by that instruction. */
- int
- print_insn_m68hc11 (bfd_vma memaddr, struct disassemble_info* info)
- {
- return print_insn (memaddr, info, cpu6811);
- }
- int
- print_insn_m68hc12 (bfd_vma memaddr, struct disassemble_info* info)
- {
- return print_insn (memaddr, info, cpu6812);
- }
- int
- print_insn_m9s12x (bfd_vma memaddr, struct disassemble_info* info)
- {
- return print_insn (memaddr, info, cpu6812|cpu9s12x);
- }
- int
- print_insn_m9s12xg (bfd_vma memaddr, struct disassemble_info* info)
- {
- return print_insn (memaddr, info, cpuxgate);
- }
|