.TITLE	.CSPXP
/
/ SINGLE PRECISION COMPLEX EXP
/
	.GLOBL	CEXP
	.GLOBL	.EXP,.COS,.SIN,.SPRML,.SWPBI,.SWPIB,.SWPIT,.LODBS
	.GLOBL	.CHKMS,.MODCN,.SPBAI,.MODEA
	.GLOBL	.GRAB
/
CEXP	XX
	JMS*	.GRAB	/ FETCH THE ARGUMENT
	JMS*	.CHKMS	/SET MODE
	LAC*	.MODEA
	JMS*	.EXP	/E**A
	JMS*	.SWPBI	/A TO BI
	JMS*	.SWPIT	/AI TO A
	LAC*	.MODEA
	JMS*	.SIN	/SIN(AI)
	JMS*	.SWPIB	/BI TO B
	JMS*	.SPRML
	JMS*	.LODBS	/A TO B
	JMS*	.SWPIT	/AI TO A
	JMS*	.SPBAI	/B TO AI
	LAC*	.MODEA
	JMS*	.COS
	JMS*	.SWPIB	/BI TO B
	JMS*	.SPRML
	JMS*	.MODCN	/CONVERT MODE BACK TO COMPLEX
	JMP*	CEXP
/
	.END