122 lines
2.7 KiB
C
122 lines
2.7 KiB
C
// The OS/K Team licenses this file to you under the MIT license.
|
|
// See the LICENSE file in the project root for more information.
|
|
|
|
#include <pc/arch.h>
|
|
|
|
#define ABS(x) ((short)(x) < 0 ? -x : x)
|
|
|
|
static void dump_acc(acc_t *p);
|
|
|
|
void dump_instr(instr_t *in,
|
|
acc_t *p1,
|
|
acc_t *p2,
|
|
acc_t *p3)
|
|
{
|
|
trace("0x%lX:\t", ctx->cur_pc);
|
|
trace("%s\t", in->name);
|
|
|
|
if (p1)
|
|
dump_acc(p1);
|
|
|
|
if (p2) {
|
|
trace(", ");
|
|
dump_acc(p2);
|
|
}
|
|
|
|
if (p3) {
|
|
trace(", ");
|
|
dump_acc(p3);
|
|
}
|
|
|
|
trace("\n");
|
|
}
|
|
|
|
static void dump_acc(acc_t *p)
|
|
{
|
|
uint mfmt;
|
|
sym_t *sym;
|
|
|
|
if (p->type == A_REG)
|
|
trace("%s", ctx->r[p->reg].name);
|
|
|
|
else if (p->type == A_IMM64)
|
|
{
|
|
if (p->val < 0xA) trace("%lu", p->val);
|
|
else trace("0x%lX", p->val);
|
|
}
|
|
|
|
else if (p->type == A_IMM32)
|
|
{
|
|
if (p->val < 0xA)
|
|
trace("%lu", p->val);
|
|
|
|
else
|
|
{
|
|
sym = find_sym_by_addr(p->val);
|
|
|
|
if (sym)
|
|
trace("$%s(0x%lX)", sym->name, sym->addr);
|
|
else
|
|
trace("0x%lX", p->val);
|
|
}
|
|
}
|
|
|
|
else if (p->type == A_IMM16)
|
|
{
|
|
if (p->val < 0xA) trace("%lu", p->val);
|
|
else trace("0x%hX", (ushort)p->val);
|
|
}
|
|
|
|
else if (p->type == A_IMM8)
|
|
{
|
|
if (p->val < 0xA) trace("%lu", p->val);
|
|
else trace("0x%hhX", (uchar)p->val);
|
|
}
|
|
|
|
else
|
|
{
|
|
trace("%c[", getmempref(p->mlen));
|
|
|
|
mfmt = p->type;
|
|
|
|
if (mfmt == AM_RR)
|
|
{
|
|
if (p->reg1 && p->reg2)
|
|
trace("%s+%s]", ctx->r[p->reg1].name, ctx->r[p->reg2].name);
|
|
|
|
else trace("%s]", ctx->r[p->reg1 ? p->reg1 : p->reg2].name);
|
|
}
|
|
|
|
else if (mfmt == AM_RRI)
|
|
{
|
|
if (p->reg1 && p->reg2)
|
|
trace("%s+%s%c%ld]",
|
|
ctx->r[p->reg1].name,
|
|
ctx->r[p->reg2].name,
|
|
(p->imm2 < 0 ? '-' : '+'),
|
|
ABS(p->imm2));
|
|
|
|
else trace("%s%c%ld]",
|
|
ctx->r[p->reg1 ? p->reg1 : p->reg2].name,
|
|
(p->imm2 < 0 ? '-' : '+'),
|
|
ABS(p->imm2));
|
|
}
|
|
|
|
else if (mfmt == AM_RRII)
|
|
{
|
|
if (p->reg1)
|
|
trace("%s+%s*%hhd%c%ld]",
|
|
ctx->r[p->reg1].name,
|
|
ctx->r[p->reg2].name, p->imm1,
|
|
(p->imm2 < 0 ? '-' : '+'),
|
|
ABS(p->imm2));
|
|
else
|
|
trace("%s*%hhd%c%ld]",
|
|
ctx->r[p->reg2].name, p->imm1,
|
|
(p->imm2 < 0 ? '-' : '+'),
|
|
ABS(p->imm2));
|
|
}
|
|
}
|
|
}
|
|
|