!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 5/0/1/0; (+ original said 4/0/0/1 but SJNS is used, and our P242 uses 5 nest cells); V0=B4323406615617715; {x}; DUP; J1Z; 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; +; J3Z; =C3; J1>Z; J2