{FlapStack.mc, HGM,  4-Nov-84  6:30:23}


	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:	IB ¬ 0, {Scope sync}				c1;
	Noop,						c2;
	Noop,						c3;
		
	stackP ¬ 0,					c1;
	Ybus ¬ ErrnIBnStkp,				c2;
	Noop,						c3;

	stackP ¬ 0F,					c1;
	Ybus ¬ ErrnIBnStkp,				c2;
	Noop,						c3;

	stackP ¬ 0,					c1;
	stackP ¬ 1,					c2;
	stackP ¬ 2,					c3;

	stackP ¬ 4,					c1;
	stackP ¬ 8,					c2;
	stackP ¬ 0,					c3;

	stackP ¬ 4,					c1;
	fXpop,						c2;
	fZpop,						c3;

	push {fXpush}, Xbus ¬ 0FF,			c1;
	push {fYpush}, L0 ¬ 0, Xbus ¬ 00F,		c2;
	push {fZpush}, L0 ¬ 0, MesaIntBr,		c3;

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