software: Added more and more
[pdp8.git] / sw / f4 / FRTSRC / tanh.ra
CommitLineData
7af5ad59
PH
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 +
13TANHXR, SETX XRTANH
14 SETB BPTANH
15BPTANH, FNOP
16 0
17 0
18XRTANH, F 0.0
19TANH1, F 0.0
20TANH2, F 0.0
21 ORG 10*3+BPTANH
22 FNOP
23 JA TANHXR
24 0
25TNHRTN, 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