src/mess/drivers/h19.c
| r9763 | r9764 | |
|---|
| 9 | 9 | #include "emu.h" |
| 10 | 10 | #include "cpu/z80/z80.h" |
| 11 | 11 | #include "video/mc6845.h" |
| 12 | #include "sound/beep.h" |
| 12 | 13 | |
| 14 | #define H19_CLOCK (XTAL_12_288MHz / 6) |
| 15 | #define H19_BEEP_FRQ (H19_CLOCK / 1024) |
| 16 | // next one needs to be measured |
| 17 | #define H19_IRQ_PULSE (H19_BEEP_FRQ / 2) |
| 13 | 18 | |
| 19 | |
| 14 | 20 | class h19_state : public driver_device |
| 15 | 21 | { |
| 16 | 22 | public: |
| 17 | 23 | h19_state(running_machine &machine, const driver_device_config_base &config) |
| 18 | 24 | : driver_device(machine, config) { } |
| 19 | 25 | |
| 20 | | UINT8 *video_ram; |
| 26 | UINT8 *video |
| 21 | 27 | UINT8 *charrom; |
| 28 | running_device *beeper; |
| 22 | 29 | }; |
| 23 | 30 | |
| 24 | 31 | |
| 32 | static TIMER_CALLBACK( h19_beepoff ) |
| 33 | { |
| 34 | h19_state *state = machine->driver_data<h19_state>(); |
| 35 | beep_set_state(state->beeper, 0); |
| 36 | } |
| 25 | 37 | |
| 38 | static WRITE8_HANDLER( h19_c0_w ) |
| 39 | { |
| 40 | h19_state *state = space->machine->driver_data<h19_state>(); |
| 41 | /* Beeper control - lengths need verifying |
| 42 | offset 00-1F = keyclick |
| 43 | offset 20-3F = terminal bell */ |
| 44 | |
| 45 | UINT16 length = 0; |
| 46 | |
| 47 | if (offset & 0x20) |
| 48 | length = 200; |
| 49 | else |
| 50 | length = 4; |
| 51 | |
| 52 | timer_set(space->machine, ATTOTIME_IN_MSEC(length), NULL, 0, h19_beepoff); |
| 53 | beep_set_state(state->beeper, 1); |
| 54 | } |
| 55 | |
| 26 | 56 | static ADDRESS_MAP_START(h19_mem, ADDRESS_SPACE_PROGRAM, 8) |
| 27 | 57 | ADDRESS_MAP_UNMAP_HIGH |
| 28 | 58 | AM_RANGE(0x0000, 0x1fff) AM_ROM |
| 29 | 59 | AM_RANGE(0x2000, 0xf7ff) AM_RAM |
| 30 | | AM_RANGE(0xf800, 0xffff) AM_RAM AM_BASE_MEMBER(h19_state, video_ram) |
| 60 | AM_RANGE(0xf800, 0xffff) AM_RAM AM_BASE_MEMBER(h19_state, video |
| 31 | 61 | ADDRESS_MAP_END |
| 32 | 62 | |
| 33 | 63 | static ADDRESS_MAP_START( h19_io , ADDRESS_SPACE_IO, 8) |
| 34 | 64 | ADDRESS_MAP_UNMAP_HIGH |
| 35 | 65 | ADDRESS_MAP_GLOBAL_MASK(0xff) |
| 36 | | AM_RANGE(0x60, 0x60) AM_DEVWRITE("crtc", mc6845_address_w) |
| 37 | | AM_RANGE(0x61, 0x61) AM_DEVREADWRITE("crtc", mc6845_register_r , mc6845_register_w) |
| 66 | AM_RANGE(0x60, 0x60) AM_MIRROR(0x1E) AM_DEVWRITE("crtc", mc6845_address_w) |
| 67 | AM_RANGE(0x61, 0x61) AM_MIRROR(0x1E) AM_DEVREADWRITE("crtc", mc6845_register_r, mc6845_register_w) |
| 68 | AM_RANGE(0xc0, 0xff) AM_WRITE(h19_c0_w) |
| 69 | //AM_RANGE(0x00, 0x3F) powerup logic |
| 70 | //AM_RANGE(0x40, 0x5F) serial control |
| 71 | //AM_RANGE(0x80, 0x9F) keyboard data |
| 72 | //AM_RANGE(0xA0, 0xBF) keyboard control |
| 38 | 73 | ADDRESS_MAP_END |
| 39 | 74 | |
| 40 | 75 | /* Input ports */ |
| r9763 | r9764 | |
|---|
| 44 | 79 | |
| 45 | 80 | static MACHINE_RESET(h19) |
| 46 | 81 | { |
| 82 | h19_state *state = machine->driver_data<h19_state>(); |
| 83 | state->beeper = machine->device("beep"); |
| 84 | beep_set_frequency(state->beeper, H19_BEEP_FRQ); |
| 47 | 85 | } |
| 48 | 86 | |
| 49 | 87 | static VIDEO_START( h19 ) |
| r9763 | r9764 | |
|---|
| 70 | 108 | { |
| 71 | 109 | UINT8 inv=0; |
| 72 | 110 | if (x == cursor_x) inv=0xff; |
| 73 | | mem = (ma + x) & 0xfff; |
| 74 | | chr = state->video_ram[mem]; |
| 111 | mem = (ma + x) & 0x7ff; |
| 112 | chr = state->videoram[mem]; |
| 75 | 113 | |
| 76 | 114 | if (chr & 0x80) |
| 77 | 115 | { |
| r9763 | r9764 | |
|---|
| 104 | 142 | DEVCB_NULL, |
| 105 | 143 | DEVCB_NULL, |
| 106 | 144 | DEVCB_NULL, |
| 107 | | DEVCB_NULL, |
| 145 | DEVCB_CPU_INPUT_LINE("maincpu", INPUT_LINE_NMI), // frame pulse |
| 108 | 146 | NULL |
| 109 | 147 | }; |
| 110 | 148 | |
| r9763 | r9764 | |
|---|
| 129 | 167 | |
| 130 | 168 | static MACHINE_CONFIG_START( h19, h19_state ) |
| 131 | 169 | /* basic machine hardware */ |
| 132 | | MDRV_CPU_ADD("maincpu",Z80, XTAL_12_288MHz / 6) // From schematics |
| 170 | MDRV_CPU_ADD("maincpu",Z80, H |
| 133 | 171 | MDRV_CPU_PROGRAM_MAP(h19_mem) |
| 134 | 172 | MDRV_CPU_IO_MAP(h19_io) |
| 173 | MDRV_DEVICE_PERIODIC_INT(irq0_line_hold, H19_IRQ_PULSE) |
| 135 | 174 | |
| 136 | 175 | MDRV_MACHINE_RESET(h19) |
| 137 | 176 | |
| r9763 | r9764 | |
|---|
| 150 | 189 | |
| 151 | 190 | MDRV_VIDEO_START( h19 ) |
| 152 | 191 | MDRV_VIDEO_UPDATE( h19 ) |
| 192 | |
| 193 | /* sound hardware */ |
| 194 | MDRV_SPEAKER_STANDARD_MONO("mono") |
| 195 | MDRV_SOUND_ADD("beep", BEEP, 0) |
| 196 | MDRV_SOUND_ROUTE(ALL_OUTPUTS, "mono", 1.00) |
| 153 | 197 | MACHINE_CONFIG_END |
| 154 | 198 | |
| 155 | 199 | /* ROM definition */ |
| r9763 | r9764 | |
|---|
| 174 | 218 | ROM_LOAD( "2716_444-37_h19keyb.bin", 0x0000, 0x0800, CRC(5c3e6972) SHA1(df49ce64ae48652346a91648c58178a34fb37d3c)) |
| 175 | 219 | // Watzman keyboard |
| 176 | 220 | ROM_LOAD( "keybd.bin", 0x0000, 0x0800, CRC(58dc8217) SHA1(1b23705290bdf9fc6342065c6a528c04bff67b13)) |
| 177 | | |
| 178 | 221 | ROM_END |
| 179 | 222 | |
| 180 | | /* Driver */ |
| 223 | /* Driver (year is either 1978 or 1979) */ |
| 181 | 224 | |
| 182 | 225 | /* YEAR NAME PARENT COMPAT MACHINE INPUT INIT COMPANY FULLNAME FLAGS */ |
| 183 | | COMP( 19??, h19, 0, 0, h19, h19, 0, "Heath Inc", "Heathkit H-19", GAME_NOT_WORKING | GAME_NO_SOUND) |
| 226 | COMP( 1978, h19, 0, 0, h19, h19, 0, "Heath Inc", "Heathkit H-19", GAME_NOT_WORKING | GAME_NO_SOUND) |