projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Add README.md
[pdp8.git]
/
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