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]
/
f4
/
FRTSRC
/
tan.ra
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