{File name FloatInit.mc
Description:  DandeLion InterLisp Initialization
Author: Charnley
Last modified: Charnley              5-Jun-84 14:12:42
Created:  31-May-84 11:52:00
}

{	ask the floating point chip to FLOAT 2 and check the result }
{RegDef[ufloat, U, 042],}

LispFloatInit:
	stackP _ 2,	c1;
	TT _ 2,	c2;
	STK _ TT,	c3;

	ufloat _ 0,	c1;
	FloatMode.RN.AI.FAST, FloatFLOW,	c2;
	FloatA _ ufloat, FLFloatA,	c3;

	FloatA _ STK,	c1;
	FloatStartFlow,	c2;
	Rx _ 4,	c3;

	Rx _ Rx LRot12,	c1;{4000 = High Half Floating Point 2.0}
	Noop,	c2;
	FloatUMS,	c3;

	FloatULS,	c1;
	TT _ FloatResult,	c2;
	Xbus _ FloatResult,	c3;

	Ybus _ TT xor Rx, ZeroBr,	c1;
	BRANCH[NoChips, ChipsPresent],	c2;

NoChips:
	uCHIP _ PV xor ~PV, GOTO[LispFloatInitDone],	c3;
ChipsPresent:
	uCHIP _ 0, GOTO[LispFloatInitDone],	c3;

	{ E N D }