Home Page Forums MAME MAME NLQ401 printer

u8 m6500_1_device::read_port(offs_t offset)
{
	if (!machine().side_effects_disabled() && !m_port_in_cb[offset].isunset())
	{
		u8 const prev(m_port_in[offset]);
		m_port_in[offset] = m_port_in_cb[offset]();
		if (!offset)
		{
			u8 const diff((prev ^ m_port_in[0]) & m_port_buf[0]);
			if (BIT(diff, 0) && BIT(m_port_in[0], 0))
				m_cr |= CR_A0ED;
			if (BIT(diff, 1) && !BIT(m_port_in[0], 1))
				m_cr |= CR_A1ED;
			update_irq();
		}
	}

//	return m_port_in[offset] & m_port_buf[offset];
	return m_port_in[offset];  // not seeing all of the data, try this
}

#define REP(x,y) for(int loop##x=0;loop##x<y;loop##x++)

#define ADD(v) m_rotation_detector[rotsize]=v;m_xoffset[rotsize]=col;m_yoffset[rotsize++]=pix;
#define NEXTCOL col++; pix=0;
#define NEXTPIX pix++; 

#define A REP(x,7) { ADD(0) ADD(1) NEXTPIX } 
#define B REP(x,3) { ADD(0) ADD(1) NEXTPIX } NEXTCOL
#define C REP(x,7) { ADD(1) }


	u8 col = 0;
	u8 pix = 0;
	u8 rotsize=0;

	A B A B A C

mem=manager.machine.memory.regions[":iec4:vp42:mcu"]
function stars(x) local a = "" for j=7,0,-1 do if ((2^j) & x)==0 then a=a.." " else a=a.."*" end end return a end
for k = 0,159 do for i=0xac1,0xddc-1,159 do a=mem:read_u8(i-0x800+k) print(string.format("%x",i).."  "..string.format("%x",k).."  "..string.format("%x",a),stars(a)) end print() end



ac1  80  32	  **  * 
b60  80  49	 *  *  *
bff  80  79	 ****  *
c9e  80  41	 *     *
d3d  80  3e	  ***** 

ac1  81  7c	 *****  
b60  81  12	   *  * 
bff  81  11	   *   *
c9e  81  12	   *  * 
d3d  81  7c	 *****  

ac1  82  7f	 *******
b60  82  49	 *  *  *
bff  82  49	 *  *  *
c9e  82  49	 *  *  *
d3d  82  36	  ** ** 

ac1  83  3e	  ***** 
b60  83  41	 *     *
bff  83  41	 *     *
c9e  83  41	 *     *
d3d  83  22	  *   * 

ac1  84  7f	 *******
b60  84  41	 *     *
bff  84  41	 *     *
c9e  84  22	  *   * 
d3d  84  1c	   ***  

ac1  85  7f	 *******
b60  85  49	 *  *  *
bff  85  49	 *  *  *
c9e  85  41	 *     *
d3d  85  41	 *     *

...

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;
			}
		}
	}	
}