{SpinXY.mc, DRB,  4-Nov-84  6:28:05}


	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];
	Noop,						c3, at[0F00];
	
Loop:	Xbus ¬ (R0 ¬ R0+1) LRot0, GOTO[Loop],		c*;