#include "std.h"
#include "resource.h"
#include "emul.h"
#include "vars.h"
#include "debug.h"
#include "dbgpaint.h"
#include "util.h"
namespace z80dbg
{
__int64 __cdecl delta()
{
return comp.t_states + cpu.t - cpu.debug_last_t;
}
}
void show_time()
{
Z80 &cpu = CpuMgr.Cpu();
tprint(time_x, time_y, "time delta:", W_OTHEROFF);
char text[32];
sprintf(text, "%14I64d", cpu.Delta());
tprint(time_x+11, time_y, text, W_OTHER);
tprint(time_x+25, time_y, "t", W_OTHEROFF);
frame(time_x, time_y, 26, 1, FRAME);
}
static void wtline(const char *name, unsigned ptr, unsigned y)
{
char line[40];
if(name)
sprintf(line, "%3s: ", name);
else
sprintf(line, "%04X ", ptr);
Z80 &cpu = CpuMgr.Cpu();
for (unsigned dx = 0; dx < 8; dx++)
{
unsigned char c = cpu.DirectRm(ptr++);
sprintf(line+5+3*dx, "%02X", c);
line[7+3*dx] = ' ';
line[29+dx] = c ? c : '.';
}
line[37] = 0;
tprint(wat_x, wat_y+y, line, W_OTHER);
}
void showwatch()
{
if (show_scrshot)
{
for (unsigned y = 0; y < wat_sz; y++)
for (unsigned x = 0; x < 37; x++)
txtscr[80*30 + (wat_y+y)*80 + (wat_x+x)] = 0xFF;
}
else
{
Z80 &cpu = CpuMgr.Cpu();
wtline("PC", cpu.pc, 0);
wtline("SP", cpu.sp, 1);
wtline("BC", cpu.bc, 2);
wtline("DE", cpu.de, 3);
wtline("HL", cpu.hl, 4);
wtline("IX", cpu.ix, 5);
wtline("IY", cpu.iy, 6);
wtline("BC'", cpu.alt.bc, 7);
wtline("DE'", cpu.alt.de, 8);
wtline("HL'", cpu.alt.hl, 9);
wtline(0, user_watches[0], 10);
wtline(0, user_watches[1], 11);
wtline(0, user_watches[2], 12);
}
const char *text = "watches";
if (show_scrshot == 1) text = "screen memory";
if (show_scrshot == 2) text = "ray-painted";
tprint(wat_x, wat_y-1, text, W_TITLE);
if(comp.flags & CF_DOSPORTS)
tprint(wat_x+34, wat_y-1, "DOS", W_DOS);
frame(wat_x,wat_y,37,wat_sz,FRAME);
}
void mon_setwatch()
{
if (show_scrshot) show_scrshot = 0;
for (unsigned i = 0; i < 3; i++) {
debugscr();
unsigned addr = input4(wat_x, wat_y+wat_sz-3+i, user_watches[i]);
if (addr == -1) return;
user_watches[i] = addr;
}
}
void showstack()
{
Z80 &cpu = CpuMgr.Cpu();
for (unsigned i = 0; i < stack_size; i++)
{
char xx[10]; //-2:1234
//SP:1234
//+2:
if (!i) *(unsigned*)xx = WORD2('-','2');
else if (i==1) *(unsigned*)xx = WORD2('S','P');
else sprintf(xx, (i > 8) ? "%X" : "+%X", (i-1)*2);
sprintf(xx+2, ":%02X%02X", cpu.DirectRm(cpu.sp+(i-1)*2+1), cpu.DirectRm(cpu.sp+(i-1)*2));
tprint(stack_x, stack_y+i, xx, W_OTHER);
}
tprint(stack_x, stack_y-1, "stack", W_TITLE);
frame(stack_x, stack_y, 7, stack_size, FRAME);
}
void show_ay()
{
if (!conf.sound.ay_scheme) return;
const char *ayn = comp.active_ay ? "AY1" : "AY0";
if (conf.sound.ay_scheme < AY_SCHEME_QUADRO) ayn = "AY:", comp.active_ay = 0;
tprint(ay_x-3, ay_y, ayn, W_TITLE);
SNDCHIP *chip = &ay[comp.active_ay];
char line[32];
for (int i = 0; i < 16; i++) {
line[0] = "0123456789ABCDEF"[i]; line[1] = 0;
tprint(ay_x + i*3, ay_y, line, W_AYNUM);
sprintf(line, "%02X", chip->get_reg(i));
tprint(ay_x + i*3 + 1, ay_y, line, i == (chip->get_activereg()) ? W_AYON : W_AYOFF);
}
frame(ay_x, ay_y, 48, 1, FRAME);
}
void mon_switchay()
{
comp.active_ay ^= 1;
}
void __cdecl BankNames(int i, char *Name)
{
unsigned rom_bank;
unsigned ram_bank;
bool IsRam = (RAM_BASE_M <= bankr[i]) && (bankr[i] < RAM_BASE_M + PAGE * MAX_RAM_PAGES);
bool IsRom = (ROM_BASE_M <= bankr[i]) && (bankr[i] < ROM_BASE_M + PAGE * MAX_ROM_PAGES);
if(IsRam)
ram_bank = ULONG((bankr[i] - RAM_BASE_M)/PAGE);
if(IsRom)
rom_bank = ULONG((bankr[i] - ROM_BASE_M)/PAGE);
if (IsRam)
sprintf(Name, "RAM%2X", ram_bank);
if (IsRom)
sprintf(Name, "ROM%2X", rom_bank);
if (bankr[i] == base_sos_rom)
strcpy(Name, "BASIC");
if (bankr[i] == base_dos_rom)
strcpy(Name, "TRDOS");
if (bankr[i] == base_128_rom)
strcpy(Name, "B128K");
if (bankr[i] == base_sys_rom && (conf.mem_model == MM_PROFSCORP || conf.mem_model == MM_SCORP))
strcpy(Name, "SVM ");
if ((conf.mem_model == MM_PROFSCORP || conf.mem_model == MM_SCORP) && IsRom && rom_bank > 3)
sprintf(Name, "ROM%2X", rom_bank);
if (bankr[i] == CACHE_M)
strcpy(Name, (conf.cache!=32)?"CACHE":"CACH0");
if (bankr[i] == CACHE_M+PAGE)
strcpy(Name, "CACH1");
}
void showbanks()
{
Z80 &cpu = CpuMgr.Cpu();
for (int i = 0; i < 4; i++)
{
char ln[64]; sprintf(ln, "%d:", i);
tprint(banks_x, banks_y+i+1, ln, W_OTHEROFF);
strcpy(ln, "?????");
cpu.BankNames(i, ln);
tprint(banks_x+2, banks_y+i+1, ln, bankr[i]!=bankw[i] ? W_BANKRO : W_BANK);
}
frame(banks_x, banks_y+1, 7, 4, FRAME);
tprint(banks_x, banks_y, "pages", W_TITLE);
}
void showports()
{
char ln[64];
sprintf(ln, " FE:%02X", comp.pFE);
tprint(ports_x, ports_y, ln, W_OTHER);
sprintf(ln, "7FFD:%02X", comp.p7FFD);
tprint(ports_x, ports_y+1, ln, (comp.p7FFD & 0x20) &&
!((conf.mem_model == MM_PENTAGON && conf.ramsize == 1024) ||
(conf.mem_model == MM_PROFI && (comp.pDFFD & 0x10))) ? W_48K : W_OTHER);
switch (conf.mem_model)
{
case MM_KAY:
case MM_SCORP:
case MM_PROFSCORP:
case MM_PLUS3:
dbg_extport = 0x1FFD; dgb_extval = comp.p1FFD;
break;
case MM_PROFI:
dbg_extport = 0xDFFD; dgb_extval = comp.pDFFD;
break;
case MM_ATM450:
dbg_extport = 0xFDFD; dgb_extval = comp.pFDFD;
break;
case MM_ATM710:
case MM_ATM3:
dbg_extport = (comp.aFF77 & 0xFFFF);
dgb_extval = comp.pFF77;
break;
case MM_QUORUM:
dbg_extport = 0x0000; dgb_extval = comp.p00;
break;
default:
dbg_extport = -1;
}
if (dbg_extport != -1)
sprintf(ln, "%04X:%02X", dbg_extport, dgb_extval);
else
sprintf(ln, "cmos:%02X", comp.cmos_addr);
tprint(ports_x, ports_y+2, ln, W_OTHER);
sprintf(ln, "EFF7:%02X", comp.pEFF7);
tprint(ports_x, ports_y+3, ln, W_OTHER);
frame(ports_x, ports_y, 7, 4, FRAME);
tprint(ports_x, ports_y-1, "ports", W_TITLE);
}
void showdos()
{
// CD:802E
// STAT:24
// SECT:00
// T:00/01
// S:00/00
//[vv] if (conf.trdos_present) comp.wd.process();
char ln[64]; unsigned char atr = conf.trdos_present ? W_OTHER : W_OTHEROFF;
sprintf(ln, "CD:%02X%02X", comp.wd.cmd, comp.wd.data);
tprint(dos_x, dos_y, ln, atr);
sprintf(ln, "STAT:%02X", comp.wd.RdStatus());
tprint(dos_x, dos_y+1, ln, atr);
sprintf(ln, "SECT:%02X", comp.wd.sector);
tprint(dos_x, dos_y+2, ln, atr);
sprintf(ln, "T:%02X/%02X", comp.wd.seldrive->track, comp.wd.track);
tprint(dos_x, dos_y+3, ln, atr);
sprintf(ln, "S:%02X/%02X", comp.wd.system, comp.wd.rqs);
tprint(dos_x, dos_y+4, ln, atr);
frame(dos_x, dos_y, 7, 5, FRAME);
#if 1
tprint(dos_x, dos_y-1, "beta128", W_TITLE);
#else
sprintf(ln, "%X-%X %d", comp.wd.state, comp.wd.state2, comp.wd.seldrive->track);
tprint(dos_x,dos_y-1, ln, atr);
#endif
/*
// STAT:00101010
// CMD:80,STA:2A
// DAT:22,SYS:EE
// TRK:31,SEC:01
// DISK:A,SIDE:0
char ln[64]; unsigned char atr = conf.trdos_present ? 0x20 : 0x27;
sprintf(ln, "STAT:00000000"); unsigned char stat = in_trdos(0x1F);
for (int i = 0; i < 7; i++) ln[i+5] = (stat & (0x80 >> i)) ? '1':'0';
tprint(dos_x, dos_y+1, ln, atr);
sprintf(ln, "CMD:%02X,STA:%02X", comp.trdos.cmd, stat);
tprint(dos_x, dos_y+2, ln, atr);
sprintf(ln, "DAT:%02X,SYS:%02X", comp.trdos.data, in_trdos(0xFF));
tprint(dos_x, dos_y+3, ln, atr);
sprintf(ln, "TRK:%02X,SEC:%02X", comp.trdos.track, comp.trdos.sector);
tprint(dos_x, dos_y+4, ln, atr);
sprintf(ln, "DISK:%c,SIDE:%c", 'A'+(comp.trdos.system & 3), (comp.trdos.system & 0x10) ? '0':'1');
tprint(dos_x, dos_y+5, ln, atr);
frame(dos_x, dos_y+1, 13, 5, FRAME);
tprint(dos_x, dos_y, "beta128", 0x83);
*/
}
#ifdef MOD_GSBASS
INT_PTR CALLBACK gsdlg(HWND dlg, UINT msg, WPARAM wp, LPARAM lp)
{
char tmp[0x200];
unsigned i; //Alone Coder 0.36.7
if (msg == WM_INITDIALOG) {
repaint:
while (SendDlgItemMessage(dlg, IDC_GSLIST, LB_GETCOUNT, 0, 0))
SendDlgItemMessage(dlg, IDC_GSLIST, LB_DELETESTRING, 0, 0);
if (gs.modsize) {
sprintf(tmp, "%-.20s (%s)", gs.mod, gs.mod_playing ? "playing" : "stopped");
SendDlgItemMessage(dlg, IDC_GSLIST, LB_ADDSTRING, 0, (LPARAM)tmp);
}
for (/*unsigned*/ i = 1; i < gs.total_fx; i++) {
sprintf(tmp, "%csmp %d: v=%d, n=%d, %d%s",
gs.cur_fx == i ? '*':' ', i,
gs.sample[i].volume, gs.sample[i].note, gs.sample[i].end,
gs.sample[i].loop < gs.sample[i].end ? " (L)":nil);
SendDlgItemMessage(dlg, IDC_GSLIST, LB_ADDSTRING, 0, (LPARAM)tmp);
}
*tmp = 0; for (i = 0; i < 0x100; i++) {
if (gs.badgs[i]) sprintf(tmp+strlen(tmp), "%02X ", i);
}
SendDlgItemMessage(dlg, IDE_GS, WM_SETTEXT, 0, (LPARAM)tmp);
return 1;
}
if (msg == WM_SYSCOMMAND && (wp & 0xFFF0) == SC_CLOSE) EndDialog(dlg, 0);
if (msg != WM_COMMAND) return 0;
unsigned id = LOWORD(wp);
if (id == IDCANCEL || id == IDOK) EndDialog(dlg, 0);
if (id == IDB_GS_CLEAR) { memset(gs.badgs, 0, sizeof gs.badgs); SendDlgItemMessage(dlg, IDE_GS, WM_SETTEXT, 0, 0); }
if (id == IDB_GS_RESET) { gs.reset(); goto repaint; }
if (id == IDB_GS_PLAY || (id == IDC_GSLIST && HIWORD(wp) == LBN_DBLCLK)) {
unsigned i = SendDlgItemMessage(dlg, IDC_GSLIST, LB_GETCURSEL, 0, 0);
if (i > 0x100) return 1;
if (!i && gs.modsize) {
gs.mod_playing ^= 1;
if (gs.mod_playing) gs.restart_mod(0,0); else gs.stop_mod();
goto repaint;
}
if (!gs.modsize) i++;
gs.debug_note(i);
}
return 0;
}
void mon_gsdialog()
{
if (conf.gs_type == 2)
DialogBox(hIn, MAKEINTRESOURCE(IDD_GS), wnd, gsdlg);
else MessageBox(wnd, "high-level GS emulation\nis not initialized", 0, MB_OK | MB_ICONERROR);
}
#else
void mon_gsdialog() {}
#endif