Произведение положительных элементов в одномерном массиве - Assembler

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

Help me! Нужно написать программу расчета произведения положительных элементов в одномерном массиве.(ассемблер)

Решение задачи: «Произведение положительных элементов в одномерном массиве»

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

var
  t, n: integer;
  a: array[1..100] of integer;
  i: integer;
  
begin
  Write('enter n: ');
  readln(n);
 
  for i := 1 to n do
  begin
    Write('a[', i, ']=');
    readln(a[i]);
  end;
 
  asm
    lea si, a
    mov cx, n
    mov t, 1
    @@For:
      lodsw
      or ax, ax
      js @@Skip
      mul t
      mov t, ax
    @@Skip:
    loop @@For
  end;
  writeln(t);
end.

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

Объявление переменных:
- t - целое число (integer), для сохранения результата произведения положительных элементов;
- n - целое число (integer), для хранения размера массива;
- a - одномерный массив целых чисел (array) с размером до 100 элементов;
- i - целое число (integer), для итерации по массиву.
Ввод значения переменной n:
- Пользователю выводится запрос на ввод значения переменной n;
- Введенное значение сохраняется в переменной n.
Заполнение массива a:
- Цикл for выполняется от 1 до n;
- В каждой итерации запрашивается ввод значения элемента массива a и сохраняется в соответствующей ячейке.
Вычисление произведения положительных элементов в массиве с использованием ассемблерной вставки:
- Ассемблерная вставка начинается с ключевого слова asm;
- Адрес начала массива a загружается в регистр si с помощью команды lea si, a;
- Размер массива сохраняется в регистр cx с помощью команды mov cx, n;
- Переменная t инициализируется значением 1 с помощью команды mov t, 1;
- Цикл @@For выполняется n раз:
  - Команда lodsw загружает слово (16 бит) из памяти по адресу, на который указывает регистр si, в регистр ax;
  - Проверяется знак числа (положительное или отрицательное) командой or ax, ax;
  - В случае положительного числа происходит умножение содержимого регистра ax на переменную t командой mul t, результат сохраняется в ax, затем значение t обновляется значением переменной ax с помощью команды mov t, ax;
  - Происходит итерация цикла с использованием команды loop @@For.
- Ассемблерная вставка завершается командой end;.
Вывод результата:
- Выводится значение переменной t (результата произведения положительных элементов массива).