{SpinBank.mc, HGM,  4-Nov-84  6:30:35}

{Note that the changing the bank register doesn't actually do anything since we are running in Kernel mode, and that forces everything to run in Bank 0.

On a Dicentra, there is no Kernel mode, so this won't work unless you load it into all 4 banks.}


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



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

	Bank ← 0,					c1;
	Noop,						c2;
	Noop,						c3;

	Bank ← 1,					c1;
	Noop,						c2;
	Noop,						c3;

	Bank ← 2,					c1;
	Noop,						c2;
	Noop,						c3;

	Bank ← 3,					c1;
	Noop,						c2;
	Noop,						c3;

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