.TITLE	.CDPSC
/
/ DOUBLE PRECISION COMPLEX SIN AND COS ROUTINES
/
	.GLOBL	CDSIN,CDCOS,.CDSIN
	.GLOBL	.DSIN,.DCOS,.DSINH,.DCOSH,.CHKMD,.MODCN,.DPRML,.DPADD
	.GLOBL	.DPRST,.DPRLD,.LDDBL,.SWPBI,.SWPIB,.SWPIT,.MODEA,.MVIMA
	.GLOBL	.GRAB
/
CDCOS	XX
	JMS*	.GRAB
	JMS*	.CHKMD	/SET MODE
	LAC	(PIBY2
	JMS*	.DPRLD
	JMS*	.DPADD	/CCOS(X)=CSIN(X+PI/2)
	JMS*	.MODCN	/RESET MODE
	JMS	.CDSIN
	JMP*	CDCOS
/
/
CDSIN	XX
	JMS*	.GRAB
	JMS	.CDSIN
	JMP*	CDSIN
/
/
.CDSIN	XX
	JMS*	.CHKMD
	LAC	(STO
	JMS*	.DPRST	/STORE REAL PART
	LAC*	.MODEA
	JMS*	.DSIN	/SIN(A)
	LAC	(STO
	JMS*	.DPRLD
	LAC	(STO
	JMS*	.DPRST
	JMS*	.LDDBL
	LAC*	.MODEA
	JMS*	.DCOS	/COS(A)
	JMS*	.SWPBI	/A TO BI
	JMS*	.SWPIT	/AI TO A
	LAC*	.MODEA
	JMS*	.DSINH	/SINH(AI)
	JMS*	.SWPIB	/BI TO B
	JMS*	.DPRML	/COS(A)*SINH(AI)
	JMS*	.SWPBI	/BI TO B
	JMS*	.SWPIT	/AI TO A
	LAC*	.MODEA
	JMS*	.DCOSH	/COSH(AI)
	LAC	(STO
	JMS*	.DPRLD
	JMS*	.DPRML	/SIN(A)*COSH(AI)
	JMS*	.MVIMA
	JMS*	.MODCN	/SET MODE
	JMP*	.CDSIN
/
PIBY2	1; 444176; 325042; 055060; 432305
STO	.BLOCK	5
/
	.END