fpu     1
    xdef    _floor
_floor
    fmove.l fpcr,d1
    moveq   #32,d0
    or.l    d1,d0
    and.b   #255-16,d0
    fmove.l d0,fpcr
    fint.d  4(sp),fp0
    fmove.l d1,fpcr
    rts