برنامه تبدیل حروف کوچک به بزرگ

[ho3ein.3ven]

سلام .
این برنامه تبدیل حروف بزرگ به کوچک هست . کسی می تونه دست کاریش کنه که حروف کوچک رو به بزرگ تبدیل کنه ؟
.model small
.data
tname db "ABCDEF$"
.code
begin proc far
push ds
sub ax,ax
push ax
mov ax,@data
mov ds,ax
;----------
lea bx,tname
a20:mov ah,[bx]
cmp ah,41h
jb a30
add ah,32
a30:mov [bx],ah
inc bx
loop a20
mov ah,09
lea dx,tname
int 21h
ret
begin endp
end begin
با تشکر

[xman_1365_x]

.model small

.data
pkey db "press any key...$"
;tname db "ABCDEF$"
tname db "abcdef",13,10,'$'

.code

begin proc far

mov ax,@data
mov ds,ax
;----------
lea bx,tname
mov cx,6 ;counter

a20:
mov ah,[bx]
cmp ah,41h
jb a30
sub ah,32
a30:
mov [bx],ah
inc bx
loop a20


mov ah,09
lea dx,tname
int 21h



lea dx, pkey
mov ah, 9
int 21h ; output string at ds:dx

; wait for any key....
mov ah, 1
int 21h

mov ax, 4c00h ; exit to operating system.
int 21h

begin endp
end begin

موفق باشید