123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664 |
- "use strict";
- CPU.prototype.debug_init = function()
- {
- var cpu = this;
- var debug = {};
- this.debug = debug;
- debug.init = function()
- {
- if(!DEBUG) return;
- if(cpu.io)
- {
- // write seabios debug output to console
- var seabios_debug = "";
- cpu.io.register_write(0x402, this, handle); // seabios
- cpu.io.register_write(0x500, this, handle); // vgabios
- }
- function handle(out_byte)
- {
- if(out_byte === 10)
- {
- dbg_log(seabios_debug, LOG_BIOS);
- seabios_debug = "";
- }
- else
- {
- seabios_debug += String.fromCharCode(out_byte);
- }
- }
- };
- debug.get_regs_short = get_regs_short;
- debug.dump_regs = dump_regs_short;
- debug.get_state = get_state;
- debug.dump_state = dump_state;
- debug.dump_stack = dump_stack;
- debug.dump_page_structures = dump_page_structures;
- debug.dump_gdt_ldt = dump_gdt_ldt;
- debug.dump_idt = dump_idt;
- debug.get_memory_dump = get_memory_dump;
- debug.memory_hex_dump = memory_hex_dump;
- debug.used_memory_dump = used_memory_dump;
- function dump_stack(start, end)
- {
- if(!DEBUG) return;
- var esp = cpu.reg32[REG_ESP];
- dbg_log("========= STACK ==========");
- if(end >= start || end === undefined)
- {
- start = 5;
- end = -5;
- }
- for(var i = start; i > end; i--)
- {
- var line = " ";
- if(!i) line = "=> ";
- line += h(i, 2) + " | ";
- dbg_log(line + h(esp + 4 * i, 8) + " | " + h(cpu.read32s(esp + 4 * i) >>> 0));
- }
- }
- function get_state(where)
- {
- if(!DEBUG) return;
- var mode = cpu.protected_mode[0] ? "prot" : "real";
- var vm = (cpu.flags[0] & FLAG_VM) ? 1 : 0;
- var flags = cpu.get_eflags();
- var iopl = cpu.getiopl();
- var cpl = cpu.cpl[0];
- var cs_eip = h(cpu.sreg[REG_CS], 4) + ":" + h(cpu.get_real_eip() >>> 0, 8);
- var ss_esp = h(cpu.sreg[REG_SS], 4) + ":" + h(cpu.reg32[REG_ES] >>> 0, 8);
- var op_size = cpu.is_32[0] ? "32" : "16";
- var if_ = (cpu.flags[0] & FLAG_INTERRUPT) ? 1 : 0;
- var flag_names = {
- [FLAG_CARRY]: "c",
- [FLAG_PARITY]: "p",
- [FLAG_ADJUST]: "a",
- [FLAG_ZERO]: "z",
- [FLAG_SIGN]: "s",
- [FLAG_TRAP]: "t",
- [FLAG_INTERRUPT]: "i",
- [FLAG_DIRECTION]: "d",
- [FLAG_OVERFLOW]: "o",
- };
- var flag_string = "";
- for(var i = 0; i < 16; i++)
- {
- if(flag_names[1 << i])
- {
- if(flags & 1 << i)
- {
- flag_string += flag_names[1 << i];
- }
- else
- {
- flag_string += " ";
- }
- }
- }
- return ("mode=" + mode + "/" + op_size + " paging=" + (+((cpu.cr[0] & CR0_PG) !== 0)) +
- " pae=" + (+((cpu.cr[4] & CR4_PAE) !== 0)) +
- " iopl=" + iopl + " cpl=" + cpl + " if=" + if_ + " cs:eip=" + cs_eip +
- " cs_off=" + h(cpu.get_seg_cs() >>> 0, 8) +
- " flgs=" + h(cpu.get_eflags() >>> 0, 6) + " (" + flag_string + ")" +
- " ss:esp=" + ss_esp +
- " ssize=" + (+cpu.stack_size_32[0]) +
- (where ? " in " + where : ""));
- }
- function dump_state(where)
- {
- if(!DEBUG) return;
- dbg_log(get_state(where), LOG_CPU);
- }
- function get_regs_short()
- {
- if(!DEBUG) return;
- var
- r32 = { "eax": REG_EAX, "ecx": REG_ECX, "edx": REG_EDX, "ebx": REG_EBX,
- "esp": REG_ESP, "ebp": REG_EBP, "esi": REG_ESI, "edi": REG_EDI },
- r32_names = ["eax", "ecx", "edx", "ebx", "esp", "ebp", "esi", "edi"],
- s = { "cs": REG_CS, "ds": REG_DS, "es": REG_ES, "fs": REG_FS, "gs": REG_GS, "ss": REG_SS },
- line1 = "",
- line2 = "";
- for(var i = 0; i < 4; i++)
- {
- line1 += r32_names[i] + "=" + h(cpu.reg32[r32[r32_names[i]]] >>> 0, 8) + " ";
- line2 += r32_names[i+4] + "=" + h(cpu.reg32[r32[r32_names[i+4]]] >>> 0, 8) + " ";
- }
- //line1 += " eip=" + h(cpu.get_real_eip() >>> 0, 8);
- //line2 += " flg=" + h(cpu.get_eflags(), 8);
- line1 += " ds=" + h(cpu.sreg[REG_DS], 4) + " es=" + h(cpu.sreg[REG_ES], 4) + " fs=" + h(cpu.sreg[REG_FS], 4);
- line2 += " gs=" + h(cpu.sreg[REG_GS], 4) + " cs=" + h(cpu.sreg[REG_CS], 4) + " ss=" + h(cpu.sreg[REG_SS], 4);
- return [line1, line2];
- }
- function dump_regs_short()
- {
- if(!DEBUG) return;
- var lines = get_regs_short();
- dbg_log(lines[0], LOG_CPU);
- dbg_log(lines[1], LOG_CPU);
- }
- function dump_gdt_ldt()
- {
- if(!DEBUG) return;
- dbg_log("gdt: (len = " + h(cpu.gdtr_size[0]) + ")");
- dump_table(cpu.translate_address_system_read(cpu.gdtr_offset[0]), cpu.gdtr_size[0]);
- dbg_log("\nldt: (len = " + h(cpu.segment_limits[REG_LDTR]) + ")");
- dump_table(cpu.translate_address_system_read(cpu.segment_offsets[REG_LDTR]), cpu.segment_limits[REG_LDTR]);
- function dump_table(addr, size)
- {
- for(var i = 0; i < size; i += 8, addr += 8)
- {
- var base = cpu.read16(addr + 2) |
- cpu.read8(addr + 4) << 16 |
- cpu.read8(addr + 7) << 24,
- limit = cpu.read16(addr) | (cpu.read8(addr + 6) & 0xF) << 16,
- access = cpu.read8(addr + 5),
- flags = cpu.read8(addr + 6) >> 4,
- flags_str = "",
- dpl = access >> 5 & 3;
- if(!(access & 128))
- {
- // present bit not set
- //continue;
- flags_str += "NP ";
- }
- else
- {
- flags_str += " P ";
- }
- if(access & 16)
- {
- if(flags & 4)
- {
- flags_str += "32b ";
- }
- else
- {
- flags_str += "16b ";
- }
- if(access & 8)
- {
- // executable
- flags_str += "X ";
- if(access & 4)
- {
- flags_str += "C ";
- }
- }
- else
- {
- // data
- flags_str += "R ";
- }
- flags_str += "RW ";
- }
- else
- {
- // system
- flags_str += "sys: " + h(access & 15);
- }
- if(flags & 8)
- {
- limit = limit << 12 | 0xFFF;
- }
- dbg_log(h(i & ~7, 4) + " " + h(base >>> 0, 8) + " (" + h(limit >>> 0, 8) + " bytes) " +
- flags_str + "; dpl = " + dpl + ", a = " + access.toString(2) +
- ", f = " + flags.toString(2));
- }
- }
- }
- function dump_idt()
- {
- if(!DEBUG) return;
- for(var i = 0; i < cpu.idtr_size[0]; i += 8)
- {
- var addr = cpu.translate_address_system_read(cpu.idtr_offset[0] + i),
- base = cpu.read16(addr) | cpu.read16(addr + 6) << 16,
- selector = cpu.read16(addr + 2),
- type = cpu.read8(addr + 5),
- line,
- dpl = type >> 5 & 3;
- if((type & 31) === 5)
- {
- line = "task gate ";
- }
- else if((type & 31) === 14)
- {
- line = "intr gate ";
- }
- else if((type & 31) === 15)
- {
- line = "trap gate ";
- }
- else
- {
- line = "invalid ";
- }
- if(type & 128)
- {
- line += " P";
- }
- else
- {
- // present bit not set
- //continue;
- line += "NP";
- }
- dbg_log(h(i >> 3, 4) + " " + h(base >>> 0, 8) + ", " +
- h(selector, 4) + "; " + line + "; dpl = " + dpl + ", t = " + type.toString(2));
- }
- }
- function load_page_entry(dword_entry, pae, is_directory)
- {
- if(!DEBUG) return;
- if(!(dword_entry & 1))
- {
- // present bit not set
- return false;
- }
- var size = (dword_entry & 128) === 128,
- address;
- if(size && !is_directory)
- {
- address = dword_entry & (pae ? 0xFFE00000 : 0xFFC00000);
- }
- else
- {
- address = dword_entry & 0xFFFFF000;
- }
- return {
- size: size,
- global: (dword_entry & 256) === 256,
- accessed: (dword_entry & 0x20) === 0x20,
- dirty: (dword_entry & 0x40) === 0x40,
- cache_disable : (dword_entry & 16) === 16,
- user : (dword_entry & 4) === 4,
- read_write : (dword_entry & 2) === 2,
- address : address >>> 0
- };
- }
- function dump_page_structures() {
- var pae = !!(cpu.cr[4] & CR4_PAE);
- if (pae)
- {
- dbg_log("PAE enabled");
- for (var i = 0; i < 4; i++) {
- var addr = cpu.cr[3] + 8 * i;
- var dword = cpu.read32s(addr);
- if (dword & 1)
- {
- dump_page_directory(dword & 0xFFFFF000, true, i << 30);
- }
- }
- }
- else
- {
- dbg_log("PAE disabled");
- dump_page_directory(cpu.cr[3], false, 0);
- }
- }
- /* NOTE: PAE entries are 64-bits, we ignore the high half here. */
- function dump_page_directory(pd_addr, pae, start)
- {
- if(!DEBUG) return;
- var n = pae ? 512 : 1024;
- var entry_size = pae ? 8 : 4;
- var pd_shift = pae ? 21 : 22;
- for(var i = 0; i < n; i++)
- {
- var addr = pd_addr + i * entry_size,
- dword = cpu.read32s(addr),
- entry = load_page_entry(dword, pae, true);
- if(!entry)
- {
- continue;
- }
- var flags = "";
- flags += entry.size ? "S " : " ";
- flags += entry.accessed ? "A " : " ";
- flags += entry.cache_disable ? "Cd " : " ";
- flags += entry.user ? "U " : " ";
- flags += entry.read_write ? "Rw " : " ";
- if(entry.size)
- {
- dbg_log("=== " + h(start + (i << pd_shift) >>> 0, 8) + " -> " +
- h(entry.address >>> 0, 8) + " | " + flags);
- continue;
- }
- else
- {
- dbg_log("=== " + h(start + (i << pd_shift) >>> 0, 8) + " | " + flags);
- }
- for(var j = 0; j < n; j++)
- {
- var sub_addr = entry.address + j * entry_size;
- dword = cpu.read32s(sub_addr);
- var subentry = load_page_entry(dword, pae, false);
- if(subentry)
- {
- flags = "";
- flags += subentry.cache_disable ? "Cd " : " ";
- flags += subentry.user ? "U " : " ";
- flags += subentry.read_write ? "Rw " : " ";
- flags += subentry.global ? "G " : " ";
- flags += subentry.accessed ? "A " : " ";
- flags += subentry.dirty ? "Di " : " ";
- dbg_log("# " + h(start + (i << pd_shift | j << 12) >>> 0, 8) + " -> " +
- h(subentry.address, 8) + " | " + flags + " (at " + h(sub_addr, 8) + ")");
- }
- }
- }
- }
- function get_memory_dump(start, count)
- {
- if(!DEBUG) return;
- if(start === undefined)
- {
- start = 0;
- count = cpu.memory_size[0];
- }
- else if(count === undefined)
- {
- count = start;
- start = 0;
- }
- return cpu.mem8.slice(start, start + count).buffer;
- }
- function memory_hex_dump(addr, length)
- {
- if(!DEBUG) return;
- length = length || 4 * 0x10;
- var line, byt;
- for(var i = 0; i < length >> 4; i++)
- {
- line = h(addr + (i << 4), 5) + " ";
- for(var j = 0; j < 0x10; j++)
- {
- byt = cpu.read8(addr + (i << 4) + j);
- line += h(byt, 2) + " ";
- }
- line += " ";
- for(j = 0; j < 0x10; j++)
- {
- byt = cpu.read8(addr + (i << 4) + j);
- line += (byt < 33 || byt > 126) ? "." : String.fromCharCode(byt);
- }
- dbg_log(line);
- }
- }
- function used_memory_dump()
- {
- if(!DEBUG) return;
- var width = 0x80,
- height = 0x10,
- block_size = cpu.memory_size[0] / width / height | 0,
- row;
- for(var i = 0; i < height; i++)
- {
- row = h(i * width * block_size, 8) + " | ";
- for(var j = 0; j < width; j++)
- {
- var used = cpu.mem32s[(i * width + j) * block_size] > 0;
- row += used ? "X" : " ";
- }
- dbg_log(row);
- }
- }
- debug.debug_interrupt = function(interrupt_nr)
- {
- //if(interrupt_nr === 0x20)
- //{
- // //var vxd_device = cpu.safe_read16(cpu.instruction_pointer + 2);
- // //var vxd_sub = cpu.safe_read16(cpu.instruction_pointer + 0);
- // //var service = "";
- // //if(vxd_device === 1)
- // //{
- // // service = vxd_table1[vxd_sub];
- // //}
- // //dbg_log("vxd: " + h(vxd_device, 4) + " " + h(vxd_sub, 4) + " " + service);
- //}
- //if(interrupt_nr >= 0x21 && interrupt_nr < 0x30)
- //{
- // dbg_log("dos: " + h(interrupt_nr, 2) + " ah=" + h(this.reg8[reg_ah], 2) + " ax=" + h(this.reg16[reg_ax], 4));
- //}
- //if(interrupt_nr === 0x13 && (this.reg8[reg_ah] | 1) === 0x43)
- //{
- // this.debug.memory_hex_dump(this.get_seg(reg_ds) + this.reg16[reg_si], 0x18);
- //}
- //if(interrupt_nr == 0x10)
- //{
- // dbg_log("int10 ax=" + h(this.reg16[reg_ax], 4) + " '" + String.fromCharCode(this.reg8[reg_al]) + "'");
- // this.debug.dump_regs_short();
- // if(this.reg8[reg_ah] == 0xe) vga.tt_write(this.reg8[reg_al]);
- //}
- //if(interrupt_nr === 0x13)
- //{
- // this.debug.dump_regs_short();
- //}
- //if(interrupt_nr === 6)
- //{
- // this.instruction_pointer += 2;
- // dbg_log("BUG()", LOG_CPU);
- // dbg_log("line=" + this.read_imm16() + " " +
- // "file=" + this.read_string(this.translate_address_read(this.read_imm32s())), LOG_CPU);
- // this.instruction_pointer -= 8;
- // this.debug.dump_regs_short();
- //}
- //if(interrupt_nr === 0x80)
- //{
- // dbg_log("linux syscall");
- // this.debug.dump_regs_short();
- //}
- //if(interrupt_nr === 0x40)
- //{
- // dbg_log("kolibri syscall");
- // this.debug.dump_regs_short();
- //}
- };
- let cs;
- let capstone_decoder;
- debug.dump_code = function(is_32, buffer, start)
- {
- if(!capstone_decoder)
- {
- if(cs === undefined)
- {
- if(typeof require === "function")
- {
- cs = require("./capstone-x86.min.js");
- }
- else
- {
- cs = window.cs;
- }
- if(cs === undefined)
- {
- dbg_log("Warning: Missing capstone library, disassembly not available");
- return;
- }
- }
- capstone_decoder = [
- new cs.Capstone(cs.ARCH_X86, cs.MODE_16),
- new cs.Capstone(cs.ARCH_X86, cs.MODE_32),
- ];
- }
- try
- {
- const instructions = capstone_decoder[is_32].disasm(buffer, start);
- instructions.forEach(function (instr) {
- dbg_log(h(instr.address >>> 0) + ": " +
- v86util.pads(instr.bytes.map(x => h(x, 2).slice(-2)).join(" "), 20) + " " +
- instr.mnemonic + " " + instr.op_str);
- });
- dbg_log("");
- }
- catch(e)
- {
- dbg_log("Could not disassemble: " + Array.from(buffer).map(x => h(x, 2)).join(" "));
- }
- };
- function dump_file(ab, name)
- {
- var blob = new Blob([ab]);
- var a = document.createElement("a");
- a["download"] = name;
- a.href = window.URL.createObjectURL(blob);
- a.dataset["downloadurl"] = ["application/octet-stream", a["download"], a.href].join(":");
- a.click();
- window.URL.revokeObjectURL(a.src);
- }
- let wabt;
- debug.dump_wasm = function(buffer)
- {
- if(wabt === undefined)
- {
- if(typeof require === "function")
- {
- wabt = require("./libwabt.js");
- }
- else
- {
- wabt = new window.WabtModule;
- }
- if(wabt === undefined)
- {
- dbg_log("Warning: Missing libwabt, wasm dump not available");
- return;
- }
- }
- // Need to make a small copy otherwise libwabt goes nuts trying to copy
- // the whole underlying buffer
- buffer = buffer.slice();
- try
- {
- var module = wabt.readWasm(buffer, { readDebugNames: false });
- module.generateNames();
- module.applyNames();
- const result = module.toText({ foldExprs: true, inlineExport: true });
- dbg_log(result);
- }
- catch(e)
- {
- dump_file(buffer, "failed.wasm");
- console.log(e.toString());
- }
- finally
- {
- if(module)
- {
- module.destroy();
- }
- }
- };
- };
|