Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-05 - 43,50337/23/ilog.sim
There is 1 other file named ilog.sim in the archive. Click here to see a list.
OPTIONS(/E/C/-Q/-A/-I/-D);
INTEGER PROCEDURE ilog(x);   LONG REAL x;
ilog:= IF x = 0 THEN 0 ELSE Entier(Ln(Abs(x))/2.30258 50929 94045 685 &&0)+1;