source/src/vm/pc8801/pc8801.cpp

   1 /*
   2         NEC PC-8801MA Emulator 'ePC-8801MA'
   3         NEC PC-8001mkIISR Emulator 'ePC-8001mkIISR'
   4
   5         Author : Takeda.Toshiya
   6         Date   : 2012.02.16-
   7
   8         [ virtual machine ]
   9 */
  10
  11 #include "pc8801.h"
  12 #include "../../emu.h"
  13 #include "../device.h"
  14 #include "../event.h"
  15
  16 #include "../i8251.h"
  17 #include "../i8255.h"
  18 #include "../pcm1bit.h"
  19 #include "../upd1990a.h"
  20 #include "../ym2203.h"
  21 #include "../z80.h"
  22
  23 #include "../disk.h"
  24 #include "../pc80s31k.h"
  25 #include "../upd765a.h"
  26
  27 #ifdef USE_DEBUGGER
  28 #include "../debugger.h"
  29 #endif
  30
  31 #ifdef SUPPORT_PC88_PCG8100
  32 #include "../i8253.h"
  33 #endif
  34
  35 #include "pc88.h"
  36
  37 // ----------------------------------------------------------------------------
  38 // initialize
  39 // ----------------------------------------------------------------------------
  40
  41 VM::VM(EMU* parent_emu) : emu(parent_emu)
  42 {
  43         // check configs
  44         boot_mode = config.boot_mode;
  45
  46         // create devices
  47         first_device = last_device = NULL;
  48         dummy = new DEVICE(this, emu);  // must be 1st device
  49
  50         pc88event = new EVENT(this, emu);
  51 //      pc88event->set_frames_per_sec(60);
  52 //      pc88event->set_lines_per_frame(260);
  53
  54         pc88 = new PC88(this, emu);
  55 //      pc88->set_context_event_manager(pc88event);
  56         pc88sio = new I8251(this, emu);
  57 //      pc88sio->set_context_event_manager(pc88event);
  58         pc88pio = new I8255(this, emu);
  59 //      pc88pio->set_context_event_manager(pc88event);
  60         pc88pcm = new PCM1BIT(this, emu);
  61 //      pc88pcm->set_context_event_manager(pc88event);
  62         pc88rtc = new UPD1990A(this, emu);
  63 //      pc88rtc->set_context_event_manager(pc88event);
  64         // config.sound_device_type
  65         //      0: 44h:OPNA A4h:None            PC-8801FH/MH or later
  66         //      1: 44h:OPN  A4h:None            PC-8801mkIISR/TR/MR/FR
  67         //      2: 44h:OPN  A4h:OPNA            PC-8801mkIISR/TR/MR/FR + PC-8801-23
  68         pc88opn = new YM2203(this, emu);
  69 #ifdef SUPPORT_PC88_OPNA
  70         pc88opn->is_ym2608 = (config.sound_device_type == 0);
  71 #endif
  72 //      pc88opn->set_context_event_manager(pc88event);
  73 #ifdef SUPPORT_PC88_SB2
  74         if(config.sound_device_type == 2) {
  75                 pc88sb2 = new YM2203(this, emu);
  76 #ifdef SUPPORT_PC88_OPNA
  77                 pc88sb2->is_ym2608 = true;
  78 #endif
  79 //              pc88sb2->set_context_event_manager(pc88event);
  80         } else {
  81                 pc88sb2 = NULL;
  82         }
  83 #endif
  84         pc88cpu = new Z80(this, emu);
  85 //      pc88cpu->set_context_event_manager(pc88event);
  86         dummycpu = new DEVICE(this, emu);
  87
  88         pc88sub = new PC80S31K(this, emu);
  89 //      pc88sub->set_context_event_manager(pc88event);
  90         pc88pio_sub = new I8255(this, emu);
  91 //      pc88pio_sub->set_context_event_manager(pc88event);
  92         pc88fdc_sub = new UPD765A(this, emu);
  93 //      pc88fdc_sub->set_context_event_manager(pc88event);
  94         pc88cpu_sub = new Z80(this, emu);
  95 //      pc88cpu_sub->set_context_event_manager(pc88event);
  96
  97 #ifdef SUPPORT_PC88_PCG8100
  98         pc88pit = new I8253(this, emu);
  99 //      pc88pit->set_context_event_manager(pc88event);
 100         pc88pcm0 = new PCM1BIT(this, emu);
 101 //      pc88pcm->set_context_event_manager(pc88event);
 102         pc88pcm1 = new PCM1BIT(this, emu);
 103 //      pc88pcm->set_context_event_manager(pc88event);
 104         pc88pcm2 = new PCM1BIT(this, emu);
 105 //      pc88pcm->set_context_event_manager(pc88event);
 106 #endif
 107
 108 #ifdef SUPPORT_PC88_HIGH_CLOCK
 109         pc88event->set_context_cpu(dummycpu, 7987248);
 110         pc88event->set_context_cpu(pc88cpu, (config.cpu_type != 0) ? 3993624 : 7987248);
 111 #else
 112         pc88event->set_context_cpu(dummycpu, 3993624);
 113         pc88event->set_context_cpu(pc88cpu, 3993624);
 114 #endif
 115         pc88event->set_context_cpu(pc88cpu_sub, 3993624);
 116         pc88event->set_context_sound(pc88opn);
 117 #ifdef SUPPORT_PC88_SB2
 118         if(pc88sb2 != NULL) {
 119                 pc88event->set_context_sound(pc88sb2);
 120         }
 121 #endif
 122         pc88event->set_context_sound(pc88pcm);
 123 #ifdef SUPPORT_PC88_PCG8100
 124         pc88event->set_context_sound(pc88pcm0);
 125         pc88event->set_context_sound(pc88pcm1);
 126         pc88event->set_context_sound(pc88pcm2);
 127 #endif
 128 #ifdef DATAREC_SOUND
 129         pc88event->set_context_sound(pc88);
 130 #endif
 131         pc88->set_context_cpu(pc88cpu);
 132         pc88->set_context_opn(pc88opn);
 133 #ifdef SUPPORT_PC88_SB2
 134         pc88->set_context_sb2(pc88sb2);
 135 #endif
 136         pc88->set_context_pcm(pc88pcm);
 137         pc88->set_context_pio(pc88pio);
 138         pc88->set_context_rtc(pc88rtc);
 139         pc88->set_context_sio(pc88sio);
 140 #ifdef SUPPORT_PC88_PCG8100
 141         pc88->set_context_pcg_pit(pc88pit);
 142         pc88->set_context_pcg_pcm0(pc88pcm0);
 143         pc88->set_context_pcg_pcm1(pc88pcm1);
 144         pc88->set_context_pcg_pcm2(pc88pcm2);
 145 #endif
 146         pc88cpu->set_context_mem(pc88);
 147         pc88cpu->set_context_io(pc88);
 148         pc88cpu->set_context_intr(pc88);
 149 #ifdef USE_DEBUGGER
 150         pc88cpu->set_context_debugger(new DEBUGGER(this, emu));
 151 #endif
 152         pc88opn->set_context_irq(pc88, SIG_PC88_SOUND_IRQ, 1);
 153 #ifdef SUPPORT_PC88_SB2
 154         if(pc88sb2 != NULL) {
 155                 pc88sb2->set_context_irq(pc88, SIG_PC88_SB2_IRQ, 1);
 156         }
 157 #endif
 158         pc88sio->set_context_rxrdy(pc88, SIG_PC88_USART_IRQ, 1);
 159         pc88sio->set_context_out(pc88, SIG_PC88_USART_OUT);
 160
 161         pc88sub->set_context_cpu(pc88cpu_sub);
 162         pc88sub->set_context_fdc(pc88fdc_sub);
 163         pc88sub->set_context_pio(pc88pio_sub);
 164         pc88pio->set_context_port_a(pc88pio_sub, SIG_I8255_PORT_B, 0xff, 0);
 165         pc88pio->set_context_port_b(pc88pio_sub, SIG_I8255_PORT_A, 0xff, 0);
 166         pc88pio->set_context_port_c(pc88pio_sub, SIG_I8255_PORT_C, 0x0f, 4);
 167         pc88pio->set_context_port_c(pc88pio_sub, SIG_I8255_PORT_C, 0xf0, -4);
 168         pc88pio->clear_ports_by_cmdreg = true;
 169         pc88pio_sub->set_context_port_a(pc88pio, SIG_I8255_PORT_B, 0xff, 0);
 170         pc88pio_sub->set_context_port_b(pc88pio, SIG_I8255_PORT_A, 0xff, 0);
 171         pc88pio_sub->set_context_port_c(pc88pio, SIG_I8255_PORT_C, 0x0f, 4);
 172         pc88pio_sub->set_context_port_c(pc88pio, SIG_I8255_PORT_C, 0xf0, -4);
 173         pc88pio_sub->clear_ports_by_cmdreg = true;
 174         pc88fdc_sub->set_context_irq(pc88cpu_sub, SIG_CPU_IRQ, 1);
 175         pc88cpu_sub->set_context_mem(pc88sub);
 176         pc88cpu_sub->set_context_io(pc88sub);
 177         pc88cpu_sub->set_context_intr(pc88sub);
 178 #ifdef USE_DEBUGGER
 179         pc88cpu_sub->set_context_debugger(new DEBUGGER(this, emu));
 180 #endif
 181
 182 #ifdef SUPPORT_PC88_PCG8100
 183         pc88pit->set_context_ch0(pc88pcm0, SIG_PCM1BIT_SIGNAL, 1);
 184         pc88pit->set_context_ch1(pc88pcm1, SIG_PCM1BIT_SIGNAL, 1);
 185         pc88pit->set_context_ch2(pc88pcm2, SIG_PCM1BIT_SIGNAL, 1);
 186         pc88pit->set_constant_clock(0, 3993624);
 187         pc88pit->set_constant_clock(1, 3993624);
 188         pc88pit->set_constant_clock(2, 3993624);
 189 #endif
 190
 191         // initialize all devices
 192         for(DEVICE* device = first_device; device; device = device->next_device) {
 193                 device->initialize();
 194         }
 195 }
 196
 197 VM::~VM()
 198 {
 199         // delete all devices
 200         for(DEVICE* device = first_device; device;) {
 201                 DEVICE *next_device = device->next_device;
 202                 device->release();
 203                 delete device;
 204                 device = next_device;
 205         }
 206 }
 207
 208 DEVICE* VM::get_device(int id)
 209 {
 210         for(DEVICE* device = first_device; device; device = device->next_device) {
 211                 if(device->this_device_id == id) {
 212                         return device;
 213                 }
 214         }
 215         return NULL;
 216 }
 217
 218 // ----------------------------------------------------------------------------
 219 // drive virtual machine
 220 // ----------------------------------------------------------------------------
 221
 222 void VM::reset()
 223 {
 224         // reset all devices
 225         for(DEVICE* device = first_device; device; device = device->next_device) {
 226                 device->reset();
 227         }
 228         for(DEVICE* device = first_device; device; device = device->next_device) {
 229                 device->reset();
 230         }
 231
 232         // initial device settings
 233         pc88opn->SetReg(0x29, 3); // for Misty Blue
 234         pc88pio->write_signal(SIG_I8255_PORT_C, 0, 0xff);
 235         pc88pio_sub->write_signal(SIG_I8255_PORT_C, 0, 0xff);
 236 }
 237
 238 void VM::run()
 239 {
 240         pc88event->drive();
 241 }
 242
 243 double VM::frame_rate()
 244 {
 245         return pc88event->frame_rate();
 246 }
 247
 248 // ----------------------------------------------------------------------------
 249 // debugger
 250 // ----------------------------------------------------------------------------
 251
 252 #ifdef USE_DEBUGGER
 253 DEVICE *VM::get_cpu(int index)
 254 {
 255         if(index == 0) {
 256                 return pc88cpu;
 257         } else if(index == 1) {
 258                 return pc88cpu_sub;
 259         }
 260         return NULL;
 261 }
 262 #endif
 263
 264 // ----------------------------------------------------------------------------
 265 // draw screen
 266 // ----------------------------------------------------------------------------
 267
 268 void VM::draw_screen()
 269 {
 270         pc88->draw_screen();
 271 }
 272
 273 int VM::access_lamp()
 274 {
 275         return pc88fdc_sub->read_signal(0);
 276 }
 277
 278 // ----------------------------------------------------------------------------
 279 // soud manager
 280 // ----------------------------------------------------------------------------
 281
 282 void VM::initialize_sound(int rate, int samples)
 283 {
 284         // init sound manager
 285         pc88event->initialize_sound(rate, samples);
 286
 287         // init sound gen
 288 #ifdef SUPPORT_PC88_OPNA
 289         if(pc88opn->is_ym2608) {
 290                 pc88opn->init(rate, 7987248, samples, 0, 0);
 291         } else
 292 #endif
 293         pc88opn->init(rate, 3993624, samples, 0, 0);
 294 #ifdef SUPPORT_PC88_SB2
 295         if(pc88sb2 != NULL) {
 296 #ifdef SUPPORT_PC88_OPNA
 297                 if(pc88sb2->is_ym2608) {
 298                         pc88sb2->init(rate, 7987248, samples, 0, 0);
 299                 } else
 300 #endif
 301                 pc88sb2->init(rate, 3993624, samples, 0, 0);
 302         }
 303 #endif
 304         pc88pcm->init(rate, 8000);
 305 #ifdef SUPPORT_PC88_PCG8100
 306         pc88pcm0->init(rate, 8000);
 307         pc88pcm1->init(rate, 8000);
 308         pc88pcm2->init(rate, 8000);
 309 #endif
 310 }
 311
 312 uint16* VM::create_sound(int* extra_frames)
 313 {
 314         return pc88event->create_sound(extra_frames);
 315 }
 316
 317 int VM::sound_buffer_ptr()
 318 {
 319         return pc88event->sound_buffer_ptr();
 320 }
 321
 322 // ----------------------------------------------------------------------------
 323 // notify key
 324 // ----------------------------------------------------------------------------
 325
 326 void VM::key_down(int code, bool repeat)
 327 {
 328         pc88->key_down(code, repeat);
 329 }
 330
 331 void VM::key_up(int code)
 332 {
 333 }
 334
 335 // ----------------------------------------------------------------------------
 336 // user interface
 337 // ----------------------------------------------------------------------------
 338
 339 void VM::open_disk(int drv, _TCHAR* file_path, int bank)
 340 {
 341         pc88fdc_sub->open_disk(drv, file_path, bank);
 342 }
 343
 344 void VM::close_disk(int drv)
 345 {
 346         pc88fdc_sub->close_disk(drv);
 347 }
 348
 349 bool VM::disk_inserted(int drv)
 350 {
 351         return pc88fdc_sub->disk_inserted(drv);
 352 }
 353
 354 #if defined(USE_DISK_WRITE_PROTECT)
 355 void VM::write_protect_fd(int drv, bool flag)
 356 {
 357         pc88fdc_sub->write_protect_fd(drv, flag);
 358 }
 359
 360 bool VM::is_write_protect_fd(int drv)
 361 {
 362         return pc88fdc_sub->is_write_protect_fd(drv);
 363 }
 364 #endif
 365
 366 void VM::play_tape(_TCHAR* file_path)
 367 {
 368         pc88->play_tape(file_path);
 369 }
 370
 371 void VM::rec_tape(_TCHAR* file_path)
 372 {
 373         pc88->rec_tape(file_path);
 374 }
 375
 376 void VM::close_tape()
 377 {
 378         pc88->close_tape();
 379 }
 380
 381 bool VM::tape_inserted()
 382 {
 383         return pc88->tape_inserted();
 384 }
 385
 386 #if defined(USE_TAPE_PTR)
 387 int VM::get_tape_ptr()
 388 {
 389         return pc88->get_tape_ptr();
 390 }
 391 #endif
 392
 393 bool VM::now_skip()
 394 {
 395 //      return event->now_skip();
 396         return pc88->now_skip();
 397 }
 398
 399 void VM::update_config()
 400 {
 401         if(boot_mode != config.boot_mode) {
 402                 // boot mode is changed !!!
 403                 boot_mode = config.boot_mode;
 404                 reset();
 405         } else {
 406                 for(DEVICE* device = first_device; device; device = device->next_device) {
 407                         device->update_config();
 408                 }
 409         }
 410 #ifdef SUPPORT_PC88_HIGH_CLOCK
 411         pc88event->set_cpu_clock(pc88cpu, (config.cpu_type != 0) ? 3993624 : 7987248);
 412 #endif
 413
 414 }
 415
 416 #define STATE_VERSION   4
 417
 418 void VM::save_state(FILEIO* state_fio)
 419 {
 420         state_fio->FputUint32(STATE_VERSION);
 421
 422         for(DEVICE* device = first_device; device; device = device->next_device) {
 423                 device->save_state(state_fio);
 424         }
 425         state_fio->FputInt32(boot_mode);
 426 }
 427
 428 bool VM::load_state(FILEIO* state_fio)
 429 {
 430         if(state_fio->FgetUint32() != STATE_VERSION) {
 431                 return false;
 432         }
 433         for(DEVICE* device = first_device; device; device = device->next_device) {
 434                 if(!device->load_state(state_fio)) {
 435                         return false;
 436                 }
 437         }
 438         boot_mode = state_fio->FgetInt32();
 439         return true;
 440 }
 441