;南開大學(xué) 信息技術(shù)科學(xué)學(xué)院 二年級(jí)本科生
;email: keamou@yahoo.cn
;2007/12/12
data segment
   logo1 db 'Type in the number (1~255) you want to do :$'
   logo2 db 'Type in three letters you want to query:$'
   words db 255 dup('$')
   count dw 0
   num dw ?
data ends
code segment
   assume ds:data,cs:code
start:
   mov ax,data
   mov ds,ax
   mov ah,09h
   mov dx,offset logo1
   int 21h
   
   mov bx,10
begin:  
   mov ah,01h
   int 21h
   cmp al,0dh
   jz q   
   sub al,30h
   mov ah,0
   mov cx,ax
   mov ax,count
   mul bx
   add ax,cx
   mov count,ax
   jmp begin
   q:
   mov ah,02h
   mov dl,0dh
   int 21h
   mov dl,0ah
   int 21h
   mov ah,09h
   mov dx,offset logo2
   int 21h

   mov cx,count
   mov si,0
   mov ah,01h
l1:
   int 21h
   mov words[si],al
   inc si
   loop l1
   mov ah,02h
   mov dl,0dh
   int 21h
   mov dl,0ah
   int 21h
   mov bx,count
   dec bx
   mov num,bx
   mov cx,bx
   dec bx
   mov si,0
l2:
   push cx
   mov cx,bx
   mov di,si
   add di,1
l5:
   cmp di,num
   ja l3
   mov dl,words[di]
   cmp words[si],dl
   jb l4
   xchg words[si],dl
   xchg words[di],dl
l4:
   inc di
   loop l5
l3:
   inc si
   dec bx
   pop cx
   loop l2

   mov dx,offset words
   mov ah,09h
   int 21h

   mov ah,4ch
   int 21h
code ends
   end start