Заполнить массив числами Фибоначчи

.486
.model flat, stdcall
option casemap :none ; чувствительность к регистру букв в идентификаторах
include windows.inc
include kernel32.inc
include user32.inc
include masm32.inc
 
includelib masm32.lib
includelib kernel32.lib
includelib user32.lib
 
.data
    N  EQU 10 ;длина массива 
        array dd N dup(0) ;array     
        
        ;шаблоны вывода подсказки     
        msg   db      0Dh, 0Ah, 'Array: 1' ;
        msgChange    db      0Dh, 0Ah, 'ChangeArray: 1', 0
        msgSum   db      0Dh, 0Ah, 'Sum items array:', 0Dh, 0Ah, 0
        aszPressEnter   db      0Dh, 0Ah, 0Dh, 0Ah, "Press ENTER to exit", 0
        
        ;шаблон форматированного вывода
        aszInteger      db      '%5d', 0
                
.data?
        hConsoleOutput  HANDLE  ?
        hConsoleInput   HANDLE  ?
        Result          dd      ?
        Buffer          db      1024 dup(?)
        BufLen          dd      ?
        
        ;переменная для подсчета суммы элементов массива
        sum dd ?
 
 
.code
ShowArray       proc    lpArray:DWORD
        pushad
 
        mov     ecx,    N ;кол-о элементов массива
        mov     esi,    [lpArray]  ;самм массив
        ForI:
                push    ecx
                lodsd
                invoke  wsprintf, ADDR Buffer, ADDR aszInteger, eax
                invoke  StrLen, ADDR Buffer
                mov     [BufLen],       eax
                invoke  WriteConsole, hConsoleOutput, ADDR Buffer,\
                        BufLen, ADDR BufLen, NULL
                pop     ecx
        loop    ForI
 
        popad
        ret
ShowArray       endp
 
fillArray:  
 mov ecx, N
 mov ebp, offset array ;загружаем в ebp начальное значение массива
 mov eax, 1
 mov ebx, 1
 
 beg:
  mov edx,eax       
  add eax,ebx       
  mov ebx,edx
  mov [ebp], edx
  
  add EBP , 4 ;смещаем указатель на след элемент 
   
 loop beg
   
ret 12
 
arrayModify:
   mov ebp, offset [array] ;загружаем в ebp начальное значение массива 
   mov ecx, N 
 lp: 
   mov eax, [ebp] 
   test ecx, 1 ;проверка на четность
   jz odd ;переход на метку odd в случае четного числа
   jmp exit
   odd:
   mul eax
   exit: 
    mov [ebp], eax ;заносим результат изменения знака 
    add ebp, 4 ;смещаем указатель на след элемент
 loop lp
 
ret
 
sumItems:
 mov [sum],0
 mov eax,0
 lea ebx, array
 mov ecx, N
 lp5:
  add ax, [ebx]
  add ebx,4
  mov [sum],eax
 loop lp5
  invoke  wsprintf, ADDR Buffer, ADDR aszInteger, [sum]
  invoke  StrLen, ADDR Buffer
  mov     [BufLen],       eax
  invoke  WriteConsole, hConsoleOutput, ADDR Buffer,\
  BufLen, ADDR BufLen, NULL
ret 12  
 
start:
    ;вызов функции для заоплнения массива арифметической прогрессией
    call fillArray
    
    ;получение описателей ввода и вывода консоли
    invoke  GetStdHandle,   STD_INPUT_HANDLE
    mov     hConsoleInput,  eax
    invoke  GetStdHandle,   STD_OUTPUT_HANDLE
    mov     hConsoleOutput, eax
    invoke  ClearScreen
    
    ;вывод исходного массива
    invoke  WriteConsole, hConsoleOutput, ADDR msg,\
                LENGTHOF msg - 1, ADDR BufLen, NULL
    invoke  ShowArray,      ADDR array
    
    invoke  WriteConsole, hConsoleOutput, ADDR msgSum,\
                LENGTHOF msgSum - 1, ADDR BufLen, NULL
                
    ;считаем и выводим сумму элементов массива            
    call sumItems
    
    ;изменяем массив (if(a[i] % 4 == 0) a[i]/=4 )
    call arrayModify 
    
    ;вывод измененного массива
    invoke  WriteConsole, hConsoleOutput, ADDR msgChange,\
                LENGTHOF msgChange - 1, ADDR BufLen, NULL
    invoke  ShowArray,      ADDR array
    invoke  WriteConsole, hConsoleOutput, ADDR msgSum,\
                LENGTHOF msgSum - 1, ADDR BufLen, NULL
    ;считаем и выводим сумму элементов изменненого массива              
    call sumItems
    
    ;ожидание нажания ENTER
    invoke  WriteConsole, hConsoleOutput, ADDR aszPressEnter,\
                LENGTHOF aszPressEnter - 1, ADDR BufLen, NULL
    invoke  ReadConsole, hConsoleInput, ADDR Buffer,\
                LENGTHOF Buffer, ADDR BufLen, NULL
    ;закрытие консоли, после нажания ENTER
    invoke  ExitProcess, 0
    
end start