source/src/vm/fmtowns/fmtowns.cpp

   1 /*
   2         FUJITSU FM-Towns Emulator 'eFMTowns'
   3
   4         Author : Kyuma Ohta <whatisthis.sowhat _at_ gmail.com>
   5         Date   : 2016.12.28 -
   6
   7         [ virtual machine ]
   8         History:
   9                 2016-12-28 Copy from eFMR-50.
  10 */
  11
  12 #include "fmtowns.h"
  13 #include "../../emu.h"
  14 #include "../device.h"
  15 #include "../event.h"
  16
  17 //#include "../hd46505.h"
  18 #include "../i8251.h"
  19 #include "../i8253.h"
  20 #include "../i8259.h"
  21
  22 #include "../i386_np21.h"
  23 //#include "../i386.h"
  24
  25 #include "../io.h"
  26 #include "../mb8877.h"
  27 #include "../msm58321.h"
  28 #include "../noise.h"
  29 #include "../pcm1bit.h"
  30 #include "../harddisk.h"
  31 #include "../scsi_hdd.h"
  32 #include "../scsi_host.h"
  33 //#include "./towns_scsi_host.h"
  34 #include "../upd71071.h"
  35
  36 #include "./cdrom.h"
  37 #include "./crtc.h"
  38 #include "./dictionary.h"
  39 #include "./dmac.h"
  40 #include "./towns_memory.h"
  41 #include "./sprite.h"
  42 #include "./sysrom.h"
  43 #include "./vram.h"
  44
  45 // Electric Volume
  46 #include "mb87078.h"
  47 //YM-2612 "OPN2"
  48 //#include "../ym2612.h"
  49 //RF5C68 PCM
  50 #include "rf5c68.h"
  51 //AD7820 ADC
  52 #include "ad7820kr.h"
  53 #include "ym2612.h"
  54 // 80387?
  55
  56 #ifdef USE_DEBUGGER
  57 #include "../debugger.h"
  58 #endif
  59
  60 #include "./adpcm.h"
  61 //#include "./cdc.h"
  62 #include "./floppy.h"
  63 #include "./fontroms.h"
  64 #include "./joystick.h"
  65 #include "./joypad_2btn.h"
  66 #include "./joypad_6btn.h"
  67 #include "./keyboard.h"
  68 #include "./mouse.h"
  69 #include "./msdosrom.h"
  70 #include "./scsi.h"
  71 #include "./serialrom.h"
  72 #include "./timer.h"
  73 #include "./iccard.h"
  74
  75 #include "./planevram.h"
  76
  77 // ----------------------------------------------------------------------------
  78 // initialize
  79 // ----------------------------------------------------------------------------
  80 using FMTOWNS::ADPCM;
  81 //using FMTOWNS::CDC;
  82 using FMTOWNS::DICTIONARY;
  83 using FMTOWNS::FLOPPY;
  84 using FMTOWNS::FONT_ROMS;
  85 using FMTOWNS::JOYSTICK;
  86 using FMTOWNS::JOYPAD_2BTN;
  87 using FMTOWNS::JOYPAD_6BTN;
  88
  89 using FMTOWNS::KEYBOARD;
  90 using FMTOWNS::MOUSE;
  91 using FMTOWNS::MSDOSROM;
  92 using FMTOWNS::SCSI;
  93 using FMTOWNS::SERIAL_ROM;
  94 using FMTOWNS::SYSROM;
  95 using FMTOWNS::TIMER;
  96 using FMTOWNS::TOWNS_ICCARD;
  97
  98 using FMTOWNS::TOWNS_CDROM;
  99 using FMTOWNS::TOWNS_CRTC;
 100 using FMTOWNS::TOWNS_DMAC;
 101 using FMTOWNS::TOWNS_MEMORY;
 102 //using FMTOWNS::TOWNS_SCSI_HOST;
 103 using FMTOWNS::TOWNS_SPRITE;
 104 using FMTOWNS::TOWNS_VRAM;
 105 using FMTOWNS::PLANEVRAM;
 106
 107
 108 VM::VM(EMU_TEMPLATE* parent_emu) : VM_TEMPLATE(parent_emu)
 109 {
 110 /*
 111         Machine ID & CPU ID
 112
 113         FMR-50FD/HD/LT  0xF8
 114         FMR-50FX/HX     0xE0
 115         FMR-50SFX/SHX   0xE8
 116         FMR-50LT        0xF8
 117         FMR-50NBX       0x28
 118         FMR-50NB        0x60
 119         FMR-50NE/T      0x08
 120         FMR-CARD        0x70
 121
 122         80286           0x00
 123         80386           0x01
 124         80386SX         0x03
 125         80486           0x02
 126 */
 127
 128         // create devices
 129         //first_device = last_device = nullptr;
 130         dummy = new DEVICE(this, emu);  // must be 1st device
 131         event = new EVENT(this, emu);   // must be 2nd device
 132 #if defined(_USE_QT)
 133         dummy->set_device_name(_T("1st Dummy"));
 134         event->set_device_name(_T("EVENT"));
 135 #endif
 136
 137         cpu = new I386(this, emu);
 138 #if defined(_USE_QT)
 139   #if defined(HAS_I386)
 140         cpu->set_device_name(_T("CPU(i386)"));
 141   #elif defined(HAS_I486)
 142         cpu->set_device_name(_T("CPU(i486)"));
 143   #elif defined(HAS_PENTIUM)
 144         cpu->set_device_name(_T("CPU(Pentium)"));
 145   #endif
 146 #endif
 147
 148         io = new IO(this, emu);
 149         io->space = _IO_SPACE;
 150         io->bus_width = _IO_BUS_WIDTH;
 151
 152         crtc = new TOWNS_CRTC(this, emu);
 153         cdrom = new TOWNS_CDROM(this, emu);
 154
 155         memory = new TOWNS_MEMORY(this, emu);
 156         //memory->space = _MEMORY_SPACE;
 157         //memory->bank_size = _MEMORY_BANK_SIZE;
 158         //memory->bus_width = _MEMORY_BUS_WIDTH;
 159
 160         vram = new TOWNS_VRAM(this, emu);
 161         sprite = new TOWNS_SPRITE(this, emu);
 162         sysrom = new SYSROM(this, emu);
 163         msdosrom = new MSDOSROM(this, emu);
 164         fontrom = new FONT_ROMS(this, emu);
 165         dictionary = new DICTIONARY(this, emu);
 166 #if defined(HAS_20PIX_FONTS)
 167         fontrom_20pix = new FONT_ROM_20PIX(this, emu);
 168 #endif
 169         serialrom = new SERIAL_ROM(this, emu);
 170
 171         adpcm = new ADPCM(this, emu);
 172 //      mixer = new MIXER(this, emu); // Pseudo mixer.
 173
 174         planevram = new PLANEVRAM(this, emu);
 175
 176         adc = new AD7820KR(this, emu);
 177         rf5c68 = new RF5C68(this, emu);
 178         e_volumes[0] = new MB87078(this, emu);
 179         e_volumes[1] = new MB87078(this, emu);
 180
 181         sio = new I8251(this, emu);
 182         pit0 = new I8253(this, emu);
 183         pit0->device_model = INTEL_8253;
 184
 185         pit1 = new I8253(this, emu);
 186         pit1->device_model = INTEL_8253;
 187
 188         pic = new I8259(this, emu);
 189         pic->num_chips = 2;
 190         fdc = new MB8877(this, emu);
 191         rtc = new MSM58321(this, emu);
 192         beep = new PCM1BIT(this, emu);
 193         opn2 = new YM2612(this, emu);
 194
 195         seek_sound = new NOISE(this, emu);
 196         head_up_sound = new NOISE(this, emu);
 197         head_down_sound = new NOISE(this, emu);
 198
 199 //      scsi_host = new TOWNS_SCSI_HOST(this, emu);
 200         scsi_host = new SCSI_HOST(this, emu);
 201
 202         for(int i = 0; i < 7; i++) {
 203                 scsi_hdd[i] = nullptr;
 204         }
 205 #if defined(USE_HARD_DISK)
 206         for(int i = 0; i < USE_HARD_DISK; i++) {
 207                 scsi_hdd[i] = new SCSI_HDD(this, emu);
 208                 scsi_hdd[i]->set_device_name(_T("SCSI Hard Disk Drive #%d"), i + 1);
 209                 scsi_hdd[i]->scsi_id = i ;
 210                 scsi_hdd[i]->set_disk_handler(0, new HARDDISK(emu));
 211                 scsi_hdd[i]->set_context_interface(scsi_host);
 212                 my_sprintf_s(scsi_hdd[i]->vendor_id, 9, "FUJITSU");
 213                 my_sprintf_s(scsi_hdd[i]->product_id, 17, "SCSI-HDD");
 214                 scsi_host->set_context_target(scsi_hdd[i]);
 215         }
 216 #endif
 217         dma = new TOWNS_DMAC(this, emu);
 218         extra_dma = new TOWNS_DMAC(this, emu);
 219
 220         floppy = new FLOPPY(this, emu);
 221         keyboard = new KEYBOARD(this, emu);
 222         joystick = new JOYSTICK(this, emu);
 223         scsi = new SCSI(this, emu);
 224         timer = new TIMER(this, emu);
 225
 226         iccard1 = new TOWNS_ICCARD(this, emu);
 227 #if 0
 228         iccard2 = new TOWNS_ICCARD(this, emu);
 229 #else
 230         iccard2 = nullptr;
 231 #endif
 232         for(int i = 0; i < 2; i++) {
 233                 joypad_2btn[i] = new JOYPAD_2BTN(this, emu);
 234                 joypad_6btn[i] = new JOYPAD_6BTN(this, emu);
 235                 mouse[i] = new MOUSE(this, emu);
 236         }
 237
 238         uint16_t machine_id = 0x0100; // FM-Towns1
 239         uint16_t cpu_id = 0x0001;     // i386DX
 240         uint32_t cpu_clock = 16000 * 1000; // 16MHz
 241 #if defined(_FMTOWNS1_2ND_GEN)
 242         machine_id = 0x0200;   // 1F/2F/1H/2H
 243 #elif defined(_FMTOWNS_UX_VARIANTS)
 244         machine_id = 0x0300;   // UX10/20/40
 245         cpu_id = 0x0003;       // i386SX
 246 #elif defined(_FMTOWNS1_3RD_GEN)
 247         machine_id = 0x0400;  // 10F/20F.40H/80H
 248 #elif defined(_FMTOWNS2_CX_VARIANTS)
 249         machine_id = 0x0500;  // CX10/20/30/40
 250 #elif defined(_FMTOWNS_UG_VARIANTS)
 251         machine_id = 0x0600;  // UG10/20/40/80
 252         cpu_id = 0x0003;      // i386SX
 253         cpu_clock = 20000 * 1000; // 20MHz
 254 #elif defined(_FMTOWNS_HR_VARIANTS)
 255         machine_id = 0x0700;
 256         cpu_id = 0x0002;      // i486SX
 257         cpu_clock = 20000 * 1000; // 20MHz
 258 #elif defined(_FMTOWNS_HG_VARIANTS)
 259         machine_id = 0x0800;
 260         cpu_clock = 20000 * 1000; // 20MHz
 261 #elif defined(_FMTOWNS_SG_VARIANTS)
 262         machine_id = 0x0800; // OK?
 263 #elif defined(_FMTOWNS_SR_VARIANTS)
 264         machine_id = 0x0700; // OK?
 265         cpu_id = 0x0002;      // i486SX
 266         cpu_clock = 20000 * 1000; // 20MHz
 267 #elif defined(_FMTOWNS_UR_VARIANTS)
 268         machine_id = 0x0900;  // UR10/20/40/80
 269         cpu_id = 0x0002;      // i486DX
 270         cpu_clock = 20000 * 1000; // ToDo: Correct frequency.
 271 #elif defined(_FMTOWNS_MA_VARIANTS)
 272         machine_id = 0x0b00; // OK?
 273         cpu_id = 0x0002;      // i486SX
 274         cpu_clock = 33000 * 1000; // 33MHz
 275 #elif defined(_FMTOWNS_ME_VARIANTS)
 276         machine_id = 0x0d00; // OK?
 277         cpu_id = 0x0002;      // i486SX
 278         cpu_clock = 25000 * 1000; // 25MHz
 279 #elif defined(_FMTOWNS_MF_VARIANTS)
 280         machine_id = 0x0f00; // OK?
 281         cpu_id = 0x0002;      // i486SX
 282         cpu_clock = 33000 * 1000; // 33MHz
 283 #elif defined(_FMTOWNS_MX_VARIANTS)
 284         machine_id = 0x0c00; // OK?
 285         cpu_id = 0x0002;      // i486DX (With FPU?)
 286         cpu_clock = 66000 * 1000; // 66MHz
 287 #elif defined(_FMTOWNS_HC_VARIANTS)
 288         // 20210227 K.O
 289         // From FMTowns::MachineID()  of TSUGARU,
 290         // git 83d4ec2309ac9fcbb8c01f26061ff0d49c5321e4.
 291         machine_id = 0x1100; // OK?
 292         cpu_id = 0x0002;      // Pentium (With FPU?)
 293         cpu_clock = 50000 * 1000; // ToDo: Correctness frequency.
 294 #else
 295         // ToDo: Pentium Model (After HB).
 296
 297 #endif
 298
 299         event->set_frames_per_sec(FRAMES_PER_SEC);
 300         event->set_lines_per_frame(LINES_PER_FRAME);
 301
 302         set_machine_type(machine_id, cpu_id);
 303         // set contexts
 304         event->set_context_cpu(cpu, cpu_clock);
 305
 306         adc_in_ch = -1;
 307         line_in_ch = -1;
 308         modem_in_ch = -1;
 309         mic_in_ch = -1;
 310
 311         // Use pseudo mixer instead of event.Due to using ADC.
 312         // Temporally not use mixer.
 313         event->set_context_sound(beep);
 314         event->set_context_sound(opn2);
 315         event->set_context_sound(rf5c68);
 316         event->set_context_sound(cdrom);
 317
 318         fdc->set_context_noise_seek(seek_sound);
 319         fdc->set_context_noise_head_down(head_down_sound);
 320         fdc->set_context_noise_head_up(head_up_sound);
 321         event->set_context_sound(seek_sound);
 322         event->set_context_sound(head_down_sound);
 323         event->set_context_sound(head_up_sound);
 324
 325 #ifdef USE_DEBUGGER
 326         pit0->set_context_debugger(new DEBUGGER(this, emu));
 327         pit1->set_context_debugger(new DEBUGGER(this, emu));
 328 #endif
 329         pit0->set_context_ch0(timer, SIG_TIMER_CH0, 1);
 330         pit0->set_context_ch1(timer, SIG_TIMER_CH1, 1);
 331         pit0->set_context_ch2(beep,  SIG_PCM1BIT_SIGNAL, 1);
 332         pit0->set_constant_clock(0, 307200);
 333         pit0->set_constant_clock(1, 307200);
 334         pit0->set_constant_clock(2, 307200);
 335         pit1->set_constant_clock(0, 1229900);
 336         pit1->set_constant_clock(1, 1229900);
 337         pit1->set_constant_clock(2, 1229900);
 338         pic->set_context_cpu(cpu);
 339         //pic->set_context_cpu(memory);
 340
 341         fdc->set_context_irq(floppy, SIG_FLOPPY_IRQ, 1);
 342         //fdc->set_context_irq(dma, SIG_TOWNS_DMAC_EOT_CH0, 1);
 343
 344         rtc->set_context_data(timer, SIG_TIMER_RTC, 0x0f, 0);
 345         rtc->set_context_busy(timer, SIG_TIMER_RTC_BUSY, 0x80);
 346         scsi_host->set_context_irq(scsi, SIG_SCSI_IRQ, 1);
 347         scsi_host->set_context_drq(scsi, SIG_SCSI_DRQ, 1);
 348         scsi_host->set_context_drq(keyboard, SIG_KEYBOARD_BOOTSEQ_END, 1);
 349
 350 #ifdef USE_DEBUGGER
 351         dma->set_context_debugger(new DEBUGGER(this, emu));
 352         extra_dma->set_context_debugger(new DEBUGGER(this, emu));
 353 #endif
 354         // Note: DMAC may set wait value to CPU. 20230409 K.O
 355         dma->set_context_cpu(NULL);
 356         //dma->set_context_cpu(cpu);
 357         dma->set_context_memory(memory);
 358         dma->set_context_ch0(fdc);
 359         // This is workaround for FM-Towns's SCSI.
 360         dma->set_force_16bit_transfer(1, false);
 361         dma->set_context_ch1(scsi_host);
 362         //dma->set_context_ch2(printer);
 363         dma->set_context_ch3(cdrom);
 364
 365         //extra_dma->set_context_cpu(cpu);
 366         extra_dma->set_context_cpu(NULL);
 367         extra_dma->set_context_memory(memory);
 368
 369         //dma->set_context_tc1(scsi, SIG_SCSI_EOT, 0xffffffff);
 370         dma->set_context_tc3(cdrom, SIG_TOWNS_CDROM_DMAINT, 0xffffffff);
 371
 372         dma->set_context_ube(1, scsi_host, SIG_SCSI_16BIT_BUS, 0x02);
 373         //dma->set_context_ack(1, scsi_host, SIG_SCSI_ACK, 0xffffffff);
 374         //dma->set_context_ack(3, cdrom, SIG_TOWNS_CDROM_DMAACK, 0xffffffff);
 375         dma->set_context_child_dma(extra_dma);
 376
 377         floppy->set_context_fdc(fdc);
 378
 379         sprite->set_context_vram(vram);
 380 //      sprite->set_context_font(fontrom);
 381 //      sprite->set_context_crtc(crtc);
 382 #ifdef USE_DEBUGGER
 383         sprite->set_context_debugger(new DEBUGGER(this, emu));
 384 #endif
 385
 386         planevram->set_context_vram(vram);
 387         planevram->set_context_sprite(sprite);
 388         planevram->set_context_crtc(crtc);
 389
 390         crtc->set_context_sprite(sprite);
 391         crtc->set_context_vram(vram);
 392         crtc->set_context_font(fontrom);
 393
 394 //      e_volumes[0]->set_context_device(0, line_in, 0,
 395 //                                                                       MB87078_TYPE_MASK_LEFT);
 396 //      e_volumes[0]->set_context_device(1, line_in, 0,
 397 //                                                                       MB87078_TYPE_MASK_RIGHT);
 398         e_volumes[1]->set_context_device(0, cdrom, 0,
 399                                                                          MB87078_TYPE_SET_LEFT, SIG_TOWNS_CDROM_MUTE_L,
 400                                                                          0xffffffff,
 401                                                                          0xffffffff,
 402                                                                          false
 403                 );
 404         e_volumes[1]->set_context_device(1, cdrom, 0,
 405                                                                          MB87078_TYPE_SET_RIGHT, SIG_TOWNS_CDROM_MUTE_R,
 406                                                                          0xffffffff,
 407                                                                          0xffffffff,
 408                                                                          false
 409                 );
 410
 411         memory->set_context_cpu(cpu);
 412         memory->set_context_dmac(dma);
 413         memory->set_context_vram(vram);
 414         memory->set_context_planevram(planevram);
 415         memory->set_context_crtc(crtc);
 416         memory->set_context_system_rom(sysrom);
 417         memory->set_context_msdos(msdosrom);
 418         memory->set_context_dictionary(dictionary);
 419         memory->set_context_font_rom(fontrom);
 420         memory->set_context_timer(timer);
 421         memory->set_context_serial_rom(serialrom);
 422         memory->set_context_sprite(sprite);
 423         memory->set_context_pcm(rf5c68);
 424         memory->set_context_iccard(iccard1, 0);
 425         memory->set_context_iccard(iccard2, 1);
 426
 427         adpcm->set_context_opn2(opn2);
 428         adpcm->set_context_rf5c68(rf5c68);
 429         adpcm->set_context_adc(adc);
 430
 431         rf5c68->set_context_interrupt_boundary(adpcm, SIG_ADPCM_WRITE_INTERRUPT, 0xffffffff);
 432 #ifdef USE_DEBUGGER
 433         rf5c68->set_context_debugger(new DEBUGGER(this, emu));
 434 #endif
 435         opn2->set_context_irq(adpcm, SIG_ADPCM_OPX_INTR, 0xffffffff);
 436
 437         adc->set_sample_rate(19200);
 438         adc->set_sound_bank(-1);
 439         adc->set_context_interrupt(adpcm, SIG_ADPCM_ADC_INTR, 0xffffffff);
 440
 441         scsi->set_context_dma(dma);
 442         scsi->set_context_host(scsi_host);
 443         scsi->set_context_pic(pic);
 444         timer->set_context_pcm(beep);
 445         timer->set_context_rtc(rtc);
 446         //timer->set_context_halt_line(cpu, SIG_CPU_HALTREQ, 0xffffffff);
 447         timer->set_context_halt_line(cpu, SIG_CPU_BUSREQ, 0xffffffff);
 448
 449         for(int i = 0; i < 2; i++) {
 450                 // type =
 451                 // 0: Towns PAD 2buttons
 452                 // 1: Towns PAD 6buttons
 453                 // 2: Towns MOUSE
 454                 // 3: Analog Pad (reserved)
 455                 // 4: Libble Rabble stick (reserved)
 456                 joystick->set_context_joystick(i, joypad_2btn[i]);
 457                 joystick->set_context_joystick(i, joypad_6btn[i]);
 458                 joystick->set_context_joystick(i, mouse[i]);
 459         }
 460 #ifdef USE_DEBUGGER
 461         joystick->set_context_debugger(new DEBUGGER(this, emu));
 462 #endif
 463         // ToDo: Selective by config.
 464         for(int i = 0; i < 2; i++) {
 465                 joypad_2btn[i]->set_context_pad_num(i);
 466                 joypad_2btn[i]->set_context_parent_port(i, joystick, 0, 0xff);
 467                 joypad_2btn[i]->set_negative_logic(true);
 468                 joypad_2btn[i]->set_enable(true);
 469         }
 470         for(int i = 0; i < 2; i++) {
 471                 joypad_6btn[i]->set_context_pad_num(i);
 472                 joypad_6btn[i]->set_context_parent_port(i, joystick, 0, 0xff);
 473                 joypad_6btn[i]->set_negative_logic(true);
 474                 joypad_6btn[i]->set_enable(false);
 475         }
 476         for(int i = 0; i < 2; i++) {
 477                 mouse[i]->set_context_pad_num(i);
 478                 mouse[i]->set_context_parent_port(i, joystick, 0, 0xff);
 479                 mouse[i]->set_negative_logic(true);
 480                 mouse[i]->set_enable(false);
 481         }
 482         joystick->set_using_pad(0, -1);
 483         joystick->set_using_pad(1, -1);
 484
 485         // cpu bus
 486         cpu->set_context_mem(memory);
 487         cpu->set_context_io(io);
 488         cpu->set_context_intr(pic);
 489 #ifdef SINGLE_MODE_DMA
 490         cpu->set_context_dma(dma);
 491 #endif
 492         cpu->set_context_bios(nullptr);
 493         cpu->set_context_extreset(memory, SIG_FMTOWNS_NOTIFY_RESET, 0xffffffff);
 494 #ifdef USE_DEBUGGER
 495         cpu->set_context_debugger(new DEBUGGER(this, emu));
 496 #endif
 497         // Interrupts
 498         // IRQ0  : TIMER
 499         // IRQ1  : KEYBOARD
 500         // IRQ2  : USART (ToDo)
 501         // IRQ3  : EXTRA USART (ToDo)
 502         // IRQ4  : EXTRA I/O (Maybe not implement)
 503         // IRQ5  : EXTRA I/O (Maybe not implement)
 504         // IRQ6  : FDC
 505         // IRQ7  : Deisy chain (to IRQ8 - 15)
 506         timer->set_context_intr_line(pic, SIG_I8259_CHIP0 | SIG_I8259_IR0, 0xffffffff);
 507         keyboard->set_context_intr_line(pic, SIG_I8259_CHIP0 | SIG_I8259_IR1, 0xffffffff);
 508         floppy->set_context_intr_line(pic, SIG_I8259_CHIP0 | SIG_I8259_IR6, 0xffffffff);
 509
 510         // IRQ8  : SCSI (-> scsi.cpp)
 511         // IRQ9  : CDC/CDROM
 512         // IRQ10 : EXTRA I/O (Maybe not implement)
 513         // IRQ11 : VSYNC
 514         // IRQ12 : PRINTER (ToDo)
 515         // IRQ13 : ADPCM AND OPN2 (Route to adpcm.cpp)
 516         // IRQ14 : EXTRA I/O (Maybe not implement)
 517         // IRQ15 : RESERVED.
 518         cdrom->set_context_mpuint_line(pic, SIG_I8259_CHIP1 | SIG_I8259_IR1, 0xffffffff);
 519         crtc->set_context_vsync(pic, SIG_I8259_CHIP1 | SIG_I8259_IR3, 0xffffffff);
 520         adpcm->set_context_intr_line(pic, SIG_I8259_CHIP1 | SIG_I8259_IR5, 0xffffffff);
 521
 522         // DMA0  : FDC/DRQ
 523         // DMA1  : SCSI (-> scsi.cpp)
 524         // DMA2  : PRINTER (ToDo)
 525         // DMA3  : CDC/CDROM
 526         // EXTRA DMA0 : EXTRA SLOT (Maybe not implement)
 527         // EXTRA DMA1 : Reserved
 528         // EXTRA DMA2 : Reserved
 529         // EXTRA DMA3 : Reserved
 530         fdc->set_context_drq(dma, SIG_UPD71071_CH0, 1);
 531         fdc->set_context_drq(keyboard, SIG_KEYBOARD_BOOTSEQ_END, 1);
 532         cdrom->set_context_drq_line(dma, SIG_UPD71071_CH3, 0xff);
 533         cdrom->set_context_drq_line(keyboard, SIG_KEYBOARD_BOOTSEQ_END, 1);
 534
 535         // NMI0 : KEYBOARD (RAS)
 536         // NMI1 : Extra SLOT (Maybe not implement)
 537         keyboard->set_context_nmi_line(memory, SIG_CPU_NMI, 0xffffffff);
 538
 539         cdrom->set_context_dmac(dma);
 540         // For Debugging, will remove 20200822 K.O
 541         cdrom->set_context_cpu(cpu);
 542         cdrom->set_context_eot_line(dma, SIG_TOWNS_DMAC_EOT_CH3, 0xffffffff);
 543
 544         // i/o bus
 545         io->set_iowait_range_rw(0x0000, 0xffff, 6); // ToDo: May variable wait.
 546
 547         io->set_iomap_alias_rw (0x0000, pic, I8259_ADDR_CHIP0 | 0);
 548         io->set_iomap_alias_rw (0x0002, pic, I8259_ADDR_CHIP0 | 1);
 549         io->set_iomap_alias_rw (0x0010, pic, I8259_ADDR_CHIP1 | 0);
 550         io->set_iomap_alias_rw (0x0012, pic, I8259_ADDR_CHIP1 | 1);
 551
 552         io->set_iomap_single_rw(0x0020, memory); // RESET REASON / POWER CONTROL (by software)
 553         io->set_iomap_single_rw(0x0022, memory); // POWER CONTROL
 554         io->set_iomap_single_rw(0x0024, memory); // MISC3 / DMA WRAP (AFTER MA/MX/ME)
 555         io->set_iomap_single_r (0x0025, memory); // MISC4
 556         io->set_iomap_range_r  (0x0026, 0x0027, timer);  // Freerun counter
 557         io->set_iomap_single_rw(0x0028, memory);         // NMI MASK
 558
 559         io->set_iomap_range_r  (0x0030, 0x0031, memory);        // cpu id / machine id
 560         io->set_iomap_single_rw(0x0032, memory);        // serial rom (routed from memory)
 561         io->set_iomap_single_r (0x0034, scsi);  // ENABLE/ UNABLE to WORD DMA for SCSI
 562
 563         io->set_iomap_alias_rw(0x0040, pit0, 0);
 564         io->set_iomap_alias_rw(0x0042, pit0, 1);
 565         io->set_iomap_alias_rw(0x0044, pit0, 2);
 566         io->set_iomap_alias_rw(0x0046, pit0, 3);
 567         io->set_iomap_alias_rw(0x0050, pit1, 0);
 568         io->set_iomap_alias_rw(0x0052, pit1, 1);
 569         io->set_iomap_alias_rw(0x0054, pit1, 2);
 570         io->set_iomap_alias_rw(0x0056, pit1, 3);
 571
 572         io->set_iomap_single_rw(0x0060, timer); // Beep and interrupts register
 573         io->set_iomap_single_rw(0x0068, timer); // Interval timer register2 : CONTROL (after Towns 10F).
 574         io->set_iomap_range_rw (0x006a, 0x006b, timer); // Interval timer register2 : DATA (after Towns 10F).
 575         io->set_iomap_single_rw(0x006c, timer); // 1uS wait register (after Towns 10F).
 576
 577         io->set_iomap_single_rw(0x0070, timer); // RTC DATA
 578         io->set_iomap_single_w (0x0080, timer); // RTC COMMAND
 579
 580         io->set_iomap_range_rw (0x00a0, 0x00af, dma);
 581         io->set_iomap_range_rw (0x00b0, 0x00bf, extra_dma);
 582
 583         io->set_iomap_single_rw(0x00c0, memory);   // CACHE CONTROLLER   (after HR, i486)
 584         io->set_iomap_single_rw(0x00c2, memory);   // CACHE DIAGNNOSTICS (after HR, i486)
 585
 586         io->set_iomap_alias_rw (0x0200, fdc, 0);  // STATUS/COMMAND
 587         io->set_iomap_alias_rw (0x0202, fdc, 1);  // TRACK
 588         io->set_iomap_alias_rw (0x0204, fdc, 2);  // SECTOR
 589         io->set_iomap_alias_rw (0x0206, fdc, 3);  // DATA
 590         io->set_iomap_single_rw(0x0208, floppy);  // DRIVE STATUS / DRIVE CONTROL
 591         io->set_iomap_single_rw(0x020c, floppy);  // DRIVE SELECT
 592         io->set_iomap_single_r (0x020d, floppy);  // FDDVEXT (after HG/HR).
 593         io->set_iomap_single_rw(0x020e, floppy);  // Towns drive SW
 594
 595         io->set_iomap_single_r (0x0400, memory); // RESOLUTION
 596         io->set_iomap_single_rw(0x0402, memory); // RESERVED (??)
 597         io->set_iomap_single_rw(0x0404, memory); // SYSTEM STATUS
 598 //      io->set_iomap_range_rw (0x0406, 0x043f, memory); // Reserved
 599
 600         io->set_iomap_single_rw(0x0440, crtc); // CRTC ADDRESS INDEX
 601         io->set_iomap_range_rw (0x0442, 0x0443, crtc); // CRTC DATA
 602         io->set_iomap_single_rw(0x0448, crtc); // VIDEO OUT ADDRESS INDEX
 603         io->set_iomap_single_rw(0x044a, crtc); // VIDEO OUT DATA
 604         io->set_iomap_single_r (0x044c, crtc); // DIGITAL PALLETTE STATUS, SPRITE STATUS
 605
 606
 607         io->set_iomap_single_rw(0x0450, sprite); // SPRITE
 608         io->set_iomap_single_rw(0x0452, sprite); // SPRITE
 609
 610         io->set_iomap_single_rw(0x0458, vram);         // VRAM ACCESS CONTROLLER (ADDRESS)
 611         io->set_iomap_range_rw (0x045a, 0x045b, vram); // VRAM ACCESS CONTROLLER (DATA)
 612
 613         //io->set_iomap_single_r (0x0470, crtc); // HIGH RESOLUTION (after MX)
 614         //io->set_iomap_single_r (0x0471, vram); // VRAM CAPACITY  (after MX, by MBytes)
 615         //io->set_iomap_range_rw (0x0472, 0x0473, crtc); // VIDEO OUT REGS ADDRESS (after MX, by MBytes)
 616         //io->set_iomap_range_rw (0x0474, 0x0477, crtc); // VIDEO OUT REGS DATA (after MX, by MBytes)
 617
 618         io->set_iomap_single_rw(0x0480, memory); //  MEMORY REGISTER
 619         io->set_iomap_single_rw(0x0484, dictionary); // Dictionary BANK
 620
 621         io->set_iomap_alias_r(0x48a, iccard1, 0); //
 622         //io->set_iomap_alias_rw(0x490, memory_card); // After Towns2
 623         //io->set_iomap_alias_rw(0x491, memory_card); // After Towns2
 624
 625         //io->set_iomap_single_r(0x4b0, cdrom); // CDROM functions (after MX)
 626         io->set_iomap_single_rw(0x04c0, cdrom); // CDROM: MASTER STATUS/MASTER CONTROL
 627         io->set_iomap_single_rw(0x04c2, cdrom); // CDROM: STATUS(FIFO) / COMMAND
 628         io->set_iomap_single_rw(0x04c4, cdrom); // CDROM: DATA (BUFFER~ / PARAMETER (FIFO)
 629         io->set_iomap_single_w (0x04c6, cdrom); // CDROM TRANSFER CONTROL
 630         io->set_iomap_single_rw(0x04c8, cdrom); // CDROM CACHE CONTROL (after HR)
 631         io->set_iomap_range_r  (0x04cc, 0x04cd, cdrom); // CDROM SUBCODE DATA
 632         // PAD, Sound
 633
 634         io->set_iomap_single_r (0x04d0, joystick); // Pad1
 635         io->set_iomap_single_r (0x04d2, joystick); // Pad 2
 636         io->set_iomap_single_rw(0x04d5, adpcm); // mute
 637         io->set_iomap_single_w (0x04d6, joystick); // Pad out
 638
 639         // OPN2(YM2612)
 640         io->set_iomap_alias_rw(0x04d8, opn2, 0); // STATUS(R)/Addrreg 0(W)
 641         io->set_iomap_alias_w (0x04da, opn2, 1);  // Datareg 0(W)
 642         io->set_iomap_alias_w (0x04dc, opn2, 2);  // Addrreg 1(W)
 643         io->set_iomap_alias_w (0x04de, opn2, 3);  // Datareg 1(W)
 644         // Electrical volume
 645         io->set_iomap_alias_rw(0x04e0, e_volumes[0], 0);
 646         io->set_iomap_alias_rw(0x04e1, e_volumes[0], 1);
 647         io->set_iomap_alias_rw(0x04e2, e_volumes[1], 0);
 648         io->set_iomap_alias_rw(0x04e3, e_volumes[1], 1);
 649
 650         // ADPCM
 651         io->set_iomap_single_r (0x04e7, adpcm); // A/D SAMPLING DATA REG
 652         io->set_iomap_single_rw(0x04e8, adpcm); // A/D SAMPLING FLAG
 653         io->set_iomap_single_rw(0x04e9, adpcm); // OPN2/PCM INTERRUPT (INT13) REGISTER
 654         io->set_iomap_single_rw(0x04ea, adpcm); // PCM INTERRUPT MASK
 655         io->set_iomap_single_r (0x04eb, adpcm); // PCM INTERRUPT STATUS
 656         io->set_iomap_single_w (0x04ec, adpcm); // PCM LED/MUTE
 657
 658         io->set_iomap_range_w (0x04f0, 0x04f8, rf5c68); // PCM CONTROL REGS (WO?)
 659
 660         //io->set_iomap_single_rw(0x510, newpcm); // PCM BANK (after MX)
 661         //io->set_iomap_single_rw(0x511, newpcm); // PCM DMA STATUS(after MX)
 662         //io->set_iomap_range_rw (0x512, 0x0513, newpcm); // PCM DMA COUNTER(after MX)
 663         //io->set_iomap_range_rw (0x514, 0x0517, newpcm); // PCM DMA ADDRESS(after MX)
 664         //io->set_iomap_single_rw(0x518, newpcm); // PCM CLOCK (after MX)
 665         //io->set_iomap_single_rw(0x519, newpcm); // PCM MODE (after MX)
 666         //io->set_iomap_single_rw(0x51a, newpcm); // PCM SYSTEM CONTROL (after MX)
 667         //io->set_iomap_single_rw(0x51b, newpcm); // PCM BUFFER STATUS/CONTROL (after MX)
 668         //io->set_iomap_single_rw(0x51c, newpcm); // PCM REC/PLAY (after MX)
 669         //io->set_iomap_single_rw(0x51d, newpcm); // PCM PEAK MONITOR / TRIGGER (after MX)
 670         //io->set_iomap_range_rw (0x51e, 0x051f, newpcm); // PCM LEVEL / SOFTWARE DATA (after MX)
 671
 672         io->set_iomap_single_rw(0x05c0, memory); // NMI MASK
 673         io->set_iomap_single_r (0x05c2, memory);  // NMI STATUS
 674         io->set_iomap_single_r (0x05c8, sprite); // TVRAM EMULATION
 675         io->set_iomap_single_w (0x05ca, crtc); // VSYNC INTERRUPT
 676
 677         io->set_iomap_single_rw(0x05e0, memory); // Hidden MEMORY WAIT REGISTER from AB.COM (Towns 1/2)
 678         io->set_iomap_single_rw(0x05e2, memory); // Hidden MEMORY WAIT REGISTER from AB.COM (After Towns 1H/1F/2H/2F )
 679         io->set_iomap_single_rw(0x05e6, memory); // Hidden VRAM WAIT REGISTER from TSUGARU (Maybe after Towns 10H/10F/20H/20F )
 680         io->set_iomap_single_r (0x05e8, memory); // RAM capacity register.(later Towns1H/2H/1F/2F).
 681         io->set_iomap_single_rw(0x05ec, memory); // RAM Wait register , ofcially after Towns2, but exists after Towns1H.
 682         io->set_iomap_single_r (0x05ed, memory); // Maximum clock register (After HR/HG).
 683         io->set_iomap_single_rw(0x05ee, vram);   // VRAM CACHE CONTROLLER (After HR, i486)
 684
 685         io->set_iomap_single_rw(0x0600, keyboard);
 686         io->set_iomap_single_rw(0x0602, keyboard);
 687         io->set_iomap_single_rw(0x0604, keyboard);
 688         //io->set_iomap_single_r (0x606, keyboard); // BUFFER FULL (for TUNER)
 689
 690         //io->set_iomap_single_rw(0x0800, printer);
 691         //io->set_iomap_single_rw(0x0802, printer);
 692         //io->set_iomap_single_rw(0x0804, printer);
 693
 694         io->set_iomap_alias_rw (0x0a00, sio, 0);
 695         io->set_iomap_alias_rw (0x0a02, sio, 1);
 696 //      io->set_iomap_single_r (0x0a04, serial);
 697 //      io->set_iomap_single_r (0x0a06, serial);
 698 //      io->set_iomap_single_w (0x0a08, serial);
 699 //      io->set_iomap_single_rw(0x0a0a, modem);
 700 //      io->set_iomap_single_rw(0x0a0c, uart_fifo); // USART HAVE FIFO (after MA)
 701 //      io->set_iomap_single_rw(0x0a0d, uart_fifo); // USART FIFO STATUS (after MA)
 702 //      io->set_iomap_single_rw(0x0a0e, uart_fifo); // USART FIFO STATUS (after MA)
 703
 704         io->set_iomap_single_rw(0x0c30, scsi);
 705         io->set_iomap_single_rw(0x0c32, scsi);
 706         io->set_iomap_single_r (0x0c34, scsi);
 707
 708         // ToDo: Implement debugging I/Os to 2000h - 2FFFh.
 709
 710         for(uint32_t addr = 0x3000; addr < 0x4000; addr += 2) {
 711                 io->set_iomap_single_rw (addr, dictionary); // CMOS
 712         }
 713         io->set_iomap_range_rw (0xfd90, 0xfd91, crtc);  // PALETTE INDEX
 714         io->set_iomap_range_rw (0xfd92, 0xfd93, crtc);  // PALETTE DATA BLUE
 715         io->set_iomap_range_rw (0xfd94, 0xfd95, crtc);  // PALETTE DATA RED
 716         io->set_iomap_single_rw(0xfd96, crtc);  // PALETTE DATA GREEN
 717         io->set_iomap_range_rw (0xfd98, 0xfd9f, crtc);  // DIGITAL PALETTE REGISTERS(EMULATED)
 718
 719         io->set_iomap_single_rw(0xfda0, crtc);  // CRTC: VSYNC, HSYNC / OUTPUT CONTROL
 720         io->set_iomap_single_r (0xfda2, crtc);  // CRTC OUT (after UG)
 721         io->set_iomap_single_rw(0xfda4, memory);        // CRTC: READ COMPATIBLE (after UG)
 722
 723         io->set_iomap_range_rw (0xff80, 0xff83, planevram);     // MMIO
 724         io->set_iomap_single_r (0xff84, planevram);     // MMIO
 725         io->set_iomap_single_r (0xff86, planevram);     // MMIO
 726         io->set_iomap_single_rw(0xff88, memory);        // MMIO
 727
 728         io->set_iomap_range_rw (0xff94, 0xff99, memory);        // MMIO
 729         io->set_iomap_range_r  (0xff9c, 0xff9d, memory);        // MMIO
 730         io->set_iomap_single_rw(0xff9e, memory);        // MMIO
 731         io->set_iomap_single_rw(0xffa0, planevram);     // MMIO
 732
 733         // Vram allocation may be before initialize().
 734         // initialize all devices
 735 #if defined(__GIT_REPO_VERSION)
 736         set_git_repo_version(__GIT_REPO_VERSION);
 737 #endif
 738         // ToDo : Use config framework
 739         int exram_size = config.current_ram_size;
 740         if(exram_size < 1) {
 741                 switch((machine_id & 0xff00) >> 8) {
 742                 case 0x00:
 743                 case 0x01: // Towns 1/2 : Not Supported.
 744                         exram_size = 2; // UP TO 5MB.
 745                         break;
 746                 case 0x03: // TOWNS2 UX
 747                 case 0x06: // TOWNS2 UG
 748                         exram_size = 4; // UP TO 9MB.
 749                         break;
 750                 case 0x02: // TOWNS 2F/2H
 751                 case 0x04: // TOWNS 10F/10H/20F/20H
 752                         exram_size = 6; // MAYBE UP TO 7MB.
 753                         break;
 754                 case 0x05: // TOWNS II CX
 755                 case 0x08: // TOWNS II HG
 756                         exram_size = 8; // UP TO 15MB.
 757                         break;
 758                 case 0x07: // Towns II HR
 759                 case 0x09: // Towns II UR
 760                         exram_size = 24; // UP TO 31MB.
 761                         break;
 762                 default:
 763                         exram_size = 31; // UP TO 127MB.
 764                         break;
 765                 }
 766         }
 767         if(exram_size < MIN_RAM_SIZE) {
 768                 exram_size = MIN_RAM_SIZE;
 769         }
 770
 771         memory->set_extra_ram_size(exram_size);
 772
 773 #if defined(WITH_I386SX)
 774         cpu->device_model = INTEL_80386;
 775 #elif defined(WITH_I486SX)
 776         cpu->device_model = INTEL_I486SX;
 777 #elif defined(WITH_I486DX)
 778         cpu->device_model = INTEL_I486DX;
 779 #elif defined(WITH_PENTIUM)
 780         cpu->device_model = INTEL_PENTIUM;
 781 #else
 782         // I386
 783         cpu->device_model = INTEL_80386;
 784 #endif
 785
 786         initialize_devices();
 787 //      cpu->set_address_mask(0xffffffff);
 788 }
 789
 790 VM::~VM()
 791 {
 792         // delete all devices
 793         release_devices();
 794 }
 795
 796 void VM::set_machine_type(uint16_t machine_id, uint16_t cpu_id)
 797 {
 798         if(memory != nullptr) {
 799                 memory->set_cpu_id(cpu_id);
 800                 memory->set_machine_id(machine_id);
 801         }
 802         if(crtc != nullptr) {
 803                 crtc->set_cpu_id(cpu_id);
 804                 crtc->set_machine_id(machine_id);
 805         }
 806         if(timer != nullptr) {
 807                 timer->set_cpu_id(cpu_id);
 808                 timer->set_machine_id(machine_id);
 809         }
 810         if(cdrom != nullptr) {
 811                 cdrom->set_cpu_id(cpu_id);
 812                 cdrom->set_machine_id(machine_id);
 813         }
 814         if(scsi != nullptr) {
 815                 scsi->set_cpu_id(cpu_id);
 816                 scsi->set_machine_id(machine_id);
 817         }
 818         if(serialrom != nullptr) {
 819                 serialrom->set_cpu_id(cpu_id);
 820                 serialrom->set_machine_id(machine_id);
 821         }
 822         if(floppy != nullptr) {
 823                 floppy->set_cpu_id(cpu_id);
 824                 floppy->set_machine_id(machine_id);
 825         }
 826 #if defined(HAS_20PIX_FONTS)
 827         if(fontrom_20pix != nullptr) {
 828                 fontrom_20pix->set_cpu_id(cpu_id);
 829                 fontrom_20pix->set_machine_id(machine_id);
 830         }
 831 #endif
 832         if(vram != nullptr) {
 833                 vram->set_cpu_id(cpu_id);
 834                 vram->set_machine_id(machine_id);
 835         }
 836
 837 }
 838
 839
 840 // ----------------------------------------------------------------------------
 841 // drive virtual machine
 842 // ----------------------------------------------------------------------------
 843
 844 void VM::reset()
 845 {
 846         // reset all devices
 847         boot_seq = false;
 848         VM_TEMPLATE::reset();
 849 //      cpu->set_address_mask(0xffffffff);
 850 }
 851
 852 void VM::special_reset(int num)
 853 {
 854         boot_seq = true;
 855
 856         // reset all devices
 857         VM_TEMPLATE::reset();
 858         //      cpu->set_address_mask(0xffffffff);
 859         __LIKELY_IF(keyboard != nullptr) {
 860                 keyboard->special_reset(num);
 861         }
 862 }
 863
 864 void VM::run()
 865 {
 866         __LIKELY_IF(event != nullptr) {
 867                 event->drive();
 868         }
 869 }
 870 void VM::process_boot_sequence(uint32_t val)
 871 {
 872         if(boot_seq) {
 873                 if(val != 0) {
 874                         if(keyboard != nullptr) {
 875                                 keyboard->write_signal(SIG_KEYBOARD_BOOTSEQ_END, 0xffffffff, 0xffffffff);
 876                         }
 877                         boot_seq = false;
 878                 }
 879         }
 880 }
 881
 882 // ----------------------------------------------------------------------------
 883 // debugger
 884 // ----------------------------------------------------------------------------
 885
 886 #ifdef USE_DEBUGGER
 887 DEVICE *VM::get_cpu(int index)
 888 {
 889         if(index == 0) {
 890                 return cpu;
 891         }
 892         return nullptr;
 893 }
 894 #endif
 895
 896 // ----------------------------------------------------------------------------
 897 // draw screen
 898 // ----------------------------------------------------------------------------
 899
 900 void VM::draw_screen()
 901 {
 902         __LIKELY_IF(crtc != nullptr) {
 903                 crtc->draw_screen();
 904         }
 905 }
 906
 907
 908 // ----------------------------------------------------------------------------
 909 // soud manager
 910 // ----------------------------------------------------------------------------
 911
 912 void VM::initialize_sound(int rate, int samples)
 913 {
 914 //      emu->lock_vm();
 915         // init sound manager
 916         event->initialize_sound(rate, samples);
 917
 918         // init sound gen
 919         beep->initialize_sound(rate, 8000);
 920
 921         // init OPN2
 922         #if 0
 923         // MASTER CLOCK MAYBE 600KHz * 12 = 7200KHz .
 924         // From FM-Towns Technical Databook (Rev.2), Page 201
 925         // opn2->initialize_sound(rate, (int)(600.0e3 * 12.0) , samples, 0.0, 0.0);
 926         #else
 927         // But...20230330 K.O:
 928         // From src/ym2612/ym2612.h of Tsugaru below quote.
 929         // Thanks to YS-11 San.
 930         //
 931         // What exactly is the master clock given to YM2612 of TOWNS?
 932         // FM Towns Technical Databook tells internal clock is 600KHz on page 201.
 933         // However, after calibrating the tone to match real Towns, it must be 690KHz.  Is it correct?
 934         // Master clock must be the internal clock times pre scaler.  But, we don't know the default pre scalar value.
 935         // Let's say it is 3.  Then, 690KHz times 3=2070KHz.  Sounds reasonable.
 936         // But, now FM77AV's YM2203C uses master clock frequency of 1228.8KHz.
 937         // And after calibration we know the ratio between the two.
 938         // From there, 1228.8*1698/1038=1999.46.  2MHz.  Makes more sense.
 939         opn2->initialize_sound(rate, (int)(((1228.8e3 * 1698.0) / 1038.0) * 4.0) , samples, 0.0, 0.0);
 940         #endif
 941         // init PCM
 942         rf5c68->initialize_sound(rate, samples);
 943
 944         // add_sound_in_source() must add after per initialize_sound().
 945         adc_in_ch = event->add_sound_in_source(rate, samples, 2);
 946         adc->set_sample_rate(19200);
 947         adc->set_sound_bank(adc_in_ch);
 948 #if 0
 949         mixer->set_context_out_line(adc_in_ch);
 950         mixer->set_context_sample_out(adc_in_ch, rate, samples); // Must be 2ch.
 951         // ToDo: Check recording sample rate & channels.
 952         mic_in_ch = event->add_sound_in_source(rate, samples, 2);
 953         mixer->set_context_mic_in(mic_in_ch, rate, samples);
 954
 955         line_in_ch = event->add_sound_in_source(rate, samples, 2);
 956         mixer->set_context_line_in(line_in_ch, rate, samples);
 957 #endif
 958 //      emu->unlock_vm();
 959 }
 960
 961 uint16_t* VM::create_sound(int* extra_frames)
 962 {
 963         __LIKELY_IF(event != nullptr) {
 964                 return event->create_sound(extra_frames);
 965         }
 966         return VM_TEMPLATE::create_sound(extra_frames);
 967 }
 968
 969 int VM::get_sound_buffer_ptr()
 970 {
 971         __LIKELY_IF(event != nullptr) {
 972                 return event->get_sound_buffer_ptr();
 973         }
 974         return VM_TEMPLATE::get_sound_buffer_ptr();
 975 }
 976
 977 void VM::clear_sound_in()
 978 {
 979         __UNLIKELY_IF(event == nullptr) return;
 980
 981         event->clear_sound_in_source(adc_in_ch);
 982         event->clear_sound_in_source(mic_in_ch);
 983         event->clear_sound_in_source(line_in_ch);
 984         return;
 985 }
 986
 987 int VM::get_sound_in_data(int ch, int32_t* dst, int expect_samples, int expect_rate, int expect_channels)
 988 {
 989         if(dst == nullptr) return 0;
 990         if(expect_samples <= 0) return 0;
 991         int n_ch = -1;
 992         switch(ch) {
 993         case 0x00:
 994                 n_ch = line_in_ch;
 995                 break;
 996         case 0x01:
 997                 n_ch = mic_in_ch;
 998                 break;
 999         case 0x100:
1000                 n_ch = adc_in_ch;
1001                 break;
1002         }
1003         if(n_ch < 0) return 0;
1004         int samples = 0;
1005         if(event != nullptr) {
1006                 samples = event->get_sound_in_data(n_ch, dst, expect_samples, expect_rate, expect_channels);
1007         }
1008         return samples;
1009 }
1010
1011 // Write to event's buffer
1012 int VM::sound_in(int ch, int32_t* src, int samples)
1013 {
1014         if(ch < 0) return 0;
1015         if(ch >= 2) return 0;
1016         int n_ch = -1;
1017         switch(ch) {
1018         case 0x100:  // ADC in from MIXER, not connected.
1019                 break;
1020         case 0x00: // LINE
1021                 n_ch = line_in_ch;
1022                 break;
1023         case 0x01: // MIC
1024                 n_ch = mic_in_ch;
1025                 break;
1026         }
1027         if(n_ch < 0) return 0;
1028
1029         int ss = 0;
1030         if(event != nullptr) {
1031                 emu->lock_vm();
1032                 ss =  event->write_sound_in_buffer(n_ch, src, samples);
1033                 emu->unlock_vm();
1034         }
1035         return ss;
1036 }
1037
1038 #if defined(USE_HARD_DISK)
1039 void VM::open_hard_disk(int drv, const _TCHAR* file_path)
1040 {
1041         if((drv < USE_HARD_DISK) && (drv < 8) && (drv >= 0)) {
1042                 if(scsi_hdd[drv] != nullptr) {
1043                         scsi_hdd[drv]->open(0, file_path, 512);
1044                 }
1045         }
1046 }
1047
1048 void VM::close_hard_disk(int drv)
1049 {
1050         if((drv < USE_HARD_DISK) && (drv < 8) && (drv >= 0)) {
1051                 if(scsi_hdd[drv] != nullptr) {
1052                         scsi_hdd[drv]->close(0);
1053                 }
1054         }
1055 }
1056
1057 bool VM::is_hard_disk_inserted(int drv)
1058 {
1059         if((drv < USE_HARD_DISK) && (drv < 8) && (drv >= 0)) {
1060                 if(scsi_hdd[drv] != nullptr) {
1061                         return scsi_hdd[drv]->mounted(0);
1062                 }
1063         }
1064         return false;
1065 }
1066
1067 uint32_t VM::is_hard_disk_accessed()
1068 {
1069         uint32_t status = 0;
1070
1071         for(int drv = 0; drv < USE_HARD_DISK; drv++) {
1072                 if(scsi_hdd[drv] != nullptr) {
1073                         if(scsi_hdd[drv]->accessed(0)) {
1074                                 status |= 1 << drv;
1075                         }
1076                 }
1077         }
1078         process_boot_sequence(status);
1079         return status;
1080 }
1081 #endif // USE_HARD_DISK
1082
1083 void VM::open_compact_disc(int drv, const _TCHAR* file_path)
1084 {
1085         if(cdrom != nullptr) {
1086                 cdrom->open(file_path);
1087         }
1088 }
1089
1090 void VM::close_compact_disc(int drv)
1091 {
1092         if(cdrom != nullptr) {
1093                 cdrom->close();
1094         }
1095 }
1096
1097 bool VM::is_compact_disc_inserted(int drv)
1098 {
1099         if(cdrom == nullptr) return false;
1100         return cdrom->mounted();
1101 }
1102
1103 uint32_t VM::is_compact_disc_accessed()
1104 {
1105         uint32_t status = cdrom->accessed();
1106         process_boot_sequence(status);
1107         return status;
1108 }
1109
1110 #ifdef USE_SOUND_VOLUME
1111 void VM::set_sound_device_volume(int ch, int decibel_l, int decibel_r)
1112 {
1113 #ifndef HAS_LINEIN_SOUND
1114 //      if(ch >= 7) ch++;
1115 #endif
1116 #ifndef HAS_MIC_SOUND
1117 //      if(ch >= 8) ch++;
1118 #endif
1119 #ifndef HAS_MODEM_SOUND
1120 //      if(ch >= 9) ch++;
1121 #endif
1122 #ifndef HAS_2ND_ADPCM
1123 //      if(ch >= 10) ch++;
1124 #endif
1125         if(ch == 0) { // BEEP
1126                 if(beep != nullptr) {
1127                         beep->set_volume(0, decibel_l, decibel_r);
1128                 }
1129         }
1130         else if(ch == 1) { // CD-ROM
1131                 if(e_volumes[1] != nullptr) {
1132                         e_volumes[1]->set_volumes(0, decibel_l, 1, decibel_r);
1133                 } else if(cdrom != nullptr) {
1134                         cdrom->set_volume(0, decibel_l, decibel_r);
1135                 }
1136         }
1137         else if(ch == 2) { // OPN2
1138                 if(opn2 != nullptr) {
1139                         opn2->set_volume(0, decibel_l, decibel_r);
1140                 }
1141         }
1142         else if(ch == 3) { // ADPCM
1143                 if(rf5c68 != nullptr) {
1144                         rf5c68->set_volume(0, decibel_l, decibel_r);
1145                 }
1146         }
1147         else if(ch == 4) { // SEEK, HEAD UP / DOWN
1148                 if(seek_sound != nullptr) {
1149                         seek_sound->set_volume(0, decibel_l, decibel_r);
1150                 }
1151                 if(head_up_sound != nullptr) {
1152                         head_up_sound->set_volume(0, decibel_l, decibel_r);
1153                 }
1154                 if(head_down_sound != nullptr) {
1155                         head_down_sound->set_volume(0, decibel_l, decibel_r);
1156                 }
1157         }
1158 }
1159 #endif
1160
1161 // ----------------------------------------------------------------------------
1162 // notify key
1163 // ----------------------------------------------------------------------------
1164
1165 void VM::key_down(int code, bool repeat)
1166 {
1167         __LIKELY_IF(keyboard != nullptr) {
1168                 keyboard->key_down(code);
1169         }
1170 }
1171
1172 void VM::key_up(int code)
1173 {
1174         __LIKELY_IF(keyboard != nullptr) {
1175                 keyboard->key_up(code);
1176         }
1177 }
1178
1179 // ----------------------------------------------------------------------------
1180 // user interface
1181 // ----------------------------------------------------------------------------
1182 void VM::open_cart(int drv, const _TCHAR* file_path)
1183 {
1184         switch(drv) {
1185         case 0:
1186                 if(iccard1 != nullptr) {
1187                         iccard1->open_cart(file_path);
1188                 }
1189                 break;
1190         case 1:
1191                 if(iccard2 != nullptr) {
1192                         iccard2->open_cart(file_path);
1193                 }
1194                 break;
1195         }
1196 }
1197
1198 void VM::close_cart(int drv)
1199 {
1200         switch(drv) {
1201         case 0:
1202                 if(iccard1 != nullptr) {
1203                         iccard1->close_cart();
1204                 }
1205                 break;
1206         case 1:
1207                 if(iccard2 != nullptr) {
1208                         iccard2->close_cart();
1209                 }
1210                 break;
1211         }
1212 }
1213
1214 bool VM::is_cart_inserted(int drv)
1215 {
1216         switch(drv) {
1217         case 0:
1218                 if(iccard1 != nullptr) {
1219                         return iccard1->is_cart_inserted();
1220                 }
1221                 break;
1222         case 1:
1223                 if(iccard2 != nullptr) {
1224                         return iccard2->is_cart_inserted();
1225                 }
1226                 break;
1227         }
1228         return false;
1229 }
1230
1231 void VM::open_floppy_disk(int drv, const _TCHAR* file_path, int bank)
1232 {
1233
1234         if(fdc != nullptr) {
1235                 fdc->open_disk(drv, file_path, bank);
1236                 floppy->change_disk(drv);
1237         }
1238 }
1239
1240 void VM::close_floppy_disk(int drv)
1241 {
1242         if(fdc != nullptr) {
1243                 fdc->close_disk(drv);
1244         //      floppy->change_disk(drv);
1245         }
1246 }
1247 uint32_t VM::is_floppy_disk_accessed()
1248 {
1249         uint32_t val = fdc->read_signal(0);
1250         process_boot_sequence(val);
1251         return val;
1252 }
1253
1254 bool VM::is_floppy_disk_inserted(int drv)
1255 {
1256         if(fdc != nullptr) {
1257                 return fdc->is_disk_inserted(drv);
1258         }
1259         return VM_TEMPLATE::is_floppy_disk_inserted(drv);
1260 }
1261
1262 void VM::is_floppy_disk_protected(int drv, bool value)
1263 {
1264         __LIKELY_IF(fdc != nullptr) {
1265                 fdc->is_disk_protected(drv, value);
1266         }
1267 }
1268
1269 bool VM::is_floppy_disk_protected(int drv)
1270 {
1271         __LIKELY_IF(fdc != nullptr) {
1272                 return fdc->is_disk_protected(drv);
1273         }
1274         return VM_TEMPLATE::is_floppy_disk_protected(drv);
1275 }
1276
1277 bool VM::is_frame_skippable()
1278 {
1279         __LIKELY_IF(event != nullptr) {
1280                 return event->is_frame_skippable();
1281         }
1282         return VM_TEMPLATE::is_frame_skippable();
1283 }
1284
1285
1286 double VM::get_current_usec()
1287 {
1288         __LIKELY_IF(event != nullptr) {
1289                 return event->get_current_usec();
1290         }
1291         return VM_TEMPLATE::get_current_usec();
1292 }
1293
1294 uint64_t VM::get_current_clock_uint64()
1295 {
1296         __LIKELY_IF(event != nullptr) {
1297                 return event->get_current_clock_uint64();
1298         }
1299         return VM_TEMPLATE::get_current_clock_uint64();
1300 }
1301
1302 #define STATE_VERSION   4
1303
1304 bool VM::process_state(FILEIO* state_fio, bool loading)
1305 {
1306         if(!(VM_TEMPLATE::process_state_core(state_fio, loading, STATE_VERSION))) {
1307                 return false;
1308         }
1309
1310         // Machine specified.
1311         state_fio->StateValue(boot_seq);
1312
1313         if(loading) {
1314                 update_config();
1315         }
1316         return true;
1317 }