Программа с подпрограммой (assembler)

[fuzo]

Составить подпрограмму для вычисления суммы:
for i:=1 to N do Summa:= Summa + 3 * i * x;
Подпрограмму разместить в текущем файле. Параметры (x, n) в подпрограмму передать через общую область памяти. Результат возвратить в регистре ax. В основной программе организовать вызов подпрограммы для следующих исходных данных: x = 2; n = 3;

Проблема заключается в том, что цикл не хочет выполняться. Подскажите где я ошибся :/

  	.Model Small
	.Stack 100h
	.Data
 x	dw 2
 n	dw 3
 s 	dw ?
 	.Code
 begin:	mov ax,@Data  
                mov ds,ax
                mov cx,n
	        call My_Proc1
	        mov dx,ax
                mov ah,4ch 
                int 21h
          My_Proc1 proc
                mov bx,3          
for:	        mov ax,x
	        imul bx
                imul cx
                add dx,ax
                loop for         
                ret
          My_Proc1 endp
 end begin

[VadikV]

в подпрограмме портишь cx при умножении.
нужно поставить push и pop для сохранения и восстановления.

[fuzo]

Сообщение от VadikV

в подпрограмме портишь cx при умножении.
нужно поставить push и pop для сохранения и восстановления.

как это правильно сделать?

[fuzo]

вот полностью рабочий, тему клоз

 	.Model Small
	.Stack 100h
	.Data
 x	dw 2
 n	dw 3
 s 	dw ?
 	.Code
 begin:	mov ax,@Data  
          mov ds,ax
          mov cx,n  
          mov bx,3
	call My_Proc1
	mov ax,s
          mov ah,4ch 
          int 21h         
          My_Proc1 proc          
for:	mov ax,x
	imul bx
          imul cx
          add s,ax
          loop for         
          ret
          My_Proc1 endp
 end begin