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