Уважаемые эксперты! Пожалуйста, ответьте на вопрос:

Программа писалась в TASM вылазит ошибка при запуске помогите решить проблему...буду очень благодарен..
[code lang=asm h=200].model small
.stack 100h
data segment
a dw 1
c dw 1
b dw 1
I dw 1
J dw 1
L dw 1
N dw 1
sum dw 1
data ends
stk segment stack 'stack'
db 128(?)
stk ends
assume cs: code, ds: data, ss: stk
code segment

start:
mov I, 1 ;для подсчета индекса
mov J, 1 ;для подсчета индекса
mov L, 1 ;для подсчета индекса
mov cx, N ;порядок квадратных матриц
xor bx, bx
xor di, di
xor si, si
VVV1:
mov J, 1
push cx
mov cx, N

VVV2:
mov L, 1
push cx
mov cx, N
mov sum, 0 ;для подсчета промежуточной суммы
VVV3:
mov ax, I
dec ax
mul N
add ax, L
dec ax
shl ax, 1
mov bx, ax ;bx = ((I-1)*N+L-1)*2

mov ax, L
dec ax
mul N
add ax, J
dec ax
shl ax, 1
mov di, ax ;di = ((L-1)*N+I-1)*2
mov ax, A[bx] ;ax = A[bx] = A[I,L]
mov dx, B[di] ;dx = B[di] = B[L,I]
mul dx
add sum, ax
inc L
loop VVV3
pop cx
mov ax, sum
mov C[si], ax
inc J
add si, 2
loop VVV2
pop cx
inc I
loop VVV1
int 21h
code ends
end start[/code]