unidasm: Add Panasonic MN10300 disassembler

This commit is contained in:
AJR 2025-03-22 19:28:42 -04:00
parent b294aff9a7
commit e95cdde8e9
4 changed files with 983 additions and 0 deletions

View File

@ -4240,3 +4240,13 @@ if opt_tool(CPUS, "OLMS66K") then
table.insert(disasm_files , MAME_DIR .. "src/devices/cpu/olms66k/nx8dasm.cpp")
table.insert(disasm_files , MAME_DIR .. "src/devices/cpu/olms66k/nx8dasm.h")
end
--------------------------------------------------
-- Panasonic MN10300, disassembler only
--@src/devices/cpu/mn10300/mn10300.h,CPUS["MN10300"] = true
--------------------------------------------------
if opt_tool(CPUS, "MN10300") then
table.insert(disasm_files , MAME_DIR .. "src/devices/cpu/mn10300/mn103dasm.cpp")
table.insert(disasm_files , MAME_DIR .. "src/devices/cpu/mn10300/mn103dasm.h")
end

View File

@ -0,0 +1,929 @@
// license:BSD-3-Clause
// copyright-holders:AJR
/***************************************************************************
Panasonic MN10300 disassembler
TODO: add extended instructions, especially those pertaining to the
MN103E (AM33).
***************************************************************************/
#include "emu.h"
#include "mn103dasm.h"
mn10300_disassembler::mn10300_disassembler()
: util::disasm_interface()
{
}
u32 mn10300_disassembler::opcode_alignment() const
{
return 1;
}
namespace {
const char *const f_conds[10] = {
"lt", "gt", "ge", "le", "cs", "hi", "cc", "ls", "eq", "ne"
};
const char *const f_ext_branches[4] = {
"bvc", "bvs", "bnc", "bns"
};
const char *const f_move_ops[4] = {
"mov", "mov", "movbu", "movhu"
};
const char *const f_logical_ops[4] = {
"and", "or", "xor", "btst"
};
const char *const f_shift_ops[3] = {
"asl", "lsr", "asr"
};
const char *const f_reg_spec[8] = {
"other0",
"other", // i.e. D0, D1, A0, A1, MDR, LIR and LAR
"other2",
"other3",
"a3",
"a2",
"d3",
"d2"
};
} // anonymous namespace
void mn10300_disassembler::format_immediate(std::ostream &stream, u32 imm) const
{
if (s32(imm) < 0)
{
stream << '-';
imm = -imm;
}
if (imm > 9)
stream << "0x";
util::stream_format(stream, "%x", imm);
}
void mn10300_disassembler::format_immediate_unsigned(std::ostream &stream, u32 imm) const
{
if (imm > 9)
stream << "0x";
util::stream_format(stream, "%x", imm);
}
void mn10300_disassembler::format_an_disp(std::ostream &stream, u32 imm, int n) const
{
stream << '(';
format_immediate(stream, imm);
util::stream_format(stream, ", a%d)", n);
}
void mn10300_disassembler::format_sp_disp(std::ostream &stream, u32 imm) const
{
stream << '(';
if (imm > 9)
stream << "0x";
util::stream_format(stream, "%x, sp)", imm);
}
void mn10300_disassembler::format_regs(std::ostream &stream, u8 regs) const
{
if (regs == 0)
stream << "0";
else
{
stream << '[';
bool first = true;
for (int n = 7; n >= 0; n--)
{
if (BIT(regs, n))
{
if (first)
first = false;
else
stream << ',';
stream << f_reg_spec[n];
}
}
stream << ']';
}
}
offs_t mn10300_disassembler::disassemble_f0(std::ostream &stream, offs_t pc, const mn10300_disassembler::data_buffer &opcodes) const
{
u8 op2 = opcodes.r8(pc + 1);
switch (op2 >> 4)
{
case 0x0: case 0x4: case 0x6:
util::stream_format(stream, "%-8s(a%d), %c%d", f_move_ops[BIT(op2, 5, 2)], BIT(op2, 2, 2), (op2 >> 4) == 0x0 ? 'a' : 'd', BIT(op2, 0, 2));
return 2 | SUPPORTED;
case 0x1: case 0x5: case 0x7:
util::stream_format(stream, "%-8s%c%d, (a%d)", f_move_ops[BIT(op2, 5, 2)], (op2 >> 4) == 0x1 ? 'a' : 'd', BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
case 0x8:
util::stream_format(stream, "%-8sd%d, (a%d)", "bset", BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
case 0x9:
util::stream_format(stream, "%-8sd%d, (a%d)", "bclr", BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
case 0xf:
if (op2 < 0xf4)
{
util::stream_format(stream, "%-8s(a%d)", "calls", BIT(op2, 0, 2));
return 2 | STEP_OVER | SUPPORTED;
}
else if (op2 < 0xf8)
{
util::stream_format(stream, "%-8s(a%d)", "jmp", BIT(op2, 0, 2));
return 2 | SUPPORTED;
}
else if (op2 == 0xfc)
{
stream << "rets";
return 2 | STEP_OUT | SUPPORTED;
}
else if (op2 == 0xfd)
{
stream << "rti";
return 2 | STEP_OUT | SUPPORTED;
}
else if (op2 == 0xfe)
{
stream << "trap";
return 2 | STEP_OVER | SUPPORTED;
}
[[fallthrough]];
default:
stream << "?";
return 1 | SUPPORTED;
}
}
offs_t mn10300_disassembler::disassemble_f1(std::ostream &stream, offs_t pc, const mn10300_disassembler::data_buffer &opcodes) const
{
u8 op2 = opcodes.r8(pc + 1);
switch (op2 >> 4)
{
case 0x0:
util::stream_format(stream, "%-8sd%d, d%d", "sub", BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
case 0x1:
util::stream_format(stream, "%-8sa%d, d%d", "sub", BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
case 0x2:
util::stream_format(stream, "%-8sd%d, a%d", "sub", BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
case 0x3:
util::stream_format(stream, "%-8sa%d, a%d", "sub", BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
case 0x4:
util::stream_format(stream, "%-8sd%d, d%d", "addc", BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
case 0x5:
util::stream_format(stream, "%-8sa%d, d%d", "add", BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
case 0x6:
util::stream_format(stream, "%-8sd%d, a%d", "add", BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
case 0x7:
util::stream_format(stream, "%-8sa%d, a%d", "add", BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
case 0x8:
util::stream_format(stream, "%-8sd%d, d%d", "subc", BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
case 0x9:
util::stream_format(stream, "%-8sa%d, d%d", "cmp", BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
case 0xa:
util::stream_format(stream, "%-8sd%d, a%d", "cmp", BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
case 0xd:
util::stream_format(stream, "%-8sa%d, d%d", "mov", BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
case 0xe:
util::stream_format(stream, "%-8sd%d, a%d", "mov", BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
}
stream << "?";
return 1 | SUPPORTED;
}
offs_t mn10300_disassembler::disassemble_f2(std::ostream &stream, offs_t pc, const mn10300_disassembler::data_buffer &opcodes) const
{
u8 op2 = opcodes.r8(pc + 1);
switch (op2 >> 4)
{
case 0x0: case 0x1: case 0x2:
util::stream_format(stream, "%-8sd%d, d%d", f_logical_ops[op2 >> 4], BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
case 0x3:
if (op2 < 0x34)
{
util::stream_format(stream, "%-8sd%d", "not", BIT(op2, 0, 2));
return 2 | SUPPORTED;
}
else
break;
case 0x4:
util::stream_format(stream, "%-8sd%d, d%d", "mul", BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
case 0x5:
util::stream_format(stream, "%-8sd%d, d%d", "mulu", BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
case 0x6:
util::stream_format(stream, "%-8sd%d, d%d", "div", BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
case 0x7:
util::stream_format(stream, "%-8sd%d, d%d", "divu", BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
case 0x8:
if (op2 < 0x84)
{
util::stream_format(stream, "%-8sd%d", "rol", BIT(op2, 0, 2));
return 2 | SUPPORTED;
}
else if (op2 < 0x88)
{
util::stream_format(stream, "%-8sd%d", "ror", BIT(op2, 0, 2));
return 2 | SUPPORTED;
}
else
break;
case 0x9: case 0xa: case 0xb:
util::stream_format(stream, "%-8sd%d, d%d", f_shift_ops[(op2 >> 4) - 0x9], BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
case 0xd:
if (op2 < 0xd4)
{
util::stream_format(stream, "%-8sd%d", "ext", BIT(op2, 0, 2));
return 2 | SUPPORTED;
}
else
break;
case 0xe:
if (op2 < 0xe8)
{
util::stream_format(stream, "%-8s%s, d%d", "mov", BIT(op2, 2) ? "psw" : "mdr", BIT(op2, 0, 2));
return 2 | SUPPORTED;
}
else
break;
case 0xf:
if (BIT(op2, 1))
{
util::stream_format(stream, "%-8sd%d, %s", "mov", BIT(op2, 2, 2), BIT(op2, 0) ? "psw" : "mdr");
return 2 | SUPPORTED;
}
else if (!BIT(op2, 0))
{
util::stream_format(stream, "%-8sa%d, sp", "mov", BIT(op2, 2, 2));
return 2 | SUPPORTED;
}
else
break;
}
stream << "?";
return 1 | SUPPORTED;
}
offs_t mn10300_disassembler::disassemble_f3(std::ostream &stream, offs_t pc, const mn10300_disassembler::data_buffer &opcodes) const
{
u8 op2 = opcodes.r8(pc + 1);
util::stream_format(stream, "%-8s", "mov");
if (BIT(op2, 6))
util::stream_format(stream, "%c%d, (d%d, a%d)", BIT(op2, 7) ? 'a' : 'd', BIT(op2, 4, 2), BIT(op2, 2, 2), BIT(op2, 0, 2));
else
util::stream_format(stream, "(d%d, a%d), %c%d", BIT(op2, 2, 2), BIT(op2, 0, 2), BIT(op2, 7) ? 'a' : 'd', BIT(op2, 4, 2));
return 2 | SUPPORTED;
}
offs_t mn10300_disassembler::disassemble_f4(std::ostream &stream, offs_t pc, const mn10300_disassembler::data_buffer &opcodes) const
{
u8 op2 = opcodes.r8(pc + 1);
util::stream_format(stream, "%-8s", f_move_ops[BIT(op2, 7) + 2]);
if (BIT(op2, 6))
util::stream_format(stream, "d%d, (d%d, a%d)", BIT(op2, 4, 2), BIT(op2, 2, 2), BIT(op2, 0, 2));
else
util::stream_format(stream, "(d%d, a%d), d%d", BIT(op2, 2, 2), BIT(op2, 0, 2), BIT(op2, 4, 2));
return 1 | SUPPORTED;
}
offs_t mn10300_disassembler::disassemble_f5(std::ostream &stream, offs_t pc, const mn10300_disassembler::data_buffer &opcodes) const
{
u8 op2 = opcodes.r8(pc + 1);
util::stream_format(stream, "udf%02d d%d, d%d", 20 + (op2 >> 4), BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
}
offs_t mn10300_disassembler::disassemble_f6(std::ostream &stream, offs_t pc, const mn10300_disassembler::data_buffer &opcodes) const
{
u8 op2 = opcodes.r8(pc + 1);
util::stream_format(stream, "udf%02d d%d, d%d", op2 >> 4, BIT(op2, 2, 2), BIT(op2, 0, 2));
return 2 | SUPPORTED;
}
offs_t mn10300_disassembler::disassemble_f8(std::ostream &stream, offs_t pc, const mn10300_disassembler::data_buffer &opcodes) const
{
u8 op2 = opcodes.r8(pc + 1);
if (op2 < 0x80)
{
util::stream_format(stream, "%-8s", f_move_ops[BIT(op2, 5, 2)]);
if (BIT(op2, 4))
{
util::stream_format(stream, "%c%d, ", BIT(op2, 5, 2) == 1 ? 'a' : 'd', BIT(op2, 2, 2));
format_an_disp(stream, s8(opcodes.r8(pc + 2)), BIT(op2, 0, 2));
}
else
{
format_an_disp(stream, s8(opcodes.r8(pc + 2)), BIT(op2, 2, 2));
util::stream_format(stream, ", %c%d", BIT(op2, 5, 2) == 1 ? 'a' : 'd', BIT(op2, 0, 2));
}
return 3 | SUPPORTED;
}
else if ((op2 & 0xf2) == 0x92)
{
util::stream_format(stream, "%-8sd%d, ", f_move_ops[BIT(op2, 0, 2)], BIT(op2, 2, 2));
format_sp_disp(stream, opcodes.r8(pc + 2));
return 3 | SUPPORTED;
}
else switch (op2 & 0xfc)
{
case 0xb8: case 0xbc:
util::stream_format(stream, "%-8s", f_move_ops[BIT(op2, 2, 2)]);
format_sp_disp(stream, opcodes.r8(pc + 2));
util::stream_format(stream, ", d%d", BIT(op2, 0, 2));
return 3 | SUPPORTED;
case 0xc0:
util::stream_format(stream, "%-8s%u, d%d", f_shift_ops[BIT(op2, 2, 2)], opcodes.r8(pc + 2), BIT(op2, 0, 2));
return 3 | SUPPORTED;
case 0xe0: case 0xe4: case 0xec:
util::stream_format(stream, "%-8s0x%02x, d%d", f_logical_ops[BIT(op2, 2, 2)], opcodes.r8(pc + 2), BIT(op2, 0, 2)); // zero_ext
return 3 | SUPPORTED;
case 0xe8:
util::stream_format(stream, "%-8s0x%08x", f_ext_branches[BIT(op2, 0, 2)], u32(pc + s8(opcodes.r8(pc + 2))));
return 3 | STEP_COND | SUPPORTED;
case 0xf0:
util::stream_format(stream, "%-8s", "mov");
format_an_disp(stream, s8(opcodes.r8(pc + 2)), BIT(op2, 0, 2));
stream << ", sp";
return 3 | SUPPORTED;
case 0xf4:
util::stream_format(stream, "%-8ssp, ", "mov");
format_an_disp(stream, s8(opcodes.r8(pc + 2)), BIT(op2, 0, 2));
return 3 | SUPPORTED;
case 0xfc:
if (op2 == 0xfe)
{
util::stream_format(stream, "%-8s", "add");
format_immediate(stream, s8(opcodes.r8(pc + 2))); // sign_ext
stream << ", sp";
return 3 | SUPPORTED;
}
break;
}
stream << "?";
return 1 | SUPPORTED;
}
offs_t mn10300_disassembler::disassemble_f9(std::ostream &stream, offs_t pc, const mn10300_disassembler::data_buffer &opcodes) const
{
u8 op2 = opcodes.r8(pc + 1);
if (BIT(op2, 2))
util::stream_format(stream, "udfu%02d 0x%02x, d%d", (BIT(op2, 3) ? 20 : 0) + (op2 >> 4), opcodes.r8(pc + 2), BIT(op2, 0, 2));
else
util::stream_format(stream, "udf%02d 0x%02x, d%d", (BIT(op2, 3) ? 20 : 0) + (op2 >> 4), opcodes.r8(pc + 2), BIT(op2, 0, 2));
return 3 | SUPPORTED;
}
offs_t mn10300_disassembler::disassemble_fa(std::ostream &stream, offs_t pc, const mn10300_disassembler::data_buffer &opcodes) const
{
u8 op2 = opcodes.r8(pc + 1);
if (op2 < 0x80)
{
util::stream_format(stream, "%-8s", f_move_ops[BIT(op2, 5, 2)]);
if (BIT(op2, 4))
{
util::stream_format(stream, "%c%d, ", BIT(op2, 5, 2) == 1 ? 'a' : 'd', BIT(op2, 2, 2));
format_an_disp(stream, s16(opcodes.r16(pc + 2)), BIT(op2, 0, 2));
}
else
{
format_an_disp(stream, s16(opcodes.r16(pc + 2)), BIT(op2, 2, 2));
util::stream_format(stream, ", %c%d", BIT(op2, 5, 2) == 1 ? 'a' : 'd', BIT(op2, 0, 2));
}
return 4 | SUPPORTED;
}
else if (op2 < 0xa0)
{
switch (op2 & 0x13)
{
case 0x00:
util::stream_format(stream, "%-8sa%d, (0x%04x)", "mov", BIT(op2, 2, 2), opcodes.r16(pc + 2));
return 4 | SUPPORTED;
case 0x10: case 0x11: case 0x12: case 0x13:
util::stream_format(stream, "%-8sd%d, ", f_move_ops[BIT(op2, 0, 2)], BIT(op2, 0, 2) == 0 ? 'a' : 'd', BIT(op2, 2, 2));
format_sp_disp(stream, opcodes.r16(pc + 2));
return 4 | SUPPORTED;
}
}
else switch (op2 & 0xfc)
{
case 0xa0:
util::stream_format(stream, "%-8s(0x%04x), a%d", "mov", opcodes.r16(pc + 2), BIT(op2, 0, 2));
return 4 | SUPPORTED;
case 0xb0: case 0xb4: case 0xb8: case 0xbc:
util::stream_format(stream, "%-8s", f_move_ops[BIT(op2, 2, 2)]);
format_sp_disp(stream, opcodes.r16(pc + 2));
util::stream_format(stream, ", %c%d", BIT(op2, 2, 2) == 0 ? 'a' : 'd', BIT(op2, 0, 2));
return 4 | SUPPORTED;
case 0xc0: case 0xd0:
util::stream_format(stream, "%-8s", "add");
format_immediate(stream, s16(opcodes.r16(pc + 2)));
util::stream_format(stream, ", %c%d", BIT(op2, 4) ? 'a' : 'd', BIT(op2, 0, 2));
return 4 | SUPPORTED;
case 0xc8:
util::stream_format(stream, "%-8s", "cmp");
format_immediate(stream, s16(opcodes.r16(pc + 2))); // sign_ext
util::stream_format(stream, ", d%d", BIT(op2, 0, 2));
return 4 | SUPPORTED;
case 0xd8:
util::stream_format(stream, "%-8s", "cmp");
format_immediate_unsigned(stream, opcodes.r16(pc + 2)); // zero_ext
util::stream_format(stream, ", a%d", BIT(op2, 0, 2));
return 4 | SUPPORTED;
case 0xe0: case 0xe4: case 0xe8: case 0xec:
util::stream_format(stream, "%-8s0x%04x, d%d", f_logical_ops[BIT(op2, 2, 2)], opcodes.r16(pc + 2), BIT(op2, 0, 2)); // zero_ext
return 4 | SUPPORTED;
case 0xf0:
util::stream_format(stream, "%-8s0x%02x, ", "bset", opcodes.r8(pc + 3));
format_an_disp(stream, opcodes.r8(pc + 2), BIT(op2, 0, 2));
return 4 | SUPPORTED;
case 0xf4:
util::stream_format(stream, "%-8s0x%02x, ", "bclr", opcodes.r8(pc + 3));
format_an_disp(stream, opcodes.r8(pc + 2), BIT(op2, 0, 2));
return 4 | SUPPORTED;
case 0xf8:
util::stream_format(stream, "%-8s0x%02x, ", "btst", opcodes.r8(pc + 3));
format_an_disp(stream, opcodes.r8(pc + 2), BIT(op2, 0, 2));
return 4 | SUPPORTED;
case 0xfc:
if (op2 == 0xfe)
{
util::stream_format(stream, "%-8s", "add");
format_immediate(stream, s16(opcodes.r16(pc + 2))); // sign_ext
stream << ", sp";
return 4 | SUPPORTED;
}
else if (op2 == 0xff)
{
util::stream_format(stream, "%-8s(0x%08x)", "calls", u32(pc + s16(opcodes.r16(pc + 2))));
return 4 | STEP_OVER | SUPPORTED;
}
else
{
util::stream_format(stream, "%-8s0x%04x, psw", f_logical_ops[BIT(op2, 0)], opcodes.r16(pc + 2));
return 4 | SUPPORTED;
}
}
stream << "?";
return 1 | SUPPORTED;
}
offs_t mn10300_disassembler::disassemble_fb(std::ostream &stream, offs_t pc, const mn10300_disassembler::data_buffer &opcodes) const
{
u8 op2 = opcodes.r8(pc + 1);
if (BIT(op2, 2))
util::stream_format(stream, "udfu%02d 0x%04x, d%d", (BIT(op2, 3) ? 20 : 0) + (op2 >> 4), opcodes.r16(pc + 2), BIT(op2, 0, 2));
else
util::stream_format(stream, "udf%02d 0x%04x, d%d", (BIT(op2, 3) ? 20 : 0) + (op2 >> 4), opcodes.r16(pc + 2), BIT(op2, 0, 2));
return 4 | SUPPORTED;
}
offs_t mn10300_disassembler::disassemble_fc(std::ostream &stream, offs_t pc, const mn10300_disassembler::data_buffer &opcodes) const
{
u8 op2 = opcodes.r8(pc + 1);
if (op2 < 0x80)
{
util::stream_format(stream, "%-8s", f_move_ops[BIT(op2, 5, 2)]);
if (BIT(op2, 4))
util::stream_format(stream, "%c%d, (0x%08x, a%d)", BIT(op2, 5, 2) == 1 ? 'a' : 'd', BIT(op2, 2, 2), opcodes.r32(pc + 2), BIT(op2, 0, 2));
else
util::stream_format(stream, "(0x%08x, a%d), %c%d", opcodes.r32(pc + 2), BIT(op2, 2, 2), BIT(op2, 5, 2) == 1 ? 'a' : 'd', BIT(op2, 0, 2));
return 6 | SUPPORTED;
}
else if (op2 < 0xa0)
{
util::stream_format(stream, "%-8s%c%d, ", f_move_ops[BIT(op2, 0, 2)], BIT(op2, 0, 2) == 0 ? 'a' : 'd', BIT(op2, 2, 2));
if (BIT(op2, 4))
format_sp_disp(stream, opcodes.r32(pc + 2));
else
util::stream_format(stream, "(0x%08x)", opcodes.r32(pc + 2));
return 6 | SUPPORTED;
}
else if (op2 < 0xc0)
{
util::stream_format(stream, "%-8s", f_move_ops[BIT(op2, 2, 2)]);
if (BIT(op2, 4))
format_sp_disp(stream, opcodes.r32(pc + 2));
else
util::stream_format(stream, "(0x%08x)", opcodes.r32(pc + 2));
util::stream_format(stream, ", %c%d", BIT(op2, 0, 2) == 0 ? 'a' : 'd', BIT(op2, 0, 2));
return 6 | SUPPORTED;
}
else switch (op2 & 0xfc)
{
case 0xc0: case 0xd0:
util::stream_format(stream, "%-8s", "add");
format_immediate_unsigned(stream, opcodes.r32(pc + 2));
util::stream_format(stream, ", %c%d", BIT(op2, 4) ? 'a' : 'd', BIT(op2, 0, 2));
return 6 | SUPPORTED;
case 0xc4: case 0xd4:
util::stream_format(stream, "%-8s", "sub");
format_immediate_unsigned(stream, opcodes.r32(pc + 2));
util::stream_format(stream, ", %c%d", BIT(op2, 4) ? 'a' : 'd', BIT(op2, 0, 2));
return 6 | SUPPORTED;
case 0xc8: case 0xd8:
util::stream_format(stream, "%-8s", "cmp");
format_immediate_unsigned(stream, opcodes.r32(pc + 2));
util::stream_format(stream, ", %c%d", BIT(op2, 4) ? 'a' : 'd', BIT(op2, 0, 2));
return 6 | SUPPORTED;
case 0xcc: case 0xdc:
util::stream_format(stream, "%-8s0x%08x, %c%d", "mov", opcodes.r32(pc + 2), BIT(op2, 4) ? 'a' : 'd', BIT(op2, 0, 2));
return 6 | SUPPORTED;
case 0xe0: case 0xe4: case 0xe8: case 0xec:
util::stream_format(stream, "%-8s0x%08x, d%d", f_logical_ops[BIT(op2, 2, 2)], opcodes.r32(pc + 2), BIT(op2, 0, 2));
return 6 | SUPPORTED;
case 0xfc:
if (op2 == 0xfe)
{
util::stream_format(stream, "%-8s0x%08x, sp", "add", opcodes.r32(pc + 2));
return 6 | SUPPORTED;
}
else if (op2 == 0xff)
{
util::stream_format(stream, "%-8s(0x%08x)", "calls", u32(pc + opcodes.r32(pc + 2)));
return 6 | STEP_OVER | SUPPORTED;
}
else
break;
}
stream << "?";
return 1 | SUPPORTED;
}
offs_t mn10300_disassembler::disassemble_fd(std::ostream &stream, offs_t pc, const mn10300_disassembler::data_buffer &opcodes) const
{
u8 op2 = opcodes.r8(pc + 1);
if (BIT(op2, 2))
util::stream_format(stream, "udfu%02d 0x%08x, d%d", (BIT(op2, 3) ? 20 : 0) + (op2 >> 4), opcodes.r32(pc + 2), BIT(op2, 0, 2));
else
util::stream_format(stream, "udf%02d 0x%08x, d%d", (BIT(op2, 3) ? 20 : 0) + (op2 >> 4), opcodes.r32(pc + 2), BIT(op2, 0, 2));
return 6 | SUPPORTED;
}
offs_t mn10300_disassembler::disassemble_fe(std::ostream &stream, offs_t pc, const mn10300_disassembler::data_buffer &opcodes) const
{
u8 op2 = opcodes.r8(pc + 1);
switch (op2)
{
case 0x00:
util::stream_format(stream, "%-8s0x%02x, (0x%08x)", "bset", opcodes.r8(pc + 6), opcodes.r32(pc + 2));
return 7 | SUPPORTED;
case 0x01:
util::stream_format(stream, "%-8s0x%02x, (0x%08x)", "bclr", opcodes.r8(pc + 6), opcodes.r32(pc + 2));
return 7 | SUPPORTED;
case 0x02:
util::stream_format(stream, "%-8s0x%02x, (0x%08x)", "btst", opcodes.r8(pc + 6), opcodes.r32(pc + 2));
return 7 | SUPPORTED;
case 0x80:
util::stream_format(stream, "%-8s0x%02x, (0x%04x)", "bset", opcodes.r8(pc + 4), opcodes.r16(pc + 2));
return 5 | SUPPORTED;
case 0x81:
util::stream_format(stream, "%-8s0x%02x, (0x%04x)", "bclr", opcodes.r8(pc + 4), opcodes.r16(pc + 2));
return 5 | SUPPORTED;
case 0x82:
util::stream_format(stream, "%-8s0x%02x, (0x%04x)", "btst", opcodes.r8(pc + 4), opcodes.r16(pc + 2));
return 5 | SUPPORTED;
}
stream << "?";
return 1 | SUPPORTED;
}
offs_t mn10300_disassembler::disassemble(std::ostream &stream, offs_t pc, const mn10300_disassembler::data_buffer &opcodes, const mn10300_disassembler::data_buffer &params)
{
u8 opcode = opcodes.r8(pc);
switch (opcode)
{
case 0x00: case 0x04: case 0x08: case 0x0c:
util::stream_format(stream, "%-8sd%d", "clr", BIT(opcode, 2, 2));
return 1 | SUPPORTED;
case 0x01: case 0x05: case 0x09: case 0x0d:
case 0x02: case 0x06: case 0x0a: case 0x0e:
case 0x03: case 0x07: case 0x0b: case 0x0f:
util::stream_format(stream, "%-8sd%d, (0x%04x)", f_move_ops[BIT(opcode, 0, 2)], BIT(opcode, 2, 2), opcodes.r16(pc + 1));
return 3 | SUPPORTED;
case 0x10: case 0x11: case 0x12: case 0x13:
util::stream_format(stream, "%-8sd%d", "extb", BIT(opcode, 0, 2));
return 1 | SUPPORTED;
case 0x14: case 0x15: case 0x16: case 0x17:
util::stream_format(stream, "%-8sd%d", "extbu", BIT(opcode, 0, 2));
return 1 | SUPPORTED;
case 0x18: case 0x19: case 0x1a: case 0x1b:
util::stream_format(stream, "%-8sd%d", "exth", BIT(opcode, 0, 2));
return 1 | SUPPORTED;
case 0x1c: case 0x1d: case 0x1e: case 0x1f:
util::stream_format(stream, "%-8sd%d", "exthu", BIT(opcode, 0, 2));
return 1 | SUPPORTED;
case 0x20: case 0x21: case 0x22: case 0x23:
case 0x28: case 0x29: case 0x2a: case 0x2b:
util::stream_format(stream, "%-8s", "add");
format_immediate(stream, s8(opcodes.r8(pc + 1)));
util::stream_format(stream, ", %c%d", BIT(opcode, 3) ? 'd' : 'a', BIT(opcode, 0, 2));
return 2 | SUPPORTED;
case 0x24: case 0x25: case 0x26: case 0x27:
util::stream_format(stream, "%-8s", "mov");
format_immediate_unsigned(stream, opcodes.r16(pc + 1)); // zero_ext
util::stream_format(stream, ", a%d", BIT(opcode, 0, 2));
return 3 | SUPPORTED;
case 0x2c: case 0x2d: case 0x2e: case 0x2f:
util::stream_format(stream, "%-8s", "mov");
format_immediate(stream, s16(opcodes.r16(pc + 1))); // sign_ext
util::stream_format(stream, ", d%d", BIT(opcode, 0, 2));
return 3 | SUPPORTED;
case 0x30: case 0x31: case 0x32: case 0x33:
case 0x34: case 0x35: case 0x36: case 0x37:
case 0x38: case 0x39: case 0x3a: case 0x3b:
util::stream_format(stream, "%-8s(0x%04x), d%d", f_move_ops[BIT(opcode, 2, 2) + 1], opcodes.r16(pc + 1), BIT(opcode, 0, 2));
return 3 | SUPPORTED;
case 0x3c: case 0x3d: case 0x3e: case 0x3f:
util::stream_format(stream, "%-8ssp, a%d", "mov", BIT(opcode, 0, 2));
return 1 | SUPPORTED;
case 0x40: case 0x44: case 0x48: case 0x4c:
case 0x41: case 0x45: case 0x49: case 0x4d:
util::stream_format(stream, "%-8s%c%d", "inc", BIT(opcode, 0) ? 'a' : 'd', BIT(opcode, 2, 2));
return 1 | SUPPORTED;
case 0x42: case 0x46: case 0x4a: case 0x4e:
case 0x43: case 0x47: case 0x4b: case 0x4f:
util::stream_format(stream, "%-8s%c%d, ", "mov", BIT(opcode, 0) ? 'a' : 'd', BIT(opcode, 2, 2));
format_sp_disp(stream, opcodes.r8(pc + 1));
return 2 | SUPPORTED;
case 0x50: case 0x51: case 0x52: case 0x53:
util::stream_format(stream, "%-8sa%d", "inc4", BIT(opcode, 0, 2));
return 1 | SUPPORTED;
case 0x54: case 0x55: case 0x56: case 0x57:
util::stream_format(stream, "%-8sd%d", "asl2", BIT(opcode, 0, 2));
return 1 | SUPPORTED;
case 0x58: case 0x59: case 0x5a: case 0x5b:
case 0x5c: case 0x5d: case 0x5e: case 0x5f:
util::stream_format(stream, "%-8s", "mov");
format_sp_disp(stream, opcodes.r8(pc + 1));
util::stream_format(stream, ", %c%d", BIT(opcode, 3) ? 'a' : 'd', BIT(opcode, 0, 2));
return 2 | SUPPORTED;
case 0x60: case 0x61: case 0x62: case 0x63:
case 0x64: case 0x65: case 0x66: case 0x67:
case 0x68: case 0x69: case 0x6a: case 0x6b:
case 0x6c: case 0x6d: case 0x6e: case 0x6f:
util::stream_format(stream, "%-8sd%d, (a%d)", "mov", BIT(opcode, 2, 2), BIT(opcode, 0, 2));
return 1 | SUPPORTED;
case 0x70: case 0x71: case 0x72: case 0x73:
case 0x74: case 0x75: case 0x76: case 0x77:
case 0x78: case 0x79: case 0x7a: case 0x7b:
case 0x7c: case 0x7d: case 0x7e: case 0x7f:
util::stream_format(stream, "%-8s(a%d), d%d", "mov", BIT(opcode, 2, 2), BIT(opcode, 0, 2));
return 1 | SUPPORTED;
case 0x80: case 0x85: case 0x8a: case 0x8f:
case 0xa0: case 0xa5: case 0xaa: case 0xaf:
util::stream_format(stream, "%-8s", BIT(opcode, 5) ? "cmp" : "mov");
format_immediate(stream, s8(opcodes.r8(pc + 1)));
util::stream_format(stream, ", d%d", BIT(opcode, 0, 2));
return 2 | SUPPORTED;
case 0x81: case 0x82: case 0x83:
case 0x84: case 0x86: case 0x87:
case 0x88: case 0x89: case 0x8b:
case 0x8c: case 0x8d: case 0x8e:
case 0xa1: case 0xa2: case 0xa3:
case 0xa4: case 0xa6: case 0xa7:
case 0xa8: case 0xa9: case 0xab:
case 0xac: case 0xad: case 0xae:
util::stream_format(stream, "%-8sd%d, d%d", BIT(opcode, 5) ? "cmp" : "mov", BIT(opcode, 2, 2), BIT(opcode, 0, 2));
return 1 | SUPPORTED;
case 0x90: case 0x95: case 0x9a: case 0x9f:
case 0xb0: case 0xb5: case 0xba: case 0xbf:
util::stream_format(stream, "%-8s", BIT(opcode, 5) ? "cmp" : "mov");
format_immediate_unsigned(stream, opcodes.r8(pc + 1)); // zero_ext
util::stream_format(stream, ", a%d", BIT(opcode, 0, 2));
return 2 | SUPPORTED;
case 0x91: case 0x92: case 0x93:
case 0x94: case 0x96: case 0x97:
case 0x98: case 0x99: case 0x9b:
case 0x9c: case 0x9d: case 0x9e:
case 0xb1: case 0xb2: case 0xb3:
case 0xb4: case 0xb6: case 0xb7:
case 0xb8: case 0xb9: case 0xbb:
case 0xbc: case 0xbd: case 0xbe:
util::stream_format(stream, "%-8sa%d, a%d", BIT(opcode, 5) ? "cmp" : "mov", BIT(opcode, 2, 2), BIT(opcode, 0, 2));
return 1 | SUPPORTED;
case 0xc0: case 0xc1: case 0xc2: case 0xc3: case 0xc4: case 0xc5: case 0xc6: case 0xc7: case 0xc8: case 0xc9:
util::stream_format(stream, "b%-7s0x%08x", f_conds[opcode & 0x0f], u32(pc + s8(opcodes.r8(pc + 1))));
return 2 | STEP_COND | SUPPORTED;
case 0xca:
util::stream_format(stream, "%-8s0x%08x", "bra", u32(pc + s8(opcodes.r8(pc + 1))));
return 2 | SUPPORTED;
case 0xcb:
stream << "nop";
return 1 | SUPPORTED;
case 0xcc:
util::stream_format(stream, "%-8s0x%08x", "jmp", u32(pc + s16(opcodes.r16(pc + 1))));
return 3 | SUPPORTED;
case 0xcd:
util::stream_format(stream, "%-8s0x%08x, ", "call", u32(pc + s16(opcodes.r16(pc + 1))));
format_regs(stream, opcodes.r8(pc + 3));
stream << ", ";
format_immediate_unsigned(stream, opcodes.r8(pc + 4));
return 5 | STEP_OVER | SUPPORTED;
case 0xce:
util::stream_format(stream, "%-8s(sp), ", "movm");
format_regs(stream, opcodes.r8(pc + 1));
return 2 | SUPPORTED;
case 0xcf:
util::stream_format(stream, "%-8s", "movm");
format_regs(stream, opcodes.r8(pc + 1));
stream << ", (sp)";
return 2 | SUPPORTED;
case 0xd0: case 0xd1: case 0xd2: case 0xd3: case 0xd4: case 0xd5: case 0xd6: case 0xd7: case 0xd8: case 0xd9:
util::stream_format(stream, "l%s", f_conds[opcode & 0x0f]);
return 1 | STEP_COND | SUPPORTED;
case 0xda:
stream << "lra";
return 1 | SUPPORTED;
case 0xdb:
stream << "setlb";
return 1 | SUPPORTED;
case 0xdc:
util::stream_format(stream, "%-8s0x%08x", "jmp", u32(pc + opcodes.r32(pc + 1)));
return 5 | SUPPORTED;
case 0xdd:
util::stream_format(stream, "%-8s0x%08x, ", "call", u32(pc + opcodes.r32(pc + 1)));
format_regs(stream, opcodes.r8(pc + 5));
stream << ", ";
format_immediate_unsigned(stream, opcodes.r8(pc + 6));
return 7 | STEP_OVER | SUPPORTED;
case 0xde: case 0xdf:
util::stream_format(stream, "%-8s", BIT(opcode, 0) ? "ret" : "retf");
format_regs(stream, opcodes.r8(pc + 1));
stream << ", ";
format_immediate_unsigned(stream, opcodes.r8(pc + 2));
return 3 | STEP_OUT | SUPPORTED;
case 0xe0: case 0xe1: case 0xe2: case 0xe3:
case 0xe4: case 0xe5: case 0xe6: case 0xe7:
case 0xe8: case 0xe9: case 0xea: case 0xeb:
case 0xec: case 0xed: case 0xee: case 0xef:
util::stream_format(stream, "%-8sa%d, a%d", "add", BIT(opcode, 2, 2), BIT(opcode, 0, 2));
return 1 | SUPPORTED;
case 0xf0:
return disassemble_f0(stream, pc, opcodes);
case 0xf1:
return disassemble_f1(stream, pc, opcodes);
case 0xf2:
return disassemble_f2(stream, pc, opcodes);
case 0xf3:
return disassemble_f3(stream, pc, opcodes);
case 0xf4:
return disassemble_f4(stream, pc, opcodes);
case 0xf5:
return disassemble_f5(stream, pc, opcodes);
case 0xf6:
return disassemble_f6(stream, pc, opcodes);
case 0xf8:
return disassemble_f8(stream, pc, opcodes);
case 0xf9:
return disassemble_f9(stream, pc, opcodes);
case 0xfa:
return disassemble_fa(stream, pc, opcodes);
case 0xfb:
return disassemble_fb(stream, pc, opcodes);
case 0xfc:
return disassemble_fc(stream, pc, opcodes);
case 0xfd:
return disassemble_fd(stream, pc, opcodes);
case 0xfe:
return disassemble_fe(stream, pc, opcodes);
default:
stream << "?";
return 1 | SUPPORTED;
}
}

View File

@ -0,0 +1,42 @@
// license:BSD-3-Clause
// copyright-holders:AJR
#ifndef MAME_CPU_MN10300_MN103DASM_H
#define MAME_CPU_MN10300_MN103DASM_H
#pragma once
class mn10300_disassembler : public util::disasm_interface
{
public:
// construction/destruction
mn10300_disassembler();
// disassembler overrides
virtual u32 opcode_alignment() const override;
virtual offs_t disassemble(std::ostream &stream, offs_t pc, const data_buffer &opcodes, const data_buffer &params) override;
private:
void format_immediate(std::ostream &stream, u32 imm) const;
void format_immediate_unsigned(std::ostream &stream, u32 imm) const;
void format_an_disp(std::ostream &stream, u32 imm, int n) const;
void format_sp_disp(std::ostream &stream, u32 imm) const;
void format_regs(std::ostream &stream, u8 regs) const;
offs_t disassemble_f0(std::ostream &stream, offs_t pc, const data_buffer &opcodes) const;
offs_t disassemble_f1(std::ostream &stream, offs_t pc, const data_buffer &opcodes) const;
offs_t disassemble_f2(std::ostream &stream, offs_t pc, const data_buffer &opcodes) const;
offs_t disassemble_f3(std::ostream &stream, offs_t pc, const data_buffer &opcodes) const;
offs_t disassemble_f4(std::ostream &stream, offs_t pc, const data_buffer &opcodes) const;
offs_t disassemble_f5(std::ostream &stream, offs_t pc, const data_buffer &opcodes) const;
offs_t disassemble_f6(std::ostream &stream, offs_t pc, const data_buffer &opcodes) const;
offs_t disassemble_f8(std::ostream &stream, offs_t pc, const data_buffer &opcodes) const;
offs_t disassemble_f9(std::ostream &stream, offs_t pc, const data_buffer &opcodes) const;
offs_t disassemble_fa(std::ostream &stream, offs_t pc, const data_buffer &opcodes) const;
offs_t disassemble_fb(std::ostream &stream, offs_t pc, const data_buffer &opcodes) const;
offs_t disassemble_fc(std::ostream &stream, offs_t pc, const data_buffer &opcodes) const;
offs_t disassemble_fd(std::ostream &stream, offs_t pc, const data_buffer &opcodes) const;
offs_t disassemble_fe(std::ostream &stream, offs_t pc, const data_buffer &opcodes) const;
};
#endif // MAME_CPU_MN10300_MN103DASM_H

View File

@ -130,6 +130,7 @@ using util::BIT;
#include "cpu/mn1610/mn1610d.h"
#include "cpu/mn1880/mn1880d.h"
#include "cpu/mn10200/mn102dis.h"
#include "cpu/mn10300/mn103dasm.h"
#include "cpu/mpk1839/kl1839vm1dasm.h"
#include "cpu/msm65x2/msm65x2d.h"
#include "cpu/nanoprocessor/nanoprocessor_dasm.h"
@ -561,6 +562,7 @@ static const dasm_table_entry dasm_table[] =
{ "mm76", le, 0, []() -> util::disasm_interface * { return new mm76_disassembler; } },
{ "mm78", le, 0, []() -> util::disasm_interface * { return new mm78_disassembler; } },
{ "mn10200", le, 0, []() -> util::disasm_interface * { return new mn10200_disassembler; } },
{ "mn10300", le, 0, []() -> util::disasm_interface * { return new mn10300_disassembler; } },
{ "mn1400", le, 0, []() -> util::disasm_interface * { return new mn1400_disassembler; } },
{ "mn1610", be, -1, []() -> util::disasm_interface * { return new mn1610_disassembler; } },
{ "mn1613", be, -1, []() -> util::disasm_interface * { return new mn1613_disassembler; } },