Voyager-generated listing of LOGB by Paul Dale.
Method: LOG of A (base B) is calculated as LN(A)/LN(B),
using the internal 15-digit-accurate routines.
02D9D ::
18EDF CK2&Dispatch * Save current command, verify DEPTH ò 2, check args.
04099 REALREAL * 2:Real,1:Real
02D9D ::
2A5C1 %>%% * Converts real to extended real
2AB5B %%LN * Extended-real ln(x)
03223 SWAP * ob1 ob2 --> ob2 ob1
2A5C1 %>%% * Converts real to extended real
2AB5B %%LN * Extended-real ln(x)
2A9E8 %%/ * Extended-real /
2A5B0 %%>% * Converts extended real to real
0312B ;
0312B ;