mirror of
https://github.com/holub/mame
synced 2025-04-23 17:00:53 +03:00
(MESS) sapi1 : cleanup & wip (nw)
This commit is contained in:
Robbbert
parent
e37ca06fb2
commit
2d638006fa
@ -2,16 +2,16 @@
|
||||
|
||||
SAPI-1 driver by Miodrag Milanovic
|
||||
|
||||
09/09/2008 Preliminary driver.
|
||||
2008-09-09 Preliminary driver.
|
||||
|
||||
07/12/2010 Added some code to allow sapizps3 to read its rom.
|
||||
2010-12-07 Added some code to allow sapizps3 to read its rom.
|
||||
With no available docs, the i/o ports are a guess. The ram
|
||||
allocation is based on the actions of the various bios roms.
|
||||
Port 25 is used as a jump vector. in a,(25); ld l,a; jp(hl).
|
||||
According to wikipedia, e800+ is the videoram area, and the
|
||||
number of columns is 64.
|
||||
|
||||
19/04/2012 Connected sapizps3 to a terminal. It is trying to
|
||||
2012-04-19 Connected sapizps3 to a terminal. It is trying to
|
||||
load a 128-byte boot sector from a floppy disk.
|
||||
Modernised driver.
|
||||
Connected sapizps2 to ascii keyboard. System is now usable.
|
||||
@ -21,38 +21,132 @@
|
||||
****************************************************************************/
|
||||
|
||||
|
||||
#include "includes/sapi1.h"
|
||||
#include "emu.h"
|
||||
#include "cpu/i8085/i8085.h"
|
||||
#include "cpu/z80/z80.h"
|
||||
#include "video/mc6845.h"
|
||||
#include "machine/ram.h"
|
||||
#include "machine/keyboard.h"
|
||||
#include "machine/terminal.h"
|
||||
|
||||
|
||||
/* switch out the rom shadow */
|
||||
WRITE8_MEMBER( sapi1_state::sapi3_00_w )
|
||||
class sapi1_state : public driver_device
|
||||
{
|
||||
m_bank1->set_entry(0);
|
||||
}
|
||||
public:
|
||||
sapi1_state(const machine_config &mconfig, device_type type, const char *tag)
|
||||
: driver_device(mconfig, type, tag)
|
||||
, m_p_videoram(*this, "videoram")
|
||||
, m_bank1(*this, "bank1")
|
||||
, m_line0(*this, "LINE0")
|
||||
, m_line1(*this, "LINE1")
|
||||
, m_line2(*this, "LINE2")
|
||||
, m_line3(*this, "LINE3")
|
||||
, m_line4(*this, "LINE4")
|
||||
, m_maincpu(*this, "maincpu")
|
||||
{ }
|
||||
|
||||
READ8_MEMBER( sapi1_state::sapi2_keyboard_status_r)
|
||||
{
|
||||
return (m_term_data) ? 0 : 1;
|
||||
}
|
||||
optional_shared_ptr<UINT8> m_p_videoram;
|
||||
DECLARE_READ8_MEMBER(sapi1_keyboard_r);
|
||||
DECLARE_WRITE8_MEMBER(sapi1_keyboard_w);
|
||||
DECLARE_READ8_MEMBER(sapi2_keyboard_status_r);
|
||||
DECLARE_READ8_MEMBER(sapi2_keyboard_data_r);
|
||||
DECLARE_WRITE8_MEMBER(sapi3_00_w);
|
||||
DECLARE_READ8_MEMBER(sapi3_25_r);
|
||||
DECLARE_WRITE8_MEMBER(sapi3_25_w);
|
||||
DECLARE_WRITE8_MEMBER(kbd_put);
|
||||
DECLARE_DRIVER_INIT(sapizps3);
|
||||
DECLARE_DRIVER_INIT(sapizps3a);
|
||||
DECLARE_DRIVER_INIT(sapizps3b);
|
||||
DECLARE_MACHINE_RESET(sapi1);
|
||||
DECLARE_MACHINE_RESET(sapizps3);
|
||||
UINT32 screen_update_sapi1(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect);
|
||||
private:
|
||||
UINT8 m_term_data;
|
||||
UINT8 m_keyboard_mask;
|
||||
UINT8 m_refresh_counter;
|
||||
UINT8 m_zps3_25;
|
||||
optional_memory_bank m_bank1; // Only for sapi3
|
||||
required_ioport m_line0;
|
||||
required_ioport m_line1;
|
||||
required_ioport m_line2;
|
||||
required_ioport m_line3;
|
||||
required_ioport m_line4;
|
||||
required_device<cpu_device> m_maincpu;
|
||||
};
|
||||
|
||||
READ8_MEMBER( sapi1_state::sapi2_keyboard_data_r)
|
||||
{
|
||||
UINT8 ret = ~m_term_data;
|
||||
m_term_data = 0;
|
||||
return ret;
|
||||
}
|
||||
static const UINT8 MHB2501[] = {
|
||||
0x0c,0x11,0x13,0x15,0x17,0x10,0x0e,0x00, // @
|
||||
0x04,0x0a,0x11,0x11,0x1f,0x11,0x11,0x00, // A
|
||||
0x1e,0x11,0x11,0x1e,0x11,0x11,0x1e,0x00, // B
|
||||
0x0e,0x11,0x10,0x10,0x10,0x11,0x0e,0x00, // C
|
||||
0x1e,0x09,0x09,0x09,0x09,0x09,0x1e,0x00, // D
|
||||
0x1f,0x10,0x10,0x1e,0x10,0x10,0x1f,0x00, // E
|
||||
0x1f,0x10,0x10,0x1e,0x10,0x10,0x10,0x00, // F
|
||||
0x0e,0x11,0x10,0x10,0x13,0x11,0x0f,0x00, // G
|
||||
|
||||
/* to stop execution in random ram */
|
||||
READ8_MEMBER( sapi1_state::sapi3_25_r )
|
||||
{
|
||||
return m_zps3_25;
|
||||
}
|
||||
0x11,0x11,0x11,0x1f,0x11,0x11,0x11,0x00, // H
|
||||
0x0e,0x04,0x04,0x04,0x04,0x04,0x0e,0x00, // I
|
||||
0x01,0x01,0x01,0x01,0x11,0x11,0x0e,0x00, // J
|
||||
0x11,0x12,0x14,0x18,0x14,0x12,0x11,0x00, // K
|
||||
0x10,0x10,0x10,0x10,0x10,0x10,0x1f,0x00, // L
|
||||
0x11,0x1b,0x15,0x15,0x11,0x11,0x11,0x00, // M
|
||||
0x11,0x11,0x19,0x15,0x13,0x11,0x11,0x00, // N
|
||||
0x0e,0x11,0x11,0x11,0x11,0x11,0x0e,0x00, // O
|
||||
|
||||
WRITE8_MEMBER( sapi1_state::sapi3_25_w )
|
||||
{
|
||||
m_zps3_25 = data & 0xfc; //??
|
||||
}
|
||||
0x1e,0x11,0x11,0x1e,0x10,0x10,0x10,0x00, // P
|
||||
0x0e,0x11,0x11,0x11,0x15,0x12,0x0d,0x00, // Q
|
||||
0x1e,0x11,0x11,0x1e,0x14,0x12,0x11,0x00, // R
|
||||
0x0e,0x11,0x10,0x0e,0x01,0x11,0x0e,0x00, // S
|
||||
0x1f,0x04,0x04,0x04,0x04,0x04,0x04,0x00, // T
|
||||
0x11,0x11,0x11,0x11,0x11,0x11,0x0e,0x00, // U
|
||||
0x11,0x11,0x11,0x0a,0x0a,0x04,0x04,0x00, // V
|
||||
0x11,0x11,0x11,0x15,0x15,0x15,0x0a,0x00, // W
|
||||
|
||||
0x11,0x11,0x0a,0x04,0x0a,0x11,0x11,0x00, // X
|
||||
0x11,0x11,0x0a,0x04,0x04,0x04,0x04,0x00, // Y
|
||||
0x1f,0x01,0x02,0x04,0x08,0x10,0x1f,0x00, // Z
|
||||
0x1c,0x10,0x10,0x10,0x10,0x10,0x1c,0x00, // [
|
||||
0x00,0x10,0x08,0x04,0x02,0x01,0x00,0x00, // backslash
|
||||
0x07,0x01,0x01,0x01,0x01,0x01,0x07,0x00, // ]
|
||||
0x0e,0x11,0x00,0x00,0x00,0x00,0x00,0x00, // ^
|
||||
0x00,0x00,0x00,0x00,0x00,0x00,0x1f,0x00, // _
|
||||
|
||||
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00, //
|
||||
0x04,0x04,0x04,0x04,0x04,0x00,0x04,0x00, // !
|
||||
0x0a,0x0a,0x0a,0x00,0x00,0x00,0x00,0x00, // "
|
||||
0x0a,0x0a,0x1f,0x0a,0x1f,0x0a,0x0a,0x00, // #
|
||||
0x00,0x11,0x0e,0x0a,0x0e,0x11,0x00,0x00, //
|
||||
0x18,0x19,0x02,0x04,0x08,0x13,0x03,0x00, // %
|
||||
0x04,0x0a,0x0a,0x0c,0x15,0x12,0x0d,0x00, // &
|
||||
0x04,0x04,0x08,0x00,0x00,0x00,0x00,0x00, // '
|
||||
|
||||
0x02,0x04,0x08,0x08,0x08,0x04,0x02,0x00, // (
|
||||
0x08,0x04,0x02,0x02,0x02,0x04,0x08,0x00, // )
|
||||
0x00,0x04,0x15,0x0e,0x15,0x04,0x00,0x00, // *
|
||||
0x00,0x04,0x04,0x1f,0x04,0x04,0x00,0x00, // +
|
||||
0x00,0x00,0x00,0x00,0x08,0x08,0x10,0x00, // ,
|
||||
0x00,0x00,0x00,0x1f,0x00,0x00,0x00,0x00, // -
|
||||
0x00,0x00,0x00,0x00,0x00,0x00,0x08,0x00, // .
|
||||
0x00,0x01,0x02,0x04,0x08,0x10,0x00,0x00, // /
|
||||
|
||||
0x0e,0x11,0x13,0x15,0x19,0x11,0x0e,0x00, // 0
|
||||
0x04,0x0c,0x04,0x04,0x04,0x04,0x0e,0x00, // 1
|
||||
0x0e,0x11,0x01,0x06,0x08,0x10,0x1f,0x00, // 2
|
||||
0x1f,0x01,0x02,0x06,0x01,0x11,0x0e,0x00, // 3
|
||||
0x02,0x06,0x0a,0x12,0x1f,0x02,0x02,0x00, // 4
|
||||
0x1f,0x10,0x1e,0x01,0x01,0x11,0x0e,0x00, // 5
|
||||
0x07,0x08,0x10,0x1e,0x11,0x11,0x0e,0x00, // 6
|
||||
0x1f,0x01,0x02,0x04,0x08,0x08,0x08,0x00, // 7
|
||||
|
||||
0x0e,0x11,0x11,0x0e,0x11,0x11,0x0e,0x00, // 8
|
||||
0x0e,0x11,0x11,0x0f,0x01,0x02,0x1c,0x00, // 9
|
||||
0x00,0x00,0x00,0x00,0x08,0x00,0x08,0x00, // :
|
||||
0x00,0x00,0x04,0x00,0x04,0x04,0x08,0x00, // ;
|
||||
0x02,0x04,0x08,0x10,0x08,0x04,0x02,0x00, // <
|
||||
0x00,0x00,0x1f,0x00,0x1f,0x00,0x00,0x00, // =
|
||||
0x08,0x04,0x02,0x01,0x02,0x04,0x08,0x00, // >
|
||||
0x0e,0x11,0x01,0x02,0x04,0x00,0x04,0x00 // ?
|
||||
};
|
||||
|
||||
|
||||
/* Address maps */
|
||||
@ -65,37 +159,51 @@ static ADDRESS_MAP_START(sapi1_mem, AS_PROGRAM, 8, sapi1_state )
|
||||
//AM_RANGE(0x2800, 0x2bff) AM_NOP // PORT 1
|
||||
//AM_RANGE(0x2c00, 0x2fff) AM_NOP // PORT 2
|
||||
//AM_RANGE(0x3000, 0x33ff) AM_NOP // 3214
|
||||
AM_RANGE(0x3800, 0x3fff) AM_RAM AM_SHARE("sapi_video_ram") // AND-1 (video RAM)
|
||||
AM_RANGE(0x3800, 0x3fff) AM_RAM AM_SHARE("videoram") // AND-1 (video RAM)
|
||||
AM_RANGE(0x4000, 0x7fff) AM_RAM // REM-1
|
||||
ADDRESS_MAP_END
|
||||
|
||||
static ADDRESS_MAP_START( sapi1_io, AS_IO, 8, sapi1_state )
|
||||
ADDRESS_MAP_UNMAP_HIGH
|
||||
ADDRESS_MAP_GLOBAL_MASK(0xff)
|
||||
ADDRESS_MAP_END
|
||||
|
||||
static ADDRESS_MAP_START(sapi2_mem, AS_PROGRAM, 8, sapi1_state )
|
||||
ADDRESS_MAP_UNMAP_HIGH
|
||||
AM_RANGE(0x0000, 0x0fff) AM_ROM
|
||||
AM_RANGE(0x1000, 0x1fff) AM_ROM // Extension ROM
|
||||
AM_RANGE(0x2000, 0x23ff) AM_RAM
|
||||
AM_RANGE(0x2700, 0x27ff) AM_READ(sapi2_keyboard_status_r)
|
||||
AM_RANGE(0x2400, 0x27ff) AM_READ(sapi2_keyboard_status_r)
|
||||
AM_RANGE(0x2800, 0x28ff) AM_READ(sapi2_keyboard_data_r)
|
||||
AM_RANGE(0x3800, 0x3fff) AM_RAM AM_SHARE("sapi_video_ram") // AND-1 (video RAM)
|
||||
AM_RANGE(0x3800, 0x3fff) AM_RAM AM_SHARE("videoram") // AND-1 (video RAM)
|
||||
AM_RANGE(0x4000, 0x7fff) AM_RAM // REM-1
|
||||
ADDRESS_MAP_END
|
||||
|
||||
static ADDRESS_MAP_START(sapi3_mem, AS_PROGRAM, 8, sapi1_state )
|
||||
ADDRESS_MAP_UNMAP_HIGH
|
||||
AM_RANGE(0x0000, 0x07ff) AM_RAM AM_RAMBANK("bank1")
|
||||
AM_RANGE(0x0800, 0xe7ff) AM_RAM
|
||||
AM_RANGE(0xe800, 0xefff) AM_RAM AM_SHARE("sapi_video_ram")
|
||||
AM_RANGE(0xf000, 0xf7ff) AM_RAM
|
||||
AM_RANGE(0x0800, 0xf7ff) AM_RAM
|
||||
AM_RANGE(0xf800, 0xffff) AM_RAM AM_SHARE("videoram")
|
||||
ADDRESS_MAP_END
|
||||
|
||||
static ADDRESS_MAP_START(sapi3a_mem, AS_PROGRAM, 8, sapi1_state )
|
||||
ADDRESS_MAP_UNMAP_HIGH
|
||||
AM_RANGE(0x0000, 0x07ff) AM_RAM AM_RAMBANK("bank1")
|
||||
AM_RANGE(0x0800, 0xf7ff) AM_RAM
|
||||
AM_RANGE(0xf800, 0xfdff) AM_ROM
|
||||
AM_RANGE(0xfe00, 0xffff) AM_RAM
|
||||
ADDRESS_MAP_END
|
||||
|
||||
static ADDRESS_MAP_START(sapi3b_mem, AS_PROGRAM, 8, sapi1_state )
|
||||
ADDRESS_MAP_UNMAP_HIGH
|
||||
AM_RANGE(0x0000, 0x07ff) AM_RAM AM_RAMBANK("bank1")
|
||||
AM_RANGE(0x0800, 0xf7ff) AM_RAM
|
||||
AM_RANGE(0xf800, 0xffff) AM_RAM AM_SHARE("videoram")
|
||||
ADDRESS_MAP_END
|
||||
|
||||
static ADDRESS_MAP_START( sapi3_io, AS_IO, 8, sapi1_state )
|
||||
ADDRESS_MAP_UNMAP_HIGH
|
||||
ADDRESS_MAP_GLOBAL_MASK(0xff)
|
||||
AM_RANGE(0x00, 0x00) AM_WRITE(sapi3_00_w)
|
||||
AM_RANGE(0x25, 0x25) AM_READWRITE(sapi3_25_r,sapi3_25_w)
|
||||
ADDRESS_MAP_END
|
||||
|
||||
static ADDRESS_MAP_START( sapi3a_io, AS_IO, 8, sapi1_state )
|
||||
ADDRESS_MAP_UNMAP_HIGH
|
||||
ADDRESS_MAP_GLOBAL_MASK(0xff)
|
||||
AM_RANGE(0x00, 0x00) AM_WRITE(sapi3_00_w)
|
||||
@ -103,6 +211,15 @@ static ADDRESS_MAP_START( sapi3_io, AS_IO, 8, sapi1_state )
|
||||
AM_RANGE(0x25, 0x25) AM_READWRITE(sapi3_25_r,sapi3_25_w)
|
||||
ADDRESS_MAP_END
|
||||
|
||||
static ADDRESS_MAP_START( sapi3b_io, AS_IO, 8, sapi1_state )
|
||||
ADDRESS_MAP_UNMAP_HIGH
|
||||
ADDRESS_MAP_GLOBAL_MASK(0xff)
|
||||
AM_RANGE(0x00, 0x00) AM_WRITE(sapi3_00_w)
|
||||
AM_RANGE(0x25, 0x25) AM_READWRITE(sapi3_25_r,sapi3_25_w)
|
||||
AM_RANGE(0xe0, 0xe0) AM_DEVREADWRITE("crtc", mc6845_device, status_r, address_w)
|
||||
AM_RANGE(0xe1, 0xe1) AM_DEVREADWRITE("crtc", mc6845_device, register_r, register_w)
|
||||
ADDRESS_MAP_END
|
||||
|
||||
/* Input ports */
|
||||
static INPUT_PORTS_START( sapi1 )
|
||||
PORT_START("LINE0")
|
||||
@ -156,6 +273,121 @@ static INPUT_PORTS_START( sapi1 )
|
||||
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_0) PORT_CHAR('0') PORT_CHAR(')')
|
||||
INPUT_PORTS_END
|
||||
|
||||
|
||||
|
||||
/**************************************
|
||||
|
||||
Video
|
||||
|
||||
**************************************/
|
||||
|
||||
UINT32 sapi1_state::screen_update_sapi1(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect)
|
||||
{
|
||||
int x,y,j,b;
|
||||
bool val;
|
||||
UINT16 addr;
|
||||
int xpos;
|
||||
|
||||
for(y = 0; y < 24; y++ )
|
||||
{
|
||||
addr = y*64;
|
||||
xpos = 0;
|
||||
for(x = 0; x < 40; x++ )
|
||||
{
|
||||
UINT8 code = m_p_videoram[addr + x];
|
||||
UINT8 attr = (code >> 6) & 3;
|
||||
code &= 0x3f;
|
||||
for(j = 0; j < 9; j++ )
|
||||
{
|
||||
for(b = 0; b < 6; b++ )
|
||||
{
|
||||
val = 0;
|
||||
|
||||
if (j==8)
|
||||
{
|
||||
if (attr==2)
|
||||
val = BIT(m_refresh_counter, 5);
|
||||
}
|
||||
else
|
||||
{
|
||||
val = BIT(MHB2501[code*8 + j], 5-b);
|
||||
if (attr==1)
|
||||
val = BIT(m_refresh_counter, 5) ? val : 0;
|
||||
}
|
||||
|
||||
if(attr==3)
|
||||
{
|
||||
bitmap.pix16(y*9+j, xpos+2*b ) = val;
|
||||
bitmap.pix16(y*9+j, xpos+2*b+1 ) = val;
|
||||
}
|
||||
else
|
||||
{
|
||||
bitmap.pix16(y*9+j, xpos+b ) = val;
|
||||
}
|
||||
}
|
||||
}
|
||||
xpos+= (attr==3) ? 12 : 6;
|
||||
if (xpos>=6*40) break;
|
||||
}
|
||||
}
|
||||
m_refresh_counter++;
|
||||
return 0;
|
||||
}
|
||||
|
||||
static MC6845_UPDATE_ROW( update_row )
|
||||
{
|
||||
}
|
||||
|
||||
static MC6845_INTERFACE( mc6845_intf )
|
||||
{
|
||||
false, /* show border area */
|
||||
6, /* number of pixels per video memory address */
|
||||
NULL, /* before pixel update callback */
|
||||
update_row, /* row update callback */
|
||||
NULL, /* after pixel update callback */
|
||||
DEVCB_NULL, /* callback for display state changes */
|
||||
DEVCB_NULL, /* callback for cursor state changes */
|
||||
DEVCB_NULL, /* HSYNC callback */
|
||||
DEVCB_NULL, /* VSYNC callback */
|
||||
NULL /* update address callback */
|
||||
};
|
||||
|
||||
|
||||
|
||||
/**************************************
|
||||
|
||||
Keyboard
|
||||
|
||||
**************************************/
|
||||
|
||||
READ8_MEMBER( sapi1_state::sapi1_keyboard_r )
|
||||
{
|
||||
UINT8 key = 0xff;
|
||||
if (BIT(m_keyboard_mask, 0)) { key &= m_line0->read(); }
|
||||
if (BIT(m_keyboard_mask, 1)) { key &= m_line1->read(); }
|
||||
if (BIT(m_keyboard_mask, 2)) { key &= m_line2->read(); }
|
||||
if (BIT(m_keyboard_mask, 3)) { key &= m_line3->read(); }
|
||||
if (BIT(m_keyboard_mask, 4)) { key &= m_line4->read(); }
|
||||
return key;
|
||||
}
|
||||
|
||||
WRITE8_MEMBER( sapi1_state::sapi1_keyboard_w )
|
||||
{
|
||||
m_keyboard_mask = (data ^ 0xff ) & 0x1f;
|
||||
}
|
||||
|
||||
READ8_MEMBER( sapi1_state::sapi2_keyboard_status_r)
|
||||
{
|
||||
return (m_term_data) ? 0 : 1;
|
||||
}
|
||||
|
||||
READ8_MEMBER( sapi1_state::sapi2_keyboard_data_r)
|
||||
{
|
||||
UINT8 ret = ~m_term_data;
|
||||
m_term_data = 0;
|
||||
return ret;
|
||||
}
|
||||
|
||||
WRITE8_MEMBER( sapi1_state::kbd_put )
|
||||
{
|
||||
m_term_data = data;
|
||||
@ -167,15 +399,67 @@ static GENERIC_TERMINAL_INTERFACE( terminal_intf )
|
||||
};
|
||||
|
||||
|
||||
|
||||
/**************************************
|
||||
|
||||
Machine
|
||||
|
||||
**************************************/
|
||||
|
||||
/* switch out the rom shadow */
|
||||
WRITE8_MEMBER( sapi1_state::sapi3_00_w )
|
||||
{
|
||||
m_bank1->set_entry(0);
|
||||
}
|
||||
|
||||
/* to stop execution in random ram */
|
||||
READ8_MEMBER( sapi1_state::sapi3_25_r )
|
||||
{
|
||||
return m_zps3_25;
|
||||
}
|
||||
|
||||
WRITE8_MEMBER( sapi1_state::sapi3_25_w )
|
||||
{
|
||||
m_zps3_25 = data & 0xfc; //??
|
||||
}
|
||||
|
||||
MACHINE_RESET_MEMBER( sapi1_state, sapi1 )
|
||||
{
|
||||
m_keyboard_mask = 0;
|
||||
m_refresh_counter = 0x20;
|
||||
}
|
||||
|
||||
MACHINE_RESET_MEMBER( sapi1_state, sapizps3 )
|
||||
{
|
||||
m_keyboard_mask = 0;
|
||||
m_bank1->set_entry(1);
|
||||
}
|
||||
|
||||
DRIVER_INIT_MEMBER( sapi1_state, sapizps3 )
|
||||
{
|
||||
UINT8 *RAM = memregion("maincpu")->base();
|
||||
m_bank1->configure_entries(0, 2, &RAM[0x0000], 0x10000);
|
||||
}
|
||||
|
||||
DRIVER_INIT_MEMBER( sapi1_state, sapizps3a )
|
||||
{
|
||||
UINT8 *RAM = memregion("maincpu")->base();
|
||||
m_bank1->configure_entries(0, 2, &RAM[0x0000], 0xf800);
|
||||
}
|
||||
|
||||
DRIVER_INIT_MEMBER( sapi1_state, sapizps3b )
|
||||
{
|
||||
UINT8 *RAM = memregion("maincpu")->base();
|
||||
m_bank1->configure_entries(0, 2, &RAM[0x0000], 0x10000);
|
||||
}
|
||||
|
||||
|
||||
/* Machine driver */
|
||||
static MACHINE_CONFIG_START( sapi1, sapi1_state )
|
||||
/* basic machine hardware */
|
||||
MCFG_CPU_ADD("maincpu", I8080, 2000000)
|
||||
MCFG_CPU_PROGRAM_MAP(sapi1_mem)
|
||||
MCFG_CPU_IO_MAP(sapi1_io)
|
||||
|
||||
MCFG_MACHINE_START_OVERRIDE(sapi1_state, sapi1 )
|
||||
MCFG_MACHINE_RESET_OVERRIDE(sapi1_state, sapi1 )
|
||||
MCFG_MACHINE_RESET_OVERRIDE(sapi1_state, sapi1)
|
||||
|
||||
/* video hardware */
|
||||
MCFG_SCREEN_ADD("screen", RASTER)
|
||||
@ -184,12 +468,9 @@ static MACHINE_CONFIG_START( sapi1, sapi1_state )
|
||||
MCFG_SCREEN_SIZE(40*6, 24*9)
|
||||
MCFG_SCREEN_VISIBLE_AREA(0, 40*6-1, 0, 24*9-1)
|
||||
MCFG_SCREEN_UPDATE_DRIVER(sapi1_state, screen_update_sapi1)
|
||||
|
||||
MCFG_PALETTE_LENGTH(2)
|
||||
MCFG_PALETTE_INIT_OVERRIDE(driver_device, black_and_white)
|
||||
|
||||
MCFG_VIDEO_START_OVERRIDE(sapi1_state,sapi1)
|
||||
|
||||
/* internal ram */
|
||||
MCFG_RAM_ADD(RAM_TAG)
|
||||
MCFG_RAM_DEFAULT_SIZE("64K")
|
||||
@ -202,25 +483,30 @@ static MACHINE_CONFIG_DERIVED( sapi2, sapi1 )
|
||||
MCFG_ASCII_KEYBOARD_ADD(KEYBOARD_TAG, terminal_intf)
|
||||
MACHINE_CONFIG_END
|
||||
|
||||
static MACHINE_CONFIG_START( sapi3, sapi1_state )
|
||||
static MACHINE_CONFIG_DERIVED( sapi3, sapi2 )
|
||||
/* basic machine hardware */
|
||||
MCFG_CPU_ADD("maincpu", Z80, 2000000)
|
||||
MCFG_CPU_MODIFY("maincpu")
|
||||
MCFG_CPU_PROGRAM_MAP(sapi3_mem)
|
||||
MCFG_CPU_IO_MAP(sapi3_io)
|
||||
|
||||
MCFG_MACHINE_START_OVERRIDE(sapi1_state, sapi1 )
|
||||
MCFG_MACHINE_RESET_OVERRIDE(sapi1_state, sapizps3 )
|
||||
MACHINE_CONFIG_END
|
||||
|
||||
/* 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(80*6, 24*9)
|
||||
//MCFG_SCREEN_VISIBLE_AREA(0, 80*6-1, 0, 24*9-1)
|
||||
//MCFG_VIDEO_START_OVERRIDE(sapi1_state,sapizps3)
|
||||
//MCFG_SCREEN_UPDATE_DRIVER(sapi1_state, screen_update_sapizps3)
|
||||
//MCFG_PALETTE_LENGTH(2)
|
||||
//MCFG_PALETTE_INIT_OVERRIDE(driver_device, black_and_white)
|
||||
static MACHINE_CONFIG_DERIVED( sapi3b, sapi3 )
|
||||
/* basic machine hardware */
|
||||
MCFG_CPU_MODIFY("maincpu")
|
||||
MCFG_CPU_PROGRAM_MAP(sapi3b_mem)
|
||||
MCFG_CPU_IO_MAP(sapi3b_io)
|
||||
MCFG_MC6845_ADD("crtc", MC6845, "screen", 1008000, mc6845_intf) // guess
|
||||
MCFG_SCREEN_MODIFY("screen")
|
||||
MCFG_SCREEN_UPDATE_DEVICE("crtc", mc6845_device, screen_update)
|
||||
MACHINE_CONFIG_END
|
||||
|
||||
static MACHINE_CONFIG_START( sapi3a, sapi1_state )
|
||||
/* basic machine hardware */
|
||||
MCFG_CPU_ADD("maincpu", Z80, 2000000)
|
||||
MCFG_CPU_PROGRAM_MAP(sapi3a_mem)
|
||||
MCFG_CPU_IO_MAP(sapi3a_io)
|
||||
MCFG_MACHINE_RESET_OVERRIDE(sapi1_state, sapizps3 )
|
||||
|
||||
/* video hardware */
|
||||
MCFG_GENERIC_TERMINAL_ADD(TERMINAL_TAG, terminal_intf)
|
||||
@ -230,20 +516,25 @@ static MACHINE_CONFIG_START( sapi3, sapi1_state )
|
||||
MCFG_RAM_DEFAULT_SIZE("64K")
|
||||
MACHINE_CONFIG_END
|
||||
|
||||
/* ROM definition */
|
||||
|
||||
|
||||
|
||||
/**************************************
|
||||
|
||||
Roms
|
||||
|
||||
**************************************/
|
||||
|
||||
ROM_START( sapi1 )
|
||||
ROM_REGION( 0x10000, "maincpu", ROMREGION_ERASEFF )
|
||||
ROM_REGION( 0x10000, "maincpu", 0 )
|
||||
ROM_SYSTEM_BIOS( 0, "mb1", "MB1" )
|
||||
ROMX_LOAD( "sapi1.rom", 0x0000, 0x1000, CRC(c6e85b01) SHA1(2a26668249c6161aef7215a1e2b92bfdf6fe3671), ROM_BIOS(1))
|
||||
ROM_SYSTEM_BIOS( 1, "mb2", "MB2 (ANK-1)" )
|
||||
ROMX_LOAD( "mb2_4.bin", 0x0000, 0x1000, CRC(a040b3e0) SHA1(586990a07a96323741679a11ff54ad0023da87bc), ROM_BIOS(2))
|
||||
ROM_SYSTEM_BIOS( 2, "mb3", "MB3 (Consul)" )
|
||||
ROMX_LOAD( "mb3_1.bin", 0x0000, 0x1000, CRC(be895f88) SHA1(7fc2a92f41d978a9f0ccd0e235ea3c6146adfb6f), ROM_BIOS(3))
|
||||
ROM_END
|
||||
|
||||
ROM_START( sapizps2 )
|
||||
ROM_REGION( 0x10000, "maincpu", ROMREGION_ERASEFF )
|
||||
ROM_REGION( 0x10000, "maincpu", 0 )
|
||||
ROM_SYSTEM_BIOS( 0, "v4", "MIKOS 4" )
|
||||
ROMX_LOAD( "36.bin", 0x0000, 0x0800, CRC(a27f340a) SHA1(d07d208fcbe428897336c17197d3e8fb52181f38), ROM_BIOS(1))
|
||||
ROMX_LOAD( "37.bin", 0x0800, 0x0800, CRC(30daa708) SHA1(66e990c40788ee25cf6cabd4842a78daf4fcdddd), ROM_BIOS(1))
|
||||
@ -252,22 +543,37 @@ ROM_START( sapizps2 )
|
||||
ROMX_LOAD( "mikos5_2.bin", 0x0800, 0x0800, CRC(c4458a04) SHA1(0cc909323f0e6507d95e57ea39e1deb8bd57bf89), ROM_BIOS(2))
|
||||
ROMX_LOAD( "mikos5_3.bin", 0x1000, 0x0800, CRC(efb499f3) SHA1(78f0ca3ff10d7af4ae94ab820723296beb035f8f), ROM_BIOS(2))
|
||||
ROMX_LOAD( "mikos5_4.bin", 0x1800, 0x0800, CRC(4d90e9be) SHA1(8ec554198697550a49432e8210d43700ef1d6a32), ROM_BIOS(2))
|
||||
ROM_SYSTEM_BIOS( 2, "mb3", "MB3 (Consul)" )
|
||||
ROMX_LOAD( "mb3_1.bin", 0x0000, 0x1000, CRC(be895f88) SHA1(7fc2a92f41d978a9f0ccd0e235ea3c6146adfb6f), ROM_BIOS(3))
|
||||
ROM_END
|
||||
|
||||
ROM_START( sapizps3 )
|
||||
ROM_REGION( 0x10000, "maincpu", ROMREGION_ERASEFF )
|
||||
ROM_SYSTEM_BIOS( 0, "default", "JPR-1A" )
|
||||
ROMX_LOAD( "jpr1a.bin", 0xf800, 0x0800, CRC(3ed89786) SHA1(dcc8657b4884bfe58d114c539b733b73d038ee30), ROM_BIOS(1))
|
||||
ROM_SYSTEM_BIOS( 1, "per", "Perina" )
|
||||
ROMX_LOAD( "perina_1988.bin",0xf800, 0x0800, CRC(d71e8d3a) SHA1(9b3a26ea7c2f2c8a1fb10b51c1c880acc9fd806d), ROM_BIOS(2))
|
||||
ROM_SYSTEM_BIOS( 2, "pkt1", "PKT 1" )
|
||||
ROMX_LOAD( "pkt1.bin", 0xf800, 0x0800, CRC(ed5a2725) SHA1(3383c15f87f976400b8d0f31829e2a95236c4b6c), ROM_BIOS(3))
|
||||
ROM_SYSTEM_BIOS( 3, "1zmod", "JPR-1Zmod" )
|
||||
ROMX_LOAD( "jpr1zmod.bin", 0xf800, 0x0800, CRC(69a29b07) SHA1(1cd31032954fcd7d10b1586be62db6f7597eb4f2), ROM_BIOS(4))
|
||||
ROM_REGION( 0x10800, "maincpu", 0 )
|
||||
// These 2 bioses use videoram at F800
|
||||
ROM_SYSTEM_BIOS( 0, "per", "Perina" )
|
||||
ROMX_LOAD( "perina_1988.bin",0x10000, 0x0800, CRC(d71e8d3a) SHA1(9b3a26ea7c2f2c8a1fb10b51c1c880acc9fd806d), ROM_BIOS(1))
|
||||
ROM_SYSTEM_BIOS( 1, "1zmod", "JPR-1Zmod" )
|
||||
ROMX_LOAD( "jpr1zmod.bin", 0x10000, 0x0800, CRC(69a29b07) SHA1(1cd31032954fcd7d10b1586be62db6f7597eb4f2), ROM_BIOS(2))
|
||||
ROM_END
|
||||
|
||||
ROM_START( sapizps3a )
|
||||
ROM_REGION( 0x10000, "maincpu", 0 )
|
||||
// This bios uses a terminal
|
||||
ROM_LOAD( "jpr1a.bin", 0xf800, 0x0800, CRC(3ed89786) SHA1(dcc8657b4884bfe58d114c539b733b73d038ee30))
|
||||
ROM_END
|
||||
|
||||
ROM_START( sapizps3b )
|
||||
ROM_REGION( 0x10800, "maincpu", 0 )
|
||||
// This bios uses a 6845 and unknown videoram
|
||||
ROM_LOAD( "pkt1.bin", 0x10000, 0x0800, CRC(ed5a2725) SHA1(3383c15f87f976400b8d0f31829e2a95236c4b6c))
|
||||
ROM_END
|
||||
|
||||
|
||||
/* Driver */
|
||||
|
||||
/* YEAR NAME PARENT COMPAT MACHINE INPUT INIT COMPANY FULLNAME FLAGS */
|
||||
COMP( 1985, sapi1, 0, 0, sapi1, sapi1, sapi1_state, sapi1, "Tesla", "SAPI-1 ZPS 1", GAME_NO_SOUND_HW)
|
||||
COMP( 1985, sapizps2, sapi1, 0, sapi2, sapi1, sapi1_state, sapi1, "Tesla", "SAPI-1 ZPS 2", GAME_NO_SOUND_HW)
|
||||
COMP( 1985, sapizps3, sapi1, 0, sapi3, sapi1, sapi1_state, sapizps3, "Tesla", "SAPI-1 ZPS 3", GAME_NOT_WORKING | GAME_NO_SOUND_HW)
|
||||
/* YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY FULLNAME FLAGS */
|
||||
COMP( 1985, sapi1, 0, 0, sapi1, sapi1, driver_device, 0, "Tesla", "SAPI-1 ZPS 1", GAME_NO_SOUND_HW)
|
||||
COMP( 1985, sapizps2, sapi1, 0, sapi2, sapi1, driver_device, 0, "Tesla", "SAPI-1 ZPS 2", GAME_NO_SOUND_HW)
|
||||
COMP( 1985, sapizps3, sapi1, 0, sapi3, sapi1, sapi1_state, sapizps3, "Tesla", "SAPI-1 ZPS 3", GAME_NOT_WORKING | GAME_NO_SOUND_HW)
|
||||
COMP( 1985, sapizps3a,sapi1, 0, sapi3a, sapi1, sapi1_state, sapizps3a, "Tesla", "SAPI-1 ZPS 3 (terminal)", GAME_NOT_WORKING | GAME_NO_SOUND_HW)
|
||||
COMP( 1985, sapizps3b,sapi1, 0, sapi3b, sapi1, sapi1_state, sapizps3b, "Tesla", "SAPI-1 ZPS 3 (6845)", GAME_NOT_WORKING | GAME_NO_SOUND_HW)
|
||||
|
||||
@ -1680,6 +1680,8 @@ ondrav
|
||||
sapi1
|
||||
sapizps2
|
||||
sapizps3
|
||||
sapizps3a
|
||||
sapizps3b
|
||||
|
||||
// Spectrum clones
|
||||
|
||||
|
||||
@ -2126,8 +2126,6 @@ $(MESSOBJ)/tesla.a: \
|
||||
$(MESS_MACHINE)/pmd85.o \
|
||||
$(MESS_DRIVERS)/pmi80.o \
|
||||
$(MESS_DRIVERS)/sapi1.o \
|
||||
$(MESS_MACHINE)/sapi1.o \
|
||||
$(MESS_VIDEO)/sapi1.o \
|
||||
|
||||
$(MESSOBJ)/test.a: \
|
||||
$(MESS_DRIVERS)/test_t400.o \
|
||||
|
||||
Loading…
Reference in New Issue
Block a user