Syntax10.Scn.Fnt
ParcElems
Alloc
Syntax24b.Scn.Fnt
Syntax10b.Scn.Fnt
Syntax10i.Scn.Fnt
(* AMIGA *)
MODULE MathL;	 (*  11-Jun-1994/cn, FPU-Version 15.7.95 Ralf Degner  *)
IMPORT SYSTEM;
CONST
	pi* = 3.141592653589793D0;
	e* = 2.718281828459045D0;
PROCEDURE -ulr 04EH, 05EH, 04EH, 075H; (* ULNK A6	RTS *)
PROCEDURE -fsin 0F2H, 02EH, 054H, 00EH, 000H, 008H; (* FSIN.D (8, A6), FP0 *)
PROCEDURE -fcos 0F2H, 02EH, 054H, 01DH, 000H, 008H; (* FCOS.D (8, A6), FP0 *)
PROCEDURE -fatan 0F2H, 02EH, 054H, 00AH, 000H, 008H; (* FATAN.D (8, A6), FP0 *)
PROCEDURE -fetox 0F2H, 02EH, 054H, 010H, 000H, 008H; (* FETOX.D (8, A6), FP0 *)
PROCEDURE -flogn 0F2H, 02EH, 054H, 014H, 000H, 008H; (* FLOGN.D (8, A6), FP0 *)
PROCEDURE -fsqrt 0F2H, 02EH, 054H, 004H, 000H, 008H; (* FSQRT.D (8, A6), FP0 *)
PROCEDURE sin* (x: LONGREAL): LONGREAL;
BEGIN fsin; ulr END sin;
PROCEDURE cos* (x: LONGREAL): LONGREAL;
BEGIN fcos; ulr END cos;
PROCEDURE arctan* (x: LONGREAL): LONGREAL;
BEGIN fatan; ulr END arctan;
PROCEDURE exp* (x: LONGREAL): LONGREAL;
BEGIN fetox; ulr END exp;
PROCEDURE ln* (x: LONGREAL): LONGREAL;
BEGIN flogn; ulr END ln;
PROCEDURE sqrt* (x: LONGREAL): LONGREAL;
BEGIN fsqrt; ulr END sqrt;
END MathL.