1
/***************************************************************************
3
Pecom driver by Miodrag Milanovic
5
08/11/2008 Preliminary driver.
7
****************************************************************************/
10
#include "sound/cdp1869.h"
11
#include "sound/wave.h"
12
#include "cpu/cosmac/cosmac.h"
13
#include "includes/pecom.h"
15
WRITE8_HANDLER( pecom_cdp1869_w )
17
pecom_state *state = space->machine().driver_data<pecom_state>();
19
UINT16 ma = state->m_cdp1802->get_memory_address();
24
state->m_cdp1869->out3_w(*space, ma, data);
28
state->m_cdp1869->out4_w(*space, ma, data);
32
state->m_cdp1869->out5_w(*space, ma, data);
36
state->m_cdp1869->out6_w(*space, ma, data);
40
state->m_cdp1869->out7_w(*space, ma, data);
45
static ADDRESS_MAP_START( cdp1869_page_ram, AS_0, 8 )
46
AM_RANGE(0x000, 0x3ff) AM_MIRROR(0x400) AM_RAM
49
static CDP1869_CHAR_RAM_READ( pecom_char_ram_r )
51
pecom_state *state = device->machine().driver_data<pecom_state>();
53
UINT8 column = pmd & 0x7f;
54
UINT16 charaddr = (column << 4) | cma;
56
return state->m_charram[charaddr];
59
static CDP1869_CHAR_RAM_WRITE( pecom_char_ram_w )
61
pecom_state *state = device->machine().driver_data<pecom_state>();
63
UINT8 column = pmd & 0x7f;
64
UINT16 charaddr = (column << 4) | cma;
66
state->m_charram[charaddr] = data;
69
static CDP1869_PCB_READ( pecom_pcb_r )
74
static WRITE_LINE_DEVICE_HANDLER( pecom_prd_w )
76
pecom_state *driver_state = device->machine().driver_data<pecom_state>();
78
// every other PRD triggers a DMAOUT request
79
if (driver_state->m_dma)
81
cputag_set_input_line(device->machine(), CDP1802_TAG, COSMAC_INPUT_LINE_DMAOUT, HOLD_LINE);
84
driver_state->m_dma = !driver_state->m_dma;
87
static CDP1869_INTERFACE( pecom_cdp1869_intf )
90
CDP1869_COLOR_CLK_PAL,
95
DEVCB_LINE(pecom_prd_w)
98
static VIDEO_START( pecom )
100
pecom_state *state = machine.driver_data<pecom_state>();
102
/* allocate memory */
103
state->m_charram = auto_alloc_array(machine, UINT8, PECOM_CHAR_RAM_SIZE);
105
/* register for state saving */
106
state->save_item(NAME(state->m_reset));
107
state->save_item(NAME(state->m_dma));
108
state->save_pointer(NAME(state->m_charram), PECOM_CHAR_RAM_SIZE);
111
static SCREEN_UPDATE( pecom )
113
pecom_state *state = screen->machine().driver_data<pecom_state>();
115
state->m_cdp1869->update_screen(bitmap, cliprect);
120
MACHINE_CONFIG_FRAGMENT( pecom_video )
121
MCFG_CDP1869_SCREEN_PAL_ADD(SCREEN_TAG, CDP1869_DOT_CLK_PAL)
122
MCFG_SCREEN_UPDATE(pecom)
124
MCFG_VIDEO_START(pecom)
126
MCFG_SPEAKER_STANDARD_MONO("mono")
128
MCFG_CDP1869_ADD(CDP1869_TAG, CDP1869_DOT_CLK_PAL, pecom_cdp1869_intf, cdp1869_page_ram)
129
MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25)
130
MCFG_SOUND_WAVE_ADD(WAVE_TAG, CASSETTE_TAG)
131
MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25)