fpu     1
    xdef    _ceil
_ceil
    fmove.l fpcr,d1
    moveq   #48,d0
    or.l    d1,d0
    fmove.l d0,fpcr
    fint.d  4(sp),fp0
    fmove.l d1,fpcr
    rts