sw/f4/FRTSRC/dlog10.ra

   1 /
   2 /
   3 /       D  L  O  G  1  0
   4 /       -  -  -  -  -  -
   5 /
   6 /SUBROUTINE     DPLOG10(X)
   7 /
   8 / VERSION 5A 4-26-77 (MH)
   9 /
  10         SECT    DLOG10
  11         JA      #DLOG10
  12         DPCHK
  13         TEXT    +DLOG10+
  14 LOGXR,  SETX    XRLOG
  15         SETB    BPLOG
  16         JA      .+3
  17 BPLOG,  FNOP
  18         0
  19         0
  20         0;0;0
  21 XRLOG,  F 0.0
  22 LOG1,   F 0.0
  23         0;0;0
  24         ORG     10*3+BPLOG
  25         FNOP
  26         JA      LOGXR
  27         0
  28 LOGRTN, JA      .
  29 ALOG1C, 7777                    /DP .4342944819032518276
  30         3362
  31         6754
  32         2511
  33         5624
  34         1612
  35         BASE    0
  36 #DLOG10,        STARTD
  37         FLDA    10*3
  38         FSTA    LOGRTN
  39         FLDA    0
  40         SETX    XRLOG
  41         SETB    BPLOG
  42         BASE    BPLOG
  43         LDX     1,1
  44         FSTA    BPLOG
  45         FLDA%   BPLOG,1 /ADDR OF X
  46         FSTA    BPLOG
  47         STARTE
  48         FLDA%   BPLOG   /GET X
  49         FSTA    LOG1
  50         EXTERN  DLOG
  51         JSR     DLOG    /CALL ALOG
  52         JA      .+4
  53         JA      LOG1
  54         FMUL    ALOG1C  /CORRECT FOR THE LOG BASE E.
  55         JA      LOGRTN
  56 \f