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

diff --git a/sw/os8/v3d/sources/fortran/dectapes/dectape2/dcos.ra b/sw/os8/v3d/sources/fortran/dectapes/dectape2/dcos.ra
new file mode 100644
index 0000000..90fba9d
--- /dev/null
+++ b/sw/os8/v3d/sources/fortran/dectapes/dectape2/dcos.ra
@@ -0,0 +1,57 @@
+/
+/
+/	D  C  O  S
+/	-  -  -  -
+/
+/SUBROUTINE	DCOS(X)
+/
+/ VERSION 5A 4-27-77  PT
+/
+	SECT	DCOS
+	JA	#DCOS
+	DPCHK
+	TEXT	+DCOS  +
+COSXR,	SETX	XRCOS
+	SETB	BPCOS
+BPCOS,	FNOP
+	0
+	0
+	0
+	0
+	0
+XRCOS,	F 0.0
+	F 0.0
+COS1,	F 0.0
+	F 0.0
+FPI2CS,	1		/PI DIVIDED BY 2
+	3110
+	3755	
+	2421
+	0264
+	3016
+	ORG	10*3+BPCOS
+	FNOP
+	JA	COSXR
+	0
+COSRTN,	JA	.
+	BASE	0
+#DCOS,	STARTD
+	FLDA	10*3
+	FSTA	COSRTN
+	FLDA	0
+	SETX	XRCOS
+	SETB	BPCOS
+	BASE	BPCOS
+	LDX	1,1
+	FSTA	BPCOS
+	FLDA%	BPCOS,1	/ADDR OF X 
+	FSTA	BPCOS
+	STARTE
+	FLDA%	BPCOS	/GET X
+	FADD	FPI2CS	/ADD IN PI OVER 2
+	FSTA	COS1
+	EXTERN	DSIN
+	JSR	DSIN	/AND CALL THE SIN
+	JA	COSRTN
+	JA	COS1
+