summaryrefslogtreecommitdiffstatshomepage
path: root/src/mame/drivers/accomm.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'src/mame/drivers/accomm.cpp')
-rw-r--r--src/mame/drivers/accomm.cpp975
1 files changed, 0 insertions, 975 deletions
diff --git a/src/mame/drivers/accomm.cpp b/src/mame/drivers/accomm.cpp
deleted file mode 100644
index 80e5efc26c1..00000000000
--- a/src/mame/drivers/accomm.cpp
+++ /dev/null
@@ -1,975 +0,0 @@
-// license:BSD-3-Clause
-// copyright-holders:R. Belmont, Wilbert Pol
-/***************************************************************************
-
- Acorn Communicator
-
- Driver-in-progress by R. Belmont
- Electron ULA emulation by Wilbert Pol
-
- Main CPU: 65C816
- Other chips: 6850 UART, 6522 VIA, SAA5240(video?), AM7910 modem, PCF0335(?), PCF8573P
-
-****************************************************************************/
-
-#include "emu.h"
-#include "cpu/g65816/g65816.h"
-#include "machine/6522via.h"
-#include "machine/6850acia.h"
-#include "machine/clock.h"
-#include "machine/mc6854.h"
-#include "machine/ram.h"
-#include "machine/nvram.h"
-#include "machine/bankdev.h"
-#include "sound/beep.h"
-#include "bus/econet/econet.h"
-#include "bus/centronics/ctronics.h"
-#include "bus/rs232/rs232.h"
-#include "emupal.h"
-#include "screen.h"
-#include "speaker.h"
-
-#include "accomm.lh"
-
-/* Interrupts */
-#define INT_HIGH_TONE 0x40
-#define INT_TRANSMIT_EMPTY 0x20
-#define INT_RECEIVE_FULL 0x10
-#define INT_RTC 0x08
-#define INT_DISPLAY_END 0x04
-#define INT_SET 0x100
-#define INT_CLEAR 0x200
-
-class accomm_state : public driver_device
-{
-public:
- accomm_state(const machine_config &mconfig, device_type type, const char *tag) :
- driver_device(mconfig, type, tag),
- m_maincpu(*this, "maincpu"),
- m_beeper(*this, "beeper"),
- m_ram(*this, RAM_TAG),
- m_via(*this, "via6522"),
- m_acia(*this, "acia"),
- m_acia_clock(*this, "acia_clock"),
- m_adlc(*this, "mc6854"),
- m_vram(*this, "vram"),
- m_keybd1(*this, "LINE1.%u", 0),
- m_keybd2(*this, "LINE2.%u", 0),
- m_ch00rom_enabled(true)
- { }
-
- void accomm(machine_config &config);
-
-private:
- uint32_t screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect);
-
- DECLARE_WRITE8_MEMBER(ch00switch_w);
- DECLARE_READ8_MEMBER(read_keyboard1);
- DECLARE_READ8_MEMBER(read_keyboard2);
- DECLARE_READ8_MEMBER(ram_r);
- DECLARE_WRITE8_MEMBER(ram_w);
- DECLARE_READ8_MEMBER(sheila_r);
- DECLARE_WRITE8_MEMBER(sheila_w);
-
- void accomm_palette(palette_device &palette) const;
- INTERRUPT_GEN_MEMBER(vbl_int);
-
- virtual void machine_reset() override;
- virtual void machine_start() override;
- void main_map(address_map &map);
-
- // devices
- required_device<g65816_device> m_maincpu;
- required_device<beep_device> m_beeper;
- required_device<ram_device> m_ram;
- required_device<via6522_device> m_via;
- required_device<acia6850_device> m_acia;
- required_device<clock_device> m_acia_clock;
- required_device<mc6854_device> m_adlc;
- required_shared_ptr<uint8_t> m_vram;
- required_ioport_array<14> m_keybd1, m_keybd2;
-
- // driver_device overrides
- virtual void video_start() override;
-
- void interrupt_handler(int mode, int interrupt);
- inline uint8_t read_vram( uint16_t addr );
- inline void plot_pixel(bitmap_ind16 &bitmap, int x, int y, uint32_t color);
-
- bool m_ch00rom_enabled;
-
- /* ULA context */
-
- struct ULA
- {
- uint8_t interrupt_status;
- uint8_t interrupt_control;
- uint8_t rompage;
- uint16_t screen_start;
- uint16_t screen_base;
- int screen_size;
- uint16_t screen_addr;
- uint8_t *vram;
- int current_pal[16];
- int communication_mode;
- int screen_mode;
- int shiftlock_mode;
- int capslock_mode;
- // int scanline;
- /* tape reading related */
- uint32_t tape_value;
- int tape_steps;
- int bit_count;
- int high_tone_set;
- int start_bit;
- int stop_bit;
- int tape_running;
- uint8_t tape_byte;
- };
-
-
- ULA m_ula;
- int m_map4[256];
- int m_map16[256];
-};
-
-static const rgb_t electron_palette[8]=
-{
- rgb_t(0x0ff,0x0ff,0x0ff),
- rgb_t(0x000,0x0ff,0x0ff),
- rgb_t(0x0ff,0x000,0x0ff),
- rgb_t(0x000,0x000,0x0ff),
- rgb_t(0x0ff,0x0ff,0x000),
- rgb_t(0x000,0x0ff,0x000),
- rgb_t(0x0ff,0x000,0x000),
- rgb_t(0x000,0x000,0x000)
-};
-
-void accomm_state::accomm_palette(palette_device &palette) const
-{
- palette.set_pen_colors(0, electron_palette);
-}
-
-READ8_MEMBER(accomm_state::read_keyboard1)
-{
- uint8_t data = 0;
-
- for (int i = 0; i < 14; i++)
- {
- if (!(offset & 1))
- data |= m_keybd1[i]->read() & 0x0f;
-
- offset = offset >> 1;
- }
- return data;
-}
-
-READ8_MEMBER(accomm_state::read_keyboard2)
-{
- uint8_t data = 0;
-
- for (int i = 0; i < 14; i++)
- {
- if (!(offset & 1))
- data |= m_keybd2[i]->read() & 0x0f;
-
- offset = offset >> 1;
- }
- return data;
-}
-
-INTERRUPT_GEN_MEMBER(accomm_state::vbl_int)
-{
- interrupt_handler( INT_SET, INT_DISPLAY_END );
-}
-
-void accomm_state::machine_reset()
-{
- m_ula.communication_mode = 0x04;
- m_ula.screen_mode = 0;
- m_ula.shiftlock_mode = 0;
- m_ula.capslock_mode = 0;
- m_ula.screen_start = 0x3000;
- m_ula.screen_base = 0x3000;
- m_ula.screen_size = 0x8000 - 0x3000;
- m_ula.screen_addr = 0;
- m_ula.tape_running = 0;
- m_ula.interrupt_status = 0x82;
- m_ula.interrupt_control = 0;
- m_ula.vram = (uint8_t *)m_vram.target() + m_ula.screen_base;
-
- m_ch00rom_enabled = true;
-}
-
-void accomm_state::machine_start()
-{
- m_ula.interrupt_status = 0x82;
- m_ula.interrupt_control = 0x00;
-}
-
-void accomm_state::video_start()
-{
- int i;
- for( i = 0; i < 256; i++ ) {
- m_map4[i] = ( ( i & 0x10 ) >> 3 ) | ( i & 0x01 );
- m_map16[i] = ( ( i & 0x40 ) >> 3 ) | ( ( i & 0x10 ) >> 2 ) | ( ( i & 0x04 ) >> 1 ) | ( i & 0x01 );
- }
-}
-
-WRITE8_MEMBER(accomm_state::ch00switch_w)
-{
- logerror("ch00switch_w: offset %04x, data %02x\n", offset, data);
- if (!machine().side_effects_disabled())
- m_ch00rom_enabled = false;
-}
-
-inline uint8_t accomm_state::read_vram(uint16_t addr)
-{
- return m_ula.vram[ addr % m_ula.screen_size ];
-}
-
-inline void accomm_state::plot_pixel(bitmap_ind16 &bitmap, int x, int y, uint32_t color)
-{
- bitmap.pix16(y, x) = (uint16_t)color;
-}
-
-uint32_t accomm_state::screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect)
-{
- int i;
- int x = 0;
- int scanline = screen.vpos();
- rectangle r = cliprect;
- r.sety(scanline, scanline);
-
- if (scanline == 0)
- m_ula.screen_addr = m_ula.screen_start - m_ula.screen_base;
-
- /* set up palette */
- int pal[16];
- switch( m_ula.screen_mode )
- {
- case 0: case 3: case 4: case 6: case 7: /* 2 colour mode */
- pal[0] = m_ula.current_pal[0];
- pal[1] = m_ula.current_pal[8];
- break;
- case 1: case 5: /* 4 colour mode */
- pal[0] = m_ula.current_pal[0];
- pal[1] = m_ula.current_pal[2];
- pal[2] = m_ula.current_pal[8];
- pal[3] = m_ula.current_pal[10];
- break;
- case 2: /* 16 colour mode */
- for( i = 0; i < 16; i++ )
- pal[i] = m_ula.current_pal[i];
- }
-
- /* draw line */
- switch( m_ula.screen_mode )
- {
- case 0:
- for( i = 0; i < 80; i++ )
- {
- uint8_t pattern = read_vram( m_ula.screen_addr + (i << 3) );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>7)& 1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>6)& 1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>5)& 1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>4)& 1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>3)& 1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>2)& 1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>1)& 1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>0)& 1] );
- }
- m_ula.screen_addr++;
- if ( ( scanline & 0x07 ) == 7 )
- m_ula.screen_addr += 0x278;
- break;
-
- case 1:
- for( i = 0; i < 80; i++ )
- {
- uint8_t pattern = read_vram( m_ula.screen_addr + i * 8 );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>3]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>3]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>2]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>2]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>1]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>1]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>0]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>0]] );
- }
- m_ula.screen_addr++;
- if ( ( scanline & 0x07 ) == 7 )
- m_ula.screen_addr += 0x278;
- break;
-
- case 2:
- for( i = 0; i < 80; i++ )
- {
- uint8_t pattern = read_vram( m_ula.screen_addr + i * 8 );
- plot_pixel( bitmap, x++, scanline, pal[m_map16[pattern>>1]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map16[pattern>>1]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map16[pattern>>1]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map16[pattern>>1]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map16[pattern>>0]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map16[pattern>>0]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map16[pattern>>0]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map16[pattern>>0]] );
- }
- m_ula.screen_addr++;
- if ( ( scanline & 0x07 ) == 7 )
- m_ula.screen_addr += 0x278;
- break;
-
- case 3:
- if ( ( scanline > 249 ) || ( scanline % 10 >= 8 ) )
- bitmap.fill(7, r );
- else
- {
- for( i = 0; i < 80; i++ )
- {
- uint8_t pattern = read_vram( m_ula.screen_addr + i * 8 );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>7)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>6)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>5)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>4)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>3)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>2)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>1)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>0)&1] );
- }
- m_ula.screen_addr++;
- }
- if ( scanline % 10 == 9 )
- m_ula.screen_addr += 0x278;
- break;
-
- case 4:
- case 7:
- for( i = 0; i < 40; i++ )
- {
- uint8_t pattern = read_vram( m_ula.screen_addr + i * 8 );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>7)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>7)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>6)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>6)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>5)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>5)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>4)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>4)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>3)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>3)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>2)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>2)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>1)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>1)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>0)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>0)&1] );
- }
- m_ula.screen_addr++;
- if ( ( scanline & 0x07 ) == 7 )
- m_ula.screen_addr += 0x138;
- break;
-
- case 5:
- for( i = 0; i < 40; i++ )
- {
- uint8_t pattern = read_vram( m_ula.screen_addr + i * 8 );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>3]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>3]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>3]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>3]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>2]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>2]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>2]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>2]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>1]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>1]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>1]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>1]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>0]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>0]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>0]] );
- plot_pixel( bitmap, x++, scanline, pal[m_map4[pattern>>0]] );
- }
- m_ula.screen_addr++;
- if ( ( scanline & 0x07 ) == 7 )
- m_ula.screen_addr += 0x138;
- break;
-
- case 6:
- if ( ( scanline > 249 ) || ( scanline % 10 >= 8 ) )
- bitmap.fill(7, r );
- else
- {
- for( i = 0; i < 40; i++ )
- {
- uint8_t pattern = read_vram( m_ula.screen_addr + i * 8 );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>7)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>7)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>6)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>6)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>5)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>5)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>4)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>4)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>3)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>3)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>2)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>2)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>1)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>1)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>0)&1] );
- plot_pixel( bitmap, x++, scanline, pal[(pattern>>0)&1] );
- }
- m_ula.screen_addr++;
- if ( ( scanline % 10 ) == 7 )
- m_ula.screen_addr += 0x138;
- }
- break;
- }
-
- return 0;
-}
-
-
-READ8_MEMBER(accomm_state::ram_r)
-{
- uint8_t data = 0xff;
-
- if (m_ch00rom_enabled && (offset < 0x10000))
- {
- data = memregion("maincpu")->base()[offset];
- }
- else
- {
- switch (m_ram->size())
- {
- case 512 * 1024:
- data = m_ram->pointer()[offset & 0x7ffff];
- break;
-
- case 1024 * 1024:
- data = m_ram->pointer()[offset & 0xfffff];
- break;
- }
- }
- return data;
-}
-
-WRITE8_MEMBER(accomm_state::ram_w)
-{
- switch (m_ram->size())
- {
- case 512 * 1024:
- m_ram->pointer()[offset & 0x7ffff] = data;
- break;
-
- case 1024 * 1024:
- m_ram->pointer()[offset & 0xfffff] = data;
- break;
- }
-}
-
-
-READ8_MEMBER(accomm_state::sheila_r)
-{
- uint8_t data = 0;
- switch ( offset & 0x0f )
- {
- case 0x00: /* Interrupt status */
- data = m_ula.interrupt_status;
- m_ula.interrupt_status &= ~0x02;
- break;
- case 0x01: /* Unknown */
- break;
- case 0x04: /* Cassette data shift register */
- interrupt_handler(INT_CLEAR, INT_RECEIVE_FULL );
- data = m_ula.tape_byte;
- break;
- }
- logerror( "ULA: read offset %02x: %02x\n", offset, data );
- return data;
-}
-
-static const int palette_offset[4] = { 0, 4, 5, 1 };
-static const uint16_t screen_base[8] = { 0x3000, 0x3000, 0x3000, 0x4000, 0x5800, 0x5800, 0x6000, 0x5800 };
-
-WRITE8_MEMBER(accomm_state::sheila_w)
-{
- int i = palette_offset[(( offset >> 1 ) & 0x03)];
- logerror( "ULA: write offset %02x <- %02x\n", offset & 0x0f, data );
- switch( offset & 0x0f )
- {
- case 0x00: /* Interrupt control */
- m_ula.interrupt_control = data;
- break;
- case 0x01: /* Unknown */
- break;
- case 0x02: /* Screen start address #1 */
- m_ula.screen_start = ( m_ula.screen_start & 0x7e00 ) | ( ( data & 0xe0 ) << 1 );
- logerror( "screen_start changed to %04x\n", m_ula.screen_start );
- break;
- case 0x03: /* Screen start address #2 */
- m_ula.screen_start = ( m_ula.screen_start & 0x1c0 ) | ( ( data & 0x3f ) << 9 );
- logerror( "screen_start changed to %04x\n", m_ula.screen_start );
- break;
- case 0x04: /* Cassette data shift register */
- break;
- case 0x05: /* Interrupt clear and paging */
- /* rom page requests are honoured when currently bank 0-7 or 12-15 is switched in,
- * or when 8-11 is currently switched in only switching to bank 8-15 is allowed.
- *
- * Rompages 10 and 11 both select the Basic ROM.
- * Rompages 8 and 9 both select the keyboard.
- */
- if ( ( ( m_ula.rompage & 0x0C ) != 0x08 ) || ( data & 0x08 ) )
- {
- m_ula.rompage = data & 0x0f;
- }
- if ( data & 0x10 )
- {
- interrupt_handler( INT_CLEAR, INT_DISPLAY_END );
- }
- if ( data & 0x20 )
- {
- interrupt_handler( INT_CLEAR, INT_RTC );
- }
- if ( data & 0x40 )
- {
- interrupt_handler( INT_CLEAR, INT_HIGH_TONE );
- }
- if ( data & 0x80 )
- {
- }
- break;
- case 0x06: /* Counter divider */
- if ( m_ula.communication_mode == 0x01)
- {
- /* GUESS
- * the Electron Advanced Users manual says this is the correct algorithm
- * but the divider is wrong(?), says 16 but results in high pitch,
- * 32 is more close
- */
- m_beeper->set_clock( 1000000 / ( 32 * ( data + 1 ) ) );
- }
- break;
- case 0x07: /* Misc. */
- m_ula.communication_mode = ( data >> 1 ) & 0x03;
- switch( m_ula.communication_mode )
- {
- case 0x00: /* cassette input */
- m_beeper->set_state( 0 );
- break;
- case 0x01: /* sound generation */
- m_beeper->set_state( 1 );
- break;
- case 0x02: /* cassette output */
- m_beeper->set_state( 0 );
- break;
- case 0x03: /* not used */
- m_beeper->set_state( 0 );
- break;
- }
- m_ula.screen_mode = ( data >> 3 ) & 0x07;
- m_ula.screen_base = screen_base[ m_ula.screen_mode ];
- m_ula.screen_size = 0x8000 - m_ula.screen_base;
- m_ula.vram = (uint8_t *)m_vram.target() + m_ula.screen_base;
- logerror( "ULA: screen mode set to %d\n", m_ula.screen_mode );
- m_ula.shiftlock_mode = !BIT(data, 6);
- output().set_value("shiftlock_led", m_ula.shiftlock_mode);
- m_ula.capslock_mode = BIT(data, 7);
- output().set_value("capslock_led", m_ula.capslock_mode);
- break;
- case 0x08: case 0x0A: case 0x0C: case 0x0E:
- // video_update
- m_ula.current_pal[i+10] = (m_ula.current_pal[i+10] & 0x01) | (((data & 0x80) >> 5) | ((data & 0x08) >> 1));
- m_ula.current_pal[i+8] = (m_ula.current_pal[i+8] & 0x01) | (((data & 0x40) >> 4) | ((data & 0x04) >> 1));
- m_ula.current_pal[i+2] = (m_ula.current_pal[i+2] & 0x03) | ((data & 0x20) >> 3);
- m_ula.current_pal[i] = (m_ula.current_pal[
- i] & 0x03) | ((data & 0x10) >> 2);
- break;
- case 0x09: case 0x0B: case 0x0D: case 0x0F:
- // video_update
- m_ula.current_pal[i+10] = (m_ula.current_pal[i+10] & 0x06) | ((data & 0x08) >> 3);
- m_ula.current_pal[i+8] = (m_ula.current_pal[i+8] & 0x06) | ((data & 0x04) >> 2);
- m_ula.current_pal[i+2] = (m_ula.current_pal[i+2] & 0x04) | (((data & 0x20) >> 4) | ((data & 0x02) >> 1));
- m_ula.current_pal[i] = (m_ula.current_pal[i] & 0x04) | (((data & 0x10) >> 3) | ((data & 0x01)));
- break;
- }
-}
-
-void accomm_state::interrupt_handler(int mode, int interrupt)
-{
- if ( mode == INT_SET )
- {
- m_ula.interrupt_status |= interrupt;
- }
- else
- {
- m_ula.interrupt_status &= ~interrupt;
- }
- if ( m_ula.interrupt_status & m_ula.interrupt_control & ~0x83 )
- {
- m_ula.interrupt_status |= 0x01;
- m_maincpu->set_input_line(0, ASSERT_LINE );
- }
- else
- {
- m_ula.interrupt_status &= ~0x01;
- m_maincpu->set_input_line(0, CLEAR_LINE );
- }
-}
-
-void accomm_state::main_map(address_map &map)
-{
- map(0x000000, 0x1fffff).rw(FUNC(accomm_state::ram_r), FUNC(accomm_state::ram_w)); /* System RAM */
- map(0x200000, 0x3fffff).noprw(); /* External expansion RAM */
- map(0x400000, 0x400000).noprw(); /* MODEM */
- map(0x410000, 0x410000).ram(); /* Econet ID */
- map(0x420000, 0x42000f).m(m_via, FUNC(via6522_device::map)); /* 6522 VIA (printer etc) */
- map(0x430000, 0x430001).rw(m_acia, FUNC(acia6850_device::read), FUNC(acia6850_device::write)); /* 2641 ACIA (RS423) */
- map(0x440000, 0x44ffff).w(FUNC(accomm_state::ch00switch_w)); /* CH00SWITCH */
- map(0x450000, 0x457fff).ram().share("vram"); /* Video RAM */
- map(0x458000, 0x459fff).r(FUNC(accomm_state::read_keyboard1)); /* Video ULA */
- map(0x45a000, 0x45bfff).r(FUNC(accomm_state::read_keyboard2)); /* Video ULA */
- map(0x45fe00, 0x45feff).rw(FUNC(accomm_state::sheila_r), FUNC(accomm_state::sheila_w)); /* Video ULA */
- map(0x460000, 0x467fff).ram().share("nvram"); /* CMOS RAM */
- map(0x470000, 0x47001f).rw(m_adlc, FUNC(mc6854_device::read), FUNC(mc6854_device::write)); /* 68B54 (Econet) */
- map(0x480000, 0x7fffff).noprw(); /* Reserved */
- map(0x800000, 0xbfffff).noprw(); /* External expansion IO */
- map(0xc00000, 0xf7ffff).rom().region("ext", 0); /* External expansion ROM */
- map(0xf80000, 0xf9ffff).rom().region("maincpu", 0x060000); /* Empty (ROM Slot 3) */
- map(0xfa0000, 0xfbffff).rom().region("maincpu", 0x040000); /* ROM bank 4 (ROM Slot 2) */
- map(0xfc0000, 0xfcffff).rom().region("maincpu", 0x030000); /* ROM bank 3 (ROM Slot 1) */
- map(0xfd0000, 0xfdffff).rom().region("maincpu", 0x020000); /* ROM bank 2 (ROM Slot 1) */
- map(0xfe0000, 0xfeffff).rom().region("maincpu", 0x000000); /* ROM bank 0 (ROM Slot 0) */
- map(0xff0000, 0xffffff).rom().region("maincpu", 0x010000); /* ROM bank 1 (ROM Slot 0) */
-}
-
-static INPUT_PORTS_START( accomm )
- PORT_START("LINE1.0")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_SLASH) PORT_CHAR('/') PORT_CHAR('?')
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_P) PORT_CHAR('p') PORT_CHAR('P')
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_BACKSLASH) PORT_CHAR('_') PORT_CHAR('@')
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_MINUS) PORT_CHAR('-') PORT_CHAR('=')
-
- PORT_START("LINE1.1")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_COMMA) PORT_CHAR(',') PORT_CHAR('<')
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_I) PORT_CHAR('i') PORT_CHAR('I')
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_STOP) PORT_CHAR('.') PORT_CHAR('>')
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_9) PORT_CHAR('9') PORT_CHAR(')')
-
- PORT_START("LINE1.2")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_V) PORT_CHAR('v') PORT_CHAR('V')
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_R) PORT_CHAR('r') PORT_CHAR('R')
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_B) PORT_CHAR('b') PORT_CHAR('B')
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_5) PORT_CHAR('5') PORT_CHAR('%')
-
- PORT_START("LINE1.3")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_UNUSED)
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_UNUSED)
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_UNUSED)
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_TILDE) PORT_CHAR(UCHAR_MAMEKEY(TILDE)) PORT_NAME("Function")
-
- PORT_START("LINE1.4")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_UNUSED)
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_LSHIFT) PORT_CHAR(UCHAR_SHIFT_1)
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_UNUSED)
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_RSHIFT) PORT_CHAR(UCHAR_SHIFT_1)
-
- PORT_START("LINE1.5")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_X) PORT_CHAR('x') PORT_CHAR('X')
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_W) PORT_CHAR('w') PORT_CHAR('W')
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_C) PORT_CHAR('c') PORT_CHAR('C')
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_3) PORT_CHAR('3') PORT_CHAR('#')
-
- PORT_START("LINE1.6")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_LALT) PORT_CHAR(UCHAR_MAMEKEY(LALT)) PORT_NAME("Shift Lock")
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_TAB) PORT_CHAR(9) PORT_NAME("Tab")
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_Z) PORT_CHAR('z') PORT_CHAR('Z')
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_1) PORT_CHAR('1') PORT_CHAR('!')
-
- PORT_START("LINE1.7")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_N) PORT_CHAR('n') PORT_CHAR('N')
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_Y) PORT_CHAR('y') PORT_CHAR('Y')
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_M) PORT_CHAR('m') PORT_CHAR('M')
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_7) PORT_CHAR('7') PORT_CHAR('\'')
-
- PORT_START("LINE1.8")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_9_PAD) PORT_CHAR(UCHAR_MAMEKEY(9_PAD))
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_6_PAD) PORT_CHAR(UCHAR_MAMEKEY(6_PAD))
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_ENTER_PAD) PORT_CHAR(UCHAR_MAMEKEY(EQUALS_PAD))
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_3_PAD) PORT_CHAR(UCHAR_MAMEKEY(3_PAD))
-
- PORT_START("LINE1.9")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_DEL) PORT_CHAR(UCHAR_MAMEKEY(BACKSPACE)) PORT_NAME("Del CE")
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_END) PORT_CHAR(UCHAR_MAMEKEY(END)) PORT_NAME("Copy EE")
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_DOWN) PORT_CHAR(10) PORT_NAME(UTF8_DOWN" +")
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_HOME) PORT_CHAR(UCHAR_MAMEKEY(HOME)) PORT_NAME("Home %")
-
- PORT_START("LINE1.10")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_DEL_PAD) PORT_CHAR(UCHAR_MAMEKEY(DEL_PAD)) PORT_NAME("Keypad .")
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_4_PAD) PORT_CHAR(UCHAR_MAMEKEY(4_PAD))
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_0_PAD) PORT_CHAR(UCHAR_MAMEKEY(0_PAD))
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_1_PAD) PORT_CHAR(UCHAR_MAMEKEY(1_PAD))
-
- PORT_START("LINE1.11")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_BACKSLASH2) PORT_CHAR('\\') PORT_CHAR('|')
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_CLOSEBRACE) PORT_CHAR(']') PORT_CHAR('}')
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_F10) PORT_CHAR(UCHAR_MAMEKEY(F10)) PORT_NAME("Phone")
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_BACKSPACE) PORT_CHAR(UCHAR_MAMEKEY(ESC)) PORT_NAME("Escape")
-
- PORT_START("LINE1.12")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_F4) PORT_CHAR(UCHAR_MAMEKEY(F4))
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_F2) PORT_CHAR(UCHAR_MAMEKEY(F2))
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_F5) PORT_CHAR(UCHAR_MAMEKEY(F5))
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_F1) PORT_CHAR(UCHAR_MAMEKEY(F1))
-
- PORT_START("LINE1.13")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_UNUSED)
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_UNUSED)
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_UNUSED)
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_UNUSED)
-
- PORT_START("LINE2.0")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_QUOTE) PORT_CHAR(':') PORT_CHAR('*')
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_EQUALS) PORT_CHAR('^') PORT_CHAR('~')
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_OPENBRACE) PORT_CHAR('[') PORT_CHAR('{')
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_COLON) PORT_CHAR(';') PORT_CHAR('+')
-
- PORT_START("LINE2.1")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_L) PORT_CHAR('l') PORT_CHAR('L')
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_0) PORT_CHAR('0') PORT_CHAR(0xa3) // £
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_O) PORT_CHAR('o') PORT_CHAR('O')
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_K) PORT_CHAR('k') PORT_CHAR('K')
-
- PORT_START("LINE2.2")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_G) PORT_CHAR('g') PORT_CHAR('G')
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_6) PORT_CHAR('6') PORT_CHAR('&')
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_T) PORT_CHAR('t') PORT_CHAR('T')
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_F) PORT_CHAR('f') PORT_CHAR('F')
-
- PORT_START("LINE2.3")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_UNUSED)
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_UNUSED)
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_UNUSED)
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_ESC) PORT_NAME("Help")
-
- PORT_START("LINE2.4")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_UNUSED)
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_UNUSED)
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_UNUSED)
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_LCONTROL) PORT_CHAR(UCHAR_MAMEKEY(LCONTROL)) PORT_NAME("Ctrl")
-
- PORT_START("LINE2.5")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_D) PORT_CHAR('d') PORT_CHAR('D')
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_4) PORT_CHAR('4') PORT_CHAR('$')
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_E) PORT_CHAR('e') PORT_CHAR('E')
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_S) PORT_CHAR('s') PORT_CHAR('S')
-
- PORT_START("LINE2.6")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_A) PORT_CHAR('a') PORT_CHAR('A')
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_2) PORT_CHAR('2') PORT_CHAR('"')
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_Q) PORT_CHAR('q') PORT_CHAR('Q')
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_CAPSLOCK) PORT_CHAR(UCHAR_MAMEKEY(CAPSLOCK))
-
- PORT_START("LINE2.7")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_J) PORT_CHAR('j') PORT_CHAR('J')
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_8) PORT_CHAR('8') PORT_CHAR('(')
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_U) PORT_CHAR('u') PORT_CHAR('U')
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_H) PORT_CHAR('h') PORT_CHAR('H')
-
- PORT_START("LINE2.8")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_UNUSED)
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_UNUSED)
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_UNUSED)
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_UNUSED)
-
- PORT_START("LINE2.9")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_RIGHT) PORT_CHAR(UCHAR_MAMEKEY(RIGHT)) PORT_NAME(UTF8_RIGHT" -")
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_INSERT) PORT_CHAR(UCHAR_MAMEKEY(INSERT)) PORT_NAME("Insert " UTF8_DIVIDE)
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_UP) PORT_CHAR(UCHAR_MAMEKEY(UP)) PORT_NAME(UTF8_UP" " UTF8_MULTIPLY)
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_LEFT) PORT_CHAR(UCHAR_MAMEKEY(LEFT)) PORT_NAME(UTF8_LEFT" AC")
-
- PORT_START("LINE2.10")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_8_PAD) PORT_CHAR(UCHAR_MAMEKEY(8_PAD))
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_2_PAD) PORT_CHAR(UCHAR_MAMEKEY(2_PAD))
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_5_PAD) PORT_CHAR(UCHAR_MAMEKEY(5_PAD))
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_7_PAD) PORT_CHAR(UCHAR_MAMEKEY(7_PAD))
-
- PORT_START("LINE2.11")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_F9) PORT_CHAR(UCHAR_MAMEKEY(F9)) PORT_NAME("Stop")
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_SPACE) PORT_CHAR(' ')
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_F12) PORT_CHAR(UCHAR_MAMEKEY(F12)) PORT_NAME("Calc")
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_ENTER) PORT_CHAR(13)
-
- PORT_START("LINE2.12")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_F6) PORT_CHAR(UCHAR_MAMEKEY(F6))
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_F8) PORT_CHAR(UCHAR_MAMEKEY(F8))
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_F7) PORT_CHAR(UCHAR_MAMEKEY(F7))
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD) PORT_CODE(KEYCODE_F3) PORT_CHAR(UCHAR_MAMEKEY(F3))
-
- PORT_START("LINE2.13")
- PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_UNUSED)
- PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_UNUSED)
- PORT_BIT(0x04, IP_ACTIVE_HIGH, IPT_UNUSED)
- PORT_BIT(0x08, IP_ACTIVE_HIGH, IPT_UNUSED)
-INPUT_PORTS_END
-
-void accomm_state::accomm(machine_config &config)
-{
- G65816(config, m_maincpu, 16_MHz_XTAL / 8);
- m_maincpu->set_addrmap(AS_PROGRAM, &accomm_state::main_map);
- m_maincpu->set_vblank_int("screen", FUNC(accomm_state::vbl_int));
-
- screen_device &screen(SCREEN(config, "screen", SCREEN_TYPE_RASTER));
- screen.set_refresh_hz(50.08);
- screen.set_size(640, 312);
- screen.set_visarea(0, 640 - 1, 0, 256 - 1);
- screen.set_screen_update(FUNC(accomm_state::screen_update));
- screen.set_video_attributes(VIDEO_UPDATE_SCANLINE);
- screen.set_palette("palette");
-
- PALETTE(config, "palette", FUNC(accomm_state::accomm_palette), 16);
-
- config.set_default_layout(layout_accomm);
-
- /* internal ram */
- RAM(config, RAM_TAG).set_default_size("512K").set_extra_options("1M");
-
- NVRAM(config, "nvram", nvram_device::DEFAULT_ALL_0);
-
- /* sound */
- SPEAKER(config, "mono").front_center();
- BEEP(config, m_beeper, 300).add_route(ALL_OUTPUTS, "mono", 1.00);
-
- /* rtc pcf8573 */
-
- /* via */
- VIA6522(config, m_via, 16_MHz_XTAL / 16);
- m_via->writepa_handler().set("cent_data_out", FUNC(output_latch_device::bus_w));
- m_via->ca2_handler().set("centronics", FUNC(centronics_device::write_strobe));
-
- /* acia */
- ACIA6850(config, m_acia, 0);
- m_acia->txd_handler().set("serial", FUNC(rs232_port_device::write_txd));
- m_acia->rts_handler().set("serial", FUNC(rs232_port_device::write_rts));
- m_acia->irq_handler().set_inputline("maincpu", G65816_LINE_IRQ);
-
- rs232_port_device &serial(RS232_PORT(config, "serial", default_rs232_devices, nullptr));
- serial.rxd_handler().set(m_acia, FUNC(acia6850_device::write_rxd));
- serial.dcd_handler().set(m_acia, FUNC(acia6850_device::write_dcd));
- serial.cts_handler().set(m_acia, FUNC(acia6850_device::write_cts));
-
- CLOCK(config, m_acia_clock, 16_MHz_XTAL / 13);
- m_acia_clock->signal_handler().set(m_acia, FUNC(acia6850_device::write_txc));
- m_acia_clock->signal_handler().append(m_acia, FUNC(acia6850_device::write_rxc));
-
- /* econet */
- MC6854(config, m_adlc);
- m_adlc->out_txd_cb().set("econet", FUNC(econet_device::host_data_w));
- m_adlc->out_irq_cb().set_inputline(m_maincpu, G65816_LINE_NMI);
-
- econet_device &econet(ECONET(config, "econet", 0));
- econet.clk_wr_callback().set(m_adlc, FUNC(mc6854_device::txc_w));
- econet.clk_wr_callback().append(m_adlc, FUNC(mc6854_device::rxc_w));
- econet.data_wr_callback().set(m_adlc, FUNC(mc6854_device::set_rx));
-
- ECONET_SLOT(config, "econet254", "econet", econet_devices).set_slot(254);
-
- /* printer */
- centronics_device &centronics(CENTRONICS(config, "centronics", centronics_devices, "printer"));
- centronics.ack_handler().set(m_via, FUNC(via6522_device::write_ca1));
- output_latch_device &cent_data_out(OUTPUT_LATCH(config, "cent_data_out"));
- centronics.set_output_latch(cent_data_out);
-}
-
-ROM_START(accomm)
- ROM_REGION(0x80000, "maincpu", 0)
- ROM_DEFAULT_BIOS("100")
- ROM_SYSTEM_BIOS(0, "100", "MOS v1.00 13/Nov/86") /* MOS: Version 1.00 13/Nov/86 (C)1986 */
- ROMX_LOAD("romv100-0.rom", 0x000000, 0x010000, CRC(6d22950d) SHA1(d4cbdccf8d2bc836fb81182b2ed344d7134fe5c9), ROM_BIOS(0))
- ROM_RELOAD( 0x010000, 0x010000)
- ROMX_LOAD("romv100-1.rom", 0x020000, 0x010000, CRC(adc6a073) SHA1(3e87f21fafc1d69f33c5b541a20a98e82aacbfab), ROM_BIOS(0))
- ROM_RELOAD( 0x030000, 0x010000)
- ROMX_LOAD("romv100-2.rom", 0x040000, 0x010000, CRC(3438adee) SHA1(cd9d5522d9430cb2e1936210b77d2edd280f9419), ROM_BIOS(0))
- ROM_RELOAD( 0x050000, 0x010000)
- ROMX_LOAD("romv100-3.rom", 0x060000, 0x010000, CRC(bd87a157) SHA1(b9b9ed1aab9ffef2de988b2cfeac293afa11448a), ROM_BIOS(0))
- ROM_RELOAD( 0x070000, 0x010000)
-
- ROM_REGION(0x380000, "ext", ROMREGION_ERASEFF)
-ROM_END
-
-ROM_START(accommp)
- ROM_REGION(0x80000, "maincpu", 0)
- /* ROM labels on both evaluation prototypes were hand written A, B, C, D */
- ROM_DEFAULT_BIOS("011-1985")
- /* Serial B01-PPC01-0000004 (owned by Acorn co-founder Chris Curry) */
- ROM_SYSTEM_BIOS(0, "011-1985", "CMOS v0.11 1985") /* CMOS version 0.11 October (C)1985 */
- ROMX_LOAD("004-a.rom", 0x000000, 0x008000, CRC(d0d4d5e3) SHA1(67710e349235ed5c71380b5a7d4b570ce355b10e), ROM_BIOS(0))
- ROM_RELOAD( 0x008000, 0x008000)
- ROM_RELOAD( 0x010000, 0x008000)
- ROM_RELOAD( 0x018000, 0x008000)
- ROMX_LOAD("004-b.rom", 0x020000, 0x010000, CRC(e2fcef94) SHA1(fd065bcdb6c48bee39db9f71b8d193ee228557f7), ROM_BIOS(0))
- ROM_RELOAD( 0x030000, 0x010000)
- ROMX_LOAD("004-c.rom", 0x040000, 0x008000, CRC(348c0018) SHA1(9681b6b9eefa9ba294fac6a41dec12ba203e5142), ROM_BIOS(0))
- ROM_RELOAD( 0x048000, 0x008000)
- ROM_RELOAD( 0x050000, 0x008000)
- ROM_RELOAD( 0x058000, 0x008000)
- ROMX_LOAD("004-d.rom", 0x060000, 0x010000, CRC(1379eb9f) SHA1(8d57bc7e279c5f17c6f0e4d1d5fa7f784aadd549), ROM_BIOS(0))
- ROM_RELOAD( 0x070000, 0x010000)
- /* Serial ending 094 */
- ROM_SYSTEM_BIOS(1, "011-1986", "CMOS v0.11 1986") /* CMOS version 0.11 October (C)1985 */
- ROMX_LOAD("094-a.rom", 0x008000, 0x008000, CRC(d0d4d5e3) SHA1(67710e349235ed5c71380b5a7d4b570ce355b10e), ROM_BIOS(1))
- ROM_RELOAD( 0x008000, 0x008000)
- ROM_RELOAD( 0x010000, 0x008000)
- ROM_RELOAD( 0x018000, 0x008000)
- ROMX_LOAD("094-b.rom", 0x020000, 0x008000, CRC(8d793909) SHA1(392028386f831dfae3353e0b7b51a608798e89c6), ROM_BIOS(1))
- ROM_RELOAD( 0x028000, 0x008000)
- ROM_RELOAD( 0x030000, 0x008000)
- ROM_RELOAD( 0x038000, 0x008000)
- ROMX_LOAD("094-c.rom", 0x040000, 0x008000, CRC(e544e849) SHA1(31cd2dcd2a50880a97b12d61ef144f7d7f112345), ROM_BIOS(1))
- ROM_RELOAD( 0x048000, 0x008000)
- ROM_RELOAD( 0x050000, 0x008000)
- ROM_RELOAD( 0x058000, 0x008000)
- ROMX_LOAD("094-d-view+castoff.rom", 0x060000, 0x010000, CRC(8027df77) SHA1(51751bfdcf68683c092b6442fb22f11cb565898c), ROM_BIOS(1))
- ROM_RELOAD( 0x070000, 0x010000)
-
- ROM_REGION(0x380000, "ext", ROMREGION_ERASEFF)
-ROM_END
-
-ROM_START(accommb)
- ROM_REGION(0x80000, "maincpu", 0)
- ROM_DEFAULT_BIOS("170")
- ROM_SYSTEM_BIOS(0, "170", "MOS v1.70 04/Jun/87") /* MOS: Version 1.70 04/Jun/87 (C)1987 */
- ROMX_LOAD("0252.200-1-rom0-v1.00.rom", 0x000000, 0x010000, CRC(6d22950d) SHA1(d4cbdccf8d2bc836fb81182b2ed344d7134fe5c9), ROM_BIOS(0))
- ROM_RELOAD( 0x010000, 0x010000)
- ROMX_LOAD("0252.201-1-rom1-v1.00.rom", 0x020000, 0x010000, CRC(adc6a073) SHA1(3e87f21fafc1d69f33c5b541a20a98e82aacbfab), ROM_BIOS(0))
- ROM_RELOAD( 0x030000, 0x010000)
- ROMX_LOAD("0252.202-1-rom2-v1.00.rom", 0x040000, 0x010000, CRC(3438adee) SHA1(cd9d5522d9430cb2e1936210b77d2edd280f9419), ROM_BIOS(0))
- ROM_RELOAD( 0x050000, 0x010000)
- ROMX_LOAD("0252.203-1-rom3-v1.00.rom", 0x060000, 0x010000, CRC(bd87a157) SHA1(b9b9ed1aab9ffef2de988b2cfeac293afa11448a), ROM_BIOS(0))
- ROM_RELOAD( 0x070000, 0x010000)
-
- /* Expansion board: Acorn Computer 0167,000 Issue 1 Spectar II */
- /* Contains 8 slots for ASTRON Data Cards */
- ROM_REGION(0x380000, "ext", ROMREGION_ERASEFF)
- ROM_LOAD("spectar-v1.0-0267-200-03.ic1", 0x000000, 0x010000, CRC(71ad0491) SHA1(c3ace8cdd2383e97eb58d64d011444da678d537c))
-ROM_END
-
-ROM_START(accommi)
- ROM_REGION(0x80000, "maincpu", 0)
- ROM_DEFAULT_BIOS("300")
- ROM_SYSTEM_BIOS(0, "300", "MOS v3.00 13/gen/88") /* MOS: Versione 3.00 13/gen/88 (C)1988 */
- ROMX_LOAD("rom0.rom", 0x000000, 0x020000, CRC(841bd984) SHA1(2c3bc77178e5bf0342e0410f6c398bb3ac40d0c4), ROM_BIOS(0))
- ROMX_LOAD("252216-iss1.rom", 0x020000, 0x020000, CRC(40767d31) SHA1(258f4ed92d74523aaaa4aa250db5a99428aaf960), ROM_BIOS(0))
- ROMX_LOAD("rom2.rom", 0x040000, 0x010000, CRC(e3511af8) SHA1(88a5654a5e84a31078a0a64139fe84db08196c2a), ROM_BIOS(0))
- ROM_RELOAD( 0x050000, 0x010000)
-
- ROM_REGION(0x380000, "ext", ROMREGION_ERASEFF)
-ROM_END
-
-COMP( 1986, accomm, 0, 0, accomm, accomm, accomm_state, empty_init, "Acorn", "Acorn Communicator", MACHINE_NOT_WORKING )
-COMP( 1985, accommp, accomm, 0, accomm, accomm, accomm_state, empty_init, "Acorn", "Acorn Communicator (prototype)", MACHINE_NOT_WORKING )
-COMP( 1987, accommb, accomm, 0, accomm, accomm, accomm_state, empty_init, "Acorn", "Acorn Briefcase Communicator", MACHINE_NOT_WORKING )
-COMP( 1988, accommi, accomm, 0, accomm, accomm, accomm_state, empty_init, "Acorn", "Acorn Communicator (Italian)", MACHINE_NOT_WORKING )