summaryrefslogtreecommitdiffstatshomepage
path: root/src/mess/drivers/paso1600.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/mess/drivers/paso1600.c')
-rw-r--r--src/mess/drivers/paso1600.c375
1 files changed, 375 insertions, 0 deletions
diff --git a/src/mess/drivers/paso1600.c b/src/mess/drivers/paso1600.c
new file mode 100644
index 00000000000..51bfcedeb82
--- /dev/null
+++ b/src/mess/drivers/paso1600.c
@@ -0,0 +1,375 @@
+/***************************************************************************
+
+ Toshiba Pasopia 1600
+
+ TODO:
+ - charset ROM is WRONG! (needs a 8x16 or even a 16x16 one)
+ - identify fdc type (needs a working floppy image)
+
+****************************************************************************/
+
+#include "emu.h"
+#include "cpu/i86/i86.h"
+#include "video/mc6845.h"
+#include "machine/pic8259.h"
+#include "machine/8237dma.h"
+
+
+class paso1600_state : public driver_device
+{
+public:
+ paso1600_state(const machine_config &mconfig, device_type type, const char *tag)
+ : driver_device(mconfig, type, tag),
+ m_maincpu(*this, "maincpu"),
+ m_pic(*this, "pic8259"),
+ m_dma(*this, "8237dma"),
+ m_crtc(*this, "crtc")
+ ,
+ m_p_vram(*this, "p_vram"),
+ m_p_gvram(*this, "p_gvram"){ }
+
+ required_device<cpu_device> m_maincpu;
+ required_device<device_t> m_pic;
+ required_device<device_t> m_dma;
+ required_device<mc6845_device> m_crtc;
+ DECLARE_READ8_MEMBER(paso1600_pcg_r);
+ DECLARE_WRITE8_MEMBER(paso1600_pcg_w);
+ DECLARE_WRITE8_MEMBER(paso1600_6845_address_w);
+ DECLARE_WRITE8_MEMBER(paso1600_6845_data_w);
+ DECLARE_READ8_MEMBER(test_r);
+ DECLARE_READ8_MEMBER(key_r);
+ DECLARE_WRITE8_MEMBER(key_w);
+ DECLARE_READ16_MEMBER(test_hi_r);
+ DECLARE_WRITE_LINE_MEMBER(paso1600_set_int_line);
+ UINT8 m_crtc_vreg[0x100],m_crtc_index;
+ UINT8 *m_p_chargen;
+ UINT8 *m_p_pcg;
+ required_shared_ptr<UINT16> m_p_vram;
+ required_shared_ptr<UINT16> m_p_gvram;
+
+ struct{
+ UINT8 portb;
+ }m_keyb;
+ DECLARE_READ8_MEMBER(pc_dma_read_byte);
+ DECLARE_WRITE8_MEMBER(pc_dma_write_byte);
+};
+
+#define mc6845_h_char_total (state->m_crtc_vreg[0])
+#define mc6845_h_display (state->m_crtc_vreg[1])
+#define mc6845_h_sync_pos (state->m_crtc_vreg[2])
+#define mc6845_sync_width (state->m_crtc_vreg[3])
+#define mc6845_v_char_total (state->m_crtc_vreg[4])
+#define mc6845_v_total_adj (state->m_crtc_vreg[5])
+#define mc6845_v_display (state->m_crtc_vreg[6])
+#define mc6845_v_sync_pos (state->m_crtc_vreg[7])
+#define mc6845_mode_ctrl (state->m_crtc_vreg[8])
+#define mc6845_tile_height (state->m_crtc_vreg[9]+1)
+#define mc6845_cursor_y_start (state->m_crtc_vreg[0x0a])
+#define mc6845_cursor_y_end (state->m_crtc_vreg[0x0b])
+#define mc6845_start_addr (((state->m_crtc_vreg[0x0c]<<8) & 0x3f00) | (state->m_crtc_vreg[0x0d] & 0xff))
+#define mc6845_cursor_addr (((state->m_crtc_vreg[0x0e]<<8) & 0x3f00) | (state->m_crtc_vreg[0x0f] & 0xff))
+#define mc6845_light_pen_addr (((state->m_crtc_vreg[0x10]<<8) & 0x3f00) | (state->m_crtc_vreg[0x11] & 0xff))
+#define mc6845_update_addr (((state->m_crtc_vreg[0x12]<<8) & 0x3f00) | (state->m_crtc_vreg[0x13] & 0xff))
+
+
+static VIDEO_START( paso1600 )
+{
+ paso1600_state *state = machine.driver_data<paso1600_state>();
+ state->m_p_chargen = machine.root_device().memregion("chargen")->base();
+ state->m_p_pcg = state->memregion("pcg")->base();
+}
+
+static SCREEN_UPDATE_IND16( paso1600 )
+{
+ paso1600_state *state = screen.machine().driver_data<paso1600_state>();
+ int x,y;
+ int xi,yi;
+ #if 0
+ UINT32 count;
+ static int test_x;
+
+ if(screen.machine().input().code_pressed(KEYCODE_Z))
+ test_x++;
+
+ if(screen.machine().input().code_pressed(KEYCODE_X))
+ test_x--;
+
+ popmessage("%d",test_x);
+
+ count = 0;
+
+ for(y=0;y<475;y++)
+ {
+ count &= 0xffff;
+
+ for(x=0;x<test_x/16;x++)
+ {
+ for(xi=0;xi<16;xi++)
+ {
+ int pen = (state->m_p_gvram[count] >> xi) & 1;
+
+ if(y < 475 && x*16+xi < 640) /* TODO: safety check */
+ bitmap.pix16(y, x*16+xi) = screen.machine().pens[pen];
+ }
+
+ count++;
+ }
+ }
+ #endif
+
+// popmessage("%d %d %d",mc6845_h_display,mc6845_v_display,mc6845_tile_height);
+
+ for(y=0;y<mc6845_v_display;y++)
+ {
+ for(x=0;x<mc6845_h_display;x++)
+ {
+ int tile = state->m_p_vram[x+y*mc6845_h_display] & 0xff;
+ int color = (state->m_p_vram[x+y*mc6845_h_display] & 0x700) >> 8;
+ int pen;
+
+ for(yi=0;yi<19;yi++)
+ {
+ for(xi=0;xi<8;xi++)
+ {
+ pen = (state->m_p_chargen[tile*8+(yi >> 1)] >> (7-xi) & 1) ? color : -1;
+
+ if(yi & 0x10)
+ pen = -1;
+
+ //if(pen != -1)
+ if(y*19 < 475 && x*8+xi < 640) /* TODO: safety check */
+ bitmap.pix16(y*19+yi, x*8+xi) = screen.machine().pens[pen];
+ }
+ }
+ }
+ }
+
+ /* quick and dirty way to do the cursor */
+ if(0)
+ for(yi=0;yi<mc6845_tile_height;yi++)
+ {
+ for(xi=0;xi<8;xi++)
+ {
+ if((mc6845_cursor_y_start & 0x60) != 0x20 && mc6845_h_display)
+ {
+ x = mc6845_cursor_addr % mc6845_h_display;
+ y = mc6845_cursor_addr / mc6845_h_display;
+ bitmap.pix16(y*mc6845_tile_height+yi, x*8+xi) = screen.machine().pens[7];
+ }
+ }
+ }
+
+ return 0;
+}
+
+READ8_MEMBER( paso1600_state::paso1600_pcg_r )
+{
+ return m_p_pcg[offset];
+}
+
+WRITE8_MEMBER( paso1600_state::paso1600_pcg_w )
+{
+ m_p_pcg[offset] = data;
+ gfx_element_mark_dirty(machine().gfx[0], offset >> 3);
+}
+
+WRITE8_MEMBER( paso1600_state::paso1600_6845_address_w )
+{
+ m_crtc_index = data;
+ m_crtc->address_w(space, offset, data);
+}
+
+WRITE8_MEMBER( paso1600_state::paso1600_6845_data_w )
+{
+ m_crtc_vreg[m_crtc_index] = data;
+ m_crtc->register_w(space, offset, data);
+}
+
+READ8_MEMBER( paso1600_state::test_r )
+{
+ return 0;
+}
+
+READ8_MEMBER( paso1600_state::key_r )
+{
+ switch(offset)
+ {
+ case 3:
+ if(m_keyb.portb == 1)
+ return 0;
+ }
+
+ return 0xff;
+}
+
+WRITE8_MEMBER( paso1600_state::key_w )
+{
+ switch(offset)
+ {
+ case 3: m_keyb.portb = data; break;
+ }
+}
+
+READ16_MEMBER( paso1600_state::test_hi_r )
+{
+ return 0xffff;
+}
+
+static ADDRESS_MAP_START(paso1600_map, AS_PROGRAM, 16, paso1600_state)
+ ADDRESS_MAP_UNMAP_HIGH
+ AM_RANGE(0x00000,0x7ffff) AM_RAM
+ AM_RANGE(0xb0000,0xb0fff) AM_RAM AM_SHARE("p_vram") // tvram
+ AM_RANGE(0xbfff0,0xbffff) AM_READWRITE8(paso1600_pcg_r,paso1600_pcg_w,0xffff)
+ AM_RANGE(0xc0000,0xdffff) AM_RAM AM_SHARE("p_gvram")// gvram
+ AM_RANGE(0xe0000,0xeffff) AM_ROM AM_REGION("kanji",0)// kanji rom, banked via port 0x93
+ AM_RANGE(0xfe000,0xfffff) AM_ROM AM_REGION("ipl", 0)
+ADDRESS_MAP_END
+
+static ADDRESS_MAP_START(paso1600_io, AS_IO, 16, paso1600_state)
+ ADDRESS_MAP_UNMAP_LOW
+ AM_RANGE(0x0000,0x000f) AM_DEVREADWRITE8_LEGACY("8237dma", i8237_r, i8237_w, 0xffff)
+ AM_RANGE(0x0010,0x0011) AM_DEVREADWRITE8_LEGACY("pic8259", pic8259_r,pic8259_w, 0xffff) // i8259
+ AM_RANGE(0x001a,0x001b) AM_READ(test_hi_r) // causes RAM error otherwise?
+ AM_RANGE(0x0030,0x0033) AM_READWRITE8(key_r,key_w,0xffff) //UART keyboard?
+ AM_RANGE(0x0048,0x0049) AM_READ(test_hi_r)
+ AM_RANGE(0x0090,0x0091) AM_READWRITE8(test_r,paso1600_6845_address_w,0x00ff)
+ AM_RANGE(0x0090,0x0091) AM_READWRITE8(test_r,paso1600_6845_data_w,0xff00)
+// AM_RANGE(0x00d8,0x00df) //fdc, unknown type
+ADDRESS_MAP_END
+
+/* Input ports */
+static INPUT_PORTS_START( paso1600 )
+INPUT_PORTS_END
+
+static const gfx_layout paso1600_charlayout =
+{
+ 8, 8,
+ RGN_FRAC(1,1),
+ 1,
+ { 0 },
+ { STEP8(0,1) },
+ { STEP8(0,8) },
+ 8*8
+};
+
+static GFXDECODE_START( paso1600 )
+ GFXDECODE_ENTRY( "pcg", 0x0000, paso1600_charlayout, 0, 1 )
+GFXDECODE_END
+
+
+static const mc6845_interface mc6845_intf =
+{
+ "screen", /* screen we are acting on */
+ 8, /* number of pixels per video memory address */
+ NULL, /* before pixel update callback */
+ NULL, /* 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 */
+};
+
+static IRQ_CALLBACK(paso1600_irq_callback)
+{
+ return pic8259_acknowledge( device->machine().device( "pic8259" ) );
+}
+
+WRITE_LINE_MEMBER( paso1600_state::paso1600_set_int_line )
+{
+ //printf("%02x\n",interrupt);
+ cputag_set_input_line(machine(), "maincpu", 0, state ? HOLD_LINE : CLEAR_LINE);
+}
+
+static const struct pic8259_interface paso1600_pic8259_config =
+{
+ DEVCB_DRIVER_LINE_MEMBER(paso1600_state, paso1600_set_int_line),
+ DEVCB_LINE_GND,
+ DEVCB_NULL
+};
+
+static MACHINE_START(paso1600)
+{
+ paso1600_state *state = machine.driver_data<paso1600_state>();
+ device_set_irq_callback(state->m_maincpu, paso1600_irq_callback);
+}
+
+
+static MACHINE_RESET(paso1600)
+{
+}
+
+READ8_MEMBER(paso1600_state::pc_dma_read_byte)
+{
+ //offs_t page_offset = (((offs_t) m_dma_offset[0][m_dma_channel]) << 16)
+ // & 0xFF0000;
+
+ return space.read_byte(offset);
+}
+
+
+WRITE8_MEMBER(paso1600_state::pc_dma_write_byte)
+{
+ //offs_t page_offset = (((offs_t) m_dma_offset[0][m_dma_channel]) << 16)
+ // & 0xFF0000;
+
+ space.write_byte(offset, data);
+}
+
+static I8237_INTERFACE( paso1600_dma8237_interface )
+{
+ DEVCB_NULL,
+ DEVCB_NULL,
+ DEVCB_DRIVER_MEMBER(paso1600_state, pc_dma_read_byte),
+ DEVCB_DRIVER_MEMBER(paso1600_state, pc_dma_write_byte),
+ { DEVCB_NULL, DEVCB_NULL, DEVCB_NULL, DEVCB_NULL },
+ { DEVCB_NULL, DEVCB_NULL, DEVCB_NULL, DEVCB_NULL },
+ { DEVCB_NULL, DEVCB_NULL, DEVCB_NULL, DEVCB_NULL }
+};
+
+
+static MACHINE_CONFIG_START( paso1600, paso1600_state )
+ /* basic machine hardware */
+ MCFG_CPU_ADD("maincpu", I8086, 16000000/2)
+ MCFG_CPU_PROGRAM_MAP(paso1600_map)
+ MCFG_CPU_IO_MAP(paso1600_io)
+
+ MCFG_MACHINE_START(paso1600)
+ MCFG_MACHINE_RESET(paso1600)
+
+ /* 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(640, 480)
+ MCFG_SCREEN_VISIBLE_AREA(0, 640-1, 0, 480-1)
+ MCFG_VIDEO_START(paso1600)
+ MCFG_SCREEN_UPDATE_STATIC(paso1600)
+ MCFG_GFXDECODE(paso1600)
+ MCFG_PALETTE_LENGTH(8)
+// MCFG_PALETTE_INIT(black_and_white)
+
+ /* Devices */
+ MCFG_MC6845_ADD("crtc", H46505, 16000000/4, mc6845_intf) /* unknown clock, hand tuned to get ~60 fps */
+ MCFG_PIC8259_ADD( "pic8259", paso1600_pic8259_config )
+ MCFG_I8237_ADD("8237dma", 16000000/4, paso1600_dma8237_interface)
+MACHINE_CONFIG_END
+
+ROM_START( paso1600 )
+ ROM_REGION16_LE(0x2000,"ipl", 0)
+ ROM_LOAD( "ipl.rom", 0x0000, 0x2000, CRC(cee4ebb7) SHA1(c23b30f8dc51f96c1c00e28aab61e77b50d261f0))
+
+ ROM_REGION(0x2000,"pcg", ROMREGION_ERASE00)
+
+ ROM_REGION( 0x800, "chargen", ROMREGION_ERASEFF )
+ ROM_LOAD( "font.rom", 0x0000, 0x0800, BAD_DUMP CRC(a91c45a9) SHA1(a472adf791b9bac3dfa6437662e1a9e94a88b412)) //stolen from pasopia7
+
+ ROM_REGION( 0x20000, "kanji", ROMREGION_ERASEFF )
+ ROM_LOAD( "kanji.rom", 0x0000, 0x20000, NO_DUMP)
+
+ROM_END
+
+
+/* YEAR NAME PARENT COMPAT MACHINE INPUT INIT COMPANY FULLNAME FLAGS */
+COMP ( 198?,paso1600, 0, 0, paso1600, paso1600, driver_device, 0, "Toshiba", "Pasopia 1600" , GAME_NOT_WORKING|GAME_NO_SOUND)