void lfadj(long* lf, long cn, long cnd)
{
    unsigned char    n;

    n = abs(cnd -cn);

    if (cn < cnd) {
    _asm {
        mov         cl,n
        mov         ebx,lf
        mov         eax,[ebx]
        sar         eax,cl
        mov         [ebx],eax
        }
    } else if (cn > cnd) {
    _asm {
        mov         cl,n
        mov         ebx,lf
        mov         eax,[ebx]
        sal         eax,cl
        mov         [ebx],eax
        }
    }
}