{SpinRH.mc, HGM,  4-Nov-84  6:29:18}


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


RegDef[R0,R,0];

RegDef[RH0,RH,0];
RegDef[RH1,RH,1];
RegDef[RH2,RH,2];
RegDef[RH3,RH,3];
RegDef[RH4,RH,4];
RegDef[RH5,RH,5];
RegDef[RH6,RH,6];
RegDef[RH7,RH,7];
RegDef[RH8,RH,8];
RegDef[RH9,RH,9];
RegDef[RHA,RH,0A];
RegDef[RHB,RH,0B];
RegDef[RHC,RH,0C];
RegDef[RHD,RH,0D];
RegDef[RHE,RH,0E];
RegDef[RHF,RH,0F];


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

	RH0 ¬ R0 LRot0,					c1;
	Q ¬ RH0,					c2;
	Noop,						c3;

	RH1 ¬ R0 LRot0,					c1;
	Q ¬ RH1,					c2;
	Noop,						c3;

	RH2 ¬ R0 LRot0,					c1;
	Q ¬ RH2,					c2;
	Noop,						c3;

	RH3 ¬ R0 LRot0,					c1;
	Q ¬ RH3,					c2;
	Noop,						c3;

	RH4 ¬ R0 LRot0,					c1;
	Q ¬ RH4,					c2;
	Noop,						c3;

	RH5 ¬ R0 LRot0,					c1;
	Q ¬ RH5,					c2;
	Noop,						c3;

	RH6 ¬ R0 LRot0,					c1;
	Q ¬ RH6,					c2;
	Noop,						c3;

	RH7 ¬ R0 LRot0,					c1;
	Q ¬ RH7,					c2;
	Noop,						c3;

	RH8 ¬ R0 LRot0,					c1;
	Q ¬ RH8,					c2;
	Noop,						c3;

	RH9 ¬ R0 LRot0,					c1;
	Q ¬ RH9,					c2;
	Noop,						c3;

	RHA ¬ R0 LRot0,					c1;
	Q ¬ RHA,					c2;
	Noop,						c3;

	RHB ¬ R0 LRot0,					c1;
	Q ¬ RHB,					c2;
	Noop,						c3;

	RHC ¬ R0 LRot0,					c1;
	Q ¬ RHC,					c2;
	Noop,						c3;

	RHD ¬ R0 LRot0,					c1;
	Q ¬ RHD,					c2;
	Noop,						c3;

	RHE ¬ R0 LRot0,					c1;
	Q ¬ RHE,					c2;
	Noop,						c3;

	RHF ¬ R0 LRot0,					c1;
	Q ¬ RHF,					c2;
	Noop,						c3;

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