Subversion Repositories pentevo

Rev

Rev 798 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed | ?url?

  1. #include "std.h"
  2.  
  3. #include "resource.h"
  4. #include "emul.h"
  5. #include "vars.h"
  6. #include "debug.h"
  7. #include "dbgpaint.h"
  8. #include "dbgoth.h"
  9. #include "gui.h"
  10. #include "fdd.h"
  11. #include "util.h"
  12.  
  13. namespace z80dbg
  14. {
  15. __int64 __cdecl delta();
  16. __int64 __cdecl delta()
  17. {
  18.     return comp.t_states + cpu.t - cpu.debug_last_t;
  19. }
  20. }
  21.  
  22. void show_time()
  23. {
  24.    Z80 &cpu = CpuMgr.Cpu();
  25.    tprint(time_x, time_y, "time delta:", W_OTHEROFF);
  26.    char text[32];
  27.    sprintf(text, "%14I64d", cpu.Delta());
  28.    tprint(time_x+11, time_y, text, W_OTHER);
  29.    tprint(time_x+25, time_y, "t", W_OTHEROFF);
  30.    frame(time_x, time_y, 26, 1, FRAME);
  31. }
  32.  
  33. static void wtline(const char *name, unsigned ptr, unsigned y)
  34. {
  35.    char line[40];
  36.    if(name)
  37.        sprintf(line, "%3s: ", name);
  38.    else
  39.        sprintf(line, "%04X ", ptr);
  40.  
  41.    Z80 &cpu = CpuMgr.Cpu();
  42.    for (unsigned dx = 0; dx < 8; dx++)
  43.    {
  44.       unsigned char c = cpu.DirectRm(ptr++);
  45.       sprintf(line+5+3*dx, "%02X", c);
  46.       line[7+3*dx] = ' ';
  47.       line[29+dx] = char(c ? c : '.');
  48.    }
  49.  
  50.    line[37] = 0;
  51.    tprint(wat_x, wat_y+y, line, W_OTHER);
  52. }
  53.  
  54. void showwatch()
  55. {
  56.    if (show_scrshot)
  57.    {
  58.       for (unsigned y = 0; y < wat_sz; y++)
  59.          for (unsigned x = 0; x < 37; x++)
  60.             txtscr[80*30 +  (wat_y+y)*80 + (wat_x+x)] = 0xFF;
  61.    }
  62.    else
  63.    {
  64.       Z80 &cpu = CpuMgr.Cpu();
  65.       wtline("PC", cpu.pc, 0);
  66.       wtline("SP", cpu.sp, 1);
  67.       wtline("BC", cpu.bc, 2);
  68.       wtline("DE", cpu.de, 3);
  69.       wtline("HL", cpu.hl, 4);
  70.       wtline("IX", cpu.ix, 5);
  71.       wtline("IY", cpu.iy, 6);
  72.       wtline("BC'", cpu.alt.bc, 7);
  73.       wtline("DE'", cpu.alt.de, 8);
  74.       wtline("HL'", cpu.alt.hl, 9);
  75.       wtline(nullptr, user_watches[0], 10);
  76.       wtline(nullptr, user_watches[1], 11);
  77.       wtline(nullptr, user_watches[2], 12);
  78.    }
  79.    const char *text = "watches";
  80.    if (show_scrshot == 1) text = "screen memory";
  81.    if (show_scrshot == 2) text = "ray-painted";
  82.    tprint(wat_x, wat_y-1, text, W_TITLE);
  83.    if(comp.flags & CF_DOSPORTS)
  84.        tprint(wat_x+34, wat_y-1, "DOS", W_DOS);
  85.    frame(wat_x,wat_y,37,wat_sz,FRAME);
  86. }
  87.  
  88. void mon_setwatch()
  89. {
  90.    if (show_scrshot) show_scrshot = 0;
  91.    for (unsigned i = 0; i < 3; i++) {
  92.       debugscr();
  93.       int addr = input4(wat_x, wat_y+wat_sz-3+i, user_watches[i]);
  94.       if (addr == -1) return;
  95.       user_watches[i] = unsigned(addr);
  96.    }
  97. }
  98.  
  99. void showstack()
  100. {
  101.    Z80 &cpu = CpuMgr.Cpu();
  102.    for (unsigned i = 0; i < stack_size; i++)
  103.    {
  104.       char xx[10]; //-2:1234
  105.                    //SP:1234
  106.                    //+2:
  107.       if (!i) *(unsigned*)xx = WORD2('-','2');
  108.       else if (i==1) *(unsigned*)xx = WORD2('S','P');
  109.       else sprintf(xx, (i > 8) ? "%X" : "+%X", (i-1)*2);
  110.       sprintf(xx+2, ":%02X%02X", cpu.DirectRm(cpu.sp+(i-1)*2+1), cpu.DirectRm(cpu.sp+(i-1)*2));
  111.       tprint(stack_x, stack_y+i, xx, W_OTHER);
  112.    }
  113.    tprint(stack_x, stack_y-1, "stack", W_TITLE);
  114.    frame(stack_x, stack_y, 7, stack_size, FRAME);
  115. }
  116.  
  117. void show_ay()
  118. {
  119.    if (!conf.sound.ay_scheme) return;
  120.    const char *ayn = comp.active_ay ? "AY1" : "AY0";
  121.    if(conf.sound.ay_scheme < AY_SCHEME_QUADRO)
  122.    {
  123.        ayn = "AY:";
  124.        comp.active_ay = 0;
  125.    }
  126.    tprint(ay_x-3, ay_y, ayn, W_TITLE);
  127.    SNDCHIP *chip = &ay[comp.active_ay];
  128.    char line[32];
  129.    for (unsigned i = 0; i < 16; i++) {
  130.       line[0] = "0123456789ABCDEF"[i]; line[1] = 0;
  131.       tprint(ay_x + i*3, ay_y, line, W_AYNUM);
  132.       sprintf(line, "%02X", chip->get_reg(i));
  133.       tprint(unsigned(ay_x + i*3 + 1), unsigned(ay_y), line, i == (chip->get_activereg()) ? W_AYON : W_AYOFF);
  134.    }
  135.    frame(ay_x, ay_y, 48, 1, FRAME);
  136. }
  137.  
  138. void mon_switchay()
  139. {
  140.    comp.active_ay ^= 1;
  141. }
  142.  
  143. void __cdecl BankNames(int i, char *Name)
  144. {
  145.     unsigned rom_bank;
  146.     unsigned ram_bank;
  147.  
  148.     bool IsRam = (RAM_BASE_M <= bankr[i]) && (bankr[i] < RAM_BASE_M + PAGE * MAX_RAM_PAGES);
  149.     bool IsRom = (ROM_BASE_M <= bankr[i]) && (bankr[i] < ROM_BASE_M + PAGE * MAX_ROM_PAGES);
  150.  
  151.     if(IsRam)
  152.         ram_bank = ULONG((bankr[i] - RAM_BASE_M)/PAGE);
  153.  
  154.     if(IsRom)
  155.         rom_bank = ULONG((bankr[i] - ROM_BASE_M)/PAGE);
  156.  
  157.     if (IsRam)
  158.         sprintf(Name, "RAM%2X", ram_bank);
  159.  
  160.     if (IsRom)
  161.         sprintf(Name, "ROM%2X", rom_bank);
  162.  
  163.     if (bankr[i] == base_sos_rom)
  164.         strcpy(Name, "BASIC");
  165.     if (bankr[i] == base_dos_rom)
  166.         strcpy(Name, "TRDOS");
  167.     if (bankr[i] == base_128_rom)
  168.         strcpy(Name, "B128K");
  169.     if (bankr[i] == base_sys_rom && (conf.mem_model == MM_PROFSCORP || conf.mem_model == MM_SCORP))
  170.         strcpy(Name, "SVM  ");
  171.     if ((conf.mem_model == MM_PROFSCORP || conf.mem_model == MM_SCORP) && IsRom && rom_bank > 3)
  172.         sprintf(Name, "ROM%2X", rom_bank);
  173.  
  174.     if (bankr[i] == CACHE_M)
  175.         strcpy(Name, (conf.cache!=32)?"CACHE":"CACH0");
  176.     if (bankr[i] == CACHE_M+PAGE)
  177.         strcpy(Name, "CACH1");
  178. }
  179.  
  180. void showbanks()
  181. {
  182.    Z80 &cpu = CpuMgr.Cpu();
  183.    for (int i = 0; i < 4; i++)
  184.    {
  185.       char ln[64]; sprintf(ln, "%d:", i);
  186.       tprint(unsigned(banks_x), unsigned(banks_y+i+1), ln, W_OTHEROFF);
  187.       strcpy(ln, "?????");
  188.       cpu.BankNames(i, ln);
  189.       tprint(unsigned(banks_x+2), unsigned(banks_y+i+1), ln, bankr[i]!=bankw[i] ? W_BANKRO : W_BANK);
  190.    }
  191.    frame(banks_x, banks_y+1, 7, 4, FRAME);
  192.    tprint(banks_x, banks_y, "pages", W_TITLE);
  193. }
  194.  
  195. void showports()
  196. {
  197.    char ln[64];
  198.    sprintf(ln, "  FE:%02X", comp.pFE);
  199.    tprint(ports_x, ports_y, ln, W_OTHER);
  200.    sprintf(ln, "7FFD:%02X", comp.p7FFD);
  201.    tprint(ports_x, ports_y+1, ln, (comp.p7FFD & 0x20) &&
  202.    !((conf.mem_model == MM_PENTAGON && conf.ramsize == 1024) ||
  203.      (conf.mem_model == MM_PROFI && (comp.pDFFD & 0x10))) ? W_48K : W_OTHER);
  204.  
  205.    switch (conf.mem_model)
  206.    {
  207.       case MM_KAY:
  208.       case MM_SCORP:
  209.       case MM_PROFSCORP:
  210.       case MM_PLUS3:
  211.          dbg_extport = 0x1FFD; dbg_extval = comp.p1FFD;
  212.       break;
  213.       case MM_PROFI:
  214.          dbg_extport = 0xDFFD; dbg_extval = comp.pDFFD;
  215.       break;
  216.       case MM_ATM450:
  217.          dbg_extport = 0xFDFD; dbg_extval = comp.pFDFD;
  218.       break;
  219.       case MM_ATM710:
  220.       case MM_ATM3:
  221.          dbg_extport = (comp.aFF77 & 0xFFFF);
  222.          dbg_extval = comp.pFF77;
  223.       break;
  224.       case MM_QUORUM:
  225.          dbg_extport = 0x0000; dbg_extval = comp.p00;
  226.       break;
  227.       default:
  228.          dbg_extport = -1U;
  229.    }
  230.    if (dbg_extport != -1U)
  231.        sprintf(ln, "%04X:%02X", dbg_extport, dbg_extval);
  232.    else
  233.        sprintf(ln, "cmos:%02X", comp.cmos_addr);
  234.    tprint(ports_x, ports_y+2, ln, W_OTHER);
  235.  
  236.    sprintf(ln, "EFF7:%02X", comp.pEFF7);
  237.    tprint(ports_x, ports_y+3, ln, W_OTHER);
  238.    frame(ports_x, ports_y, 7, 4, FRAME);
  239.    tprint(ports_x, ports_y-1, "ports", W_TITLE);
  240. }
  241.  
  242. void showdos()
  243. {
  244. //    CD:802E
  245. //    STAT:24
  246. //    SECT:00
  247. //    T:00/01
  248. //    S:00/00
  249. //[vv]   if (conf.trdos_present) comp.wd.process();
  250.    char ln[64]; unsigned char atr = conf.trdos_present ? W_OTHER : W_OTHEROFF;
  251.    sprintf(ln, "CD:%02X%02X", comp.wd.cmd, comp.wd.data);
  252.    tprint(dos_x, dos_y, ln, atr);
  253.    sprintf(ln, "STAT:%02X", comp.wd.RdStatus());
  254.    tprint(dos_x, dos_y+1, ln, atr);
  255.    sprintf(ln, "SECT:%02X", comp.wd.sector);
  256.    tprint(dos_x, dos_y+2, ln, atr);
  257.    sprintf(ln, "T:%02X/%02X", comp.wd.seldrive->track, comp.wd.track);
  258.    tprint(dos_x, dos_y+3, ln, atr);
  259.    sprintf(ln, "S:%02X/%02X", comp.wd.system, comp.wd.rqs);
  260.    tprint(dos_x, dos_y+4, ln, atr);
  261.    frame(dos_x, dos_y, 7, 5, FRAME);
  262. #if 1
  263.    tprint(dos_x, dos_y-1, "beta128", W_TITLE);
  264. #else
  265.    sprintf(ln, "%X-%X %d", comp.wd.state, comp.wd.state2, comp.wd.seldrive->track);
  266.    tprint(dos_x,dos_y-1, ln, atr);
  267. #endif
  268. /*
  269. //    STAT:00101010
  270. //    CMD:80,STA:2A
  271. //    DAT:22,SYS:EE
  272. //    TRK:31,SEC:01
  273. //    DISK:A,SIDE:0
  274.  
  275.    char ln[64]; unsigned char atr = conf.trdos_present ? 0x20 : 0x27;
  276.    sprintf(ln, "STAT:00000000"); unsigned char stat = in_trdos(0x1F);
  277.    for (int i = 0; i < 7; i++) ln[i+5] = (stat & (0x80 >> i)) ? '1':'0';
  278.    tprint(dos_x, dos_y+1, ln, atr);
  279.    sprintf(ln, "CMD:%02X,STA:%02X", comp.trdos.cmd, stat);
  280.    tprint(dos_x, dos_y+2, ln, atr);
  281.    sprintf(ln, "DAT:%02X,SYS:%02X", comp.trdos.data, in_trdos(0xFF));
  282.    tprint(dos_x, dos_y+3, ln, atr);
  283.    sprintf(ln, "TRK:%02X,SEC:%02X", comp.trdos.track, comp.trdos.sector);
  284.    tprint(dos_x, dos_y+4, ln, atr);
  285.    sprintf(ln, "DISK:%c,SIDE:%c", 'A'+(comp.trdos.system & 3), (comp.trdos.system & 0x10) ? '0':'1');
  286.    tprint(dos_x, dos_y+5, ln, atr);
  287.    frame(dos_x, dos_y+1, 13, 5, FRAME);
  288.    tprint(dos_x, dos_y, "beta128", 0x83);
  289. */
  290. }
  291.  
  292. #ifdef MOD_GSBASS
  293. static INT_PTR CALLBACK gsdlg(HWND dlg, UINT msg, WPARAM wp, LPARAM lp)
  294. {
  295.     (void)lp;
  296.  
  297.     char tmp[0x200];
  298.     unsigned i; //Alone Coder 0.36.7
  299.     HWND lv = GetDlgItem(dlg, IDC_GSLIST);
  300.  
  301.     if(msg == WM_INITDIALOG)
  302.     {
  303.         ListView_SetExtendedListViewStyleEx(lv, LVS_EX_FULLROWSELECT, LVS_EX_FULLROWSELECT);
  304.         LVCOLUMN Col = { };
  305.  
  306.         static const char *Cols[] = { "", "smp", "v", "n", "p", "f", "l" };
  307.         static const int Width[] = { 30, 100, 40, 40, 40, 70, 70 };
  308.  
  309.         Col.mask = LVCF_TEXT | LVCF_WIDTH;
  310.  
  311.         for(i = 0; i < _countof(Cols); i++)
  312.         {
  313.             Col.pszText = LPSTR(Cols[i]);
  314.             Col.cx = Width[i];
  315.             ListView_InsertColumn(lv, i, &Col);
  316.         }
  317.  
  318.         if(gs.modsize)
  319.         {
  320.             sprintf(tmp, "(%s)", gs.mod_playing ? "P" : "S");
  321.             LVITEM Item = { };
  322.             Item.mask = LVIF_TEXT;
  323.             Item.iItem = 0;
  324.             Item.iSubItem = 0;
  325.             Item.pszText = tmp;
  326.             ListView_InsertItem(lv, &Item);
  327.  
  328.             sprintf(tmp, "%.20s", gs.mod);
  329.             tmp[20] = 0;
  330.             Item.iSubItem++;
  331.             Item.pszText = tmp;
  332.             ListView_SetItem(lv, &Item);
  333.         }
  334.         for(i = 1; i < gs.total_fx; i++)
  335.         {
  336.             sprintf(tmp, "%s%s", gs.cur_fx == i ? "*" : "", gs.sample[i].loop < gs.sample[i].end ? "(L)" : "");
  337.             LVITEM Item = { };
  338.             Item.mask = LVIF_TEXT;
  339.             Item.iItem = int(i);
  340.             Item.iSubItem = 0;
  341.             Item.pszText = tmp;
  342.             ListView_InsertItem(lv, &Item);
  343.  
  344.             sprintf(tmp, "%u", i);
  345.             Item.iSubItem++;
  346.             ListView_SetItem(lv, &Item);
  347.  
  348.             sprintf(tmp, "%u", unsigned(gs.sample[i].volume));
  349.             Item.iSubItem++;
  350.             ListView_SetItem(lv, &Item);
  351.  
  352.             sprintf(tmp, "%u", unsigned(gs.sample[i].note));
  353.             Item.iSubItem++;
  354.             ListView_SetItem(lv, &Item);
  355.  
  356.             sprintf(tmp, "%u", unsigned(gs.sample[i].Priority));
  357.             Item.iSubItem++;
  358.             ListView_SetItem(lv, &Item);
  359.  
  360.             sprintf(tmp, "%.2f", double(gs.note2rate[gs.sample[i].note]));
  361.             Item.iSubItem++;
  362.             ListView_SetItem(lv, &Item);
  363.  
  364.             sprintf(tmp, "%u", gs.sample[i].end);
  365.             Item.iSubItem++;
  366.             ListView_SetItem(lv, &Item);
  367.         }
  368.         int Sel = ListView_GetItemCount(lv);
  369.         if(Sel > 0)
  370.         {
  371.             LVITEM Item = { };
  372.             Item.stateMask = LVIS_SELECTED;
  373.             Item.state = LVIS_SELECTED;
  374.             SendMessage(lv, LVM_SETITEMSTATE, WPARAM(0), LPARAM(&Item));
  375.             SetFocus(lv);
  376.         }
  377.  
  378.         *tmp = 0;
  379.         for(i = 0; i < 0x100; i++)
  380.         {
  381.             if(gs.badgs[i])
  382.             {
  383.                 sprintf(tmp + strlen(tmp), "%02X ", i);
  384.             }
  385.         }
  386.         Edit_SetText(GetDlgItem(dlg, IDE_GS), tmp);
  387.  
  388.         return Sel ? FALSE : TRUE;
  389.     }
  390.  
  391.     if(msg == WM_SYSCOMMAND && (wp & 0xFFF0) == SC_CLOSE)
  392.     {
  393.         EndDialog(dlg, 0);
  394.     }
  395.  
  396.     unsigned id;
  397.     unsigned nc;
  398.  
  399.     switch(msg)
  400.     {
  401.     case WM_NOTIFY:
  402.         {
  403.             LPNMHDR Hdr = LPNMHDR(lp);
  404.             id = unsigned(Hdr->idFrom);
  405.             nc = Hdr->code;
  406.         }
  407.         break;
  408.  
  409.     case WM_COMMAND:
  410.         id = LOWORD(wp);
  411.         nc = HIWORD(wp);
  412.         break;
  413.  
  414.     default:
  415.         return FALSE;
  416.     }
  417.  
  418.     if((id == IDCANCEL || id == IDOK) && (nc == BN_CLICKED))
  419.     {
  420.         EndDialog(dlg, 0);
  421.     }
  422.  
  423.     if((id == IDB_GS_CLEAR) && (nc == BN_CLICKED))
  424.     {
  425.         memset(gs.badgs, 0, sizeof gs.badgs);
  426.         Edit_SetText(GetDlgItem(dlg, IDE_GS), "");
  427.         return TRUE;
  428.     }
  429.  
  430.     if((id == IDB_GS_RESET) && (nc == BN_CLICKED))
  431.     {
  432.         gs.reset();
  433.         ListView_DeleteAllItems(lv);
  434.         return TRUE;
  435.     }
  436.  
  437.     if(((id == IDB_GS_PLAY) && (nc == BN_CLICKED)) || ((id == IDC_GSLIST) && (nc == NM_DBLCLK)))
  438.     {
  439.         unsigned i = unsigned(ListView_GetSelectionMark(lv));
  440.         if(i > 0x100)
  441.         {
  442.             return TRUE;
  443.         }
  444.  
  445.         if(!i && gs.modsize)
  446.         {
  447.             gs.mod_playing ^= 1;
  448.             if(gs.mod_playing)
  449.             {
  450.                 gs.restart_mod(0, 0);
  451.             }
  452.             else
  453.             {
  454.                 gs.stop_mod();
  455.             }
  456.  
  457.             sprintf(tmp, "(%s)", gs.mod_playing ? "P" : "S");
  458.             LVITEM Item = { };
  459.             Item.mask = LVIF_TEXT;
  460.             Item.pszText = tmp;
  461.             ListView_SetItem(lv, &Item);
  462.  
  463.             return TRUE;
  464.         }
  465.  
  466.         if(!gs.modsize)
  467.         {
  468.             i++;
  469.         }
  470.         gs.debug_note(i);
  471.         return TRUE;
  472.     }
  473.  
  474.     if((id == IDB_GS_SAVE) && (nc == BN_CLICKED))
  475.     {
  476.         unsigned i = unsigned(ListView_GetSelectionMark(lv));
  477.         if((i == 0) && (gs.modsize != 0))
  478.         {
  479.             SaveModDlg(wnd);
  480.             return TRUE;
  481.         }
  482.  
  483.         if(i > 0x100)
  484.         {
  485.             return TRUE;
  486.         }
  487.  
  488.         OPENFILENAME ofn = { };
  489.         char sndsavename[MAX_PATH];
  490.         *sndsavename = 0;
  491.         ListView_GetItemText(lv, i, 1, sndsavename, _countof(sndsavename));
  492.         strcat(sndsavename, ".pcm");
  493.  
  494.         ofn.lStructSize = (WinVerMajor < 5) ? OPENFILENAME_SIZE_VERSION_400 : sizeof(OPENFILENAME);
  495.         ofn.lpstrFilter = "PCM sample (.pcm)\0*.pcm\0";
  496.         ofn.lpstrFile = sndsavename;
  497.         ofn.lpstrDefExt = "pcm";
  498.         ofn.nMaxFile = _countof(sndsavename);
  499.         ofn.lpstrTitle = "Save Sample";
  500.         ofn.Flags = OFN_PATHMUSTEXIST | OFN_HIDEREADONLY | OFN_NOCHANGEDIR | OFN_EXPLORER | OFN_ENABLESIZING;
  501.         ofn.hwndOwner = wnd;
  502.         ofn.nFilterIndex = 1;
  503.         if(GetSaveFileName(&ofn))
  504.         {
  505.             gs.debug_save_note(i, sndsavename);
  506.         }
  507.         return TRUE;
  508.     }
  509.     return FALSE;
  510. }
  511.  
  512. void mon_gsdialog()
  513. {
  514.    if (conf.gs_type == 2)
  515.       DialogBox(hIn, MAKEINTRESOURCE(IDD_GS), wnd, gsdlg);
  516.    else MessageBox(wnd, "high-level GS emulation\nis not initialized", nullptr, MB_OK | MB_ICONERROR);
  517. }
  518. #else
  519. void mon_gsdialog() {}
  520. #endif
  521.