;   DPA_FIX.A
		;
		;   A0	arg1	(8 bytes)
		;   result into D0
		;
		;   NOTE: we save D2/D3 due to a bug in IEEEDPFix that may
		;	  trash D3 (D2 also saved for good measure)
		;
		;   (c)Copyright 1990, Matthew Dillon, All Rights Reserved

		section text,code

		xref	_MathIeeeDoubBasBase
		xref	_LVOIEEEDPFix
		xdef	__dpfix_a

__dpfix_a	movem.l D2/D3/A6,-(sp)
		move.l	_MathIeeeDoubBasBase(A4),A6
		movem.l (A0),D0/D1
		jsr	_LVOIEEEDPFix(A6)
		movem.l  (sp)+,D2/D3/A6
		rts

		END