@database OptMathIEEESingBasL
@node Main "OptMathIEEESingBasL"

Prozeduren

   @{" Abs " link Modul 9}                         @{" Add " link Modul 11}                         @{" Ceil " link Modul 13}
   @{" Cmp " link Modul 15}                         @{" Div " link Modul 17}                         @{" Fix " link Modul 19}
   @{" Floor " link Modul 21}                       @{" Flt " link Modul 23}                         @{" Mul " link Modul 25}
   @{" Neg " link Modul 27}                         @{" Sub " link Modul 29}                         @{" Tst " link Modul 31}


Variablen

   @{" mathieeesingbasBase " link Modul 7}         @{" mathieeesingbasVersion " link Modul 5}   

@endnode
@node Modul "TMP:Modula-2/OptMathIEEESingBasL.def"
DEFINITION MODULE OptMathIEEESingBasL{"mathieeesingbas.library",-36};
(* 02-May-1992/cn *)

FROM SYSTEM IMPORT ADDRESS;

VAR
  mathieeesingbasVersion: INTEGER;
  mathieeesingbasBase: ADDRESS;

PROCEDURE Abs(x{0}:REAL):REAL; CODE -54;

PROCEDURE Add(x{0}:REAL;y{1}:REAL):REAL; CODE -66;

PROCEDURE Ceil(x{0}:REAL):REAL; CODE -96;

PROCEDURE Cmp(x{0}:REAL;y{1}:REAL):LONGINT; CODE -42;

PROCEDURE Div(dividend{0}:REAL;divisor{1}:REAL):REAL; CODE -84;

PROCEDURE Fix(x{0}:REAL):LONGINT; CODE -30;

PROCEDURE Floor(x{0}:REAL):REAL; CODE -90;

PROCEDURE Flt(li{0}:LONGINT):REAL; CODE -36;

PROCEDURE Mul(x{0}:REAL;y{1}:REAL):REAL; CODE -78;

PROCEDURE Neg(x{0}:REAL):REAL; CODE -60;

PROCEDURE Sub(x{0}:REAL;y{1}:REAL):REAL; CODE -72;

PROCEDURE Tst(x{0}:REAL):LONGINT; CODE -48;

END OptMathIEEESingBasL.lib-36

@endnode