.TITLE	.CDPXP
/
/ DOUBLE PRECISION COMPLEX EXP
/
	.GLOBL	CDEXP
	.GLOBL	.DEXP,.DCOS,.DSIN,.DPRML,.SWPBI,.SWPIB,.SWPIT,.LODBD
	.GLOBL	.CHKMD,.MODCN,.SPBAI,.MODEA
	.GLOBL	.GRAB
/
CDEXP	XX
	JMS*	.GRAB	/ FETCH THE ARGUMENT
	JMS*	.CHKMD	/SET MODE
	LAC*	.MODEA
	JMS*	.DEXP	/E**A
	JMS*	.SWPBI	/A TO BI
	JMS*	.SWPIT	/AI TO A
	LAC*	.MODEA
	JMS*	.DSIN	/SIN(AI)
	JMS*	.SWPIB	/BI TO B
	JMS*	.DPRML
	JMS*	.LODBD	/A TO B
	JMS*	.SWPIT	/AI TO A
	JMS*	.SPBAI	/B TO AI
	LAC*	.MODEA
	JMS*	.DCOS
	JMS*	.SWPIB	/BI TO B
	JMS*	.DPRML
	JMS*	.MODCN	/CONVERT MODE BACK TO COMPLEX
	JMP*	CDEXP
/
	.END