math.dcl

来自「用单片机实现的总线比较的2取2功能的安全计算机」· DCL 代码 · 共 49 行

SIN:    PROCEDURE(X) REAL EXTERNAL;
         DECLARE X REAL;
        END SIN;
COS:    PROCEDURE(X) REAL EXTERNAL;
         DECLARE X REAL;
        END COS;
TAN:    PROCEDURE(X) REAL EXTERNAL;
         DECLARE X REAL;
        END TAN;
CTAN:   PROCEDURE(X) REAL EXTERNAL;
         DECLARE X REAL;
        END CTAN;
TANH:   PROCEDURE(X) REAL EXTERNAL;
         DECLARE X REAL;
        END TANH;
ATAN:   PROCEDURE(X) REAL EXTERNAL;
         DECLARE X REAL;
        END ATAN;
EXP:    PROCEDURE(X) REAL EXTERNAL;
         DECLARE X REAL;
        END EXP;
CABS:    PROCEDURE(X,Y) REAL EXTERNAL;
         DECLARE (X,Y)  REAL;
        END CABS;
LOG:    PROCEDURE(X) REAL EXTERNAL;
         DECLARE X REAL;
        END LOG;
LOG10:  PROCEDURE(X) REAL EXTERNAL;
         DECLARE X REAL;
        END LOG10;
SQRT:   PROCEDURE(X) REAL EXTERNAL;
         DECLARE X REAL;
        END SQRT;
TODEC:  PROCEDURE (SN1,ADDR,X) EXTERNAL;
         DECLARE SN1 SHORTINT;
         DECLARE ADDR WORD;
         DECLARE X REAL;
        END TODEC;
FRDEC:  PROCEDURE (SN0,ADDR) REAL EXTERNAL;
         DECLARE SN0 SHORTINT;
         DECLARE ADDR WORD;
        END FRDEC;
XX:     PROCEDURE (X) REAL EXTERNAL;
         DECLARE X REAL;
        END XX;
XXX:    PROCEDURE (X) REAL EXTERNAL;
         DECLARE X REAL;
        END XXX;