A large commit.
[pdp8.git] / sw / os8 / v3d / sources / fortran / dectapes / dectape2 / 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