.TITLE	.CDPAB
/
/ DOUBLE PRECISION COMPLEX ABSOLUTE VALUE
/
	.GLOBL	CDABS,.DPCAB
	.GLOBL	.DPRML,.DPADD,.SWPBI,.SWPIB,.SWPIT,.DSQRT
	.GLOBL	.CHKMD,.LODBD,.MODEA
	.GLOBL	.GRAB
/
CDABS	XX
	JMS*	.GRAB	/ FETCH THE ARGUMENT
	JMS*	.CHKMD	/SET MODE
	JMS	.DPCAB
	JMP*	CDABS
/
.DPCAB	XX
	JMS*	.LODBD	/A TO B
	JMS*	.DPRML	/SQUARE REAL PART
	JMS*	.SWPBI	/A TO BI
	JMS*	.SWPIT	/AI TO A
	JMS*	.LODBD	/A TO B
	JMS*	.DPRML	/SQUARE IMAGINARY PART
	JMS*	.SWPIB	/BI TO B
	JMS*	.DPADD
	LAC*	.MODEA
	JMS*	.DSQRT
	JMP*	.DPCAB
/
	.END