;   SPA_FIX.A
		;
		;   D0	floating arg
		;   result integer in D0
		;
		;   D2/D3 also saved and restored because I found a bug
		;   in LVOIEEEDPFix() (37.1), bug has not been tested for
		;   this function but I am not taking chances.
		;
		;   (c)Copyright 1990, Matthew Dillon, All Rights Reserved

		section text,code

		xref	_MathIeeeSingBasBase
		xref	_LVOIEEESPFix
		xdef	__spfix_a

__spfix_a	movem.l D2/D3/A6,-(sp)
		move.l	_MathIeeeSingBasBase(A4),A6
		jsr	_LVOIEEESPFix(A6)
		movem.l (sp)+,D2/D3/A6
		rts

		END