diff options
Diffstat (limited to 'src/mess/drivers/socrates.c')
-rw-r--r-- | src/mess/drivers/socrates.c | 1587 |
1 files changed, 0 insertions, 1587 deletions
diff --git a/src/mess/drivers/socrates.c b/src/mess/drivers/socrates.c deleted file mode 100644 index ddf88ddc002..00000000000 --- a/src/mess/drivers/socrates.c +++ /dev/null @@ -1,1587 +0,0 @@ -// license:BSD-3-Clause -// copyright-holders:Jonathan Gevaryahu -/****************************************************************************** -* -* V-tech Socrates Driver -* Copyright (C) 2009-2013 Jonathan Gevaryahu AKA Lord Nightmare -* with dumping help from Kevin 'kevtris' Horton -* -* -TODO: - * The speech chip is a Toshiba tc8802AF (which is pin and speech - compatible with the older Toshiba t6803, but adds vsm rom read mode and - apparently does away with the melody mode); the chip is running at - 800khz clock/10khz output with between 1 and 4 t6684F vsm roms - attached; create a sound driver for this! - * fix glitches with keyboard input (double keys still don't work, super painter letter entry still doesn't work) - * hook up hblank (m_hblankstate is inited 0 right now and never changed) - * hook up mouse - * add waitstates for ram access (lack of this causes the system to run - way too fast) - This will require some probing with the LA and the fluke to figure out - how many cycles the waitstates are for for rom/ram/etc access. - * figure out what bit 6 of the status register actually does; is this an - ir mcu flag? - * keyboard IR decoder MCU is HLE'd for now, needs decap and cpu core (it - is rather tms1000 or CIC-like iirc) - - - Socrates Educational Video System - FFFF|----------------| - | RAM (window 1) | - | | - C000|----------------| - | RAM (window 0) | - | | - 8000|----------------| - | ROM (banked) | - | *Cartridge | - 4000|----------------| - | ROM (fixed) | - | | - 0000|----------------| - - * cartridge lives in banks 10 onward, see below - - Banked rom area (4000-7fff) bankswitching - Bankswitching is achieved by writing to I/O port 0 (mirrored on 1-7) - Bank ROM_REGION Contents - 0 0x00000 - 0x03fff System ROM page 0 - 1 0x04000 - 0x07fff System ROM page 1 - 2 0x08000 - 0x0bfff System ROM page 2 - ... etc ... - E 0x38000 - 0x38fff System ROM page E - F 0x3c000 - 0x3ffff System ROM page F - 10 0x40000 - 0x43fff Expansion Cartridge page 0 (cart ROM 0x0000-0x3fff) - 11 0x44000 - 0x47fff Expansion Cartridge page 1 (cart ROM 0x4000-0x7fff) - ... etc ... - - Banked ram area (z80 0x8000-0xbfff window 0 and z80 0xc000-0xffff window 1) - Bankswitching is achieved by writing to I/O port 8 (mirrored to 9-F), only low nybble - byte written: 0b****BBAA - where BB controls ram window 1 and AA controls ram window 0 - hence: - Write [window 0] [window 1] - 0 0x0000-0x3fff 0x0000-0x3fff - 1 0x4000-0x7fff 0x0000-0x3fff - 2 0x8000-0xbfff 0x0000-0x3fff - 3 0xc000-0xffff 0x0000-0x3fff - 4 0x0000-0x3fff 0x4000-0x7fff - 5 0x4000-0x7fff 0x4000-0x7fff - 6 0x8000-0xbfff 0x4000-0x7fff - 7 0xc000-0xffff 0x4000-0x7fff - 8 0x0000-0x3fff 0x8000-0xbfff - 9 0x4000-0x7fff 0x8000-0xbfff - A 0x8000-0xbfff 0x8000-0xbfff - B 0xc000-0xffff 0x8000-0xbfff - C 0x0000-0x3fff 0xc000-0xffff - D 0x4000-0x7fff 0xc000-0xffff - E 0x8000-0xbfff 0xc000-0xffff - F 0xc000-0xffff 0xc000-0xffff - -******************************************************************************/ - -/* Core includes */ -#include "emu.h" -#include "cpu/z80/z80.h" -#include "audio/socrates.h" -#include "bus/generic/slot.h" -#include "bus/generic/carts.h" - -class socrates_state : public driver_device -{ -public: - enum - { - TIMER_CLEAR_SPEECH, - TIMER_CLEAR_IRQ - }; - - socrates_state(const machine_config &mconfig, device_type type, const char *tag) - : driver_device(mconfig, type, tag), - m_maincpu(*this, "maincpu"), - m_sound(*this, "soc_snd"), - m_screen(*this, "screen"), - m_cart(*this, "cartslot"), - m_bios_reg(*this, "maincpu"), - m_vram_reg(*this, "vram") - { } - required_device<cpu_device> m_maincpu; - required_device<socrates_snd_device> m_sound; - required_device<screen_device> m_screen; - required_device<generic_slot_device> m_cart; - - rgb_t m_palette_val[256]; - - required_memory_region m_bios_reg; - required_memory_region m_vram_reg; - memory_region *m_cart_reg; - - UINT8 m_data[8]; - UINT8 m_rom_bank; - UINT8 m_ram_bank; - UINT16 m_scroll_offset; - UINT8 m_kb_latch_low[2]; - UINT8 m_kb_latch_high[2]; - UINT8 m_kb_latch_mouse; - UINT8 m_kbmcu_rscount; // how many pokes the kbmcu has taken in the last frame - UINT8 m_io40_latch; // what was last written to speech reg (for open bus)? - UINT8 m_hblankstate; // are we in hblank? - UINT8 m_vblankstate; // are we in vblank? - UINT8 m_speech_running; // is speech synth talking? - UINT32 m_speech_address; // address in speech space - UINT8 m_speech_settings; // speech settings (nybble 0: ? externrom ? ?; nybble 1: ? ? ? ?) - UINT8 m_speech_dummy_read; // have we done a dummy read yet? - UINT8 m_speech_load_address_count; // number of times load address has happened - UINT8 m_speech_load_settings_count; // number of times load settings has happened - DECLARE_READ8_MEMBER(socrates_rom_bank_r); - DECLARE_WRITE8_MEMBER(socrates_rom_bank_w); - DECLARE_READ8_MEMBER(socrates_ram_bank_r); - DECLARE_WRITE8_MEMBER(socrates_ram_bank_w); - DECLARE_READ8_MEMBER(read_f3); - DECLARE_WRITE8_MEMBER(kbmcu_strobe); - DECLARE_READ8_MEMBER(status_and_speech); - DECLARE_WRITE8_MEMBER(speech_command); - DECLARE_READ8_MEMBER(socrates_keyboard_low_r); - DECLARE_READ8_MEMBER(socrates_keyboard_high_r); - DECLARE_WRITE8_MEMBER(socrates_keyboard_clear); - DECLARE_WRITE8_MEMBER(reset_speech); - DECLARE_WRITE8_MEMBER(socrates_scroll_w); - DECLARE_WRITE8_MEMBER(socrates_sound_w); - DECLARE_DRIVER_INIT(socrates); - virtual void machine_reset(); - virtual void video_start(); - DECLARE_PALETTE_INIT(socrates); - UINT32 screen_update_socrates(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect); - INTERRUPT_GEN_MEMBER(assert_irq); - TIMER_CALLBACK_MEMBER(clear_speech_cb); - TIMER_CALLBACK_MEMBER(clear_irq_cb); - void socrates_set_rom_bank(); - void socrates_set_ram_bank(); - void socrates_update_kb(); - void socrates_check_kb_latch(); - rgb_t socrates_create_color(UINT8 color); - -protected: - virtual void device_timer(emu_timer &timer, device_timer_id id, int param, void *ptr); -}; - - -class iqunlim_state : public socrates_state -{ -public: - iqunlim_state(const machine_config &mconfig, device_type type, const char *tag) - : socrates_state(mconfig, type, tag), - m_bank1(*this, "bank1"), - m_bank2(*this, "bank2"), - m_bank3(*this, "bank3"), - m_bank4(*this, "bank4") - { } - - required_memory_bank m_bank1; - required_memory_bank m_bank2; - required_memory_bank m_bank3; - required_memory_bank m_bank4; - - UINT32 screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect); - DECLARE_WRITE8_MEMBER( colors_w ); - DECLARE_READ8_MEMBER( rombank_r ); - DECLARE_WRITE8_MEMBER( rombank_w ); - DECLARE_READ8_MEMBER( rambank_r ); - DECLARE_WRITE8_MEMBER( rambank_w ); - DECLARE_READ8_MEMBER( keyboard_r ); - DECLARE_WRITE8_MEMBER( keyboard_clear ); - DECLARE_READ8_MEMBER( video_regs_r ); - DECLARE_WRITE8_MEMBER( video_regs_w ); - DECLARE_READ8_MEMBER( status_r ); - DECLARE_INPUT_CHANGED_MEMBER( send_input ); - -protected: - virtual void machine_start(); - virtual void machine_reset(); - int get_color(int index, int y); - -private: - UINT8 m_rombank[2]; - UINT8 m_rambank; - UINT8 m_colors[8]; - UINT8 m_video_regs[4]; - - struct - { - UINT8 buffer[8]; - int head; - int tail; - } m_kb_queue; -}; - -/* Defines */ - -/* Components */ - -/* Devices */ - -void socrates_state::socrates_set_rom_bank() -{ - if (m_cart_reg && m_rom_bank >= 0x10) - { - int bank = m_rom_bank % (m_cart->get_rom_size() / 0x4000); - membank("bank1")->set_base(m_cart_reg->base() + (bank * 0x4000)); - } - else - membank("bank1")->set_base(m_bios_reg->base() + (m_rom_bank * 0x4000)); -} - -void socrates_state::socrates_set_ram_bank() -{ - membank("bank2")->set_base(m_vram_reg->base() + ( (m_ram_bank & 0x3) * 0x4000)); // window 0 - membank("bank3")->set_base(m_vram_reg->base() + (((m_ram_bank & 0xc) >> 2) * 0x4000)); // window 1 -} - -void socrates_state::socrates_update_kb( ) -{ - static const char *const rownames[] = { "keyboard_40", "keyboard_41", "keyboard_42", "keyboard_43", "keyboard_44" }; - int row, keyvalue, powerof2; - int shift = 0; - // first check that the kb latch[1] is clear; if it isn't, don't touch it! - if ((m_kb_latch_low[1] != 0) || (m_kb_latch_high[1] != 1)) return; - // next check for joypad buttons - keyvalue = ioport("keyboard_jp")->read(); - if (keyvalue != 0) - { - m_kb_latch_low[1] = (keyvalue & 0xFF0)>>4; - m_kb_latch_high[1] = 0x80 | (keyvalue & 0xF); - return; // get out of this function; due to the way key priorities work, we're done here. - } - // next check for mouse movement. - // this isn't written yet, so write me please! - // next check if shift is down - shift = ioport("keyboard_50")->read(); - // find key low and high byte ok keyboard section - for (row = 4; row>=0; row--) - { - keyvalue = ioport(rownames[row])->read(); - if (keyvalue != 0) - { - for (powerof2 = 9; powerof2 >= 0; powerof2--) - { - if ((keyvalue&(1<<powerof2)) == (1<<powerof2)) - { - m_kb_latch_low[1] = (shift?0x50:0x40)+row; - m_kb_latch_high[1] = (0x80 | powerof2); - return; // get out of the for loop; due to the way key priorities work, we're done here. - } - } - } - } - // no key was pressed... check if shift was hit then? - if (shift != 0) - { - m_kb_latch_low[1] = 0x50; - m_kb_latch_high[1] = 0x80; - } -} - -void socrates_state::socrates_check_kb_latch( ) // if kb[1] is full and kb[0] is not, shift [1] to [0] and clear [1] -{ - if (((m_kb_latch_low[1] != 0) || (m_kb_latch_high[1] != 1)) && - ((m_kb_latch_low[0] == 0) && (m_kb_latch_high[0] == 1))) - { - m_kb_latch_low[0] = m_kb_latch_low[1]; - m_kb_latch_low[1] = 0; - m_kb_latch_high[0] = m_kb_latch_high[1]; - m_kb_latch_high[1] = 1; - } -} - -void socrates_state::machine_reset() -{ - std::string region_tag; - m_cart_reg = memregion(region_tag.assign(m_cart->tag()).append(GENERIC_ROM_REGION_TAG).c_str()); - - m_rom_bank = 0xF3; // actually set semi-randomly on real console but we need to initialize it somewhere... - socrates_set_rom_bank(); - m_ram_bank = 0; // the actual console sets it semi randomly on power up, and the bios cleans it up. - socrates_set_ram_bank(); - m_kb_latch_low[0] = 0xFF; - m_kb_latch_high[0] = 0x8F; - m_kb_latch_low[1] = 0x00; - m_kb_latch_high[1] = 0x01; - m_kb_latch_mouse = 0; - m_kbmcu_rscount = 0; - m_io40_latch = 0; - m_hblankstate = 0; - m_vblankstate = 0; - m_speech_running = 0; - m_speech_address = 0; - m_speech_settings = 0; - m_speech_dummy_read = 0; - m_speech_load_address_count = 0; - m_speech_load_settings_count = 0; -} - -void socrates_state::device_timer(emu_timer &timer, device_timer_id id, int param, void *ptr) -{ - switch (id) - { - case TIMER_CLEAR_SPEECH: - clear_speech_cb(ptr, param); - break; - case TIMER_CLEAR_IRQ: - clear_irq_cb(ptr, param); - break; - default: - assert_always(FALSE, "Unknown id in socrates_state::device_timer"); - } -} - -DRIVER_INIT_MEMBER(socrates_state,socrates) -{ - UINT8 *gfx = memregion("vram")->base(); - - /* fill vram with its init powerup bit pattern, so startup has the checkerboard screen */ - for (int i = 0; i < 0x10000; i++) - gfx[i] = (((i&0x1)?0x00:0xFF)^((i&0x100)?0x00:0xff)); -// init sound channels to both be on lowest pitch and max volume - m_maincpu->set_clock_scale(0.45f); /* RAM access waitstates etc. aren't emulated - slow the CPU to compensate */ -} - -READ8_MEMBER(socrates_state::socrates_rom_bank_r) -{ - return m_rom_bank; -} - -WRITE8_MEMBER(socrates_state::socrates_rom_bank_w) -{ - m_rom_bank = data; - socrates_set_rom_bank(); -} - -READ8_MEMBER(socrates_state::socrates_ram_bank_r) -{ - return m_ram_bank; -} - -WRITE8_MEMBER(socrates_state::socrates_ram_bank_w) -{ - m_ram_bank = data&0xF; - socrates_set_ram_bank(); -} - -READ8_MEMBER(socrates_state::read_f3)// used for read-only i/o ports as mame/mess doesn't have a way to set the unmapped area to read as 0xF3 -{ - return 0xF3; -} - -WRITE8_MEMBER(socrates_state::kbmcu_strobe) // strobe the keyboard MCU -{ - //logerror("0x%04X: kbmcu written with %02X!\n", m_maincpu->pc(), data); //if (m_maincpu->pc() != 0x31D) - // if two writes happen within one frame, reset the keyboard latches - m_kbmcu_rscount++; - if (m_kbmcu_rscount > 1) - { - m_kb_latch_low[0] = 0x00; - m_kb_latch_high[0] = 0x01; - m_kb_latch_low[1] = 0x00; - m_kb_latch_high[1] = 0x01; - m_kb_latch_mouse = 0; - } -} - -READ8_MEMBER(socrates_state::status_and_speech)// read 0x4x, some sort of status reg -{ -// bit 7 - speech status: high when speech is playing, low when it is not (or when speech cart is not present) -// bit 6 - unknown, usually set, may involve the writes to 0x30, possibly some sort of fixed-length timer? -// bit 5 - vblank status, high when not in vblank -// bit 4 - hblank status, high when not in hblank -// bit 3 - speech chip bit 3 -// bit 2 - speech chip bit 2 -// bit 1 - speech chip bit 1 -// bit 0 - speech chip bit 0 -UINT8 *speechromint = memregion("speechint")->base(); -UINT8 *speechromext = memregion("speechext")->base(); - int temp = 0; - temp |= (m_speech_running)?0x80:0; - temp |= 0x40; // unknown, possibly IR mcu busy - temp |= (m_vblankstate)?0:0x20; - temp |= (m_hblankstate)?0:0x10; - switch(m_io40_latch&0xF0) // what was last opcode sent? - { - case 0x60: case 0xE0:// speech status 'read' register - if(m_speech_settings&0x04) // external speech roms (outside of speech ic but still in cart) enabled - { - logerror("reading external speech rom nybble from nybble address %x (byte address %x)\n",m_speech_address, m_speech_address>>1); - temp |= ((speechromext[((m_speech_address>>1)&0xffff)]>>((m_speech_address&1)*4))&0xF); - } - else - { - logerror("reading internal speech rom nybble from nybble address %x (byte address %x)\n",m_speech_address, m_speech_address>>1); - temp |= ((speechromint[((m_speech_address>>1)&0x1fff)]>>((m_speech_address&1)*4))&0xF); - } - if (m_speech_dummy_read == 0) // if we havent done the dummy read yet, do so now - { - m_speech_dummy_read++; - } - else - { - m_speech_address++; - } - break; - default: - temp |= m_io40_latch&0xF; // read open bus - break; - } - logerror("read from i/o 0x4x of %x\n", temp); - return temp; -} - -TIMER_CALLBACK_MEMBER(socrates_state::clear_speech_cb) -{ - m_speech_running = 0; - m_speech_load_address_count = 0; // should this be here or in the write functuon subpart which is speak command? - m_speech_load_settings_count = 0; -} - -WRITE8_MEMBER(socrates_state::speech_command) // write 0x4x -{ - /* - * 76543210 - * |||||||\-- SEL0 - * ||||||\--- SEL1 - * |||||\---- SEL2 - * ||||\----- SEL3 - * |||\------ SEL4 - * ||\------- SEL5 - * |\-------- 64UP (if LOW the chip is in 'dumb' mode and can only play 64 fixed phrases; if HIGH the chip is in 'cpu controlled' mode and commands work) (not 100% sure about this but suspect it is correct) - * \--------- START (in cpu mode must be toggled from low->high for a cpu command to 'take'; in 'dumb' mode must be toggled low->high to start that 'word') - */ - logerror("write to i/o 0x4x of %x\n", data); -/* -// old readback test, probably get rid of this junk: -// 00-0f: readback: 70-7f -// 10-1f: readback: 70-7f -// 20-2f: readback: 70-7f -// 30-3f: readback: 70-7f -// 40-5f: readback: 70-7f -// 50-5f: readback: 70-7f -// 60-6f: readback: ALL 7f -// 70-7f: readback: 50, 71-7f (force vblank?) -// 80-8f: 80 starts speech reads as f0, rest read as 71-7f -// 90-9f: all 70-7f -// a0-af: 70-7f -// b0-bf: 70-7f -// c0-cf: 70-7f -// d0-df: 70-7f -// e0-ef: readback ALL 76 -// f0-ff: 70-7f -*/ -/* The speech chip is a toshiba tc8802, it is NOT a t6803 since the t6803 - does not have the rom read mode, which the socrates definitely uses! */ -/* Commands (tc8802): -SEL 5 4 3 2 1 0 - 0 0 n n n n - ADLD - ADdress LoaD - writes one nybble to the address - of vsm rom selected (internal or external) starting - from the low 4 bits; each subsequent write writes to - the next higher 4 bits; resetting the chip resets - the position - 0 1 n n n n - CNDT - CoNDiTion (aka 'setup') - writes one nybble to the - setting register, starting from the low 4 bits; the - subsequent write will be to the high 4 bits; - resetting the chip will reset the position - - CNDT bits (? are from T6803 datasheet, which could be wrong on the tc8802AF here): - * 76543210 - * |||||||\-- ?bits/frame bit 1 (0 = see bit 2; 1 = 98bits/frame (these may be backwards)) - * ||||||\--- ?melody mode select if high - * |||||\---- speech rom select; 0 is internal 8k mask, 1 is external vsm bus - * ||||\----- ?voiced source select (0 = A; 1 = B) - * |||\------ ?filter stages (0 = lpc-10; 1 = lpc-8) - * ||\------- ?always 0 - * |\-------- ?frame length (0 = 20ms; 1 = 10ms) - * \--------- ?bits/frame bit 2 (if bit 1 is not set: 0 = 56 bits/frame; 1 = 50 bits/frame) - * - 1 0 x x x x - DTRD - DaTa ReaD - reads a nybble from the address as loaded - and increments the address by one nybble. The first - DTRD command after any other commands is a 'dummy - read' which serves to reset the bus direction of the - low 4 SEL lines, identical to the way the TMS5100 - does things. it doesn't affect the bus direction of - the high two SEL lines. - 1 1 0 x x x - START - Starts speech at the address as loaded. - 1 1 1 x x x - RESET - Resets the internal chip state (clears shifters and - counters) and forces speech to end/silence - immediately. -*/ - switch(data&0xF8) - { - case 0x80: case 0x88: case 0x90: case 0x98: case 0xA0: case 0xA8: case 0xB0: case 0xB8: - /* 'dumb' mode speech command: write me: start talking */ - m_speech_running = 1; - timer_set(attotime::from_seconds(4), TIMER_CLEAR_SPEECH); // hack - break; - case 0xC0: case 0xC8: // ADLD: load address to vsm - m_speech_address |= (((int)data&0xF)<<(m_speech_load_address_count*4))<<1; - m_speech_load_address_count++; - logerror("loaded address nybble %X, byte address is currently %5X with %d nybbles loaded\n", data&0xF, m_speech_address>>1, m_speech_load_address_count); - break; - case 0xD0: case 0xD8: // CNDT: load settings - m_speech_settings |= ((data&0xF)<<(m_speech_load_settings_count*4)); - m_speech_load_settings_count++; - break; - case 0xE0: case 0xE8: // DTRD: read byte, handled elsewhere - break; - case 0xF0: // SPEAK - m_speech_running = 1; - timer_set(attotime::from_seconds(4), TIMER_CLEAR_SPEECH); // hack - break; - case 0xF8: // RESET - m_speech_running = 0; - m_speech_address = 0; - m_speech_settings = 0; - m_speech_dummy_read = 0; - m_speech_load_address_count = 0; - m_speech_load_settings_count = 0; - m_io40_latch &= 0x0f; // set last command to 0 to prevent problems - break; - default: // 00 through 70 are packets without the write bit set, ignore them - break; - } - m_io40_latch = data; -} - -READ8_MEMBER(socrates_state::socrates_keyboard_low_r)// keyboard code low -{ - socrates_update_kb(); - socrates_check_kb_latch(); - return m_kb_latch_low[0]; -} - -READ8_MEMBER(socrates_state::socrates_keyboard_high_r)// keyboard code high -{ - socrates_update_kb(); - socrates_check_kb_latch(); - return m_kb_latch_high[0]; -} - -WRITE8_MEMBER(socrates_state::socrates_keyboard_clear)// keyboard latch shift/clear -{ - m_kb_latch_low[0] = m_kb_latch_low[1]; - m_kb_latch_high[0] = m_kb_latch_high[1]; - m_kb_latch_low[1] = 0; - m_kb_latch_high[1] = 1; -} - -WRITE8_MEMBER(socrates_state::reset_speech)// i/o 60: reset speech synth -{ - m_speech_running = 0; - m_speech_address = 0; - m_speech_settings = 0; - m_speech_dummy_read = 0; - m_speech_load_address_count = 0; - m_speech_load_settings_count = 0; - m_io40_latch &= 0x0f; // set last command to 0 to prevent problems -logerror("write to i/o 0x60 of %x\n",data); -} - -/* stuff below belongs in video/nc.c */ - -WRITE8_MEMBER(socrates_state::socrates_scroll_w) -{ - if (offset == 0) - m_scroll_offset = (m_scroll_offset&0x100) | data; - else - m_scroll_offset = (m_scroll_offset&0xFF) | ((data&1)<<8); -} - -/* NTSC-based Palette stuff */ -// max for I and Q -#define M_I 0.5957 -#define M_Q 0.5226 - /* luma amplitudes, measured on scope */ -#define LUMAMAX 1.420 -#define LUMA_COL_0 0.355, 0.139, 0.205, 0, 0.569, 0.355, 0.419, 0.205, 0.502, 0.288, 0.358, 0.142, 0.720, 0.502, 0.571, 0.358, -#define LUMA_COL_COMMON 0.52, 0.52, 0.52, 0.52, 0.734, 0.734, 0.734, 0.734, 0.667, 0.667, 0.667, 0.667, 0.885, 0.885, 0.885, 0.885, -#define LUMA_COL_2 0.574, 0.6565, 0.625, 0.71, 0.792, 0.87, 0.8425, 0.925, 0.724, 0.8055, 0.7825, 0.865, 0.94275, 1.0225, 0.99555, 1.07525, -#define LUMA_COL_5 0.4585, 0.382, 0.4065, 0.337, 0.6715, 0.5975, 0.6205, 0.5465, 0.6075, 0.531, 0.5555, 0.45, 0.8255, 0.7455, 0.774, 0.6985, -#define LUMA_COL_F 0.690, 0.904, 0.830, 1.053, 0.910, 1.120, 1.053, 1.270, 0.840, 1.053, 0.990, 1.202, 1.053, 1.270, 1.202, 1.420 - /* chroma amplitudes, measured on scope */ -#define CHROMAMAX 0.42075 -#define CHROMA_COL_COMMON 0.148, 0.3125, 0.26475, 0.42075, 0.148, 0.3125, 0.26475, 0.42075, 0.148, 0.3125, 0.26475, 0.42075, 0.148, 0.3125, 0.26475, 0.42075, -#define CHROMA_COL_2 0.125125, 0.27525, 0.230225, 0.384875, 0.125125, 0.27525, 0.230225, 0.384875, 0.125125, 0.27525, 0.230225, 0.384875, 0.125125, 0.27525, 0.230225, 0.384875, -#define CHROMA_COL_5 0.1235, 0.2695, 0.22625, 0.378, 0.1235, 0.2695, 0.22625, 0.378, 0.1235, 0.2695, 0.22625, 0.378, 0.1235, 0.2695, 0.22625, 0.378, -// gamma: this needs to be messed with... may differ on different systems... attach to slider somehow? -#define GAMMA 1.5 - -rgb_t socrates_state::socrates_create_color(UINT8 color) -{ - rgb_t composedcolor; - static const double lumatable[256] = { - LUMA_COL_0 - LUMA_COL_COMMON - LUMA_COL_2 - LUMA_COL_COMMON - LUMA_COL_COMMON - LUMA_COL_5 - LUMA_COL_COMMON - LUMA_COL_COMMON - LUMA_COL_COMMON - LUMA_COL_COMMON - LUMA_COL_COMMON - LUMA_COL_COMMON - LUMA_COL_COMMON - LUMA_COL_COMMON - LUMA_COL_COMMON - LUMA_COL_F - }; - static const double chromaintensity[256] = { - 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, - CHROMA_COL_COMMON - CHROMA_COL_2 - CHROMA_COL_COMMON - CHROMA_COL_COMMON - CHROMA_COL_5 - CHROMA_COL_COMMON - CHROMA_COL_COMMON - CHROMA_COL_COMMON - CHROMA_COL_COMMON - CHROMA_COL_COMMON - CHROMA_COL_COMMON - CHROMA_COL_COMMON - CHROMA_COL_COMMON - CHROMA_COL_COMMON - 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 - }; - /* chroma colors and phases: - 0: black-through-grey (0 assumed chroma) - 1: purple (90 chroma seems correct) - 2: light blue/green (210 or 240 chroma, 210 seems slightly closer) - 3: bright blue (150 seems correct) - 4: green (270 seems correct) - 5: red (30 seems correct, does have some blue in it) - 6: orange (0 seems correct, does have some red in it) - 7: yellow/gold (330 is closest but conflicts with color C, hence 315 seems close, and must have its own delay line separate from the other phases which use a standard 12 phase scheme) - 8: blue with a hint of green in it (180 seems correct) - 9: blue-green (210 seems correct) - A: forest green (240 seems correct) - B: yellow-green (300 seems correct) - C: yellow-orange (330 is close but this conflicts with color 7, and is not quite the same; color 7 has more green in it than color C) - D: magenta (60 is closest) - E: blue-purple (more blue than color 1, 120 is closest) - F: grey-through-white (0 assumed chroma) - */ - static const double phaseangle[16] = { 0, 90, 220, 150, 270, 40, 0, 315, 180, 210, 240, 300, 330, 60, 120, 0 }; // note: these are guessed, not measured yet! - int chromaindex = color&0x0F; - int swappedcolor = ((color&0xf0)>>4)|((color&0x0f)<<4); - double finalY, finalI, finalQ, finalR, finalG, finalB; - finalY = (1/LUMAMAX) * lumatable[swappedcolor]; - finalI = (M_I * (cos((phaseangle[chromaindex]/180)*3.141592653589793)))* ((1/CHROMAMAX)*chromaintensity[swappedcolor]); - finalQ = (M_Q * (sin((phaseangle[chromaindex]/180)*3.141592653589793)))* ((1/CHROMAMAX)*chromaintensity[swappedcolor]); - if (finalY > 1) finalY = 1; // clamp luma - /* calculate the R, G and B values here, neato matrix math */ - finalR = (finalY*1)+(finalI*0.9563)+(finalQ*0.6210); - finalG = (finalY*1)+(finalI*-0.2721)+(finalQ*-0.6474); - finalB = (finalY*1)+(finalI*-1.1070)+(finalQ*1.7046); - /* scale/clamp to 0-255 range */ - if (finalR<0) finalR = 0; - if (finalR>1) finalR = 1; - if (finalG<0) finalG = 0; - if (finalG>1) finalG = 1; - if (finalB<0) finalB = 0; - if (finalB>1) finalB = 1; - // gamma correction: 1.0 to GAMMA: - finalR = pow(finalR, 1/GAMMA)*255; - finalG = pow(finalG, 1/GAMMA)*255; - finalB = pow(finalB, 1/GAMMA)*255; -composedcolor = rgb_t((int)finalR,(int)finalG,(int)finalB); -return composedcolor; -} - - -PALETTE_INIT_MEMBER(socrates_state, socrates) -{ - int i; // iterator - for (i = 0; i < 256; i++) - { - m_palette_val[i] = socrates_create_color(i); - } - palette.set_pen_colors(0, m_palette_val, ARRAY_LENGTH(m_palette_val)); -} - -void socrates_state::video_start() -{ - m_scroll_offset = 0; -} - -UINT32 socrates_state::screen_update_socrates(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect) -{ - static const UINT8 fixedcolors[8] = - { - 0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0xF7 - }; - UINT8 *videoram = m_vram_reg->base(); - int x, y, colidx, color; - int lineoffset = 0; // if display ever tries to display data at 0xfxxx, offset line displayed by 0x1000 - for (y = 0; y < 228; y++) - { - if ((((y+m_scroll_offset)*128)&0xffff) >= 0xf000) lineoffset = 0x1000; // see comment above - for (x = 0; x < 264; x++) - { - if (x < 256) - { - colidx =videoram[(((y+m_scroll_offset)*128)+(x>>1)+lineoffset)&0xffff]; - if (x&1) colidx >>=4; - colidx &= 0xF; - if (colidx > 7) color=videoram[0xF000+(colidx<<8)+((y+m_scroll_offset)&0xFF)]; - else color=fixedcolors[colidx]; - bitmap.pix16(y, x) = color; - } - else - { - colidx = videoram[(((y+m_scroll_offset)*128)+(127)+lineoffset)&0xffff]; - colidx >>=4; - colidx &= 0xF; - if (colidx > 7) color=videoram[0xF000+(colidx<<8)+((y+m_scroll_offset)&0xFF)]; - else color=fixedcolors[colidx]; - bitmap.pix16(y, x) = color; - } - } - } - return 0; -} - -/* below belongs in sound/nc.c */ - -WRITE8_MEMBER(socrates_state::socrates_sound_w) -{ - switch(offset) - { - case 0: - m_sound->reg0_w(data); - break; - case 1: - m_sound->reg1_w(data); - break; - case 2: - m_sound->reg2_w(data); - break; - case 3: - m_sound->reg3_w(data); - break; - case 4: case 5: case 6: case 7: default: - m_sound->reg4_w(data); - break; - } -} - - - -//----------------------------------------------------------------------------- -// -// IQ Unlimited -// -//----------------------------------------------------------------------------- - -int iqunlim_state::get_color(int index, int y) -{ - if (index < 8) - return m_colors[index]; - else - return m_vram_reg->u8(0xf000 + ((index & 0x0f) << 8) + ((m_scroll_offset + y + 1) & 0xff)); -} - -UINT32 iqunlim_state::screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect) -{ - UINT8 *videoram = m_vram_reg->base(); - - // bitmap layer - for (int y=0; y<224; y++) - { - if (y >= m_video_regs[0x03]) break; - for (int x=0; x<128; x++) - { - UINT8 data = videoram[(m_scroll_offset + y) * 0x80 + x]; - - for(int b=0; b<2; b++) - { - bitmap.pix16(y, x*2 + b) = get_color(data & 0x0f, y); - data >>= 4; - } - } - } - - // text layer - bool mode_80 = m_video_regs[0x02] & 0x02; // 80 chars mode - int line_len = mode_80 ? 80 : 40; - for (int y=0; y<28; y++) - { - for (int x=0; x<line_len; x++) - { - UINT8 c = videoram[0x8400 + (y - 1) * (mode_80 ? 0x80 : 0x40) + x]; - UINT8 *gfx = &videoram[0x8000 + (c & 0x7f) * 8]; - - for (int cy=0; cy<8; cy++) - { - int py = y * 8 + cy; - if ((m_video_regs[0x02] & 0x01) || py >= m_video_regs[0x03]) - { - UINT8 col0 = get_color(0x0e, py); - UINT8 col1 = get_color(0x0f, py); - UINT8 data = 0; - - if (BIT(m_video_regs[0x02],4) && m_video_regs[0x00] == x && m_video_regs[0x01] == ((y - 1) + (0x400 / (mode_80 ? 0x80 : 0x40)))) // cursor position start at 0x8000 - data = 0xff; - else if (y > 0 && y < 26) - data = gfx[cy] ^ (c & 0x80 ? 0xff : 0); - - if (x == 0) bitmap.plot_box(0, py, 8 + line_len*6 + 8, 1, col0); - for (int cx=0; cx<6; cx++) - { - int px = 8 + x*6 + cx; - bitmap.pix16(py, px) = BIT(data, 7) ? col1 : col0; - data <<= 1; - } - } - } - } - } - - return 0; -} - -READ8_MEMBER( iqunlim_state::status_r ) -{ - // ---x ---- main battery status - // --x- ---- backup battery status - - return 0x30; -} - -READ8_MEMBER( iqunlim_state::video_regs_r ) -{ - return m_video_regs[offset]; -} - -WRITE8_MEMBER( iqunlim_state::video_regs_w ) -{ - if (offset == 2 && ((m_video_regs[offset] ^ data) & 0x02)) - { - rectangle visarea = m_screen->visible_area(); - visarea.set(0, (data & 0x02 ? 496 : 256) - 1, 0, 224 - 1); - m_screen->configure(data & 0x02 ? 496 : 256 , 224, visarea, m_screen->frame_period().attoseconds()); - } - - m_video_regs[offset] = data; -} - -void iqunlim_state::machine_start() -{ - std::string region_tag; - m_cart_reg = memregion(region_tag.assign(m_cart->tag()).append(GENERIC_ROM_REGION_TAG).c_str()); - - UINT8 *bios = m_bios_reg->base(); - UINT8 *cart = m_cart_reg ? m_cart_reg->base() : m_bios_reg->base(); - UINT8 *ram = m_vram_reg->base(); - - m_bank1->configure_entries(0x00, 0x10, bios, 0x4000); - m_bank1->configure_entries(0x10, 0x10, cart , 0x4000); - m_bank1->configure_entries(0x20, 0x10, bios + 0x40000, 0x4000); - m_bank1->configure_entries(0x30, 0x10, cart + 0x40000, 0x4000); - - m_bank2->configure_entries(0x00, 0x10, bios, 0x4000); - m_bank2->configure_entries(0x10, 0x10, cart , 0x4000); - m_bank2->configure_entries(0x20, 0x10, bios + 0x40000, 0x4000); - m_bank2->configure_entries(0x30, 0x10, cart + 0x40000, 0x4000); - - m_bank3->configure_entries(0x00, 0x08, ram, 0x4000); - m_bank4->configure_entries(0x00, 0x08, ram, 0x4000); -} - -void iqunlim_state::machine_reset() -{ - socrates_state::machine_reset(); - - m_rambank = m_rombank[0] = m_rombank[1] = 0; - memset(m_colors, 0, 8); - memset(m_video_regs, 0, 4); - m_kb_queue.head = m_kb_queue.tail = 0; - - m_bank1->set_entry(0x00); - m_bank2->set_entry(0x00); - m_bank3->set_entry(0x00); - m_bank4->set_entry(0x00); -} - -READ8_MEMBER( iqunlim_state::rombank_r ) -{ - return m_rombank[offset]; -} - -WRITE8_MEMBER( iqunlim_state::rombank_w ) -{ - memory_bank *bank = offset ? m_bank1 : m_bank2; - bank->set_entry(data & 0x3f); - - m_rombank[offset] = data; -} - -READ8_MEMBER( iqunlim_state::rambank_r ) -{ - return m_rambank; -} - -WRITE8_MEMBER( iqunlim_state::rambank_w ) -{ - m_bank3->set_entry(((data>>2) & 0x0c) | ((data>>0) & 0x03)); - m_bank4->set_entry(((data>>4) & 0x0c) | ((data>>2) & 0x03)); - m_rambank = data; -} - -WRITE8_MEMBER( iqunlim_state::colors_w ) -{ - m_colors[offset] = data; -} - - -// IQ Unlimited keyboard MCU simulation - -INPUT_CHANGED_MEMBER( iqunlim_state::send_input ) -{ - UINT8 data = (UINT8)(FPTR)param; - - if (newval) - { - m_kb_queue.buffer[m_kb_queue.tail] = data; - m_kb_queue.tail = (m_kb_queue.tail + 1) % sizeof(m_kb_queue.buffer); - } -} - -WRITE8_MEMBER( iqunlim_state::keyboard_clear ) -{ - if(m_kb_queue.head != m_kb_queue.tail) - m_kb_queue.head = (m_kb_queue.head + 1) % sizeof(m_kb_queue.buffer); -} - -READ8_MEMBER( iqunlim_state::keyboard_r ) -{ - UINT8 data = 0; - - switch(offset) - { - case 0: - if(m_kb_queue.head != m_kb_queue.tail) - data = m_kb_queue.buffer[m_kb_queue.head]; - break; - case 1: - data = (m_kb_queue.head != m_kb_queue.tail ? 0x80 : 0) | (ioport("IN0")->read() & 0x7f); - if (m_screen->vblank()) data |= 0x80; // FIXME - break; - } - - return data; -} - - -/****************************************************************************** - Address Maps -******************************************************************************/ - -static ADDRESS_MAP_START(z80_mem, AS_PROGRAM, 8, socrates_state ) - ADDRESS_MAP_UNMAP_HIGH - AM_RANGE(0x0000, 0x3fff) AM_ROM /* system rom, bank 0 (fixed) */ - AM_RANGE(0x4000, 0x7fff) AM_ROMBANK("bank1") /* banked rom space; system rom is banks 0 through F, cartridge rom is banks 10 onward, usually banks 10 through 17. area past the end of the cartridge, and the whole 10-ff area when no cartridge is inserted, reads as 0xF3 */ - AM_RANGE(0x8000, 0xbfff) AM_RAMBANK("bank2") /* banked ram 'window' 0 */ - AM_RANGE(0xc000, 0xffff) AM_RAMBANK("bank3") /* banked ram 'window' 1 */ -ADDRESS_MAP_END - -static ADDRESS_MAP_START(z80_io, AS_IO, 8, socrates_state ) - ADDRESS_MAP_UNMAP_HIGH - ADDRESS_MAP_GLOBAL_MASK(0xff) - AM_RANGE(0x00, 0x00) AM_READWRITE(socrates_rom_bank_r, socrates_rom_bank_w) AM_MIRROR(0x7) /* rom bank select - RW - 8 bits */ - AM_RANGE(0x08, 0x08) AM_READWRITE(socrates_ram_bank_r, socrates_ram_bank_w) AM_MIRROR(0x7) /* ram banks select - RW - 4 low bits; Format: 0b****HHLL where LL controls whether window 0 points at ram area: 0b00: 0x0000-0x3fff; 0b01: 0x4000-0x7fff; 0b10: 0x8000-0xbfff; 0b11: 0xc000-0xffff. HH controls the same thing for window 1 */ - AM_RANGE(0x10, 0x17) AM_READWRITE(read_f3, socrates_sound_w) AM_MIRROR (0x8) /* sound section: - 0x10 - W - frequency control for channel 1 (louder channel) - 01=high pitch, ff=low; time between 1->0/0->1 transitions = (XTAL_21_4772MHz/(512+256) / (freq_reg+1)) (note that this is double the actual frequency since each full low and high squarewave pulse is two transitions) - 0x11 - W - frequency control for channel 2 (softer channel) - 01=high pitch, ff=low; same equation as above - 0x12 - W - 0b***EVVVV enable, volume control for channel 1 - 0x13 - W - 0b***EVVVV enable, volume control for channel 2 - 0x14-0x17 - 0bE??????? enable, unknown for channel 3; produces well defined dmc waves when bit 7 is set, and one or two other bits - This may be some sort of debug register for serial-dmc banging out some internal rom from the asic, maybe color data? - No writes to ram seem to change the waveforms produced, in my limited testing. - 0x80 produces about a very very quiet 1/8 duty cycle wave at 60hz or so - 0xC0 produces a DMC wave read from an unknown address at around 342hz - 0x - */ - AM_RANGE(0x20, 0x21) AM_READWRITE(read_f3, socrates_scroll_w) AM_MIRROR (0xe) /* graphics section: - 0x20 - W - lsb offset of screen display - 0x21 - W - msb offset of screen display - resulting screen line is one of 512 total offsets on 128-byte boundaries in the whole 64k ram - */ - AM_RANGE(0x30, 0x30) AM_READWRITE(read_f3, kbmcu_strobe) AM_MIRROR (0xf) /* resets the keyboard IR decoder MCU */ - AM_RANGE(0x40, 0x40) AM_READWRITE(status_and_speech, speech_command ) AM_MIRROR(0xf) /* reads status register for vblank/hblank/speech, also reads and writes speech module */ - AM_RANGE(0x50, 0x50) AM_READWRITE(socrates_keyboard_low_r, socrates_keyboard_clear) AM_MIRROR(0xE) /* Keyboard keycode low, latched on keypress, can be unlatched by writing anything here */ - AM_RANGE(0x51, 0x51) AM_READWRITE(socrates_keyboard_high_r, socrates_keyboard_clear) AM_MIRROR(0xE) /* Keyboard keycode high, latched as above, unlatches same as above */ - AM_RANGE(0x60, 0x60) AM_READWRITE(read_f3, reset_speech) AM_MIRROR(0xF) /* reset the speech module, or perhaps fire an NMI? */ - AM_RANGE(0x70, 0xFF) AM_READ(read_f3) // nothing mapped here afaik -ADDRESS_MAP_END - -static ADDRESS_MAP_START(iqunlim_mem, AS_PROGRAM, 8, iqunlim_state) - ADDRESS_MAP_UNMAP_HIGH - AM_RANGE(0x0000, 0x3fff) AM_ROMBANK("bank1") - AM_RANGE(0x4000, 0x7fff) AM_ROMBANK("bank2") - AM_RANGE(0x8000, 0xbfff) AM_RAMBANK("bank3") - AM_RANGE(0xc000, 0xffff) AM_RAMBANK("bank4") -ADDRESS_MAP_END - -static ADDRESS_MAP_START( iqunlim_io , AS_IO, 8, iqunlim_state) - ADDRESS_MAP_UNMAP_HIGH - ADDRESS_MAP_GLOBAL_MASK(0xff) - AM_RANGE(0x00, 0x01) AM_READWRITE(rombank_r, rombank_w) AM_MIRROR(0x06) - AM_RANGE(0x08, 0x08) AM_READWRITE(rambank_r, rambank_w) AM_MIRROR(0x07) - AM_RANGE(0x10, 0x17) AM_WRITE(socrates_sound_w) AM_MIRROR (0x08) - AM_RANGE(0x20, 0x21) AM_WRITE(socrates_scroll_w) AM_MIRROR (0x0e) - AM_RANGE(0x50, 0x51) AM_READWRITE(keyboard_r, keyboard_clear) - AM_RANGE(0x70, 0x73) AM_READWRITE(video_regs_r, video_regs_w) AM_MIRROR (0x0c) - AM_RANGE(0x80, 0x81) AM_WRITENOP // LCD - AM_RANGE(0xb1, 0xb1) AM_WRITENOP - AM_RANGE(0xa0, 0xa0) AM_READ(status_r) AM_MIRROR(0x0f) - AM_RANGE(0xe0, 0xe7) AM_WRITE(colors_w) AM_MIRROR(0x08) -ADDRESS_MAP_END - - - -/****************************************************************************** - Input Ports -******************************************************************************/ - -/* socrates keyboard codes: -keycode low -| keycode high -| | key name -00 01 No key pressed -// pads on the sides of the kb; this acts like a giant bitfield, both dpads/buttons can send data at once -00 81 left dpad right -00 82 left dpad up -00 84 left dpad left -00 88 left dpad down -01 80 right dpad down -02 80 right dpad left -04 80 right dpad up -08 80 right dpad right -10 80 left red button -20 80 right red button -// top row (right to left) -44 82 ENTER -44 83 MENU -44 84 ANSWER -44 85 HELP -44 86 ERASE -44 87 divide_sign -44 88 multiply_sign -44 89 minus_sign -44 80 plus_sign -//second row (right to left) -43 81 0 -43 82 9 -43 83 8 -43 84 7 -43 85 6 -43 86 5 -43 87 4 -43 88 3 -43 89 2 -43 80 1 -// third row (right to left) -42 82 I/La -42 83 H/So -42 84 G/Fa -42 85 F/Mi -42 86 E/Re -42 87 D/Do -42 88 C/Ti. -42 89 B/La. -42 80 A/So. -42 81 hyphen/period -// fourth row (right to left) -41 81 S -41 82 R -41 83 Q/NEW -41 84 P/PLAY -41 85 O/PAUSE -41 86 N/Fa` -41 87 M/Mi` -41 88 L/Re` -41 89 K/Do` -41 80 J/Ti -// fifth row (right to left) -40 82 SPACE -40 83 Z -40 84 Y -40 85 X -40 86 W -40 87 V -40 88 U -40 89 T -50 80 SHIFT -// socrates mouse pad (separate from keyboard) -8x 8y mouse movement -x: down = 1 (small) through 7 (large), up = 8 (small) through F (large) -y: right = 1 (small) through 7 (large), left = 8 (small) through F (large) -90 80 right click -A0 80 left click -B0 80 both buttons click -90 81 right click (mouse movement in queue, will be in regs after next latch clear) -A0 81 left click (mouse movement in queue, will be in regs after next latch clear) -B0 81 both buttons click (mouse movement in queue, will be in regs after next latch clear) -// socrates touch pad -// unknown yet, but probably uses the 60/70/c0/d0/e0/f0 low reg vals -*/ -static INPUT_PORTS_START( socrates ) - - PORT_START("keyboard_jp") // joypad keys - PORT_BIT(0x00000001, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_6_PAD) PORT_CHAR(UCHAR_MAMEKEY(6_PAD)) PORT_NAME("Left D-pad Right") // 00 81 - PORT_BIT(0x00000002, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_8_PAD) PORT_CHAR(UCHAR_MAMEKEY(8_PAD)) PORT_NAME("Left D-pad Up") // 00 82 - PORT_BIT(0x00000004, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_4_PAD) PORT_CHAR(UCHAR_MAMEKEY(4_PAD)) PORT_NAME("Left D-pad Left") // 00 84 - PORT_BIT(0x00000008, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_2_PAD) PORT_CHAR(UCHAR_MAMEKEY(2_PAD)) PORT_NAME("Left D-pad Down") // 00 88 - PORT_BIT(0x00000010, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_DOWN) PORT_CHAR(UCHAR_MAMEKEY(DOWN)) PORT_NAME("Right D-pad Down") // 01 80 - PORT_BIT(0x00000020, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_LEFT) PORT_CHAR(UCHAR_MAMEKEY(LEFT)) PORT_NAME("Right D-pad Left") // 02 80 - PORT_BIT(0x00000040, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_UP) PORT_CHAR(UCHAR_MAMEKEY(UP)) PORT_NAME("Right D-pad Up") // 04 80 - PORT_BIT(0x00000080, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_RIGHT) PORT_CHAR(UCHAR_MAMEKEY(RIGHT)) PORT_NAME("Right D-pad Right") // 08 80 - PORT_BIT(0x00000100, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_ENTER_PAD) PORT_CHAR(UCHAR_MAMEKEY(ENTER_PAD)) PORT_NAME("Left D-pad Button") // 10 80 - PORT_BIT(0x00000200, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_RALT) PORT_CHAR(UCHAR_MAMEKEY(RALT)) PORT_NAME("Right D-pad Button") // 20 80 - PORT_BIT(0xfffffc00, IP_ACTIVE_HIGH, IPT_UNUSED) - /* alt w/left and right keypad keys swapped - PORT_BIT(0x00000001, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_RIGHT) PORT_CHAR(UCHAR_MAMEKEY(RIGHT)) PORT_NAME("Left D-pad Right") // 00 81 - PORT_BIT(0x00000002, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_UP) PORT_CHAR(UCHAR_MAMEKEY(UP)) PORT_NAME("Left D-pad Up") // 00 82 - PORT_BIT(0x00000004, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_LEFT) PORT_CHAR(UCHAR_MAMEKEY(LEFT)) PORT_NAME("Left D-pad Left") // 00 84 - PORT_BIT(0x00000008, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_DOWN) PORT_CHAR(UCHAR_MAMEKEY(DOWN)) PORT_NAME("Left D-pad Down") // 00 88 - PORT_BIT(0x00000010, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_2_PAD) PORT_CHAR(UCHAR_MAMEKEY(2_PAD)) PORT_NAME("Right D-pad Down") // 01 80 - PORT_BIT(0x00000020, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_4_PAD) PORT_CHAR(UCHAR_MAMEKEY(4_PAD)) PORT_NAME("Right D-pad Left") // 02 80 - PORT_BIT(0x00000040, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_8_PAD) PORT_CHAR(UCHAR_MAMEKEY(8_PAD)) PORT_NAME("Right D-pad Up") // 04 80 - PORT_BIT(0x00000080, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_6_PAD) PORT_CHAR(UCHAR_MAMEKEY(6_PAD)) PORT_NAME("Right D-pad Right") // 08 80 - PORT_BIT(0x00000100, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_RALT) PORT_CHAR(UCHAR_MAMEKEY(RALT)) PORT_NAME("Left D-pad Button") // 10 80 - PORT_BIT(0x00000200, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_ENTER_PAD) PORT_CHAR(UCHAR_MAMEKEY(ENTER_PAD)) PORT_NAME("Right D-pad Button") // 20 80 - PORT_BIT(0xfffffc00, IP_ACTIVE_HIGH, IPT_UNUSED) - */ - - PORT_START("keyboard_50") // lowest 'row' (technically the shift key is on the 5th row but it has its own keycode) - PORT_BIT(0x00000001, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_LSHIFT) PORT_CODE(KEYCODE_RSHIFT) PORT_CHAR(UCHAR_SHIFT_1) PORT_NAME("SHIFT") // 5x xx - PORT_BIT(0xfffffffe, IP_ACTIVE_HIGH, IPT_UNUSED) - - PORT_START("keyboard_40") // 5th row - PORT_BIT(0x00000003, IP_ACTIVE_HIGH, IPT_UNUSED) // 40 80 and 40 81 - PORT_BIT(0x00000004, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_SPACE) PORT_CHAR(' ') PORT_NAME("SPACE") // 40 82 - PORT_BIT(0x00000008, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_Z) PORT_CHAR('Z') PORT_NAME("Z") // 40 83 - PORT_BIT(0x00000010, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_Y) PORT_CHAR('Y') PORT_NAME("Y") // 40 84 - PORT_BIT(0x00000020, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_X) PORT_CHAR('X') PORT_NAME("X") // 40 85 - PORT_BIT(0x00000040, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_W) PORT_CHAR('W') PORT_NAME("W") // 40 86 - PORT_BIT(0x00000080, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_V) PORT_CHAR('V') PORT_NAME("V") // 40 87 - PORT_BIT(0x00000100, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_U) PORT_CHAR('U') PORT_NAME("U") // 40 88 - PORT_BIT(0x00000200, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_T) PORT_CHAR('T') PORT_NAME("T") // 40 89 - PORT_BIT(0xfffffc00, IP_ACTIVE_HIGH, IPT_UNUSED) - - PORT_START("keyboard_41") // 4th row - PORT_BIT(0x00000001, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_J) PORT_CHAR('J') PORT_NAME("J/Ti") // 41 80 - PORT_BIT(0x00000002, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_S) PORT_CHAR('S') PORT_NAME("S") // 41 81 - PORT_BIT(0x00000004, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_R) PORT_CHAR('R') PORT_NAME("R") // 41 82 - PORT_BIT(0x00000008, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_Q) PORT_CHAR('Q') PORT_NAME("Q/NEW") // 41 83 - PORT_BIT(0x00000010, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_P) PORT_CHAR('P') PORT_NAME("P/PLAY") // 41 84 - PORT_BIT(0x00000020, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_O) PORT_CHAR('O') PORT_NAME("O/PAUSE") // 41 85 - PORT_BIT(0x00000040, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_N) PORT_CHAR('N') PORT_NAME("N/Fa'") // 41 86 - PORT_BIT(0x00000080, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_M) PORT_CHAR('M') PORT_NAME("M/Mi'") // 41 87 - PORT_BIT(0x00000100, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_L) PORT_CHAR('L') PORT_NAME("L/Re'") // 41 88 - PORT_BIT(0x00000200, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_K) PORT_CHAR('K') PORT_NAME("K/Do'") // 41 89 - PORT_BIT(0xfffffc00, IP_ACTIVE_HIGH, IPT_UNUSED) - - PORT_START("keyboard_42") // 3rd row - PORT_BIT(0x00000001, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_A) PORT_CHAR('A') PORT_NAME("A/So.") // 42 80 - PORT_BIT(0x00000002, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_STOP) PORT_CHAR('.') PORT_CHAR('-') PORT_NAME("-/.") // 42 81 - PORT_BIT(0x00000004, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_I) PORT_CHAR('I') PORT_NAME("I/La") // 42 82 - PORT_BIT(0x00000008, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_H) PORT_CHAR('H') PORT_NAME("H/So") // 42 83 - PORT_BIT(0x00000010, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_G) PORT_CHAR('G') PORT_NAME("G/Fa") // 42 84 - PORT_BIT(0x00000020, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_F) PORT_CHAR('F') PORT_NAME("F/Mi") // 42 85 - PORT_BIT(0x00000040, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_E) PORT_CHAR('E') PORT_NAME("E/Re") // 42 86 - PORT_BIT(0x00000080, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_D) PORT_CHAR('D') PORT_NAME("D/Do") // 42 87 - PORT_BIT(0x00000100, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_C) PORT_CHAR('C') PORT_NAME("C/Ti.") // 42 88 - PORT_BIT(0x00000200, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_B) PORT_CHAR('B') PORT_NAME("B/La.") // 42 89 - PORT_BIT(0xfffffc00, IP_ACTIVE_HIGH, IPT_UNUSED) - - PORT_START("keyboard_43") // 2nd row - PORT_BIT(0x00000001, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_1) PORT_CHAR('1') PORT_NAME("1") // 43 80 - PORT_BIT(0x00000002, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_0) PORT_CHAR('0') PORT_NAME("0") // 43 81 - PORT_BIT(0x00000004, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_9) PORT_CHAR('9') PORT_NAME("9") // 43 82 - PORT_BIT(0x00000008, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_8) PORT_CHAR('8') PORT_NAME("8") // 43 83 - PORT_BIT(0x00000010, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_7) PORT_CHAR('7') PORT_NAME("7") // 43 84 - PORT_BIT(0x00000020, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_6) PORT_CHAR('6') PORT_NAME("6") // 43 85 - PORT_BIT(0x00000040, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_5) PORT_CHAR('5') PORT_NAME("5") // 43 86 - PORT_BIT(0x00000080, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_4) PORT_CHAR('4') PORT_NAME("4") // 43 87 - PORT_BIT(0x00000100, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_3) PORT_CHAR('3') PORT_NAME("3") // 43 88 - PORT_BIT(0x00000200, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_2) PORT_CHAR('2') PORT_NAME("2") // 43 89 - PORT_BIT(0xfffffc00, IP_ACTIVE_HIGH, IPT_UNUSED) - - PORT_START("keyboard_44") // 1st row - PORT_BIT(0x00000001, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_MINUS) PORT_CHAR('+') PORT_NAME("+") // 44 80 - PORT_BIT(0x00000002, IP_ACTIVE_HIGH, IPT_UNUSED) // 44 81 - PORT_BIT(0x00000004, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_ENTER) PORT_CHAR(13) PORT_NAME("ENTER") // 44 82 - PORT_BIT(0x00000008, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_HOME) PORT_CHAR(UCHAR_MAMEKEY(HOME)) PORT_NAME("MENU") // 44 83 - PORT_BIT(0x00000010, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_PGUP) PORT_CHAR(UCHAR_MAMEKEY(PGUP)) PORT_NAME("ANSWER") // 44 84 - PORT_BIT(0x00000020, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_PGDN) PORT_CHAR(UCHAR_MAMEKEY(PGDN)) PORT_NAME("HELP") // 44 85 - PORT_BIT(0x00000040, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_BACKSPACE) PORT_CHAR(8) PORT_NAME("ERASE") // 44 86 - PORT_BIT(0x00000080, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_SLASH) PORT_CHAR('/') PORT_NAME("/") // 44 87 - PORT_BIT(0x00000100, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_ASTERISK) PORT_CHAR('*') PORT_NAME("*") // 44 88 - PORT_BIT(0x00000200, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_MINUS) PORT_CHAR('-') PORT_NAME("-") // 44 89 - PORT_BIT(0xfffffc00, IP_ACTIVE_HIGH, IPT_UNUSED) - - // mouse goes here -INPUT_PORTS_END - - -static INPUT_PORTS_START( iqunlimz ) - PORT_START( "IN0" ) - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_LSHIFT ) PORT_CODE( KEYCODE_RSHIFT ) - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_LCONTROL ) PORT_CODE( KEYCODE_RCONTROL ) - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_LALT ) PORT_CODE( KEYCODE_RALT ) - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_CAPSLOCK ) - PORT_BIT( 0xf0, IP_ACTIVE_HIGH, IPT_UNUSED ) - - PORT_START( "IN1" ) - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_N ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x10 ) - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_M ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x11 ) - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_COMMA ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x12 ) - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_B ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x13 ) - PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_C ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x14 ) - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_Z ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x15 ) - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_V ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x16 ) - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_X ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x17 ) - - PORT_START( "IN2" ) - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_UNUSED ) // PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x20 ) - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_2_PAD ) PORT_CODE( KEYCODE_DOWN ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x21 ) - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_5_PAD ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x22 ) - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_DEL_PAD ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x23 ) - PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_SLASH_PAD ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x24 ) - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_8_PAD ) PORT_CODE( KEYCODE_UP ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x25 ) - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_ASTERISK ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x26 ) - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_7_PAD ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x27 ) - - PORT_START( "IN3" ) - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_UNUSED ) // PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x30 ) - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_UNUSED ) // PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x31 ) - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_UNUSED ) // PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x32 ) - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_UNUSED ) // PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x33 ) - PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_F1 ) PORT_NAME( "Help" ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x34 ) - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_9 ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x35 ) - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_BACKSPACE ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x36 ) - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_0 ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x37 ) - - PORT_START( "IN4" ) - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_H ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x40 ) - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_J ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x41 ) - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_K ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x42 ) - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_G ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x43 ) - PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_D ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x44 ) - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_A ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x45 ) - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_F ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x46 ) - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_S ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x47 ) - - PORT_START( "IN5" ) - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_UNUSED ) // PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x50 ) - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_UNUSED ) // PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x51 ) - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_UNUSED ) // PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x52 ) - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_UNUSED ) // PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x53 ) - PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_EQUALS ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x54 ) - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_O ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x55 ) - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_NUMLOCK ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x56 ) - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_P ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x57 ) - - PORT_START( "IN6" ) - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_Y ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x60 ) - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_U ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x61 ) - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_I ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x62 ) - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_T ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x63 ) - PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_E ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x64 ) - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_Q ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x65 ) - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_R ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x66 ) - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_W ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x67 ) - - PORT_START( "IN7" ) - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_MINUS ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x70 ) - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_SLASH ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x71 ) - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_UNUSED ) // PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x72 ) - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_STOP ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x73 ) - PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_QUOTE ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x74 ) - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_L ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x75 ) - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_ENTER ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x76 ) - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_COLON ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x77 ) - - PORT_START( "IN8" ) - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_6 ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x80 ) - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_7 ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x81 ) - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_8 ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x82 ) - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_5 ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x83 ) - PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_3 ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x84 ) - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_1 ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x85 ) - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_4 ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x86 ) - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_2 ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x87 ) - - PORT_START( "IN9" ) - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_4_PAD ) PORT_CODE( KEYCODE_LEFT ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x90 ) - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_3_PAD ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x91 ) - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_6_PAD ) PORT_CODE( KEYCODE_RIGHT ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x92 ) - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_PLUS_PAD ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x93 ) - PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_0_PAD ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x94 ) - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_9_PAD ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x95 ) - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_MINUS_PAD ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x96 ) - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_1_PAD ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0x97 ) - - PORT_START( "INA" ) - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_UNUSED ) // PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0xa0 ) - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_UNUSED ) // PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0xa1 ) - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_UNUSED ) // PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0xa2 ) - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_UNUSED ) // PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0xa3 ) - PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_F2 ) PORT_NAME("Answer") PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0xa4 ) - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_ESC ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0xa5 ) - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_SPACE ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0xa6 ) - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE( KEYCODE_TAB ) PORT_CHANGED_MEMBER( DEVICE_SELF, iqunlim_state, send_input, 0xa7 ) -INPUT_PORTS_END - -/****************************************************************************** - Machine Drivers -******************************************************************************/ -TIMER_CALLBACK_MEMBER(socrates_state::clear_irq_cb) -{ - m_maincpu->set_input_line(0, CLEAR_LINE); - m_vblankstate = 0; -} - -INTERRUPT_GEN_MEMBER(socrates_state::assert_irq) -{ - device.execute().set_input_line(0, ASSERT_LINE); - timer_set(downcast<cpu_device *>(&device)->cycles_to_attotime(44), TIMER_CLEAR_IRQ); -// 44 is a complete and total guess, need to properly measure how many clocks/microseconds the int line is high for. - m_vblankstate = 1; - m_kbmcu_rscount = 0; // clear the mcu poke count -} - -static MACHINE_CONFIG_START( socrates, socrates_state ) - /* basic machine hardware */ - MCFG_CPU_ADD("maincpu", Z80, XTAL_21_4772MHz/6) /* Toshiba TMPZ84C00AP @ 3.579545 MHz, verified, xtal is divided by 6 */ - MCFG_CPU_PROGRAM_MAP(z80_mem) - MCFG_CPU_IO_MAP(z80_io) - MCFG_QUANTUM_TIME(attotime::from_hz(60)) - MCFG_CPU_VBLANK_INT_DRIVER("screen", socrates_state, assert_irq) - //MCFG_MACHINE_START_OVERRIDE(socrates_state,socrates) - - /* video hardware */ - MCFG_SCREEN_ADD("screen", RASTER) - MCFG_SCREEN_REFRESH_RATE(60) - MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(2500)) /* not accurate */ - MCFG_SCREEN_SIZE(264, 228) // technically the screen size is 256x228 but super painter abuses what I suspect is a hardware bug to display repeated pixels of the very last pixel beyond this horizontal space, well into hblank - MCFG_SCREEN_VISIBLE_AREA(0, 263, 0, 219) // the last few rows are usually cut off by the screen bottom but are indeed displayed if you mess with v-hold - MCFG_SCREEN_UPDATE_DRIVER(socrates_state, screen_update_socrates) - MCFG_SCREEN_PALETTE("palette") - - MCFG_PALETTE_ADD("palette", 256) - MCFG_PALETTE_INIT_OWNER(socrates_state, socrates) - - /* sound hardware */ - MCFG_SPEAKER_STANDARD_MONO("mono") - MCFG_SOUND_ADD("soc_snd", SOCRATES_SOUND, XTAL_21_4772MHz/(512+256)) // this is correct, as strange as it sounds. - MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) - - MCFG_GENERIC_CARTSLOT_ADD("cartslot", generic_plain_slot, "socrates_cart") - - /* Software lists */ - MCFG_SOFTWARE_LIST_ADD("cart_list", "socrates") -MACHINE_CONFIG_END - -static MACHINE_CONFIG_START( socrates_pal, socrates_state ) - /* basic machine hardware */ - MCFG_CPU_ADD("maincpu", Z80, XTAL_26_601712MHz/6) /* Toshiba TMPZ84C00AP @ 4.433 MHz? /6 or 7 or 8? TODO: verify divider!*/ - MCFG_CPU_PROGRAM_MAP(z80_mem) - MCFG_CPU_IO_MAP(z80_io) - MCFG_QUANTUM_TIME(attotime::from_hz(50)) - MCFG_CPU_VBLANK_INT_DRIVER("screen", socrates_state, assert_irq) - //MCFG_MACHINE_START_OVERRIDE(socrates_state,socrates) - - /* video hardware */ - MCFG_SCREEN_ADD("screen", RASTER) - MCFG_SCREEN_REFRESH_RATE(50) - MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(2500)) /* not accurate */ - MCFG_SCREEN_SIZE(264, 238) // technically the screen size is 256x228 but super painter abuses what I suspect is a hardware bug to display repeated pixels of the very last pixel beyond this horizontal space, well into hblank - MCFG_SCREEN_VISIBLE_AREA(0, 263, 0, 229) // the last few rows are usually cut off by the screen bottom but are indeed displayed if you mess with v-hold - MCFG_SCREEN_UPDATE_DRIVER(socrates_state, screen_update_socrates) - MCFG_SCREEN_PALETTE("palette") - - MCFG_PALETTE_ADD("palette", 256) - MCFG_PALETTE_INIT_OWNER(socrates_state, socrates) - - /* sound hardware */ - MCFG_SPEAKER_STANDARD_MONO("mono") - MCFG_SOUND_ADD("soc_snd", SOCRATES_SOUND, XTAL_26_601712MHz/(512+256)) // TODO: verify divider for pal mode - MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) - - MCFG_GENERIC_CARTSLOT_ADD("cartslot", generic_plain_slot, "socrates_cart") - - /* Software lists */ - MCFG_SOFTWARE_LIST_ADD("cart_list", "socrates") -MACHINE_CONFIG_END - -/* This doesn't work for some reason. -static MACHINE_CONFIG_DERIVED( socrates_pal, socrates ) - MCFG_CPU_REPLACE("maincpu", Z80, XTAL_26_601712MHz/8) - MCFG_SCREEN_REPLACE("screen", RASTER) - MCFG_SCREEN_REFRESH_RATE(50) - MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(2500)) - MCFG_SCREEN_SIZE(264, 256) // technically the screen size is 256x228 but super painter abuses what I suspect is a hardware bug to display repeated pixels of the very last pixel beyond this horizontal space, well into hblank - MCFG_SCREEN_VISIBLE_AREA(0, 263, 0, 256) // the last few rows are usually cut off by the screen bottom but are indeed displayed if you mess with v-hold - MCFG_SCREEN_UPDATE_DRIVER(socrates_state, screen_update_socrates) - MCFG_SOUND_REPLACE("soc_snd", SOCRATES_SOUND, XTAL_26_601712MHz/(512+256)) // this is correct, as strange as it sounds. - MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) -MACHINE_CONFIG_END -*/ - -static MACHINE_CONFIG_START( iqunlimz, iqunlim_state ) - /* basic machine hardware */ - MCFG_CPU_ADD("maincpu", Z80, XTAL_4MHz) /* not accurate */ - MCFG_CPU_PROGRAM_MAP(iqunlim_mem) - MCFG_CPU_IO_MAP(iqunlim_io) - MCFG_CPU_VBLANK_INT_DRIVER("screen", iqunlim_state, assert_irq) - - /* video hardware */ - MCFG_SCREEN_ADD("screen", RASTER) - MCFG_SCREEN_REFRESH_RATE(60) - MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(2500)) /* not accurate */ - MCFG_SCREEN_UPDATE_DRIVER(iqunlim_state, screen_update) - MCFG_SCREEN_SIZE(256, 224) - MCFG_SCREEN_VISIBLE_AREA(0, 256-1, 0, 224-1) - MCFG_SCREEN_PALETTE("palette") - - MCFG_PALETTE_ADD("palette", 256) - MCFG_PALETTE_INIT_OWNER(socrates_state, socrates) - - /* sound hardware */ - MCFG_SPEAKER_STANDARD_MONO("mono") - MCFG_SOUND_ADD("soc_snd", SOCRATES_SOUND, XTAL_21_4772MHz/(512+256)) - MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) - - MCFG_GENERIC_CARTSLOT_ADD("cartslot", generic_plain_slot, NULL) -MACHINE_CONFIG_END - -/****************************************************************************** - ROM Definitions -******************************************************************************/ - -ROM_START(socrates) - ROM_REGION(0x400000, "maincpu", ROMREGION_ERASEVAL(0xF3)) /* can technically address 4mb of rom via bankswitching; open bus area reads as 0xF3 */ - /* Socrates US NTSC */ - /* all cart roms are 28 pin 23c1000/tc531000 128Kx8 roms */ - /* cart port pinout: - (looking into end of disk-shaped cartridge with label/top side pointing to the right) - A15 -> 19 18 -- VCC - A14 -> 20 17 <- A16 - A13 -> 21 16 <- A12 - A8 -> 22 15 <- A7 - A9 -> 23 14 <- A6 - A11 -> 24 13 <- A5 - A3 -> 25 12 <- A4 - A2 -> 26 11 <- A10 - D7 <- 27 10 <- A1 - D6 <- 28 9 <- A0 - D5 <- 29 8 -> D0 - D4 <- 30 7 -> D1 - D3 <- 31 6 -> D2 - ? ?? 32 5 ?? ? - A17 -> 33 4 ?? ? - ? ?? 34 3 ?? ? - /CE -> 35 2 ?? ? - GND -- 36 1 -- GND - Note that a17 goes to what would be pin 2 on a rom chip if a 32 pin rom were installed, which is not the case. (pins 1, 31 and 32 would be tied to vcc) - It is likely that at least one of the 6 unknown lines is R/W from the z80, and another may be phi1/m1/clock etc to allow for ram to live in cart space - - Cartridge check procedure by socrates is, after screen init and check for speech synth, - bankswitch to bank 0x10 (i.e. first 0x4000 of cart appears at 4000-7fff in z80 space), - do following tests; if any tests fail, jump to 0x0015 (socrates main menu) - * read 0x7ff0(0x3ff0 in cart rom) and compare to 0xAA - * read 0x7ff1(0x3ff1 in cart rom) and compare to 0x55 - * read 0x7ff2(0x3ff2 in cart rom) and compare to 0xE7 - * read 0x7ff3(0x3ff3 in cart rom) and compare to 0x18 - if all tests passed, jump to 0x4000 (0x0000 in cart rom) - */ - ROM_LOAD("27-00817-000-000.u1", 0x00000, 0x40000, CRC(80f5aa20) SHA1(4fd1ff7f78b5dd2582d5de6f30633e4e4f34ca8f)) // Label: "(Vtech) 27-00817-000-000 // (C)1987 VIDEO TECHNOLOGY // 8811 D" - - ROM_REGION(0x10000, "vram", ROMREGION_ERASEFF) /* fill with ff, driver_init changes this to the 'correct' startup pattern */ - - ROM_REGION(0x800, "kbmcu", ROMREGION_ERASEFF) - ROM_LOAD("tmp42c40p1844.u2", 0x000, 0x200, NO_DUMP) /* keyboard IR decoder MCU */ - - /* english speech cart has a green QC sticker */ - ROM_REGION(0x2000, "speechint", ROMREGION_ERASE00) // speech data inside of the speech chip; fill with 00, if no speech cart is present socrates will see this - ROM_LOAD_OPTIONAL("speech_eng_internal.bin", 0x0000, 0x2000, CRC(edc1fb3f) SHA1(78b4631fc3b1c038e14911047f9edd6c4e8bae58)) // 8k on the speech chip itself - - ROM_REGION(0x10000, "speechext", ROMREGION_ERASE00) // speech serial modules outside of the speech chip but still on speech cart - ROM_LOAD_OPTIONAL("speech_eng_vsm1.bin", 0x0000, 0x4000, CRC(888e3ddd) SHA1(33af6a21ba6d826071c9d48557b1c9012752570b)) // 16k in serial rom - ROM_LOAD_OPTIONAL("speech_eng_vsm2.bin", 0x4000, 0x4000, CRC(de4ac89d) SHA1(3dfa853b02df756a9b72def94a39310992ee11c7)) // 16k in serial rom - ROM_LOAD_OPTIONAL("speech_eng_vsm3.bin", 0x8000, 0x4000, CRC(972384aa) SHA1(ffcb1d633ca6bffc7f481ec505da447e5b847f16)) // 16k in serial rom - ROM_FILL(0xC000, 0x4000, 0xff) // last vsm isn't present, FF fill -ROM_END - -ROM_START(socratfc) - ROM_REGION(0x80000, "maincpu", ROMREGION_ERASEVAL(0xF3)) - /* Socrates SAITOUT (French Canadian) NTSC */ - ROM_LOAD("27-00884-001-000.u1", 0x00000, 0x40000, CRC(042d9d21) SHA1(9ffc67b2721683b2536727d0592798fbc4d061cb)) // Label: "(Vtech) 27-00884-001-000 // (C)1988 VIDEO TECHNOLOGY // 8911 D" - - ROM_REGION(0x10000, "vram", ROMREGION_ERASEFF) /* fill with ff, driver_init changes this to the 'correct' startup pattern */ - - ROM_REGION(0x800, "kbmcu", ROMREGION_ERASEFF) - ROM_LOAD("tmp42c40p1844.u2", 0x000, 0x200, NO_DUMP) /* keyboard IR decoder MCU */ - - ROM_REGION(0x2000, "speechint", ROMREGION_ERASE00) // speech data inside of the speech chip; fill with 00, if no speech cart is present socrates will see this - ROM_LOAD_OPTIONAL("speech_fra_internal.bin", 0x0000, 0x2000, NO_DUMP) - - ROM_REGION(0x10000, "speechext", ROMREGION_ERASE00) // speech serial modules outside of the speech chip but still on speech cart - ROM_LOAD_OPTIONAL("speech_fra_vsm1.bin", 0x0000, 0x4000, NO_DUMP) // 16k in serial rom - ROM_LOAD_OPTIONAL("speech_fra_vsm2.bin", 0x4000, 0x4000, NO_DUMP) // 16k in serial rom - ROM_LOAD_OPTIONAL("speech_fra_vsm3.bin", 0x8000, 0x4000, NO_DUMP) // 16k in serial rom - ROM_FILL(0xC000, 0x4000, 0xff) // last vsm isn't present, FF fill -ROM_END - -ROM_START(profweis) - ROM_REGION(0x80000, "maincpu", ROMREGION_ERASEVAL(0xF3)) - /* Yeno Professor Weiss-Alles (German PAL) */ - ROM_SYSTEM_BIOS(0, "89", "1989") - ROMX_LOAD("lh53216d.u1", 0x00000, 0x40000, CRC(6e801762) SHA1(b80574a3abacf18133dacb9d3a8d9e2916730423), ROM_BIOS(1)) // Label: "(Vtech) LH53216D // (C)1989 VIDEO TECHNOLOGY // 9119 D" - ROM_SYSTEM_BIOS(1, "88", "1988") - ROMX_LOAD("27-00885-001-000.u1", 0x00000, 0x40000, CRC(fcaf8850) SHA1(a99011ee6a1ef63461c00d062278951252f117db), ROM_BIOS(2)) // Label: "(Vtech) 27-00884-001-000 // (C)1988 VIDEO TECHNOLOGY // 8911 D" - - ROM_REGION(0x10000, "vram", ROMREGION_ERASEFF) /* fill with ff, driver_init changes this to the 'correct' startup pattern */ - - ROM_REGION(0x800, "kbmcu", ROMREGION_ERASEFF) - ROM_LOAD("tmp42c40p1844.u2", 0x000, 0x200, NO_DUMP) /* keyboard IR decoder MCU */ - - ROM_REGION(0x2000, "speechint", ROMREGION_ERASE00) // speech data inside of the speech chip; fill with 00, if no speech cart is present socrates will see this - ROM_LOAD_OPTIONAL("speech_ger_internal.bin", 0x0000, 0x2000, CRC(5ff0fdc6) SHA1(8ef128561a846762a20e3fe9513a4a22aaadc7f6)) - - ROM_REGION(0x10000, "speechext", ROMREGION_ERASE00) // speech serial modules outside of the speech chip but still on speech cart - ROM_LOAD_OPTIONAL("speech_ger_vsm1.bin", 0x0000, 0x4000, CRC(a979a00b) SHA1(0290844619dbdf336757003aaab3ffd0a75b7ee9)) // 16k in serial rom - ROM_FILL(0x4000, 0xc000, 0xff) // last 3 vsms aren't present, FF fill -ROM_END - -ROM_START( iqunlimz ) - ROM_REGION( 0x80000, "maincpu", 0 ) - ROM_LOAD( "vtech.bin", 0x000000, 0x080000, CRC(f100c8a7) SHA1(6ad2a8accae2dd5c5c46ae953eef33cdd1ea3cf9) ) - - ROM_REGION( 0x20000, "vram", ROMREGION_ERASE ) -ROM_END - - -/****************************************************************************** - Drivers -******************************************************************************/ - -/* YEAR NAME PARENT COMPAT MACHINE INPUT INIT COMPANY FULLNAME FLAGS */ -COMP( 1988, socrates, 0, 0, socrates, socrates, socrates_state, socrates, "Video Technology", "Socrates Educational Video System", MACHINE_NOT_WORKING | MACHINE_IMPERFECT_SOUND ) // English NTSC, no title copyright -COMP( 1988, socratfc, socrates, 0, socrates, socrates, socrates_state, socrates, "Video Technology", "Socrates SAITOUT", MACHINE_NOT_WORKING | MACHINE_IMPERFECT_SOUND ) // French Canandian NTSC, 1988 title copyright -COMP( 1988, profweis, socrates, 0, socrates_pal, socrates, socrates_state, socrates, "Video Technology/Yeno", "Professor Weiss-Alles", MACHINE_NOT_WORKING | MACHINE_IMPERFECT_SOUND ) // German PAL, 1988 title copyright -// Yeno Professeur Saitout goes here (french SECAM) -// ? goes here (spanish PAL) - -COMP( 1991, iqunlimz, 0, 0, iqunlimz, iqunlimz, driver_device, 0, "Video Technology", "IQ Unlimited (Z80)", MACHINE_NOT_WORKING | MACHINE_NO_SOUND) |