Подсчет суммы ряда (ассемблерная вставка в Delphi) - Assembler

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

Составить программу вычисления и выдачи на печать суммы n элементов бесконечного числового ряда. Вот мой код в Delphi Надо перевести на язык assembler.

Решение задачи: «Подсчет суммы ряда (ассемблерная вставка в Delphi)»

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

function CalcSum(n: integer): Cardinal;register;
asm
  push esi
  mov  edx,1
  xor  ecx,ecx
  mov  esi,eax
  xor  eax,eax
  @b:add ecx,2
     add eax,edx
     shl edx,cl
     dec esi
  jnz @b
  pop esi
end;

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

Функция подсчета суммы ряда, принимает целочисленный аргумент n.
Используется ассемблерный блок, который выполняет следующие действия:
- Присваивает регистру EDX значение 1.
- Устанавливает регистр ECX в 0.
- Присваивает регистру ESI значение регистра EAX.
- Устанавливает регистр EAX в 0.
- Начинается цикл, который выполняется до тех пор, пока значение регистра ESI больше или равно 0.
- В каждой итерации цикла к регистру ECX прибавляется 2, а к регистру EAX прибавляется значение регистра EDX.
- Значение регистра EDX затем сдвигается влево на количество бит, равное значению регистра ECX.
- Значение регистра ESI уменьшается на 1.
- Если значение регистра ESI больше или равно 0, то цикл продолжается.
Возвращаемое значение функции - сумма ряда.