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
/
cos.ra
1
/
2
/
3
/ C O S
4
/ - - -
5
/
6
/SUBROUTINE COS(X)
7
/
8
/ VERSION 5A 4-27-77 PT
9
/
10
SECT COS
11
JA #COS
12
TEXT +COS +
13
COSXR, SETX XRCOS
14
SETB BPCOS
15
BPCOS, FNOP
16
0
17
0
18
XRCOS, F 0.0
19
COS1, F 0.0
20
FPI2CS, 1 /PI DIVIDED BY 2
21
3110
22
3755
23
ORG 10*3+BPCOS
24
FNOP
25
JA COSXR
26
0
27
COSRTN, JA .
28
BASE 0
29
#COS, STARTD
30
FLDA 10*3
31
FSTA COSRTN
32
FLDA 0
33
SETX XRCOS
34
SETB BPCOS
35
BASE BPCOS
36
LDX 1,1
37
FSTA BPCOS
38
FLDA% BPCOS,1 /ADDR OF X
39
FSTA BPCOS
40
STARTF
41
FLDA% BPCOS /GET X
42
FADD FPI2CS /ADD IN PI OVER 2
43
FSTA COS1
44
EXTERN SIN
45
JSR SIN /AND CALL THE SIN
46
JA COSRTN
47
JA COS1
48
\f