Разработка и использование подпрограмм

[grongost]

Составить подпрограмму для вычисления суммы:
for I:=1 to N do S:=S+2^i*x
Подпрограмму разместить во внешнем файле. Параметры (x, n) в подпрограмму передать через стек. Результат возвратить в регистре ax. В основной программе организовать вызов подпрограммы для следующих наборов исходных данных:
a) x = 2; n = 2; b) x = -2; n = 3; c) x = 10; n = 8
ответы:
a)000c
b)ffe4
c)13ec

main

.model small	
.stack 100h
extrn summa:proc
.data
x dw 10
n dw 8
y dw ?
.Code
 begin:	mov ax,@Data  
          mov ds,ax
          xor ax,ax
         	mov bx,x
         	mov cx,n 
         	call summa
         	mov ax,y
          mov ah,4ch 
          int 21h      
end begin

sum

.model small	
.code
begin:
summa proc
public summa
push bp
mov bp,sp
mov bx,[bp+6]  ;x
mov cx,[bp+4]  ;N	
for:add bx,bx
    add ax,bx
loop for 
pop bp  
ret 4
summa endp
end begin

В подпрограмме (sum) считает всё нормально если поставить числа.

1.Не получается вызвать подпрограмму и занести в неё данные из основную программу (main) и следовательно вернутся опять в главную форму и записать ответ в регистр ах.
2.Надо как-то организовать, чтобы поочерёдно считало данные a), b), c) и записывало в ответ.