{PokeConst.mc, HGM,  4-Nov-84  6:27:37}


	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;
		
	Xbus ¬ 0,					c1;
	Noop, {Float 0}					c2;
	Noop,						c3;
	
	Xbus ¬ 0FF,					c1;
	Noop, {Float 1s}				c2;
	Noop,						c3;
	
	Xbus ¬ 0,					c1;
	Xbus ¬ 01,					c2;
	Xbus ¬ 02,					c3;
	
	Xbus ¬ 04,					c1;
	Xbus ¬ 08,					c2;
	Xbus ¬ 10,					c3;
	
	Xbus ¬ 20,					c1;
	Xbus ¬ 40,					c2;
	Xbus ¬ 80,					c3;
	
	Xbus ¬ 0, {Else X.08 floats and looks funny}	c1;
	Noop,						c2;
	GOTO[Loop],					c3;