{File name LispFPTB1.mc
Description:  DandeLion InterLisp Emulator Floating ops

Charnley  11-Oct-84 16:13:55
Charnley  11-Oct-84 16:13:00  Created
}

@FPLUS2:	opcode[350'b],
	Bank ← FPTBank, L2 ← L2.Fplus,	c1;
	uTOS ← TOS, L3 ← L3.FunSecond,	c2;
	uTOSH ← TOSH, CROSS[FPTCode],	c3;

@FDIFFERENCE:	opcode[351'b],
	Bank ← FPTBank, L2 ← L2.Fdiff,	c1;
	uTOS ← TOS, L3 ← L3.FunSecond,	c2;
	uTOSH ← TOSH, CROSS[FPTCode],	c3;

@FTIMES2:	opcode[352'b],
	Bank ← FPTBank, L2 ← L2.Ftimes,	c1;
	uTOS ← TOS, L3 ← L3.FunSecond,	c2;
	uTOSH ← TOSH, CROSS[FPTCode],	c3;

@FQUOTIENT:	opcode[353'b],
	Bank ← FPTBank, L2 ← L2.Fquot,	c1;
	uTOS ← TOS, L3 ← L3.FunUSecond,	c2;
	uTOSH ← TOSH, CROSS[FPTCode],	c3;

@FGREATERP:	opcode[362'b],
	Bank ← FPTBank, L2 ← L2.Fgreat,	c1;
	uTOS ← TOS, L3 ← L3.FunSecond,	c2;
	uTOSH ← TOSH, CROSS[FPTCode],	c3;

	{ E N D }