DEFINITION MODULE MathLib0;
PROCEDURE sqrt(x:REAL):REAL;
PROCEDURE exp(x:REAL):REAL;
PROCEDURE ln(x:REAL):REAL;
PROCEDURE sin(x:REAL):REAL;
PROCEDURE cos(x:REAL):REAL;
PROCEDURE arctan(x:REAL):REAL;
PROCEDURE real(x:INTEGER):REAL;
PROCEDURE entier(x:REAL):INTEGER;
END MathLib0.
IMPLEMENTATION MODULE MathLib0;
PROCEDURE sqrt(x:REAL):REAL;
HEX C3 4A 38 END sqrt;

PROCEDURE exp(x:REAL):REAL;
HEX C3 C4 36 END exp;

PROCEDURE ln(x:REAL):REAL;
HEX C3 13 37 END ln;

PROCEDURE sin(x:REAL):REAL;
HEX C3 B5 37 END sin;

PROCEDURE cos(x:REAL):REAL;
HEX C3 AA 37 END cos;

PROCEDURE arctan(x:REAL):REAL;
HEX C3 E2 37 END arctan;

PROCEDURE real(x:INTEGER):REAL;
BEGIN RETURN RL5(x) END real;
 
PROCEDURE entier(x:REAL):INTEGER;
HEX CD (@2CH) C3 (@4DH) END entier;

END MathLib0.
