[pdp8.git] / sw / f4 / FRTSRC / cosd.ra

/
/
/
/	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
\f
Commit	Line	Data
	1	/
	2	/
	3	/
	4	/ C O S D
	5	/ - - - -
	6	/
	7	/SUBROUTINE COSD(X)
	8	/
	9	/ VERSION 5A 4-27-77 PT
	10	/
	11	SECT COSD
	12	JA #COSD
	13	TEXT +COSD +
	14	COSDXR, SETX XRCOSD
	15	SETB BPCOSD
	16	BPCOSD, FNOP
	17	0
	18	0
	19	XRCOSD, F 0.0
	20	COSD90, F 90.
	21	COSD91, 6
	22	3451
	23	3560
	24	COSD1, F 0.0
	25	ORG 10*3+BPCOSD
	26	FNOP
	27	JA COSDXR
	28	0
	29	CSDRTN, JA .
	30	BASE 0
	31	#COSD, STARTD
	32	FLDA 10*3
	33	FSTA CSDRTN
	34	FLDA 0
	35	SETX XRCOSD
	36	SETB BPCOSD
	37	BASE BPCOSD
	38	LDX 1,1
	39	FSTA BPCOSD
	40	FLDA% BPCOSD,1 /ADDR OF X
	41	FSTA BPCOSD
	42	STARTF
	43	FLDA% BPCOSD /GET X IN DEGREES
	44	FADD COSD90 /ADD IN 90
	45	FDIV COSD91 /CONVERT TO REDIANS
	46	FSTA COSD1
	47	EXTERN SIN
	48	JSR SIN /CALL THE SINE
	49	JA CSDRTN
	50	JA COSD1
	51	\f