; Programa para sumar una serie de
; números
	NAME	suma2
;
pila	SEGMENT para stack 'STACK'
	DB	64 DUP(0)
pila	ENDS
;
data	SEGMENT word public 'DATA'
tam_int	EQU	2
ndatos	EQU	5
vec_dat	DW	1,2,3,4,5
data	ENDS
;
code	SEGMENT byte public 'CODE'
	ASSUME CS:code
main	PROC	far
;
	MOV	AX,data
	MOV	DS,AX
	ASSUME	DS:data
;
	LEA	AX,vec_dat
	PUSH	AX
	CALL	sumaf
	ADD	SP,2
	MOV	AH,4CH
	INT	21H
;
main	ENDP
;
sumaf	PROC	near
	PUSH	BP
	MOV	BP,SP
	MOV	SI,0
	MOV	AX,0
	MOV	BX,BP
	MOV	BX,[BP]
	MOV	BX,[BP+4]
	MOV	CX,ndatos
suma:
	ADD	AX,[BX+SI]
	ADD	SI,tam_int
	LOOP	suma
;
	POP	BP
	RET
sumaf	ENDP
;
code	ENDS
	END	main