home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / modules / txt / MathIEEEDoubBas.def < prev    next >
Text File  |  1994-12-14  |  767b  |  19 lines
  1. DEFINITION MODULE MathIEEEDoubBas {"mathieeedoubbas.library",33};
  2.  
  3. (* (C) Copyright 1993 Marcel Timmermans. All rights reserved. *)
  4.  
  5. PROCEDURE Fix(x{0}:LONGREAL):LONGINT; CODE -30;
  6. PROCEDURE Flt(x{0}:LONGINT):LONGREAL; CODE -36;
  7. PROCEDURE Cmp(x{0},y{2}:LONGREAL):LONGINT; CODE -42;
  8. PROCEDURE Tst(x{0}:LONGREAL):LONGINT; CODE -48;
  9. PROCEDURE Abs(x{0}:LONGREAL):LONGREAL; CODE -54;
  10. PROCEDURE Neg(x{0}:LONGREAL):LONGREAL; CODE -60;
  11. PROCEDURE Add(x{0},y{2}:LONGREAL):LONGREAL; CODE -66;
  12. PROCEDURE Sub(x{0},y{2}:LONGREAL):LONGREAL; CODE -72;
  13. PROCEDURE Mul(x{0},y{2}:LONGREAL):LONGREAL; CODE -78;
  14. PROCEDURE Div(x{0},y{2}:LONGREAL):LONGREAL; CODE -84;
  15. PROCEDURE Floor(x{0}:LONGREAL):LONGREAL; CODE -90;
  16. PROCEDURE Ceil(x{0}:LONGREAL):LONGREAL; CODE -96;
  17.  
  18. END MathIEEEDoubBas.
  19.