LUNGH EQU 10

.MODEL SMALL

.STACK

.DATA

VETT DW LUNGH DUP (?)

SOMMA DW (?)

.CODE
.STARTUP

	MOV AX,LUNGH
	LEA DX,VETT
	SUB SP,2
	PUSH AX
	PUSH DX
	CALL SOM_VETT
	ADD SP,4
	POP SOMMA
	.EXIT

SOM_VETT PROC
	PUSH BP
	MOV BP,SP
	PUSH BX
	PUSH CX
	PUSH AX
	MOV CX,[BP+6]
	MOV BX,[BP+4]
	XOR AX,AX
CICLO:  ADD AX,[BX]
	ADD BX,2
	LOOP CICLO
	MOV [BP+8],AX
	POP AX
	POP CX
	POP BX
	POP BP
	RET
SOM_VETT ENDP
END