{SpinAS.mc, HGM,  4-Nov-84  6:28:52}


	Reserve[0F5F, 0FFF]; { section used by the CP Kernel }
	SetTask[7]; StartAddress[Go];


RegDef[R0,R,0];
RegDef[R1,R,1];


Go:	ClrIntErr,					c1, at[0];
	Noop,						c2, at[00FF];
	Noop,						c3, at[0F00];
	
Loop:	IB ¬ 0, {Scope sync}				c1;
	Noop,						c2;
	Noop,						c3;
		
	R1 ¬ R0 or Q,	{A, Q}				c1;
	R0 ¬ R0 or R0,	{A, B}				c2;
	R0 ¬ 0 or Q,	{0, Q}				c3;

	R1 ¬ 0 or R1,	{0, B}	Ybus ¬ R0 {A Bypass},	c1;
	R1 ¬ 0 or R0,	{0, A}				c2;
	R1 ¬ 3 or R0,	{D, A}				c3;

	R0 ¬ 3 or Q,	{D, Q}				c1;
	R0 ¬ 3 or 0,	{D, 0}				c2;
	Noop,						c3;

	Noop,						c1;
	Noop,						c2;
	GOTO[Loop],					c3;