A large commit.
[pdp8.git] / sw / os8 / v3d / sources / fortran / dectapes / dectape2 / dlog10.ra
CommitLineData
81e70d48
PH
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+
14LOGXR, SETX XRLOG
15 SETB BPLOG
16 JA .+3
17BPLOG, FNOP
18 0
19 0
20 0;0;0
21XRLOG, F 0.0
22LOG1, F 0.0
23 0;0;0
24 ORG 10*3+BPLOG
25 FNOP
26 JA LOGXR
27 0
28LOGRTN, JA .
29ALOG1C, 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