Random на ассемблере.

[SkAndrew]

Добрый вечер!

Подскажите, пожалуйста, где можно найти ссылку на пример кода процедуры Random на ассемблере. Очень нужно.

Здесь на форуме есть такой код:

.data
nrandom_seed	dd 12345678

.code
nseed 	proc uses ebx edi esi, \
	TheSeed:DWORD
	mov	eax, TheSeed
	mov	nrandom_seed, eax
	ret
nseed 	endp

nrandom	PROC uses ebx edi esi, \
	base:DWORD
	
	mov	eax, nrandom_seed
	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	nrandom_seed, ecx
	div	base
	mov	eax, edx
	ret
nrandom ENDP

но как его в delphi применить? Как правильно изменить запись этого кода, например, применительно к Delphi.

или как в делфи можно использовать следующий код:

;---------------------------------------------
; Park Miller random number algorithm
; Получить случайное число 0 ... 99999
; stdcall WRandom
; на выходе EAX - случайное число 
;---------------------------------------------
proc    WRandom
        push    edx ecx
        mov     eax,[random_seed]
        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     [random_seed],ecx
        mov     ecx,100000
        div     ecx
        mov     eax,edx
        pop     ecx edx
        ret
endp
 
;---------------------------------------------
; Получить случайное число в нужном интервале
; Требуется процедура WRandom
; stdcall WIRandom,min,max
; на выходе EAX - случайное число   
;---------------------------------------------
proc    WIRandom rmin:dword,rmax:dword
        push    edx ecx
        mov     ecx,[rmax]
        sub     ecx,[rmin]
        inc     ecx
        stdcall WRandom
        xor     edx,edx
        div     ecx
        mov     eax,edx
        add     eax,[rmin]
        pop     ecx edx
        ret
endp
 
;---------------------------------------------
; Инициализация генератора случайных чисел
; stdcall WRandomInit 
;---------------------------------------------
proc    WRandomInit
        push    eax edx
        rdtsc
        xor     eax,edx
        mov     [random_seed],eax
        pop     edx eax
        ret
endp

Вот так, например, не работает:

procedure WIRandom(rmin:dword;rmax: dword);
asm
        push    edx ecx // в этой строке пишет ошибка
        mov     ecx,[rmax]
        sub     ecx,[rmin]
        inc     ecx
        stdcall WRandom
        xor     edx,edx
        div     ecx
        mov     eax,edx
        add     eax,[rmin]
        pop     ecx edx
        ret
end;

Спасибо.

[Utkin]

А чем родная Random в связке с Randomize не устроила?

[SkAndrew]

медленно работает. но не только в этом дело. в любом случае нужна информация о генераторе случайных чисел на ассемблере. Может кто подскажет ссылку или поможет адаптировать приведенные коды к делфи. Дискуссию о скорости мне не бы хотелось начинать. вопрос конкретный. Спасибо.

[Utkin]

 push    edx ecx // в этой строке пишет ошибка

Потому что там не правильно.
http://www.codenet.ru/progr/asm/newbee/lesson3.php

Для первого кода:
nseed - устанавливает точку отсчета для генератора
nrandom - сам генератор

Как я понял (хотя могу и ошибаться) алгоритм основан на махинациях с остатком от деления (mod в терминологии Дельфи), то есть классический генератор псевдослучайных чисел - большой цикл повторяющихся чисел (просто последовательность повторяется через большое количество шагов, ну скажем через несколько миллионов запросов). раз требуется большая скорость, значит подразумевается частый вызов, и значит есть вероятность получить повторно ту же самую последовательность.

[SkAndrew]

Спасибо,

1. ссылка не открывается.

2. я не знаю ассемблера, поэтому и попросил помочь либо с готовым примеров в делфи, либо поправить приведенный.

3. буду весьма благодарен за конкретный ответ на поставленный вопрос.

Спасибо.

[Utkin]

1. Ссылка открывается . Даже если Вы не можете открыть сразу, можно попасть на ресурс, а оттуда на конкретный урок, было бы желание.
2. Во-первых, ассемблер не относится к Дельфи. Во-вторых, что мешает Вам найти самостоятельно в гугле описание команды push? Не так страшен черт как его малюют .
В общем, либо push edx, либо push ecx, но ни как не вместе. Почему ошибка я не знаю, но часто встречаю глупые ошибки в разного рода примерах (похоже закладываются специально).
3. Я ответил конкретно. Дело вот в чем, в моем ответе всегда достаточно информации, чтобы Вы подумав, смогли решить задачу. Иначе, через неделю Вы придете с подобным вопросом снова. Я хочу не решить поставленную Вами задачу, а научить Вас ее решать.

[p51x]

Между прочим делфийский рандом тоже на асме...

2 Utkin
"В общем, либо push edx, либо push ecx, но ни как не вместе."
Не надо так категорично.... Есть асм и с подобным синтаксисом.

[SkAndrew]

Спасибо, но я не просил меня учить ассемблеру. я попросил помощи подсказать как можно адаптировать приведенный код к делфи если кто-то знает уже ассемблер или подсказать ссылку на готовый пример подобного кода. Спасибо еще раз всем кто может помочь.

[Utkin]

Сообщение от p51x

Есть асм и с подобным синтаксисом.

В Дельфи? Речь ведь идет об определенном диалекте...

[Crusher]

push edx ecx
pop ecx edx

Это на fasm. В делфи будет:

push edx 
push ecx
pop ecx 
pop edx

Чтобы в делфи адаптировать создавай процедуру:

function random(a,b:integer): integer; stdcall
asm
.... //тут тело процедуры на асме.
end;