Произведение отрицательных элементов в одномерном массиве - в чём ошибка?

[Жека:)]

Вот наваял:

include macro.lib
;
;
stek segment 'stack'
dw 256 dup (?)
stek ends
;
;
data segment 'data'
mas db 10 dup (?)
otvet db 'Ответ: $'
n db ?
proizv db 1
mes db 'Программа поиска произведения отрицательных элементов одномерного массива.$'
vvod1 db 'Введите количество элементов: $'
vvod2 db 'Введите число: $'
data ends
;
;
code segment 'code'
assume ss:stek, cs:code, ds:data
;
begin proc far
mov ax, data
mov ds, ax
cls
move_cursor 0,0
;
message mes
crlf
message vvod1
key_$2bin
mov n, al
lea di, mas
mov cl, n
m:
 crlf
 message vvod2
 key_$2bin
 mov [di], al
 cmp al, 0
 jge con
 imul proizv
 message mes
con:
 inc di
 loop m1
 jmp m2
m1:
 jmp m
m2:
 crlf
 mov al, proizv
 message otvet
 print_number
;
mov ax, 4c00h
int 21h
crlf
ret
begin endp
code ends
;
;
end begin

Но, к сожалению, все время ответ равен единице, т.е. не происходит умножение, хотя программа отличает отрицательные числа, т.к. правильно работает

cmp al, 0
jge con
imul proizv
message mes

- выводится сообщение из переменной mes при вводе отрицательного числа. Помогите разобраться с умножением.

[Stilet]

loop m1
jmp m2
m1:
jmp m

Оригинально.

Я лично это так вижу:

	.386
	.model flat,stdcall
	option casemap:none
.data
 arr db 1,2,-3,4,6,-8,-9
 cnt db 7
 pr dw 1; Произведение отрицательных
.code
start:
 xor ecx,ecx
 mov cl,cnt

a1:
 mov al,[arr+ecx]
 cmp al,0
 jg no
 imul pr
 mov pr,ax
no: loop a1
	ret
end start

[Жека:)]

Не знаю оригинально или нет, но нас так учат... Так что ваш код неинтересен, помогите с моим. Думаю, исправит его несложно... Но всё равно спасибо

[Stilet]

Так что ваш код неинтересен

Здря, мой код отличается тем что в твоем я не нашел инструкции IMUL работу с элементами массива
Вот тут mov [di], al наоборот параметры поменять нужно:

mov al, [di]