ĐỔI CHUỖI BẤT KỲ THÀNH CHUỖI KÝ TỰ HOA


Code:

.Model small
.stack
.Data
   s1 db 'Nhap vao 1 chuoi: $'
   s2 db 10,13,'Doi thanh chu hoa: $'
   s db 100,?,101 dup('$')
.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
   
   Mov ah,09h      ;xuat chuoi s2
   Lea dx,s2
   Int 21h
   
   Lea si,s+1      ;doi thanh chuoi ky tu hoa
   xor cx,cx
   Mov cl,[si]
   Inc si
   Lap:
      Mov ah,02h
      Mov dl,[si]
      cmp dl,61h
      jb   L1
      cmp dl,07Ah
      ja   L1
      Sub dl,20h
      L1: inc si
         Int 21h
   Loop Lap
   
   Mov ah,4ch
   Int 21h
End Begin