xdef	_Tan

_Tan:	move.l	a6,-(a7)
	move.l	fp0,d0
	move.l	fp0+4,d1
	movea.l	_MathIEEEDoubTransBase,a6
	jsr	(-48,a6)		; IEEEDPTan
	move.l	d0,fp0
	move.l	d1,fp0+4
	move.l	(a7)+,a6
	rts

	xref	_MathIEEEDoubTransBase
	xref	fp0