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]
/
f4
/
FRTSRC
/
alog10.ra
1
/
2
/
3
/ A L O G 1 0
4
/ - - - - - -
5
/
6
/ VERSION 5A 4-27-77 PT
7
/
8
/SUBROUTINE ALOG10(X)
9
SECT ALOG10
10
JA #ALOG
11
TEXT +ALOG10+
12
LOGXR, SETX XRLOG
13
SETB BPLOG
14
BPLOG, FNOP
15
0
16
0
17
XRLOG, F 0.0
18
LOG1, F 0.0
19
ALOG1C, 7777 /FUDGE CONSTANT
20
3362
21
6754
22
ORG 10*3+BPLOG
23
FNOP
24
JA LOGXR
25
0
26
LOGRTN, JA .
27
BASE 0
28
#ALOG, STARTD
29
FLDA 10*3
30
FSTA LOGRTN
31
FLDA 0
32
SETX XRLOG
33
SETB BPLOG
34
BASE BPLOG
35
LDX 1,1
36
FSTA BPLOG
37
FLDA% BPLOG,1 /ADDR OF X
38
FSTA BPLOG
39
STARTF
40
FLDA% BPLOG /GET X
41
FSTA LOG1
42
EXTERN ALOG
43
JSR ALOG /CALL ALOG
44
JA .+4
45
JA LOG1
46
FMUL ALOG1C /CORRECT FOR THE LOG BASE E.
47
JA LOGRTN
48
\f