.TITLE	FIX		
; JEFFREY KODOSKY	ARL	NOV75
;
; SUBR
; ENTRY:	1 ARG		<NUM>
; EXIT:		1 ARG		<INT>
; ERRORS:	NONE
; CALLS:	ATM2N
;		I2ATM
;		RI
; IF FIX IS CALLED WITH <INT> IT IS COPIED
	.GLOBL	FIX,ZFIX,QATM2N,QI2ATM,QRI
FIX:	QATM2N
	BCC	FIX2	;JUMP IF ITS ALREADY AN INTEGER
	QRI
FIX2:	QI2ATM
	.WORD	0
ZFIX=.-FIX
	.END