{File name LFAB1.mc
Description:  DandeLion InterLisp Emulator LispFloatArray

Charnley  24-Sep-84 16:29:25
Charnley  8-Jun-84 10:04:55  Created
}


@FLOATARRAY1:	opcode[372'b],
	Bank ← FAOPBank, L1 ← 4{L1.LFA1prep},	c1;
	uTOS ← TOS,	c2;
	uTOSH ← TOSH, CROSS[FOP1],	c3;

@FLOATARRAY2:	opcode[373'b],
	Bank ← FAOPBank, L1 ← 3{L1.LFA2prep},	c1;
	uTOS ← TOS,	c2;
	uTOSH ← TOSH, CROSS[FOP2],	c3;

@IBLT:	opcode[61'b],
	Bank ← FAOPBank,	c1;
	uTOS ← TOS,	c2;
	uTOSH ← TOSH, CROSS[IBLT],	c3;

@UNBOX1:	opcode[355'b],
	Bank ← LUBank, L0 ← L0.UnBoxed,	c1;
	uTOS ← TOS,	c2;
	uTOSH ← TOSH, CROSS[UB1Start],	c3;

@UNBOX2:	opcode[354'b],
	Bank ← LUBank, L0 ← L0.UnBoxed,	c1;
	uTOS ← TOS,	c2;
	uTOSH ← TOSH, CROSS[UB2Start],	c3;

@POLY:	opcode[62'b],
	Bank ← PolyBank,			c1;
	,					c2;	{assume a two byte opcode}
	Ybus ← Q, ZeroBr, CROSS[POLYcode],	c3;

	{ E N D }