X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fos8%2Fv3d%2Fsources%2Ffortran%2Fall%2Fcosd.ra;fp=sw%2Fos8%2Fv3d%2Fsources%2Ffortran%2Fall%2Fcosd.ra;h=021d4fac5676e95cd3136581606f5293bf427cf8;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

diff --git a/sw/os8/v3d/sources/fortran/all/cosd.ra b/sw/os8/v3d/sources/fortran/all/cosd.ra
new file mode 100644
index 0000000..021d4fa
--- /dev/null
+++ b/sw/os8/v3d/sources/fortran/all/cosd.ra
@@ -0,0 +1,51 @@
+/
+/
+/
+/	C  O  S  D
+/	-  -  -  -
+/
+/SUBROUTINE	COSD(X)
+/
+/ VERSION 5A 4-27-77  PT
+/
+	SECT	COSD
+	JA	#COSD
+	TEXT	+COSD  +
+COSDXR,	SETX	XRCOSD
+	SETB	BPCOSD
+BPCOSD,	FNOP
+	0
+	0
+XRCOSD,	F 0.0
+COSD90,	F 90.
+COSD91,	6
+	3451
+	3560
+COSD1,	F 0.0
+	ORG	10*3+BPCOSD
+	FNOP
+	JA	COSDXR
+	0
+CSDRTN,	JA	.
+	BASE 0
+#COSD,	STARTD
+	FLDA	10*3
+	FSTA	CSDRTN
+	FLDA	0
+	SETX	XRCOSD
+	SETB	BPCOSD
+	BASE	BPCOSD
+	LDX	1,1
+	FSTA	BPCOSD
+	FLDA%	BPCOSD,1	/ADDR OF X
+	FSTA	BPCOSD
+	STARTF
+	FLDA%	BPCOSD	/GET X IN DEGREES
+	FADD	COSD90	/ADD IN 90
+	FDIV	COSD91	/CONVERT TO REDIANS
+	FSTA	COSD1
+	EXTERN	SIN
+	JSR	SIN	/CALL THE SINE
+	JA	CSDRTN
+	JA	COSD1
+