Объясняю принцип построения циклов на ассемблере.
Есть встроенная команда loop, веденная в архитектуру INTEL еще с процессоров 8086, предназначенная для обработки циклов.
Принцип работы:
1. Из регистра ecx вычитается 1
2. Если ecx != 0, то происходит переход по метке
Прошу заметить, что ручками ничего вычитать не надо. Это делается на аппаратном уровне
Далее: организация вложенных циклов
Понятно, что для этого нам нужно где-то сохранять регистр-счетчик ecx внешнего цикла, пока работает внутренний. Для этого помещаем данный регистр в стек и перед 2-м лупом восстанавливаем. Смотри код
Еще один момент: передача параметров. Написано var, т.е. идут адреса переменных. Значит, заполняем "адресные" регистры (для косвенной регистровой адресации) при помощи команды mov
В общем, смотри, что тебе непонятно. Будем пробовать разбираться
Код рабочий
| Код |
program Project1;
{$APPTYPE CONSOLE}
//---------------------------------------------------------------------------
uses
SysUtils;
//---------------------------------------------------------------------------
const
N = 3;
M = 3;
RAND_MAX = 10;
//---------------------------------------------------------------------------
type
matrix = array[1..N, 1..M] of integer;
vector = array [1..N] of integer;
//---------------------------------------------------------------------------
var
i, k : integer;
matr : matrix;
sum : vector;
//---------------------------------------------------------------------------
procedure GetSum(var matr : matrix; var sum : vector; n, m: Integer ); assembler;
begin
asm
mov edx, m
shl edx, 2 // длина строки в байтах = кол-во эл-тов * 4 (через сдвиг)
mov ecx, n // для первого лупа
mov esi, sum // в esi - адрес (!) вектора
mov ebx, matr // адрес начала матрицы
@0:push ecx // сохранить ecx в стеке для последующего восстановления
mov ecx, m // для вложенного цикла
xor eax, eax // быстрое обнуление регистра (темповская переменная)
xor edi, edi // счетчик по стоблцам (тоже обнулить)
@1:add eax, [ebx + edi]
add ebx, 4
loop @1
mov [esi], eax
add esi, 4
// add ebx, edx
pop ecx
loop @0
end;
end;
//---------------------------------------------------------------------------
begin
{ TODO -oUser -cConsole Main : Insert code here }
for i := 1 to N do
begin
randomize;
for k := 1 to M do
begin
matr[i, k] := random(RAND_MAX);
write (matr[i, k] : 5);
end;
writeln;
end;
GetSum(matr, sum, N, M);
writeln('Sum : ');
for i := 1 to N do
write( sum[i] : 3);
readln;
end.
//---------------------------------------------------------------------------
|
|
