mirror of
https://github.com/dingusdev/dingusppc.git
synced 2025-02-23 05:29:26 +00:00
Revert "Disassembler added"
This reverts commit 37078ddfe1e9b253ac9fa1754849dc0ab064fa75.
This commit is contained in:
Maxim Poliakovski
parent
09ac682dd2
commit
fe57beb983
@ -791,4 +791,4 @@ void power_srq() {
|
|||||||
|
|
||||||
void power_srqdot() {
|
void power_srqdot() {
|
||||||
printf("OOPS! Placeholder!!! \n");
|
printf("OOPS! Placeholder!!! \n");
|
||||||
}
|
}
|
||||||
|
|||||||
@ -1,788 +0,0 @@
|
|||||||
/** @file Logic for the disassembler.
|
|
||||||
@author maximumspatium
|
|
||||||
*/
|
|
||||||
|
|
||||||
#include <iostream>
|
|
||||||
#include <string>
|
|
||||||
#include <functional> //Mandated by Visual Studio
|
|
||||||
#include "ppcdisasm.h"
|
|
||||||
|
|
||||||
using namespace std;
|
|
||||||
|
|
||||||
template< typename... Args >
|
|
||||||
std::string my_sprintf(const char* format, Args... args)
|
|
||||||
{
|
|
||||||
int length = std::snprintf(nullptr, 0, format, args...);
|
|
||||||
if (length <= 0)
|
|
||||||
return {}; /* empty string in C++11 */
|
|
||||||
|
|
||||||
char* buf = new char[length + 1];
|
|
||||||
std::snprintf(buf, length + 1, format, args...);
|
|
||||||
|
|
||||||
std::string str(buf);
|
|
||||||
delete[] buf;
|
|
||||||
return str;
|
|
||||||
}
|
|
||||||
|
|
||||||
const char* arith_im_mnem[9] = {
|
|
||||||
"mulli", "subfic", "", "", "", "addic", "addic.", "addi", "addis"
|
|
||||||
};
|
|
||||||
|
|
||||||
const char* bx_mnem[4] = {
|
|
||||||
"b", "bl", "ba", "bla"
|
|
||||||
};
|
|
||||||
|
|
||||||
const char* bclrx_mnem[2] = {
|
|
||||||
"bclr", "bclrl"
|
|
||||||
};
|
|
||||||
|
|
||||||
const char* bcctrx_mnem[2] = {
|
|
||||||
"bcctr", "bcctrl"
|
|
||||||
};
|
|
||||||
|
|
||||||
const char* br_cond[8] = { /* simplified branch conditions */
|
|
||||||
"ge", "le", "ne", "ns", "lt", "gt", "eq", "so"
|
|
||||||
};
|
|
||||||
|
|
||||||
const char* bclrx_cond[8] = { /* simplified branch conditions */
|
|
||||||
"gelr", "lelr", "nelr", "nslr", "ltlr", "gtlr", "eqlr", "solr"
|
|
||||||
};
|
|
||||||
|
|
||||||
const char* bcctrx_cond[8] = { /* simplified branch conditions */
|
|
||||||
"gectr", "lectr", "nectr", "nsctr", "ltctr", "gtctr", "eqctr", "soctr"
|
|
||||||
};
|
|
||||||
|
|
||||||
const char* opc_idx_ldst[24] = { /* indexed load/store opcodes */
|
|
||||||
"lwzx", "lwzux", "lbzx", "lbzux", "stwx", "stwux", "stbx", "stbux", "lhzx",
|
|
||||||
"lhzux", "lhax", "lhaux", "sthx", "sthux", "", "", "lfsx", "lfsux", "lfdx",
|
|
||||||
"lfdux", "stfsx", "stfsux", "stfdx", "stfdux"
|
|
||||||
};
|
|
||||||
|
|
||||||
const char* opc_logic[16] = { /* indexed load/store opcodes */
|
|
||||||
"and", "andc", "", "nor", "", "", "", "", "eqv", "xor", "", "", "orc", "or",
|
|
||||||
"nand", ""
|
|
||||||
};
|
|
||||||
|
|
||||||
const char* opc_subs[16] = { /* subtracts & friends */
|
|
||||||
"subfc", "subf", "", "neg", "subfe", "", "subfze", "subfme", "doz", "", "",
|
|
||||||
"abs", "", "", "", "nabs"
|
|
||||||
};
|
|
||||||
|
|
||||||
const char* opc_adds[9] = { /* additions */
|
|
||||||
"addc", "", "", "", "adde", "", "addze", "addme", "add"
|
|
||||||
};
|
|
||||||
|
|
||||||
const char* opc_muldivs[16] = { /* multiply and division instructions */
|
|
||||||
"mulhwu", "", "mulhw", "mul", "", "", "", "mullw", "", "", "div", "divs",
|
|
||||||
"", "", "divwu", "divw"
|
|
||||||
};
|
|
||||||
|
|
||||||
const char* opc_int_ldst[16] = { /* integer load and store instructions */
|
|
||||||
"lwz", "lwzu", "lbz", "lbzu", "stw", "stwu", "stb", "stbu", "lhz", "lhzu",
|
|
||||||
"lha", "lhau", "sth", "sthu", "lmw", "stmw"
|
|
||||||
};
|
|
||||||
|
|
||||||
const char* opc_flt_ldst[8] = { /* integer load and store instructions */
|
|
||||||
"lfs", "lfsu", "lfd", "lfdu", "stfs", "stfsu", "sftd", "sftdu"
|
|
||||||
};
|
|
||||||
|
|
||||||
/** various formatting helpers. */
|
|
||||||
void fmt_oneop(string& buf, const char* opc, int src)
|
|
||||||
{
|
|
||||||
buf = my_sprintf("%-8sr%d", opc, src);
|
|
||||||
}
|
|
||||||
|
|
||||||
void fmt_twoop(string& buf, const char* opc, int dst, int src)
|
|
||||||
{
|
|
||||||
buf = my_sprintf("%-8sr%d, r%d", opc, dst, src);
|
|
||||||
}
|
|
||||||
|
|
||||||
void fmt_twoop_simm(string& buf, const char* opc, int dst, int imm)
|
|
||||||
{
|
|
||||||
buf = my_sprintf("%-8sr%d, %s0x%X", opc, dst, (imm < 0) ? "-" : "", abs(imm));
|
|
||||||
}
|
|
||||||
|
|
||||||
void fmt_twoop_fromspr(string& buf, const char* opc, int dst, int src)
|
|
||||||
{
|
|
||||||
buf = my_sprintf("%-8sspr%d, r%d", opc, dst, src);
|
|
||||||
}
|
|
||||||
|
|
||||||
void fmt_twoop_tospr(string& buf, const char* opc, int dst, int src)
|
|
||||||
{
|
|
||||||
buf = my_sprintf("%-8sr%d, spr%d", opc, dst, src);
|
|
||||||
}
|
|
||||||
|
|
||||||
void fmt_threeop(string& buf, const char* opc, int dst, int src1, int src2)
|
|
||||||
{
|
|
||||||
buf = my_sprintf("%-8sr%d, r%d, r%d", opc, dst, src1, src2);
|
|
||||||
}
|
|
||||||
|
|
||||||
void fmt_threeop_crb(string& buf, const char* opc, int dst, int src1, int src2)
|
|
||||||
{
|
|
||||||
buf = my_sprintf("%-8scrb%d, crb%d, crb%d", opc, dst, src1, src2);
|
|
||||||
}
|
|
||||||
|
|
||||||
void fmt_threeop_uimm(string& buf, const char* opc, int dst, int src1, int imm)
|
|
||||||
{
|
|
||||||
buf = my_sprintf("%-8sr%d, r%d, 0x%04X", opc, dst, src1, imm);
|
|
||||||
}
|
|
||||||
|
|
||||||
void fmt_threeop_simm(string& buf, const char* opc, int dst, int src1, int imm)
|
|
||||||
{
|
|
||||||
buf = my_sprintf("%-8sr%d, r%d, %s0x%X", opc, dst, src1,
|
|
||||||
(imm < 0) ? "-" : "", abs(imm));
|
|
||||||
}
|
|
||||||
|
|
||||||
void fmt_rotateop(string& buf, const char* opc, int dst, int src1, int sh, int mb, int me, bool imm)
|
|
||||||
{
|
|
||||||
if (imm)
|
|
||||||
buf = my_sprintf("%-8sr%d, r%d, sh%d, mb%d, me%d", opc, dst, src1, sh, mb, me);
|
|
||||||
else
|
|
||||||
buf = my_sprintf("%-8sr%d, r%d, r%d, mb%d, me%d", opc, dst, src1, sh, mb, me);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
void opc_illegal(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
ctx->instr_str = my_sprintf("%-8s0x%08X", "dc.l", ctx->instr_code);
|
|
||||||
}
|
|
||||||
|
|
||||||
void opc_twi(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
//return "DEADBEEF";
|
|
||||||
}
|
|
||||||
|
|
||||||
void opc_group4(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
printf("Altivec group 4 not supported yet\n");
|
|
||||||
}
|
|
||||||
|
|
||||||
void opc_ar_im(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
auto ra = (ctx->instr_code >> 16) & 0x1F;
|
|
||||||
auto rd = (ctx->instr_code >> 21) & 0x1F;
|
|
||||||
int32_t imm = SIGNEXT(ctx->instr_code & 0xFFFF, 15);
|
|
||||||
|
|
||||||
if ((ctx->instr_code >> 26) == 0xE && !ra && ctx->simplified) {
|
|
||||||
fmt_twoop_simm(ctx->instr_str, "li", rd, imm);
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
fmt_threeop_simm(ctx->instr_str, arith_im_mnem[(ctx->instr_code >> 26) - 7],
|
|
||||||
rd, ra, imm);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
void power_dozi(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
auto ra = (ctx->instr_code >> 16) & 0x1F;
|
|
||||||
auto rd = (ctx->instr_code >> 21) & 0x1F;
|
|
||||||
auto imm = ctx->instr_code & 0xFFFF;
|
|
||||||
|
|
||||||
fmt_threeop_simm(ctx->instr_str, "dozi", rd, ra, imm);
|
|
||||||
}
|
|
||||||
|
|
||||||
void opc_rlwimi(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
auto rs = (ctx->instr_code >> 21) & 0x1F;
|
|
||||||
auto ra = (ctx->instr_code >> 16) & 0x1F;
|
|
||||||
auto sh = (ctx->instr_code >> 11) & 0x1F;
|
|
||||||
auto mb = (ctx->instr_code >> 6) & 0x1F;
|
|
||||||
auto me = (ctx->instr_code >> 1) & 0x1F;
|
|
||||||
|
|
||||||
if (ctx->instr_code & 1)
|
|
||||||
fmt_rotateop(ctx->instr_str, "rlwimi.", rs, ra, sh, mb, me, true);
|
|
||||||
else
|
|
||||||
fmt_rotateop(ctx->instr_str, "rlwimi", rs, ra, sh, mb, me, true);
|
|
||||||
}
|
|
||||||
|
|
||||||
void opc_rlwinm(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
auto rs = (ctx->instr_code >> 21) & 0x1F;
|
|
||||||
auto ra = (ctx->instr_code >> 16) & 0x1F;
|
|
||||||
auto sh = (ctx->instr_code >> 11) & 0x1F;
|
|
||||||
auto mb = (ctx->instr_code >> 6) & 0x1F;
|
|
||||||
auto me = (ctx->instr_code >> 1) & 0x1F;
|
|
||||||
|
|
||||||
if (ctx->instr_code & 1)
|
|
||||||
fmt_rotateop(ctx->instr_str, "rlwinm.", rs, ra, sh, mb, me, true);
|
|
||||||
else
|
|
||||||
fmt_rotateop(ctx->instr_str, "rlwinm", rs, ra, sh, mb, me, true);
|
|
||||||
}
|
|
||||||
|
|
||||||
void opc_rlwnm(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
auto rs = (ctx->instr_code >> 21) & 0x1F;
|
|
||||||
auto ra = (ctx->instr_code >> 16) & 0x1F;
|
|
||||||
auto rb = (ctx->instr_code >> 11) & 0x1F;
|
|
||||||
auto mb = (ctx->instr_code >> 6) & 0x1F;
|
|
||||||
auto me = (ctx->instr_code >> 1) & 0x1F;
|
|
||||||
|
|
||||||
if (ctx->instr_code & 1)
|
|
||||||
fmt_rotateop(ctx->instr_str, "rlwnm.", rs, ra, rb, mb, me, false);
|
|
||||||
else
|
|
||||||
fmt_rotateop(ctx->instr_str, "rlwnm", rs, ra, rb, mb, me, false);
|
|
||||||
}
|
|
||||||
|
|
||||||
void opc_cmp_i_li(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
auto ra = (ctx->instr_code >> 16) & 0x1F;
|
|
||||||
auto crfd = (ctx->instr_code >> 23) & 0x07;
|
|
||||||
auto imm = ctx->instr_code & 0xFFFF;
|
|
||||||
|
|
||||||
if (ctx->instr_code & 0x200000){
|
|
||||||
opc_illegal(ctx);
|
|
||||||
}
|
|
||||||
else{
|
|
||||||
if ((ctx->instr_code >> 26) & 0x2)
|
|
||||||
fmt_threeop_simm(ctx->instr_str, "cmpli", crfd, ra, imm);
|
|
||||||
else
|
|
||||||
fmt_threeop_uimm(ctx->instr_str, "cmpi", crfd, ra, imm);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
void generic_bcx(PPCDisasmContext* ctx, uint32_t bo, uint32_t bi, uint32_t dst)
|
|
||||||
{
|
|
||||||
char opcode[10] = "bc";
|
|
||||||
|
|
||||||
if (ctx->instr_code & 1) {
|
|
||||||
strcat_s(opcode, "l"); /* add suffix "l" if the LK bit is set */
|
|
||||||
}
|
|
||||||
if (ctx->instr_code & 2) {
|
|
||||||
strcat_s(opcode, "a"); /* add suffix "a" if the AA bit is set */
|
|
||||||
}
|
|
||||||
ctx->instr_str = my_sprintf("%-8s%d, %d, 0x%08X", opcode, bo, bi, dst);
|
|
||||||
}
|
|
||||||
|
|
||||||
void generic_bcctrx(PPCDisasmContext* ctx, uint32_t bo, uint32_t bi)
|
|
||||||
{
|
|
||||||
char opcode[10] = "bcctr";
|
|
||||||
|
|
||||||
if (ctx->instr_code & 1) {
|
|
||||||
strcat_s(opcode, "l"); /* add suffix "l" if the LK bit is set */
|
|
||||||
}
|
|
||||||
|
|
||||||
ctx->instr_str = my_sprintf("%-8s%d, %d, 0x%08X", opcode, bo, bi);
|
|
||||||
}
|
|
||||||
|
|
||||||
void generic_bclrx(PPCDisasmContext* ctx, uint32_t bo, uint32_t bi)
|
|
||||||
{
|
|
||||||
char opcode[10] = "bclr";
|
|
||||||
|
|
||||||
if (ctx->instr_code & 1) {
|
|
||||||
strcat_s(opcode, "l"); /* add suffix "l" if the LK bit is set */
|
|
||||||
}
|
|
||||||
|
|
||||||
ctx->instr_str = my_sprintf("%-8s%d, %d, 0x%08X", opcode, bo, bi);
|
|
||||||
}
|
|
||||||
|
|
||||||
void opc_bcx(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
uint32_t bo, bi, dst, cr;
|
|
||||||
char opcode[10] = "b";
|
|
||||||
char operands[10] = "";
|
|
||||||
|
|
||||||
bo = (ctx->instr_code >> 21) & 0x1F;
|
|
||||||
bi = (ctx->instr_code >> 16) & 0x1F;
|
|
||||||
cr = bi >> 2;
|
|
||||||
dst = ((ctx->instr_code & 2) ? 0 : ctx->instr_addr) +
|
|
||||||
SIGNEXT(ctx->instr_code & 0xFFFC, 15);
|
|
||||||
|
|
||||||
if (!ctx->simplified || ((bo & 0x10) && bi) ||
|
|
||||||
(((bo & 0x14) == 0x14) && (bo & 0xB) && bi)) {
|
|
||||||
generic_bcx(ctx, bo, bi, dst);
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
if ((bo & 0x14) == 0x14) {
|
|
||||||
ctx->instr_str = my_sprintf("%-8s0x%08X", bx_mnem[0], dst);
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (!(bo & 4)) {
|
|
||||||
strcat_s(opcode, "d");
|
|
||||||
strcat_s(opcode, (bo & 2) ? "z" : "nz");
|
|
||||||
if (!(bo & 0x10)) {
|
|
||||||
strcat_s(opcode, (bo & 8) ? "t" : "f");
|
|
||||||
if (cr) {
|
|
||||||
strcat_s(operands, "4*cr0+");
|
|
||||||
operands[4] = cr + '0';
|
|
||||||
}
|
|
||||||
strcat_s(operands, br_cond[4 + (bi & 3)]);
|
|
||||||
strcat_s(operands, ", ");
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else { /* CTR ignored */
|
|
||||||
strcat_s(opcode, br_cond[((bo >> 1) & 4) | (bi & 3)]);
|
|
||||||
if (cr) {
|
|
||||||
strcat_s(operands, "cr0, ");
|
|
||||||
operands[2] = cr + '0';
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if (ctx->instr_code & 1) {
|
|
||||||
strcat_s(opcode, "l"); /* add suffix "l" if the LK bit is set */
|
|
||||||
}
|
|
||||||
if (ctx->instr_code & 2) {
|
|
||||||
strcat_s(opcode, "a"); /* add suffix "a" if the AA bit is set */
|
|
||||||
}
|
|
||||||
if (bo & 1) { /* incorporate prediction bit if set */
|
|
||||||
strcat_s(opcode, (ctx->instr_code & 0x8000) ? "-" : "+");
|
|
||||||
}
|
|
||||||
|
|
||||||
ctx->instr_str = my_sprintf("%-8s%s0x%08X", opcode, operands, dst);
|
|
||||||
}
|
|
||||||
|
|
||||||
void opc_bcctrx(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
uint32_t bo, bi, cr;
|
|
||||||
char opcode[10] = "b";
|
|
||||||
char operands[10] = "";
|
|
||||||
|
|
||||||
bo = (ctx->instr_code >> 21) & 0x1F;
|
|
||||||
bi = (ctx->instr_code >> 16) & 0x1F;
|
|
||||||
cr = bi >> 2;
|
|
||||||
|
|
||||||
if (!ctx->simplified || ((bo & 0x10) && bi) ||
|
|
||||||
(((bo & 0x14) == 0x14) && (bo & 0xB) && bi)) {
|
|
||||||
generic_bcctrx(ctx, bo, bi);
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
if ((bo & 0x14) == 0x14) {
|
|
||||||
ctx->instr_str = my_sprintf("%-8s0x%08X", bcctrx_mnem[0]);
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (!(bo & 4)) {
|
|
||||||
strcat_s(opcode, "d");
|
|
||||||
strcat_s(opcode, (bo & 2) ? "z" : "nz");
|
|
||||||
if (!(bo & 0x10)) {
|
|
||||||
strcat_s(opcode, (bo & 8) ? "t" : "f");
|
|
||||||
if (cr) {
|
|
||||||
strcat_s(operands, "4*cr0+");
|
|
||||||
operands[4] = cr + '0';
|
|
||||||
}
|
|
||||||
strcat_s(operands, br_cond[4 + (bi & 3)]);
|
|
||||||
strcat_s(operands, ", ");
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else { /* CTR ignored */
|
|
||||||
strcat_s(opcode, br_cond[((bo >> 1) & 4) | (bi & 3)]);
|
|
||||||
if (cr) {
|
|
||||||
strcat_s(operands, "cr0, ");
|
|
||||||
operands[2] = cr + '0';
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if (ctx->instr_code & 1) {
|
|
||||||
strcat_s(opcode, "l"); /* add suffix "l" if the LK bit is set */
|
|
||||||
}
|
|
||||||
if (bo & 1) { /* incorporate prediction bit if set */
|
|
||||||
strcat_s(opcode, (ctx->instr_code & 0x8000) ? "-" : "+");
|
|
||||||
}
|
|
||||||
|
|
||||||
ctx->instr_str = my_sprintf("%-8s%s0x%08X", opcode, operands);
|
|
||||||
}
|
|
||||||
|
|
||||||
void opc_bclrx(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
uint32_t bo, bi, cr;
|
|
||||||
char opcode[10] = "b";
|
|
||||||
char operands[10] = "";
|
|
||||||
|
|
||||||
bo = (ctx->instr_code >> 21) & 0x1F;
|
|
||||||
bi = (ctx->instr_code >> 16) & 0x1F;
|
|
||||||
cr = bi >> 2;
|
|
||||||
|
|
||||||
if (!ctx->simplified || ((bo & 0x10) && bi) ||
|
|
||||||
(((bo & 0x14) == 0x14) && (bo & 0xB) && bi)) {
|
|
||||||
generic_bcctrx(ctx, bo, bi);
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
if ((bo & 0x14) == 0x14) {
|
|
||||||
ctx->instr_str = my_sprintf("%-8s0x%08X", bcctrx_mnem[0]);
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (!(bo & 4)) {
|
|
||||||
strcat_s(opcode, "d");
|
|
||||||
strcat_s(opcode, (bo & 2) ? "z" : "nz");
|
|
||||||
if (!(bo & 0x10)) {
|
|
||||||
strcat_s(opcode, (bo & 8) ? "t" : "f");
|
|
||||||
if (cr) {
|
|
||||||
strcat_s(operands, "4*cr0+");
|
|
||||||
operands[4] = cr + '0';
|
|
||||||
}
|
|
||||||
strcat_s(operands, br_cond[4 + (bi & 3)]);
|
|
||||||
strcat_s(operands, ", ");
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else { /* CTR ignored */
|
|
||||||
strcat_s(opcode, br_cond[((bo >> 1) & 4) | (bi & 3)]);
|
|
||||||
if (cr) {
|
|
||||||
strcat_s(operands, "cr0, ");
|
|
||||||
operands[2] = cr + '0';
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if (ctx->instr_code & 1) {
|
|
||||||
strcat_s(opcode, "l"); /* add suffix "l" if the LK bit is set */
|
|
||||||
}
|
|
||||||
if (bo & 1) { /* incorporate prediction bit if set */
|
|
||||||
strcat_s(opcode, (ctx->instr_code & 0x8000) ? "-" : "+");
|
|
||||||
}
|
|
||||||
|
|
||||||
ctx->instr_str = my_sprintf("%-8s%s0x%08X", opcode, operands);
|
|
||||||
}
|
|
||||||
|
|
||||||
void opc_bx(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
uint32_t dst = ((ctx->instr_code & 2) ? 0 : ctx->instr_addr)
|
|
||||||
+ SIGNEXT(ctx->instr_code & 0x3FFFFFC, 25);
|
|
||||||
|
|
||||||
ctx->instr_str = my_sprintf("%-8s0x%08X", bx_mnem[ctx->instr_code & 3], dst);
|
|
||||||
}
|
|
||||||
|
|
||||||
void opc_ori(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
auto ra = (ctx->instr_code >> 16) & 0x1F;
|
|
||||||
auto rs = (ctx->instr_code >> 21) & 0x1F;
|
|
||||||
auto imm = ctx->instr_code & 0xFFFF;
|
|
||||||
|
|
||||||
if (!ra && !rs && !imm && ctx->simplified) {
|
|
||||||
ctx->instr_str = "nop";
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
if (imm == 0 && ctx->simplified) { /* inofficial, produced by IDA */
|
|
||||||
fmt_twoop(ctx->instr_str, "mr", ra, rs);
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
fmt_threeop_uimm(ctx->instr_str, "ori", ra, rs, imm);
|
|
||||||
}
|
|
||||||
|
|
||||||
void opc_oris(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
auto ra = (ctx->instr_code >> 16) & 0x1F;
|
|
||||||
auto rs = (ctx->instr_code >> 21) & 0x1F;
|
|
||||||
auto imm = ctx->instr_code & 0xFFFF;
|
|
||||||
|
|
||||||
fmt_threeop_uimm(ctx->instr_str, "oris", ra, rs, imm);
|
|
||||||
}
|
|
||||||
|
|
||||||
void opc_xori(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
auto ra = (ctx->instr_code >> 16) & 0x1F;
|
|
||||||
auto rs = (ctx->instr_code >> 21) & 0x1F;
|
|
||||||
auto imm = ctx->instr_code & 0xFFFF;
|
|
||||||
|
|
||||||
fmt_threeop_uimm(ctx->instr_str, "xori", ra, rs, imm);
|
|
||||||
}
|
|
||||||
|
|
||||||
void opc_xoris(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
auto ra = (ctx->instr_code >> 16) & 0x1F;
|
|
||||||
auto rs = (ctx->instr_code >> 21) & 0x1F;
|
|
||||||
auto imm = ctx->instr_code & 0xFFFF;
|
|
||||||
|
|
||||||
fmt_threeop_uimm(ctx->instr_str, "xoris", ra, rs, imm);
|
|
||||||
}
|
|
||||||
|
|
||||||
void opc_andidot(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
auto ra = (ctx->instr_code >> 16) & 0x1F;
|
|
||||||
auto rs = (ctx->instr_code >> 21) & 0x1F;
|
|
||||||
auto imm = ctx->instr_code & 0xFFFF;
|
|
||||||
|
|
||||||
fmt_threeop_uimm(ctx->instr_str, "andi.", ra, rs, imm);
|
|
||||||
}
|
|
||||||
|
|
||||||
void opc_andisdot(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
auto ra = (ctx->instr_code >> 16) & 0x1F;
|
|
||||||
auto rs = (ctx->instr_code >> 21) & 0x1F;
|
|
||||||
auto imm = ctx->instr_code & 0xFFFF;
|
|
||||||
|
|
||||||
fmt_threeop_uimm(ctx->instr_str, "andis.", ra, rs, imm);
|
|
||||||
}
|
|
||||||
|
|
||||||
void opc_sc(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
ctx->instr_str = my_sprintf("%-8s", "sc");
|
|
||||||
}
|
|
||||||
|
|
||||||
void opc_group19(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
auto rb = (ctx->instr_code >> 11) & 0x1F;
|
|
||||||
auto ra = (ctx->instr_code >> 16) & 0x1F;
|
|
||||||
auto rs = (ctx->instr_code >> 21) & 0x1F;
|
|
||||||
|
|
||||||
int ext_opc = (ctx->instr_code >> 1) & 0x3FF; /* extract extended opcode */
|
|
||||||
|
|
||||||
switch (ext_opc){
|
|
||||||
case 0:
|
|
||||||
ctx->instr_str = my_sprintf("%-8scrf%d, crf%d", "mcrf", (rs >> 2), (ra >> 2));
|
|
||||||
return;
|
|
||||||
case 16:
|
|
||||||
opc_bclrx(ctx);
|
|
||||||
return;
|
|
||||||
case 33:
|
|
||||||
fmt_threeop_crb(ctx->instr_str, "crnor", rs, ra, rb);
|
|
||||||
return;
|
|
||||||
case 50:
|
|
||||||
ctx->instr_str = my_sprintf("%-8sr%d", "rfi");
|
|
||||||
return;
|
|
||||||
case 129:
|
|
||||||
fmt_threeop_crb(ctx->instr_str, "crandc", rs, ra, rb);
|
|
||||||
return;
|
|
||||||
case 150:
|
|
||||||
ctx->instr_str = my_sprintf("%-8sr%d", "isync");
|
|
||||||
return;
|
|
||||||
case 193:
|
|
||||||
fmt_threeop_crb(ctx->instr_str, "crxor", rs, ra, rb);
|
|
||||||
return;
|
|
||||||
case 225:
|
|
||||||
fmt_threeop_crb(ctx->instr_str, "crnand", rs, ra, rb);
|
|
||||||
return;
|
|
||||||
case 257:
|
|
||||||
fmt_threeop_crb(ctx->instr_str, "crand", rs, ra, rb);
|
|
||||||
return;
|
|
||||||
case 289:
|
|
||||||
fmt_threeop_crb(ctx->instr_str, "creqv", rs, ra, rb);
|
|
||||||
return;
|
|
||||||
case 417:
|
|
||||||
fmt_threeop_crb(ctx->instr_str, "crorc", rs, ra, rb);
|
|
||||||
return;
|
|
||||||
case 449:
|
|
||||||
fmt_threeop_crb(ctx->instr_str, "cror", rs, ra, rb);
|
|
||||||
return;
|
|
||||||
case 528:
|
|
||||||
opc_bcctrx(ctx);
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
void opc_group31(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
char opcode[10] = "";
|
|
||||||
|
|
||||||
auto rb = (ctx->instr_code >> 11) & 0x1F;
|
|
||||||
auto ra = (ctx->instr_code >> 16) & 0x1F;
|
|
||||||
auto rs = (ctx->instr_code >> 21) & 0x1F;
|
|
||||||
|
|
||||||
int ext_opc = (ctx->instr_code >> 1) & 0x3FF; /* extract extended opcode */
|
|
||||||
int index = ext_opc >> 5;
|
|
||||||
bool rc_set = ctx->instr_code & 1;
|
|
||||||
|
|
||||||
switch (ext_opc & 0x1F) {
|
|
||||||
case 8: /* subtracts & friends */
|
|
||||||
index &= 0xF; /* strip OE bit */
|
|
||||||
if (!strlen(opc_subs[index])) {
|
|
||||||
opc_illegal(ctx);
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
strcpy_s(opcode, opc_subs[index]);
|
|
||||||
if (ext_opc & 0x200) /* check OE bit */
|
|
||||||
strcat_s(opcode, "o");
|
|
||||||
if (rc_set)
|
|
||||||
strcat_s(opcode, ".");
|
|
||||||
if (index == 3 || index == 6 || index == 7 || index == 11 ||
|
|
||||||
index == 15) { /* ugly check for two-operands instructions */
|
|
||||||
if (rb != 0)
|
|
||||||
opc_illegal(ctx);
|
|
||||||
else
|
|
||||||
fmt_twoop(ctx->instr_str, opcode, rs, ra);
|
|
||||||
}
|
|
||||||
else
|
|
||||||
fmt_threeop(ctx->instr_str, opcode, rs, ra, rb);
|
|
||||||
}
|
|
||||||
return;
|
|
||||||
|
|
||||||
case 10: /* additions */
|
|
||||||
index &= 0xF; /* strip OE bit */
|
|
||||||
if (index > 8 || !strlen(opc_adds[index])) {
|
|
||||||
opc_illegal(ctx);
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
strcpy_s(opcode, opc_adds[index]);
|
|
||||||
if (ext_opc & 0x200) /* check OE bit */
|
|
||||||
strcat_s(opcode, "o");
|
|
||||||
if (rc_set)
|
|
||||||
strcat_s(opcode, ".");
|
|
||||||
if (index == 6 || index == 7) {
|
|
||||||
if (rb != 0)
|
|
||||||
opc_illegal(ctx);
|
|
||||||
else
|
|
||||||
fmt_twoop(ctx->instr_str, opcode, rs, ra);
|
|
||||||
}
|
|
||||||
else
|
|
||||||
fmt_threeop(ctx->instr_str, opcode, rs, ra, rb);
|
|
||||||
}
|
|
||||||
return;
|
|
||||||
|
|
||||||
case 11: /* integer multiplications and divisions */
|
|
||||||
index &= 0xF; /* strip OE bit */
|
|
||||||
if (!strlen(opc_muldivs[index])) {
|
|
||||||
opc_illegal(ctx);
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
strcpy_s(opcode, opc_muldivs[index]);
|
|
||||||
if (ext_opc & 0x200) /* check OE bit */
|
|
||||||
strcat_s(opcode, "o");
|
|
||||||
if (rc_set)
|
|
||||||
strcat_s(opcode, ".");
|
|
||||||
if ((!index || index == 2) && (ext_opc & 0x200))
|
|
||||||
opc_illegal(ctx);
|
|
||||||
else
|
|
||||||
fmt_threeop(ctx->instr_str, opcode, rs, ra, rb);
|
|
||||||
}
|
|
||||||
return;
|
|
||||||
|
|
||||||
case 0x1C: /* logical instructions */
|
|
||||||
if (index == 13 && rs == rb && ctx->simplified) {
|
|
||||||
fmt_twoop(ctx->instr_str, rc_set ? "mr." : "mr", ra, rs);
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
strcpy_s(opcode, opc_logic[index]);
|
|
||||||
if (!strlen(opcode)) {
|
|
||||||
opc_illegal(ctx);
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
if (rc_set)
|
|
||||||
strcat_s(opcode, ".");
|
|
||||||
fmt_threeop(ctx->instr_str, opcode, ra, rs, rb);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return;
|
|
||||||
|
|
||||||
case 0x17: /* indexed load/store instructions */
|
|
||||||
if (index > 23 || rc_set || strlen(opc_idx_ldst[index]) == 0) {
|
|
||||||
opc_illegal(ctx);
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
if (index < 16)
|
|
||||||
fmt_threeop(ctx->instr_str, opc_idx_ldst[index], rs, ra, rb);
|
|
||||||
else
|
|
||||||
ctx->instr_str = my_sprintf("%-8sfp%d, r%d, r%d",
|
|
||||||
opc_idx_ldst[index], rs, ra, rb);
|
|
||||||
return;
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
|
|
||||||
auto ref_spr = (((ctx->instr_code >> 11) & 31) << 5) | ((ctx->instr_code >> 16) & 31);
|
|
||||||
|
|
||||||
switch (ext_opc) {
|
|
||||||
case 4:
|
|
||||||
if (rc_set)
|
|
||||||
opc_illegal(ctx);
|
|
||||||
else
|
|
||||||
ctx->instr_str = my_sprintf("%-8s%d, r%d, r%d", "tw", rs, ra, rb);
|
|
||||||
break;
|
|
||||||
case 19: /* mfcr */
|
|
||||||
fmt_oneop(ctx->instr_str, "mfcr", rs);
|
|
||||||
break;
|
|
||||||
case 83: /* mfmsr */
|
|
||||||
ctx->instr_str = my_sprintf("%-8s0x%02X, r%d", "mfmsr",
|
|
||||||
(ctx->instr_code >> 21) & 0x1F);
|
|
||||||
break;
|
|
||||||
case 144: /* mtcrf */
|
|
||||||
if (ctx->instr_code & 0x100801)
|
|
||||||
opc_illegal(ctx);
|
|
||||||
else {
|
|
||||||
ctx->instr_str = my_sprintf("%-8s0x%02X, r%d", "mtcrf",
|
|
||||||
(ctx->instr_code >> 12) & 0xFF, rs);
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
case 146: /* mtmsr */
|
|
||||||
fmt_oneop(ctx->instr_str, "mtmsr", rs);
|
|
||||||
break;
|
|
||||||
case 339: /* mfspr */
|
|
||||||
fmt_twoop_fromspr(ctx->instr_str, "mfspr", rs, ref_spr);
|
|
||||||
break;
|
|
||||||
case 467: /* mtspr */
|
|
||||||
fmt_twoop_tospr(ctx->instr_str, "mtspr", ref_spr, rs);
|
|
||||||
break;
|
|
||||||
default:
|
|
||||||
opc_illegal(ctx);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
void opc_intldst(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
int32_t opcode = (ctx->instr_code >> 26) - 32;
|
|
||||||
int32_t ra = (ctx->instr_code >> 16) & 0x1F;
|
|
||||||
int32_t rd = (ctx->instr_code >> 21) & 0x1F;
|
|
||||||
int32_t imm = SIGNEXT(ctx->instr_code & 0xFFFF, 15);
|
|
||||||
|
|
||||||
/* ra = 0 is forbidden for loads and stores with update */
|
|
||||||
/* ra = rd is forbidden for loads with update */
|
|
||||||
if (((opcode < 14) && (opcode & 5) == 1 && ra == rd) || ((opcode & 1) && !ra))
|
|
||||||
{
|
|
||||||
opc_illegal(ctx);
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (ra) {
|
|
||||||
ctx->instr_str = my_sprintf("%-8sr%d, %s0x%X(r%d)", opc_int_ldst[opcode],
|
|
||||||
rd, ((imm < 0) ? "-" : ""), abs(imm), ra);
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
ctx->instr_str = my_sprintf("%-8sr%d, %s0x%X", opc_int_ldst[opcode],
|
|
||||||
rd, ((imm < 0) ? "-" : ""), abs(imm));
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
void opc_fltldst(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
int32_t opcode = (ctx->instr_code >> 26) - 48;
|
|
||||||
int32_t ra = (ctx->instr_code >> 16) & 0x1F;
|
|
||||||
int32_t rd = (ctx->instr_code >> 21) & 0x1F;
|
|
||||||
int32_t imm = SIGNEXT(ctx->instr_code & 0xFFFF, 15);
|
|
||||||
|
|
||||||
/* ra = 0 is forbidden for loads and stores with update */
|
|
||||||
/* ra = rd is forbidden for loads with update */
|
|
||||||
if ((((opcode == 1) || (opcode == 3)) && ra == rd) || ((opcode & 1) && !ra))
|
|
||||||
{
|
|
||||||
opc_illegal(ctx);
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (ra) {
|
|
||||||
ctx->instr_str = my_sprintf("%-8sfr%d, %s0x%X(r%d)", opc_flt_ldst[opcode],
|
|
||||||
rd, ((imm < 0) ? "-" : ""), abs(imm), ra);
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
ctx->instr_str = my_sprintf("%-8sfr%d, %s0x%X", opc_flt_ldst[opcode],
|
|
||||||
rd, ((imm < 0) ? "-" : ""), abs(imm));
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/** main dispatch table. */
|
|
||||||
static std::function<void(PPCDisasmContext*)> OpcodeDispatchTable[64] = {
|
|
||||||
opc_illegal, opc_illegal, opc_illegal, opc_twi,
|
|
||||||
opc_group4, opc_illegal, opc_illegal, opc_ar_im,
|
|
||||||
opc_ar_im, power_dozi, opc_cmp_i_li, opc_cmp_i_li,
|
|
||||||
opc_ar_im, opc_ar_im, opc_ar_im, opc_ar_im,
|
|
||||||
opc_bcx, opc_sc, opc_bx, opc_group19,
|
|
||||||
opc_rlwimi, opc_rlwinm, opc_illegal, opc_rlwnm,
|
|
||||||
opc_ori, opc_oris, opc_xori, opc_xoris,
|
|
||||||
opc_andidot, opc_andisdot, opc_illegal, opc_group31,
|
|
||||||
opc_intldst, opc_intldst, opc_intldst, opc_intldst,
|
|
||||||
opc_intldst, opc_intldst, opc_intldst, opc_intldst,
|
|
||||||
opc_intldst, opc_intldst, opc_intldst, opc_intldst,
|
|
||||||
opc_intldst, opc_intldst, opc_intldst, opc_intldst,
|
|
||||||
opc_fltldst, opc_fltldst, opc_fltldst, opc_fltldst,
|
|
||||||
opc_fltldst, opc_fltldst, opc_fltldst, opc_fltldst,
|
|
||||||
opc_illegal, opc_illegal, opc_illegal, opc_illegal,
|
|
||||||
opc_illegal, opc_illegal, opc_illegal, opc_illegal
|
|
||||||
};
|
|
||||||
|
|
||||||
string disassemble_single(PPCDisasmContext* ctx)
|
|
||||||
{
|
|
||||||
OpcodeDispatchTable[ctx->instr_code >> 26](ctx);
|
|
||||||
|
|
||||||
ctx->instr_addr += 4;
|
|
||||||
|
|
||||||
return ctx->instr_str;
|
|
||||||
}
|
|
||||||
@ -1,19 +0,0 @@
|
|||||||
#ifndef PPCDISASM_H
|
|
||||||
#define PPCDISASM_H
|
|
||||||
|
|
||||||
#include <cinttypes>
|
|
||||||
#include <string>
|
|
||||||
|
|
||||||
typedef struct PPCDisasmContext {
|
|
||||||
uint32_t instr_addr = 0;
|
|
||||||
uint32_t instr_code;
|
|
||||||
std::string instr_str;
|
|
||||||
bool simplified; /* true if we should output simplified mnemonics */
|
|
||||||
} PPCDisasmContext;
|
|
||||||
|
|
||||||
std::string disassemble_single(PPCDisasmContext *ctx);
|
|
||||||
|
|
||||||
/** sign-extend an integer. */
|
|
||||||
#define SIGNEXT(x, sb) ((x) | (((x) & (1 << (sb))) ? ~((1 << (sb))-1) : 0))
|
|
||||||
|
|
||||||
#endif /* PPCDISASM_H */
|
|
||||||
@ -65,17 +65,17 @@ extern SetPRS ppc_state;
|
|||||||
|
|
||||||
/** symbolic names for frequently used SPRs */
|
/** symbolic names for frequently used SPRs */
|
||||||
enum SPR : int {
|
enum SPR : int {
|
||||||
MQ = 0,
|
MQ = 0,
|
||||||
XER = 1,
|
XER = 1,
|
||||||
LR = 8,
|
LR = 8,
|
||||||
CTR = 9,
|
CTR = 9,
|
||||||
DSISR = 18,
|
DSISR = 18,
|
||||||
DAR = 19,
|
DAR = 19,
|
||||||
DEC = 22,
|
DEC = 22,
|
||||||
SDR1 = 25,
|
SDR1 = 25,
|
||||||
SRR0 = 26,
|
SRR0 = 26,
|
||||||
SRR1 = 27,
|
SRR1 = 27,
|
||||||
PVR = 287
|
PVR = 287
|
||||||
};
|
};
|
||||||
|
|
||||||
/** symbolic names for frequently used SPRs */
|
/** symbolic names for frequently used SPRs */
|
||||||
@ -86,11 +86,11 @@ enum TBR : int {
|
|||||||
|
|
||||||
/** symbolic names for common PPC processors */
|
/** symbolic names for common PPC processors */
|
||||||
enum PPC_VER : uint32_t {
|
enum PPC_VER : uint32_t {
|
||||||
MPC601 = 0x00010001,
|
MPC601 = 0x00010001,
|
||||||
MPC603 = 0x00030001,
|
MPC603 = 0x00030001,
|
||||||
MPC604 = 0x00040001,
|
MPC604 = 0x00040001,
|
||||||
MPC603E = 0x00060101,
|
MPC603E = 0x00060101,
|
||||||
MPC750 = 0x00080200
|
MPC750 = 0x00080200
|
||||||
};
|
};
|
||||||
|
|
||||||
/**
|
/**
|
||||||
@ -665,4 +665,4 @@ extern void ppc_exec(void);
|
|||||||
extern void ppc_exec_single(void);
|
extern void ppc_exec_single(void);
|
||||||
extern void ppc_exec_until(uint32_t goal_addr);
|
extern void ppc_exec_until(uint32_t goal_addr);
|
||||||
|
|
||||||
#endif /* PPCEMU_H */
|
#endif /* PPCEMU_H */
|
||||||
|
|||||||
@ -14,7 +14,7 @@ jmp_buf exc_env; /* Global exception environment. */
|
|||||||
#endif
|
#endif
|
||||||
bb_kind = BB_end_kind::BB_EXCEPTION;
|
bb_kind = BB_end_kind::BB_EXCEPTION;
|
||||||
|
|
||||||
switch (exception_type) {
|
switch(exception_type) {
|
||||||
case Except_Type::EXC_SYSTEM_RESET:
|
case Except_Type::EXC_SYSTEM_RESET:
|
||||||
ppc_state.ppc_spr[SPR::SRR0] = ppc_cur_instruction & 0xFFFFFFFC;
|
ppc_state.ppc_spr[SPR::SRR0] = ppc_cur_instruction & 0xFFFFFFFC;
|
||||||
ppc_next_instruction_address = 0x0100;
|
ppc_next_instruction_address = 0x0100;
|
||||||
@ -90,4 +90,4 @@ jmp_buf exc_env; /* Global exception environment. */
|
|||||||
}
|
}
|
||||||
|
|
||||||
longjmp(exc_env, 2); /* return to the main execution loop. */
|
longjmp(exc_env, 2); /* return to the main execution loop. */
|
||||||
}
|
}
|
||||||
|
|||||||
@ -421,7 +421,7 @@ void ppc_opcode4() {
|
|||||||
uint8_t subop_grab = ppc_cur_instruction & 3;
|
uint8_t subop_grab = ppc_cur_instruction & 3;
|
||||||
uint32_t regrab = (uint32_t)subop_grab;
|
uint32_t regrab = (uint32_t)subop_grab;
|
||||||
printf("Executing subopcode entry %d \n"
|
printf("Executing subopcode entry %d \n"
|
||||||
"... or would if I bothered to implement it. SORRY!", regrab);
|
".. or would if I bothered to implement it. SORRY!", regrab);
|
||||||
exit(0);
|
exit(0);
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -778,12 +778,11 @@ void ppc_cpu_init(uint32_t proc_version)
|
|||||||
if ((proc_version & 0xFFFF0000) == 0x00010000) {
|
if ((proc_version & 0xFFFF0000) == 0x00010000) {
|
||||||
/* MPC601 sets MSR[ME] bit during hard reset / Power-On */
|
/* MPC601 sets MSR[ME] bit during hard reset / Power-On */
|
||||||
ppc_state.ppc_msr = 0x1040;
|
ppc_state.ppc_msr = 0x1040;
|
||||||
}
|
} else {
|
||||||
else {
|
|
||||||
ppc_state.ppc_msr = 0x40;
|
ppc_state.ppc_msr = 0x40;
|
||||||
ppc_state.ppc_spr[SPR::DEC] = 0xFFFFFFFFUL;
|
ppc_state.ppc_spr[SPR::DEC] = 0xFFFFFFFFUL;
|
||||||
}
|
}
|
||||||
|
|
||||||
/* redirect code execution to reset vector */
|
/* redirect code execution to reset vector */
|
||||||
ppc_state.ppc_pc = 0xFFF00100;
|
ppc_state.ppc_pc = 0xFFF00100;
|
||||||
}
|
}
|
||||||
|
|||||||
@ -1231,4 +1231,4 @@ void ppc_fcmpu() {
|
|||||||
if ((db_test_a == snan) || (db_test_b == snan)) {
|
if ((db_test_a == snan) || (db_test_b == snan)) {
|
||||||
ppc_state.ppc_fpscr |= 0x1000000;
|
ppc_state.ppc_fpscr |= 0x1000000;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|||||||
@ -24,15 +24,15 @@
|
|||||||
#include "ppcmmu.h"
|
#include "ppcmmu.h"
|
||||||
#include "devices/memctrlbase.h"
|
#include "devices/memctrlbase.h"
|
||||||
|
|
||||||
/** PowerPC-style MMU BAT arrays (NULL initialization isn't prescribed). */
|
/** PowerPC-style MMU BAT arrays (NULL initialization isn't prescribed). */
|
||||||
PPC_BAT_entry ibat_array[4] = { {0} };
|
PPC_BAT_entry ibat_array[4] = { {0} };
|
||||||
PPC_BAT_entry dbat_array[4] = { {0} };
|
PPC_BAT_entry dbat_array[4] = { {0} };
|
||||||
|
|
||||||
/** remember recently used physical memory regions for quicker translation. */
|
/** remember recently used physical memory regions for quicker translation. */
|
||||||
AddressMapEntry last_read_area = { 0 };
|
AddressMapEntry last_read_area = { 0 };
|
||||||
AddressMapEntry last_write_area = { 0 };
|
AddressMapEntry last_write_area = { 0 };
|
||||||
AddressMapEntry last_exec_area = { 0 };
|
AddressMapEntry last_exec_area = { 0 };
|
||||||
AddressMapEntry last_ptab_area = { 0 };
|
AddressMapEntry last_ptab_area = { 0 };
|
||||||
|
|
||||||
|
|
||||||
/* macro for generating code reading from physical memory */
|
/* macro for generating code reading from physical memory */
|
||||||
@ -155,8 +155,8 @@ static inline uint8_t* calc_pteg_addr(uint32_t hash)
|
|||||||
else {
|
else {
|
||||||
AddressMapEntry* entry = mem_ctrl_instance->find_range(pteg_addr);
|
AddressMapEntry* entry = mem_ctrl_instance->find_range(pteg_addr);
|
||||||
if (entry && entry->type & (RT_ROM | RT_RAM)) {
|
if (entry && entry->type & (RT_ROM | RT_RAM)) {
|
||||||
last_ptab_area.start = entry->start;
|
last_ptab_area.start = entry->start;
|
||||||
last_ptab_area.end = entry->end;
|
last_ptab_area.end = entry->end;
|
||||||
last_ptab_area.mem_ptr = entry->mem_ptr;
|
last_ptab_area.mem_ptr = entry->mem_ptr;
|
||||||
return last_ptab_area.mem_ptr + (pteg_addr - last_ptab_area.start);
|
return last_ptab_area.mem_ptr + (pteg_addr - last_ptab_area.start);
|
||||||
}
|
}
|
||||||
@ -364,8 +364,7 @@ static void mem_write_unaligned(uint32_t addr, uint32_t value, uint32_t size)
|
|||||||
if (((addr & 0xFFF) + size) > 0x1000) {
|
if (((addr & 0xFFF) + size) > 0x1000) {
|
||||||
printf("SOS! Cross-page unaligned write, addr=%08X, size=%d\n", addr, size);
|
printf("SOS! Cross-page unaligned write, addr=%08X, size=%d\n", addr, size);
|
||||||
exit(-1); //FIXME!
|
exit(-1); //FIXME!
|
||||||
}
|
} else {
|
||||||
else {
|
|
||||||
/* data address translation if enabled */
|
/* data address translation if enabled */
|
||||||
if (ppc_state.ppc_msr & 0x10) {
|
if (ppc_state.ppc_msr & 0x10) {
|
||||||
addr = ppc_mmu_addr_translate(addr, 0);
|
addr = ppc_mmu_addr_translate(addr, 0);
|
||||||
@ -373,8 +372,7 @@ static void mem_write_unaligned(uint32_t addr, uint32_t value, uint32_t size)
|
|||||||
|
|
||||||
if (size == 2) {
|
if (size == 2) {
|
||||||
WRITE_PHYS_MEM(last_write_area, addr, WRITE_WORD_BE_U, value, 2);
|
WRITE_PHYS_MEM(last_write_area, addr, WRITE_WORD_BE_U, value, 2);
|
||||||
}
|
} else {
|
||||||
else {
|
|
||||||
WRITE_PHYS_MEM(last_write_area, addr, WRITE_DWORD_BE_U, value, 4);
|
WRITE_PHYS_MEM(last_write_area, addr, WRITE_DWORD_BE_U, value, 4);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -387,7 +385,7 @@ void mem_write_byte(uint32_t addr, uint8_t value)
|
|||||||
addr = ppc_mmu_addr_translate(addr, 1);
|
addr = ppc_mmu_addr_translate(addr, 1);
|
||||||
}
|
}
|
||||||
|
|
||||||
#define WRITE_BYTE(addr, val) (*(addr) = val)
|
#define WRITE_BYTE(addr, val) (*(addr) = val)
|
||||||
|
|
||||||
WRITE_PHYS_MEM(last_write_area, addr, WRITE_BYTE, value, 1);
|
WRITE_PHYS_MEM(last_write_area, addr, WRITE_BYTE, value, 1);
|
||||||
}
|
}
|
||||||
@ -444,8 +442,7 @@ static uint32_t mem_grab_unaligned(uint32_t addr, uint32_t size)
|
|||||||
if (((addr & 0xFFF) + size) > 0x1000) {
|
if (((addr & 0xFFF) + size) > 0x1000) {
|
||||||
printf("SOS! Cross-page unaligned read, addr=%08X, size=%d\n", addr, size);
|
printf("SOS! Cross-page unaligned read, addr=%08X, size=%d\n", addr, size);
|
||||||
exit(-1); //FIXME!
|
exit(-1); //FIXME!
|
||||||
}
|
} else {
|
||||||
else {
|
|
||||||
/* data address translation if enabled */
|
/* data address translation if enabled */
|
||||||
if (ppc_state.ppc_msr & 0x10) {
|
if (ppc_state.ppc_msr & 0x10) {
|
||||||
addr = ppc_mmu_addr_translate(addr, 0);
|
addr = ppc_mmu_addr_translate(addr, 0);
|
||||||
@ -453,8 +450,7 @@ static uint32_t mem_grab_unaligned(uint32_t addr, uint32_t size)
|
|||||||
|
|
||||||
if (size == 2) {
|
if (size == 2) {
|
||||||
READ_PHYS_MEM(last_read_area, addr, READ_WORD_BE_U, 2, 0xFFFFU);
|
READ_PHYS_MEM(last_read_area, addr, READ_WORD_BE_U, 2, 0xFFFFU);
|
||||||
}
|
} else {
|
||||||
else {
|
|
||||||
READ_PHYS_MEM(last_read_area, addr, READ_DWORD_BE_U, 4, 0xFFFFFFFFUL);
|
READ_PHYS_MEM(last_read_area, addr, READ_DWORD_BE_U, 4, 0xFFFFFFFFUL);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -557,4 +553,4 @@ uint8_t* quickinstruction_translate(uint32_t addr)
|
|||||||
}
|
}
|
||||||
|
|
||||||
return real_addr;
|
return real_addr;
|
||||||
}
|
}
|
||||||
|
|||||||
@ -41,4 +41,4 @@ extern uint32_t mem_grab_dword(uint32_t addr);
|
|||||||
extern uint64_t mem_grab_qword(uint32_t addr);
|
extern uint64_t mem_grab_qword(uint32_t addr);
|
||||||
extern uint8_t* quickinstruction_translate(uint32_t address_grab);
|
extern uint8_t* quickinstruction_translate(uint32_t address_grab);
|
||||||
|
|
||||||
#endif // PPCMEMORY_H
|
#endif // PPCMEMORY_H
|
||||||
|
|||||||
@ -2463,4 +2463,4 @@ void ppc_tlbsync() {
|
|||||||
supervisor_inst_num++;
|
supervisor_inst_num++;
|
||||||
#endif
|
#endif
|
||||||
printf("Placeholder for tlbsync \n");
|
printf("Placeholder for tlbsync \n");
|
||||||
}
|
}
|
||||||
|
|||||||
@ -13,7 +13,6 @@
|
|||||||
#include <map>
|
#include <map>
|
||||||
#include "ppcemu.h"
|
#include "ppcemu.h"
|
||||||
#include "../cpu/ppc/ppcmmu.h"
|
#include "../cpu/ppc/ppcmmu.h"
|
||||||
#include "../cpu/ppc/ppcdisasm.h"
|
|
||||||
|
|
||||||
using namespace std;
|
using namespace std;
|
||||||
|
|
||||||
@ -39,23 +38,11 @@ void show_help()
|
|||||||
#ifdef PROFILER
|
#ifdef PROFILER
|
||||||
cout << " profiler -- show stats related to the processor" << endl;
|
cout << " profiler -- show stats related to the processor" << endl;
|
||||||
#endif
|
#endif
|
||||||
cout << " disas X,N -- disassemble N instructions starting at address X" << endl;
|
cout << " disas X,n -- disassemble N instructions starting at address X" << endl;
|
||||||
cout << " quit -- quit the debugger" << endl << endl;
|
cout << " quit -- quit the debugger" << endl << endl;
|
||||||
cout << "Pressing ENTER will repeat last command." << endl;
|
cout << "Pressing ENTER will repeat last command." << endl;
|
||||||
}
|
}
|
||||||
|
|
||||||
bool find_gpr(string entry) {
|
|
||||||
for (int gpr_index = 0; gpr_index < 32; gpr_index++) {
|
|
||||||
string str_grab = array_gprs[gpr_index];
|
|
||||||
if (str_grab.compare(entry) == 0) {
|
|
||||||
gpr_num = gpr_index;
|
|
||||||
return 1;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
void dump_regs()
|
void dump_regs()
|
||||||
{
|
{
|
||||||
for (uint32_t i = 0; i < 32; i++)
|
for (uint32_t i = 0; i < 32; i++)
|
||||||
@ -69,25 +56,22 @@ void dump_regs()
|
|||||||
cout << "MSR: " << hex << ppc_state.ppc_msr << endl;
|
cout << "MSR: " << hex << ppc_state.ppc_msr << endl;
|
||||||
}
|
}
|
||||||
|
|
||||||
void disasm(uint32_t inst_num = 1UL, uint32_t address = ppc_state.ppc_pc)
|
bool find_gpr(string entry) {
|
||||||
{
|
for (int gpr_index = 0; gpr_index < 32; gpr_index++) {
|
||||||
PPCDisasmContext ctx;
|
string str_grab = array_gprs[gpr_index];
|
||||||
|
if (str_grab.compare(entry) == 0) {
|
||||||
for (uint32_t inst_loop = 0; inst_loop < inst_num; inst_loop++) {
|
gpr_num = gpr_index;
|
||||||
quickinstruction_translate(address);
|
return 1;
|
||||||
|
}
|
||||||
ctx.instr_addr = address;
|
|
||||||
ctx.instr_code = ppc_cur_instruction;
|
|
||||||
ctx.simplified = true;
|
|
||||||
cout << hex << address << " " << disassemble_single(&ctx) << endl;
|
|
||||||
address += 4;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
void enter_debugger()
|
void enter_debugger()
|
||||||
{
|
{
|
||||||
string inp, cmd, addr_str, expr_str, reg_expr, last_cmd, reg_value_str, inst_string, inst_num_str;
|
string inp, cmd, addr_str, expr_str, reg_expr, last_cmd, reg_value_str;
|
||||||
uint32_t addr, reg_value, inst_grab;
|
uint32_t addr, reg_value;
|
||||||
std::stringstream ss;
|
std::stringstream ss;
|
||||||
|
|
||||||
cout << "Welcome to the PowerPC debugger." << endl;
|
cout << "Welcome to the PowerPC debugger." << endl;
|
||||||
@ -145,19 +129,8 @@ void enter_debugger()
|
|||||||
ss >> addr_str;
|
ss >> addr_str;
|
||||||
addr = stoul(addr_str, NULL, 16);
|
addr = stoul(addr_str, NULL, 16);
|
||||||
ppc_exec_until(addr);
|
ppc_exec_until(addr);
|
||||||
}else if (cmd == "disas") {
|
} else if (cmd == "disas") {
|
||||||
ss >> expr_str;
|
cout << "Disassembling not implemented yet. Sorry!" << endl;
|
||||||
if (expr_str.length() > 5){
|
|
||||||
printf("MAGIC");
|
|
||||||
inst_num_str = expr_str.substr(expr_str.find(" ") + 1, expr_str.find(","));
|
|
||||||
inst_grab = stoul(inst_num_str, NULL, 0);
|
|
||||||
addr_str = expr_str.substr(expr_str.find(",") + 1, expr_str.length() - 1);
|
|
||||||
addr = stoul(addr_str, NULL, 16);
|
|
||||||
disasm(inst_grab, addr);
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
disasm();
|
|
||||||
}
|
|
||||||
} else {
|
} else {
|
||||||
cout << "Unknown command: " << cmd << endl;
|
cout << "Unknown command: " << cmd << endl;
|
||||||
continue;
|
continue;
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user