Форум программистов [Powered by Invision Power Board]

Код

.386
;используются инструкции моделей процессоров начиная с 80386
        .model flat,stdcall
;код и данные будут в одном сегменте памяти (плоская модель памяти)
;перед вызовом процедуры последовательность записи параметров в сегмент стека идет 
;СПРАВА НАЛЕВО в порядке указания их в команде вызова процедуры и вызываемая процедура 
;чистит за собой стек
        option casemap:none
;не создавать файл карты для модуля при компиляции модуля
;далее указываются подключаемые файлы, содержащие данные о строковых названиях
;импортируемых функций из библиотек ОС и строковых названиях соответствующих библиотек ОС
        include \masm32\include\windows.inc
        include \masm32\include\user32.inc
        include \masm32\include\kernel32.inc
        includelib \masm32\lib\user32.lib
        includelib \masm32\lib\kernel32.lib
.data
;начало описания данных
;здесь описываются метки ячеек памяти
random_seed     dd ?
res             dd 0
sFmt            db '%u',0DH,0AH,0
sBuf            db 10 dup(0) ;массив в памяти из десяти элементов по одному байту каждый


.code
;начало описания кода
;описание кода подпрограммы Random
;эта подпрограмма - генератор псевдослучайных чисел
Random proc dwBase:dword
;подпрограмма использует один входной параметр занимающий 4 байта, который перед вызовом
;подпрограммы записывается в сегмент стека
push    ebx;сохраним в стеке ebx, так как значение этого регистра изменяется в подпрограмме
;(в конце подпрограммы мы его опять восстановим)
mov     eax,dwBase;заносим исходный параметр в eax
xor     ebx,ebx; обнулить ebx
imul    edx,random_seed,08088405h; умножить random_seed на 08088405h и результат сохранить в edx
;знаки операндов учитываются
inc     edx;увеличить edx на 1
mov     random_seed,edx; записать edx в random_seed, 
;и таким образом обновить временное значение переменной используемой Random
mul     edx; умножить edx на eax и результат сохранить в паре регистров edx:eax 
;(старшая часть результата будет в edx) 
;пояснения:
;в регистре edx было получено целочисленное значение занимающее 4 байта
;если умножается целочисленное значение без знака, занимающее 4 байта 
;(32 бита в двоичной системе счисления) (его диапазон от 0 до 4294967296)
;на другое целочисленное значение занимающее 4 байта такого же диапазона,
;то мы получим целочисленное значение без учета знака, которое всегда займет не более 8 байт
;но 64 бита не помещаются ни в один 32 битный регистр общего назначения,
;поэтому разработчики архитектуры команд микропроцессора решили помещать
;результат в пару 32-битных регистров и выбрали пару edx:eax
;После умножения в нашем случае в регистре edx значение не превысит исходного значения в eax
;Почему ?
;Значение в edx после умножения эквивалентно тому значению, которое получилось бы в результате
;целочисленного деления результата умножения на {2 в 32 степени} без учета знака, 
;но так как второй сомножитель всегда меньше {2 в 32 степени}, то после деления результата
; на {2 в 32 степени} мы всегда бы получили значение не большее чем первый сомножитель
;напомню, что результат умножения мы в действительности не делим на {2 в 32 степени}
;просто значение в старшей половине 64-разрядного результата получается таковым
;таким образом 
mov     eax,edx; старшую часть результата поместить в регистр eax в качестве результата 
;выполнения подпрограммы
;в регистре eax подпрограммы обычно возвращают результат, если он не превышает 4 байт
pop     ebx; восстанавливаем значение ebx из стека
ret; инструкция выхода из подпрограммы
Random endp; endp сообщает компилятору о окончании описания подпрограммы

Randomize proc        
;подпрограмма инициализации генератора псевдослучайных чисел значением от таймера
invoke  GetTickCount; вызов системной подпрограммы (эта подпрограмма принадлежит ОС)
;которая возвращает количество тиков с момента старта WINDOWS
mov     random_seed,eax; инициализация генератора псевдослучайных чисел полученным значением
;числа тиков
ret
Randomize endp


start: ;с этой метки начинается выполнение нашей программы
;о том, с какой метки должно начинаться выполнение программы указывается в директиве end
invoke  Randomize;вызываем свою подпрограмму инициализации генератора псевдослучайных чисел
invoke  Random,56;вызываем свою подпрограмму-генератор псевдослучайного числа
;в зависимости от значения входного параметра будет зависеть дальнейшая последовательность
;псевдослучайных чисел
mov     res,EAX;полученное число в res
invoke wsprintf,ADDR sBuf,ADDR sFmt,res ; или можно юзать макросы dwtoa,str$,etc
;выводим результат в заданном формате
invoke MessageBox,0,ADDR sBuf,0,0;выводим сообщение на экран в окне
invoke  ExitProcess,0; завершение работы программы
end start; директива end указывает компилятору, что выполнение программы должно начинаться
;с метки start