home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
coders
/
jËzyki_programowania
/
oberon
/
system
/
math.mod
(
.txt
)
< prev
next >
Wrap
Oberon Text
|
1977-12-31
|
2KB
|
33 lines
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.