DATA SEGMENT
NUM DB 1,2,3,4,5,6,7,8,9,10
COUNT EQU $-NUM
SUM DW ?
DATA ENDS
STACK1 SEGMENT PARA STACK
DW 20H DUP(0)
STACK1 ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START: MOV AX,DATA
MOV DS,AX
XOR AX,AX
MOV CX,0
MOV SI,0
NEXT:ADD AL,NUM[SI]
INC SI
INC CX
CMP CX,COUNT
JL NEXT
MOV BYTE PTR SUM,AL
MOV AH,4CH
INT 21H
CODE ENDS
END START