Может кто нибуть подсказать как перевести сей код на С. Без использования ассемблера.
Необходимо получить туже последовательность псевдослучайных чисел.

function Rand_0_1 : extended;
const revMaxLong: double = ((1.0/$10000) / $10000);  // 2^-32

asm
        IMUL    EDX,randShift,08088405H
        INC     EDX
        MOV     randShift,EDX
        FLD     revMaxLong
        PUSH    0
        PUSH    EDX
        FILD    qword ptr [ESP]
        ADD     ESP,8
        FMULP  ST(1), ST(0)
end;

Буду крайне признателен.