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