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