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
/
sind.ra
1
/
2
/
3
/ S I N D
4
/ - - - -
5
/
6
/SUBROUTINE SIND(X)
7
/
8
/ VERSION 5A 4-27-77 PT
9
/
10
SECT SIND
11
JA #SIND
12
TEXT +SIND +
13
SINDXR, SETX XRSIND
14
SETB BPSIND
15
BPSIND, FNOP
16
0
17
0
18
XRSIND, F 0.0
19
SIND91, 6
20
3451
21
3560
22
SIND1, F 0.0
23
ORG 10*3+BPSIND
24
FNOP
25
JA SINDXR
26
0
27
SNDRTN, JA .
28
BASE 0
29
#SIND, STARTD
30
FLDA 10*3
31
FSTA SNDRTN
32
FLDA 0
33
SETX XRSIND
34
SETB BPSIND
35
BASE BPSIND
36
LDX 1,1
37
FSTA BPSIND
38
FLDA% BPSIND,1 /ADDR OF X
39
FSTA BPSIND
40
STARTF
41
FLDA% BPSIND /GET X IN DEGREES
42
FDIV SIND91 /CONVERT TO RADIANS
43
FSTA SIND1
44
EXTERN SIN
45
JSR SIN /CALL THE SINE
46
JA SNDRTN
47
JA SIND1
48
\f