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
/
tanh.ra
1
/
2
/
3
/ T A N H
4
/ - - - -
5
/
6
/SUBROUTINE TANH(X)
7
/
8
/ VERSION 5A 4-27-77 PT
9
/
10
SECT TANH
11
JA #TANH
12
TEXT +TANH +
13
TANHXR, SETX XRTANH
14
SETB BPTANH
15
BPTANH, FNOP
16
0
17
0
18
XRTANH, F 0.0
19
TANH1, F 0.0
20
TANH2, F 0.0
21
ORG 10*3+BPTANH
22
FNOP
23
JA TANHXR
24
0
25
TNHRTN, JA .
26
BASE 0
27
#TANH, STARTD
28
FLDA 10*3
29
FSTA TNHRTN
30
FLDA 0
31
SETX XRTANH
32
SETB BPTANH
33
BASE BPTANH
34
LDX 1,1
35
FSTA BPTANH
36
FLDA% BPTANH,1 /ADDR OF X
37
FSTA BPTANH
38
STARTF
39
FLDA% BPTANH /GET X
40
FSTA TANH1 /SAV IT
41
EXTERN COSH
42
JSR COSH /CALL COSH
43
JA .+4
44
JA TANH1
45
FSTA TANH2 /SAVE COSH(X)
46
EXTERN SINH
47
JSR SINH /CALL SINH
48
JA .+4
49
JA TANH1
50
FDIV TANH2 /SINH/COSH=TANH
51
JA TNHRTN
52
\f