summaryrefslogtreecommitdiffstatshomepage
path: root/src/emu/cpu/mips/r3kdasm.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/emu/cpu/mips/r3kdasm.c')
-rw-r--r--src/emu/cpu/mips/r3kdasm.c295
1 files changed, 295 insertions, 0 deletions
diff --git a/src/emu/cpu/mips/r3kdasm.c b/src/emu/cpu/mips/r3kdasm.c
new file mode 100644
index 00000000000..f695fcf7dc4
--- /dev/null
+++ b/src/emu/cpu/mips/r3kdasm.c
@@ -0,0 +1,295 @@
+/***************************************************************************
+
+ r3kdasm.c
+ Disassembler for the portable R3000 emulator.
+ Written by Aaron Giles
+
+***************************************************************************/
+
+#include "cpuintrf.h"
+
+
+static const char *reg[32] =
+{
+ "0", "r1", "r2", "r3", "r4", "r5", "r6", "r7",
+ "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15",
+ "r16", "r17", "r18", "r19", "r20", "r21", "r22", "r23",
+ "r24", "r25", "r26", "r27", "r28", "r29", "r30", "r31"
+};
+
+
+static const char *cpreg[4][32] =
+{
+ {
+ "Index","Random","EntryLo","cpr3", "Context", "cpr5", "cpr6", "cpr7",
+ "BadVAddr", "cpr9", "cpr10","cpr11","SR","Cause","EPC","PRId",
+ "cpr16","cpr17","cpr18","cpr19","cpr20","cpr21","cpr22","cpr23",
+ "cpr24","cpr25","cpr26","cpr27","cpr28","cpr29","cpr30","cpr31"
+ },
+ {
+ "cpr0", "cpr1", "cpr2", "cpr3", "cpr4", "cpr5", "cpr6", "cpr7",
+ "cpr8", "cpr9", "cpr10","cpr11","cpr12","cpr13","cpr14","cpr15",
+ "cpr16","cpr17","cpr18","cpr19","cpr20","cpr21","cpr22","cpr23",
+ "cpr24","cpr25","cpr26","cpr27","cpr28","cpr29","cpr30","cpr31"
+ },
+ {
+ "cpr0", "cpr1", "cpr2", "cpr3", "cpr4", "cpr5", "cpr6", "cpr7",
+ "cpr8", "cpr9", "cpr10","cpr11","cpr12","cpr13","cpr14","cpr15",
+ "cpr16","cpr17","cpr18","cpr19","cpr20","cpr21","cpr22","cpr23",
+ "cpr24","cpr25","cpr26","cpr27","cpr28","cpr29","cpr30","cpr31"
+ },
+ {
+ "cpr0", "cpr1", "cpr2", "cpr3", "cpr4", "cpr5", "cpr6", "cpr7",
+ "cpr8", "cpr9", "cpr10","cpr11","cpr12","cpr13","cpr14","cpr15",
+ "cpr16","cpr17","cpr18","cpr19","cpr20","cpr21","cpr22","cpr23",
+ "cpr24","cpr25","cpr26","cpr27","cpr28","cpr29","cpr30","cpr31"
+ }
+};
+
+
+static const char *ccreg[4][32] =
+{
+ {
+ "ccr0", "ccr1", "ccr2", "ccr3", "ccr4", "ccr5", "ccr6", "ccr7",
+ "ccr8", "ccr9", "ccr10","ccr11","ccr12","ccr13","ccr14","ccr15",
+ "ccr16","ccr17","ccr18","ccr19","ccr20","ccr21","ccr22","ccr23",
+ "ccr24","ccr25","ccr26","ccr27","ccr28","ccr29","ccr30","ccr31"
+ },
+ {
+ "ccr0", "ccr1", "ccr2", "ccr3", "ccr4", "ccr5", "ccr6", "ccr7",
+ "ccr8", "ccr9", "ccr10","ccr11","ccr12","ccr13","ccr14","ccr15",
+ "ccr16","ccr17","ccr18","ccr19","ccr20","ccr21","ccr22","ccr23",
+ "ccr24","ccr25","ccr26","ccr27","ccr28","ccr29","ccr30","ccr31"
+ },
+ {
+ "ccr0", "ccr1", "ccr2", "ccr3", "ccr4", "ccr5", "ccr6", "ccr7",
+ "ccr8", "ccr9", "ccr10","ccr11","ccr12","ccr13","ccr14","ccr15",
+ "ccr16","ccr17","ccr18","ccr19","ccr20","ccr21","ccr22","ccr23",
+ "ccr24","ccr25","ccr26","ccr27","ccr28","ccr29","ccr30","ccr31"
+ },
+ {
+ "ccr0", "ccr1", "ccr2", "ccr3", "ccr4", "ccr5", "ccr6", "ccr7",
+ "ccr8", "ccr9", "ccr10","ccr11","ccr12","ccr13","ccr14","ccr15",
+ "ccr16","ccr17","ccr18","ccr19","ccr20","ccr21","ccr22","ccr23",
+ "ccr24","ccr25","ccr26","ccr27","ccr28","ccr29","ccr30","ccr31"
+ }
+};
+
+
+/***************************************************************************
+ MEMORY ACCESSORS
+***************************************************************************/
+
+#define ROPCODE(pc) cpu_readop32(pc)
+
+
+/***************************************************************************
+ CODE CODE
+***************************************************************************/
+
+INLINE char *signed_16bit(INT16 val)
+{
+ static char temp[10];
+ if (val < 0)
+ sprintf(temp, "-$%x", -val);
+ else
+ sprintf(temp, "$%x", val);
+ return temp;
+}
+
+static UINT32 dasm_cop(UINT32 pc, int cop, UINT32 op, char *buffer)
+{
+ int rt = (op >> 16) & 31;
+ int rd = (op >> 11) & 31;
+ UINT32 flags = 0;
+
+ switch ((op >> 21) & 31)
+ {
+ case 0x00: sprintf(buffer, "mfc%d %s,%s", cop, reg[rt], cpreg[cop][rd]); break;
+ case 0x02: sprintf(buffer, "cfc%d %s,%s", cop, reg[rt], ccreg[cop][rd]); break;
+ case 0x04: sprintf(buffer, "mtc%d %s,%s", cop, reg[rt], cpreg[cop][rd]); break;
+ case 0x06: sprintf(buffer, "ctc%d %s,%s", cop, reg[rt], ccreg[cop][rd]); break;
+ case 0x08: /* BC */
+ switch (rt)
+ {
+ case 0x00: sprintf(buffer, "bc%df $%08x", cop, pc + 4 + ((INT16)op << 2)); break;
+ case 0x01: sprintf(buffer, "bc%dt $%08x", cop, pc + 4 + ((INT16)op << 2)); break;
+ case 0x02: sprintf(buffer, "bc%dfl [invalid]", cop); break;
+ case 0x03: sprintf(buffer, "bc%dtl [invalid]", cop); break;
+ default: sprintf(buffer, "dc.l $%08x [invalid]", op); break;
+ }
+ break;
+ case 0x10:
+ case 0x11:
+ case 0x12:
+ case 0x13:
+ case 0x14:
+ case 0x15:
+ case 0x16:
+ case 0x17:
+ case 0x18:
+ case 0x19:
+ case 0x1a:
+ case 0x1b:
+ case 0x1c:
+ case 0x1d:
+ case 0x1e:
+ case 0x1f: /* COP */
+ if (cop == 0)
+ {
+ switch (op & 0x01ffffff)
+ {
+ case 0x01: sprintf(buffer, "tlbr"); break;
+ case 0x02: sprintf(buffer, "tlbwi"); break;
+ case 0x06: sprintf(buffer, "tlbwr"); break;
+ case 0x08: sprintf(buffer, "tlbp"); break;
+ case 0x10: sprintf(buffer, "rfe"); break;
+ case 0x18: sprintf(buffer, "eret [invalid]"); break;
+ default: sprintf(buffer, "cop%d $%07x", cop, op & 0x01ffffff); break;
+ }
+ }
+ else
+ sprintf(buffer, "cop%d $%07x", cop, op & 0x01ffffff); break;
+ default: sprintf(buffer, "dc.l $%08x [invalid]", op); break;
+ }
+
+ return flags;
+}
+
+unsigned dasmr3k(char *buffer, unsigned pc, UINT32 op)
+{
+ int rs = (op >> 21) & 31;
+ int rt = (op >> 16) & 31;
+ int rd = (op >> 11) & 31;
+ int shift = (op >> 6) & 31;
+ UINT32 flags = 0;
+
+ switch (op >> 26)
+ {
+ case 0x00: /* SPECIAL */
+ switch (op & 63)
+ {
+ case 0x00: if (op == 0)
+ sprintf(buffer, "nop");
+ else
+ sprintf(buffer, "sll %s,%s,%d", reg[rd], reg[rt], shift); break;
+ case 0x02: sprintf(buffer, "srl %s,%s,%d", reg[rd], reg[rt], shift); break;
+ case 0x03: sprintf(buffer, "sra %s,%s,%d", reg[rd], reg[rt], shift); break;
+ case 0x04: sprintf(buffer, "sllv %s,%s,%s", reg[rd], reg[rt], reg[rs]); break;
+ case 0x06: sprintf(buffer, "srlv %s,%s,%s", reg[rd], reg[rt], reg[rs]); break;
+ case 0x07: sprintf(buffer, "srav %s,%s,%s", reg[rd], reg[rt], reg[rs]); break;
+ case 0x08: sprintf(buffer, "jr %s", reg[rs]); if (rs == 31) flags = DASMFLAG_STEP_OUT; break;
+ case 0x09: if (rd == 31)
+ sprintf(buffer, "jalr %s", reg[rs]);
+ else
+ sprintf(buffer, "jalr %s,%s", reg[rs], reg[rd]); flags = DASMFLAG_STEP_OVER | DASMFLAG_STEP_OVER_EXTRA(1); break;
+ case 0x0c: sprintf(buffer, "syscall"); flags = DASMFLAG_STEP_OVER; break;
+ case 0x0d: sprintf(buffer, "break"); flags = DASMFLAG_STEP_OVER; break;
+ case 0x0f: sprintf(buffer, "sync [invalid]"); break;
+ case 0x10: sprintf(buffer, "mfhi %s", reg[rd]); break;
+ case 0x11: sprintf(buffer, "mthi %s", reg[rs]); break;
+ case 0x12: sprintf(buffer, "mflo %s", reg[rd]); break;
+ case 0x13: sprintf(buffer, "mtlo %s", reg[rs]); break;
+ case 0x18: sprintf(buffer, "mult %s,%s", reg[rs], reg[rt]); break;
+ case 0x19: sprintf(buffer, "multu %s,%s", reg[rs], reg[rt]); break;
+ case 0x1a: sprintf(buffer, "div %s,%s", reg[rs], reg[rt]); break;
+ case 0x1b: sprintf(buffer, "divu %s,%s", reg[rs], reg[rt]); break;
+ case 0x20: sprintf(buffer, "add %s,%s,%s", reg[rd], reg[rs], reg[rt]); break;
+ case 0x21: sprintf(buffer, "addu %s,%s,%s", reg[rd], reg[rs], reg[rt]); break;
+ case 0x22: sprintf(buffer, "sub %s,%s,%s", reg[rd], reg[rs], reg[rt]); break;
+ case 0x23: sprintf(buffer, "subu %s,%s,%s", reg[rd], reg[rs], reg[rt]); break;
+ case 0x24: sprintf(buffer, "and %s,%s,%s", reg[rd], reg[rs], reg[rt]); break;
+ case 0x25: sprintf(buffer, "or %s,%s,%s", reg[rd], reg[rs], reg[rt]); break;
+ case 0x26: sprintf(buffer, "xor %s,%s,%s", reg[rd], reg[rs], reg[rt]); break;
+ case 0x27: sprintf(buffer, "nor %s,%s,%s", reg[rd], reg[rs], reg[rt]); break;
+ case 0x2a: sprintf(buffer, "slt %s,%s,%s", reg[rd], reg[rs], reg[rt]); break;
+ case 0x2b: sprintf(buffer, "sltu %s,%s,%s", reg[rd], reg[rs], reg[rt]); break;
+ case 0x30: sprintf(buffer, "teq [invalid]"); break;
+ case 0x31: sprintf(buffer, "tgeu [invalid]"); break;
+ case 0x32: sprintf(buffer, "tlt [invalid]"); break;
+ case 0x33: sprintf(buffer, "tltu [invalid]"); break;
+ case 0x34: sprintf(buffer, "tge [invalid]"); break;
+ case 0x36: sprintf(buffer, "tne [invalid]"); break;
+ default: sprintf(buffer, "dc.l $%08x [invalid]", op); break;
+ }
+ break;
+
+ case 0x01: /* REGIMM */
+ switch ((op >> 16) & 31)
+ {
+ case 0x00: sprintf(buffer, "bltz %s,$%08x", reg[rs], pc + 4 + ((INT16)op << 2)); break;
+ case 0x01: sprintf(buffer, "bgez %s,$%08x", reg[rs], pc + 4 + ((INT16)op << 2)); break;
+ case 0x02: sprintf(buffer, "bltzl [invalid]"); break;
+ case 0x03: sprintf(buffer, "bgezl [invalid]"); break;
+ case 0x08: sprintf(buffer, "tgei [invalid]"); break;
+ case 0x09: sprintf(buffer, "tgeiu [invalid]"); break;
+ case 0x0a: sprintf(buffer, "tlti [invalid]"); break;
+ case 0x0b: sprintf(buffer, "tltiu [invalid]"); break;
+ case 0x0c: sprintf(buffer, "teqi [invalid]"); break;
+ case 0x0e: sprintf(buffer, "tnei [invalid]"); break;
+ case 0x10: sprintf(buffer, "bltzal %s,$%08x", reg[rs], pc + 4 + ((INT16)op << 2)); flags = DASMFLAG_STEP_OVER | DASMFLAG_STEP_OVER_EXTRA(1); break;
+ case 0x11: sprintf(buffer, "bgezal %s,$%08x", reg[rs], pc + 4 + ((INT16)op << 2)); flags = DASMFLAG_STEP_OVER | DASMFLAG_STEP_OVER_EXTRA(1); break;
+ case 0x12: sprintf(buffer, "bltzall [invalid]"); break;
+ case 0x13: sprintf(buffer, "bgezall [invalid]"); break;
+ default: sprintf(buffer, "dc.l $%08x [invalid]", op); break;
+ }
+ break;
+
+ case 0x02: sprintf(buffer, "j $%08x", (pc & 0xf0000000) | ((op & 0x0fffffff) << 2)); break;
+ case 0x03: sprintf(buffer, "jal $%08x", (pc & 0xf0000000) | ((op & 0x0fffffff) << 2)); flags = DASMFLAG_STEP_OVER | DASMFLAG_STEP_OVER_EXTRA(1); break;
+ case 0x04: if (rs == 0 && rt == 0)
+ sprintf(buffer, "b $%08x", pc + 4 + ((INT16)op << 2));
+ else
+ sprintf(buffer, "beq %s,%s,$%08x", reg[rs], reg[rt], pc + 4 + ((INT16)op << 2));break;
+ case 0x05: sprintf(buffer, "bne %s,%s,$%08x", reg[rs], reg[rt], pc + 4 + ((INT16)op << 2));break;
+ case 0x06: sprintf(buffer, "blez %s,$%08x", reg[rs], pc + 4 + ((INT16)op << 2)); break;
+ case 0x07: sprintf(buffer, "bgtz %s,$%08x", reg[rs], pc + 4 + ((INT16)op << 2)); break;
+ case 0x08: sprintf(buffer, "addi %s,%s,%s", reg[rt], reg[rs], signed_16bit(op)); break;
+ case 0x09: sprintf(buffer, "addiu %s,%s,%s", reg[rt], reg[rs], signed_16bit(op)); break;
+ case 0x0a: sprintf(buffer, "slti %s,%s,%s", reg[rt], reg[rs], signed_16bit(op)); break;
+ case 0x0b: sprintf(buffer, "sltiu %s,%s,%s", reg[rt], reg[rs], signed_16bit(op)); break;
+ case 0x0c: sprintf(buffer, "andi %s,%s,$%04x", reg[rt], reg[rs], (UINT16)op); break;
+ case 0x0d: sprintf(buffer, "ori %s,%s,$%04x", reg[rt], reg[rs], (UINT16)op); break;
+ case 0x0e: sprintf(buffer, "xori %s,%s,$%04x", reg[rt], reg[rs], (UINT16)op); break;
+ case 0x0f: sprintf(buffer, "lui %s,$%04x", reg[rt], (UINT16)op); break;
+ case 0x10: flags = dasm_cop(pc, 0, op, buffer); break;
+ case 0x11: flags = dasm_cop(pc, 1, op, buffer); break;
+ case 0x12: flags = dasm_cop(pc, 2, op, buffer); break;
+ case 0x13: flags = dasm_cop(pc, 3, op, buffer); break;
+ case 0x14: sprintf(buffer, "beql [invalid]"); break;
+ case 0x15: sprintf(buffer, "bnel [invalid]"); break;
+ case 0x16: sprintf(buffer, "blezl [invalid]"); break;
+ case 0x17: sprintf(buffer, "bgtzl [invalid]"); break;
+ case 0x20: sprintf(buffer, "lb %s,%s(%s)", reg[rt], signed_16bit(op), reg[rs]); break;
+ case 0x21: sprintf(buffer, "lh %s,%s(%s)", reg[rt], signed_16bit(op), reg[rs]); break;
+ case 0x22: sprintf(buffer, "lwl %s,%s(%s)", reg[rt], signed_16bit(op), reg[rs]); break;
+ case 0x23: sprintf(buffer, "lw %s,%s(%s)", reg[rt], signed_16bit(op), reg[rs]); break;
+ case 0x24: sprintf(buffer, "lbu %s,%s(%s)", reg[rt], signed_16bit(op), reg[rs]); break;
+ case 0x25: sprintf(buffer, "lhu %s,%s(%s)", reg[rt], signed_16bit(op), reg[rs]); break;
+ case 0x26: sprintf(buffer, "lwr %s,%s(%s)", reg[rt], signed_16bit(op), reg[rs]); break;
+ case 0x28: sprintf(buffer, "sb %s,%s(%s)", reg[rt], signed_16bit(op), reg[rs]); break;
+ case 0x29: sprintf(buffer, "sh %s,%s(%s)", reg[rt], signed_16bit(op), reg[rs]); break;
+ case 0x2a: sprintf(buffer, "swl %s,%s(%s)", reg[rt], signed_16bit(op), reg[rs]); break;
+ case 0x2b: sprintf(buffer, "sw %s,%s(%s)", reg[rt], signed_16bit(op), reg[rs]); break;
+ case 0x2e: sprintf(buffer, "swr %s,%s(%s)", reg[rt], signed_16bit(op), reg[rs]); break;
+ case 0x2f: sprintf(buffer, "cache [invalid]"); break;
+ case 0x30: sprintf(buffer, "ll [invalid]"); break;
+ case 0x31: sprintf(buffer, "lwc1 %s,%s(%s)", cpreg[1][rt], signed_16bit(op), reg[rs]); break;
+ case 0x32: sprintf(buffer, "lwc2 %s,%s(%s)", cpreg[2][rt], signed_16bit(op), reg[rs]); break;
+ case 0x33: sprintf(buffer, "lwc3 %s,%s(%s)", cpreg[3][rt], signed_16bit(op), reg[rs]); break;
+ case 0x34: sprintf(buffer, "ldc0 [invalid]"); break;
+ case 0x35: sprintf(buffer, "ldc1 [invalid]"); break;
+ case 0x36: sprintf(buffer, "ldc2 [invalid]"); break;
+ case 0x37: sprintf(buffer, "ldc3 [invalid]"); break;
+ case 0x38: sprintf(buffer, "sc [invalid]"); break;
+ case 0x39: sprintf(buffer, "swc1 %s,%s(%s)", cpreg[1][rt], signed_16bit(op), reg[rs]); break;
+ case 0x3a: sprintf(buffer, "swc2 %s,%s(%s)", cpreg[2][rt], signed_16bit(op), reg[rs]); break;
+ case 0x3b: sprintf(buffer, "swc3 %s,%s(%s)", cpreg[3][rt], signed_16bit(op), reg[rs]); break;
+ case 0x3c: sprintf(buffer, "sdc0 [invalid]"); break;
+ case 0x3d: sprintf(buffer, "sdc1 [invalid]"); break;
+ case 0x3e: sprintf(buffer, "sdc2 [invalid]"); break;
+ case 0x3f: sprintf(buffer, "sdc3 [invalid]"); break;
+ default: sprintf(buffer, "dc.l $%08x [invalid]", op); break;
+ }
+ return 4 | flags | DASMFLAG_SUPPORTED;
+}