.TITLE	.ABFLT
/
/ EXTERNAL GLOBALS
/ SUBROUTINES
	.GLOBL	.GRAB,.FETCH,.ERROR
	.GLOBL	.IABS,.FLOAT,.IFIX,.SNGL
/ ARITHMETIC ACCUMULATORS
	.GLOBL	.MODEA,.SIGNA,.A3,.A4
/
/ INTERNAL GLOBALS
/ SUBROUTINES
	.GLOBL	IABS,ABS,DABS
	.GLOBL	FLOAT,DFLOAT,IFIX,HFIX,SNGL,DBLE
/ FUNCTIONS (WITH ENTRANCES FOR MACRO)
	.GLOBL	.ABS,.DABS,.DBLE
/
/
/
/ ABSOLUTE VALUE
/ INTEGER ABSOLUTE
IABS	XX
	JMS*	.GRAB
	JMS*	.IABS
	JMP*	IABS
/
/ REAL ABSOLUTE
ABS	XX
	JMS*	.GRAB
	JMS	.ABS
	JMP*	ABS
/
.ABS	XX
	JMS*	.SNGL	/ CHECK MODE
	DZM*	.SIGNA
	JMP*	.ABS
/
/ DOUBLE REAL ABSOLUTE
DABS	XX
	JMS*	.GRAB
	JMS	.DABS
	JMP*	DABS
/
.DABS	XX
	JMS	.DBLE
	DZM*	.SIGNA
	JMP*	.DABS
	.EJECT
/
/ TYPE CONVERSION ROUTINES
/ INTEGER TO REAL
FLOAT	XX
	JMS*	.GRAB
	JMS*	.FLOAT
	JMP*	FLOAT
DFLOAT=FLOAT
/
/ REAL TO INTEGER
IFIX	XX
	JMS*	.GRAB
	JMS*	.IFIX
	JMP*	IFIX
HFIX=IFIX
/
/ NON COMPLEX TO SINGLE REAL
SNGL	XX
	JMS*	.GRAB
	JMS*	.SNGL
	JMP*	SNGL
/
/ NON COMPLEX TO DOUBLE REAL
DBLE	XX
	JMS*	.GRAB
	JMS	.DBLE
	JMP*	DBLE
/
.DBLE	XX
	JMS*	.FLOAT	/ FLOAT THE NUMBER
	SAD	(300000
	JMP*	.DBLE	/ IT IS DOUBLE REAL
	LAC	(300000
	DAC*	.MODEA	/ MARK AS REAL
	DZM*	.A3
	DZM*	.A4
	JMP*	.DBLE
/
	.END