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 >
Oberon Text  |  1977-12-31  |  2KB  |  33 lines
  1. Syntax10.Scn.Fnt
  2. ParcElems
  3. Alloc
  4. Syntax24b.Scn.Fnt
  5. Syntax10b.Scn.Fnt
  6. Syntax10i.Scn.Fnt
  7. (* AMIGA *)
  8. MODULE Math;    (* 11-Jun-1994/cn, FPU-Version 15.7.95 RD *)
  9. IMPORT SYSTEM;
  10. CONST
  11.     pi* = 3.1415926535;
  12.     e* = 2.7182818285;
  13. PROCEDURE -ulr 04EH, 05EH, 04EH, 075H; (* ULNK A6    RTS *)
  14. PROCEDURE -fsin 0F2H, 02EH, 044H, 00EH, 000H, 008H; (* FSIN.S (8, A6), FP0 *)
  15. PROCEDURE -fcos 0F2H, 02EH, 044H, 01DH, 000H, 008H; (* FCOS.S (8, A6), FP0 *)
  16. PROCEDURE -fatan 0F2H, 02EH, 044H, 00AH, 000H, 008H; (* FATAN.S (8, A6), FP0 *)
  17. PROCEDURE -fetox 0F2H, 02EH, 044H, 010H, 000H, 008H; (* FETOX.S (8, A6), FP0 *)
  18. PROCEDURE -flogn 0F2H, 02EH, 044H, 014H, 000H, 008H; (* FLOGN.S (8, A6), FP0 *)
  19. PROCEDURE -fsqrt 0F2H, 02EH, 044H, 004H, 000H, 008H; (* FSQRT.S (8, A6), FP0 *)
  20. PROCEDURE sin* (x: REAL): REAL;
  21. BEGIN fsin; ulr END sin;
  22. PROCEDURE cos* (x: REAL): REAL;
  23. BEGIN fcos; ulr END cos;
  24. PROCEDURE arctan* (x: REAL): REAL;
  25. BEGIN fatan; ulr END arctan;
  26. PROCEDURE exp* (x: REAL): REAL;
  27. BEGIN fetox; ulr END exp;
  28. PROCEDURE ln* (x: REAL): REAL;
  29. BEGIN flogn; ulr END ln;
  30. PROCEDURE sqrt* (x: REAL): REAL;
  31. BEGIN fsqrt; ulr END sqrt;
  32. END Math.
  33.