OSDN Git Service

[BUILD] Set SOVERSION and GIT hash automatically.
[csp-qt/common_source_project-fm7.git] / source / src / vm / tk80bs / tk80bs.cpp
index b1d5666..18a98a1 100644 (file)
-/*\r
-       NEC TK-80BS (COMPO BS/80) Emulator 'eTK-80BS'\r
-\r
-       Author : Takeda.Toshiya\r
-       Date   : 2008.08.26 -\r
-\r
-       [ virtual machine ]\r
-*/\r
-\r
-#include "tk80bs.h"\r
-#include "../../emu.h"\r
-#include "../device.h"\r
-#include "../event.h"\r
-\r
-#include "../i8080.h"\r
-#include "../i8251.h"\r
-#include "../i8255.h"\r
-#include "../io.h"\r
-#include "../memory.h"\r
-#include "../pcm1bit.h"\r
-\r
-#ifdef USE_DEBUGGER\r
-#include "../debugger.h"\r
-#endif\r
-\r
-#include "cmt.h"\r
-#include "display.h"\r
-#include "keyboard.h"\r
-\r
-// ----------------------------------------------------------------------------\r
-// initialize\r
-// ----------------------------------------------------------------------------\r
-\r
-VM::VM(EMU* parent_emu) : emu(parent_emu)\r
-{\r
-       // check configs\r
-//     boot_mode = config.boot_mode;\r
-       boot_mode = -1;\r
-       \r
-       // create devices\r
-       first_device = last_device = NULL;\r
-       dummy = new DEVICE(this, emu);  // must be 1st device\r
-       event = new EVENT(this, emu);   // must be 2nd device\r
-       \r
-       sio_b = new I8251(this, emu);   // on TK-80BS\r
-       pio_b = new I8255(this, emu);\r
-       pio_t = new I8255(this, emu);   // on TK-80\r
-       memio = new IO(this, emu);\r
-       memory = new MEMORY(this, emu);\r
-       pcm0 = new PCM1BIT(this, emu);\r
-       pcm1 = new PCM1BIT(this, emu);\r
-       cpu = new I8080(this, emu);\r
-       \r
-       cmt = new CMT(this, emu);\r
-       display = new DISPLAY(this, emu);\r
-       keyboard = new KEYBOARD(this, emu);\r
-       \r
-       // set contexts\r
-       event->set_context_cpu(cpu);\r
-       event->set_context_sound(pcm0);\r
-       event->set_context_sound(pcm1);\r
-       \r
-/*     8255 on TK-80\r
-       \r
-       PA      key matrix\r
-       PB0     serial in\r
-       PC0     serial out\r
-       PC1     sound #1\r
-       PC2     sound #2\r
-       PC4-6   key column\r
-       PC7     dma disable\r
-*/\r
-       sio_b->set_context_out(cmt, SIG_CMT_OUT);\r
-       pio_b->set_context_port_c(display, SIG_DISPLAY_MODE, 3, 0);\r
-       pio_t->set_context_port_c(pcm0, SIG_PCM1BIT_SIGNAL, 2, 0);\r
-       pio_t->set_context_port_c(pcm1, SIG_PCM1BIT_SIGNAL, 4, 0);\r
-       pio_t->set_context_port_c(keyboard, SIG_KEYBOARD_COLUMN, 0x70, 0);\r
-       pio_t->set_context_port_c(display, SIG_DISPLAY_DMA, 0x80, 0);\r
-       \r
-       cmt->set_context_sio(sio_b);\r
-       display->set_context_key(keyboard);\r
-       display->set_vram_ptr(vram);\r
-       display->set_led_ptr(ram + 0x3f8);\r
-       keyboard->set_context_pio_b(pio_b);\r
-       keyboard->set_context_pio_t(pio_t);\r
-       keyboard->set_context_cpu(cpu);\r
-       \r
-       // cpu bus\r
-       cpu->set_context_mem(memory);\r
-       cpu->set_context_io(pio_t);\r
-       cpu->set_context_intr(keyboard);\r
-#ifdef USE_DEBUGGER\r
-       cpu->set_context_debugger(new DEBUGGER(this, emu));\r
-#endif\r
-       \r
-       // memory bus\r
-       memset(mon, 0xff, sizeof(mon));\r
-       memset(bsmon, 0xff, sizeof(bsmon));\r
-       memset(ext, 0xff, sizeof(ext));\r
-       \r
-       static const uint8 top[3] = {0xc3, 0x00, 0xf0};\r
-       static const uint8 rst[3] = {0xc3, 0xdd, 0x83};\r
-       \r
-       if(!memory->read_bios(_T("TK80.ROM"), mon, sizeof(mon))) {\r
-               // default\r
-               memcpy(mon, top, sizeof(top));\r
-               memcpy(mon + 0x38, rst, sizeof(rst));\r
-       }\r
-       if(memory->read_bios(_T("BSMON.ROM"), bsmon, sizeof(bsmon))) {\r
-               // patch\r
-               memcpy(mon + 0x38, rst, sizeof(rst));\r
-       }\r
-       memory->read_bios(_T("EXT.ROM"), ext, sizeof(ext));\r
-       \r
-       memory->set_memory_r(0x0000, 0x07ff, mon);\r
-       memory->set_memory_r(0x0c00, 0x7bff, ext);\r
-       memory->set_memory_mapped_io_rw(0x7c00, 0x7dff, memio);\r
-       memory->set_memory_rw(0x7e00, 0x7fff, vram);\r
-       memory->set_memory_rw(0x8000, 0xcfff, ram);\r
-       memory->set_memory_r(0xd000, 0xefff, basic);\r
-       memory->set_memory_r(0xf000, 0xffff, bsmon);\r
-       \r
-       // memory mapped i/o\r
-       memio->set_iomap_alias_rw(0x7df8, sio_b, 0);\r
-       memio->set_iomap_alias_rw(0x7df9, sio_b, 1);\r
-       memio->set_iomap_alias_rw(0x7dfc, pio_b, 0);\r
-       memio->set_iomap_alias_rw(0x7dfd, pio_b, 1);\r
-       memio->set_iomap_alias_rw(0x7dfe, pio_b, 2);\r
-       memio->set_iomap_alias_w(0x7dff, pio_b, 3);\r
-       \r
-       // initialize all devices\r
-       for(DEVICE* device = first_device; device; device = device->next_device) {\r
-               device->initialize();\r
-       }\r
-}\r
-\r
-VM::~VM()\r
-{\r
-       // delete all devices\r
-       for(DEVICE* device = first_device; device;) {\r
-               DEVICE *next_device = device->next_device;\r
-               device->release();\r
-               delete device;\r
-               device = next_device;\r
-       }\r
-}\r
-\r
-DEVICE* VM::get_device(int id)\r
-{\r
-       for(DEVICE* device = first_device; device; device = device->next_device) {\r
-               if(device->this_device_id == id) {\r
-                       return device;\r
-               }\r
-       }\r
-       return NULL;\r
-}\r
-\r
-// ----------------------------------------------------------------------------\r
-// drive virtual machine\r
-// ----------------------------------------------------------------------------\r
-\r
-void VM::reset()\r
-{\r
-       // load basic rom\r
-       if(boot_mode != config.boot_mode) {\r
-               memset(basic, 0xff, sizeof(basic));\r
-               if(config.boot_mode == 0) {\r
-                       memory->read_bios(_T("LV1BASIC.ROM"), basic + 0x1000, 0x1000);\r
-               } else {\r
-                       memory->read_bios(_T("LV2BASIC.ROM"), basic, sizeof(basic));\r
-               }\r
-               boot_mode = config.boot_mode;\r
-               \r
-               memset(ram, 0, sizeof(ram));\r
-               memset(vram, 0x20, sizeof(vram));\r
-       }\r
-       \r
-       // reset all devices\r
-       for(DEVICE* device = first_device; device; device = device->next_device) {\r
-               device->reset();\r
-       }\r
-       \r
-       // init 8255 on TK-80\r
-       pio_t->write_io8(0xfb, 0x92);\r
-       pio_t->write_signal(SIG_I8255_PORT_A, 0xff, 0xff);\r
-}\r
-\r
-void VM::run()\r
-{\r
-       event->drive();\r
-}\r
-\r
-// ----------------------------------------------------------------------------\r
-// debugger\r
-// ----------------------------------------------------------------------------\r
-\r
-#ifdef USE_DEBUGGER\r
-DEVICE *VM::get_cpu(int index)\r
-{\r
-       if(index == 0) {\r
-               return cpu;\r
-       }\r
-       return NULL;\r
-}\r
-#endif\r
-\r
-// ----------------------------------------------------------------------------\r
-// draw screen\r
-// ----------------------------------------------------------------------------\r
-\r
-void VM::draw_screen()\r
-{\r
-       display->draw_screen();\r
-}\r
-\r
-// ----------------------------------------------------------------------------\r
-// soud manager\r
-// ----------------------------------------------------------------------------\r
-\r
-void VM::initialize_sound(int rate, int samples)\r
-{\r
-       // init sound manager\r
-       event->initialize_sound(rate, samples);\r
-       \r
-       // init sound gen\r
-       pcm0->init(rate, 8000);\r
-       pcm1->init(rate, 8000);\r
-}\r
-\r
-uint16* VM::create_sound(int* extra_frames)\r
-{\r
-       return event->create_sound(extra_frames);\r
-}\r
-\r
-int VM::sound_buffer_ptr()\r
-{\r
-       return event->sound_buffer_ptr();\r
-}\r
-\r
-// ----------------------------------------------------------------------------\r
-// notify key\r
-// ----------------------------------------------------------------------------\r
-\r
-void VM::key_down(int code, bool repeat)\r
-{\r
-       keyboard->key_down(code);\r
-}\r
-\r
-void VM::key_up(int code)\r
-{\r
-       keyboard->key_up(code);\r
-}\r
-\r
-// ----------------------------------------------------------------------------\r
-// user interface\r
-// ----------------------------------------------------------------------------\r
-\r
-void VM::load_binary(int drv, _TCHAR* file_path)\r
-{\r
-       if(drv == 0) {\r
-               memory->read_image(file_path, ram, sizeof(ram));\r
-       }\r
-}\r
-\r
-void VM::save_binary(int drv, _TCHAR* file_path)\r
-{\r
-       if(drv == 0) {\r
-               memory->write_image(file_path, ram, sizeof(ram));\r
-       }\r
-}\r
-\r
-void VM::play_tape(_TCHAR* file_path)\r
-{\r
-       cmt->play_tape(file_path);\r
-}\r
-\r
-void VM::rec_tape(_TCHAR* file_path)\r
-{\r
-       cmt->rec_tape(file_path);\r
-}\r
-\r
-void VM::close_tape()\r
-{\r
-       cmt->close_tape();\r
-}\r
-\r
-bool VM::tape_inserted()\r
-{\r
-       return cmt->tape_inserted();\r
-}\r
-\r
-bool VM::now_skip()\r
-{\r
-       return event->now_skip();\r
-}\r
-\r
-void VM::update_config()\r
-{\r
-       if(boot_mode != config.boot_mode) {\r
-               // boot mode is changed !!!\r
-//             boot_mode = config.boot_mode;\r
-               reset();\r
-       } else {\r
-               for(DEVICE* device = first_device; device; device = device->next_device) {\r
-                       device->update_config();\r
-               }\r
-       }\r
-}\r
-\r
+/*
+       NEC TK-80BS (COMPO BS/80) Emulator 'eTK-80BS'
+       NEC TK-80 Emulator 'eTK-80'
+       NEC TK-85 Emulator 'eTK-85'
+
+       Author : Takeda.Toshiya
+       Date   : 2008.08.26 -
+
+       [ virtual machine ]
+*/
+
+#include "tk80bs.h"
+#include "../../emu.h"
+#include "../device.h"
+#include "../event.h"
+
+#include "../datarec.h"
+#include "../i8080.h"
+#if defined(_TK80BS)
+#include "../i8251.h"
+#include "../io.h"
+#endif
+#include "../i8255.h"
+//#include "../memory.h"
+#include "../noise.h"
+#include "../pcm1bit.h"
+
+#ifdef USE_DEBUGGER
+#include "../debugger.h"
+#endif
+
+#if defined(_TK80BS) || defined(_TK80)
+#include "cmt.h"
+#endif
+#include "display.h"
+#include "keyboard.h"
+#include "membus.h"
+
+// ----------------------------------------------------------------------------
+// initialize
+// ----------------------------------------------------------------------------
+
+VM::VM(EMU* parent_emu) : VM_TEMPLATE(parent_emu)
+{
+#if defined(_TK80BS)
+       // check configs
+//     boot_mode = config.boot_mode;
+       boot_mode = -1;
+#endif
+#if defined(_TK80BS) || defined(_TK80)
+       config.wave_shaper[0] = false;
+#endif
+
+       // create devices
+       first_device = last_device = NULL;
+       dummy = new DEVICE(this, emu);  // must be 1st device
+       dummy->set_device_name(_T("1st Dummy"));
+       event = new EVENT(this, emu);   // must be 2nd device
+       
+       cpu = new I8080(this, emu);
+#if defined(_TK80BS)
+       sio_b = new I8251(this, emu);   // on TK-80BS
+       sio_b->set_device_name(_T("i8251 SIO (TK-80BS/CMT)"));
+       pio_b = new I8255(this, emu);
+       pio_b->set_device_name(_T("i8255 PIO (TK-80BS/DISPLAY)"));
+       memio = new IO(this, emu);
+       memio->set_device_name(_T("Memory Mapped I/O (TK-80BS)"));
+#endif
+       drec = new DATAREC(this, emu);
+       drec->set_context_noise_play(new NOISE(this, emu));
+       drec->set_context_noise_stop(new NOISE(this, emu));
+       drec->set_context_noise_fast(new NOISE(this, emu));
+       pio_t = new I8255(this, emu);   // on TK-80
+//     memory = new MEMORY(this, emu);
+       
+       pcm0 = new PCM1BIT(this, emu);
+       pcm0->set_device_name(_T("1-Bit PCM Sound #1"));
+       pcm1 = new PCM1BIT(this, emu);
+       pcm1->set_device_name(_T("1-Bit PCM Sound #2"));
+       
+#if defined(_TK80BS) || defined(_TK80)
+       cmt = new CMT(this, emu);
+#endif
+       display = new DISPLAY(this, emu);
+       keyboard = new KEYBOARD(this, emu);
+       memory = new MEMBUS(this, emu);
+#if defined(_TK80BS)
+       pio_t->set_device_name(_T("i8255 PIO (TK-80/SOUND/KEYBOARD/DISPLAY)"));
+#else
+       pio_t->set_device_name(_T("i8255 PIO (TK-80/SOUND/KEYBOARD)"));
+#endif
+
+       // set contexts
+       event->set_context_cpu(cpu);
+       event->set_context_sound(pcm0);
+       event->set_context_sound(pcm1);
+       event->set_context_sound(drec);
+       event->set_context_sound(drec->get_context_noise_play());
+       event->set_context_sound(drec->get_context_noise_stop());
+       event->set_context_sound(drec->get_context_noise_fast());
+       
+/*     8255 on TK-80
+       
+       PA      key matrix
+       PB0     serial in
+       PC0     serial out
+       PC1     sound #1
+       PC2     sound #2
+       PC4-6   key column
+       PC7     dma disable
+*/
+#if defined(_TK80BS)
+       sio_b->set_context_out(cmt, SIG_CMT_OUT);
+       pio_b->set_context_port_c(display, SIG_DISPLAY_MODE, 3, 0);
+#endif
+#if defined(_TK80BS) || defined(_TK80)
+       drec->set_context_ear(cmt, SIG_CMT_EAR, 1);
+       pio_t->set_context_port_c(cmt, SIG_CMT_MIC, 1, 0);
+#elif defined(_TK85)
+       drec->set_context_ear(cpu, SIG_I8085_SID, 1);
+       cpu->set_context_sod(drec, SIG_DATAREC_MIC, 1);
+#endif
+       pio_t->set_context_port_c(pcm0, SIG_PCM1BIT_SIGNAL, 2, 0);
+       pio_t->set_context_port_c(pcm1, SIG_PCM1BIT_SIGNAL, 4, 0);
+       pio_t->set_context_port_c(keyboard, SIG_KEYBOARD_COLUMN, 0x70, 0);
+#if defined(_TK80BS) || defined(_TK80)
+       pio_t->set_context_port_c(display, SIG_DISPLAY_DMA, 0x80, 0);
+#elif defined(_TK85)
+       pio_t->set_context_port_c(memory, SIG_MEMBUS_PC7, 0x80, 0);
+#endif
+       // Sound:: Force realtime rendering. This is temporally fix. 20161024 K.O
+       //pcm0->set_realtime_render(true);
+       //pcm1->set_realtime_render(true);
+       
+#if defined(_TK80BS) || defined(_TK80)
+       cmt->set_context_drec(drec);
+       cmt->set_context_pio(pio_t);
+#endif
+#if defined(_TK80BS)
+       cmt->set_context_sio(sio_b);
+       display->set_vram_ptr(vram);
+       keyboard->set_context_pio_b(pio_b);
+       keyboard->set_context_cpu(cpu);
+#endif
+       display->set_led_ptr(ram + 0x3f8);
+       keyboard->set_context_pio_t(pio_t);
+       memory->set_context_cpu(cpu);
+       
+       // cpu bus
+       cpu->set_context_mem(memory);
+       cpu->set_context_io(pio_t);
+       cpu->set_context_intr(keyboard);
+#ifdef USE_DEBUGGER
+       cpu->set_context_debugger(new DEBUGGER(this, emu));
+#endif
+       
+       // memory bus
+       memset(mon, 0xff, sizeof(mon));
+#if defined(_TK80BS)
+       memset(bsmon, 0xff, sizeof(bsmon));
+#endif
+       memset(ext, 0xff, sizeof(ext));
+       
+#if defined(_TK80BS)
+       static const uint8_t top[3] = {0xc3, 0x00, 0xf0};
+       static const uint8_t rst[3] = {0xc3, 0xdd, 0x83};
+       
+       if(!memory->read_bios(_T("TK80.ROM"), mon, sizeof(mon))) {
+               // default
+               memcpy(mon, top, sizeof(top));
+               memcpy(mon + 0x38, rst, sizeof(rst));
+       }
+       if(memory->read_bios(_T("BSMON.ROM"), bsmon, sizeof(bsmon))) {
+               // patch
+               memcpy(mon + 0x38, rst, sizeof(rst));
+       }
+#elif defined(_TK80)
+       memory->read_bios(_T("TK80.ROM"), mon, sizeof(mon));
+#elif defined(_TK85)
+       memory->read_bios(_T("TK85.ROM"), mon, sizeof(mon));
+#endif
+       memory->read_bios(_T("EXT.ROM"), ext, sizeof(ext));
+       
+       memory->set_memory_r(0x0000, 0x07ff, mon);
+       memory->set_memory_r(0x0c00, 0x7bff, ext);
+#if defined(_TK80BS)
+       memory->set_memory_mapped_io_rw(0x7c00, 0x7dff, memio);
+       memory->set_memory_rw(0x7e00, 0x7fff, vram);
+#endif
+       memory->set_memory_rw(0x8000, 0xcfff, ram);
+#if defined(_TK80BS)
+       memory->set_memory_r(0xd000, 0xefff, basic);
+       memory->set_memory_r(0xf000, 0xffff, bsmon);
+       
+       // memory mapped i/o
+       memio->set_iomap_alias_rw(0x7df8, sio_b, 0);
+       memio->set_iomap_alias_rw(0x7df9, sio_b, 1);
+       memio->set_iomap_alias_rw(0x7dfc, pio_b, 0);
+       memio->set_iomap_alias_rw(0x7dfd, pio_b, 1);
+       memio->set_iomap_alias_rw(0x7dfe, pio_b, 2);
+       memio->set_iomap_alias_w(0x7dff, pio_b, 3);
+#endif
+       
+       // initialize all devices
+#if defined(__GIT_REPO_VERSION)
+       strncpy(_git_revision, __GIT_REPO_VERSION, sizeof(_git_revision) - 1);
+#endif
+       for(DEVICE* device = first_device; device; device = device->next_device) {
+               device->initialize();
+       }
+       decl_state();
+}
+
+VM::~VM()
+{
+       // delete all devices
+       for(DEVICE* device = first_device; device;) {
+               DEVICE *next_device = device->next_device;
+               device->release();
+               delete device;
+               device = next_device;
+       }
+}
+
+DEVICE* VM::get_device(int id)
+{
+       for(DEVICE* device = first_device; device; device = device->next_device) {
+               if(device->this_device_id == id) {
+                       return device;
+               }
+       }
+       return NULL;
+}
+
+// ----------------------------------------------------------------------------
+// drive virtual machine
+// ----------------------------------------------------------------------------
+
+void VM::reset()
+{
+#if defined(_TK80BS)
+       // load basic rom
+       if(boot_mode != config.boot_mode) {
+               memset(basic, 0xff, sizeof(basic));
+               if(config.boot_mode == 0) {
+                       memory->read_bios(_T("LV1BASIC.ROM"), basic + 0x1000, 0x1000);
+               } else {
+                       memory->read_bios(_T("LV2BASIC.ROM"), basic, sizeof(basic));
+               }
+               boot_mode = config.boot_mode;
+               
+               memset(ram, 0, sizeof(ram));
+       }
+       
+       // initialize screen
+       emu->reload_bitmap();
+       draw_ranges = 8;
+       memset(vram, 0x20, sizeof(vram));
+#endif
+       
+       // reset all devices
+       for(DEVICE* device = first_device; device; device = device->next_device) {
+               device->reset();
+       }
+       
+       // init 8255 on TK-80
+       pio_t->write_io8(0xfb, 0x92);
+       pio_t->write_signal(SIG_I8255_PORT_A, 0xff, 0xff);
+}
+
+void VM::run()
+{
+       event->drive();
+}
+
+// ----------------------------------------------------------------------------
+// debugger
+// ----------------------------------------------------------------------------
+
+#ifdef USE_DEBUGGER
+DEVICE *VM::get_cpu(int index)
+{
+       if(index == 0) {
+               return cpu;
+       }
+       return NULL;
+}
+#endif
+
+// ----------------------------------------------------------------------------
+// draw screen
+// ----------------------------------------------------------------------------
+
+void VM::draw_screen()
+{
+       display->draw_screen();
+}
+
+#if defined(_TK80BS)
+int VM::max_draw_ranges()
+{
+       return draw_ranges;
+}
+#endif
+
+// ----------------------------------------------------------------------------
+// soud manager
+// ----------------------------------------------------------------------------
+
+void VM::initialize_sound(int rate, int samples)
+{
+       // init sound manager
+       event->initialize_sound(rate, samples);
+       
+       // init sound gen
+       pcm0->initialize_sound(rate, 8000);
+       pcm1->initialize_sound(rate, 8000);
+}
+
+uint16_t* VM::create_sound(int* extra_frames)
+{
+       return event->create_sound(extra_frames);
+}
+
+int VM::get_sound_buffer_ptr()
+{
+       return event->get_sound_buffer_ptr();
+}
+
+#ifdef USE_SOUND_VOLUME
+void VM::set_sound_device_volume(int ch, int decibel_l, int decibel_r)
+{
+       if(ch == 0) {
+               pcm0->set_volume(0, decibel_l, decibel_r);
+       } else if(ch == 1) {
+               pcm1->set_volume(0, decibel_l, decibel_r);
+       } else if(ch == 2) {
+               drec->set_volume(0, decibel_l, decibel_r);
+       } else if(ch == 3) {
+               drec->get_context_noise_play()->set_volume(0, decibel_l, decibel_r);
+               drec->get_context_noise_stop()->set_volume(0, decibel_l, decibel_r);
+               drec->get_context_noise_fast()->set_volume(0, decibel_l, decibel_r);
+       }
+}
+#endif
+
+// ----------------------------------------------------------------------------
+// notify key
+// ----------------------------------------------------------------------------
+
+void VM::key_down(int code, bool repeat)
+{
+#if defined(_TK85)
+       if(code == 0x97) {
+               cpu->write_signal(SIG_CPU_NMI, 1, 1);
+               return;
+       }
+#endif
+       keyboard->key_down(code);
+}
+
+void VM::key_up(int code)
+{
+#if defined(_TK85)
+       if(code == 0x97) {
+               return;
+       }
+#endif
+       keyboard->key_up(code);
+}
+
+bool VM::get_caps_locked()
+{
+       return keyboard->get_caps_locked();
+}
+
+bool VM::get_kana_locked()
+{
+       return keyboard->get_kana_locked();
+}
+
+// ----------------------------------------------------------------------------
+// user interface
+// ----------------------------------------------------------------------------
+
+void VM::load_binary(int drv, const _TCHAR* file_path)
+{
+       if(drv == 0) {
+               memory->read_image(file_path, ram, sizeof(ram));
+       }
+}
+
+void VM::save_binary(int drv, const _TCHAR* file_path)
+{
+       if(drv == 0) {
+               memory->write_image(file_path, ram, sizeof(ram));
+       }
+}
+
+void VM::play_tape(int drv, const _TCHAR* file_path)
+{
+       if(drv == 0) {
+               drec->play_tape(file_path);
+//             drec->set_remote(true);
+#if defined(_TK80BS)
+       } else if(drv == 1) {
+               cmt->play_tape(file_path);
+#endif
+       }
+}
+
+void VM::rec_tape(int drv, const _TCHAR* file_path)
+{
+       if(drv == 0) {
+               drec->rec_tape(file_path);
+//             drec->set_remote(true);
+#if defined(_TK80BS)
+       } else if(drv == 1) {
+               cmt->rec_tape(file_path);
+#endif
+       }
+}
+
+void VM::close_tape(int drv)
+{
+       if(drv == 0) {
+               emu->lock_vm();
+               drec->close_tape();
+               emu->unlock_vm();
+//             drec->set_remote(false);
+#if defined(_TK80BS)
+       } else if(drv == 1) {
+               cmt->close_tape();
+#endif
+       }
+}
+
+bool VM::is_tape_inserted(int drv)
+{
+       if(drv == 0) {
+               return drec->is_tape_inserted();
+#if defined(_TK80BS)
+       } else if(drv == 1) {
+               return cmt->is_tape_inserted();
+#endif
+       }
+       return false;
+}
+
+bool VM::is_tape_playing(int drv)
+{
+       if(drv == 0) {
+               return drec->is_tape_playing();
+#if defined(_TK80BS)
+       } else if(drv == 1) {
+               return cmt->is_tape_playing();
+#endif
+       }
+       return false;
+}
+
+bool VM::is_tape_recording(int drv)
+{
+       if(drv == 0) {
+               return drec->is_tape_recording();
+#if defined(_TK80BS)
+       } else if(drv == 1) {
+               return cmt->is_tape_recording();
+#endif
+       }
+       return false;
+}
+
+int VM::get_tape_position(int drv)
+{
+       if(drv == 0) {
+               return drec->get_tape_position();
+#if defined(_TK80BS)
+       } else if(drv == 1) {
+               return cmt->get_tape_position();
+#endif
+       }
+       return 0;
+}
+
+const _TCHAR* VM::get_tape_message(int drv)
+{
+       if(drv == 0) {
+               return drec->get_message();
+       }
+       return NULL;
+}
+
+void VM::push_play(int drv)
+{
+       if(drv == 0) {
+               drec->set_ff_rew(0);
+               drec->set_remote(true);
+       }
+}
+
+void VM::push_stop(int drv)
+{
+       if(drv == 0) {
+               drec->set_remote(false);
+       }
+}
+
+void VM::push_fast_forward(int drv)
+{
+       if(drv == 0) {
+               drec->set_ff_rew(1);
+               drec->set_remote(true);
+       }
+}
+
+void VM::push_fast_rewind(int drv)
+{
+       if(drv == 0) {
+               drec->set_ff_rew(-1);
+               drec->set_remote(true);
+       }
+}
+
+bool VM::is_frame_skippable()
+{
+//     return event->is_frame_skippable();
+       return false;
+}
+
+void VM::update_config()
+{
+#if defined(_TK80BS)
+       if(boot_mode != config.boot_mode) {
+               // boot mode is changed !!!
+//             boot_mode = config.boot_mode;
+               reset();
+       } else {
+#endif
+               for(DEVICE* device = first_device; device; device = device->next_device) {
+                       device->update_config();
+               }
+#if defined(_TK80BS)
+       }
+#endif
+}
+
+#define STATE_VERSION  6
+
+#include "../../statesub.h"
+#include "../../qt/gui/csp_logger.h"
+extern CSP_Logger DLL_PREFIX_I *csp_logger;
+
+void VM::decl_state(void)
+{
+#if defined(_TK80)
+       state_entry = new csp_state_utils(STATE_VERSION, 0, (_TCHAR *)(_T("CSP::TK_80_HEAD")), csp_logger);
+#elif defined(_TK85)
+       state_entry = new csp_state_utils(STATE_VERSION, 0, (_TCHAR *)(_T("CSP::TK_85_HEAD")), csp_logger);
+#elif defined(_TK80BS)
+       state_entry = new csp_state_utils(STATE_VERSION, 0, (_TCHAR *)(_T("CSP::TK_80BS_HEAD")), csp_logger);
+#else
+       state_entry = new csp_state_utils(STATE_VERSION, 0, (_TCHAR *)(_T("CSP::TK_80_SERIES_HEAD")), csp_logger);
+#endif
+       DECL_STATE_ENTRY_1D_ARRAY(ram, sizeof(ram));
+#if defined(_TK80BS)
+       DECL_STATE_ENTRY_1D_ARRAY(vram, sizeof(vram));
+       DECL_STATE_ENTRY_INT32(boot_mode);
+       //DECL_STATE_ENTRY_INT32(draw_ranges);
+#endif
+       for(DEVICE* device = first_device; device; device = device->next_device) {
+               device->decl_state();
+       }
+}
+
+void VM::save_state(FILEIO* state_fio)
+{
+       //state_fio->FputUint32(STATE_VERSION);
+       
+       if(state_entry != NULL) {
+               state_entry->save_state(state_fio);
+       }
+       for(DEVICE* device = first_device; device; device = device->next_device) {
+               device->save_state(state_fio);
+       }
+//     state_fio->Fwrite(ram, sizeof(ram), 1);
+//#if defined(_TK80BS)
+//     state_fio->Fwrite(vram, sizeof(vram), 1);
+//     state_fio->FputInt32(boot_mode);
+////   state_fio->FputInt32(draw_ranges);
+//#endif
+}
+
+bool VM::load_state(FILEIO* state_fio)
+{
+       //if(state_fio->FgetUint32() != STATE_VERSION) {
+       //      return false;
+       //}
+       bool mb = false;
+       if(state_entry != NULL) {
+               mb = state_entry->load_state(state_fio);
+       }
+       if(!mb) {
+               emu->out_debug_log("INFO: HEADER DATA ERROR");
+               return false;
+       }
+       for(DEVICE* device = first_device; device; device = device->next_device) {
+               if(!device->load_state(state_fio)) {
+                       return false;
+               }
+       }
+//     state_fio->Fread(ram, sizeof(ram), 1);
+#if defined(_TK80BS)
+//     state_fio->Fread(vram, sizeof(vram), 1);
+//     boot_mode = state_fio->FgetInt32();
+////   draw_ranges = state_fio->FgetInt32();
+       
+       // post process
+       emu->reload_bitmap();
+       draw_ranges = 8;
+#endif
+       return true;
+}
+