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
/
cosd.ra
1
/
2
/
3
/
4
/ C O S D
5
/ - - - -
6
/
7
/SUBROUTINE COSD(X)
8
/
9
/ VERSION 5A 4-27-77 PT
10
/
11
SECT COSD
12
JA #COSD
13
TEXT +COSD +
14
COSDXR, SETX XRCOSD
15
SETB BPCOSD
16
BPCOSD, FNOP
17
0
18
0
19
XRCOSD, F 0.0
20
COSD90, F 90.
21
COSD91, 6
22
3451
23
3560
24
COSD1, F 0.0
25
ORG 10*3+BPCOSD
26
FNOP
27
JA COSDXR
28
0
29
CSDRTN, JA .
30
BASE 0
31
#COSD, STARTD
32
FLDA 10*3
33
FSTA CSDRTN
34
FLDA 0
35
SETX XRCOSD
36
SETB BPCOSD
37
BASE BPCOSD
38
LDX 1,1
39
FSTA BPCOSD
40
FLDA% BPCOSD,1 /ADDR OF X
41
FSTA BPCOSD
42
STARTF
43
FLDA% BPCOSD /GET X IN DEGREES
44
FADD COSD90 /ADD IN 90
45
FDIV COSD91 /CONVERT TO REDIANS
46
FSTA COSD1
47
EXTERN SIN
48
JSR SIN /CALL THE SINE
49
JA CSDRTN
50
JA COSD1
51
\f