A large commit.
[pdp8.git] / sw / os8 / v3d / sources / fortran / all / tan.ra
CommitLineData
81e70d48
PH
1/
2/
3/ T A N
4/ - - -
5/
6/SUBROUTINE TAN(X)
7/
8/ VERSION 5A 4-27-77 PT
9/
10 SECT TAN
11 JA #TAN
12 EXTERN #ARGER
13TANER, TRAP4 #ARGER
14 TEXT +TAN +
15TANXR, SETX XRTAN
16 SETB BPTAN
17BPTAN, FNOP
18 0
19 0
20XRTAN, F 0.0
21TAN1, F 0.0
22TAN2, F 0.0
23 ORG 10*3+BPTAN
24 FNOP
25 JA TANXR
26 0
27TANRTN, JA .
28 BASE 0
29#TAN, STARTD
30 FLDA 10*3
31 FSTA TANRTN
32 FLDA 0
33 SETX XRTAN
34 SETB BPTAN
35 BASE BPTAN
36 LDX 1,1
37 FSTA BPTAN
38 FLDA% BPTAN,1 /ADDR OF X
39 FSTA BPTAN
40 STARTF
41 FLDA% BPTAN /GET X
42 JEQ TANRTN /IF 0 RTN NOW
43 FSTA TAN1 /SAVE FOR A SECOND
44 EXTERN COS
45 JSR COS /TAKE COS(X)
46 JA .+4
47 JA TAN1
48 JEQ TANER /COS=0. A NO-NO
49 FSTA TAN2 /SAV IT
50 EXTERN SIN
51 JSR SIN /NOW TAKE SIN(X)
52 JA .+4
53 JA TAN1
54 FDIV TAN2 /DIV BY COS(X)
55 JA TANRTN
56\f