{PokeRot.mc, HGM,  4-Nov-84  6:29:31}


{Mostly this is testing for shorted bits on the X and Y Buses.}

	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];
	R0 ← 0,						c3, at[0F00];
	
Loop:	IB ← 0, {Scope sync}				c1;
	Noop,						c2;
	R0 ← 0+0+1,					c3;
		
Z0001:	Xbus ← R0 LRot0,				c1;
	Xbus ← R0 LRot4,				c2;
	Xbus ← R0 LRot8,				c3;
	
	Xbus ← R0 LRot12,				c1;
	Xbus ← 0 LRot0,					c2;
	R0 ← R0 LShift1,				c3;
		
Z0002:	Xbus ← R0 LRot0,				c1;
	Xbus ← R0 LRot4,				c2;
	Xbus ← R0 LRot8,				c3;
	
	Xbus ← R0 LRot12,				c1;
	Xbus ← 0 LRot0,					c2;
	R0 ← R0 LShift1,				c3;
		
Z0004:	Xbus ← R0 LRot0,				c1;
	Xbus ← R0 LRot4,				c2;
	Xbus ← R0 LRot8,				c3;
	
	Xbus ← R0 LRot12,				c1;
	Xbus ← 0 LRot0,					c2;
	R0 ← R0 LShift1,				c3;
		
Z0008:	Xbus ← R0 LRot0,				c1;
	Xbus ← R0 LRot4,				c2;
	Xbus ← R0 LRot8,				c3;
	
	Xbus ← R0 LRot12,				c1;
	Xbus ← 0 LRot0,					c2;
	R0 ← R0 LShift1,				c3;
		
	Noop,						c1;
	Noop,						c2;
	Noop,						c3;

Z0010:	Xbus ← R0 LRot0,				c1;
	Xbus ← R0 LRot4,				c2;
	Xbus ← R0 LRot8,				c3;
	
	Xbus ← R0 LRot12,				c1;
	Xbus ← 0 LRot0,					c2;
	R0 ← R0 LShift1,				c3;
		
Z0020:	Xbus ← R0 LRot0,				c1;
	Xbus ← R0 LRot4,				c2;
	Xbus ← R0 LRot8,				c3;
	
	Xbus ← R0 LRot12,				c1;
	Xbus ← 0 LRot0,					c2;
	R0 ← R0 LShift1,				c3;
		
Z0040:	Xbus ← R0 LRot0,				c1;
	Xbus ← R0 LRot4,				c2;
	Xbus ← R0 LRot8,				c3;
	
	Xbus ← R0 LRot12,				c1;
	Xbus ← 0 LRot0,					c2;
	R0 ← R0 LShift1,				c3;
		
Z0080:	Xbus ← R0 LRot0,				c1;
	Xbus ← R0 LRot4,				c2;
	Xbus ← R0 LRot8,				c3;
	
	Xbus ← R0 LRot12,				c1;
	Xbus ← 0 LRot0,					c2;
	R0 ← R0 LShift1,				c3;
		
	Noop,						c1;
	Noop,						c2;
	Noop,						c3;

Z0100:	Xbus ← R0 LRot0,				c1;
	Xbus ← R0 LRot4,				c2;
	Xbus ← R0 LRot8,				c3;
	
	Xbus ← R0 LRot12,				c1;
	Xbus ← 0 LRot0,					c2;
	R0 ← R0 LShift1,				c3;
		
Z0200:	Xbus ← R0 LRot0,				c1;
	Xbus ← R0 LRot4,				c2;
	Xbus ← R0 LRot8,				c3;
	
	Xbus ← R0 LRot12,				c1;
	Xbus ← 0 LRot0,					c2;
	R0 ← R0 LShift1,				c3;
		
Z0400:	Xbus ← R0 LRot0,				c1;
	Xbus ← R0 LRot4,				c2;
	Xbus ← R0 LRot8,				c3;
	
	Xbus ← R0 LRot12,				c1;
	Xbus ← 0 LRot0,					c2;
	R0 ← R0 LShift1,				c3;
		
Z0800:	Xbus ← R0 LRot0,				c1;
	Xbus ← R0 LRot4,				c2;
	Xbus ← R0 LRot8,				c3;
	
	Xbus ← R0 LRot12,				c1;
	Xbus ← 0 LRot0,					c2;
	R0 ← R0 LShift1,				c3;
		
	Noop,						c1;
	Noop,						c2;
	Noop,						c3;

Z1000:	Xbus ← R0 LRot0,				c1;
	Xbus ← R0 LRot4,				c2;
	Xbus ← R0 LRot8,				c3;
	
	Xbus ← R0 LRot12,				c1;
	Xbus ← 0 LRot0,					c2;
	R0 ← R0 LShift1,				c3;
		
Z2000:	Xbus ← R0 LRot0,				c1;
	Xbus ← R0 LRot4,				c2;
	Xbus ← R0 LRot8,				c3;
	
	Xbus ← R0 LRot12,				c1;
	Xbus ← 0 LRot0,					c2;
	R0 ← R0 LShift1,				c3;
		
Z4000:	Xbus ← R0 LRot0,				c1;
	Xbus ← R0 LRot4,				c2;
	Xbus ← R0 LRot8,				c3;
	
	Xbus ← R0 LRot12,				c1;
	Xbus ← 0 LRot0,					c2;
	R0 ← R0 LShift1,				c3;
		
Z8000:	Xbus ← R0 LRot0,				c1;
	Xbus ← R0 LRot4,				c2;
	Xbus ← R0 LRot8,				c3;
	
	Xbus ← R0 LRot12,				c1;
	Xbus ← 0 LRot0,					c2;
	R0 ← R0 LShift1,				c3;
		
	Noop,						c1;
	Noop,						c2;
	Noop,						c3;

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