.TITLE	.CSPSC
/
/ SINGLE PRECISION COMPLEX SIN AND COS ROUTINES
/
	.GLOBL	CSIN,CCOS
	.GLOBL	.SIN,.COS,.SINH,.COSH,.CHKMS,.MODCN,.SPRML,.SPADD
	.GLOBL	.SPRST,.SPRLD,.LDREL,.SWPBI,.SWPIB,.SWPIT,.MODEA,.MVIMA
	.GLOBL	.GRAB
/
CCOS	XX
	JMS*	.GRAB
	JMS*	.CHKMS	/SET MODE
	LAC	(PIBY2
	JMS*	.SPRLD
	JMS*	.SPADD	/CCOS(X)=CSIN(X+PI/2)
	JMS*	.MODCN	/RESET MODE
	JMS	.CSIN
	JMP*	CCOS
/
CSIN	XX
	JMS*	.GRAB
	JMS	.CSIN
	JMP*	CSIN
/
/
.CSIN	XX
	JMS*	.CHKMS
	LAC	(STO
	JMS*	.SPRST	/STORE REAL PART
	LAC*	.MODEA
	JMS*	.SIN	/SIN(A)
	LAC	(STO
	JMS*	.SPRLD
	LAC	(STO
	JMS*	.SPRST
	JMS*	.LDREL
	LAC*	.MODEA
	JMS*	.COS	/COS(A)
	JMS*	.SWPBI	/A TO BI
	JMS*	.SWPIT	/AI TO A
	LAC*	.MODEA
	JMS*	.SINH	/SINH(AI)
	JMS*	.SWPIB	/BI TO B
	JMS*	.SPRML	/COS(A)*SINH(AI)
	JMS*	.SWPBI	/BI TO B
	JMS*	.SWPIT	/AI TO A
	LAC*	.MODEA
	JMS*	.COSH	/COSH(AI)
	LAC	(STO
	JMS*	.SPRLD
	JMS*	.SPRML	/SIN(A)*COSH(AI)
	JMS*	.MVIMA
	JMS*	.MODCN	/SET MODE
	JMP*	.CSIN
/
PIBY2	1; 444176; 325042
STO	.BLOCK	3
/
	.END