Советы по Delphi

         

Генератор случайных чисел


Ниже я привожу ассемблерную версию генератора случайных чисел, взятую мною из журнала Dr Dobbs Journal несколько лет тому назад. Попробуйте это, у меня данный алгоритм показал лучшие результаты.

    function __R( range : word ) : word; assembler;
asm mov                ax,        Word(System.RandSeed)   { DS:[003eH] } mov                bx, Word(System.RandSeed+2) { DS:[0040H] } mov                cx,        ax mul                CS:word ptr [0598H] shl                cx,        1 shl                cx,        1 shl                cx,        1 add                ch, cl add                dx, cx

add                dx,        bx shl                bx,        1 shl                bx,        1 add                dx,        bx add                dh,        bl mov                cx,        0005H @1: shl                bx,        1 loop        @1 add                dh,        bl add                ax,        0001 adc                dx,        0000 mov   word(System.RandSeed), ax        { [003eH],        ax } mov                word(System.RandSeed+2), dx { [0040H],        dx }
xor                ax,        ax mov                bx,        range or                 bx,        bx je                 @2
xchg               dx,        ax div                bx xchg               dx,        ax @2: end;

[001973]



Содержание раздела