Użytkownik "Adam Klobukowski" <a...@g...com> napisał w wiadomości
news:b7e9c7d1-798a-4a0b-8167-a214ebcce75d@googlegrou
ps.com...
> > > Liczb bede generowal ok. 1000000. Zakres 0-44 jest podany tylko
> > przykladowo=
> > > i podczas generacji kolejnych bedzie się zmieniał. Musi to by?=
> > > ? w miarę proste i szybkie (implementacja bedzie w asemblerze).
> >
> >
> > Primo, dlaczego w Asemblerze? Secundo, tego rodzaju kawałki ogólnie
> > są proste, nie ma różnicy czy będzie trochę więcej jakichś add czy
> > mul
>
> Takie widzimisie.

Poniżej generator pseudolosowy oparty na algorytmie Parka-Millera
Gdyby procedura była za wolna użyj koprocesora.

proc Losowe
; Generator pseudolosowy Park-Miller [0..eax-1]
; Wejście :eax
; Wyjście :eax

mov ebx, eax
mov eax, [ziarno]
xor edx, edx
mov ecx, 127773
div ecx
mov ecx, eax
mov eax, 16807
mul edx
mov edx, ecx
mov ecx, eax
mov eax, 2836
mul edx
sub ecx, eax
xor edx, edx
mov eax, ecx
mov [ziarno], ecx
div ebx
mov eax, edx
ret
endp

ziarno dd 2037280626