ĐỔ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