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 <RESULT>
*                   DEF <ARG> 
*                   <ERROR RETURN>    (A,B) = ASCII "02UN"
*                   <NORMAL RETURN> 
* 
*     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 
                                                                                                                                                                                                                          