Ассемблер. Вывести на экран первые N чисел последовательности Фиббоначи

[nekromant7]

вот собственно написал эту прогу, но она выводит какую то ересь...Помогите исправить ошибки...

TITLE массив
.686
.MODEL FLAT, C
.STACK 4096
printf PROTO format: PTR BYTE, args: VARARG
scanf PROTO format: PTR BYTE, args: VARARG
PUBLIC main

.CONST
sPrompt BYTE "Vvedite N: ", 0
sInput BYTE "%d", 0
sResult BYTE "Fibbonachi: %d", 0Ah, 0
.DATA
arr DWORD 0,1, 40 dup (?)
N DWORD ?
j DWORD ?
.CODE
main PROC
INVOKE printf, ADDR sPrompt
INVOKE scanf, ADDR sInput, ADDR N
mov esi, 2
mov ecx, N
L1:
mov ebx, arr[esi-1]
add ebx, arr[esi-2]
mov arr[esi], ebx
inc esi
loop L1
mov esi, 0
mov ecx, N
L2:
mov [j], ecx
INVOKE printf, ADDR sResult, ADDR arr[esi*TYPE arr]
inc esi
mov ecx, [j]
loop L2
ret
main ENDP
END