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