SEGMENT codigo assume .text		;Main code segment
..start:
mov ax,variables
mov ds,ax
; imprime las instrucciones
mov dx,msj1
mov ah,9
int 21h
; inicializacion para indices
mov si,arreglo
mov cx,5
leer:
  ; Leer arreglo de numeros
  mov ah,1
  int 21h
  mov [si],al
  inc si
loop leer

mov al,'$'
mov [si],al
mov ah,9
mov dx,arreglo
int 21h

; Ordenamiento del arreglo (primera pasada de menor a mayor)

 mov cx,5
 mov si,arreglo
ordena:
 mov ah,[si] ;asumo mayor
 cmp ah,[si+1]
 jg mayor
 continua:
  inc si
loop ordena

mov ah,9
mov dx,arreglo
int 21h

mov ah,4ch
int 21h

mayor:
 mov al,[si+1]
 mov [si],al
 mov [si+1],ah
 jmp continua


SEGMENT variables assume .data		;Initialised data segment
msj1 db 'Teclea un digito: $'
arreglo    db 0,0,0,0,0
nuevo_ar resb 5