Delphi-Help

  • Increase font size
  • Default font size
  • Decrease font size
Главная

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

Оцените материал
(0 голосов)

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

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

    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;  
Прочитано 4799 раз
Авторизуйтесь, чтобы получить возможность оставлять комментарии

Фильтрация воды в коттедже фильтры кувшины поможем подобрать.

Авторизация



Счетчики