f2lf(float s,long* d,long* p)
{
    long             temp;
    unsigned char    count;

    _asm {
        mov         eax,s
        shl         eax,1
        mov         ebx,eax
        mov         cl,24
        shr         ebx,cl
        mov         count,bl
        mov         cl,8
        shl         eax,cl
        stc
        rcr         eax,1
        shr         eax,1
        mov         temp,eax
    }
    *p = count-125;
    *d = temp;
    if (s<0) *d = -temp;
}