Составить подпрограмму для вычисления суммы

[grongost]

Составить подпрограмму для вычисления суммы:

for i:=1 to N do Summa:= Summa + i - x;

Подпрограмму разместить во внешнем файле. Параметры (x, n) в подпрограмму передать через стек. Результат возвратить в регистре ax. В основной программе организовать вызов подпрограммы для следующих наборов исходных данных:

a) x = 2; n = 2; b) x = -2; n = 3; c) x = -4; n = 7

main

.model small    
.stack 100h
extrn Sum:  proc
.data
x dw 2
n dw 2
y dw ?
.code
begin:  
mov ax,@data
mov ds,ax
push x
push n
call sum
mov y,ax        
mov ah,4ch
int 21h
end begin

sum

.model small    
.code
begin:  
Sum proc
Public Sum
push bp 
xor ax,ax
mov cx,[N]
mov dx,[x]
for:
 add cx,dx
loop for
ret
Sum endp
end begin

не уверен в правильности кода в main и sum

[VKorablev]

установи МАСМ и проверь, компилятор ошибку скажет, ее напиши