/***************************************************************************

  wswan.c

  Machine file to handle emulation of the Bandai WonderSwan.

  Anthony Kruize
  Wilbert Pol

TODO:
  SRAM sizes should be in kbit instead of kbytes(?). This raises a few
  interesting issues:
  - mirror of smaller <64KBYTE/512kbit sram sizes
  - banking when using 1M or 2M sram sizes

***************************************************************************/

#include "driver.h"
#include "includes/wswan.h"
#include "image.h"

#define INTERNAL_EEPROM_SIZE	1024

enum enum_system { WSWAN=0, WSC };
enum enum_sram { SRAM_NONE=0, SRAM_64K, SRAM_256K, SRAM_512K, SRAM_1M, SRAM_2M, EEPROM_1K, EEPROM_16K, EEPROM_8K, SRAM_UNKNOWN };
const char* wswan_sram_str[] = { "none", "64Kbit SRAM", "256Kbit SRAM", "512Kbit SRAM", "1Mbit SRAM", "2Mbit SRAM", "1Kbit EEPROM", "16Kbit EEPROM", "8Kbit EEPROM", "Unknown" };
const int wswan_sram_size[] = { 0, 64*1024/8, 256*1024/8, 512*1024/8, 1024*1024/8, 2*1024*1024/8,  1024/8, 16*1024/8, 8*1024/8, 0 };

struct EEPROM {
	UINT8	mode;		/* eeprom mode */
	UINT16	address;	/* Read/write address */
	UINT8	command;	/* Commands: 00, 01, 02, 03, 04, 08, 0C */
	UINT8	start;		/* start bit */
	UINT8	write_enabled;	/* write enabled yes/no */
	int	size;		/* size of eeprom/sram area */
	UINT8	*data;		/* pointer to start of sram/eeprom data */
	UINT8	*page;		/* pointer to current sram/eeprom page */
};

struct RTC {
	UINT8	present;	/* Is an RTC present */
	UINT8	setting;	/* Timer setting byte */
	UINT8	year;		/* Year */
	UINT8	month;		/* Month */
	UINT8	day;		/* Day */
	UINT8	day_of_week;	/* Day of the week */
	UINT8	hour;		/* Hour, high bit = 0 => AM, high bit = 1 => PM */
	UINT8	minute;		/* Minute */
	UINT8	second;		/* Second */
	UINT8	index;		/* index for reading/writing of current of alarm time */
};

struct SoundDMA {
	UINT32	source;		/* Source address */
	UINT16	size;		/* Size */
	UINT8	enable;		/* Enabled */
};

static UINT8 *ROMMap[256];
static UINT32 ROMBanks;
static UINT8 internal_eeprom[INTERNAL_EEPROM_SIZE];
static UINT8 system_type;
struct VDP vdp;
static struct EEPROM eeprom;
static struct RTC rtc;
static struct SoundDMA sound_dma;
UINT8 *ws_ram;
UINT8 *ws_bios_bank = NULL;
static UINT8 wswan_bios_disabled;
UINT8 ws_portram[256];
static UINT8 ws_portram_init[256] =
{
	0x00, 0x00, 0x00/*?*/, 0xbb, 0x00, 0x00, 0x00, 0x26, 0xfe, 0xde, 0xf9, 0xfb, 0xdb, 0xd7, 0x7f, 0xf5,
	0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0x9e, 0x9b, 0x00, 0x00, 0x00, 0x00, 0x99, 0xfd, 0xb7, 0xdf,
	0x30, 0x57, 0x75, 0x76, 0x15, 0x73, 0x70/*77?*/, 0x77, 0x20, 0x75, 0x50, 0x36, 0x70, 0x67, 0x50, 0x77,
	0x57, 0x54, 0x75, 0x77, 0x75, 0x17, 0x37, 0x73, 0x50, 0x57, 0x60, 0x77, 0x70, 0x77, 0x10, 0x73,
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
	0x0a, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0f, 0x00, 0x00, 0x00, 0x00,
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x1f, 0x00, 0x00,
	0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, 0x00,
	0x87, 0x00, 0x0c, 0x00, 0x00, 0x00, 0x4f, 0xff, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
	0x00, 0xdb, 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0x42, 0x00, 0x83, 0x00,
	0x2f, 0x3f, 0xff, 0xff, 0x00, 0x00, 0x00, 0x00, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1,
	0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1,
	0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1,
	0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1, 0xd1
};

/*
	Some fake bios code to initialize some registers and set up some things on the wonderswan.
	The code from f:ffe0 which gets copied to 0:0400 is taken from a wonderswan crystal's initial
	memory settings. Lacking real bios dumps we will use this....

	The setting of SP to 2000h is what's needed to get Wonderswan Colloseum to boot.

	f000:ffc0
	FC             cld
        BC 00 20       mov sp,2000h
	68 00 00       push 0000h
	07             pop es
	68 00 F0       push F000h
	1F             pop ds
	BF 00 04       mov di,0400h
	BE E0 FF       mov si,FFE0h
	B9 10 00       mov cx,0010h
	F3 A4          rep movsb
	B0 2F          mov al,2Fh
	E6 C0          out al,C0h
	EA 00 04 00 00 jmp 0000:0400

	f000:ffe0
	E4 A0          in al, A0h
	0C 01          or al,01h
	E6 A0          out al,A0h
	EA 00 00 FF FF jmp FFFFh:0000h

*/
static UINT8 ws_fake_bios_code[] = {
	0xfc, 0xbc, 0x00, 0x20, 0x68, 0x00, 0x00, 0x07, 0x68, 0x00, 0xf0, 0x1f, 0xbf, 0x00, 0x04, 0xbe,
	0xe0, 0xff, 0xb9, 0x10, 0x00, 0xf3, 0xa4, 0xb0, 0x2f, 0xe6, 0xc0, 0xea, 0x00, 0x04, 0x00, 0x00,
	0xe4, 0xa0, 0x0c, 0x01, 0xe6, 0xa0, 0xea, 0x00, 0x00, 0xff, 0xff, 0x00, 0x00, 0x00, 0x00, 0x00,
	0xea, 0xc0, 0xff, 0x00, 0xf0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
};

void wswan_handle_irqs( void ) {
	if ( ws_portram[0xb2] & ws_portram[0xb6] & WSWAN_IFLAG_HBLTMR ) {
		cpunum_set_input_line_and_vector( 0, 0, HOLD_LINE, ws_portram[0xb0] + WSWAN_INT_HBLTMR );
	} else if ( ws_portram[0xb2] & ws_portram[0xb6] & WSWAN_IFLAG_VBL ) {
		cpunum_set_input_line_and_vector( 0, 0, HOLD_LINE, ws_portram[0xb0] + WSWAN_INT_VBL );
	} else if ( ws_portram[0xb2] & ws_portram[0xb6] & WSWAN_IFLAG_VBLTMR ) {
		cpunum_set_input_line_and_vector( 0, 0, HOLD_LINE, ws_portram[0xb0] + WSWAN_INT_VBLTMR );
	} else if ( ws_portram[0xb2] & ws_portram[0xb6] & WSWAN_IFLAG_LCMP ) {
		cpunum_set_input_line_and_vector( 0, 0, HOLD_LINE, ws_portram[0xb0] + WSWAN_INT_LCMP );
	} else if ( ws_portram[0xb2] & ws_portram[0xb6] & WSWAN_IFLAG_SRX ) {
		cpunum_set_input_line_and_vector( 0, 0, HOLD_LINE, ws_portram[0xb0] + WSWAN_INT_SRX );
	} else if ( ws_portram[0xb2] & ws_portram[0xb6] & WSWAN_IFLAG_RTC ) {
		cpunum_set_input_line_and_vector( 0, 0, HOLD_LINE, ws_portram[0xb0] + WSWAN_INT_RTC );
	} else if ( ws_portram[0xb2] & ws_portram[0xb6] & WSWAN_IFLAG_KEY ) {
		cpunum_set_input_line_and_vector( 0, 0, HOLD_LINE, ws_portram[0xb0] + WSWAN_INT_KEY );
	} else if ( ws_portram[0xb2] & ws_portram[0xb6] & WSWAN_IFLAG_STX ) {
		cpunum_set_input_line_and_vector( 0, 0, HOLD_LINE, ws_portram[0xb0] + WSWAN_INT_STX );
	} else {
		cpunum_set_input_line( 0, 0, CLEAR_LINE );
	}
}

void wswan_set_irq_line(int irq) {
	if ( ws_portram[0xb2] & irq ) {
		ws_portram[0xb6] |= irq;
		wswan_handle_irqs();
	}
}

void wswan_clear_irq_line(int irq) {
	ws_portram[0xb6] &= ~irq;
	wswan_handle_irqs();
}

static void wswan_rtc_callback( int dummy ) {
	/* A second passed */
	rtc.second = rtc.second + 1;
	if ( ( rtc.second & 0x0F ) > 9 ) {
		rtc.second = ( rtc.second & 0xF0 ) + 0x10;
	}

	/* Check for minute passed */
	if ( rtc.second >= 0x60 ) {
		rtc.second = 0;
		rtc.minute = rtc.minute + 1;
		if ( ( rtc.minute & 0x0F ) > 9 ) {
			rtc.minute = ( rtc.minute & 0xF0 ) + 0x10;
		}
	}

	/* Check for hour passed */
	if ( rtc.minute >= 0x60 ) {
		rtc.minute = 0;
		rtc.hour = rtc.hour + 1;
		if ( ( rtc.hour & 0x0F ) > 9 ) {
			rtc.hour = ( rtc.hour & 0xF0 ) + 0x10;
		}
		if ( rtc.hour == 0x12 ) {
			rtc.hour |= 0x80;
		}
	}

	/* Check for day passed */
	if ( rtc.hour >= 0x24 ) {
		rtc.hour = 0;
		rtc.day = rtc.day + 1;
	}
}

static void wswan_machine_stop( running_machine *machine ) {
	if ( eeprom.size ) {
		image_battery_save( image_from_devtype_and_index(IO_CARTSLOT,0), eeprom.data, eeprom.size );
	}
}

static void wswan_setup_bios( void ) {
	if ( ws_bios_bank == NULL ) {
		ws_bios_bank = auto_malloc( 0x10000 );
		memcpy( ws_bios_bank + 0xffc0, ws_fake_bios_code, 0x40 );
	}
}

MACHINE_START( wswan ) {
	system_type = WSWAN;
	add_exit_callback( machine, wswan_machine_stop );
	wswan_setup_bios();
}

MACHINE_START( wscolor ) {
	system_type = WSC;
	add_exit_callback( machine, wswan_machine_stop );
	wswan_setup_bios();
}

MACHINE_RESET( wswan )
{
	/* Intialize ports */
	memcpy( ws_portram, ws_portram_init, 256 );

	/* Initialize VDP */
	memset( &vdp, 0, sizeof( vdp ) );

	vdp.vram = memory_get_read_ptr( 0, ADDRESS_SPACE_PROGRAM, 0 );
	vdp.palette_vram = memory_get_read_ptr( 0, ADDRESS_SPACE_PROGRAM, ( system_type == WSC ) ? 0xFE00 : 0 );
	vdp.current_line = 145;  /* Randomly chosen, beginning of VBlank period to give cart some time to boot up */
	vdp.new_display_vertical = ROMMap[ROMBanks-1][0xfffc] & 0x01;
	vdp.display_vertical = ~vdp.new_display_vertical;
	vdp.color_mode = 0;
	vdp.colors_16 = 0;
	vdp.tile_packed = 0;

	/* Initialize sound DMA */
	memset( &sound_dma, 0, sizeof( sound_dma ) );

	/* Switch in the banks */
	memory_set_bankptr( 2, ROMMap[(ROMBanks - 1) & (ROMBanks - 1)] );
	memory_set_bankptr( 3, ROMMap[(ROMBanks - 1) & (ROMBanks - 1)] );
	memory_set_bankptr( 4, ROMMap[(ROMBanks - 12) & (ROMBanks - 1)] );
	memory_set_bankptr( 5, ROMMap[(ROMBanks - 11) & (ROMBanks - 1)] );
	memory_set_bankptr( 6, ROMMap[(ROMBanks - 10) & (ROMBanks - 1)] );
	memory_set_bankptr( 7, ROMMap[(ROMBanks - 9) & (ROMBanks - 1)] );
	memory_set_bankptr( 8, ROMMap[(ROMBanks - 8) & (ROMBanks - 1)] );
	memory_set_bankptr( 9, ROMMap[(ROMBanks - 7) & (ROMBanks - 1)] );
	memory_set_bankptr( 10, ROMMap[(ROMBanks - 6) & (ROMBanks - 1)] );
	memory_set_bankptr( 11, ROMMap[(ROMBanks - 5) & (ROMBanks - 1)] );
	memory_set_bankptr( 12, ROMMap[(ROMBanks - 4) & (ROMBanks - 1)] );
	memory_set_bankptr( 13, ROMMap[(ROMBanks - 3) & (ROMBanks - 1)] );
	memory_set_bankptr( 14, ROMMap[(ROMBanks - 2) & (ROMBanks - 1)] );
	wswan_bios_disabled = 0;
	memory_set_bankptr( 15, ws_bios_bank );
//	memory_set_bankptr( 15, ROMMap[(ROMBanks - 1) & (ROMBanks - 1)] );

	/* Set up RTC timer */
	if ( rtc.present ) {
		timer_pulse( TIME_IN_SEC(1), 0, wswan_rtc_callback );
	}

}

NVRAM_HANDLER( wswan ) {
	if ( read_or_write ) {
		/* Save the EEPROM data */
		mame_fwrite( file, internal_eeprom, INTERNAL_EEPROM_SIZE );
	} else {
		/* Load the EEPROM data */
		if ( file ) {
			mame_fread( file, internal_eeprom, INTERNAL_EEPROM_SIZE );
		} else {
			/* Initialize the EEPROM data */
			memset( internal_eeprom, 0xFF, sizeof( internal_eeprom ) );
		}
	}
}

READ8_HANDLER( wswan_sram_r )
{
	if ( eeprom.data == NULL ) {
		return 0xFF;
	}
	return eeprom.page[ offset & ( eeprom.size - 1 ) ];
}

WRITE8_HANDLER( wswan_sram_w )
{
	if ( eeprom.data == NULL ) {
		return;
	}
	eeprom.page[ offset & ( eeprom.size - 1 ) ] = data;
}

READ8_HANDLER( wswan_port_r )
{
	UINT8 value = ws_portram[offset];

	if ( offset != 2 ) 
	logerror( "PC=%X: port read %02X\n", activecpu_get_pc(), offset );
	switch( offset )
	{
		case 0x02:		/* Current line */
			value = vdp.current_line;
			break;
		case 0x4A:		/* Sound DMA source address (low) */
			value = sound_dma.source & 0xFF;
			break;
		case 0x4B:		/* Sound DMA source address (high) */
			value = ( sound_dma.source >> 8 ) & 0xFF;
			break;
		case 0x4C:		/* Sound DMA source memory segment */
			value = ( sound_dma.source >> 16 ) & 0xFF;
			break;
		case 0x4E:		/* Sound DMA transfer size (low) */
			value = sound_dma.size & 0xFF;
			break;
		case 0x4F:		/* Sound DMA transfer size (high) */
			value = ( sound_dma.size >> 8 ) & 0xFF;
			break;
		case 0x52:		/* Sound DMA start/stop */
			value = sound_dma.enable;
			break;
		case 0xA0:		/* Hardware type */
					/* Bit 0 - Disable/enable Bios */
					/* Bit 1 - Determine mono/color */
					/* Bit 2 - Determine color/crystal */
			value = value & ~ 0x02;
			if ( system_type == WSC ) {
				value |= 2;
			}
			break;
		case 0xA8:
			value = vdp.timer_hblank_count & 0xFF;
			break;
		case 0xA9:
			value = vdp.timer_hblank_count >> 8;
			break;
		case 0xAA:
			value = vdp.timer_vblank_count & 0xFF;
			break;
		case 0xAB:
			value = vdp.timer_vblank_count >> 8;
			break;
		case 0xCB:		/* RTC data */
			if ( ws_portram[0xca] == 0x95 && ( rtc.index < 7 ) ) {
				switch( rtc.index ) {
				case 0: value = rtc.year; break;
				case 1: value = rtc.month; break;
				case 2: value = rtc.day; break;
				case 3: value = rtc.day_of_week; break;
				case 4: value = rtc.hour; break;
				case 5: value = rtc.minute; break;
				case 6: value = rtc.second; break;
				}
				rtc.index++;
			}
	}

	return value;
}

WRITE8_HANDLER( wswan_port_w )
{
	logerror( "PC=%X: port write %02X <- %02X\n", activecpu_get_pc(), offset, data );
	switch( offset )
	{
		case 0x00:	/* Display control
				   Bit 0   - Background layer enable
				   Bit 1   - Foreground layer enable
				   Bit 2   - Sprites enable
				   Bit 3   - Sprite window enable
				   Bit 4-5 - Foreground window configuration
				             00 - Foreground layer is displayed inside and outside foreground window area
				             01 - Unknown
				             10 - Foreground layer is displayed only inside foreground window area
				             11 - Foreground layer is displayed outside foreground window area
				   Bit 6-7 - Unknown
				*/
			vdp.layer_bg_enable = data & 0x1;
			vdp.layer_fg_enable = (data & 0x2) >> 1;
			vdp.sprites_enable = (data & 0x4) >> 2;
			vdp.window_sprites_enable = (data & 0x8) >> 3;
			vdp.window_fg_mode = (data & 0x30) >> 4;
			break;
		case 0x01:	/* Background colour
				   In 16 colour mode:
				   Bit 0-3 - Palette index
				   Bit 4-7 - Palette number
				   Otherwise:
				   Bit 0-2 - Main palette index
				   Bit 3-7 - Unknown
				*/
			break;
		case 0x02:	/* Current scanline
				   Bit 0-7 - Current scanline (Most likely read-only)
				*/
			logerror( "Write to current scanline! Current value: %d  Data to write: %d\n", vdp.current_line, data );
			/* Returning so we don't overwrite the value here, not that it
			 * really matters */
			return;
		case 0x03:	/* Line compare
				   Bit 0-7 - Line compare
				*/
			vdp.line_compare = data;
			break;
		case 0x04:	/* Sprite table base address
				   Bit 0-5 - Determine sprite table base address 0 0xxxxxx0 00000000
				   Bit 6-7 - Unknown
				*/
			vdp.sprite_table_address = ( data & 0x3F ) << 9;
			break;
		case 0x05:	/* Number of sprite to start drawing with
				   Bit 0-7 - First sprite number
				*/
			vdp.sprite_first = data;
			break;
		case 0x06:	/* Number of sprites to draw
				   Bit 0-7 - Number of sprites to draw
				*/
			vdp.sprite_count = data;
			break;
		case 0x07:	/* Background/Foreground table base addresses
				   Bit 0-2 - Determine background table base address 00xxx000 00000000
				   Bit 3   - Unknown
				   Bit 4-6 - Determine foreground table base address 00xxx000 00000000
				   Bit 7   - Unknown
				*/
			vdp.layer_bg_address = (data & 0x7) << 11;
			vdp.layer_fg_address = (data & 0x70) << 7;
			break;
		case 0x08:	/* Left coordinate of foreground window
				   Bit 0-7 - Left coordinate of foreground window area
				*/
			vdp.window_fg_left = data;
			break;
		case 0x09:	/* Top coordinate of foreground window
				   Bit 0-7 - Top coordinatte of foreground window area
				*/
			vdp.window_fg_top = data;
			break;
		case 0x0A:	/* Right coordinate of foreground window
				   Bit 0-7 - Right coordinate of foreground window area
				*/
			vdp.window_fg_right = data;
			break;
		case 0x0B:	/* Bottom coordinate of foreground window
				   Bit 0-7 - Bottom coordinate of foreground window area
				*/
			vdp.window_fg_bottom = data;
			break;
		case 0x0C:	/* Left coordinate of sprite window
				   Bit 0-7 - Left coordinate of sprite window area
				*/
			vdp.window_sprites_left = data;
			break;
		case 0x0D:	/* Top coordinate of sprite window
				   Bit 0-7 - Top coordinate of sprite window area
				*/
			vdp.window_sprites_top = data;
			break;
		case 0x0E:	/* Right coordinate of sprite window
				   Bit 0-7 - Right coordinate of sprite window area
				*/
			vdp.window_sprites_right = data;
			break;
		case 0x0F:	/* Bottom coordinate of sprite window
				   Bit 0-7 - Bottom coordiante of sprite window area
				*/
			vdp.window_sprites_bottom = data;
			break;
		case 0x10:	/* Background layer X scroll
				   Bit 0-7 - Background layer X scroll
				*/
			vdp.layer_bg_scroll_x = data;
			break;
		case 0x11:	/* Background layer Y scroll
				   Bit 0-7 - Background layer Y scroll
				*/
			vdp.layer_bg_scroll_y = data;
			break;
		case 0x12:	/* Foreground layer X scroll
				   Bit 0-7 - Foreground layer X scroll
				*/
			vdp.layer_fg_scroll_x = data;
			break;
		case 0x13:	/* Foreground layer Y scroll
				   Bit 0-7 - Foreground layer Y scroll
				*/
			vdp.layer_fg_scroll_y = data;
			break;
		case 0x14:	/* LCD control
				   Bit 0   - LCD enable
				   Bit 1-7 - Unknown
				*/
			vdp.lcd_enable = data & 0x1;
			break;
		case 0x15:	/* LCD icons
				   Bit 0   - LCD sleep icon enable
				   Bit 1   - Vertical position icon enable
				   Bit 2   - Horizontal position icon enable
				   Bit 3   - Dot 1 icon enable
				   Bit 4   - Dot 2 icon enable
				   Bit 5   - Dot 3 icon enable
				   Bit 6-7 - Unknown
				*/
			vdp.icons = data;	/* ummmmm */
			break;
		case 0x1c:	/* Palette colors 0 and 1
				   Bit 0-3 - Gray tone setting for main palette index 0
				   Bit 4-7 - Gray tone setting for main palette index 1
				*/
			if ( system_type == WSC ) {
				int i = 15 - ( data & 0x0F );
				int j = 15 - ( ( data & 0xF0 ) >> 4 );
				vdp.main_palette[0] = ( i << 8 ) | ( i << 4 ) | i;
				vdp.main_palette[1] = ( j << 8 ) | ( j << 4 ) | j;
			} else {
				vdp.main_palette[0] = data & 0x0F;
				vdp.main_palette[1] = ( data & 0xF0 ) >> 4;
			}
			break;
		case 0x1d:	/* Palette colors 2 and 3
				   Bit 0-3 - Gray tone setting for main palette index 2
				   Bit 4-7 - Gray tone setting for main palette index 3
				*/
			if ( system_type == WSC ) {
				int i = 15 - ( data & 0x0F );
				int j = 15 - ( ( data & 0xF0 ) >> 4 );
				vdp.main_palette[2] = ( i << 8 ) | ( i << 4 ) | i;
				vdp.main_palette[3] = ( j << 8 ) | ( j << 4 ) | j;
			} else {
				vdp.main_palette[2] = data & 0x0F;
				vdp.main_palette[3] = ( data & 0xF0 ) >> 4;
			}
			break;
		case 0x1e:	/* Palette colors 4 and 5
				   Bit 0-3 - Gray tone setting for main palette index 4
				   Bit 4-7 - Gray tone setting for main paeltte index 5
				*/
			if ( system_type == WSC ) {
				int i = 15 - ( data & 0x0F );
				int j = 15 - ( ( data & 0xF0 ) >> 4 );
				vdp.main_palette[4] = ( i << 8 ) | ( i << 4 ) | i;
				vdp.main_palette[5] = ( j << 8 ) | ( j << 4 ) | j;
			} else {
				vdp.main_palette[4] = data & 0x0F;
				vdp.main_palette[5] = ( data & 0xF0 ) >> 4;
			}
			break;
		case 0x1f:	/* Palette colors 6 and 7
				   Bit 0-3 - Gray tone setting for main palette index 6
				   Bit 4-7 - Gray tone setting for main palette index 7
				*/
			if ( system_type == WSC ) {
				int i = 15 - ( data & 0x0F );
				int j = 15 - ( ( data & 0xF0 ) >> 4 );
				vdp.main_palette[6] = ( i << 8 ) | ( i << 4 ) | i;
				vdp.main_palette[7] = ( j << 8 ) | ( j << 4 ) | j;
			} else {
				vdp.main_palette[6] = data & 0x0F;
				vdp.main_palette[7] = ( data & 0xF0 ) >> 4;
			}
			break;
		case 0x20:	/* tile/sprite palette settings
				   Bit 0-3 - Palette 0 index 0
				   Bit 4-7 - Palette 0 index 1 */
		case 0x21:	/* Bit 0-3 - Palette 0 index 2
				   Bit 4-7 - Palette 0 index 3 */
		case 0x22:	/* Bit 0-3 - Palette 1 index 0
				   Bit 4-7 - Palette 1 index 1 */
		case 0x23:	/* Bit 0-3 - Palette 1 index 2 
				   Bit 4-7 - Palette 1 index 3 */
		case 0x24:	/* Bit 0-3 - Palette 2 index 0
				   Bit 4-7 - Palette 2 index 1 */
		case 0x25:	/* Bit 0-3 - Palette 2 index 2
				   Bit 4-7 - Palette 2 index 3 */
		case 0x26:	/* Bit 0-3 - Palette 3 index 0
				   Bit 4-7 - Palette 3 index 1 */
		case 0x27:	/* Bit 0-3 - Palette 3 index 2
				   Bit 4-7 - Palette 3 index 3 */
		case 0x28:	/* Bit 0-3 - Palette 4 index 0
				   Bit 4-7 - Palette 4 index 1 */
		case 0x29:	/* Bit 0-3 - Palette 4 index 2
				   Bit 4-7 - Palette 4 index 3 */
		case 0x2A:	/* Bit 0-3 - Palette 5 index 0
				   Bit 4-7 - Palette 5 index 1 */
		case 0x2B:	/* Bit 0-3 - Palette 5 index 2
				   Bit 4-7 - Palette 5 index 3 */
		case 0x2C:	/* Bit 0-3 - Palette 6 index 0
				   Bit 4-7 - Palette 6 index 1 */
		case 0x2D:	/* Bit 0-3 - Palette 6 index 2
				   Bit 4-7 - Palette 6 index 3 */
		case 0x2E:	/* Bit 0-3 - Palette 7 index 0
				   Bit 4-7 - Palette 7 index 1 */
		case 0x2F:	/* Bit 0-3 - Palette 7 index 2
				   Bit 4-7 - Palette 7 index 3 */
		case 0x30:	/* Bit 0-3 - Palette 8 / Sprite Palette 0 index 0
				   Bit 4-7 - Palette 8 / Sprite Palette 0 index 1 */
		case 0x31:	/* Bit 0-3 - Palette 8 / Sprite Palette 0 index 2
				   Bit 4-7 - Palette 8 / Sprite Palette 0 index 3 */
		case 0x32:	/* Bit 0-3 - Palette 9 / Sprite Palette 1 index 0
				   Bit 4-7 - Palette 9 / Sprite Palette 1 index 1 */
		case 0x33:	/* Bit 0-3 - Palette 9 / Sprite Palette 1 index 2
				   Bit 4-7 - Palette 9 / Sprite Palette 1 index 3 */
		case 0x34:	/* Bit 0-3 - Palette 10 / Sprite Palette 2 index 0
				   Bit 4-7 - Palette 10 / Sprite Palette 2 index 1 */
		case 0x35:	/* Bit 0-3 - Palette 10 / Sprite Palette 2 index 2
				   Bit 4-7 - Palette 10 / Sprite Palette 2 index 3 */
		case 0x36:	/* Bit 0-3 - Palette 11 / Sprite Palette 3 index 0
				   Bit 4-7 - Palette 11 / Sprite Palette 3 index 1 */
		case 0x37:	/* Bit 0-3 - Palette 11 / Sprite Palette 3 index 2
				   Bit 4-7 - Palette 11 / Sprite Palette 3 index 3 */
		case 0x38:	/* Bit 0-3 - Palette 12 / Sprite Palette 4 index 0
				   Bit 4-7 - Palette 12 / Sprite Palette 4 index 1 */
		case 0x39:	/* Bit 0-3 - Palette 12 / Sprite Palette 4 index 2
				   Bit 4-7 - Palette 12 / Sprite Palette 4 index 3 */
		case 0x3A:	/* Bit 0-3 - Palette 13 / Sprite Palette 5 index 0
				   Bit 4-7 - Palette 13 / Sprite Palette 5 index 1 */
		case 0x3B:	/* Bit 0-3 - Palette 13 / Sprite Palette 5 index 2
				   Bit 4-7 - Palette 13 / Sprite Palette 5 index 3 */
		case 0x3C:	/* Bit 0-3 - Palette 14 / Sprite Palette 6 index 0
				   Bit 4-7 - Palette 14 / Sprite Palette 6 index 1 */
		case 0x3D:	/* Bit 0-3 - Palette 14 / Sprite Palette 6 index 2
				   Bit 4-7 - Palette 14 / Sprite Palette 6 index 3 */
		case 0x3E:	/* Bit 0-3 - Palette 15 / Sprite Palette 7 index 0
				   Bit 4-7 - Palette 15 / Sprite Palette 7 index 1 */
		case 0x3F:	/* Bit 0-3 - Palette 15 / Sprite Palette 7 index 2
				   Bit 4-7 - Palette 15 / Sprite Palette 7 index 3 */
			break;
		case 0x40:	/* DMA source address (low)
				   Bit 0-7 - DMA source address bit 0-7
				*/
		case 0x41:	/* DMA source address (high)
				   Bit 0-7 - DMA source address bit 8-15
				*/
		case 0x42:	/* DMA source bank
				   Bit 0-7 - DMA source bank number
				*/
		case 0x43:	/* DMA destination bank
				   Bit 0-7 - DMA destination bank number
				*/
		case 0x44:	/* DMA destination address (low)
				   Bit 0-7 - DMA destination address bit 0-7
				*/
		case 0x45:	/* DMA destination address (high)
				   Bit 0-7 - DMA destination address bit 8-15
				*/
		case 0x46:	/* Size of copied data (low)
				   Bit 0-7 - DMA size bit 0-7
				*/
		case 0x47:	/* Size of copied data (high)
				   Bit 0-7 - DMA size bit 8-15
				*/
			break;
		case 0x48:	/* DMA control
				   Bit 0-6 - Unknown
				   Bit 7   - DMA stop/start
				*/
			if( data & 0x80 )
			{
				UINT32 src, dst;
				UINT16 length;

				src = ws_portram[0x40] + (ws_portram[0x41] << 8) + (ws_portram[0x42] << 16);
				dst = ws_portram[0x44] + (ws_portram[0x45] << 8) + (ws_portram[0x43] << 16);
				length = ws_portram[0x46] + (ws_portram[0x47] << 8);
				for( ; length > 0; length-- ) {
					program_write_byte_8( dst, program_read_byte_8( src ) );
					src++;
					dst++;
				}
#ifdef DEBUG
					logerror( "DMA  src:%X dst:%X length:%d\n", src, dst, length );
#endif
				ws_portram[0x40] = src & 0xFF;
				ws_portram[0x41] = ( src >> 8 ) & 0xFF;
				ws_portram[0x44] = dst & 0xFF;
				ws_portram[0x45] = ( dst >> 8 ) & 0xFF;
				ws_portram[0x46] = length & 0xFF;
				ws_portram[0x47] = ( length >> 8 ) & 0xFF;
				data &= 0x7F;
			}
			break;
		case 0x4A:	/* Sound DMA source address (low)
				   Bit 0-7 - Sound DMA source address bit 0-7
				*/
			sound_dma.source = ( sound_dma.source & 0x0FFF00 ) | data;
			break;
		case 0x4B:	/* Sound DMA source address (high)
				   Bit 0-7 - Sound DMA source address bit 8-15
				*/
			sound_dma.source = ( sound_dma.source & 0x0F00FF ) | ( data << 8 );
			break;
		case 0x4C:	/* Sound DMA source memory segment
				   Bit 0-3 - Sound DMA source address segment
				   Bit 4-7 - Unknown
				*/
			sound_dma.source = ( sound_dma.source & 0xFFFF ) | ( ( data & 0x0F ) << 16 );
			break;
		case 0x4D:	/* Unknown */
			break;
		case 0x4E:	/* Sound DMA transfer size (low)
				   Bit 0-7 - Sound DMA transfer size bit 0-7
				*/
			sound_dma.size = ( sound_dma.size & 0xFF00 ) | data;
			break;
		case 0x4F:	/* Sound DMA transfer size (high)
				   Bit 0-7 - Sound DMA transfer size bit 8-15
				*/
			sound_dma.size = ( sound_dma.size & 0xFF ) | ( data << 8 );
			break;
		case 0x50:	/* Unknown */
		case 0x51:	/* Unknown */
			break;
		case 0x52:	/* Sound DMA start/stop
				   Bit 0-6 - Unknown
				   Bit 7   - Sound DMA stop/start
				*/
			sound_dma.enable = data;
			break;
		case 0x60:	/* Video mode
				   Bit 0-4 - Unknown
				   Bit 5   - Packed mode 0 = not packed mode, 1 = packed mode
				   Bit 6   - 4/16 colour mode select: 0 = 4 colour mode, 1 = 16 colour mode
				   Bit 7   - monochrome/colour mode select: 0 = monochrome mode, 1 = colour mode
				*/
			/*
			 * 111	- packed, 16 color, use 4000/8000, color
			 * 110	- not packed, 16 color, use 4000/8000, color
			 * 101	- packed, 4 color, use 2000, color
			 * 100	- not packed, 4 color, use 2000, color
			 * 011	- packed, 16 color, use 4000/8000, monochrome
			 * 010	- not packed, 16 color , use 4000/8000, monochrome
			 * 001	- packed, 4 color, use 2000, monochrome
			 * 000  - not packed, 4 color, use 2000, monochrome - Regular WS monochrome
			 */
			if ( system_type == WSC ) {
				vdp.color_mode = data & 0x80;
				vdp.colors_16 = data & 0x40;
				vdp.tile_packed = data & 0x20;
			}
			break;
		case 0x80:	/* Audio 1 freq (lo)
				   Bit 0-7 - Audio channel 1 frequency bit 0-7
				*/
		case 0x81:	/* Audio 1 freq (hi)
				   Bit 0-7 - Audio channel 1 frequency bit 8-15
				*/
		case 0x82:	/* Audio 2 freq (lo)
				   Bit 0-7 - Audio channel 2 frequency bit 0-7
				*/
		case 0x83:	/* Audio 2 freq (hi)
				   Bit 0-7 - Audio channel 2 frequency bit 8-15
				*/
		case 0x84:	/* Audio 3 freq (lo)
				   Bit 0-7 - Audio channel 3 frequency bit 0-7
				*/
		case 0x85:	/* Audio 3 freq (hi)
				   Bit 0-7 - Audio channel 3 frequency bit 8-15
				*/
		case 0x86:	/* Audio 4 freq (lo)
				   Bit 0-7 - Audio channel 4 frequency bit 0-7
				*/
		case 0x87:	/* Audio 4 freq (hi)
				   Bit 0-7 - Audio channel 4 frequency bit 8-15
				*/
		case 0x88:	/* Audio 1 volume
				   Bit 0-3 - Right volume audio channel 1
				   Bit 4-7 - Left volume audio channel 1
				*/
		case 0x89:	/* Audio 2 volume
				   Bit 0-3 - Right volume audio channel 2
				   Bit 4-7 - Left volume audio channel 2
				*/
		case 0x8A:	/* Audio 3 volume
				   Bit 0-3 - Right volume audio channel 3
				   Bit 4-7 - Left volume audio channel 3
				*/
		case 0x8B:	/* Audio 4 volume
				   Bit 0-3 - Right volume audio channel 4
				   Bit 4-7 - Left volume audio channel 4
				*/
		case 0x8C:	/* Sweep step
				   Bit 0-7 - Sweep step
				*/
		case 0x8D:	/* Sweep time
				   Bit 0-7 - Sweep time
				*/
		case 0x8E:	/* Noise control
				   Bit 0-2 - Noise generator type
				   Bit 3   - Reset
				   Bit 4   - Enable
				   Bit 5-7 - Unknown
				*/
		case 0x8F:	/* Sample location
				   Bit 0-7 - Sample address location 0 00xxxxxx xx000000
				*/
		case 0x90:	/* Audio control
				   Bit 0   - Audio 1 enable
				   Bit 1   - Audio 2 enable
				   Bit 2   - Audio 3 enable
				   Bit 3   - Audio 4 enable
				   Bit 4   - Unknown
				   Bit 5   - Audio 2 voice mode enable
				   Bit 6   - Audio 3 sweep mode enable
				   Bit 7   - Audio 4 noise mode enable
				*/
		case 0x91:	/* Audio output
				   Bit 0   - Mono select
				   Bit 1-2 - Output volume
				   Bit 3   - External stereo
				   Bit 4-6 - Unknown
				   Bit 7   - External speaker (Read-only, set by hardware)
				*/
		case 0x92:	/* Noise counter shift register (lo)
				   Bit 0-7 - Noise counter shift register bit 0-7
				*/
		case 0x93:	/* Noise counter shift register (hi)
				   Bit 0-6 - Noise counter shift register bit 8-14
				   bit 7   - Unknown
				*/
		case 0x94:	/* Master volume
				   Bit 0-3 - Master volume
				   Bit 4-7 - Unknown
				*/
			wswan_sound_port_w( offset, data );
			break;
		case 0xa0:	/* Hardware type - this is probably read only
				   Bit 0   - Enable cartridge slot and/or disable bios
				   Bit 1   - Hardware type: 0 = WS, 1 = WSC
				   Bit 2-7 - Unknown
				*/
			if ( ( data & 0x01 ) && !wswan_bios_disabled ) {
				wswan_bios_disabled = 1;
				memory_set_bankptr( 15, ROMMap[ ( ( ( ws_portram[0xc0] & 0x0F ) << 4 ) | 15 ) & ( ROMBanks - 1 ) ] );
			}
			break;
		case 0xa2:	/* Timer control
				   Bit 0   - HBlank Timer enable
				   Bit 1   - HBlank Timer mode: 0 = one shot, 1 = auto reset
				   Bit 2   - VBlank Timer(1/75s) enable
				   Bit 3   - VBlank Timer mode: 0 = one shot, 1 = auto reset
				   Bit 4-7 - Unknown
				*/
			vdp.timer_hblank_enable = data & 0x1;
			vdp.timer_hblank_mode = (data & 0x2) >> 1;
			vdp.timer_vblank_enable = (data & 0x4) >> 2;
			vdp.timer_vblank_mode = (data & 0x8) >> 3;
			break;
		case 0xa4:	/* HBlank timer frequency (low) - reload value
				   Bit 0-7 - HBlank timer reload value bit 0-7
				*/
			vdp.timer_hblank_reload &= 0xff00;
			vdp.timer_hblank_reload += data;
			vdp.timer_hblank_count = vdp.timer_hblank_reload;
			break;
		case 0xa5:	/* HBlank timer frequency (high) - reload value
				   Bit 8-15 - HBlank timer reload value bit 8-15
				*/
			vdp.timer_hblank_reload &= 0xff;
			vdp.timer_hblank_reload += data << 8;
			vdp.timer_hblank_count = vdp.timer_hblank_reload;
			break;
		case 0xa6:	/* VBlank timer frequency (low) - reload value
				   Bit 0-7 - VBlank timer reload value bit 0-7
				*/
			vdp.timer_vblank_reload &= 0xff00;
			vdp.timer_vblank_reload += data;
			vdp.timer_vblank_count = vdp.timer_vblank_reload;
			break;
		case 0xa7:	/* VBlank timer frequency (high) - reload value
				   Bit 0-7 - VBlank timer reload value bit 8-15
				*/
			vdp.timer_vblank_reload &= 0xff;
			vdp.timer_vblank_reload += data << 8;
			vdp.timer_vblank_count = vdp.timer_vblank_reload;
			break;
		case 0xa8:	/* HBlank counter (low)
				   Bit 0-7 - HBlank counter bit 0-7
				*/
		case 0xa9:	/* HBlank counter (high)
				   Bit 0-7 - HBlank counter bit 8-15
				*/
		case 0xaa:	/* VBlank counter (low)
				   Bit 0-7 - VBlank counter bit 0-7
				*/
		case 0xab:	/* VBlank counter (high)
				   Bit 0-7 - VBlank counter bit 8-15
				*/
			break;

		case 0xb0:	/* Interrupt base vector
				   Bit 0-7 - Interrupt base vector
				*/
			break;
		case 0xb1:	/* Communication byte
				   Bit 0-7 - Communication byte
				*/
			break;
		case 0xb2:	/* Interrupt enable
				   Bit 0   - Serial transmit interrupt enable
				   Bit 1   - Key press interrupt enable
				   Bit 2   - RTC alarm interrupt enable
				   Bit 3   - Serial receive interrupt enable
				   Bit 4   - Drawing line detection interrupt enable
				   Bit 5   - VBlank timer interrupt enable
				   Bit 6   - VBlank interrupt enable
				   Bit 7   - HBlank timer interrupt enable
				*/
			break;
		case 0xb3:	/* serial communication control
				   Bit 0   - Receive complete
				   Bit 1   - Error
				   Bit 2   - Send complete
				   Bit 3-4 - Unknown
				   Bit 5   - Send data interrupt generation
				   Bit 6   - Connection speed: 0 = 9600 bps, 1 = 38400 bps
				   bit 7   - Receive data interrupt generation
				*/
//			data |= 0x02;
			ws_portram[0xb1] = 0xFF;
			if ( data & 0x80 ) {
//				ws_portram[0xb1] = 0x00;
				data |= 0x04;
			}
			if (data & 0x20 ) {
//				data |= 0x01;
			}
			break;
		case 0xb5:	/* Read controls
				   Bit 0-3 - Current state of input lines (read-only)
				   Bit 4-6 - Select line of inputs to read
				             001 - Read Y cursors
				             010 - Read X cursors
				             100 - Read START,A,B buttons
				   Bit 7   - Unknown
				*/
			data = data & 0xF0;
			switch( data ) {
			case 0x10:	/* Read Y cursors: Y1 - Y2 - Y3 - Y4 */
				data = data | readinputport( 2 );
				break;
			case 0x20:	/* Read X cursors: X1 - X2 - X3 - X4 */
				data = data | readinputport( 0 );
				break;
			case 0x40:	/* Read buttons: START - A - B */
				data = data | readinputport( 1 );
				break;
			}
			break;
		case 0xb6:	/* Interrupt acknowledge
				   Bit 0   - Serial transmit interrupt acknowledge
				   Bit 1   - Key press interrupt acknowledge
				   Bit 2   - RTC alarm interrupt acknowledge
				   Bit 3   - Serial receive interrupt acknowledge
				   Bit 4   - Drawing line detection interrupt acknowledge
				   Bit 5   - VBlank timer interrupt acknowledge
				   Bit 6   - VBlank interrupt acknowledge
				   Bit 7   - HBlank timer interrupt acknowledge
				*/
			wswan_clear_irq_line( data );
			data = ws_portram[0xB6];
			break;
		case 0xba:	/* Internal EEPROM data (low)
				   Bit 0-7 - Internal EEPROM data transfer bit 0-7
				*/
		case 0xbb:	/* Internal EEPROM data (high)
				   Bit 0-7 - Internal EEPROM data transfer bit 8-15
				*/
			break;
		case 0xbc:	/* Internal EEPROM address (low)
				   Bit 0-7 - Internal EEPROM address bit 1-8
				*/
		case 0xbd:	/* Internal EEPROM address (high)
				   Bit 0   - Internal EEPROM address bit 9(?)
				   Bit 1-7 - Unknown
				   Only 1KByte internal EEPROM??
				*/
			break;
		case 0xbe:	/* Internal EEPROM command
				   Bit 0   - Read complete (read only)
				   Bit 1   - Write complete (read only)
				   Bit 2-3 - Unknown
				   Bit 4   - Read
				   Bit 5   - Write
				   Bit 6   - Protect
				   Bit 7   - Initialize
				*/
			if ( data & 0x20 ) {
				UINT16 addr = ( ( ( ws_portram[0xbd] << 8 ) | ws_portram[0xbc] ) << 1 ) & 0x1FF;
				internal_eeprom[ addr ] = ws_portram[0xba];
				internal_eeprom[ addr + 1 ] = ws_portram[0xbb];
				data |= 0x02;
			} else if ( data & 0x10 ) {
				UINT16 addr = ( ( ( ws_portram[0xbd] << 8 ) | ws_portram[0xbc] ) << 1 ) & 0x1FF;
				ws_portram[0xba] = internal_eeprom[ addr ];
				ws_portram[0xbb] = internal_eeprom[ addr + 1];
				data |= 0x01;
			} else {
				logerror( "Unsupported internal EEPROM command: %X\n", data );
			}
			break;
		case 0xc0:	/* ROM bank select for banks 4-15
				   Bit 0-3 - ROM bank base register for banks 4-15
				   Bit 4-7 - Unknown
				*/
			memory_set_bankptr( 4, ROMMap[ ( ( ( data & 0x0F ) << 4 ) | 4 ) & ( ROMBanks - 1 ) ] );
			memory_set_bankptr( 5, ROMMap[ ( ( ( data & 0x0F ) << 4 ) | 5 ) & ( ROMBanks - 1 ) ] );
			memory_set_bankptr( 6, ROMMap[ ( ( ( data & 0x0F ) << 4 ) | 6 ) & ( ROMBanks - 1 ) ] );
			memory_set_bankptr( 7, ROMMap[ ( ( ( data & 0x0F ) << 4 ) | 7 ) & ( ROMBanks - 1 ) ] );
			memory_set_bankptr( 8, ROMMap[ ( ( ( data & 0x0F ) << 4 ) | 8 ) & ( ROMBanks - 1 ) ] );
			memory_set_bankptr( 9, ROMMap[ ( ( ( data & 0x0F ) << 4 ) | 9 ) & ( ROMBanks - 1 ) ] );
			memory_set_bankptr( 10, ROMMap[ ( ( ( data & 0x0F ) << 4 ) | 10 ) & ( ROMBanks - 1 ) ] );
			memory_set_bankptr( 11, ROMMap[ ( ( ( data & 0x0F ) << 4 ) | 11 ) & ( ROMBanks - 1 ) ] );
			memory_set_bankptr( 12, ROMMap[ ( ( ( data & 0x0F ) << 4 ) | 12 ) & ( ROMBanks - 1 ) ] );
			memory_set_bankptr( 13, ROMMap[ ( ( ( data & 0x0F ) << 4 ) | 13 ) & ( ROMBanks - 1 ) ] );
			memory_set_bankptr( 14, ROMMap[ ( ( ( data & 0x0F ) << 4 ) | 14 ) & ( ROMBanks - 1 ) ] );
			if ( wswan_bios_disabled ) {
				memory_set_bankptr( 15, ROMMap[ ( ( ( data & 0x0F ) << 4 ) | 15 ) & ( ROMBanks - 1 ) ] );
			}
			break;
		case 0xc1:	/* SRAM bank select
				   Bit 0-7 - SRAM bank to select
				*/
			if ( eeprom.mode == SRAM_64K || eeprom.mode == SRAM_256K || eeprom.mode == SRAM_512K || eeprom.mode == SRAM_1M || eeprom.mode == SRAM_2M ) {
				eeprom.page = &eeprom.data[ ( data * 64 * 1024 ) & ( eeprom.size - 1 ) ];
			}
			break;
		case 0xc2:	/* ROM bank select for segment 2 (0x20000 - 0x2ffff)
				   Bit 0-7 - ROM bank for segment 2
				*/
			memory_set_bankptr( 2, ROMMap[ data & ( ROMBanks - 1 ) ]);
			break;
		case 0xc3:	/* ROM bank select for segment 3 (0x30000-0x3ffff)
				   Bit 0-7 - ROM bank for segment 3
				*/
			memory_set_bankptr( 3, ROMMap[ data & ( ROMBanks - 1 ) ]);
			break;
		case 0xc6:	/* EEPROM address lower bits port/EEPROM address and command port
				   1KBit EEPROM:
				   Bit 0-5 - EEPROM address bit 1-6
				   Bit 6-7 - Command
				             00 - Extended command address bit 4-5:
				                  00 - Write disable
				                  01 - Write all
				                  10 - Erase all
				                  11 - Write enable
				             01 - Write
				             10 - Read
				             11 - Erase
				   16KBit EEPROM:
				   Bit 0-7 - EEPROM address bit 1-8
				*/
			switch( eeprom.mode ) {
			case EEPROM_1K:
				eeprom.address = data & 0x3F;
				eeprom.command = data >> 4;
				if ( ( eeprom.command & 0x0C ) != 0x00 ) {
					eeprom.command = eeprom.command & 0x0C;
				}
				break;
			case EEPROM_16K:
				eeprom.address = ( eeprom.address & 0xFF00 ) | data;
				break;
			default:
				logerror( "Write EEPROM address/register register C6 for unsupported EEPROM type\n" );
				break;
			}
			break;
		case 0xc7:	/* EEPROM higher bits/command bits port
				   1KBit EEPROM:
				   Bit 0   - Start
				   Bit 1-7 - Unknown
				   16KBit EEPROM:
				   Bit 0-1 - EEPROM address bit 9-10
				   Bit 2-3 - Command
				             00 - Extended command address bit 0-1:
				                  00 - Write disable
				                  01 - Write all
				                  10 - Erase all
				                  11 - Write enable
				             01 - Write
				             10 - Read
					     11 - Erase
				   Bit 4   - Start
				   Bit 5-7 - Unknown
				*/
			switch( eeprom.mode ) {
			case EEPROM_1K:
				eeprom.start = data & 0x01;
				break;
			case EEPROM_16K:
				eeprom.address = ( ( data & 0x03 ) << 8 ) | ( eeprom.address & 0xFF );
				eeprom.command = data & 0x0F;
				if ( ( eeprom.command & 0x0C ) != 0x00 ) {
					eeprom.command = eeprom.command & 0x0C;
				}
				eeprom.start = ( data >> 4 ) & 0x01;
				break;
			default:
				logerror( "Write EEPROM address/command register C7 for unsupported EEPROM type\n" );
				break;
			}
			break;
		case 0xc8:	/* EEPROM command
				   Bit 0   - Read complete (read only)
				   Bit 1   - Write complete (read only)
				   Bit 2-3 - Unknown
				   Bit 4   - Read
				   Bit 5   - Write
				   Bit 6   - Protect
				   Bit 7   - Initialize
				*/
			if ( eeprom.mode == EEPROM_1K || eeprom.mode == EEPROM_16K ) {
				if ( data & 0x80 ) {	/* Initialize */
					logerror( "Unsupported EEPROM command 'Initialize'\n" );
				}
				if ( data & 0x40 ) {	/* Protect */
					switch( eeprom.command ) {
					case 0x00:
						eeprom.write_enabled = 0;
						data |= 0x02;
						break;
					case 0x03:
						eeprom.write_enabled = 1;
						data |= 0x02;
						break;
					default:
						logerror( "Unsupported 'Protect' command %X\n", eeprom.command );
					}
				}
				if ( data & 0x20 ) {	/* Write */
					if ( eeprom.write_enabled ) {
						switch( eeprom.command ) {
						case 0x04:
							eeprom.data[ ( eeprom.address << 1 ) + 1 ] = ws_portram[0xc4];
							eeprom.data[ eeprom.address << 1 ] = ws_portram[0xc5];
							data |= 0x02;
							break;
						default:
							logerror( "Unsupported 'Write' command %X\n", eeprom.command );
						}
					}
				}
				if ( data & 0x10 ) {	/* Read */
					ws_portram[0xc4] = eeprom.data[ ( eeprom.address << 1 ) + 1 ];
					ws_portram[0xc5] = eeprom.data[ eeprom.address << 1 ];
					data |= 0x01;
				}
			} else {
				logerror( "EEPROM command for unknown EEPROM type\n" );
			}
			break;
		case 0xca:	/* RTC Command
				   Bit 0-4 - RTC command
				             10000 - Reset
				             10010 - Write timer settings (alarm)
				             10011 - Read timer settings (alarm)
				             10100 - Set time/date
				             10101 - Get time/date
				   Bit 5-6 - Unknown
				   Bit 7   - Command done (read only)
				*/
			switch( data ) {
			case 0x10:	/* Reset */
				rtc.index = 8;
				rtc.year = 0;
				rtc.month = 1;
				rtc.day = 1;
				rtc.day_of_week = 0;
				rtc.hour = 0;
				rtc.minute = 0;
				rtc.second = 0;
				rtc.setting = 0xFF;
				data |= 0x80;
				break;
			case 0x12:	/* Write Timer Settings (Alarm) */
				rtc.index = 8;
				rtc.setting = ws_portram[0xcb];
				data |= 0x80;
				break;
			case 0x13:	/* Read Timer Settings (Alarm) */
				rtc.index = 8;
				ws_portram[0xcb] = rtc.setting;
				data |= 0x80;
				break;
			case 0x14:	/* Set Time/Date */
				rtc.year = ws_portram[0xcb];
				rtc.index = 1;
				data |= 0x80;
				break;
			case 0x15:	/* Get Time/Date */
				rtc.index = 0;
				data |= 0x80;
				ws_portram[0xcb] = rtc.year;
				break;
			default:
				logerror( "%X: Unknown RTC command (%X) requested\n", activecpu_get_pc(), data );
			}
			break;
		case 0xcb:	/* RTC Data */
			if ( ws_portram[0xca] == 0x94 && rtc.index < 7 ) {
				switch( rtc.index ) {
				case 0:	rtc.year = data; break;
				case 1: rtc.month = data; break;
				case 2: rtc.day = data; break;
				case 3: rtc.day_of_week = data; break;
				case 4: rtc.hour = data; break;
				case 5: rtc.minute = data; break;
				case 6: rtc.second = data; break;
				}
				rtc.index++;
			}
			break;
		default:
			logerror( "Write to unsupported port: %X - %X\n", offset, data );
			break;
	}

	/* Update the port value */
	ws_portram[offset] = data;
}

static const char* wswan_determine_sram( UINT8 data ) {
	eeprom.write_enabled = 0;
	eeprom.mode = SRAM_UNKNOWN;
	switch( data ) {
	case 0x00: eeprom.mode = SRAM_NONE; break;
	case 0x01: eeprom.mode = SRAM_64K; break;
	case 0x02: eeprom.mode = SRAM_256K; break;
	case 0x03: eeprom.mode = SRAM_1M; break;
	case 0x04: eeprom.mode = SRAM_2M; break;
	case 0x05: eeprom.mode = SRAM_512K; break;
	case 0x10: eeprom.mode = EEPROM_1K; break;
	case 0x20: eeprom.mode = EEPROM_16K; break;
	case 0x50: eeprom.mode = EEPROM_8K; break;
	}
	eeprom.size = wswan_sram_size[ eeprom.mode ];
	return wswan_sram_str[ eeprom.mode ];
}

#ifdef MAME_DEBUG
enum enum_romsize { ROM_4M=0, ROM_8M, ROM_16M, ROM_32M, ROM_64M, ROM_128M, ROM_UNKNOWN };
const char* wswan_romsize_str[] = {
	"4Mbit", "8Mbit", "16Mbit", "32Mbit", "64Mbit", "128Mbit", "Unknown"
};

static const char* wswan_determine_romsize( UINT8 data ) {
	switch( data ) {
	case 0x02:	return wswan_romsize_str[ ROM_4M ];
	case 0x03:	return wswan_romsize_str[ ROM_8M ];
	case 0x04:	return wswan_romsize_str[ ROM_16M ];
	case 0x06:	return wswan_romsize_str[ ROM_32M ];
	case 0x08:	return wswan_romsize_str[ ROM_64M ];
	case 0x09:	return wswan_romsize_str[ ROM_128M ];
	}
	return wswan_romsize_str[ ROM_UNKNOWN ];
}
#endif

DEVICE_INIT(wswan_cart)
{
	/* Initialize EEPROM structure */
	memset( &eeprom, 0, sizeof( eeprom ) );
	eeprom.data = NULL;
	eeprom.page = NULL;

	/* Initialize RTC structure */
	rtc.present = 0;
	rtc.index = 0;
	rtc.year = 0;
	rtc.month = 0;
	rtc.day = 0;
	rtc.day_of_week = 0;
	rtc.hour = 0;
	rtc.minute = 0;
	rtc.second = 0;
	rtc.setting = 0xFF;

	return INIT_PASS;
}

DEVICE_LOAD(wswan_cart)
{
	UINT32 ii;
	const char *sram_str;

	ws_ram = memory_get_read_ptr( 0, ADDRESS_SPACE_PROGRAM, 0 );
	memset( ws_ram, 0, 0xFFFF );
	ROMBanks = image_length( image ) / 65536;

	for( ii = 0; ii < ROMBanks; ii++ )
	{
		if( (ROMMap[ii] = auto_malloc( 0x10000 )) )
		{
			if( image_fread( image, ROMMap[ii], 0x10000 ) != 0x10000 )
			{
				logerror( "Error while reading loading rom!\n" );
				return INIT_FAIL;
			}
		}
		else
		{
			logerror( "Memory allocation failed reading rom!\n" );
			return INIT_FAIL;
		}
	}

	sram_str = wswan_determine_sram( ROMMap[ROMBanks-1][0xfffb] );

	rtc.present = ROMMap[ROMBanks-1][0xfffd] ? 1 : 0;

#ifdef MAME_DEBUG
	{
		int sum = 0;
		/* Spit out some info */
		mame_printf_debug( "ROM DETAILS\n" );
		mame_printf_debug( "\tDeveloper ID: %X\n", ROMMap[ROMBanks-1][0xfff6] );
		mame_printf_debug( "\tMinimum system: %s\n", ROMMap[ROMBanks-1][0xfff7] ? "WonderSwan Color" : "WonderSwan" );
		mame_printf_debug( "\tCart ID: %X\n", ROMMap[ROMBanks-1][0xfff8] );
		mame_printf_debug( "\tROM size: %s\n", wswan_determine_romsize( ROMMap[ROMBanks-1][0xfffa] ) );
		mame_printf_debug( "\tSRAM size: %s\n", sram_str );
		mame_printf_debug( "\tFeatures: %X\n", ROMMap[ROMBanks-1][0xfffc] );
		mame_printf_debug( "\tRTC: %s\n", ( ROMMap[ROMBanks-1][0xfffd] ? "yes" : "no" ) );
		for( ii = 0; ii < ROMBanks; ii++ ) {
			int count;
			for( count = 0; count < 0x10000; count++ ) {
				sum += ROMMap[ii][count];
			}
		}
		sum -= ROMMap[ROMBanks-1][0xffff];
		sum -= ROMMap[ROMBanks-1][0xfffe];
		sum &= 0xFFFF;
		mame_printf_debug( "\tChecksum: %X%X (calculated: %04X)\n", ROMMap[ROMBanks-1][0xffff], ROMMap[ROMBanks-1][0xfffe], sum );
	}
#endif

	if ( eeprom.size != 0 ) {
		eeprom.data = auto_malloc( eeprom.size );
		image_battery_load( image, eeprom.data, eeprom.size );
		eeprom.page = eeprom.data;
	}

	logerror( "Image Name: %s\n", image_longname( image ) );
	logerror( "Image Year: %s\n", image_year( image ) );
	logerror( "Image Manufacturer: %s\n", image_manufacturer( image ) );

	/* All done */
	return INIT_PASS;
}

INTERRUPT_GEN(wswan_scanline_interrupt)
{
	if( vdp.current_line < 144 ) {
		wswan_refresh_scanline();
	}

	/* Decrement 12kHz (HBlank) counter */
	if ( vdp.timer_hblank_enable && vdp.timer_hblank_reload != 0 ) {
		vdp.timer_hblank_count--;
		logerror( "timer_hblank_count: %X\n", vdp.timer_hblank_count );
		if ( vdp.timer_hblank_count == 0 ) {
			if ( vdp.timer_hblank_mode ) {
				vdp.timer_hblank_count = vdp.timer_hblank_reload;
			} else {
				vdp.timer_hblank_reload = 0;
			}
			logerror( "trigerring hbltmr interrupt\n" );
			wswan_set_irq_line( WSWAN_IFLAG_HBLTMR );
		}
	}

	/* Handle Sound DMA */
	if ( ( sound_dma.enable & 0x88 ) == 0x80 ) {
		/* TODO: Output sound DMA byte */
		wswan_port_w( 0x89, program_read_byte_8( sound_dma.source ) );
		sound_dma.size--;
		sound_dma.source = ( sound_dma.source + 1 ) & 0x0FFFFF;
		if ( sound_dma.size == 0 ) {
			sound_dma.enable &= 0x7F;
		}
	}

//	vdp.current_line = (vdp.current_line + 1) % 159;

	if( vdp.current_line == 144 ) {
		wswan_set_irq_line( WSWAN_IFLAG_VBL );
		/* Decrement 75Hz (VBlank) counter */
		if ( vdp.timer_vblank_enable && vdp.timer_vblank_reload != 0 ) {
			vdp.timer_vblank_count--;
			logerror( "timer_vblank_count: %X\n", vdp.timer_vblank_count );
			if ( vdp.timer_vblank_count == 0 ) {
				if ( vdp.timer_vblank_mode ) {
					vdp.timer_vblank_count = vdp.timer_vblank_reload;
				} else {
					vdp.timer_vblank_reload = 0;
				}
				logerror( "triggering vbltmr interrupt\n" );
				wswan_set_irq_line( WSWAN_IFLAG_VBLTMR );
			}
		}
	}

//	vdp.current_line = (vdp.current_line + 1) % 159; 

	if ( vdp.current_line == vdp.line_compare ) {
		wswan_set_irq_line( WSWAN_IFLAG_LCMP );
	}

	vdp.current_line = (vdp.current_line + 1) % 159;

	if ( vdp.current_line == 0 ) {
		if ( vdp.display_vertical != vdp.new_display_vertical ) {
			vdp.display_vertical = vdp.new_display_vertical;
			if ( vdp.display_vertical ) {
				video_screen_set_visarea( 0, 5*8, 5*8 + WSWAN_Y_PIXELS - 1, 0, WSWAN_X_PIXELS - 1 );
			} else {
				video_screen_set_visarea( 0, 0, WSWAN_X_PIXELS - 1, 5*8, 5*8 + WSWAN_Y_PIXELS - 1 );
			}
		}
	}
}

