Hola:
Les dejo el codigo del programita que te convierte un escrito teclado en minusculas a mayusculas..
;================================================
;= PROGRAMA QUE PERMITE LEER UNA CADENA DE CARACTER Y
;= TRANSFERIRLOS DE MINUSCULAS HACIA MAYUSCULAS.
;================================================
.MODEL SMALL
.DATA
msg1 DB 'Escribe algo en minusculas: ',10,13,'$'
CAD DB 30,0,30 DUP(0) ; Definir espacio para el string
.CODE
INICIO:
mov ax,@data
mov ds,ax
mov dx,offset msg1
mov ah,09
int 21h
MOV AX,@DATA
MOV DS,AX ; DS <- Segmento DATA
MOV DX,OFFSET CAD ; DX <-Offset del string
MOV AH,0Ah ; Funcion para leer un string
INT 21h ; Llamar a MS-DOS
MOV BX,OFFSET CAD+2 ; BX <-Offset del 3er caracter del string
XOR CH,CH ; Parte alta de CX con 0
MOV CL,[CAD+1] ; Parte baja de CX con el numero de cars. que
; fueron leidos del teclado
;====================================================
OTRO_CAR:
CMP BYTE PTR ,'a' ; Compara el car. en DS:BX con 'a'
JB NO_MIN ; salta si esta por debajo de
CMP BYTE PTR ,'z' ; Compara el car en DS:BX con 'z'
JA NO_MIN ; salta si esta por arriba de
; si es mayuscula
SUB BYTE PTR ,32 ; Convertir a mayuscula
;=======================================================
NO_MIN:
INC BX ; Incrementar BX al sig. Caracter
LOOP OTRO_CAR ; Hacer el ciclo a OTRO_CAR
;
MOV BYTE PTR ,'$' ; Poner el terminador al final del
; string
MOV AH,9 ; Funcion imprimir un string
MOV DX,OFFSET CAD+2 ; DX Offset del 3er car. del string
INT 21h ; Llamar a DOS
;======================================================
MOV AH,4Ch ; Funcion para terminar proceso
INT 21h ; Llamar a DOS
DB 100h DUP(0)
.STACK
END inicio