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