summaryrefslogtreecommitdiffstatshomepage
path: root/src/mess/drivers/cgenie.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/mess/drivers/cgenie.c')
-rw-r--r--src/mess/drivers/cgenie.c759
1 files changed, 759 insertions, 0 deletions
diff --git a/src/mess/drivers/cgenie.c b/src/mess/drivers/cgenie.c
new file mode 100644
index 00000000000..7e17038d05d
--- /dev/null
+++ b/src/mess/drivers/cgenie.c
@@ -0,0 +1,759 @@
+/***************************************************************************
+HAD to change the PORT_ANALOG defs in this file... please check ;-)
+
+Colour Genie memory map
+
+CPU #1:
+0000-3fff ROM basic & bios R D0-D7
+
+4000-bfff RAM
+c000-dfff ROM dos R D0-D7
+e000-efff ROM extra R D0-D7
+f000-f3ff color ram W/R D0-D3
+f400-f7ff font ram W/R D0-D7
+f800-f8ff keyboard matrix R D0-D7
+ffe0-ffe3 floppy motor W D0-D2
+ floppy head select W D3
+ffec-ffef FDC WD179x R/W D0-D7
+ ffec command W
+ ffec status R
+ ffed track R/W
+ ffee sector R/W
+ ffef data R/W
+
+Interrupts:
+IRQ mode 1
+NMI
+***************************************************************************/
+
+#include "emu.h"
+#include "cpu/z80/z80.h"
+#include "includes/cgenie.h"
+#include "imagedev/flopdrv.h"
+#include "formats/basicdsk.h"
+#include "imagedev/cartslot.h"
+#include "imagedev/cassette.h"
+#include "sound/ay8910.h"
+#include "sound/dac.h"
+#include "formats/cgen_cas.h"
+#include "machine/ram.h"
+
+static ADDRESS_MAP_START (cgenie_mem, AS_PROGRAM, 8, cgenie_state )
+ AM_RANGE(0x0000, 0x3fff) AM_ROM
+// AM_RANGE(0x4000, 0xbfff) AM_RAM // set up in MACHINE_START
+// AM_RANGE(0xc000, 0xdfff) AM_ROM // installed in cgenie_init_machine
+// AM_RANGE(0xe000, 0xefff) AM_ROM // installed in cgenie_init_machine
+ AM_RANGE(0xf000, 0xf3ff) AM_READWRITE_LEGACY(cgenie_colorram_r, cgenie_colorram_w ) AM_SHARE("colorram")
+ AM_RANGE(0xf400, 0xf7ff) AM_READWRITE_LEGACY(cgenie_fontram_r, cgenie_fontram_w) AM_SHARE("fontram")
+ AM_RANGE(0xf800, 0xf8ff) AM_READ_LEGACY(cgenie_keyboard_r )
+ AM_RANGE(0xf900, 0xffdf) AM_NOP
+ AM_RANGE(0xffe0, 0xffe3) AM_READWRITE_LEGACY(cgenie_irq_status_r, cgenie_motor_w )
+ AM_RANGE(0xffe4, 0xffeb) AM_NOP
+ AM_RANGE(0xffec, 0xffec) AM_READWRITE_LEGACY(cgenie_status_r, cgenie_command_w )
+ AM_RANGE(0xffe4, 0xffeb) AM_NOP
+ AM_RANGE(0xffec, 0xffec) AM_WRITE_LEGACY(cgenie_command_w )
+ AM_RANGE(0xffed, 0xffed) AM_READWRITE_LEGACY(cgenie_track_r, cgenie_track_w )
+ AM_RANGE(0xffee, 0xffee) AM_READWRITE_LEGACY(cgenie_sector_r, cgenie_sector_w )
+ AM_RANGE(0xffef, 0xffef) AM_READWRITE_LEGACY(cgenie_data_r, cgenie_data_w )
+ AM_RANGE(0xfff0, 0xffff) AM_NOP
+ADDRESS_MAP_END
+
+static ADDRESS_MAP_START (cgenie_io, AS_IO, 8, cgenie_state )
+ ADDRESS_MAP_GLOBAL_MASK(0xff)
+ AM_RANGE(0xf8, 0xf8) AM_DEVREADWRITE_LEGACY("ay8910", cgenie_sh_control_port_r, cgenie_sh_control_port_w )
+ AM_RANGE(0xf9, 0xf9) AM_DEVREADWRITE_LEGACY("ay8910", ay8910_r, ay8910_data_w )
+ AM_RANGE(0xfa, 0xfa) AM_READWRITE_LEGACY(cgenie_index_r, cgenie_index_w )
+ AM_RANGE(0xfb, 0xfb) AM_READWRITE_LEGACY(cgenie_register_r, cgenie_register_w )
+ AM_RANGE(0xff, 0xff) AM_READWRITE_LEGACY(cgenie_port_ff_r, cgenie_port_ff_w )
+ADDRESS_MAP_END
+
+static INPUT_PORTS_START( cgenie )
+ PORT_START("DSW0")
+ PORT_DIPNAME( 0x80, 0x80, "Floppy Disc Drives")
+ PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
+ PORT_DIPSETTING( 0x80, DEF_STR( On ) )
+ PORT_DIPNAME( 0x40, 0x40, "CG-DOS ROM C000-DFFF")
+ PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
+ PORT_DIPSETTING( 0x40, DEF_STR( On ) )
+ PORT_DIPNAME( 0x20, 0x00, "Extension E000-EFFF")
+ PORT_DIPSETTING( 0x00, DEF_STR( Off ) )
+ PORT_DIPSETTING( 0x20, DEF_STR( On ) )
+ PORT_DIPNAME( 0x10, 0x10, "Video Display accuracy") PORT_CODE(KEYCODE_F5) PORT_TOGGLE
+ PORT_DIPSETTING( 0x10, "TV set" )
+ PORT_DIPSETTING( 0x00, "RGB monitor" )
+ PORT_BIT(0x0f, 0x0f, IPT_UNUSED)
+
+/**************************************************************************
+ +-------------------------------+ +-------------------------------+
+ | 0 1 2 3 4 5 6 7 | | 0 1 2 3 4 5 6 7 |
++--+---+---+---+---+---+---+---+---+ +--+---+---+---+---+---+---+---+---+
+|0 | @ | A | B | C | D | E | F | G | |0 | ` | a | b | c | d | e | f | g |
+| +---+---+---+---+---+---+---+---+ | +---+---+---+---+---+---+---+---+
+|1 | H | I | J | K | L | M | N | O | |1 | h | i | j | k | l | m | n | o |
+| +---+---+---+---+---+---+---+---+ | +---+---+---+---+---+---+---+---+
+|2 | P | Q | R | S | T | U | V | W | |2 | p | q | r | s | t | u | v | w |
+| +---+---+---+---+---+---+---+---+ | +---+---+---+---+---+---+---+---+
+|3 | X | Y | Z | [ |F-1|F-2|F-3|F-4| |3 | x | y | z | { |F-5|F-6|F-7|F-8|
+| +---+---+---+---+---+---+---+---+ | +---+---+---+---+---+---+---+---+
+|4 | 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | |4 | 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 |
+| +---+---+---+---+---+---+---+---+ | +---+---+---+---+---+---+---+---+
+|5 | 8 | 9 | : | ; | , | - | . | / | |5 | 8 | 9 | * | + | < | = | > | ? |
+| +---+---+---+---+---+---+---+---+ | +---+---+---+---+---+---+---+---+
+|6 |ENT|CLR|BRK|UP |DN |LFT|RGT|SPC| |6 |ENT|CLR|BRK|UP |DN |LFT|RGT|SPC|
+| +---+---+---+---+---+---+---+---+ | +---+---+---+---+---+---+---+---+
+|7 |SHF|ALT|PUP|PDN|INS|DEL|CTL|END| |7 |SHF|ALT|PUP|PDN|INS|DEL|CTL|END|
++--+---+---+---+---+---+---+---+---+ +--+---+---+---+---+---+---+---+---+
+***************************************************************************/
+
+ PORT_START("ROW0")
+ PORT_BIT(0x01, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_OPENBRACE) PORT_CHAR('@') PORT_CHAR('`')
+ PORT_BIT(0x02, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_A) PORT_CHAR('a') PORT_CHAR('A')
+ PORT_BIT(0x04, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_B) PORT_CHAR('b') PORT_CHAR('B')
+ PORT_BIT(0x08, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_C) PORT_CHAR('c') PORT_CHAR('C')
+ PORT_BIT(0x10, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_D) PORT_CHAR('d') PORT_CHAR('D')
+ PORT_BIT(0x20, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_E) PORT_CHAR('e') PORT_CHAR('E')
+ PORT_BIT(0x40, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_F) PORT_CHAR('f') PORT_CHAR('F')
+ PORT_BIT(0x80, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_G) PORT_CHAR('g') PORT_CHAR('G')
+
+ PORT_START("ROW1")
+ PORT_BIT(0x01, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_H) PORT_CHAR('h') PORT_CHAR('H')
+ PORT_BIT(0x02, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_I) PORT_CHAR('i') PORT_CHAR('I')
+ PORT_BIT(0x04, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_J) PORT_CHAR('j') PORT_CHAR('J')
+ PORT_BIT(0x08, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_K) PORT_CHAR('k') PORT_CHAR('K')
+ PORT_BIT(0x10, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_L) PORT_CHAR('l') PORT_CHAR('L')
+ PORT_BIT(0x20, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_M) PORT_CHAR('m') PORT_CHAR('M')
+ PORT_BIT(0x40, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_N) PORT_CHAR('n') PORT_CHAR('N')
+ PORT_BIT(0x80, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_O) PORT_CHAR('o') PORT_CHAR('O')
+
+ PORT_START("ROW2")
+ PORT_BIT(0x01, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_P) PORT_CHAR('p') PORT_CHAR('P')
+ PORT_BIT(0x02, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_Q) PORT_CHAR('q') PORT_CHAR('Q')
+ PORT_BIT(0x04, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_R) PORT_CHAR('r') PORT_CHAR('R')
+ PORT_BIT(0x08, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_S) PORT_CHAR('s') PORT_CHAR('S')
+ PORT_BIT(0x10, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_T) PORT_CHAR('t') PORT_CHAR('T')
+ PORT_BIT(0x20, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_U) PORT_CHAR('u') PORT_CHAR('U')
+ PORT_BIT(0x40, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_V) PORT_CHAR('v') PORT_CHAR('V')
+ PORT_BIT(0x80, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_W) PORT_CHAR('w') PORT_CHAR('W')
+
+ PORT_START("ROW3")
+ PORT_BIT(0x01, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_X) PORT_CHAR('x') PORT_CHAR('X')
+ PORT_BIT(0x02, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_Y) PORT_CHAR('y') PORT_CHAR('Y')
+ PORT_BIT(0x04, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_Z) PORT_CHAR('z') PORT_CHAR('Z')
+ PORT_BIT(0x08, 0x00, IPT_KEYBOARD) PORT_NAME("[ { (Not Connected)") PORT_CHAR('[') PORT_CHAR('{')
+ PORT_BIT(0x10, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_F1) PORT_CHAR(UCHAR_MAMEKEY(F1)) PORT_CHAR(UCHAR_MAMEKEY(F5))
+ PORT_BIT(0x20, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_F2) PORT_CHAR(UCHAR_MAMEKEY(F2)) PORT_CHAR(UCHAR_MAMEKEY(F6))
+ PORT_BIT(0x40, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_F3) PORT_CHAR(UCHAR_MAMEKEY(F3)) PORT_CHAR(UCHAR_MAMEKEY(F7))
+ PORT_BIT(0x80, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_F4) PORT_CHAR(UCHAR_MAMEKEY(F4)) PORT_CHAR(UCHAR_MAMEKEY(F8))
+
+ PORT_START("ROW4")
+ PORT_BIT(0x01, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_0) PORT_CHAR('0')
+ PORT_BIT(0x02, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_1) PORT_CHAR('1') PORT_CHAR('!')
+ PORT_BIT(0x04, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_2) PORT_CHAR('2') PORT_CHAR('"')
+ PORT_BIT(0x08, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_3) PORT_CHAR('3') PORT_CHAR('#')
+ PORT_BIT(0x10, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_4) PORT_CHAR('4') PORT_CHAR('$')
+ PORT_BIT(0x20, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_5) PORT_CHAR('5') PORT_CHAR('%')
+ PORT_BIT(0x40, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_6) PORT_CHAR('6') PORT_CHAR('&')
+ PORT_BIT(0x80, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_7) PORT_CHAR('7') PORT_CHAR('\'')
+
+ PORT_START("ROW5")
+ PORT_BIT(0x01, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_8) PORT_CHAR('8') PORT_CHAR('(')
+ PORT_BIT(0x02, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_9) PORT_CHAR('9') PORT_CHAR(')')
+ PORT_BIT(0x04, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_MINUS) PORT_CHAR(':') PORT_CHAR('*')
+ PORT_BIT(0x08, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_COLON) PORT_CHAR(';') PORT_CHAR('+')
+ PORT_BIT(0x10, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_COMMA) PORT_CHAR(',') PORT_CHAR('<')
+ PORT_BIT(0x20, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_QUOTE) PORT_CHAR('-') PORT_CHAR('=')
+ PORT_BIT(0x40, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_STOP) PORT_CHAR('.') PORT_CHAR('>')
+ PORT_BIT(0x80, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_SLASH) PORT_CHAR('/') PORT_CHAR('?')
+
+ PORT_START("ROW6")
+ PORT_BIT(0x01, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_ENTER) PORT_CHAR(13)
+ PORT_BIT(0x02, 0x00, IPT_KEYBOARD) PORT_NAME("Clear") PORT_CODE(KEYCODE_EQUALS) PORT_CHAR(UCHAR_MAMEKEY(F10))
+ PORT_BIT(0x04, 0x00, IPT_KEYBOARD) PORT_NAME("Break") PORT_CODE(KEYCODE_BACKSLASH2) PORT_CHAR(UCHAR_MAMEKEY(ESC))
+ PORT_BIT(0x08, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_UP) PORT_CHAR(UCHAR_MAMEKEY(UP))
+ PORT_BIT(0x10, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_DOWN) PORT_CHAR(UCHAR_MAMEKEY(DOWN))
+ PORT_BIT(0x20, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_LEFT) PORT_CHAR(UCHAR_MAMEKEY(LEFT))
+ PORT_BIT(0x40, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_RIGHT) PORT_CHAR(UCHAR_MAMEKEY(RIGHT))
+ PORT_BIT(0x80, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_SPACE) PORT_CHAR(' ')
+
+ /* 2008-05 FP: Below we still miss a 'Lock' key, two 'Rst' keys (used in pair, they should restart the
+ system) and, I guess, two unused inputs (according to the user manual, there are no other keys on the
+ keyboard) */
+ PORT_START("ROW7")
+ PORT_BIT(0x01, 0x00, IPT_KEYBOARD) PORT_CODE(KEYCODE_LSHIFT) PORT_CODE(KEYCODE_LSHIFT) PORT_CHAR(UCHAR_SHIFT_1)
+ PORT_BIT(0x02, 0x00, IPT_KEYBOARD) PORT_NAME("Mod Sel") PORT_CODE(KEYCODE_LALT) PORT_CHAR(UCHAR_MAMEKEY(F9))
+ PORT_BIT(0x04, 0x00, IPT_KEYBOARD) PORT_NAME("Unknown 1")
+ PORT_BIT(0x08, 0x00, IPT_KEYBOARD) PORT_NAME("Rpt") PORT_CODE(KEYCODE_PGDN) PORT_CHAR(UCHAR_MAMEKEY(F11))
+ PORT_BIT(0x10, 0x00, IPT_KEYBOARD) PORT_NAME("Ctrl") PORT_CODE(KEYCODE_LCONTROL) PORT_CHAR(UCHAR_MAMEKEY(F12))
+ PORT_BIT(0x20, 0x00, IPT_KEYBOARD) PORT_NAME("Unknown 2")
+ PORT_BIT(0x40, 0x00, IPT_KEYBOARD) PORT_NAME("Unknown 3")
+ PORT_BIT(0x80, 0x00, IPT_KEYBOARD) PORT_NAME("Unknown 4")
+
+ PORT_START("JOY0")
+ PORT_BIT( 0xff, 0x60, IPT_AD_STICK_X) PORT_SENSITIVITY(40) PORT_KEYDELTA(0) PORT_MINMAX(0x00,0xcf ) PORT_PLAYER(1)
+
+ PORT_START("JOY1")
+ PORT_BIT( 0xff, 0x60, IPT_AD_STICK_Y) PORT_SENSITIVITY(40) PORT_KEYDELTA(0) PORT_MINMAX(0x00,0xcf ) PORT_PLAYER(1) PORT_REVERSE
+
+ PORT_START("JOY2")
+ PORT_BIT( 0xff, 0x60, IPT_AD_STICK_X) PORT_SENSITIVITY(40) PORT_KEYDELTA(0) PORT_MINMAX(0x00,0xcf ) PORT_PLAYER(2)
+
+ PORT_START("JOY3")
+ PORT_BIT( 0xff, 0x60, IPT_AD_STICK_Y) PORT_SENSITIVITY(40) PORT_KEYDELTA(0) PORT_MINMAX(0x00,0xcf ) PORT_PLAYER(2) PORT_REVERSE
+
+ /* Joystick Keypad */
+ /* keypads were organized a 3 x 4 matrix and it looked */
+ /* exactly like a our northern telephone numerical pads */
+ /* The addressing was done with a single clear bit 0..6 */
+ /* on i/o port A, while all other bits were set. */
+ /* (e.g. 0xFE addresses keypad1 row 0, 0xEF keypad2 row 1) */
+
+ /* bit 0 1 2 3 */
+ /* FE/F7 0 [3] [6] [9] [#] */
+ /* FD/EF 1 [2] [5] [8] [0] */
+ /* FB/DF 2 [1] [4] [7] [*] */
+
+ /* 2008-05 FP: temporarily I mapped these as follows:
+ - Joy 1 at Keypad
+ - Joy 2 at a Joystick buttons
+ A better mapping would be needed...
+ */
+
+ PORT_START("KP0")
+ PORT_BIT(0x01, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 1 [3]") PORT_CODE(KEYCODE_3_PAD)
+ PORT_BIT(0x02, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 1 [6]") PORT_CODE(KEYCODE_6_PAD)
+ PORT_BIT(0x04, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 1 [9]") PORT_CODE(KEYCODE_9_PAD)
+ PORT_BIT(0x08, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 1 [#]") PORT_CODE(KEYCODE_SLASH_PAD)
+
+ PORT_START("KP1")
+ PORT_BIT(0x01, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 1 [2]") PORT_CODE(KEYCODE_2_PAD)
+ PORT_BIT(0x02, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 1 [5]") PORT_CODE(KEYCODE_5_PAD)
+ PORT_BIT(0x04, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 1 [8]") PORT_CODE(KEYCODE_8_PAD)
+ PORT_BIT(0x08, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 1 [0]") PORT_CODE(KEYCODE_0_PAD)
+
+ PORT_START("KP2")
+ PORT_BIT(0x01, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 1 [1]") PORT_CODE(KEYCODE_1_PAD)
+ PORT_BIT(0x02, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 1 [4]") PORT_CODE(KEYCODE_4_PAD)
+ PORT_BIT(0x04, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 1 [7]") PORT_CODE(KEYCODE_7_PAD)
+ PORT_BIT(0x08, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 1 [*]") PORT_CODE(KEYCODE_ASTERISK)
+
+ PORT_START("KP3")
+ PORT_BIT(0x01, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 2 [3]") PORT_CODE(JOYCODE_BUTTON2)
+ PORT_BIT(0x02, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 2 [6]") PORT_CODE(JOYCODE_BUTTON5)
+ PORT_BIT(0x04, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 2 [9]")
+ PORT_BIT(0x08, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 2 [#]") PORT_CODE(JOYCODE_BUTTON1)
+
+ PORT_START("KP4")
+ PORT_BIT(0x01, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 2 [2]") PORT_CODE(JOYCODE_BUTTON2)
+ PORT_BIT(0x02, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 2 [5]") PORT_CODE(JOYCODE_BUTTON5)
+ PORT_BIT(0x04, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 2 [8]")
+ PORT_BIT(0x08, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 2 [0]")
+
+ PORT_START("KP5")
+ PORT_BIT(0x01, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 2 [1]") PORT_CODE(JOYCODE_BUTTON1)
+ PORT_BIT(0x02, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 2 [4]") PORT_CODE(JOYCODE_BUTTON4)
+ PORT_BIT(0x04, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 2 [7]")
+ PORT_BIT(0x08, 0x00, IPT_KEYBOARD) PORT_NAME("Joy 2 [*]") PORT_CODE(JOYCODE_BUTTON1)
+INPUT_PORTS_END
+
+static const gfx_layout cgenie_charlayout =
+{
+ 8,8, /* 8*8 characters */
+ 384, /* 256 fixed + 128 defineable characters */
+ 1, /* 1 bits per pixel */
+ { 0 }, /* no bitplanes; 1 bit per pixel */
+ { 0, 1, 2, 3, 4, 5, 6, 7 }, /* x offsets */
+ { 0*8,1*8,2*8,3*8,4*8,5*8,6*8,7*8 },
+ 8*8 /* every char takes 8 bytes */
+};
+
+static const gfx_layout cgenie_gfxlayout =
+{
+ 8,8, /* 4*8 characters */
+ 256, /* 256 graphics patterns */
+ 2, /* 2 bits per pixel */
+ { 0, 1 }, /* two bitplanes; 2 bit per pixel */
+ { 0, 0, 2, 2, 4, 4, 6, 6}, /* x offsets */
+ { 0*8,1*8,2*8,3*8,4*8,5*8,6*8,7*8 },
+ 8*8 /* every char takes 8 bytes */
+};
+
+static GFXDECODE_START( cgenie )
+ GFXDECODE_ENTRY( "gfx1", 0, cgenie_charlayout, 0, 3*16 )
+ GFXDECODE_ENTRY( "gfx2", 0, cgenie_gfxlayout, 3*16*2, 3*4 )
+GFXDECODE_END
+
+static const unsigned char cgenie_colors[] = {
+ 0x00,0x00,0x00, /* background */
+ 0x5e,0x5e,0x5e, /* gray */
+ 0x11,0xff,0xea, /* cyan */
+ 0xff,0x00,0x5e, /* red */
+ 0xea,0xea,0xea, /* white */
+ 0xff,0xf9,0x00, /* yellow */
+ 0x6e,0xff,0x00, /* green */
+ 0xff,0x52,0x00, /* orange */
+ 0xea,0xff,0x00, /* light yellow */
+ 0x02,0x48,0xff, /* blue */
+ 0x8e,0xd4,0xff, /* light blue */
+ 0xff,0x12,0xff, /* pink */
+ 0x88,0x43,0xff, /* purple */
+ 0x8c,0x8c,0x8c, /* light gray */
+ 0x00,0xfb,0x8c, /* turquoise */
+ 0xd2,0x00,0xff, /* magenta */
+ 0xff,0xff,0xff, /* bright white */
+
+
+#if 0
+ 0*4, 0*4, 0*4, /* background */
+
+/* this is the 'RGB monitor' version, strong and clean */
+ 15*4, 15*4, 15*4, /* gray */
+ 0*4, 48*4, 48*4, /* cyan */
+ 60*4, 0*4, 0*4, /* red */
+ 47*4, 47*4, 47*4, /* white */
+ 55*4, 55*4, 0*4, /* yellow */
+ 0*4, 56*4, 0*4, /* green */
+ 42*4, 32*4, 0*4, /* orange */
+ 63*4, 63*4, 0*4, /* light yellow */
+ 0*4, 0*4, 48*4, /* blue */
+ 0*4, 24*4, 63*4, /* light blue */
+ 60*4, 0*4, 38*4, /* pink */
+ 38*4, 0*4, 60*4, /* purple */
+ 31*4, 31*4, 31*4, /* light gray */
+ 0*4, 63*4, 63*4, /* light cyan */
+ 58*4, 0*4, 58*4, /* magenta */
+ 63*4, 63*4, 63*4, /* bright white */
+#endif
+
+/* this is the 'TV screen' version, weak and blurred by repeating pixels */
+ 15*2+80, 15*2+80, 15*2+80, /* gray */
+ 0*2+80, 48*2+80, 48*2+80, /* cyan */
+ 60*2+80, 0*2+80, 0*2+80, /* red */
+ 47*2+80, 47*2+80, 47*2+80, /* white */
+ 55*2+80, 55*2+80, 0*2+80, /* yellow */
+ 0*2+80, 56*2+80, 0*2+80, /* green */
+ 42*2+80, 32*2+80, 0*2+80, /* orange */
+ 63*2+80, 63*2+80, 0*2+80, /* light yellow */
+ 0*2+80, 0*2+80, 48*2+80, /* blue */
+ 0*2+80, 24*2+80, 63*2+80, /* light blue */
+ 60*2+80, 0*2+80, 38*2+80, /* pink */
+ 38*2+80, 0*2+80, 60*2+80, /* purple */
+ 31*2+80, 31*2+80, 31*2+80, /* light gray */
+ 0*2+80, 63*2+80, 63*2+80, /* light cyan */
+ 58*2+80, 0*2+80, 58*2+80, /* magenta */
+ 63*2+80, 63*2+80, 63*2+80, /* bright white */
+
+ 15*2+96, 15*2+96, 15*2+96, /* gray */
+ 0*2+96, 48*2+96, 48*2+96, /* cyan */
+ 60*2+96, 0*2+96, 0*2+96, /* red */
+ 47*2+96, 47*2+96, 47*2+96, /* white */
+ 55*2+96, 55*2+96, 0*2+96, /* yellow */
+ 0*2+96, 56*2+96, 0*2+96, /* green */
+ 42*2+96, 32*2+96, 0*2+96, /* orange */
+ 63*2+96, 63*2+96, 0*2+96, /* light yellow */
+ 0*2+96, 0*2+96, 48*2+96, /* blue */
+ 0*2+96, 24*2+96, 63*2+96, /* light blue */
+ 60*2+96, 0*2+96, 38*2+96, /* pink */
+ 38*2+96, 0*2+96, 60*2+96, /* purple */
+ 31*2+96, 31*2+96, 31*2+96, /* light gray */
+ 0*2+96, 63*2+96, 63*2+96, /* light cyan */
+ 58*2+96, 0*2+96, 58*2+96, /* magenta */
+ 63*2+96, 63*2+96, 63*2+96, /* bright white */
+
+
+};
+
+static const unsigned char cgenienz_colors[] = {
+ 0x00,0x00,0x00, /* background */
+ 0xff,0xff,0xff, /* gray */
+ 0x12,0xff,0xff, /* cyan */
+ 0xff,0x6f,0xff, /* red */
+ 0x31,0x77,0xff, /* white */
+ 0xff,0xcb,0x00, /* yellow */
+ 0x6e,0xff,0x00, /* green */
+ 0xff,0x52,0x00, /* orange */
+ 0x5e,0x5e,0x5e, /* light yellow */
+ 0xea,0xea,0xea, /* blue */
+ 0x00,0xff,0xdd, /* light blue */
+ 0xd2,0x00,0xff, /* pink */
+ 0x02,0x48,0xff, /* purple */
+ 0xff,0xf9,0x00, /* light gray */
+ 0x00,0xda,0x00, /* light cyan */
+ 0xff,0x22,0x00, /* magenta */
+ 0x00,0x00,0x00, /* bright white */
+
+
+/* this is the 'TV screen' version, weak and blurred by repeating pixels */
+ 15*2+80, 15*2+80, 15*2+80, /* gray */
+ 0*2+80, 48*2+80, 48*2+80, /* cyan */
+ 60*2+80, 0*2+80, 0*2+80, /* red */
+ 47*2+80, 47*2+80, 47*2+80, /* white */
+ 55*2+80, 55*2+80, 0*2+80, /* yellow */
+ 0*2+80, 56*2+80, 0*2+80, /* green */
+ 42*2+80, 32*2+80, 0*2+80, /* orange */
+ 63*2+80, 63*2+80, 0*2+80, /* light yellow */
+ 0*2+80, 0*2+80, 48*2+80, /* blue */
+ 0*2+80, 24*2+80, 63*2+80, /* light blue */
+ 60*2+80, 0*2+80, 38*2+80, /* pink */
+ 38*2+80, 0*2+80, 60*2+80, /* purple */
+ 31*2+80, 31*2+80, 31*2+80, /* light gray */
+ 0*2+80, 63*2+80, 63*2+80, /* light cyan */
+ 58*2+80, 0*2+80, 58*2+80, /* magenta */
+ 63*2+80, 63*2+80, 63*2+80, /* bright white */
+
+ 15*2+96, 15*2+96, 15*2+96, /* gray */
+ 0*2+96, 48*2+96, 48*2+96, /* cyan */
+ 60*2+96, 0*2+96, 0*2+96, /* red */
+ 47*2+96, 47*2+96, 47*2+96, /* white */
+ 55*2+96, 55*2+96, 0*2+96, /* yellow */
+ 0*2+96, 56*2+96, 0*2+96, /* green */
+ 42*2+96, 32*2+96, 0*2+96, /* orange */
+ 63*2+96, 63*2+96, 0*2+96, /* light yellow */
+ 0*2+96, 0*2+96, 48*2+96, /* blue */
+ 0*2+96, 24*2+96, 63*2+96, /* light blue */
+ 60*2+96, 0*2+96, 38*2+96, /* pink */
+ 38*2+96, 0*2+96, 60*2+96, /* purple */
+ 31*2+96, 31*2+96, 31*2+96, /* light gray */
+ 0*2+96, 63*2+96, 63*2+96, /* light cyan */
+ 58*2+96, 0*2+96, 58*2+96, /* magenta */
+ 63*2+96, 63*2+96, 63*2+96, /* bright white */
+
+
+};
+
+static const unsigned short cgenie_palette[] =
+{
+ 0, 1, 0, 2, 0, 3, 0, 4, /* RGB monitor set of text colors */
+ 0, 5, 0, 6, 0, 7, 0, 8,
+ 0, 9, 0,10, 0,11, 0,12,
+ 0,13, 0,14, 0,15, 0,16,
+
+ 0,17, 0,18, 0,19, 0,20, /* TV set text colors: darker */
+ 0,21, 0,22, 0,23, 0,24,
+ 0,25, 0,26, 0,27, 0,28,
+ 0,29, 0,30, 0,31, 0,32,
+
+ 0,33, 0,34, 0,35, 0,36, /* TV set text colors: a bit brighter */
+ 0,37, 0,38, 0,39, 0,40,
+ 0,41, 0,42, 0,43, 0,44,
+ 0,45, 0,46, 0,47, 0,48,
+
+ 0, 9, 7, 6, /* RGB monitor graphics colors */
+ 0, 25, 23, 22, /* TV set graphics colors: darker */
+ 0, 41, 39, 38, /* TV set graphics colors: a bit brighter */
+};
+
+/* Initialise the palette */
+static PALETTE_INIT( cgenie )
+{
+ UINT8 i, r, g, b;
+
+ machine.colortable = colortable_alloc(machine, 49);
+
+ for ( i = 0; i < 49; i++ )
+ {
+ r = cgenie_colors[i*3]; g = cgenie_colors[i*3+1]; b = cgenie_colors[i*3+2];
+ colortable_palette_set_color(machine.colortable, i, MAKE_RGB(r, g, b));
+ }
+
+ for(i=0; i<108; i++)
+ colortable_entry_set_value(machine.colortable, i, cgenie_palette[i]);
+}
+
+static PALETTE_INIT( cgenienz )
+{
+ UINT8 i, r, g, b;
+
+ machine.colortable = colortable_alloc(machine, 49);
+
+ for ( i = 0; i < 49; i++ )
+ {
+ r = cgenienz_colors[i*3]; g = cgenienz_colors[i*3+1]; b = cgenienz_colors[i*3+2];
+ colortable_palette_set_color(machine.colortable, i, MAKE_RGB(r, g, b));
+ }
+
+ for(i=0; i<108; i++)
+ colortable_entry_set_value(machine.colortable, i, cgenie_palette[i]);
+}
+
+static const ay8910_interface cgenie_ay8910_interface =
+{
+ AY8910_LEGACY_OUTPUT,
+ AY8910_DEFAULT_LOADS,
+ DEVCB_MEMORY_HANDLER("maincpu", PROGRAM, cgenie_psg_port_a_r),
+ DEVCB_MEMORY_HANDLER("maincpu", PROGRAM, cgenie_psg_port_b_r),
+ DEVCB_MEMORY_HANDLER("maincpu", PROGRAM, cgenie_psg_port_a_w),
+ DEVCB_MEMORY_HANDLER("maincpu", PROGRAM, cgenie_psg_port_b_w)
+};
+
+
+static const cassette_interface cgenie_cassette_interface =
+{
+ cgenie_cassette_formats,
+ NULL,
+ (cassette_state)(CASSETTE_STOPPED),
+ NULL,
+ NULL
+};
+
+// This is currently broken
+static LEGACY_FLOPPY_OPTIONS_START(cgenie )
+ LEGACY_FLOPPY_OPTION( cgd, "cgd", "Colour Genie disk image", basicdsk_identify_default, basicdsk_construct_default, NULL,
+ HEADS([2])
+ TRACKS([40])
+ SECTORS([10])
+ SECTOR_LENGTH([256])
+ FIRST_SECTOR_ID([1]))
+LEGACY_FLOPPY_OPTIONS_END
+
+static const floppy_interface cgenie_floppy_interface =
+{
+ DEVCB_NULL,
+ DEVCB_NULL,
+ DEVCB_NULL,
+ DEVCB_NULL,
+ DEVCB_NULL,
+ FLOPPY_STANDARD_5_25_DSHD,
+ LEGACY_FLOPPY_OPTIONS_NAME(cgenie),
+ NULL,
+ NULL
+};
+
+static MACHINE_CONFIG_START( cgenie_common, cgenie_state )
+ /* basic machine hardware */
+ MCFG_CPU_ADD("maincpu", Z80, XTAL_17_73447MHz/8) /* 2,2168 MHz */
+ MCFG_CPU_PROGRAM_MAP(cgenie_mem)
+ MCFG_CPU_IO_MAP(cgenie_io)
+ MCFG_CPU_VBLANK_INT("screen", cgenie_frame_interrupt)
+ MCFG_CPU_PERIODIC_INT(cgenie_timer_interrupt, 40)
+ MCFG_QUANTUM_TIME(attotime::from_hz(240))
+
+ MCFG_MACHINE_START( cgenie )
+ MCFG_MACHINE_RESET( cgenie )
+
+ /* 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(48*8, 32*8)
+ MCFG_SCREEN_VISIBLE_AREA(0*8, 48*8-1,0*8,32*8-1)
+ MCFG_SCREEN_UPDATE_STATIC( cgenie )
+
+ MCFG_GFXDECODE( cgenie )
+ MCFG_PALETTE_LENGTH(108)
+
+ // Actually the video is driven by an HD46505 clocked at XTAL_17_73447MHz/16
+ MCFG_VIDEO_START( cgenie )
+
+ /* sound hardware */
+ MCFG_SPEAKER_STANDARD_MONO("mono")
+ MCFG_SOUND_ADD("dac", DAC, 0)
+ MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25)
+ MCFG_SOUND_ADD("ay8910", AY8910, XTAL_17_73447MHz/8)
+ MCFG_SOUND_CONFIG(cgenie_ay8910_interface)
+ MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.75)
+
+ MCFG_CASSETTE_ADD( CASSETTE_TAG, cgenie_cassette_interface )
+
+ MCFG_FD1793_ADD("wd179x", cgenie_wd17xx_interface ) // TODO confirm type
+
+ MCFG_LEGACY_FLOPPY_4_DRIVES_ADD(cgenie_floppy_interface)
+ /* cartridge */
+ MCFG_CARTSLOT_ADD("cart")
+ MCFG_CARTSLOT_EXTENSION_LIST("rom")
+ MCFG_CARTSLOT_NOT_MANDATORY
+
+ /* internal ram */
+ MCFG_RAM_ADD(RAM_TAG)
+ MCFG_RAM_DEFAULT_SIZE("16K")
+ MCFG_RAM_EXTRA_OPTIONS("32K")
+MACHINE_CONFIG_END
+
+static MACHINE_CONFIG_DERIVED( cgenie, cgenie_common )
+
+ MCFG_PALETTE_INIT( cgenie )
+MACHINE_CONFIG_END
+
+static MACHINE_CONFIG_DERIVED( cgenienz, cgenie_common )
+
+ MCFG_PALETTE_INIT( cgenienz )
+MACHINE_CONFIG_END
+
+/***************************************************************************
+
+ Game driver(s)
+
+***************************************************************************/
+
+ROM_START (cgenie)
+ ROM_REGION(0x13000,"maincpu",0)
+ ROM_LOAD ("cgenie.rom", 0x00000, 0x4000, CRC(d359ead7) SHA1(d8c2fc389ad38c45fba0ed556a7d91abac5463f4))
+ ROM_LOAD ("cgdos.rom", 0x10000, 0x2000, CRC(2a96cf74) SHA1(6dcac110f87897e1ee7521aefbb3d77a14815893))
+ ROM_CART_LOAD("cart", 0x12000, 0x1000, ROM_NOMIRROR | ROM_OPTIONAL)
+
+ ROM_REGION(0x0c00,"gfx1",0)
+ ROM_LOAD ("cgenie1.fnt", 0x0000, 0x0800, CRC(4fed774a) SHA1(d53df8212b521892cc56be690db0bb474627d2ff))
+
+ /* Empty memory region for the character generator */
+ ROM_REGION(0x0800,"gfx2",ROMREGION_ERASEFF)
+
+ROM_END
+
+ROM_START (cgenienz)
+ ROM_REGION(0x13000,"maincpu",0)
+ ROM_SYSTEM_BIOS(0, "old", "Old ROM")
+ ROMX_LOAD( "cg-basic-rom-v1-pal-en.rom", 0x0000, 0x4000, CRC(844aaedd) SHA1(b7f984bc5cd979c7ad11ff909e8134f694aea7aa), ROM_BIOS(1) )
+ ROM_SYSTEM_BIOS(1, "new", "New ROM")
+ ROMX_LOAD( "cgromv2.rom", 0x0000, 0x4000, CRC(cfb84e09) SHA1(e199e4429bab6f9fca2bb05e71324538928a693a), ROM_BIOS(2) )
+ ROM_LOAD ("cgdos.rom", 0x10000, 0x2000, CRC(2a96cf74) SHA1(6dcac110f87897e1ee7521aefbb3d77a14815893))
+ ROM_CART_LOAD("cart", 0x12000, 0x1000, ROM_NOMIRROR | ROM_OPTIONAL)
+
+ ROM_REGION(0x0c00,"gfx1",0)
+ ROM_LOAD ("cgenie1.fnt", 0x0000, 0x0800, CRC(4fed774a) SHA1(d53df8212b521892cc56be690db0bb474627d2ff))
+
+ /* Empty memory region for the character generator */
+ ROM_REGION(0x0800,"gfx2",ROMREGION_ERASEFF)
+
+ROM_END
+
+// Code below is previous non-working implementation , just for reference
+#if 0
+
+#define CGENIE_DRIVE_INFO
+
+
+
+//
+// abbreviations used:
+// GPL Granules Per Lump
+// GAT Granule Allocation Table
+// GATL GAT Length
+// GATM GAT Mask
+// DDGA Disk Directory Granule Allocation
+typedef struct
+{
+ UINT8 DDSL; // Disk Directory Start Lump (lump number of GAT)
+ UINT8 GATL; // # of bytes used in the Granule Allocation Table sector
+ UINT8 STEPRATE; // step rate and somet SD/DD flag ...
+ UINT8 TRK; // number of tracks
+ UINT8 SPT; // sectors per track (both heads counted!)
+ UINT8 GATM; // number of used bits per byte in the GAT sector (GAT mask)
+ UINT8 P7; // ???? always zero
+ UINT8 FLAGS; // ???? some flags (SS/DS bit 6)
+ UINT8 GPL; // Sectors per granule (always 5 for the Colour Genie)
+ UINT8 DDGA; // Disk Directory Granule allocation (number of driectory granules)
+} PDRIVE;
+
+static const PDRIVE pd_list[12] = {
+ {0x14, 0x28, 0x07, 0x28, 0x0A, 0x02, 0x00, 0x00, 0x05, 0x02}, // CMD"<0=A" 40 tracks, SS, SD
+ {0x14, 0x28, 0x07, 0x28, 0x14, 0x04, 0x00, 0x40, 0x05, 0x04}, // CMD"<0=B" 40 tracks, DS, SD
+ {0x18, 0x30, 0x53, 0x28, 0x12, 0x03, 0x00, 0x03, 0x05, 0x03}, // CMD"<0=C" 40 tracks, SS, DD
+ {0x18, 0x30, 0x53, 0x28, 0x24, 0x06, 0x00, 0x43, 0x05, 0x06}, // CMD"<0=D" 40 tracks, DS, DD
+ {0x14, 0x28, 0x07, 0x28, 0x0A, 0x02, 0x00, 0x04, 0x05, 0x02}, // CMD"<0=E" 40 tracks, SS, SD
+ {0x14, 0x28, 0x07, 0x28, 0x14, 0x04, 0x00, 0x44, 0x05, 0x04}, // CMD"<0=F" 40 tracks, DS, SD
+ {0x18, 0x30, 0x53, 0x28, 0x12, 0x03, 0x00, 0x07, 0x05, 0x03}, // CMD"<0=G" 40 tracks, SS, DD
+ {0x18, 0x30, 0x53, 0x28, 0x24, 0x06, 0x00, 0x47, 0x05, 0x06}, // CMD"<0=H" 40 tracks, DS, DD
+ {0x28, 0x50, 0x07, 0x50, 0x0A, 0x02, 0x00, 0x00, 0x05, 0x02}, // CMD"<0=I" 80 tracks, SS, SD
+ {0x28, 0x50, 0x07, 0x50, 0x14, 0x04, 0x00, 0x40, 0x05, 0x04}, // CMD"<0=J" 80 tracks, DS, SD
+ {0x30, 0x60, 0x53, 0x50, 0x12, 0x03, 0x00, 0x03, 0x05, 0x03}, // CMD"<0=K" 80 tracks, SS, DD
+ {0x30, 0x60, 0x53, 0x50, 0x24, 0x06, 0x00, 0x43, 0x05, 0x06}, // CMD"<0=L" 80 tracks, DS, DD
+};
+
+// basic-dsk is a disk image format which has the tracks and sectors
+// stored in order, no information is stored which details the number
+// of tracks, number of sides, number of sectors etc, so we need to
+// set that up here
+//
+DEVICE_IMAGE_LOAD( cgenie_floppy )
+{
+ int i, j, dir_offset;
+ UINT8 buff[16];
+ UINT8 tracks = 0;
+ UINT8 heads = 0;
+ UINT8 spt = 0;
+ short dir_sector = 0;
+ short dir_length = 0;
+
+ // A Floppy Isnt manditory, so return if none
+ if (device_load_basicdsk_floppy(image) != IMAGE_INIT_PASS)
+ return IMAGE_INIT_FAIL;
+
+ // determine image geometry
+ image.fseek(0, SEEK_SET);
+
+ // determine geometry from disk contents
+ for( i = 0; i < 12; i++ )
+ {
+ image.fseek(pd_list[i].SPT * 256, SEEK_SET);
+ image.fread( buff, 16);
+ // find an entry with matching DDSL
+ if (buff[0] != 0x00 || buff[1] != 0xfe || buff[2] != pd_list[i].DDSL)
+ continue;
+ logerror("cgenie: checking format #%d\n", i);
+
+ dir_sector = pd_list[i].DDSL * pd_list[i].GATM * pd_list[i].GPL + pd_list[i].SPT;
+ dir_length = pd_list[i].DDGA * pd_list[i].GPL;
+
+ // scan directory for DIR/SYS or NCW1983/JHL files
+ // look into sector 2 and 3 first entry relative to DDSL
+ for( j = 16; j < 32; j += 8 )
+ {
+ dir_offset = dir_sector * 256 + j * 32;
+ if( image.fseek(dir_offset, SEEK_SET) < 0 )
+ break;
+ if( image.fread( buff, 16) != 16 )
+ break;
+ if( !strncmp((char*)buff + 5, "DIR SYS", 11) ||
+ !strncmp((char*)buff + 5, "NCW1983 JHL", 11) )
+ {
+ tracks = pd_list[i].TRK;
+ heads = (pd_list[i].SPT > 18) ? 2 : 1;
+ spt = pd_list[i].SPT / heads;
+ dir_sector = pd_list[i].DDSL * pd_list[i].GATM * pd_list[i].GPL + pd_list[i].SPT;
+ dir_length = pd_list[i].DDGA * pd_list[i].GPL;
+ memcpy(image.device().machine().root_device().memregion("maincpu")->base() + 0x5A71 + floppy_get_drive(image) * sizeof(PDRIVE), &pd_list[i], sizeof(PDRIVE));
+ break;
+ }
+ }
+
+ logerror("cgenie: geometry %d tracks, %d heads, %d sec/track\n", tracks, heads, spt);
+ // set geometry so disk image can be read
+ basicdsk_set_geometry(image, tracks, heads, spt, 256, 0, 0, FALSE);
+
+ logerror("cgenie: directory sectors %d - %d (%d sectors)\n", dir_sector, dir_sector + dir_length - 1, dir_length);
+ // mark directory sectors with deleted data address mark
+ // assumption dir_sector is a sector offset
+ for (j = 0; j < dir_length; j++)
+ {
+ UINT8 track;
+ UINT8 side;
+ UINT8 sector_id;
+ UINT16 track_offset;
+ UINT16 sector_offset;
+
+ // calc sector offset
+ sector_offset = dir_sector + j;
+
+ // get track offset
+ track_offset = sector_offset / spt;
+
+ // calc track
+ track = track_offset / heads;
+
+ // calc side
+ side = track_offset % heads;
+
+ // calc sector id - first sector id is 0!
+ sector_id = sector_offset % spt;
+
+ // set deleted data address mark for sector specified
+ basicdsk_set_ddam(image, track, side, sector_id, 1);
+ }
+
+ }
+ return IMAGE_INIT_PASS;
+}
+#endif
+
+/* YEAR NAME PARENT COMPAT MACHINE INPUT INIT COMPANY FULLNAME */
+COMP( 1982, cgenie, 0, 0, cgenie, cgenie, driver_device, 0, "EACA Computers Ltd", "Colour Genie EG2000" , 0)
+COMP( 1982, cgenienz, cgenie, 0, cgenienz, cgenie, driver_device, 0, "EACA Computers Ltd", "Colour Genie EG2000 (New Zealand)" , 0)