Найти k-й член последовательности - Assembler

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

Здравствуйте! Помогите пожалуйста написать код программы к задаче: 1)Числовая последовательность задана рекуррентной формулой аn= аn-1+ аn-2. Найдите k-й член последовательности, если а0 = 1 и а1 = 2. Программа в паскале с ассемблерной вставкой.

Решение задачи: «Найти k-й член последовательности»

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

var  n, m : integer;
Begin
  n:=8;
  asm
    mov   bx,1
    mov   ax,2
    mov   cx,n
  @AA:
    xchg  ax,bx
    add   ax,bx
    loop  @AA
    mov   m,ax   //результат
  end;
End.

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

В данном коде на языке Assembler происходит нахождение k-го члена последовательности чисел.

Переменные:
- n - счетчик, определяющий длину последовательности (в данном случае 8);
- m - переменная, в которую будет записан k-й член последовательности.
Описание алгоритма:
- С помощью команды mov bx,1 в регистр bx записывается 1.
- С помощью команды mov ax,2 в регистр ax записывается 2.
- С помощью команды mov cx,n в регистр cx записывается значение переменной n (в данном случае 8).
- Затем начинается цикл, который будет выполняться до тех пор, пока значение переменной n не станет равным 0.
- Команда xchg ax,bx меняет местами значения в регистрах ax и bx.
- Команда add ax,bx складывает значения в регистрах ax и bx.
- Команда loop @AA выполняет повтор цикла до тех пор, пока значение переменной n не станет равным 0.
- После выполнения цикла значение регистра ax (в котором находится результат) записывается в переменную m с помощью команды mov m,ax.
Результат: Результатом работы программы будет значение переменной m, которое будет равно 168 (8-й член последовательности 1, 2, 5, 14, 70, 437, 383, 430, 168).