TÌM KÝ TỰ CÓ MÃ ASCII LỚN NHẤT TRONG CHUỖI


Code:

.Model Small
.Stack
.Data
   s1 db 'Nhap vao 1 chuoi: $'
   s2 db 10,13,'Ky tu lon nhat: $'
   s3 db 10,13,'Chuoi rong!$'
   s db 100,?,101 dup('$')
   max db ?
.Code
Begin:
   Mov ax, @data
   Mov ds,ax

   Mov ah,09h      ;xuat chuoi s1
   Lea dx,s1
   Int 21h

   Mov ah,0Ah      ;nhap chuoi s
   Lea dx,s
   Int 21h

   Lea si,s+1      ;tim max
   Xor cx,cx
   Mov cl,[si]      ;gan do dai that su cua choi vao cl
   Inc si
   Mov al,[si]
   Mov max,al
   Inc si
   Cmp al,13
   Je ChuoiRong
   Cmp al,'$'
   Je ChuoiRong
   Dec cx
   Lap:
      Mov al,[si]
      Cmp al,max
      Jbe   kk
         Mov max,al
      kk:
         Inc si
   Loop Lap
   
   Mov ah,09h      ;xuat chuoi s2
   Lea dx,s2
   Int 21h
   
   Mov dl,max      ;xuat ky tu lon nhat
   Mov ah,02h
   Int 21h
   jmp Thoat
   
   ChuoiRong:
      Mov ah,09h      ;xuat chuoi s3
      Lea dx,s3
      Int 21h
   Thoat:
      Mov ah,4ch
      Int 21h
End Begin