data1  segment
dat db 91,84,73,68,58,45,39,62,77,66

s1  db  'The max is','$'

s2  db  'The min is','$'
ascii db 30h,',',30h,30h,'$'

data1  ends
stack1 segment para stack
       dw 20  dup(0)
stack1 ends
code   segment
       assume cs:code,ds:data1,ss:stack1
begin: mov ax,data1
       mov ds,ax       
       mov al,9
       mov cx,9
cc:    lea si,dat
rpt:   mov bl,[si]
       inc si
       cmp bl,[si]
       js  aa
       jmp bb
aa:    xchg bl,[si]
       mov  [si-1],bl
bb:    dec cx
       jnz rpt
       dec al
       mov cl,al
       jnz cc

       lea dx,s1
       mov ah,09h
       int 21h
       lea dx,s2
       mov ah,09h
       int 21h

       mov ah,dat
       add ascii,ah
       mov al,dat+9       
       add ascii+2,al   
       lea dx,ascii
       mov ah,09h
       int 21h       
       mov ah,4ch
       int 21h
code   ends
       end  begin