data segment
ary dw 10 dup(?)
sum dw ?
temp db 10 dup(?)
data ends
stacker segment stack
dw 20 dup(?)
top label word
stacker ends
code segment
assume cs:code,ds:data,ss:stacker
main proc near
mov ax,data
mov ds,ax
mov ax,stacker
mov ss,ax
lea sp,top
mov cx,6
mov si,0
L1:
xor bx,bx
call near ptr input
call near ptr line
mov ary[si],bx
add sum,bx
add si,2
loop L1
mov ax,sum
mov di,0
mov cl,10
L2:
div cl
mov temp[di],ah
cmp al,0
je L3
add di,2
xor ah,ah
jmp L2
L3:
call near ptr print
ary dw 10 dup(?)
sum dw ?
temp db 10 dup(?)
data ends
stacker segment stack
dw 20 dup(?)
top label word
stacker ends
code segment
assume cs:code,ds:data,ss:stacker
main proc near
mov ax,data
mov ds,ax
mov ax,stacker
mov ss,ax
lea sp,top
mov cx,6
mov si,0
L1:
xor bx,bx
call near ptr input
call near ptr line
mov ary[si],bx
add sum,bx
add si,2
loop L1
mov ax,sum
mov di,0
mov cl,10
L2:
div cl
mov temp[di],ah
cmp al,0
je L3
add di,2
xor ah,ah
jmp L2
L3:
call near ptr print