home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / oberon / system / mathl.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 MathL;     (*  11-Jun-1994/cn, FPU-Version 15.7.95 Ralf Degner  *)
  9. IMPORT SYSTEM;
  10. CONST
  11.     pi* = 3.141592653589793D0;
  12.     e* = 2.718281828459045D0;
  13. PROCEDURE -ulr 04EH, 05EH, 04EH, 075H; (* ULNK A6    RTS *)
  14. PROCEDURE -fsin 0F2H, 02EH, 054H, 00EH, 000H, 008H; (* FSIN.D (8, A6), FP0 *)
  15. PROCEDURE -fcos 0F2H, 02EH, 054H, 01DH, 000H, 008H; (* FCOS.D (8, A6), FP0 *)
  16. PROCEDURE -fatan 0F2H, 02EH, 054H, 00AH, 000H, 008H; (* FATAN.D (8, A6), FP0 *)
  17. PROCEDURE -fetox 0F2H, 02EH, 054H, 010H, 000H, 008H; (* FETOX.D (8, A6), FP0 *)
  18. PROCEDURE -flogn 0F2H, 02EH, 054H, 014H, 000H, 008H; (* FLOGN.D (8, A6), FP0 *)
  19. PROCEDURE -fsqrt 0F2H, 02EH, 054H, 004H, 000H, 008H; (* FSQRT.D (8, A6), FP0 *)
  20. PROCEDURE sin* (x: LONGREAL): LONGREAL;
  21. BEGIN fsin; ulr END sin;
  22. PROCEDURE cos* (x: LONGREAL): LONGREAL;
  23. BEGIN fcos; ulr END cos;
  24. PROCEDURE arctan* (x: LONGREAL): LONGREAL;
  25. BEGIN fatan; ulr END arctan;
  26. PROCEDURE exp* (x: LONGREAL): LONGREAL;
  27. BEGIN fetox; ulr END exp;
  28. PROCEDURE ln* (x: LONGREAL): LONGREAL;
  29. BEGIN flogn; ulr END ln;
  30. PROCEDURE sqrt* (x: LONGREAL): LONGREAL;
  31. BEGIN fsqrt; ulr END sqrt;
  32. END MathL.
  33.