Commit | Line | Data |
---|---|---|
7af5ad59 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 | |
13 | TANER, TRAP4 #ARGER | |
14 | TEXT +TAN + | |
15 | TANXR, SETX XRTAN | |
16 | SETB BPTAN | |
17 | BPTAN, FNOP | |
18 | 0 | |
19 | 0 | |
20 | XRTAN, F 0.0 | |
21 | TAN1, F 0.0 | |
22 | TAN2, F 0.0 | |
23 | ORG 10*3+BPTAN | |
24 | FNOP | |
25 | JA TANXR | |
26 | 0 | |
27 | TANRTN, 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 |