.Model Small
.Stack 64
.Data
   return db ?
   val db '456123789$'
.Code
Main Proc Far
   mov ax, @data
   mov ds, ax
   mov es, ax


    lea si, val

   	mov cx, 8
    labelA:
	  mov ah, '$'
      mov bx, si

	  mov di, si
	  inc di
      labelB:
		 mov al, [di]
		 cmp ah, al
         JE labelC

		 cmp [bx], al
         JL labelE
	     mov bx, di
		 labelE:
		 inc di
	  JMP labelB
      labelC:

		 cmp bx, si
         JE labelD
         mov ah, [bx]
         mov al, [si]
         mov [bx], al
         mov [si], ah
         labelD:

	 inc si
   loop labelA

   mov ah, 09h
   lea dx, val
   int 21h

   mov ax, 4C00h
   int 21h

    MAIN ENDP
  END MAIN