.model small
.stack 100h
.data
strg1 DB “Enter the Array Elements: $”
strg2 DB “The elements you entered in sorted form: $”
Arr Db 10 dup(?)
v dw ?
.code
main proc
mov ax,@data
mov ds,ax

mov ah,9
lea dx,strg1
int 21h

mov dl,0ah
mov ah,2
int 21h

;inputs
mov di,0
mov cx,10
Input_loop:

mov ah,1
int 21h
mov arr[di],al

mov dl,0ah
mov ah,2
int 21h
inc di
loop Input_loop

mov v,0
sort:

mov di,0
mov cx,10
sub cx,v

B:
mov al,Arr[di]
cmp al,Arr[di+1]
jng C

mov al,Arr[di]
xchg al,Arr[di+1]
mov Arr[di],al
c:
inc di
loop B
inc v
cmp v,10
jne sort

;Output
mov ah,9
lea dx,strg2
int 21h

mov dl,0ah
mov ah,2
int 21h

mov di,0
mov cx,10
Output_loop:

mov dl,Arr[di]
mov ah,2
int 21h
inc di

mov dl,0ah
mov ah,2
int 21h
loop output_loop

mov ah,4ch
int 21h

main endp
end main