;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