real procedure abs(x);  value x;  real x;
kdf9 2/0/0/0;
  {x}; ABSF; exit 
algol 

integer procedure sign(x);  value x;  real x;
kdf9 2/0/0/0;
  {x}; ZERO; SIGNF; exit 
algol 

real procedure sqrt(x);  value x;  real x;
kdf9 2/0/1/0;
   V0=B4323406615617715;
   {x}; DUP; J1<Z;
   DUP; J2=Z;
   JSP242;
2; exit 
1; SETAV0; REV; SET1; JP299;
algol 

real procedure sin(x);  value x;  real x;
kdf9 11/1/1/1;
    V0=B4323405614716400;
    {x}; DUP; J4!=Z; exit 
4;  DUP; FIX; REV; ERASE; DUP; SET37; -; J5>Z;
    SET19; +; J1>=Z;
    exit 
1;  JSP240; exit 
5;  ERASE; SETAV0; REV; SET1; JP299;
algol 

real procedure cos(x);  value x;  real x;
kdf9 11/1/1/3;
    {x}; DUP; J1!=Z;
3;  ERASE; V2; exit 
1;  DUP; FIX; REV; ERASE; DUP; SET37; -; J2>Z;
    SET19; +; J3<Z;
    V0; REV; -F; JSP240; exit 
2;  ERASE; SETAV1; REV; SET1; JP299;
    V0=F+1.570796326795;
    V1=B4322406416116400;
    V2=F+1.0;
algol 

real procedure arctan(x);  value x;  real x;
kdf9 6/1/1/17;
        V0=F0.019042127887;
        V1=F0.019042129240;
        V2=F0.038082414120;
        V3=F0.076666493927;
        V4=F0.121226383896;
        V5=F0.725940450930;
        (V6-V10 used for b);
        V11=Q6/1/0;
        V12=Q4/1/0;
        (V13 used for a);
        V14=F1.0;
        V15=F0.5;
        V16=B4322306712034446; V17=B1471640000000000;

        V14; =V13; ( stolen from P51 in Walgol );
        {x}; DUP; DUP; ×F; V14; +F; JSP242; =V6;
        V12; =Q15;
2;      V13; V6M15; +F; V15; ×F; =V13;
        V13; V6M15Q; ×F; JSP242; =V6M15; J2C15NZ;
        V11; =Q15;
        V0M15Q; ZERO; REV; FIX; FLOATD;
1;      V0M15; V5M15Q; ×+F; J1C15NZ;
        ROUNDF; ÷F; exit 
algol 

real procedure ln(x);  value x;  real x;
kdf9 5/0/1/1;
  V0=B4523046347200000;
  {x}; DUP; J1<=Z;
  JSP243; exit 
1; SETAV0; REV; SET1; JP299;
algol 

real procedure exp(x);  value x;  real x;
kdf9 5/1/1/0;
  {x}; JSP238; exit 
algol 

integer procedure entier(x);  value x;  real x;
kdf9 4/0/0/1;
   V0=B4322506316227052;
   V1=B1571640000000000;
   {x}; FIX; DUP; SET39; -; DUP; J3>Z;
   =C3; J1>Z;
   J2<Z;
   ZERO; exit 
2; SET-1; exit 
1; SET-8; =+C3; SHLC3; NC3; SHLC3;
   NC3; SHAC3; exit 
3; ERASE; FLOAT; SETAV0; REV; SET1; JSP299;
algol