Home Page Forums MAME MAME NLQ401 printer

void stepper_device::advance_phase()
{
	//Standard drive table is 2,6,4,5,1,9,8,a
	//NOTE: This runs through the stator patterns in such a way as to drive the reel forward (downwards from the player's view, clockwise on our rose)
	//The Heber 'Pluto' controller runs this in reverse, this needs checking on real hardware
	switch (m_pattern)
	{             //Black  Blue  Red  Yellow
		case 0x02://  0     0     1     0
		m_phase = 7;
		break;
		case 0x06://  0     1     1     0
		m_phase = 6;
		break;
		case 0x04://  0     1     0     0
		m_phase = 5;
		break;
		case 0x05://  0     1     0     1
		m_phase = 4;
		break;
		case 0x01://  0     0     0     1
		m_phase = 3;
		break;
		case 0x09://  1     0     0     1
		m_phase = 2;
		break;
		case 0x08://  1     0     0     0
		m_phase = 1;
		break;
		case 0x0A://  1     0     1     0
		m_phase = 0;
		break;
		//          Black  Blue  Red  Yellow
		case 0x03://  0     0     1     1
		{
			if ((m_old_phase ==6)||(m_old_phase == 0)) // if the previous pattern had the drum in the northern quadrant, it will point north now
			{
				m_phase = 7;
			}
			else //otherwise it will line up due south
			{
				m_phase = 3;
			}
		}
		break;
		case 0x0C://  1     1     0     0
		{
			if ((m_old_phase ==6)||(m_old_phase == 4)) // if the previous pattern had the drum in the eastern quadrant, it will point east now
			{
				m_phase = 5;
			}
			else //otherwise it will line up due west
			{
				m_phase = 1;
			}
		}
		break;
	}
}

	u8 m_stepper_pattern[4] = {1, 2, 0, 3};  // "standard table" goes from bit 1 to bit 2 to bit 0 to bit 3.
	bool m_stepper_reverse = false;
	
	void set_stepper_pattern(u8 a, u8 b, u8 c, u8 d, bool reverse = false) 
		{	m_stepper_pattern[0] = a;
			m_stepper_pattern[1] = b;
			m_stepper_pattern[2] = c;
			m_stepper_pattern[3] = d; 
			m_stepper_reverse = reverse; 
		}

	u8 calc_pattern(u8 a, u8 b = 100);

	void test() { set_stepper_pattern(0,1,2,3); }



u8 stepper_device::calc_pattern(u8 a, u8 b) 
{ 
	u8 retval = 1 << m_stepper_pattern[a];
	if (b < 4) retval |= (1 << m_stepper_pattern[b]);
	return retval;
}


void stepper_device::advance_phase()
{
	//Standard drive table is 2,6,4,5,1,9,8,a
	//NOTE: This runs through the stator patterns in such a way as to drive the reel forward (downwards from the player's view, clockwise on our rose)
	//The Heber 'Pluto' controller runs this in reverse, this needs checking on real hardware


	if 		(m_pattern == calc_pattern(   0)) m_phase = 7;
	else if (m_pattern == calc_pattern(1, 0)) m_phase = 6;
	else if (m_pattern == calc_pattern(   1)) m_phase = 5;
	else if (m_pattern == calc_pattern(2, 1)) m_phase = 4;
	else if (m_pattern == calc_pattern(   2)) m_phase = 3;
	else if (m_pattern == calc_pattern(3, 2)) m_phase = 2;
	else if (m_pattern == calc_pattern(   3)) m_phase = 1;
	else if (m_pattern == calc_pattern(0, 3)) m_phase = 0;
	else if (m_pattern == calc_pattern(0, 2)) 
	{
			if ((m_old_phase ==6)||(m_old_phase == 0)) // if the previous pattern had the drum in the northern quadrant, it will point north now
			{
				m_phase = 7;
			}
			else //otherwise it will line up due south
			{
				m_phase = 3;
			}
	}
	else if (m_pattern == calc_pattern(1, 3)) 
	{

		{
			if ((m_old_phase ==6)||(m_old_phase == 4)) // if the previous pattern had the drum in the eastern quadrant, it will point east now
			{
				m_phase = 5;
			}
			else //otherwise it will line up due west
			{
				m_phase = 1;
			}
		}
	}	
}