; PROGRAMMED BY   : MOHAMMAD ALJADA
; DOWNLOADED FROM : WWW.GEOCITIES.COM/MOHJADA
; PROGRAM         : Sort


.model small
.stack 64
.data
a1 db '159326748*'
a2 db '          '
t1 db ' ',0AH,0DH
tt db '$'
.code
main proc far
mov ax,@data
mov ds,ax


call sort


mov ah,4ch
int 21h
main endp


sort proc near
lea si,a1
lea di,a1
mov bl,[di]

l1:
mov al,[si]
inc si

cmp al,bl
jb l2

mov bl,al
l2:
cmp al,'*'
jne l1

mov t1,bl
mov ah,09
lea dx,t1
int 21h

mov cl,' '
lea si,a1
lll:
mov dl,[si]
cmp dl,bl
jne ll
mov [si],cl
ll:
inc si
cmp dl,'*'
jne lll


inc di
lea si,a1
mov bl,[di]
cmp bl,'*'

jne l1

ret


sort endp


end main