Ниже я привожу ассемблерную версию генератора случайных чисел,
взятую мною из журнала 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; | |
