מעבדה 8 - אסמבלר - שאלה 7

dseg segment
counter DB 20 , ? , 20 DUP (?)
str db 'enter 20 numbers : $'
dseg ends
sseg segment stack
        dw 100h dup(?)
sseg ends

cseg segment
assume  ds:dseg,cs:cseg,ss:sseg,ES:DSEG
start:
	MOV AX,DSEG
	MOV DS,AX

	mov ah,9
lea dx,str
int 21h

mov cx , 20

ll :
mov ah , 1
int 21h
mov bl,al
mov bh , 0
sub bl , '0'
inc counter[bx]
loop ll

mov cx , 10
mov bx , 9

ll2:
cmp counter [bx] , 0
je con
mov dl , bl
add dl , '0'
mov ah , 2
int 21h
dec counter[bx]
jmp ll2

con:
dec bx
loop ll2





        mov ah,4ch
        int 21h
cseg ends
end start