.text
	.even
.globl _floorl
_floorl:
	link a6,#0
	fmovex fp1,sp@-
	fmovel fpcr,d0
	movel #-17,d1
	andl d0,d1
	orl #32,d1
	fmovel d1,fpcr
	fmovex a6@(8),fp1
	fintx fp1,fp0
	fmovel d0,fpcr
	fmovex a6@(-12),fp1
	unlk a6
	rts
	.even
.globl _ceill
_ceill:
	link a6,#0
	fmovex fp1,sp@-
	fmovex a6@(8),fp1
	fintx fp1,fp0
	fmovex sp@+,fp1
	unlk a6
	rts
	.even
.globl _frexpl
_frexpl:
	linkw a6,#0
	fmovex fp1,sp@-
	fmovex a6@(8),fp0
	movel a6@(20),a0
	fgetexpx fp0,fp1
	fintrzx fp1,fp1
	fmovel fp1,d0
	fgetmanx fp0,fp0
	ftestx fp0
	fbngt L21
	fscaleb #-1,fp0
	addql #1,d0
L21:	movel d0,a0@
	fmovex a6@(-12),fp1
	unlk a6
	rts
	.even
.globl _ldexpl
_ldexpl:
	linkw a6,#0
	fmovex a6@(8),fp0
	fscalel a6@(20),fp0
	unlk a6
	rts
	.even
.globl _fabsl
_fabsl:
	link a6,#0
	fmovex a6@(8),fp0
	fabsx fp0,fp0
	unlk a6
	rts