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

(Source file text) 

---

/R=SIND(R) SINGLE PREC. DEGREES TRIG. SINE
/
/
/ VERSION 40A 27-MAY-80 WVDM
/
/
	SECT	SIND
	JA	#SIND
	TEXT	+SIND  +
SINDXR,	SETX	XRSIND
	SETB	BPSIND
BPSIND,	FNOP
	0
	0
XRSIND,	F 0.0
SIND91,	6			/360./(2*PI)
	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	.+4
	JA	SIND1
	JA	SNDRTN

---