/***************************************************************************
Cinematronics Cosmic Chasm hardware
***************************************************************************/
#include "emu.h"
#include "video/vector.h"
#include "includes/cchasm.h"
#define HALT 0
#define JUMP 1
#define COLOR 2
#define SCALEY 3
#define POSY 4
#define SCALEX 5
#define POSX 6
#define LENGTH 7
static TIMER_CALLBACK( cchasm_refresh_end )
{
cputag_set_input_line (machine, "maincpu", 2, ASSERT_LINE);
}
static void cchasm_refresh (running_machine &machine)
{
cchasm_state *state = machine.driver_data<cchasm_state>();
int pc = 0;
int done = 0;
int opcode, data;
int currentx = 0, currenty = 0;
int scalex = 0, scaley = 0;
int color = 0;
int total_length = 1; /* length of all lines drawn in a frame */
int move = 0;
vector_clear_list();
while (!done)
{
data = state->m_ram[pc];
opcode = data >> 12;
data &= 0xfff;
if ((opcode > COLOR) && (data & 0x800))
data |= 0xfffff000;
pc++;
switch (opcode)
{
case HALT:
done=1;
break;
case JUMP:
pc = data - 0xb00;
logerror("JUMP to %x\n", data);
break;
case COLOR:
color = VECTOR_COLOR444(data ^ 0xfff);
break;
case SCALEY:
scaley = data << 5;
break;
case POSY:
move = 1;
currenty = state->m_ycenter + (data << 16);
break;
case SCALEX:
scalex = data << 5;
break;
case POSX:
move = 1;
currentx = state->m_xcenter - (data << 16);
break;
case LENGTH:
if (move)
{
vector_add_point (machine, currentx, currenty, 0, 0);
move = 0;
}
currentx -= data * scalex;
currenty += data * scaley;
total_length += abs(data);
if (color)
vector_add_point (machine, currentx, currenty, color, 0xff);
else
move = 1;
break;
default:
logerror("Unknown refresh proc opcode %x with data %x at pc = %x\n", opcode, data, pc-2);
done = 1;
break;
}
}
/* Refresh processor runs with 6 MHz */
machine.scheduler().timer_set (attotime::from_hz(6000000) * total_length, FUNC(cchasm_refresh_end));
}
WRITE16_HANDLER( cchasm_refresh_control_w )
{
if (ACCESSING_BITS_8_15)
{
switch (data >> 8)
{
case 0x37:
cchasm_refresh(space->machine());
break;
case 0xf7:
cputag_set_input_line (space->machine(), "maincpu", 2, CLEAR_LINE);
break;
}
}
}
VIDEO_START( cchasm )
{
cchasm_state *state = machine.driver_data<cchasm_state>();
const rectangle &visarea = machine.primary_screen->visible_area();
state->m_xcenter=((visarea.max_x + visarea.min_x)/2) << 16;
state->m_ycenter=((visarea.max_y + visarea.min_y)/2) << 16;
VIDEO_START_CALL(vector);
}