258 lines
6.4 KiB
C++
258 lines
6.4 KiB
C++
/*
|
|
* Interactive disassembler (IDA).
|
|
* Copyright (c) 1990-99 by Ilfak Guilfanov.
|
|
* ALL RIGHTS RESERVED.
|
|
* E-mail: ig@datarescue.com
|
|
*
|
|
* Atmel AVR - 8-bit RISC processor
|
|
*
|
|
*/
|
|
|
|
#include "avr.hpp"
|
|
#include "../../ldr/elf/elfr_avr.h"
|
|
|
|
//----------------------------------------------------------------------
|
|
class out_avr_t : public outctx_t
|
|
{
|
|
void out_regop(const op_t &x);
|
|
out_avr_t(void) = delete; // not used
|
|
public:
|
|
void out_phrase(int phn);
|
|
void out_bad_address(ea_t addr);
|
|
|
|
bool out_operand(const op_t &x);
|
|
void out_insn(void);
|
|
};
|
|
CASSERT(sizeof(out_avr_t) == sizeof(outctx_t));
|
|
|
|
DECLARE_OUT_FUNCS_WITHOUT_OUTMNEM(out_avr_t)
|
|
|
|
//----------------------------------------------------------------------
|
|
void out_avr_t::out_phrase(int phn)
|
|
{
|
|
switch ( phn )
|
|
{
|
|
case PH_XPLUS: // X+
|
|
out_register("X");
|
|
out_symbol('+');
|
|
break;
|
|
case PH_MINUSX: // -X
|
|
out_symbol('-');
|
|
case PH_X: // X
|
|
out_register("X");
|
|
break;
|
|
case PH_YPLUS: // Y+
|
|
out_register("Y");
|
|
out_symbol('+');
|
|
break;
|
|
case PH_MINUSY: // -Y
|
|
out_symbol('-');
|
|
case PH_Y: // Y
|
|
out_register("Y");
|
|
break;
|
|
case PH_ZPLUS: // Z+
|
|
out_register("Z");
|
|
out_symbol('+');
|
|
break;
|
|
case PH_MINUSZ: // -Z
|
|
out_symbol('-');
|
|
case PH_Z: // Z
|
|
out_register("Z");
|
|
break;
|
|
default:
|
|
error("%a: bad phrase number", insn.ea);
|
|
}
|
|
}
|
|
|
|
//----------------------------------------------------------------------
|
|
void out_avr_t::out_bad_address(ea_t addr)
|
|
{
|
|
out_tagon(COLOR_ERROR);
|
|
out_btoa(addr, 16);
|
|
out_tagoff(COLOR_ERROR);
|
|
remember_problem(PR_NONAME, insn.ea);
|
|
}
|
|
|
|
void out_avr_t::out_regop(const op_t &x)
|
|
{
|
|
avr_t &pm = *static_cast<avr_t *>(procmod);
|
|
qstring name;
|
|
// for legacy architectures, try to get SRAM name if available
|
|
if ( x.reg_pair
|
|
|| pm.ram == BADADDR || pm.subarch >= E_AVR_MACH_TINY
|
|
|| get_visible_name(&name, pm.ram+x.reg) <= 0 )
|
|
{
|
|
// no name or reg pair: use standard reg name
|
|
name = ph.reg_names[x.reg];
|
|
if ( x.reg_pair )
|
|
{
|
|
switch ( x.reg )
|
|
{
|
|
case R26: name = "X"; break;
|
|
case R28: name = "Y"; break;
|
|
case R30: name = "Z"; break;
|
|
default:
|
|
// r1:r2
|
|
out_register(name.begin());
|
|
out_symbol(':');
|
|
name = ph.reg_names[x.reg+1];
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
out_register(name.begin());
|
|
}
|
|
//----------------------------------------------------------------------
|
|
bool out_avr_t::out_operand(const op_t &x)
|
|
{
|
|
avr_t &pm = *static_cast<avr_t *>(procmod);
|
|
switch ( x.type )
|
|
{
|
|
case o_void:
|
|
return 0;
|
|
|
|
case o_reg:
|
|
out_regop(x);
|
|
break;
|
|
|
|
case o_imm:
|
|
{
|
|
if ( insn.itype == AVR_cbi
|
|
|| insn.itype == AVR_sbic
|
|
|| insn.itype == AVR_sbi
|
|
|| insn.itype == AVR_sbis )
|
|
{
|
|
const char *bit = pm.find_bit(insn.Op1.addr, (size_t)x.value);
|
|
if ( bit != NULL && bit[0] != '\0' )
|
|
{
|
|
out_line(bit, COLOR_REG);
|
|
break;
|
|
}
|
|
}
|
|
if ( x.specflag1 && is_off1(F) && !is_invsign(insn.ea, F, 1) )
|
|
out_symbol('-');
|
|
int flags = OOFS_IFSIGN|OOFW_8;
|
|
if ( insn.itype == AVR_subi || insn.itype == AVR_sbci )
|
|
flags |= OOF_SIGNED;
|
|
out_value(x, flags);
|
|
}
|
|
break;
|
|
|
|
case o_near:
|
|
{
|
|
ea_t ea = to_ea(insn.cs, x.addr);
|
|
if ( !out_name_expr(x, ea, x.addr) )
|
|
out_bad_address(x.addr);
|
|
}
|
|
break;
|
|
|
|
case o_mem:
|
|
{
|
|
ea_t ea = map_data_ea(insn, x);
|
|
if ( !out_name_expr(x, ea, x.addr) )
|
|
out_bad_address(x.addr);
|
|
}
|
|
break;
|
|
|
|
case o_phrase:
|
|
out_phrase(x.phrase);
|
|
break;
|
|
|
|
case o_displ:
|
|
out_phrase(x.phrase);
|
|
out_value(x, OOF_ADDR|OOFS_NEEDSIGN|OOFW_32);
|
|
break;
|
|
|
|
case o_port:
|
|
{
|
|
const ioport_t *port = pm.find_port(x.addr);
|
|
if ( port != NULL && !port->name.empty() )
|
|
out_register(port->name.c_str());
|
|
else
|
|
out_bad_address(x.addr);
|
|
}
|
|
break;
|
|
|
|
default:
|
|
warning("out: %a: bad optype %d", insn.ea, x.type);
|
|
break;
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
//----------------------------------------------------------------------
|
|
void out_avr_t::out_insn(void)
|
|
{
|
|
avr_t &pm = *static_cast<avr_t *>(procmod);
|
|
// output .org for enties without any labels
|
|
if ( !has_any_name(F) && pm.helper.altval_ea(insn.ea) )
|
|
{
|
|
char buf[MAXSTR];
|
|
btoa(buf, sizeof(buf), insn.ip);
|
|
int saved_flags = forbid_annotations();
|
|
gen_printf(DEFAULT_INDENT, COLSTR("%s %s", SCOLOR_ASMDIR), ash.origin, buf);
|
|
restore_ctxflags(saved_flags);
|
|
}
|
|
|
|
out_mnemonic();
|
|
|
|
out_one_operand(0);
|
|
if ( insn.Op2.type != o_void )
|
|
{
|
|
out_symbol(',');
|
|
out_char(' ');
|
|
out_one_operand(1);
|
|
}
|
|
|
|
out_immchar_cmts();
|
|
flush_outbuf();
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
//lint -esym(1764, ctx) could be made const
|
|
//lint -esym(818, Sarea) could be made const
|
|
void avr_t::avr_segstart(outctx_t &ctx, segment_t *Sarea) const
|
|
{
|
|
if ( is_spec_segm(Sarea->type) )
|
|
return;
|
|
qstring sname;
|
|
qstring sclas;
|
|
get_visible_segm_name(&sname, Sarea);
|
|
get_segm_class(&sclas, Sarea);
|
|
ctx.gen_printf(0,
|
|
COLSTR("%s", SCOLOR_ASMDIR) " " COLSTR("%s %s", SCOLOR_AUTOCMT),
|
|
sclas == "CODE"
|
|
? ".CSEG"
|
|
: sclas == "DATA"
|
|
? ".DSEG"
|
|
: ".ESEG",
|
|
ash.cmnt,
|
|
sname.c_str());
|
|
if ( Sarea->orgbase != 0 )
|
|
{
|
|
char buf[MAX_NUMBUF];
|
|
btoa(buf, sizeof(buf), Sarea->orgbase);
|
|
ctx.gen_printf(DEFAULT_INDENT, COLSTR("%s %s", SCOLOR_ASMDIR), ash.origin, buf);
|
|
}
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
void idaapi avr_segend(outctx_t &, segment_t *)
|
|
{
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
void avr_t::avr_header(outctx_t &ctx)
|
|
{
|
|
ctx.gen_header(GH_PRINT_ALL_BUT_BYTESEX, NULL, ioh.device.c_str());
|
|
}
|
|
|
|
//--------------------------------------------------------------------------
|
|
void avr_t::avr_footer(outctx_t &ctx) const
|
|
{
|
|
qstring name = get_visible_name(inf_get_start_ea());
|
|
ctx.gen_printf(DEFAULT_INDENT,
|
|
COLSTR("%s",SCOLOR_ASMDIR) " " COLSTR("%s %s",SCOLOR_AUTOCMT),
|
|
ash.end, ash.cmnt, name.c_str());
|
|
}
|