{SpinAF.mc, HGM,  4-Nov-84  6:28:33}


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


RegDef[R0,R,0];


Go:	ClrIntErr,					c1, at[0];
	Noop,						c2, at[00FF];
	R0 ← 0,						c3, at[0F00];
	
Loop:	IB ← 0, {Scope sync}				c1;
	Noop,						c2;
	Noop,						c3;
		
	R0 ← R0 + Q + 1,				c1;
	R0 ← Q - R0 - 1,				c2;
	R0 ← R0 - Q - 1,				c3;

	R0 ← R0 or Q,					c1;
	R0 ← R0 and Q,					c2;
	R0 ← ~R0 and Q,					c3;

	R0 ← R0 xor Q,					c1;
	R0 ← ~R0 xor Q,					c2;
	Noop,						c3;

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