{FlapPC16.mc, HGM,  4-Nov-84  6:30:11}


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


RegDef[R0,R,0];
RegDef[RH0,RH,0];



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

	R0 ¬ R0 + PC16,	Xbus ¬ RH0, {Force FX}		c1;
	R0 ¬ R0 + PC16,	Xbus ¬ RH0, {Force FX}		c2;
	Noop,						c3;

	R0 ¬ R0 + PC16,	L0 ¬ 0, {Force FZ}		c1;
	R0 ¬ R0 + PC16,	L0 ¬ 0, {Force FZ}		c2;
	Noop,						c3;

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