LongOp_Div10 proc
        push ebp
        mov ebp, esp

        push ebx
        push esi
        push edi

        mov esi, dword ptr[ebp+8]
        mov ecx, dword ptr[ebp+12]
        mov edi, dword ptr[ebp+16]

        mov al, byte ptr[esi+ecx-1]
        shl ax, 4
        and ah, 1111b
        mov bl, 00010000b
        xor bh, bh
        cycle:
            cmp bl, 1

            ja @f
                mov al, byte ptr[esi+ecx-2]
            @@:
            and ah, 00011111b
            cmp ah, 1010b
            jl @f
                or bh, bl
                sub ah, 1010b
            @@:
            shl ax, 1
            shr bl, 1
        jnz cycle

            mov byte ptr[edi+ecx-1], bh
            xor bh, bh
            or bl, 10000000b
            dec ecx
        jnz cycle

        xor al, al
        shr ah, 1
        mov al, ah

        pop edi
        pop esi
        pop ebx

        pop ebp
        ret 12
    LongOp_Div10 endp