Hola!
Este código puede servir como ejemplo,
lo compile usando Tasm 4.0 y Tlink 4.0
Ojo: Es para generar un ejecutable .com de DOS, por lo
tanto asegurate de agregar el parámetro /tdc cuando ejecutes el tlink.
-----------inicio código-----------------------
ideal
model tiny
p286
codeseg
org 0100h
begin:
mov bx,5 ; n = 5
push bx ; parametro n
xor ax,ax ; Asigna ax = 0
call procSumaN1 ; suma 1 + 2 + 3 + 4 + 5 .. + n
;El resultado queda en ax
int 20h
; /// realiza suma de n hasta 1 ///
; ejem : function procSumaN1 (n:word):word;
procSuma1N:
push bp
mov bp,sp
add bp,4
cmp [word ptr bp],0h
je ed
add ax,[bp]
mov bx,[bp]
dec bx
push bx
call procSumaN1
ed: pop bx
ret 2
end begin
----------fin código-----------------
Gracias por su tiempo
Atte: ge-ergon
