diff options
Diffstat (limited to 'src/mame/drivers/psion5.cpp')
-rw-r--r-- | src/mame/drivers/psion5.cpp | 972 |
1 files changed, 0 insertions, 972 deletions
diff --git a/src/mame/drivers/psion5.cpp b/src/mame/drivers/psion5.cpp deleted file mode 100644 index 60e4caab063..00000000000 --- a/src/mame/drivers/psion5.cpp +++ /dev/null @@ -1,972 +0,0 @@ -// license:BSD-3-Clause -// copyright-holders:Ryan Holtz, Ash Wolf -/*************************************************************************** - - Psion 5mx (EPOC R5) series - - Driver by Ryan Holtz, ported from work by Ash Wolf - - TODO: - - Audio - - UART support - - Probably more - - More info: - https://github.com/Treeki/WindEmu - -****************************************************************************/ - -#include "includes/psion5.h" - -#define LOG_UNKNOWNS (1 << 0) -#define LOG_IRQ (1 << 1) -#define LOG_DISPLAY (1 << 2) -#define LOG_DRAM_READS (1 << 3) -#define LOG_LCD_READS (1 << 4) -#define LOG_POWER_READS (1 << 5) -#define LOG_EOI_READS (1 << 6) -#define LOG_INT_READS (1 << 7) -#define LOG_CODEC_READS (1 << 8) -#define LOG_SSP_READS (1 << 9) -#define LOG_TIMER_READS (1 << 10) -#define LOG_BUZZER_READS (1 << 11) -#define LOG_RTC_READS (1 << 12) -#define LOG_GPIO_READS (1 << 13) -#define LOG_KBD_READS (1 << 14) -#define LOG_DRAM_WRITES (1 << 15) -#define LOG_LCD_WRITES (1 << 16) -#define LOG_POWER_WRITES (1 << 17) -#define LOG_EOI_WRITES (1 << 18) -#define LOG_INT_WRITES (1 << 19) -#define LOG_CODEC_WRITES (1 << 20) -#define LOG_SSP_WRITES (1 << 21) -#define LOG_TIMER_WRITES (1 << 22) -#define LOG_BUZZER_WRITES (1 << 23) -#define LOG_RTC_WRITES (1 << 24) -#define LOG_GPIO_WRITES (1 << 25) -#define LOG_PIN_WRITES (1 << 26) -#define LOG_KBD_WRITES (1 << 27) - -#define LOG_WRITES (LOG_DRAM_WRITES | LOG_LCD_WRITES | LOG_POWER_WRITES | LOG_EOI_WRITES | LOG_INT_WRITES | LOG_CODEC_WRITES \ - | LOG_SSP_WRITES | LOG_TIMER_WRITES | LOG_BUZZER_WRITES | LOG_RTC_WRITES | LOG_GPIO_WRITES | LOG_PIN_WRITES | LOG_KBD_WRITES) -#define LOG_READS (LOG_DRAM_READS | LOG_LCD_READS | LOG_POWER_READS | LOG_EOI_READS | LOG_INT_READS | LOG_CODEC_READS \ - | LOG_SSP_READS | LOG_TIMER_READS | LOG_BUZZER_READS | LOG_RTC_READS | LOG_GPIO_READS | LOG_KBD_READS) -#define LOG_ALL_IRQ (LOG_IRQ | LOG_EOI_WRITES | LOG_INT_WRITES | LOG_EOI_READS | LOG_INT_READS) -#define LOG_ALL (LOG_UNKNOWNS | LOG_IRQ | LOG_DISPLAY | LOG_WRITES | LOG_READS) - -#define VERBOSE (LOG_CODEC_READS | LOG_CODEC_WRITES | LOG_BUZZER_WRITES) -#include "logmacro.h" - -void psion5mx_state::machine_start() -{ - save_item(NAME(m_memcfg)); - save_item(NAME(m_dramcfg)); - - save_item(NAME(m_timer_reload)); - save_item(NAME(m_timer_value)); - save_item(NAME(m_timer_ctrl)); - - save_item(NAME(m_pending_ints)); - save_item(NAME(m_int_mask)); - - save_item(NAME(m_lcd_display_base_addr)); - - save_item(NAME(m_rtc)); - save_item(NAME(m_pwrsr)); - save_item(NAME(m_last_ssi_request)); - save_item(NAME(m_ssi_read_counter)); - - save_item(NAME(m_kbd_scan)); - - save_item(NAME(m_ports)); - - m_timers[0] = timer_alloc(TID_TIMER1); - m_timers[1] = timer_alloc(TID_TIMER2); - m_periodic = timer_alloc(TID_PERIODIC); - m_rtc_ticker = timer_alloc(TID_RTC_TICKER); -} - -void psion5mx_state::machine_reset() -{ - std::fill(std::begin(m_memcfg), std::end(m_memcfg), 0); - m_dramcfg = 0; - - m_timers[0]->adjust(attotime::never); - m_timers[1]->adjust(attotime::never); - m_timer_reload[0] = m_timer_reload[1] = 0; - m_timer_ctrl[0] = m_timer_ctrl[1] = 0; - - m_pending_ints = 0; - m_int_mask = 0; - - m_lcd_display_base_addr = 0; - - m_rtc = time(nullptr) - 946684800; - m_pwrsr = (1 << 10) | (1 << 13); - m_last_ssi_request = 0; - m_ssi_read_counter = 0; - m_kbd_scan = 0; - - std::fill(std::begin(m_ports), std::end(m_ports), 0); - - m_periodic->adjust(attotime::from_hz(64), 0, attotime::from_hz(64)); - - m_rtc_ticker->adjust(attotime::from_hz(64), 0, attotime::from_hz(64)); -} - -void psion5mx_state::check_interrupts() -{ - LOGMASKED(LOG_IRQ, "Pending FIQs is %08x & %08x & %08x\n", m_pending_ints, m_int_mask, IRQ_FIQ_MASK); - LOGMASKED(LOG_IRQ, "Pending IRQs is %08x & %08x & %08x\n", m_pending_ints, m_int_mask, IRQ_IRQ_MASK); - bool any_interrupts = (m_pending_ints & m_int_mask) != 0; - if (any_interrupts) - { - m_maincpu->resume(SUSPEND_REASON_HALT); - } - m_maincpu->set_input_line(ARM7_FIRQ_LINE, m_pending_ints & m_int_mask & IRQ_FIQ_MASK ? ASSERT_LINE : CLEAR_LINE); - m_maincpu->set_input_line(ARM7_IRQ_LINE, m_pending_ints & m_int_mask & IRQ_IRQ_MASK ? ASSERT_LINE : CLEAR_LINE); -} - -void psion5mx_state::device_timer(emu_timer &timer, device_timer_id id, int param, void *ptr) -{ - switch (id) - { - case TID_TIMER1: - update_timer(0); - if (BIT(m_buzzer_ctrl, 1)) - { - m_speaker->level_w(BIT(m_timer_value[0], 15)); - } - break; - case TID_TIMER2: - update_timer(1); - break; - case TID_PERIODIC: - LOGMASKED(LOG_IRQ, "Flagging periodic IRQ\n"); - m_pending_ints |= (1 << IRQ_TINT); - check_interrupts(); - break; - case TID_RTC_TICKER: - if ((m_pwrsr & 0x3f) == 0x3f) - { - m_rtc++; - m_pwrsr &= ~0x3f; - } - else - { - m_pwrsr++; - } - break; - } -} - -void psion5mx_state::update_timer(int timer) -{ - m_timer_value[timer]--; - if (m_timer_value[timer] == 0) - { - LOGMASKED(LOG_IRQ, "Flagging Timer %d IRQ\n", timer + 1); - m_pending_ints |= (1 << (IRQ_TC1OI + timer)); - check_interrupts(); - if (BIT(m_timer_ctrl[timer], 6)) - { - m_timer_value[timer] = m_timer_reload[timer]; - } - } -} - -void psion5mx_state::set_timer_ctrl(int timer, uint32_t value) -{ - const uint32_t old = m_timer_ctrl[timer]; - const uint32_t changed = old ^ value; - m_timer_ctrl[timer] = value; - if (changed != 0) - { - attotime interval = BIT(m_timer_ctrl[timer], 3) ? attotime::from_ticks(1, 512000) : attotime::from_ticks(1, 2000); - if (BIT(old, 7) && BIT(value, 7)) - { - m_timers[timer]->adjust(m_timers[timer]->remaining(), 0, interval); - } - else if (BIT(value, 7)) - { - m_timers[timer]->adjust(interval, 0, interval); - } - else - { - m_timers[timer]->adjust(attotime::never); - } - } -} - -uint32_t psion5mx_state::periphs_r(offs_t offset, uint32_t mem_mask) -{ - const uint32_t reg = offset << 2; - uint32_t data = 0; - switch (reg) - { - case REG_MEMCFG1: - data = m_memcfg[0]; - LOGMASKED(LOG_DRAM_READS, "%s: peripheral read, MEMCFG1 = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_MEMCFG2: - data = m_memcfg[1]; - LOGMASKED(LOG_DRAM_READS, "%s: peripheral read, MEMCFG2 = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - case REG_DRAMCFG: - data = m_dramcfg; - LOGMASKED(LOG_DRAM_READS, "%s: peripheral read, DRAMCFG = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - case REG_LCDCTL: - LOGMASKED(LOG_LCD_READS, "%s: peripheral read, LCDCTL = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_LCDST: - LOGMASKED(LOG_LCD_READS, "%s: peripheral read, LCDST = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_LCD_DBAR1: - data = m_lcd_display_base_addr; - LOGMASKED(LOG_LCD_READS, "%s: peripheral read, LCD_DBAR1 = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_LCDT0: - LOGMASKED(LOG_LCD_READS, "%s: peripheral read, LCDT0 = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_LCDT1: - LOGMASKED(LOG_LCD_READS, "%s: peripheral read, LCDT1 = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_LCDT2: - LOGMASKED(LOG_LCD_READS, "%s: peripheral read, LCDT2 = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - case REG_PWRSR: - data = m_pwrsr; - LOGMASKED(LOG_POWER_READS, "%s: peripheral read, PWRSR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_PWRCNT: - LOGMASKED(LOG_POWER_READS, "%s: peripheral read, PWRCNT = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_HALT: - LOGMASKED(LOG_POWER_READS, "%s: peripheral read, HALT = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_STBY: - LOGMASKED(LOG_POWER_READS, "%s: peripheral read, STBY = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_BLEOI: - LOGMASKED(LOG_EOI_READS, "%s: peripheral read, BLEOI = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_MCEOI: - LOGMASKED(LOG_EOI_READS, "%s: peripheral read, MCEOI = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_TEOI: - LOGMASKED(LOG_EOI_READS, "%s: peripheral read, TEOI = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_STFCLR: - LOGMASKED(LOG_POWER_READS, "%s: peripheral read, STFCLR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_E2EOI: - LOGMASKED(LOG_EOI_READS, "%s: peripheral read, E2EOI = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - case REG_INTSR: - data = m_pending_ints & m_int_mask; - LOGMASKED(LOG_INT_READS, "%s: peripheral read, INTSR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_INTRSR: - data = m_pending_ints; - LOGMASKED(LOG_INT_READS, "%s: peripheral read, INTRSR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_INTENS: - data = m_int_mask; - LOGMASKED(LOG_INT_READS, "%s: peripheral read, INTENS = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_INTENC: - LOGMASKED(LOG_INT_READS, "%s: peripheral read, INTENC = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_INTTEST1: - LOGMASKED(LOG_INT_READS, "%s: peripheral read, INTTEST1 = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_INTTEST2: - LOGMASKED(LOG_INT_READS, "%s: peripheral read, INTTEST2 = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - case REG_PUMPCON: - LOGMASKED(LOG_POWER_READS, "%s: peripheral read, PUMPCON = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - case REG_CODR: - LOGMASKED(LOG_CODEC_READS, "%s: peripheral read, CODR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_CONFG: - LOGMASKED(LOG_CODEC_READS, "%s: peripheral read, CONFG = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_COLFG: - LOGMASKED(LOG_CODEC_READS, "%s: peripheral read, COLFG = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_COEOI: - LOGMASKED(LOG_CODEC_READS | LOG_EOI_READS, "%s: peripheral read, COEOI = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_COTEST: - LOGMASKED(LOG_CODEC_READS, "%s: peripheral read, COTEST = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - case REG_SSCR0: - LOGMASKED(LOG_SSP_READS, "%s: peripheral read, SSCR0 = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_SSCR1: - LOGMASKED(LOG_SSP_READS, "%s: peripheral read, SSCR1 = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_SSDR: - { - // TODO: Proper SSP support - uint16_t value = 0; - switch (m_last_ssi_request) - { - case 0xd0d3: // Touch X - value = 50 + (uint16_t)(m_touchx->read() * 5.7); - break; - case 0x9093: // Touch Y - value = 3834 - (uint16_t)(m_touchy->read() * 13.225); - break; - case 0xa4a4: // Main Battery - case 0xe4e4: // Backup Battery - value = 3100; - break; - } - - if (m_ssi_read_counter == 4) data = (value >> 5) & 0x7f; - if (m_ssi_read_counter == 5) data = (value << 3) & 0xf8; - m_ssi_read_counter++; - if (m_ssi_read_counter == 6) m_ssi_read_counter = 0; - - // We should be clearing SSEOTI here, possibly, - // but for now we just leave it on to simplify things - LOGMASKED(LOG_SSP_READS, "%s: peripheral read, SSDR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - } - case REG_SSSR: - data = 0; - LOGMASKED(LOG_SSP_READS, "%s: peripheral read, SSSR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - case REG_TC1LOAD: - data = m_timer_reload[0]; - LOGMASKED(LOG_TIMER_READS, "%s: peripheral read, TC1LOAD = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_TC1VAL: - data = m_timer_value[0]; - LOGMASKED(LOG_TIMER_READS, "%s: peripheral read, TC1VAL = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_TC1CTRL: - data = m_timer_ctrl[0]; - LOGMASKED(LOG_TIMER_READS, "%s: peripheral read, TC1CTRL = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_TC1EOI: - LOGMASKED(LOG_TIMER_READS | LOG_EOI_READS, "%s: peripheral read, TC1EOI = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_TC2LOAD: - data = m_timer_reload[1]; - LOGMASKED(LOG_TIMER_READS, "%s: peripheral read, TC2LOAD = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_TC2VAL: - data = m_timer_value[1]; - LOGMASKED(LOG_TIMER_READS, "%s: peripheral read, TC2VAL = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_TC2CTRL: - data = m_timer_ctrl[1]; - LOGMASKED(LOG_TIMER_READS, "%s: peripheral read, TC2CTRL = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_TC2EOI: - LOGMASKED(LOG_EOI_READS, "%s: peripheral read, TC2EOI = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - case REG_BZCONT: - data = m_buzzer_ctrl; - LOGMASKED(LOG_BUZZER_READS, "%s: peripheral read, BZCONT = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - case REG_RTCDRL: - data = (uint16_t)m_rtc; - LOGMASKED(LOG_RTC_READS, "%s: peripheral read, RTCDRL = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_RTCDRU: - data = m_rtc >> 16; - LOGMASKED(LOG_RTC_READS, "%s: peripheral read, RTCDRU = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_RTCMRL: - LOGMASKED(LOG_RTC_READS, "%s: peripheral read, RTCMRL = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_RTCMRU: - LOGMASKED(LOG_RTC_READS, "%s: peripheral read, RTCMRU = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_RTCEOI: - LOGMASKED(LOG_RTC_READS | LOG_EOI_READS, "%s: peripheral read, RTCEOI = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - case REG_PADR: - data = read_keyboard(); - LOGMASKED(LOG_GPIO_READS, "%s: peripheral read, PADR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_PBDR: - data = m_ports[PORTB]; - LOGMASKED(LOG_GPIO_READS, "%s: peripheral read, PBDR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_PCDR: - data = m_ports[PORTC]; - LOGMASKED(LOG_GPIO_READS, "%s: peripheral read, PCDR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_PDDR: - data = m_ports[PORTD]; - LOGMASKED(LOG_GPIO_READS, "%s: peripheral read, PDDR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_PADDR: - LOGMASKED(LOG_GPIO_READS, "%s: peripheral read, PADDR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_PBDDR: - LOGMASKED(LOG_GPIO_READS, "%s: peripheral read, PBDDR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_PCDDR: - LOGMASKED(LOG_GPIO_READS, "%s: peripheral read, PCDDR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_PDDDR: - LOGMASKED(LOG_GPIO_READS, "%s: peripheral read, PDDDR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_PEDR: - LOGMASKED(LOG_GPIO_READS, "%s: peripheral read, PEDR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_PEDDR: - LOGMASKED(LOG_GPIO_READS, "%s: peripheral read, PEDDR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - case REG_KSCAN: - data = m_kbd_scan; - LOGMASKED(LOG_KBD_READS, "%s: peripheral read, KSCAN = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_LCDMUX: - LOGMASKED(LOG_LCD_READS, "%s: peripheral read, LCDMUX = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - default: - LOGMASKED(LOG_UNKNOWNS, "%s: peripheral read, Unknown = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - } - return data; -} - -void psion5mx_state::periphs_w(offs_t offset, uint32_t data, uint32_t mem_mask) -{ - const uint32_t reg = offset << 2; - switch (reg) - { - case REG_MEMCFG1: - m_memcfg[0] = data; - LOGMASKED(LOG_DRAM_WRITES, "%s: peripheral write, MEMCFG1 = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_MEMCFG2: - m_memcfg[1] = data; - LOGMASKED(LOG_DRAM_WRITES, "%s: peripheral write, MEMCFG2 = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - case REG_DRAMCFG: - m_dramcfg = data; - LOGMASKED(LOG_DRAM_WRITES, "%s: peripheral write, DRAMCFG = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - case REG_LCDCTL: - LOGMASKED(LOG_LCD_WRITES, "%s: peripheral write, LCDCTL = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_LCDST: - LOGMASKED(LOG_LCD_WRITES, "%s: peripheral write, LCDST = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_LCD_DBAR1: - LOGMASKED(LOG_LCD_WRITES, "%s: peripheral write, LCD_DBAR1 = %08x & %08x\n", machine().describe_context(), data, mem_mask); - COMBINE_DATA(&m_lcd_display_base_addr); - break; - case REG_LCDT0: - LOGMASKED(LOG_LCD_WRITES, "%s: peripheral write, LCDT0 = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_LCDT1: - LOGMASKED(LOG_LCD_WRITES, "%s: peripheral write, LCDT1 = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_LCDT2: - LOGMASKED(LOG_LCD_WRITES, "%s: peripheral write, LCDT2 = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - case REG_PWRSR: - COMBINE_DATA(&m_pwrsr); - LOGMASKED(LOG_POWER_WRITES, "%s: peripheral write, PWRSR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_PWRCNT: - LOGMASKED(LOG_POWER_WRITES, "%s: peripheral write, PWRCNT = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_HALT: - m_maincpu->suspend(SUSPEND_REASON_HALT, 1); - LOGMASKED(LOG_POWER_WRITES, "%s: peripheral write, HALT = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_STBY: - LOGMASKED(LOG_POWER_WRITES, "%s: peripheral write, STBY = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_BLEOI: - LOGMASKED(LOG_EOI_WRITES, "%s: peripheral write, BLEOI = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_MCEOI: - LOGMASKED(LOG_EOI_WRITES, "%s: peripheral write, MCEOI = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_TEOI: - LOGMASKED(LOG_EOI_WRITES, "%s: peripheral write, TEOI = %08x & %08x\n", machine().describe_context(), data, mem_mask); - m_pending_ints &= ~(1 << IRQ_TINT); - check_interrupts(); - break; - case REG_STFCLR: - m_pwrsr &= ~0x00003e00; - LOGMASKED(LOG_POWER_WRITES, "%s: peripheral write, STFCLR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_E2EOI: - LOGMASKED(LOG_EOI_WRITES, "%s: peripheral write, E2EOI = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - case REG_INTSR: - LOGMASKED(LOG_INT_WRITES, "%s: peripheral write, INTSR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_INTRSR: - LOGMASKED(LOG_INT_WRITES, "%s: peripheral write, INTRSR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_INTENS: - m_int_mask |= data & mem_mask; - LOGMASKED(LOG_INT_WRITES, "%s: peripheral write, INTENS = %08x & %08x\n", machine().describe_context(), data, mem_mask); - check_interrupts(); - break; - case REG_INTENC: - m_int_mask &= ~(data & mem_mask); - LOGMASKED(LOG_INT_WRITES, "%s: peripheral write, INTENC = %08x & %08x\n", machine().describe_context(), data, mem_mask); - check_interrupts(); - break; - case REG_INTTEST1: - LOGMASKED(LOG_INT_WRITES, "%s: peripheral write, INTTEST1 = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_INTTEST2: - LOGMASKED(LOG_INT_WRITES, "%s: peripheral write, INTTEST2 = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - case REG_PUMPCON: - LOGMASKED(LOG_POWER_WRITES, "%s: peripheral write, PUMPCON = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - case REG_CODR: - LOGMASKED(LOG_CODEC_WRITES, "%s: peripheral write, CODR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_CONFG: - LOGMASKED(LOG_CODEC_WRITES, "%s: peripheral write, CONFG = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_COLFG: - LOGMASKED(LOG_CODEC_WRITES, "%s: peripheral write, COLFG = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_COEOI: - LOGMASKED(LOG_CODEC_WRITES | LOG_EOI_WRITES, "%s: peripheral write, COEOI = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_COTEST: - LOGMASKED(LOG_CODEC_WRITES, "%s: peripheral write, COTEST = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - case REG_SSCR0: - LOGMASKED(LOG_SSP_WRITES, "%s: peripheral write, SSCR0 = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_SSCR1: - LOGMASKED(LOG_SSP_WRITES, "%s: peripheral write, SSCR1 = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_SSDR: - LOGMASKED(LOG_SSP_WRITES, "%s: peripheral write, SSDR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - // TODO: Proper SPI support - if (data != 0) - { - m_last_ssi_request = (m_last_ssi_request >> 8) | (data & 0xff00); - } - break; - case REG_SSSR: - LOGMASKED(LOG_SSP_WRITES, "%s: peripheral write, SSSR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - case REG_TC1LOAD: - LOGMASKED(LOG_TIMER_WRITES, "%s: peripheral write, TC1LOAD = %08x & %08x\n", machine().describe_context(), data, mem_mask); - m_timer_reload[0] = data; - m_timer_value[0] = data; - break; - case REG_TC1VAL: - LOGMASKED(LOG_TIMER_WRITES, "%s: peripheral write, TC1VAL = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_TC1CTRL: - LOGMASKED(LOG_TIMER_WRITES, "%s: peripheral write, TC1CTRL = %08x & %08x\n", machine().describe_context(), data, mem_mask); - set_timer_ctrl(0, data); - break; - case REG_TC1EOI: - LOGMASKED(LOG_TIMER_WRITES | LOG_EOI_WRITES, "%s: peripheral write, TC1EOI = %08x & %08x\n", machine().describe_context(), data, mem_mask); - m_pending_ints &= ~(1 << IRQ_TC1OI); - check_interrupts(); - break; - case REG_TC2LOAD: - LOGMASKED(LOG_TIMER_WRITES, "%s: peripheral write, TC2LOAD = %08x & %08x\n", machine().describe_context(), data, mem_mask); - m_timer_reload[1] = data; - m_timer_value[1] = data; - break; - case REG_TC2VAL: - LOGMASKED(LOG_TIMER_WRITES, "%s: peripheral write, TC2VAL = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_TC2CTRL: - LOGMASKED(LOG_TIMER_WRITES, "%s: peripheral write, TC2CTRL = %08x & %08x\n", machine().describe_context(), data, mem_mask); - set_timer_ctrl(1, data); - break; - case REG_TC2EOI: - LOGMASKED(LOG_TIMER_WRITES | LOG_EOI_WRITES, "%s: peripheral write, TC2EOI = %08x & %08x\n", machine().describe_context(), data, mem_mask); - m_pending_ints &= ~(1 << IRQ_TC2OI); - check_interrupts(); - break; - - case REG_BZCONT: - m_buzzer_ctrl = data; - if (!BIT(m_buzzer_ctrl, 1)) - { - m_speaker->level_w(BIT(m_buzzer_ctrl, 0)); - } - LOGMASKED(LOG_BUZZER_WRITES, "%s: peripheral write, BZCONT = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - case REG_RTCDRL: - LOGMASKED(LOG_RTC_WRITES, "%s: peripheral write, RTCDRL = %08x & %08x\n", machine().describe_context(), data, mem_mask); - m_rtc &= 0xffff0000; - m_rtc |= (uint16_t)data; - break; - case REG_RTCDRU: - LOGMASKED(LOG_RTC_WRITES, "%s: peripheral write, RTCDRU = %08x & %08x\n", machine().describe_context(), data, mem_mask); - m_rtc &= 0x0000ffff; - m_rtc |= data << 16; - break; - case REG_RTCMRL: - LOGMASKED(LOG_RTC_WRITES, "%s: peripheral write, RTCMRL = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_RTCMRU: - LOGMASKED(LOG_RTC_WRITES, "%s: peripheral write, RTCMRU = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_RTCEOI: - LOGMASKED(LOG_RTC_WRITES | LOG_EOI_WRITES, "%s: peripheral write, RTCEOI = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - case REG_PADR: - LOGMASKED(LOG_GPIO_WRITES, "%s: peripheral write, PADR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - m_ports[PORTA] = data; - break; - case REG_PBDR: - { - LOGMASKED(LOG_GPIO_WRITES, "%s: peripheral write, PBDR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - const uint8_t old = m_ports[PORTB]; - m_ports[PORTB] = data; - const uint8_t diff = old ^ data; - if (BIT(diff, 0)) - m_etna->eeprom_cs_in(BIT(data, 0)); - if (BIT(diff, 1)) - m_etna->eeprom_clk_in(BIT(data, 1)); - if (diff & 0x3c) - LOGMASKED(LOG_PIN_WRITES, "Contrast: %d\n", (data >> 2) & 0x0f); - if (BIT(diff, 6)) - LOGMASKED(LOG_PIN_WRITES, "Case Open: %d\n", BIT(data, 6)); - if (BIT(diff, 7)) - LOGMASKED(LOG_PIN_WRITES, "ETNA CompactFlash Power: %d\n", BIT(data, 7)); - break; - } - case REG_PCDR: - { - LOGMASKED(LOG_GPIO_WRITES, "%s: peripheral write, PCDR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - const uint8_t old = m_ports[PORTC]; - m_ports[PORTC] = data; - const uint8_t diff = old ^ data; - if (BIT(diff, 0)) - LOGMASKED(LOG_PIN_WRITES, "RS232 RTS: %d\n", BIT(data, 0)); - if (BIT(diff, 1)) - LOGMASKED(LOG_PIN_WRITES, "RS232 DTR Toggle: %d\n", BIT(data, 1)); - if (BIT(diff, 2)) - LOGMASKED(LOG_PIN_WRITES, "Disable Power LED: %d\n", BIT(data, 2)); - if (BIT(diff, 3)) - LOGMASKED(LOG_PIN_WRITES, "Enable UART1: %d\n", BIT(data, 3)); - if (BIT(diff, 4)) - LOGMASKED(LOG_PIN_WRITES, "LCD Backlight: %d\n", BIT(data, 4)); - if (BIT(diff, 5)) - LOGMASKED(LOG_PIN_WRITES, "Enable UART0: %d\n", BIT(data, 5)); - if (BIT(diff, 6)) - LOGMASKED(LOG_PIN_WRITES, "Dictaphone: %d\n", BIT(data, 6)); - break; - } - case REG_PDDR: - { - LOGMASKED(LOG_GPIO_WRITES, "%s: peripheral write, PDDR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - const uint8_t old = m_ports[PORTD]; - m_ports[PORTD] = data; - const uint8_t diff = old ^ data; - if (BIT(diff, 0)) - LOGMASKED(LOG_PIN_WRITES, "Codec Enable: %d\n", BIT(data, 0)); - if (BIT(diff, 1)) - LOGMASKED(LOG_PIN_WRITES, "Audio Amp Enable: %d\n", BIT(data, 1)); - if (BIT(diff, 2)) - LOGMASKED(LOG_PIN_WRITES, "LCD Power: %d\n", BIT(data, 2)); - if (BIT(diff, 3)) - LOGMASKED(LOG_PIN_WRITES, "ETNA Door: %d\n", BIT(data, 3)); - if (BIT(diff, 4)) - LOGMASKED(LOG_PIN_WRITES, "Sled: %d\n", BIT(data, 4)); - if (BIT(diff, 5)) - LOGMASKED(LOG_PIN_WRITES, "Pump Power2: %d\n", BIT(data, 5)); - if (BIT(diff, 6)) - LOGMASKED(LOG_PIN_WRITES, "Pump Power1: %d\n", BIT(data, 6)); - if (BIT(diff, 7)) - LOGMASKED(LOG_PIN_WRITES, "ETNA Error: %d\n", BIT(data, 7)); - break; - } - case REG_PADDR: - LOGMASKED(LOG_GPIO_WRITES, "%s: peripheral write, PADDR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_PBDDR: - LOGMASKED(LOG_GPIO_WRITES, "%s: peripheral write, PBDDR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_PCDDR: - LOGMASKED(LOG_GPIO_WRITES, "%s: peripheral write, PCDDR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_PDDDR: - LOGMASKED(LOG_GPIO_WRITES, "%s: peripheral write, PDDDR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_PEDR: - LOGMASKED(LOG_GPIO_WRITES, "%s: peripheral write, PEDR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_PEDDR: - LOGMASKED(LOG_GPIO_WRITES, "%s: peripheral write, PEDDR = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - case REG_KSCAN: - m_kbd_scan = data; - LOGMASKED(LOG_KBD_WRITES, "%s: peripheral write, KSCAN = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - case REG_LCDMUX: - LOGMASKED(LOG_LCD_WRITES, "%s: peripheral write, LCDMUX = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - - default: - LOGMASKED(LOG_UNKNOWNS, "%s: peripheral write, Unknown = %08x & %08x\n", machine().describe_context(), data, mem_mask); - break; - } -} - -uint8_t psion5mx_state::read_keyboard() -{ - if (BIT(m_kbd_scan, 3)) - { - return m_kbd_cols[m_kbd_scan & 7]->read(); - } - else if (m_kbd_scan == 0) - { - uint8_t rows = 0; - for (int i = 0; i < 8; i++) - { - rows |= m_kbd_cols[i]->read(); - } - return rows; - } - return 0x00; -} - -void psion5mx_state::main_map(address_map &map) -{ - map(0x00000000, 0x009fffff).rom().region("maincpu", 0); - map(0x20000000, 0x20000fff).rw(m_etna, FUNC(etna_device::regs_r), FUNC(etna_device::regs_w)); - map(0x80000000, 0x80000fff).rw(FUNC(psion5mx_state::periphs_r), FUNC(psion5mx_state::periphs_w)); - map(0xc0000000, 0xc03fffff).ram().mirror(0x1fc00000).share("lcd_ram"); -} - -void psion5mx_state::palette_init(palette_device &palette) -{ - for (int i = 0; i < 16; i++) - { - const int r = (0x99 * i) / 15; - const int g = (0xaa * i) / 15; - const int b = (0x88 * i) / 15; - m_palette->set_pen_color(15 - i, rgb_t(r, g, b)); - } -} - -uint32_t psion5mx_state::screen_update(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect) -{ - const uint8_t *lcd_buf = (uint8_t*)&m_lcd_ram[(m_lcd_display_base_addr & 0x003fffff) >> 2]; - static const int width = 640; - static const int height = 240; - - // fetch palette - LOGMASKED(LOG_DISPLAY, "%02x %02x %02x %02x\n", lcd_buf[0], lcd_buf[1], lcd_buf[2], lcd_buf[3]); - - const int bpp = 1 << (lcd_buf[1] >> 4); - const int ppb = 8 / bpp; - LOGMASKED(LOG_DISPLAY, "bpp: %d, ppb: %d\n", bpp, ppb); - uint16_t palette[16] = {}; - for (int i = 0; i < 16; i++) - { - palette[i] = lcd_buf[i*2] | ((lcd_buf[i*2+1] << 8) & 0xf00); - LOGMASKED(LOG_DISPLAY, "palette[%d]: %04x\n", i, palette[i]); - } - - const pen_t *pen = m_palette->pens(); - - // build our image out - const int line_width = (width * bpp) / 8; - for (int y = 0; y < height; y++) - { - const int line_offs = 0x20 + (line_width * y); - uint32_t *line = &bitmap.pix(y); - for (int x = 0; x < width; x++) - { - const uint8_t byte = lcd_buf[line_offs + (x / ppb)]; - const int shift = (x & (ppb - 1)) * bpp; - const int mask = (1 << bpp) - 1; - const int pal_idx = (byte >> shift) & mask; - - line[x] = pen[palette[pal_idx]]; - } - } - return 0; -} - -INPUT_CHANGED_MEMBER(psion5mx_state::touch_down) -{ - if (newval) - { - logerror("Flagging EINT3\n"); - m_pending_ints |= (1 << IRQ_EINT3); - } - else - { - logerror("Unflagging EINT3\n"); - m_pending_ints &= ~(1 << IRQ_EINT3); - } - check_interrupts(); -} - -/* Input ports */ -INPUT_PORTS_START( psion5mx ) - PORT_START("TOUCHX") - PORT_BIT(0x3ff, 362, IPT_LIGHTGUN_X) PORT_CROSSHAIR(X, 1.0, 0.0, 0) PORT_MINMAX(42,681) PORT_SENSITIVITY(25) PORT_KEYDELTA(13) - - PORT_START("TOUCHY") - PORT_BIT(0x0ff, 125, IPT_LIGHTGUN_Y) PORT_CROSSHAIR(Y, 1.0, 0.0, 0) PORT_MINMAX(5,244) PORT_SENSITIVITY(25) PORT_KEYDELTA(13) - - PORT_START("TOUCH") - PORT_BIT(0x0001, IP_ACTIVE_HIGH, IPT_BUTTON1) PORT_NAME("Touch") PORT_CHANGED_MEMBER(DEVICE_SELF, psion5mx_state, touch_down, 0) - PORT_BIT(0xfffe, IP_ACTIVE_HIGH, IPT_UNUSED) - - PORT_START("COL0") - PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("6") PORT_CODE(KEYCODE_6) PORT_CHAR('6') PORT_CHAR('^') PORT_CHAR('>') - PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("5") PORT_CODE(KEYCODE_5) PORT_CHAR('5') PORT_CHAR('%') PORT_CHAR('<') - PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("4") PORT_CODE(KEYCODE_4) PORT_CHAR('4') PORT_CHAR('$') PORT_CHAR('@') - PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("3") PORT_CODE(KEYCODE_3) PORT_CHAR('3') PORT_CHAR(163) PORT_CHAR('\\') - PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("2") PORT_CODE(KEYCODE_2) PORT_CHAR('2') PORT_CHAR('"') PORT_CHAR('#') - PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("1") PORT_CODE(KEYCODE_1) PORT_CHAR('1') PORT_CHAR('!') PORT_CHAR('_') - PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Dictaphone Record") PORT_CODE(KEYCODE_INSERT) - PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_UNUSED) - - PORT_START("COL1") - PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("'") PORT_CODE(KEYCODE_QUOTE) PORT_CHAR('\'') PORT_CHAR('~') PORT_CHAR(':') - PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Del<-") PORT_CODE(KEYCODE_BACKSPACE) PORT_CHAR(8) - PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("0") PORT_CODE(KEYCODE_0) PORT_CHAR('0') PORT_CHAR(')') PORT_CHAR('}') - PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("9") PORT_CODE(KEYCODE_9) PORT_CHAR('9') PORT_CHAR('(') PORT_CHAR('{') - PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("8") PORT_CODE(KEYCODE_8) PORT_CHAR('8') PORT_CHAR('*') PORT_CHAR(']') - PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("7") PORT_CODE(KEYCODE_7) PORT_CHAR('7') PORT_CHAR('&') PORT_CHAR('[') - PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Dictaphone Play") PORT_CODE(KEYCODE_HOME) - PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_UNUSED) - - PORT_START("COL2") - PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Y") PORT_CODE(KEYCODE_Y) PORT_CHAR('y') PORT_CHAR('Y') - PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("T") PORT_CODE(KEYCODE_T) PORT_CHAR('t') PORT_CHAR('T') - PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("R") PORT_CODE(KEYCODE_R) PORT_CHAR('r') PORT_CHAR('R') - PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("E") PORT_CODE(KEYCODE_E) PORT_CHAR('e') PORT_CHAR('E') PORT_CHAR(128) - PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("W") PORT_CODE(KEYCODE_W) PORT_CHAR('w') PORT_CHAR('W') - PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Q") PORT_CODE(KEYCODE_Q) PORT_CHAR('q') PORT_CHAR('Q') - PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Esc") PORT_CODE(KEYCODE_ESC) PORT_CHAR(27) - PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_UNUSED) - - PORT_START("COL3") - PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Enter") PORT_CODE(KEYCODE_ENTER) PORT_CHAR(13) - PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("L") PORT_CODE(KEYCODE_L) PORT_CHAR('l') PORT_CHAR('L') PORT_CHAR(';') - PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("P") PORT_CODE(KEYCODE_P) PORT_CHAR('p') PORT_CHAR('P') PORT_CHAR('=') - PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("O") PORT_CODE(KEYCODE_O) PORT_CHAR('o') PORT_CHAR('O') PORT_CHAR('-') - PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("I") PORT_CODE(KEYCODE_I) PORT_CHAR('i') PORT_CHAR('I') PORT_CHAR('+') - PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("U") PORT_CODE(KEYCODE_U) PORT_CHAR('u') PORT_CHAR('U') - PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Menu") PORT_CODE(KEYCODE_END) - PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_UNUSED) - - PORT_START("COL4") - PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("G") PORT_CODE(KEYCODE_G) PORT_CHAR('g') PORT_CHAR('G') - PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("F") PORT_CODE(KEYCODE_F) PORT_CHAR('f') PORT_CHAR('F') - PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("D") PORT_CODE(KEYCODE_D) PORT_CHAR('d') PORT_CHAR('D') - PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("S") PORT_CODE(KEYCODE_S) PORT_CHAR('s') PORT_CHAR('S') - PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("A") PORT_CODE(KEYCODE_A) PORT_CHAR('a') PORT_CHAR('A') - PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Tab") PORT_CODE(KEYCODE_TAB) PORT_CHAR(9) - PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Ctrl") PORT_CODE(KEYCODE_LCONTROL) PORT_CHAR(UCHAR_MAMEKEY(LCONTROL)) - PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_UNUSED) - - PORT_START("COL5") - PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME(UTF8_DOWN) PORT_CODE(KEYCODE_DOWN) PORT_CHAR(UCHAR_MAMEKEY(DOWN)) - PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME(".") PORT_CODE(KEYCODE_STOP) PORT_CHAR('.') PORT_CHAR('?') - PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("M") PORT_CODE(KEYCODE_M) PORT_CHAR('m') PORT_CHAR('M') - PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("K") PORT_CODE(KEYCODE_K) PORT_CHAR('k') PORT_CHAR('K') - PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("J") PORT_CODE(KEYCODE_J) PORT_CHAR('j') PORT_CHAR('J') - PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("H") PORT_CODE(KEYCODE_H) PORT_CHAR('h') PORT_CHAR('H') - PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Fn") PORT_CODE(KEYCODE_LALT) PORT_CHAR(UCHAR_SHIFT_2) - PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_UNUSED) - - PORT_START("COL6") - PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("N") PORT_CODE(KEYCODE_N) PORT_CHAR('n') PORT_CHAR('N') - PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("B") PORT_CODE(KEYCODE_B) PORT_CHAR('b') PORT_CHAR('B') - PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("V") PORT_CODE(KEYCODE_V) PORT_CHAR('v') PORT_CHAR('V') - PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("C") PORT_CODE(KEYCODE_C) PORT_CHAR('c') PORT_CHAR('C') - PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("X") PORT_CODE(KEYCODE_X) PORT_CHAR('x') PORT_CHAR('X') - PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Z") PORT_CODE(KEYCODE_Z) PORT_CHAR('z') PORT_CHAR('Z') - PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Right Shift") PORT_CODE(KEYCODE_RSHIFT) - PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_UNUSED) - - PORT_START("COL7") - PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME(UTF8_RIGHT) PORT_CODE(KEYCODE_RIGHT) PORT_CHAR(UCHAR_MAMEKEY(RIGHT)) - PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME(UTF8_LEFT) PORT_CODE(KEYCODE_LEFT) PORT_CHAR(UCHAR_MAMEKEY(LEFT)) - PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME(",") PORT_CODE(KEYCODE_COMMA) PORT_CHAR(',') PORT_CHAR('/') - PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME(UTF8_UP) PORT_CODE(KEYCODE_UP) PORT_CHAR(UCHAR_MAMEKEY(UP)) - PORT_BIT(0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Space") PORT_CODE(KEYCODE_SPACE) PORT_CHAR(' ') - PORT_BIT(0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Dictaphone Stop") PORT_CODE(KEYCODE_PGUP) - PORT_BIT(0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_NAME("Left Shift") PORT_CODE(KEYCODE_LSHIFT) PORT_CHAR(UCHAR_SHIFT_1) - PORT_BIT(0x80, IP_ACTIVE_HIGH, IPT_UNUSED) -INPUT_PORTS_END - -/* basic configuration for 2 lines display */ -void psion5mx_state::psion5mx(machine_config &config) -{ - /* basic machine hardware */ - ARM710T(config, m_maincpu, 36000000); // 36MHz, per wikipedia - m_maincpu->set_addrmap(AS_PROGRAM, &psion5mx_state::main_map); - - ETNA(config, m_etna); - - /* video hardware */ - screen_device &screen(SCREEN(config, "screen", SCREEN_TYPE_LCD)); - screen.set_refresh_hz(60); - screen.set_vblank_time(ATTOSECONDS_IN_USEC(0)); /* not accurate */ - screen.set_screen_update(FUNC(psion5mx_state::screen_update)); - screen.set_size(640, 240); - screen.set_visarea(0, 640-1, 0, 240-1); - - PALETTE(config, m_palette, FUNC(psion5mx_state::palette_init), 16); - - /* sound hardware */ - SPEAKER(config, "mono").front_center(); - SPEAKER_SOUND(config, m_speaker).add_route(ALL_OUTPUTS, "mono", 1.00); -} - -/* ROM definition */ - -ROM_START( psion5mx ) - ROM_REGION( 0xa00000, "maincpu", 0 ) - ROM_LOAD( "5mx.rom", 0x000000, 0xa00000, CRC(a1e2d038) SHA1(4c082321264e1ae7fe77699e59b8960460690fa6) ) -ROM_END - -/* Driver */ - -// YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY FULLNAME FLAGS -COMP( 1999, psion5mx, 0, 0, psion5mx, psion5mx, psion5mx_state, empty_init, "Psion", "Series 5mx", MACHINE_IMPERFECT_GRAPHICS | MACHINE_IMPERFECT_SOUND | MACHINE_SUPPORTS_SAVE ) |