{SpinU.mc, HGM,  4-Nov-84  6:29:04}


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


RegDef[R0,R,0];

RegDef[U00,U,000];
RegDef[U01,U,001];
RegDef[U02,U,002];
RegDef[U04,U,004];
RegDef[U08,U,008];
RegDef[U10,U,010];
RegDef[U20,U,020];
RegDef[U40,U,040];
RegDef[U80,U,080];
RegDef[UFF,U,0FF];


Go:	ClrIntErr,					c1, at[0];
	R0 ¬ 0,						c2, at[0FF];
	Noop,						c3, at[0F00];
	
Loop:	IB ¬ 0, {Scope sync}				c1;
	stackP ¬ 0,					c2;
	Noop,						c3;

	Q ¬ R0,						c1;
	U00 ¬ Q,					c2;
	Noop,						c3;

	Q ¬ R0,						c1;
	Noop,						c2;
	Q ¬ U00,					c3;

	Q ¬ R0,						c1;
	U00 ¬ Q,					c2;
	Q ¬ U00,					c3;

	Q ¬ R0,						c1;
	U01 ¬ Q,					c2;
	Q ¬ U01,					c3;

	Q ¬ R0,						c1;
	U02 ¬ Q,					c2;
	Q ¬ U02,					c3;

	Q ¬ R0,						c1;
	U04 ¬ Q,					c2;
	Q ¬ U04,					c3;

	Q ¬ R0,						c1;
	U08 ¬ Q,					c2;
	Q ¬ U08,					c3;

	Q ¬ R0,						c1;
	U10 ¬ Q,					c2;
	Q ¬ U10,					c3;

	Q ¬ R0,						c1;
	U20 ¬ Q,					c2;
	Q ¬ U20,					c3;

	Q ¬ R0,						c1;
	U40 ¬ Q,					c2;
	Q ¬ U40,					c3;

	Q ¬ R0,						c1;
	U80 ¬ Q,					c2;
	Q ¬ U80,					c3;

	Q ¬ R0,						c1;
	UFF ¬ Q,					c2;
	Q ¬ UFF,					c3;

	Noop,						c1;
	R0 ¬ R0 + 1,					c2;
	GOTO[Loop],					c3;