dane segment

nl db 13,10,'$'

dane ends

sts segment stack 'stack'

db 512 dup(0)

sts ends

prog segment

assume cs:prog, ds:dane, ss:sts

start:

mov ax,seg dane

mov ds,ax

mov bx,0

mov cx,20

wczyt:

push cx

mov ah,1

int 21h

cmp al,'9'

ja nie

cmp al,'0'

jb nie

mov ah,0

sub al,30h

add bx,ax

nie:

pop cx

loop wczyt

push bx

mov dx,offset nl

mov ah,9

int 21h

pop bx

mov ax,bx

mov bx,10

div bx

push dx

mov dl,al

add dl,30h

mov ah,2

int 21h

pop dx

add dl,30h

mov ah,2

int 21h

mov ah,4Ch

int 21h

prog ends

end start