{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 }