projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
9c6a3d5b58360521304d3a15911de657986dbca0
[pdp8.git]
/
sw
/
os8
/
v3d
/
sources
/
fortran
/
dectapes
/
dectape2
/
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