Subversion Repositories pentevo

#include "std.h"

#include "resource.h"

#include "emul.h"

#include "vars.h"

#include "config.h"

#include "draw.h"

#include "dx.h"

#include "debug.h"

#include "memory.h"

#include "sound.h"

#include "savesnd.h"

#include "tape.h"

#include "gui.h"

#include "leds.h"

#include "snapshot.h"

#include "wd93dat.h"

#include "init.h"

#include "z80.h"

#include "emulkeys.h"

#include "util.h"

void main_pause()

{

   text_i(rbuf+temp.scx/2-8,"pause",0x0F); flip();

   pause = 1;

   sound_stop();

   updatebitmap();

   active = 0;

   adjust_mouse_cursor();

   while (!process_msgs()) Sleep(10);

   eat();

   active = 1; adjust_mouse_cursor();

   sound_play();

   pause = 0;

}

void main_debug()

{

   Z80 &cpu = CpuMgr.Cpu();

   cpu.dbgchk = 1;

   cpu.dbgbreak = 1;

   dbgbreak = 1;

}

enum { FIX_FRAME = 0, FIX_LINE, FIX_PAPER, FIX_NOPAPER, FIX_HWNC, FIX_LAST };

const char *fix_titles[FIX_LAST] = {

   "%d t-states / int",

   "%d t-states / line",

   "paper starts at %d",

   "border only: %d",

   "hardware mc: %d"

};

unsigned char whatfix = 0, whatsnd = 0;

unsigned char fixmode = -1;

int mul0 = 100, mul1 = 1000;

void chfix(int dx)

{

   if (!fixmode) {

      int value;

      switch (whatfix) {

         case FIX_FRAME: value = (conf.frame += dx); break;

         case FIX_LINE: value = (conf.t_line += dx); break;

         case FIX_PAPER: value = (conf.paper += dx); break;

         case FIX_NOPAPER: value = (conf.nopaper ^= dx?1:0); break;

         case FIX_HWNC: value = (comp.pEFF7 ^= dx?EFF7_HWMC:0)? 1 : 0; break;

      }

      video_timing_tables();

      apply_sound(); // t/frame affects AY engine!

      sprintf(statusline, fix_titles[whatfix], value); statcnt=50;

      if (dx) conf.ula_preset = -1;

      return;

   }

   if (fixmode != 1) return;

   dx = (dx > 0) ? 1 : ((dx < 0) ? -1 : 0);

   *statusline = 0; statcnt = 50;

   switch (whatsnd) {

      case 0:

         conf.sound.ay_stereo = (conf.sound.ay_stereo+dx+num_aystereo) % num_aystereo;

         sprintf(statusline, "Stereo preset: %s", aystereo[conf.sound.ay_stereo]);

         break;

      case 1:

         if (dx) conf.sound.ay_samples ^= 1;

         sprintf(statusline, "Digital Soundchip: %s", conf.sound.ay_samples? "yes" : "no");

         break;

      case 2:

         conf.sound.ay_vols = (conf.sound.ay_vols+num_ayvols+dx) % num_ayvols;

         sprintf(statusline, "Chip Table: %s", ayvols[conf.sound.ay_vols]);

         break;

      case 3:

         conf.pal = (conf.pal+dx);

         if (conf.pal == conf.num_pals) conf.pal = 0;

         if (conf.pal == -1) conf.pal = conf.num_pals-1;

         sprintf(statusline, "Palette: %s", pals[conf.pal].name);

         video_color_tables();

         return;

   }

   apply_sound();

}

void main_selectfix()

{

   if (!fixmode) whatfix = (whatfix+1) % FIX_LAST;

   fixmode = 0; mul0 = 1, mul1 = 10;

   if (whatfix == FIX_FRAME) mul0 = 100, mul1 = 1000;

   chfix(0);

}

void main_selectsnd()

{

   if (fixmode==1) whatsnd = (whatsnd+1) & 3;

   fixmode = 1;

   chfix(0);

}

void main_incfix() { chfix(mul0); }

void main_decfix() { chfix(-mul0); }

void main_incfix10() { chfix(mul1); }

void main_decfix10() { chfix(-mul1); }

void main_leds()

{

   conf.led.enabled ^= 1;

   sprintf(statusline, "leds %s", conf.led.enabled ? "on" : "off"); statcnt = 50;

}

void main_maxspeed()

{

   conf.sound.enabled ^= 1;

   temp.frameskip = conf.sound.enabled? conf.frameskip : conf.frameskipmax;

   if (conf.sound.enabled) sound_play(); else sound_stop();

   sprintf(statusline, "Max speed: %s", conf.sound.enabled ? "NO" : "YES"); statcnt = 50;

}

// select filter / driver through gui dialog ----------------------------

INT_PTR CALLBACK filterdlg(HWND dlg, UINT msg, WPARAM wp, LPARAM lp)

{

   if (msg == WM_INITDIALOG)

   {

      HWND box = GetDlgItem(dlg, IDC_LISTBOX); int i;

      if (lp) {

         for (i = 0; drivers[i].name; i++)

            SendMessage(box, LB_ADDSTRING, 0, (LPARAM)drivers[i].name);

         SendMessage(box, LB_SETCURSEL, conf.driver, 0);

         SetWindowText(dlg, "Select driver for rendering");

      } else {

         for (i = 0; renders[i].name; i++)

            SendMessage(box, LB_ADDSTRING, 0, (LPARAM)renders[i].name);

         SendMessage(box, LB_SETCURSEL, conf.render, 0);

      }

      RECT rcw, cli; GetWindowRect(box, &rcw); GetClientRect(box, &cli);

      RECT rcd; GetWindowRect(dlg, &rcd);

      int nc_width = (rcw.right - rcw.left) - (cli.right - cli.left);

      int nc_height = (rcw.bottom - rcw.top) - (cli.bottom - cli.top);

      int dlg_w = (rcd.right - rcd.left) - (rcw.right - rcw.left);

      int dlg_h = (rcd.bottom - rcd.top) - (rcw.bottom - rcw.top);

      nc_width += 300;

      nc_height += i*SendMessage(box, LB_GETITEMHEIGHT, 0, 0);

      dlg_w += nc_width; dlg_h += nc_height;

      SetWindowPos(box, 0, 0, 0, nc_width, nc_height, SWP_NOZORDER | SWP_NOMOVE | SWP_NOOWNERZORDER | SWP_SHOWWINDOW);

      GetWindowRect(wnd, &rcw);

      SetWindowPos(dlg, 0,

         rcw.left + ((rcw.right-rcw.left)-dlg_w)/2,

         rcw.top + ((rcw.bottom-rcw.top)-dlg_h)/2,

         dlg_w, dlg_h, SWP_NOZORDER | SWP_NOOWNERZORDER | SWP_SHOWWINDOW);

      SetFocus(box);

      return FALSE;

   }

   if ((msg == WM_COMMAND && wp == IDCANCEL) ||

       (msg == WM_SYSCOMMAND && (wp & 0xFFF0) == SC_CLOSE))

   {

       EndDialog(dlg, -1);

       return TRUE;

   }

   if (msg == WM_COMMAND)

   {

      int control = LOWORD(wp);

      if (control == IDOK || (control == IDC_LISTBOX && HIWORD(wp) == LBN_DBLCLK))

      {

         EndDialog(dlg, SendDlgItemMessage(dlg, IDC_LISTBOX, LB_GETCURSEL, 0, 0));

         return TRUE;

      }

   }

   return FALSE;

}

void main_selectfilter()

{

   OnEnterGui();

   int index = DialogBoxParam(hIn, MAKEINTRESOURCE(IDD_FILTER_DIALOG), wnd, filterdlg, 0);

   eat();

   if (index < 0)

   {

       OnExitGui();

       return;

   }

   OnExitGui(false);

   conf.render = index;

   sprintf(statusline, "Video: %s", renders[index].name); statcnt = 50;

   apply_video(); eat();

}

void main_selectdriver()

{

   if (!(temp.rflags & RF_DRIVER)) {

     strcpy(statusline, "Not available for this filter"); statcnt = 50;

     return;

   }

   OnEnterGui();

   int index = DialogBoxParam(hIn, MAKEINTRESOURCE(IDD_FILTER_DIALOG), wnd, filterdlg, 1);

   eat();

   if (index < 0)

   {

       OnExitGui();

       return;

   }

   OnExitGui(false);

   conf.driver = index;

   sprintf(statusline, "Render to: %s", drivers[index].name); statcnt = 50;

   apply_video();

   eat();

}

// ----------------------------------------------------------------------

void main_poke()

{

   OnEnterGui();

   DialogBox(hIn, MAKEINTRESOURCE(IDD_POKE), wnd, pokedlg);

   eat();

   OnExitGui();

}

void main_starttape()

{

   //if (comp.tape.play_pointer) stop_tape(); else start_tape();

   (comp.tape.play_pointer) ? stop_tape() : start_tape();

}

void main_tapebrowser()

{

#ifdef MOD_SETTINGS

   lastpage = "TAPE", setup_dlg();

#endif

}

#ifndef MOD_SETTINGS

void setup_dlg() {}

#endif

static const char *getrom(ROM_MODE page)

{

   switch (page) {

      case RM_128: return "Basic 128";

      case RM_SYS: return "Service ROM";

      case RM_DOS: return "TR-DOS";

      case RM_SOS: return "Basic 48";

      case RM_CACHE: return "Cache";

   }

   return "???";

}

void m_reset(ROM_MODE page)

{

   sprintf(statusline, "Reset to %s", getrom(page)); statcnt = 50;

   nmi_pending = 0;

   cpu.nmi_in_progress = false;

   reset(page);

}

void main_reset128() { m_reset(RM_128); }

void main_resetsys() { m_reset(RM_SYS); }

void main_reset48() { m_reset(RM_SOS); comp.p7FFD = 0x30; comp.pEFF7 |= EFF7_LOCKMEM; /*Alone Coder*/}

void main_resetbas() { m_reset(RM_SOS); }

void main_resetdos() { if (conf.trdos_present) m_reset(RM_DOS); }

void main_resetcache() { if (conf.cache) m_reset(RM_CACHE); }

void main_reset() { m_reset((ROM_MODE)conf.reset_rom); }

void m_nmi(ROM_MODE page)

{

   set_mode(page);

   sprintf(statusline, "NMI to %s", getrom(page)); statcnt = 50;

   comp.p00 = 0; // quorum

   cpu.sp -= 2;

   if(cpu.DbgMemIf->rm(cpu.pc) == 0x76) // nmi on halt command

       cpu.pc++;

   cpu.DbgMemIf->wm(cpu.sp, cpu.pcl);

   cpu.DbgMemIf->wm(cpu.sp+1, cpu.pch);

   cpu.pc = 0x66; cpu.iff1 = cpu.halted = 0;

}

void main_nmi()

{

    nmi_pending  = 1;

    if(conf.mem_model != MM_ATM3)

        m_nmi(RM_NOCHANGE);

}

void main_nmidos()

{

 if((conf.mem_model == MM_PROFSCORP || conf.mem_model == MM_SCORP) &&

   !(comp.flags & CF_TRDOS) && cpu.pc < 0x4000)

 {

     nmi_pending = conf.frame * 50; // 50 * 20ms

     return;

 }

 m_nmi(RM_DOS);

}

void main_nmicache() { m_nmi(RM_CACHE); }

static void qsave(const char *fname) {

   char xx[0x200]; addpath(xx, fname);

   FILE *ff = fopen(xx, "wb");

   if (ff) {

      if (writeSNA(ff)) sprintf(statusline, "Quick save to %s", fname), statcnt = 30;

      fclose(ff);

   }

}

void qsave1() { qsave("qsave1.sna"); }

void qsave2() { qsave("qsave2.sna"); }

void qsave3() { qsave("qsave3.sna"); }

static void qload(const char *fname) {

   char xx[0x200]; addpath(xx, fname);

   if (loadsnap(xx)) sprintf(statusline, "Quick load from %s", fname), statcnt = 30;

}

void qload1() { qload("qsave1.sna"); }

void qload2() { qload("qsave2.sna"); }

void qload3() { qload("qsave3.sna"); }

void main_keystick()

{

   input.keymode = (input.keymode == K_INPUT::KM_KEYSTICK)? K_INPUT::KM_DEFAULT : K_INPUT::KM_KEYSTICK;

}

void main_autofire()

{

   conf.input.fire ^= 1;

   input.firedelay = 1;

   sprintf(statusline, "autofire %s", conf.input.fire ? "on" : "off"), statcnt = 30;

}

void main_save()

{

   sound_stop();

   if (conf.cmos)

       save_nv();

   unsigned char optype = 0;

   for (int i = 0; i < 4; i++)

   {

      if (!comp.wd.fdd[i].test())

          return;

      optype |= comp.wd.fdd[i].optype;

   }

   if (!optype)

       sprintf(statusline, "all saved"), statcnt = 30;

}

void main_fullscr()

{

   if (!(temp.rflags & (RF_GDI|RF_OVR|RF_CLIP|RF_D3D)))

       sprintf(statusline, "only for overlay/gdi/nonexclusive modes"), statcnt = 30;

   else

   {

       conf.fullscr ^= 1;

       apply_video();

   }

}

void main_mouse()

{

   conf.lockmouse ^= 1;

   adjust_mouse_cursor();

   sprintf(statusline, "mouse %slocked", conf.lockmouse? nil:"un"), statcnt = 30;

}

void main_help() { showhelp(); }

void mon_help() { showhelp("monitor_keys"); }

void main_atmkbd()

{

   conf.atm.xt_kbd ^= 1;

   if (conf.atm.xt_kbd) sprintf(statusline, "ATM mode on. emulator hotkeys disabled");

   else sprintf(statusline, "ATM mode off");

   statcnt = 50;

}

void main_pastetext() { input.paste(); }

void wnd_resize(int scale)

{

   if (conf.fullscr)

   {

       sprintf(statusline, "impossible in fullscreen mode");

       statcnt = 50;

       return;

   }

   if (!scale)

   {

       ShowWindow(wnd, SW_MAXIMIZE);

       return;

   }

   ShowWindow(wnd, SW_RESTORE);

   DWORD style = GetWindowLong(wnd, GWL_STYLE);

   RECT rc = { 0, 0, LONG(temp.ox * scale), LONG(temp.oy * scale) };

   AdjustWindowRect(&rc, style, 0);

   SetWindowPos(wnd, 0, 0, 0, rc.right - rc.left, rc.bottom - rc.top, SWP_NOCOPYBITS | SWP_NOMOVE | SWP_NOOWNERZORDER | SWP_NOZORDER);

   if(temp.rflags & RF_2X)

       scale *= 2;

   else if(temp.rflags & RF_3X)

       scale *= 3;

   else if(temp.rflags & RF_4X)

       scale *= 4;

   sprintf(statusline, "scale: %dx", scale);

   statcnt = 50;

}

void main_size1() { wnd_resize(1); }

void main_size2() { wnd_resize(2); }

void main_sizem() { wnd_resize(0); }

static void SetBorderSize(unsigned BorderSize)

{

// 0 - none

// 1 - small

// 2 - full

   if(BorderSize > 2)

   {

       return;

   }

   conf.bordersize = BorderSize;

   apply_video();

}

void main_border_none() { SetBorderSize(0); }

void main_border_small() { SetBorderSize(1); }

void main_border_full() { SetBorderSize(2); }

void correct_exit()

{

   sound_stop();

   if(!done_fdd(true))

       return;

   nowait = 1;

   normal_exit = true;

   exit();

}

void opensnap()

{

   OnEnterGui();

   opensnap(0);

   eat();

   OnExitGui();

}

void savesnap()

{

   OnEnterGui();

   savesnap(-1);

   eat();

   OnExitGui();

}