software: Added more and more
[pdp8.git] / sw / f4 / FRTSRC / sind.ra
CommitLineData
7af5ad59
PH
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 +
13SINDXR, SETX XRSIND
14 SETB BPSIND
15BPSIND, FNOP
16 0
17 0
18XRSIND, F 0.0
19SIND91, 6
20 3451
21 3560
22SIND1, F 0.0
23 ORG 10*3+BPSIND
24 FNOP
25 JA SINDXR
26 0
27SNDRTN, 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