.TITLE	.CSPAB
/
/ SINGLE PRECISION COMPLEX ABSOLUTE VALUE
/
	.GLOBL	CABS,.SPCAB
	.GLOBL	.SPRML,.SPADD,.SWPBI,.SWPIB,.SWPIT,.SQRT
	.GLOBL	.CHKMS,.LODBS,.MODEA
	.GLOBL	.GRAB
/
CABS	XX
	JMS*	.GRAB	/ FETCH THE ARGUMENT
	JMS*	.CHKMS	/SET MODE
	JMS	.SPCAB
	JMP*	CABS
/
.SPCAB	XX
	JMS*	.LODBS	/A TO B
	JMS*	.SPRML	/SQUARE REAL PART
	JMS*	.SWPBI	/A TO BI
	JMS*	.SWPIT	/AI TO A
	JMS*	.LODBS	/A TO B
	JMS*	.SPRML	/SQUARE IMAGINARY PART
	JMS*	.SWPIB	/BI TO B
	JMS*	.SPADD
	LAC*	.MODEA
	JMS*	.SQRT
	JMP*	.SPCAB
/
	.END