/* Trigger the light pen. */
void vic_trigger_light_pen(CLOCK mclk)
{
if (!vic.light_pen.triggered) {
vic.light_pen.triggered = 1;
vic.light_pen.x = 2 * ((mclk + 1) % vic.cycles_per_line) + 1;
vic.light_pen.y = VIC_RASTER_Y(mclk) / 2;
}
}
int vic_snapshot_write_module(snapshot_t *s)
{
int i;
snapshot_module_t *m;
m = snapshot_module_create(s, snap_module_name, SNAP_MAJOR, SNAP_MINOR);
if (m == NULL) {
return -1;
}
if (SMW_B(m, (BYTE)VIC_RASTER_CYCLE(maincpu_clk)) < 0
|| SMW_W(m, (WORD)VIC_RASTER_Y(maincpu_clk)) < 0) {
goto fail;
}
if (0
|| (SMW_W(m, (WORD)vic.area) < 0)
|| (SMW_W(m, (WORD)vic.fetch_state) < 0)
|| (SMW_DW(m, (DWORD)vic.raster_line) < 0)
|| (SMW_DW(m, (DWORD)vic.text_cols) < 0)
|| (SMW_DW(m, (DWORD)vic.text_lines) < 0)
|| (SMW_DW(m, (DWORD)vic.pending_text_cols) < 0)
|| (SMW_DW(m, (DWORD)vic.line_was_blank) < 0)
|| (SMW_DW(m, (DWORD)vic.memptr) < 0)
|| (SMW_DW(m, (DWORD)vic.memptr_inc) < 0)
|| (SMW_DW(m, (DWORD)vic.row_counter) < 0)
|| (SMW_DW(m, (DWORD)vic.buf_offset) < 0)
|| SMW_B(m, (BYTE)vic.light_pen.state) < 0
|| SMW_B(m, (BYTE)vic.light_pen.triggered) < 0
|| SMW_DW(m, (DWORD)vic.light_pen.x) < 0
|| SMW_DW(m, (DWORD)vic.light_pen.y) < 0
|| SMW_DW(m, (DWORD)vic.light_pen.x_extra_bits) < 0
|| SMW_DW(m, (DWORD)vic.light_pen.trigger_cycle) < 0
|| (SMW_B(m, vic.vbuf) < 0)) {
goto fail;
}
/* Color RAM. */
if (SMW_BA(m, mem_ram + 0x9400, 0x400) < 0) {
goto fail;
}
for (i = 0; i < 0x10; i++) {
if (SMW_B(m, (BYTE)vic.regs[i]) < 0) {
goto fail;
}
}
return snapshot_module_close(m);
fail:
if (m != NULL)
snapshot_module_close(m);
return -1;
}
BYTE vic_read(WORD addr)
{
addr &= 0xf;
switch (addr) {
case 3:
return ((VIC_RASTER_Y(maincpu_clk + vic.cycle_offset) & 1) << 7)
| (vic.regs[3] & ~0x80);
case 4:
return VIC_RASTER_Y(maincpu_clk + vic.cycle_offset) >> 1;
case 6:
return vic.light_pen.x;
case 7:
return vic.light_pen.y;
#ifdef HAVE_MOUSE
case 8:
if (_mouse_enabled) {
return mouse_get_x();
} else if (lightpen_enabled) {
return lightpen_read_button_x();
} else {
return 0xff;
}
break;
case 9:
if (_mouse_enabled) {
return mouse_get_y();
} else if (lightpen_enabled) {
return lightpen_read_button_y();
} else {
return 0xff;
}
break;
#else
case 8:
case 9:
return 0xff;
#endif
default:
return vic.regs[addr];
}
}
int vic_snapshot_read_module(snapshot_t *s)
{
WORD i;
snapshot_module_t *m;
BYTE major_version, minor_version;
WORD w;
BYTE b;
sound_close();
m = snapshot_module_open(s, snap_module_name,
&major_version, &minor_version);
if (m == NULL) {
return -1;
}
if (major_version > SNAP_MAJOR || minor_version > SNAP_MINOR) {
log_error(vic.log, "Snapshot module version (%d.%d) newer than %d.%d.",
major_version, minor_version,
SNAP_MAJOR, SNAP_MINOR);
goto fail;
}
if (SMR_B(m, &b) < 0) {
goto fail;
}
if (b != VIC_RASTER_CYCLE(maincpu_clk)) {
log_error(vic.log, "Cycle value (%d) incorrect; should be %d.",
(int)b, VIC_RASTER_CYCLE(maincpu_clk));
goto fail;
}
vic.raster_cycle = (unsigned int)b;
if (SMR_W(m, &w) < 0) {
goto fail;
}
if (w != VIC_RASTER_Y(maincpu_clk)) {
log_error(vic.log, "Raster line value (%d) incorrect; should be %d.",
(int)w, VIC_RASTER_Y(maincpu_clk));
goto fail;
}
if (SMR_W(m, &w) < 0) {
goto fail;
}
vic.area = (vic_area_state_t)w;
if (SMR_W(m, &w) < 0) {
goto fail;
}
vic.fetch_state = (vic_fetch_state_t)w;
if (0
|| (SMR_DW_UINT(m, &vic.raster_line) < 0)
|| (SMR_DW_UINT(m, &vic.text_cols) < 0)
|| (SMR_DW_UINT(m, &vic.text_lines) < 0)
|| (SMR_DW_UINT(m, &vic.pending_text_cols) < 0)
|| (SMR_DW_UINT(m, &vic.line_was_blank) < 0)
|| (SMR_DW_UINT(m, &vic.memptr) < 0)
|| (SMR_DW_UINT(m, &vic.memptr_inc) < 0)
|| (SMR_DW_UINT(m, &vic.row_counter) < 0)
|| (SMR_DW_UINT(m, &vic.buf_offset) < 0)
|| SMR_B_INT(m, &vic.light_pen.state) < 0
|| SMR_B_INT(m, &vic.light_pen.triggered) < 0
|| SMR_DW_INT(m, &vic.light_pen.x) < 0
|| SMR_DW_INT(m, &vic.light_pen.y) < 0
|| SMR_DW_INT(m, &vic.light_pen.x_extra_bits) < 0
|| SMR_DW(m, &vic.light_pen.trigger_cycle) < 0
|| (SMR_B(m, &vic.vbuf) < 0)) {
goto fail;
}
/* Color RAM. */
if (SMR_BA(m, mem_ram + 0x9400, 0x400) < 0) {
goto fail;
}
for (i = 0; i < 0x10; i++) {
if (SMR_B(m, &b) < 0) {
goto fail;
}
/* XXX: This assumes that there are no side effects. */
vic_store(i, b);
}
raster_force_repaint(&vic.raster);
return snapshot_module_close(m);
fail:
if (m != NULL)
snapshot_module_close(m);
return -1;
}
