update to ida 7.6, add builds
This commit is contained in:
310
idasdk76/module/pdp11/reg.cpp
Normal file
310
idasdk76/module/pdp11/reg.cpp
Normal file
@@ -0,0 +1,310 @@
|
||||
/*
|
||||
* Interactive disassembler (IDA)
|
||||
* Copyright (c) 1990-98 by Ilfak Guilfanov.
|
||||
* E-mail: ig@datarescue.com
|
||||
* PDP11 module.
|
||||
* Copyright (c) 1995-2006 by Iouri Kharon.
|
||||
* E-mail: yjh@styx.cabel.net
|
||||
*
|
||||
* ALL RIGHTS RESERVED.
|
||||
*
|
||||
*/
|
||||
|
||||
#define IEEE_SOURCE
|
||||
#include "pdp.hpp"
|
||||
int data_id;
|
||||
|
||||
//----------------------------------------------------------------------
|
||||
static const char *const RegNames[] =
|
||||
{
|
||||
"R0","R1","R2","R3","R4","R5","SP","PC",
|
||||
"AC0", "AC1", "AC2", "AC3", "AC4", "AC5",
|
||||
"cs","ds"
|
||||
};
|
||||
|
||||
//-----------------------------------------------------------------------
|
||||
|
||||
static const char *const array_macro[] =
|
||||
{
|
||||
"",
|
||||
".macro .array of,type,cnt,val",
|
||||
".rept cnt",
|
||||
" type val",
|
||||
".endr",
|
||||
".endm .array",
|
||||
NULL
|
||||
};
|
||||
|
||||
static const asm_t macro11 =
|
||||
{
|
||||
/*AS_UNEQU |*/ AS_COLON | AS_2CHRE | AS_NCHRE | ASH_HEXF5 | ASO_OCTF2 | ASD_DECF2 | AS_NCMAS | AS_ONEDUP | ASB_BINF1 | AS_RELSUP,
|
||||
UAS_SECT,
|
||||
"Macro-11 Assembler",
|
||||
0,
|
||||
array_macro, // header
|
||||
".", // org
|
||||
".END",
|
||||
|
||||
";", // comment string
|
||||
'\\', // string delimiter
|
||||
'\'', // char delimiter
|
||||
"\\\200", // special symbols in char and string constants
|
||||
|
||||
".ascii", // ascii string directive
|
||||
".byte", // byte directive
|
||||
".word", // word directive
|
||||
".long", // double words
|
||||
NULL, // no qwords
|
||||
NULL, // oword (16 bytes)
|
||||
".flt2",
|
||||
".flt4",
|
||||
NULL, // no tbytes
|
||||
NULL, // no packreal
|
||||
".array of #hs cnt=#d val=#v", // #h - header(.byte,.word)
|
||||
// #d - size of array
|
||||
// #v - value of array elements
|
||||
".blkb %s", // uninited data (reserve space)
|
||||
"=",
|
||||
NULL, // seg prefix
|
||||
".", // a_curip
|
||||
NULL, // func_header
|
||||
NULL, // func_footer
|
||||
".globl", // public
|
||||
".weak", // weak
|
||||
".globl", // extrn
|
||||
NULL, // comm
|
||||
NULL, // get_type_name
|
||||
NULL, // align
|
||||
'<', '>', // lbrace, rbrace
|
||||
NULL, // mod
|
||||
"&", // and
|
||||
"|", // or
|
||||
"^", // xor
|
||||
"!", // not
|
||||
NULL, // shl
|
||||
NULL, // shr
|
||||
NULL, // sizeof
|
||||
};
|
||||
|
||||
//------------------------------------------------------------------
|
||||
// floating point conversion
|
||||
#include "float.c"
|
||||
|
||||
//----------------------------------------------------------------------
|
||||
void pdp11_t::load_from_idb()
|
||||
{
|
||||
ml.asect_top = (ushort)ovrtrans.altval(n_asect);
|
||||
ml.ovrcallbeg = (ushort)ovrtrans.altval(n_ovrbeg);
|
||||
ml.ovrcallend = (ushort)ovrtrans.altval(n_ovrend);
|
||||
ml.ovrtbl_base = (uint32)ovrtrans.altval(n_ovrbas);
|
||||
}
|
||||
|
||||
//----------------------------------------------------------------------
|
||||
// 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(pdp11_t));
|
||||
return 0;
|
||||
}
|
||||
|
||||
//----------------------------------------------------------------------
|
||||
ssize_t idaapi pdp11_t::on_event(ssize_t msgid, va_list va)
|
||||
{
|
||||
int retcode = 1;
|
||||
segment_t *sptr;
|
||||
|
||||
switch ( msgid )
|
||||
{
|
||||
case processor_t::ev_creating_segm:
|
||||
sptr = va_arg(va, segment_t *);
|
||||
sptr->defsr[rVds-ph.reg_first_sreg] = find_selector(inf_get_start_cs()); //sptr->sel;
|
||||
break;
|
||||
|
||||
case processor_t::ev_init:
|
||||
ovrtrans.create(PROCMOD_NODE_NAME); // it makes no harm to create it again
|
||||
break;
|
||||
|
||||
case processor_t::ev_term:
|
||||
clr_module_data(data_id);
|
||||
break;
|
||||
|
||||
case processor_t::ev_newprc:
|
||||
break;
|
||||
|
||||
case processor_t::ev_ending_undo:
|
||||
case processor_t::ev_oldfile:
|
||||
load_from_idb();
|
||||
break;
|
||||
|
||||
case pdp11_module_t::ev_get_ml_ptr:
|
||||
{
|
||||
pdp_ml_t **p_ml = va_arg(va, pdp_ml_t **);
|
||||
netnode **p_mn = va_arg(va, netnode **);
|
||||
if ( p_ml != NULL && p_mn != NULL )
|
||||
{
|
||||
*p_ml = &ml;
|
||||
*p_mn = &ovrtrans;
|
||||
retcode = 0;
|
||||
}
|
||||
}
|
||||
break;
|
||||
|
||||
case processor_t::ev_out_mnem:
|
||||
{
|
||||
outctx_t *ctx = va_arg(va, outctx_t *);
|
||||
out_mnem(*ctx);
|
||||
return 1;
|
||||
}
|
||||
|
||||
case processor_t::ev_out_header:
|
||||
{
|
||||
outctx_t *ctx = va_arg(va, outctx_t *);
|
||||
pdp_header(*ctx);
|
||||
return 1;
|
||||
}
|
||||
|
||||
case processor_t::ev_out_footer:
|
||||
{
|
||||
outctx_t *ctx = va_arg(va, outctx_t *);
|
||||
pdp_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 *);
|
||||
pdp_segstart(*ctx, seg);
|
||||
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;
|
||||
}
|
||||
|
||||
case processor_t::ev_out_data:
|
||||
{
|
||||
outctx_t *ctx = va_arg(va, outctx_t *);
|
||||
bool analyze_only = va_argi(va, bool);
|
||||
pdp_data(*ctx, analyze_only);
|
||||
return 1;
|
||||
}
|
||||
|
||||
case processor_t::ev_realcvt:
|
||||
{
|
||||
void *m = va_arg(va, void *);
|
||||
fpvalue_t *e = va_arg(va, fpvalue_t *);
|
||||
uint16 swt = va_argi(va, uint16);
|
||||
fpvalue_error_t code = realcvt(m, e, swt);
|
||||
return code == REAL_ERROR_OK ? 1 : code;
|
||||
}
|
||||
|
||||
|
||||
default:
|
||||
retcode = 0;
|
||||
break;
|
||||
}
|
||||
return retcode;
|
||||
}
|
||||
|
||||
|
||||
//-----------------------------------------------------------------------
|
||||
static const asm_t *const asms[] = { ¯o11, NULL };
|
||||
|
||||
#define FAMILY "DEC series:"
|
||||
static const char *const shnames[] = { "PDP11", NULL };
|
||||
static const char *const lnames[] = { FAMILY"DEC PDP-11", NULL };
|
||||
|
||||
//--------------------------------------------------------------------------
|
||||
static const uchar retcode_0[] = { 0200, 0000 };
|
||||
static const uchar retcode_1[] = { 0201, 0000 };
|
||||
static const uchar retcode_2[] = { 0202, 0000 };
|
||||
static const uchar retcode_3[] = { 0203, 0000 };
|
||||
static const uchar retcode_4[] = { 0204, 0000 };
|
||||
static const uchar retcode_5[] = { 0205, 0000 };
|
||||
static const uchar retcode_6[] = { 0206, 0000 };
|
||||
static const uchar retcode_7[] = { 0207, 0000 };
|
||||
static const uchar retcode_8[] = { 0002, 0000 };
|
||||
static const uchar retcode_9[] = { 0006, 0000 };
|
||||
|
||||
static const bytes_t retcodes[] =
|
||||
{
|
||||
{ sizeof(retcode_0), retcode_0 },
|
||||
{ sizeof(retcode_1), retcode_1 },
|
||||
{ sizeof(retcode_2), retcode_2 },
|
||||
{ sizeof(retcode_3), retcode_3 },
|
||||
{ sizeof(retcode_4), retcode_4 },
|
||||
{ sizeof(retcode_5), retcode_5 },
|
||||
{ sizeof(retcode_6), retcode_6 },
|
||||
{ sizeof(retcode_7), retcode_7 },
|
||||
{ sizeof(retcode_8), retcode_8 },
|
||||
{ sizeof(retcode_9), retcode_9 },
|
||||
{ 0, NULL }
|
||||
};
|
||||
|
||||
//-----------------------------------------------------------------------
|
||||
// Processor Definition
|
||||
//-----------------------------------------------------------------------
|
||||
processor_t LPH =
|
||||
{
|
||||
IDP_INTERFACE_VERSION, // version
|
||||
PLFM_PDP, // id
|
||||
// flag
|
||||
PR_WORD_INS
|
||||
| PRN_OCT
|
||||
| PR_SEGTRANS,
|
||||
// flag2
|
||||
PR2_REALCVT // the module has 'realcvt' event implementation
|
||||
| PR2_IDP_OPTS, // the module has processor-specific configuration options
|
||||
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
|
||||
|
||||
rVcs,rVds,
|
||||
0, // size of a segment register
|
||||
rVcs,rVds,
|
||||
|
||||
NULL, // No known code start sequences
|
||||
retcodes,
|
||||
|
||||
0,pdp_last,
|
||||
Instructions, // instruc
|
||||
0, // size of tbyte
|
||||
{ 4,7,19,0 },
|
||||
|
||||
// Icode of return instruction. It is ok to give any of possible return
|
||||
// instructions
|
||||
pdp_return,
|
||||
};
|
||||
Reference in New Issue
Block a user