Ассемблерные вставки в делфи (Найти сумму всех отрицательных элементов) - Assembler

Формулировка задачи:

Здравствуйте! Вот такая задача: Дан массив из 100 элементов, заполняем рандомно от -10 до 20. Найти сумму всех отрицательных элементов. Вот код на делфи:

procedure TForm1.Button1Click(Sender: TObject);
const n =300;
var a:array[1..n] of longint;
    sum:longint;
    i:longint;
begin
  Randomize;
  sum:=0;
  for i:=1 to n do
    a[i]:=RandomRange(-10,20); // Если[Error]  Undeclared identifier: 'RandomRange' Нужно подключить библиотеку Math
  for i:=1 to n do
    if a[i]<0 then
    sum:=sum+a[i];
  edit1.text:=inttostr(sum);
 
end;

Нужно сделать ассемблерную вставку вместо кода

for i:=1 to n do
    if a[i]<0 then
    sum:=sum+a[i];

Проблема возникает массивом. Заранее спасибо!

Решение задачи: «Ассемблерные вставки в делфи (Найти сумму всех отрицательных элементов)»

Листинг программы

    push    esi     ; сохранить всё кроме eax, ecx, edx
    push    ebx
    xor ebx, ebx    ; sum = 0
    lea esi, [a]    ; esi = @a[i]
    mov ecx, n      ; ecx уменьшается от n do 1
@loop:  mov eax, [esi]  ; eax = a[i]
    cdq         ; edx = знак eax
    and eax, edx    ; если eax > 0, edx = 0, eax = 0; если eax < 0, edx = ffff, eax = eax
    add ebx, eax
    add esi, 4
    dec ecx
    jnz @loop
    mov [sum], ebx
    pop ebx     ; восстановить
    pop esi

Объяснение кода листинга программы

В этом коде выполняется следующая последовательность действий:

Сохранение регистров:
- Push esi (сохранение регистра esi)
- Push ebx (сохранение регистра ebx)
Инициализация переменной sum:
- Xor ebx, ebx (sum = 0)
Переход к циклу:
- Lea esi, [a] (esi = @a[i])
- Mov ecx, n (ecx уменьшается от n do 1)
Цикл для обработки каждого элемента массива:
- Mov eax, [esi] (eax = a[i])
- Cdq (edx = знак eax)
- And eax, edx (если eax > 0, edx = 0, eax = 0; если eax < 0, edx = ffff, eax = eax)
- Add ebx, eax (sum += eax)
- Add esi, 4 (esi += 4)
- Dec ecx (ecx--)
- Jnz @loop (если ecx больше нуля, перейти к началу цикла)
Запись значения sum в переменную sum:
- Mov [sum], ebx (sum = ebx)
Восстановление регистров:
- Pop ebx (восстановление ebx)
- Pop esi (восстановление esi)