Files
2021-10-31 21:20:46 +02:00

706 lines
20 KiB
C++

#include <ida.hpp>
#include <idp.hpp>
#include <segregs.hpp>
#include <diskio.hpp>
#include "m65816.hpp"
int data_id;
#include "../../ldr/snes/addr.cpp"
//--------------------------------------------------------------------------
static const char *const RegNames[] =
{
"A", // Accumulator
"X", // Index
"Y", // Index
"S", // Stack register (used?)
"cs",
"ds",
"B", // Data bank
"D", // Direct page register (used?)
"m", // Holds accumulator-is-8-bits flag
"x", // Holds indices-are-8-bits flag
"e", // Holds emulation mode flag
"PB" // Program bank
};
// ---------------------------------------------------------------------------
ea_t m65816_t::xlat(ea_t address)
{
return sa->xlat(address);
}
// ---------------------------------------------------------------------------
m65816_t::m65816_t()
{
cartridge = new SuperFamicomCartridge;
sa = new snes_addr_t;
}
// ---------------------------------------------------------------------------
m65816_t::~m65816_t()
{
delete cartridge;
cartridge = nullptr;
delete sa;
sa = nullptr;
}
// ---------------------------------------------------------------------------
// Handler for: get_autocmt.
// Will possibly store a comment in 'buf',
// depending on whether an autocmt is deemed necessary
// for the current line.
//
// For the moment this will just print, in a user-friendly
// way, information about the addressing mode, if needed.
static bool make_insn_cmt(qstring *buf, const insn_t &insn)
{
uint8 opcode = get_byte(insn.ea);
const struct opcode_info_t &opcode_info = get_opcode_info(opcode);
static const bool addressing_info_required[] =
{
false, // ABS
false, // ABS_IX,
false, // ABS_IY,
false, // ABS_IX_INDIR,
false, // ABS_INDIR,
false, // ABS_INDIR_LONG,
false, // ABS_LONG,
false, // ABS_LONG_IX,
false, // ACC,
true, // BLK_MOV,
false, // DP,
false, // DP_IX,
false, // DP_IY,
false, // DP_IX_INDIR,
false, // DP_INDIR,
false, // DP_INDIR_LONG,
false, // DP_INDIR_IY,
false, // DP_INDIR_LONG_IY,
false, // IMM,
false, // IMPLIED,
true, // PC_REL,
true, // PC_REL_LONG,
false, // STACK_ABS,
false, // STACK_DP_INDIR,
false, // STACK_INT,
false, // STACK_PC_REL,
false, // STACK_PULL,
false, // STACK_PUSH,
false, // STACK_RTI,
false, // STACK_RTL,
false, // STACK_RTS,
false, // STACK_REL,
false // STACK_REL_INDIR_IY,
};
if ( !addressing_info_required[opcode_info.addr] )
return false;
const struct addrmode_info_t &addrmode_info = AddressingModes[opcode_info.addr];
*buf = addrmode_info.name;
return true;
}
//--------------------------------------------------------------------------
ssize_t idaapi idb_listener_t::on_event(ssize_t code, va_list va)
{
switch ( code )
{
case idb_event::sgr_changed:
{
ea_t start_ea = va_arg(va, ea_t);
ea_t dummy = va_arg(va, ea_t); qnotused(dummy);
int regnum = va_arg(va, int);
sel_t value = va_arg(va, sel_t);
if ( regnum == rB )
{
// sel_t d2 = va_arg(va, sel_t); qnotused(d2);
if ( value == BADSEL )
split_sreg_range(start_ea, rDs, BADSEL, SR_auto);
else
split_sreg_range(start_ea, rDs, value << 12, SR_auto);
}
else if ( regnum == rPB )
{
uint16 offset = start_ea & 0xffff;
ea_t newEA = pm.xlat((value << 16) + offset);
if ( start_ea != newEA )
warning("Inconsistent program bank number ($%02X:%04X != $%02X:%04X)",
uint32(start_ea >> 16),
offset,
uint8(value),
offset);
}
}
break;
}
return 0;
}
//----------------------------------------------------------------------
void m65816_t::load_from_idb()
{
cartridge->read_hash(helper);
//cartridge.print();
if ( !sa->addr_init(*cartridge) )
warning("Unsupported mapper: %s", cartridge->mapper_string());
ioh.restore_device(IORESP_NONE);
}
//----------------------------------------------------------------------
// This old-style callback only returns the processor module object.
static ssize_t idaapi notify(void *, int msgid, va_list)
{
if ( msgid == processor_t::ev_get_procmod )
return size_t(SET_MODULE_DATA(m65816_t));
return 0;
}
//----------------------------------------------------------------------
ssize_t idaapi m65816_t::on_event(ssize_t msgid, va_list va)
{
int retcode = 1;
switch ( msgid )
{
case processor_t::ev_init:
hook_event_listener(HT_IDB, &idb_listener, &LPH);
helper.create(PROCMOD_NODE_NAME);
break;
case processor_t::ev_term:
unhook_event_listener(HT_IDB, &idb_listener);
clr_module_data(data_id);
break;
case processor_t::ev_newprc:
break;
case processor_t::ev_creating_segm:
{
segment_t *sptr = va_arg(va, segment_t *);
// default DS is equal to CS
sptr->defsr[rDs - ph.reg_first_sreg] = sptr->sel;
// detect SNES bank 0
if ( xlat(0) == (sptr->start_ea & 0xff0000) )
{
// initial bank must be $00 (especially important on HiROM)
// Example: Donkey Kong Country 2 - Emulation_mode_RESET
sptr->defsr[rB - ph.reg_first_sreg] = 0;
sptr->defsr[rPB - ph.reg_first_sreg] = 0;
}
else
{
// otherwise, set the default bank number from EA
uint8 pb = sptr->start_ea >> 16;
sptr->defsr[rB - ph.reg_first_sreg] = pb;
sptr->defsr[rPB - ph.reg_first_sreg] = pb;
}
}
break;
case processor_t::ev_newfile:
{
cartridge->read_hash(helper);
//cartridge.print();
if ( !sa->addr_init(*cartridge) )
warning("Unsupported mapper: %s", cartridge->mapper_string());
const char *device_ptr = nullptr;
if ( cartridge->has_superfx )
device_ptr = "superfx";
else if ( cartridge->has_sa1 )
device_ptr = "sa1";
else if ( cartridge->has_cx4 )
device_ptr = "cx4";
else if ( cartridge->has_spc7110 )
device_ptr = "spc7110";
else if ( cartridge->has_sdd1 )
device_ptr = "sdd1";
else if ( cartridge->has_sharprtc )
device_ptr = "sharprtc";
else if ( cartridge->has_epsonrtc )
device_ptr = "epsonrtc";
else if ( cartridge->has_obc1 )
device_ptr = "obc1";
else if ( cartridge->has_dsp1 )
device_ptr = "dsp1";
else if ( cartridge->has_dsp2 )
device_ptr = "dsp2";
else if ( cartridge->has_dsp3 )
device_ptr = "dsp3";
else if ( cartridge->has_dsp4 )
device_ptr = "dsp4";
else if ( cartridge->has_st010 )
device_ptr = "st010";
else if ( cartridge->has_st011 )
device_ptr = "st011";
else if ( cartridge->has_st018 )
device_ptr = "st018";
qstring loader_device;
if ( device_ptr == nullptr )
{
ssize_t len = helper.hashstr(&loader_device, "device");
if ( len <= 0 )
device_ptr = "65816";
else
device_ptr = loader_device.c_str();
}
ioh.set_device_name(device_ptr, IORESP_ALL);
set_default_sreg_value(NULL, rFm, 1);
set_default_sreg_value(NULL, rFx, 1);
set_default_sreg_value(NULL, rFe, 1);
set_default_sreg_value(NULL, rD, 0);
// see processor_t::ev_creating_segm for the following registers
//set_default_sreg_value(NULL, rPB, 0);
//set_default_sreg_value(NULL, rB, 0);
//set_default_sreg_value(NULL, rDs, 0);
if ( inf_get_start_ip() != BADADDR )
{
ea_t reset_ea = xlat(inf_get_start_ip());
ea_t sea = getseg(reset_ea)->start_ea;
split_sreg_range(reset_ea, rFm, get_sreg(sea, rFm), SR_auto);
split_sreg_range(reset_ea, rFx, get_sreg(sea, rFx), SR_auto);
split_sreg_range(reset_ea, rFe, get_sreg(sea, rFe), SR_auto);
split_sreg_range(reset_ea, rPB, 0, SR_auto);
split_sreg_range(reset_ea, rB, 0, SR_auto);
split_sreg_range(reset_ea, rD, get_sreg(sea, rD), SR_auto);
}
}
break;
case processor_t::ev_ending_undo:
case processor_t::ev_oldfile:
{
load_from_idb();
if ( msgid == processor_t::ev_oldfile )
{ // read rommode_t for backward compatibility
nodeidx_t mode = helper.hashval_long("rommode_t");
if ( mode != 0 )
{
switch ( mode )
{
case 0x20:
cartridge->mapper = SuperFamicomCartridge::LoROM;
break;
case 0x21:
cartridge->mapper = SuperFamicomCartridge::HiROM;
break;
}
helper.hashdel("rommode_t");
cartridge->write_hash(helper);
}
}
}
break;
case processor_t::ev_get_autocmt:
{
qstring *buf = va_arg(va, qstring *);
const insn_t *insn = va_arg(va, insn_t *);
if ( make_insn_cmt(buf, *insn) )
retcode = 1;
}
break;
case processor_t::ev_may_be_func:
{
const insn_t *insn = va_arg(va, insn_t *);
retcode = 0;
ea_t cref_addr;
for ( cref_addr = get_first_cref_to(insn->ea);
cref_addr != BADADDR;
cref_addr = get_next_cref_to(insn->ea, cref_addr) )
{
uint8 opcode = get_byte(cref_addr);
const struct opcode_info_t &opinfo = get_opcode_info(opcode);
if ( opinfo.itype == M65816_jsl
|| opinfo.itype == M65816_jsr
|| opinfo.itype == M65816_jml )
{
retcode = 100;
break;
}
}
}
break;
case processor_t::ev_is_call_insn:
{
const insn_t *insn = va_arg(va, insn_t *);
const struct opcode_info_t &opinfo = get_opcode_info(get_byte(insn->ea));
if ( opinfo.itype == M65816_jsr
|| opinfo.itype == M65816_jsl )
retcode = 1;
else
retcode = -1;
}
break;
case processor_t::ev_is_ret_insn:
{
const insn_t *insn = va_arg(va, insn_t *);
const struct opcode_info_t &opinfo = get_opcode_info(get_byte(insn->ea));
if ( opinfo.itype == M65816_rti
|| opinfo.itype == M65816_rtl
|| opinfo.itype == M65816_rts )
retcode = 1;
else
retcode = -1;
}
break;
case processor_t::ev_is_indirect_jump:
{
const insn_t *insn = va_arg(va, insn_t *);
const struct opcode_info_t &opinfo = get_opcode_info(get_byte(insn->ea));
if ( opinfo.itype == M65816_jmp
|| opinfo.itype == M65816_jml )
{
if ( opinfo.addr == ABS_INDIR
|| opinfo.addr == ABS_IX_INDIR
|| opinfo.addr == ABS_INDIR_LONG )
retcode = 2;
else
retcode = 1;
}
else
retcode = 0;
}
break;
case processor_t::ev_out_header:
{
outctx_t *ctx = va_arg(va, outctx_t *);
m65816_header(*ctx);
return 1;
}
case processor_t::ev_out_footer:
{
outctx_t *ctx = va_arg(va, outctx_t *);
m65816_footer(*ctx);
return 1;
}
case processor_t::ev_out_segstart:
{
outctx_t *ctx = va_arg(va, outctx_t *);
segment_t *seg = va_arg(va, segment_t *);
m65816_segstart(*ctx, seg);
return 1;
}
case processor_t::ev_out_assumes:
{
outctx_t *ctx = va_arg(va, outctx_t *);
m65816_assumes(*ctx);
return 1;
}
case processor_t::ev_ana_insn:
{
insn_t *out = va_arg(va, insn_t *);
return ana(out);
}
case processor_t::ev_emu_insn:
{
const insn_t *insn = va_arg(va, const insn_t *);
return emu(*insn) ? 1 : -1;
}
case processor_t::ev_out_insn:
{
outctx_t *ctx = va_arg(va, outctx_t *);
out_insn(*ctx);
return 1;
}
case processor_t::ev_out_operand:
{
outctx_t *ctx = va_arg(va, outctx_t *);
const op_t *op = va_arg(va, const op_t *);
return out_opnd(*ctx, *op) ? 1 : -1;
}
default:
retcode = 0;
break;
}
return retcode;
}
//-----------------------------------------------------------------------
// CA65 ASSEMBLER
//
// http://www.cc65.org/doc/ca65-4.html#ss4.1
//-----------------------------------------------------------------------
static const asm_t ca65asm =
{
AS_COLON | ASH_HEXF4, // Assembler features
0, // User-defined flags
"CA65 ASSEMBLER", // Name
0,
NULL, // headers
".ORG", // origin directive
".END", // end directive
";", // comment string
'\'', // string delimiter
'\'', // char delimiter
"\\'", // special symbols in char and string constants
".BYTE", // ascii string directive
".BYTE", // byte directive
".WORD", // word directive
};
//-----------------------------------------------------------------------
// PseudoSam
//-----------------------------------------------------------------------
static const char *const ps_headers[] =
{
".code",
NULL
};
static const asm_t pseudosam =
{
AS_COLON | ASH_HEXF1 | AS_N2CHR | AS_NOXRF,
UAS_SELSG,
"PseudoSam by PseudoCode",
0,
ps_headers,
".org",
".end",
";", // comment string
'"', // string delimiter
'\'', // char delimiter
"\\\"'", // special symbols in char and string constants
".db", // ascii string directive
".db", // byte directive
".dw", // word directive
NULL, // dword (4 bytes)
NULL, // qword (8 bytes)
NULL, // oword (16 bytes)
NULL, // float (4 bytes)
NULL, // double (8 bytes)
NULL, // tbyte (10/12 bytes)
NULL, // packed decimal real
NULL, // arrays (#h,#d,#v,#s(...)
".rs %s", // uninited arrays
".equ", // equ
NULL, // seg prefix
NULL, // curip
NULL, // func_header
NULL, // func_footer
NULL, // public
NULL, // weak
NULL, // extrn
NULL, // comm
NULL, // get_type_name
NULL, // align
'(', ')', // lbrace, rbrace
NULL, // mod
NULL, // and
NULL, // or
NULL, // xor
NULL, // not
NULL, // shl
NULL, // shr
NULL, // sizeof
};
//-----------------------------------------------------------------------
// SVENSON ELECTRONICS 6502/65C02 ASSEMBLER - V.1.0 - MAY, 1988
//-----------------------------------------------------------------------
static const asm_t svasm =
{
AS_COLON | ASH_HEXF4,
UAS_NOSEG,
"SVENSON ELECTRONICS 6502/65C02 ASSEMBLER - V.1.0 - MAY, 1988",
0,
NULL, // headers
"* = ",
".END",
";", // comment string
'\'', // string delimiter
'\'', // char delimiter
"\\'", // special symbols in char and string constants
".BYTE", // ascii string directive
".BYTE", // byte directive
".WORD", // word directive
};
//-----------------------------------------------------------------------
// TASM assembler definiton
//-----------------------------------------------------------------------
static const asm_t tasm =
{
AS_COLON | AS_N2CHR | AS_1TEXT,
UAS_NOENS | UAS_NOSEG,
"Table Driven Assembler (TASM) by Speech Technology Inc.",
0,
NULL, // headers,
".org",
".end",
";", // comment string
'"', // string delimiter
'\'', // char delimiter
"\\\"'", // special symbols in char and string constants
".text", // ascii string directive
".db", // byte directive
".dw", // word directive
NULL, // dword (4 bytes)
NULL, // qword (8 bytes)
NULL, // oword (16 bytes)
NULL, // float (4 bytes)
NULL, // double (8 bytes)
NULL, // tbyte (10/12 bytes)
NULL, // packed decimal real
NULL, // arrays (#h,#d,#v,#s(...)
".block %s", // uninited arrays
".equ",
NULL, // seg prefix
NULL, // curip
NULL, // func_header
NULL, // func_footer
NULL, // public
NULL, // weak
NULL, // extrn
NULL, // comm
NULL, // get_type_name
NULL, // align
'(', ')', // lbrace, rbrace
NULL, // mod
"and", // and
"or", // or
NULL, // xor
"not", // not
NULL, // shl
NULL, // shr
NULL, // sizeof
};
//-----------------------------------------------------------------------
// Avocet assembler definiton
//-----------------------------------------------------------------------
static const asm_t avocet =
{
AS_COLON | AS_N2CHR | AS_1TEXT,
UAS_NOENS | UAS_NOSEG,
"Avocet Systems 2500AD 6502 Assembler",
0,
NULL, // headers,
".org",
".end",
";", // comment string
'"', // string delimiter
'\'', // char delimiter
"\\\"'", // special symbols in char and string constants
".fcc", // ascii string directive
".db", // byte directive
".dw", // word directive
NULL, // dword (4 bytes)
NULL, // qword (8 bytes)
NULL, // oword (16 bytes)
NULL, // float (4 bytes)
NULL, // double (8 bytes)
NULL, // tbyte (10/12 bytes)
NULL, // packed decimal real
NULL, // arrays (#h,#d,#v,#s(...)
".ds %s", // uninited arrays
};
static const asm_t *const asms[] =
{
&ca65asm,
// 6502 asm_t; imported from the 6502 CPU module.
&svasm,
&tasm,
&pseudosam,
&avocet,
NULL
};
//-----------------------------------------------------------------------
#define FAMILY "MOS Technology 658xx series:"
static const char *const shnames[] = { "m65816", "m65c816", NULL };
static const char *const lnames[] = { FAMILY"MOS Technology 65816", "MOS Technology 65C816", NULL };
static const uchar retcode_1[] = { 0x60 }; // RTS
static const uchar retcode_2[] = { 0x40 }; // RTI
static const uchar retcode_3[] = { 0x6b }; // RTL
static const bytes_t retcodes[] =
{
{ sizeof(retcode_1), retcode_1 },
{ sizeof(retcode_2), retcode_2 },
{ sizeof(retcode_3), retcode_3 },
{ 0, NULL }
};
//-----------------------------------------------------------------------
// Processor Definition
//-----------------------------------------------------------------------
processor_t LPH =
{
IDP_INTERFACE_VERSION, // version
PLFM_65C816, // id
// flag
PR_SEGS
| PR_SEGTRANS,
// flag2
0,
8, // 8 bits in a byte for code segments
8, // 8 bits in a byte for other segments
shnames,
lnames,
asms,
notify,
RegNames, // Register names
qnumber(RegNames), // Number of registers
rCs, // first segreg
rPB, // last segreg
0, // size of a segment register
rCs, // number of CS register
rDs, // number of DS register
NULL, // No known code start sequences
retcodes,
0,
M65816_last,
Instructions, // instruc
3, // int tbyte_size; -- doesn't exist
{ 0, 0, 0, 0 }, // char real_width[4];
// number of symbols after decimal point
// 2byte float (0-does not exist)
// normal float
// normal double
// long double
M65816_rts, // Icode of return instruction. It is ok to give any of possible return instructions
};