X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Ff4%2FFRTSRC%2Fsind.ra;fp=sw%2Ff4%2FFRTSRC%2Fsind.ra;h=66ac14c83d994b7ee8966ef9551387e9e4955d10;hb=7af5ad59491ddf2066641aef1e0025a337c0f247;hp=0000000000000000000000000000000000000000;hpb=919757fd611e482003ce51f366f6783cab73dea3;p=pdp8.git

diff --git a/sw/f4/FRTSRC/sind.ra b/sw/f4/FRTSRC/sind.ra
new file mode 100644
index 0000000..66ac14c
--- /dev/null
+++ b/sw/f4/FRTSRC/sind.ra
@@ -0,0 +1,48 @@
+/
+/
+/	S   I   N   D
+/	-   -   -   -
+/
+/SUBROUTINE SIND(X)
+/
+/ VERSION 5A 4-27-77  PT
+/
+	SECT	SIND
+	JA	#SIND
+	TEXT	+SIND  +
+SINDXR,	SETX	XRSIND
+	SETB	BPSIND
+BPSIND,	FNOP
+	0
+	0
+XRSIND,	F 0.0
+SIND91,	6
+	3451
+	3560
+SIND1,	F 0.0
+	ORG	10*3+BPSIND
+	FNOP
+	JA	SINDXR
+	0
+SNDRTN,	JA	.
+	BASE	0
+#SIND,	STARTD
+	FLDA	10*3
+	FSTA	SNDRTN
+	FLDA	0
+	SETX	XRSIND
+	SETB	BPSIND
+	BASE	BPSIND
+	LDX	1,1
+	FSTA	BPSIND
+	FLDA%	BPSIND,1	/ADDR OF X
+	FSTA	BPSIND
+	STARTF
+	FLDA%	BPSIND	/GET X IN DEGREES
+	FDIV	SIND91	/CONVERT TO RADIANS
+	FSTA	SIND1
+	EXTERN	SIN
+	JSR	SIN	/CALL THE SINE
+	JA	SNDRTN
+	JA	SIND1
+