ASMB,L,F,R,C * * **************************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS * * * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * * * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * * * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * * **************************************************************** * * NAME: PART OF MATH LIBRARY * SOURCE: 24998-18XXX SEE NAM FOR LAST THREE DIGITS * RELOC: PART OF 24998-12001 * PGMR: BG & JTS * HED ".LOG0" - TRIPLE PRECISION COMMON LOGARITHM. NAM .LOG0,7 24998-1X125 REV.2001 780424 * ENT .LOG0,.LOGT EXT .LOG,.TMPY,.ENTR * * .LOG0 TAKES THE TRIPLE-PRECISION COMMON LOGARITHM OF A * TRIPLE-PRECISION NUMBER. * * CALLING SEQUENCE: * * JSB <.LOG0 OR .LOGT> * DEF *+3 * DEF * DEF * (A,B) = ASCII "02UN" * * * THE ERROR RETURN IS TAKEN IF THE ARGUMENT IS NEGATIVE OR ZERO. * * METHOD: .LOG IS CALLED TO DO ERROR CHECKING AND COMPUTE THE * NATURAL LOG. THE RESULT IS MULTIPLIED BY THE COMMON LOG OF E. SPC 4 RESLT DEF *-* ARG DEF *-* .LOG0 NOP .LOGT EQU .LOG0 JSB .ENTR COPY ADDRESSES. DEF RESLT JSB .LOG TAKE NATURAL LOG. DEF *+3 DEF RESLT,I DEF ARG,I JMP .LOG0,I ERROR: TAKE ERROR EXIT. ISZ .LOG0 BUMP TO NORMAL EXIT. JSB .TMPY LOG10 = LN * LOG10(E) DEF RESLT,I DEF RESLT,I DEF .LOGE JMP .LOG0,I EXIT * .LOGE OCT 067455,166124,115624,034777 END