source/src/vm/bx1/bx1.cpp

   1 /*
   2         CANON BX-1 Emulator 'eBX-1'
   3
   4         Author : Takeda.Toshiya
   5         Date   : 2020.08.22-
   6
   7         [ virtual machine ]
   8 */
   9
  10 #include "bx1.h"
  11 #include "../../emu.h"
  12 #include "../device.h"
  13 #include "../event.h"
  14
  15 #include "../mc6800.h"
  16 #include "../io.h"
  17 #include "../memory.h"
  18 #include "../disk.h"
  19 #include "../mc6843.h"
  20 #include "../mc6844.h"
  21 #include "../noise.h"
  22
  23 #ifdef USE_DEBUGGER
  24 #include "../debugger.h"
  25 #endif
  26
  27 #include "display.h"
  28 #include "floppy.h"
  29 #include "keyboard.h"
  30 #include "printer.h"
  31
  32 using BX1::DISPLAY;
  33 using BX1::FLOPPY;
  34 using BX1::KEYBOARD;
  35 using BX1::PRINTER;
  36
  37 // ----------------------------------------------------------------------------
  38 // initialize
  39 // ----------------------------------------------------------------------------
  40
  41 VM::VM(EMU_TEMPLATE* parent_emu) : VM_TEMPLATE(parent_emu)
  42 {
  43         // create devices
  44         first_device = last_device = NULL;
  45         dummy = new DEVICE(this, emu);  // must be 1st device
  46         event = new EVENT(this, emu);   // must be 2nd device
  47
  48         cpu = new MC6800(this, emu);
  49         io = new IO(this, emu);
  50         memory = new MEMORY(this, emu);
  51         fdc = new MC6843(this, emu);    // HD46503
  52         fdc->set_context_noise_seek(new NOISE(this, emu));
  53         fdc->set_context_noise_head_down(new NOISE(this, emu));
  54         fdc->set_context_noise_head_up(new NOISE(this, emu));
  55         dma = new MC6844(this, emu);    // HD46504
  56
  57         display = new DISPLAY(this, emu);
  58         floppy = new FLOPPY(this, emu);
  59         keyboard = new KEYBOARD(this, emu);
  60         printer = new PRINTER(this, emu);
  61
  62         // set contexts
  63         event->set_context_cpu(cpu);
  64         event->set_context_sound(fdc->get_context_noise_seek());
  65         event->set_context_sound(fdc->get_context_noise_head_down());
  66         event->set_context_sound(fdc->get_context_noise_head_up());
  67
  68         fdc->set_context_drq(dma, SIG_MC6844_TX_RQ_0, 1);
  69         dma->set_context_memory(memory);
  70         dma->set_context_ch0(fdc);
  71         dma->set_context_ch1(display);
  72
  73         display->set_context_dma(dma);
  74         floppy->set_context_fdc(fdc);
  75         printer->set_context_ram(ram);
  76
  77         // cpu bus
  78         cpu->set_context_mem(memory);
  79 #ifdef USE_DEBUGGER
  80         DEBUGGER *debugger = new DEBUGGER(this, emu);
  81         cpu->set_context_debugger(debugger);
  82
  83         debugger->add_symbol(0x015c, _T("VRAM_TOP"));
  84
  85         debugger->add_symbol(0xe121, _T("KEY_DOWN"));
  86         debugger->add_symbol(0xe122, _T("KEY_UP"));
  87         debugger->add_symbol(0xe140, _T("DMA[0].ADDR_HI"));
  88         debugger->add_symbol(0xe141, _T("DMA[0].ADDR_LO"));
  89         debugger->add_symbol(0xe142, _T("DMA[0].COUNT_HI"));
  90         debugger->add_symbol(0xe143, _T("DMA[0].COUNT_LO"));
  91         debugger->add_symbol(0xe144, _T("DMA[1].ADDR_HI"));
  92         debugger->add_symbol(0xe145, _T("DMA[1].ADDR_LO"));
  93         debugger->add_symbol(0xe146, _T("DMA[1].COUNT_HI"));
  94         debugger->add_symbol(0xe147, _T("DMA[1].COUNT_LO"));
  95         debugger->add_symbol(0xe148, _T("DMA[2].ADDR_HI"));
  96         debugger->add_symbol(0xe149, _T("DMA[2].ADDR_LO"));
  97         debugger->add_symbol(0xe14a, _T("DMA[2].COUNT_HI"));
  98         debugger->add_symbol(0xe14b, _T("DMA[2].COUNT_LO"));
  99         debugger->add_symbol(0xe14c, _T("DMA[3].ADDR_HI"));
 100         debugger->add_symbol(0xe14d, _T("DMA[3].ADDR_LO"));
 101         debugger->add_symbol(0xe14e, _T("DMA[3].COUNT_HI"));
 102         debugger->add_symbol(0xe14f, _T("DMA[3].COUNT_LO"));
 103         debugger->add_symbol(0xe150, _T("DMA[0].CH_CTRL"));
 104         debugger->add_symbol(0xe151, _T("DMA[1].CH_CTRL"));
 105         debugger->add_symbol(0xe152, _T("DMA[2].CH_CTRL"));
 106         debugger->add_symbol(0xe153, _T("DMA[3].CH_CTRL"));
 107         debugger->add_symbol(0xe154, _T("DMA.PRIORITY_CTRL"));
 108         debugger->add_symbol(0xe155, _T("DMA.INTERRUPT_CTRL"));
 109         debugger->add_symbol(0xe156, _T("DMA.DATA_CHAIN"));
 110         debugger->add_symbol(0xe180, _T("FDC.DATA"));
 111         debugger->add_symbol(0xe181, _T("FDC.CUR_TRACK"));
 112         debugger->add_symbol(0xe182, _T("FDC.INTSTAT_CMD"));
 113         debugger->add_symbol(0xe183, _T("FDC.STATA_SETUP"));
 114         debugger->add_symbol(0xe184, _T("FDC.STATB_SECTOR"));
 115         debugger->add_symbol(0xe185, _T("FDC.GEN_COUNT"));
 116         debugger->add_symbol(0xe186, _T("FDC.CRC_CTRL"));
 117         debugger->add_symbol(0xe187, _T("FDC.LOGIC_TRACK"));
 118         debugger->add_symbol(0xe18a, _T("FDD.MOTOR_ON")); // ???
 119 #endif
 120
 121         // memory bus
 122         memset(ram, 0x00, sizeof(ram));
 123         memset(cart_5000, 0xff, sizeof(cart_5000));
 124         memset(cart_6000, 0xff, sizeof(cart_6000));
 125         memset(cart_7000, 0xff, sizeof(cart_7000));
 126         memset(cart_8000, 0xff, sizeof(cart_8000));
 127         memset(bios_9000, 0xff, sizeof(bios_9000));
 128         memset(bios_f000, 0xff, sizeof(bios_f000));
 129
 130         memory->read_bios(_T("CART_5000.ROM"), cart_5000, sizeof(cart_5000));
 131         memory->read_bios(_T("CART_6000.ROM"), cart_6000, sizeof(cart_6000));
 132         memory->read_bios(_T("CART_7000.ROM"), cart_7000, sizeof(cart_7000));
 133         memory->read_bios(_T("CART_8000.ROM"), cart_8000, sizeof(cart_8000));
 134         memory->read_bios(_T("BIOS_9000.ROM"), bios_9000, sizeof(bios_9000));
 135         memory->read_bios(_T("BIOS_F000.ROM"), bios_f000, sizeof(bios_f000));
 136
 137 #if defined(_AX1)
 138         memory->set_memory_rw(0x0000, 0x07ff, ram + 0x0000);
 139 #elif defined(_BX1)
 140         memory->set_memory_rw(0x0000, 0x03ff, ram + 0x0000);
 141 #endif
 142         memory->set_memory_rw(0x1000, 0x4fff, ram + 0x1000);
 143         memory->set_memory_r(0x5000, 0x5fff, cart_5000);
 144         memory->set_memory_r(0x6000, 0x6fff, cart_6000);
 145         memory->set_memory_r(0x7000, 0x7fff, cart_7000);
 146         memory->set_memory_r(0x8000, 0x8fff, cart_8000);
 147         memory->set_memory_r(0x9000, 0xdfff, bios_9000);
 148         memory->set_memory_mapped_io_rw(0xe000, 0xefff, io);
 149         memory->set_memory_r(0xf000, 0xffff, bios_f000);
 150
 151         // io bus
 152         io->set_iomap_range_r (0xe121, 0xe122, keyboard);
 153         io->set_iomap_range_rw(0xe140, 0xe156, dma);
 154         io->set_iomap_range_rw(0xe180, 0xe187, fdc);
 155         io->set_iomap_range_rw(0xe188, 0xe18f, floppy);
 156         io->set_iomap_range_rw(0xe210, 0xe212, printer); // ?????
 157
 158 //! @note Not remove below comment. 20210511 K.O
 159 /*
 160         ram
 161         0062            画面の桁数？
 162         0063-0072       画面？
 163
 164 dma[3]  15chから10hバイト
 165
 166         chain regでdma[3]→dma[1]に設定をコピー
 167
 168 dma[2]  bfd5hから09hバイト メモリ→
 169
 170         c7h c7h c7h c7h e2h d9h d9h d9h d9h
 171
 172 dma[1]  15chから10hバイト  メモリ→DISPLAY？
 173
 174 */
 175
 176
 177
 178
 179 /*
 180
 181 $E121           ram[$016e]
 182 $E122
 183 $E124
 184 $E128   w
 185
 186 $E189   r
 187 $E18a   w
 188
 189 $E210   rw
 190 $E211   rw
 191 $E212   rw
 192
 193 $E387
 194
 195 $E700
 196
 197 outp(0xe210, 0x03);
 198 a  = inp(0xe211);
 199 a &= 0x1c;
 200 a |= 0x81 or 0xa1;
 201 outp(0xe210, a);
 202 */
 203
 204 //      io->set_iovalue_single_r(0xe189, 0);
 205 //      io->set_iovalue_single_r(0xe212, 0);
 206
 207 /*
 208         e121    スイッチ？
 209
 210
 211         e122    スイッチ？
 212                 bit5 フロッピー読み込み？
 213
 214
 215
 216 UNKNOWN:        00c0d0  IN8     e182 = ff
 217 UNKNOWN:        00b618  IN8     e184 = ff
 218 UNKNOWN:        00b61b  IN8     e180 = ff
 219 UNKNOWN:        00b61e  OUT8    e180,ff
 220 UNKNOWN:        00b667  OUT8    e18c,00
 221
 222 */
 223
 224         // initialize all devices
 225         for(DEVICE* device = first_device; device; device = device->next_device) {
 226                 device->initialize();
 227         }
 228 }
 229
 230 VM::~VM()
 231 {
 232         // delete all devices
 233         for(DEVICE* device = first_device; device;) {
 234                 DEVICE *next_device = device->next_device;
 235                 device->release();
 236                 delete device;
 237                 device = next_device;
 238         }
 239 }
 240
 241 DEVICE* VM::get_device(int id)
 242 {
 243         for(DEVICE* device = first_device; device; device = device->next_device) {
 244                 if(device->this_device_id == id) {
 245                         return device;
 246                 }
 247         }
 248         return NULL;
 249 }
 250
 251 // ----------------------------------------------------------------------------
 252 // drive virtual machine
 253 // ----------------------------------------------------------------------------
 254
 255 void VM::reset()
 256 {
 257         // reset all devices
 258         for(DEVICE* device = first_device; device; device = device->next_device) {
 259                 device->reset();
 260         }
 261 }
 262
 263 void VM::run()
 264 {
 265         event->drive();
 266         cpu->write_signal(SIG_CPU_IRQ, 1, 1);
 267 }
 268
 269 // ----------------------------------------------------------------------------
 270 // debugger
 271 // ----------------------------------------------------------------------------
 272
 273 #ifdef USE_DEBUGGER
 274 DEVICE *VM::get_cpu(int index)
 275 {
 276         if(index == 0) {
 277                 return cpu;
 278         }
 279         return NULL;
 280 }
 281 #endif
 282
 283 // ----------------------------------------------------------------------------
 284 // draw screen
 285 // ----------------------------------------------------------------------------
 286
 287 void VM::draw_screen()
 288 {
 289         display->draw_screen();
 290 }
 291
 292 // ----------------------------------------------------------------------------
 293 // soud manager
 294 // ----------------------------------------------------------------------------
 295
 296 void VM::initialize_sound(int rate, int samples)
 297 {
 298         // init sound manager
 299         event->initialize_sound(rate, samples);
 300 }
 301
 302 uint16_t* VM::create_sound(int* extra_frames)
 303 {
 304         return event->create_sound(extra_frames);
 305 }
 306
 307 int VM::get_sound_buffer_ptr()
 308 {
 309         return event->get_sound_buffer_ptr();
 310 }
 311
 312 #ifdef USE_SOUND_VOLUME
 313 void VM::set_sound_device_volume(int ch, int decibel_l, int decibel_r)
 314 {
 315         if(ch == 0) {
 316                 fdc->get_context_noise_seek()->set_volume(0, decibel_l, decibel_r);
 317                 fdc->get_context_noise_head_down()->set_volume(0, decibel_l, decibel_r);
 318                 fdc->get_context_noise_head_up()->set_volume(0, decibel_l, decibel_r);
 319         }
 320 }
 321 #endif
 322
 323 // ----------------------------------------------------------------------------
 324 // notify key
 325 // ----------------------------------------------------------------------------
 326
 327 void VM::key_down(int code, bool repeat)
 328 {
 329         if(!repeat) {
 330                 keyboard->key_down(code);
 331         }
 332 }
 333
 334 void VM::key_up(int code)
 335 {
 336 }
 337
 338 // ----------------------------------------------------------------------------
 339 // user interface
 340 // ----------------------------------------------------------------------------
 341
 342 void VM::open_floppy_disk(int drv, const _TCHAR* file_path, int bank)
 343 {
 344         fdc->open_disk(drv, file_path, bank);
 345
 346         // unformatted disk image is inserted
 347         if(fdc->is_disk_inserted(drv)) {
 348                 DISK *disk = fdc->get_disk_handler(drv);
 349                 bool formatted = false;
 350
 351                 for(int trk = 0; trk < 35; trk++) {
 352                         if(disk->get_track(trk, 0)) {
 353                                 formatted = true;
 354                                 break;
 355                         }
 356                 }
 357                 if(!formatted) {
 358                         // format disk image
 359                         for(int trk = 0; trk < 35; trk++) {
 360                                 disk->format_track(trk, 0);
 361                                 disk->track_mfm = false;
 362
 363                                 for(int sec = 1; sec <= 16; sec++) {
 364                                         disk->insert_sector(trk, 0, sec, 0, false, false, 0x00, 128);
 365                                 }
 366                         }
 367                 }
 368         }
 369 }
 370
 371 void VM::close_floppy_disk(int drv)
 372 {
 373         fdc->close_disk(drv);
 374 }
 375
 376 bool VM::is_floppy_disk_inserted(int drv)
 377 {
 378         return fdc->is_disk_inserted(drv);
 379 }
 380
 381 void VM::is_floppy_disk_protected(int drv, bool value)
 382 {
 383         fdc->is_disk_protected(drv, value);
 384 }
 385
 386 bool VM::is_floppy_disk_protected(int drv)
 387 {
 388         return fdc->is_disk_protected(drv);
 389 }
 390
 391 uint32_t VM::is_floppy_disk_accessed()
 392 {
 393         return fdc->read_signal(0);
 394 }
 395
 396 bool VM::is_frame_skippable()
 397 {
 398         return event->is_frame_skippable();
 399 }
 400
 401 void VM::update_config()
 402 {
 403         for(DEVICE* device = first_device; device; device = device->next_device) {
 404                 device->update_config();
 405         }
 406 }
 407
 408 #define STATE_VERSION   2
 409
 410 bool VM::process_state(FILEIO* state_fio, bool loading)
 411 {
 412         if(!state_fio->StateCheckUint32(STATE_VERSION)) {
 413                 return false;
 414         }
 415         for(DEVICE* device = first_device; device; device = device->next_device) {
 416                 const char *name = typeid(*device).name() + 6; // skip "class "
 417                 int len = (int)strlen(name);
 418
 419                 if(!state_fio->StateCheckInt32(len)) {
 420                         return false;
 421                 }
 422                 if(!state_fio->StateCheckBuffer(name, len, 1)) {
 423                         return false;
 424                 }
 425                 if(!device->process_state(state_fio, loading)) {
 426                         return false;
 427                 }
 428         }
 429         state_fio->StateArray(ram, sizeof(ram), 1);
 430         return true;
 431 }
 432