DEFINITION MODULE R5MATH;

PROCEDURE SIN(x:REAL5):REAL5;
PROCEDURE COS(x:REAL5):REAL5;
PROCEDURE TAN(x:REAL5):REAL5;
PROCEDURE ARCSIN(x:REAL5):REAL5;
PROCEDURE ARCCOS(x:REAL5):REAL5;
PROCEDURE ARCTAN(x:REAL5):REAL5;
PROCEDURE ARCTAN2(Y,X:REAL5):REAL5;
PROCEDURE EXP(x:REAL5):REAL5;
PROCEDURE LN(x:REAL5):REAL5;
PROCEDURE SQRT(x:REAL5):REAL5;
PROCEDURE FRAC(x:REAL5):REAL5;
PROCEDURE ENTIER(x:REAL5):INTEGER;
PROCEDURE SQUARE(x:REAL5):REAL5;
PROCEDURE POWER(x,y:REAL5):REAL5;
END R5MATH.

IMPLEMENTATION MODULE R5MATH;

PROCEDURE SIN(x:REAL5):REAL5;
HEX C3 B5 37 END SIN;

PROCEDURE COS(x:REAL5):REAL5;
HEX C3 AA 37 END COS;

PROCEDURE TAN(x:REAL5):REAL5;
HEX C3 DA 37 END TAN;

PROCEDURE ARCSIN(x:REAL5):REAL5;
HEX C3 33 38 END ARCSIN;

PROCEDURE ARCCOS(x:REAL5):REAL5;
HEX C3 43 38 END ARCCOS;

PROCEDURE ARCTAN(x:REAL5):REAL5;
HEX C3 E2 37 END ARCTAN;

PROCEDURE EXP(x:REAL5):REAL5;
HEX C3 C4 36 END EXP;

PROCEDURE LN(x:REAL5):REAL5;
HEX C3 13 37 END LN;

PROCEDURE SQRT(x:REAL5):REAL5;
HEX C3 4A 38 END SQRT;

PROCEDURE SQUARE(x:REAL5):REAL5;
HEX EF 31 04 38 C9 END SQUARE;

PROCEDURE FRAC(x:REAL5):REAL5;
HEX EF 31 3A 03 38 C9 END FRAC;

PROCEDURE POWER(x,y:REAL5):REAL5;HEX
21 07 00 39 CD B4 33 21 02 00 39 CD B4 33 C3 51 38 END POWER;

PROCEDURE ARCTAN2(Y,X:REAL5):REAL5;HEX
21 03 00 39 E5 2B 7E CD B4 33 BE 08 7E CD 33 BE
D1 08 38 10 EF 1B 05 24 A3 38 08 23 E6 80 B6 77
EF 0F 38 C9 1A F5 EF 01 05 24 38 F1 0F D0 EF A3
38 34 18 E6 END ARCTAN2;

PROCEDURE ENTIER(x:REAL5):INTEGER;HEX
CD (@2CH) C3 (@4CH) END ENTIER;

END R5MATH.
