;Vamos a convertir palabra en mayusculas y ;luego a minusculas y lo mostraremos en pantalla ; .model small .286 .data normal db 10,13," Normal : " PALABRA db "MiRame FijaMenTE!!!",'$' Mayusculas db 10,13,"en Mayusculas: $" Minusculas db 10,13,"en Minusculas: $" .code mov ax,@data mov ds,ax lea dx,normal mov ah,9 int 21h lea dx,Mayusculas mov ah,9 int 21h call ConvMayusculas lea dx,Minusculas mov ah,9 int 21h call ConvMinusculas mov ah,4ch int 21h ConvMayusculas proc mov si,0 otroMayus: mov al,PALABRA[si] cmp al,'$' jz finMay cmp al,'z' jg sigueMay cmp al,'a' jl sigueMay sub al,20H sigueMay:mov dl,al mov ah,2 int 21h inc si jmp otroMayus finMay: ret ConvMayusculas endp ConvMinusculas proc mov si,0 otroMinus: mov al,PALABRA[si] cmp al,'$' jz finMinus cmp al,'Z' jg sigueMinus cmp al,'A' jl sigueMinus add al,20H sigueMinus:mov dl,al mov ah,2 int 21h inc si jmp otroMinus finMinus: ret ConvMinusculas endp end