File: DLOG10.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/D=DLOG10(D) DOUBLE PREC. DECIMAL LOGARITHM
/
/
/ VERSION 50A 28-MAY-80 WVDM
/
/
SECT DLOG10
00000 1030 JA #DLOG10
00001 0057
DPCHK
00002 0414 TEXT +DLOG10+
00003 1707
00004 6160
00005 1100 LOGXR, SETX XRLOG
00006 0021
00007 1110 SETB BPLOG
00010 0013
00011 1030 JA .+3
00012 0014
00013 0040 BPLOG, FNOP
00014 0000 0
00015 0000 0
00016 0000 F 0.0
00017 0000
00020 0000
00021 0000 XRLOG, F 0.0
00022 0000
00023 0000
00024 0000 LOG1, F 0.0
00025 0000
00026 0000
00027 0000 F 0.0
00030 0000
00031 0000
ORG 10*3+BPLOG
00043 0040 FNOP
00044 1030 JA LOGXR
00045 0005
00046 0000 0
00047 1030 LOGRTN, JA .
00050 0047
/
00051 7777 ALOG1C, 7777 /1./LNE(10.) = .4342944819032518276
00052 3362 3362
00053 6754 6754
00054 2511 2511
00055 5624 5624
00056 1612 1612
/
BASE 0
00057 0006 #DLOG10, STARTD
00060 0210 FLDA 10*3
00061 6400 FSTA LOGRTN
00062 0047
00063 0200 FLDA 0
00064 1100 SETX XRLOG
RALF V50A 8-APR-92 PAGE 1-1
00065 0021
00066 1110 SETB BPLOG
00067 0013
BASE BPLOG
00070 0101 LDX 1,1
00071 0001
00072 6200 FSTA BPLOG
00073 0610 FLDA% BPLOG,1 /ADDR OF X
00074 6200 FSTA BPLOG
00075 0050 STARTE
00076 0600 FLDA% BPLOG /GET X
00077 6203 FSTA LOG1
EXTERN DLOG
00100 1130 JSR DLOG /CALL DLOG
00101 0000
00102 1030 JA .+4
00103 0106
00104 1030 JA LOG1
00105 0024
00106 4212 FMUL ALOG1C /CORRECT FOR THE LOG BASE E.
00107 1030 JA LOGRTN
00110 0047
RALF V50A 8-APR-92 PAGE 2
RALF V50A 8-APR-92 PAGE 2-1
NO ERRORS
9 SYMBOLS, NO ABS REFS
# C 00000 #DLOG1 00057 #MAIN S 00000 ALOG1C 00051
BPLOG 00013 DLOG X 00000 DLOG10 S 00111 LOGRTN 00047
LOGXR 00005 LOG1 00024 XRLOG 00021