File: ALOG10.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/R=ALOG10(R) SINGLE PREC. BASE 10 LOGARITHM
/
/
/ VERSION 50A 22-MAY-80 WVDM
/
/
SECT ALOG10
00000 1030 JA #ALOG
00001 0047
00002 0114 TEXT +ALOG10+
00003 1707
00004 6160
00005 1100 LOGXR, SETX XRLOG
00006 0014
00007 1110 SETB BPLOG
00010 0011
00011 0040 BPLOG, FNOP
00012 0000 0
00013 0000 0
00014 0000 XRLOG, F 0.0
00015 0000
00016 0000
00017 0000 LOG1, F 0.0
00020 0000
00021 0000
00022 7777 ALOG1C, F 0.43429448 /1./LN(10)
00023 3362
00024 6754
ORG 10*3+BPLOG
00041 0040 FNOP
00042 1030 JA LOGXR
00043 0005
00044 0000 0
00045 1030 LOGRTN, JA .
00046 0045
BASE 0
00047 0006 #ALOG, STARTD
00050 0210 FLDA 10*3
00051 6400 FSTA LOGRTN
00052 0045
00053 0200 FLDA 0
00054 1100 SETX XRLOG
00055 0014
00056 1110 SETB BPLOG
00057 0011
BASE BPLOG
00060 0101 LDX 1,1
00061 0001
00062 6200 FSTA BPLOG
00063 0610 FLDA% BPLOG,1 /ADDR OF X
00064 6200 FSTA BPLOG
00065 0005 STARTF
00066 0600 FLDA% BPLOG /GET X
00067 6202 FSTA LOG1
EXTERN ALOG
00070 1130 JSR ALOG /CALL ALOG
RALF V50A 8-APR-92 PAGE 1-1
00071 0000
00072 1030 JA .+4
00073 0076
00074 1030 JA LOG1
00075 0017
00076 4203 FMUL ALOG1C /CORRECT FOR THE LOG BASE E.
00077 1030 JA LOGRTN
00100 0045
RALF V50A 8-APR-92 PAGE 2
RALF V50A 8-APR-92 PAGE 2-1
NO ERRORS
9 SYMBOLS, NO ABS REFS
# C 00000 #ALOG 00047 #MAIN S 00000 ALOG X 00000
ALOG1C 00022 ALOG10 S 00101 BPLOG 00011 LOGRTN 00045
LOGXR 00005 LOG1 00017 XRLOG 00014