{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}
	CROSS[POLYcode],			c3;

	{ E N D }