File: COSD.RA of Tape: Sources/Fortran/os8-f4-3

(Source file text) 

---

/R=COSD(R) SINGLE PREC. TRIG. COS (DEGREES)
/
/
/ VERSION 40A 27-MAY-80 WVDM
/
/
	SECT	COSD
	JA	#COSD
	TEXT	+COSD  +
COSDXR,	SETX	XRCOSD
	SETB	BPCOSD
BPCOSD,	FNOP
	0
	0
XRCOSD,	F 0.0
COSD90,	F 90.
COSD91,	6			/360./(2*PI)
	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 RADIANS
	FSTA	COSD1
	EXTERN	SIN
	JSR	SIN		/CALL THE SINE
	JA	CSDRTN
	JA	COSD1

---