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]
/
FRTSRC
/
tand.ra
1
/
2
/
3
/ T A N D
4
/ - - - -
5
/
6
/SUBROUTINE TAND(X)
7
/
8
/ VERSION 5A 4-27-77 PT
9
/
10
SECT TAND
11
JA #TAND
12
TEXT +TAND +
13
TANDXR, SETX XRTAND
14
SETB BPTAND
15
BPTAND, FNOP
16
0
17
0
18
XRTAND, F 0.0
19
TAND91, 6
20
3451
21
3560
22
TAND1, F 0.0
23
ORG 10*3+BPTAND
24
FNOP
25
JA TANDXR
26
0
27
TNDRTN, JA .
28
BASE 0
29
#TAND, STARTD
30
FLDA 10*3
31
FSTA TNDRTN
32
FLDA 0
33
SETX XRTAND
34
SETB BPTAND
35
BASE BPTAND
36
LDX 1,1
37
FSTA BPTAND
38
FLDA% BPTAND,1 /ADDR OF X
39
FSTA BPTAND
40
STARTF
41
FLDA% BPTAND /GT X IN DEGREES
42
FDIV TAND91 /CONVERT TO RADIANS
43
FSTA TAND1
44
EXTERN TAN
45
JSR TAN /CALL THE TANGENT
46
JA TNDRTN
47
JA TAND1
48
\f