Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Convertir a minúsculas<br />
.MODEL SMALL<br />
.STACK<br />
50H<br />
.DATA<br />
mensaje db 'Digite la ca<strong>de</strong>na a procesar (24 caracteres): $'<br />
espacio db 13, 10, '$'<br />
ca<strong>de</strong> db 25<br />
tamano db ?<br />
ca<strong>de</strong>na db 25 dup (' '),'$'<br />
.CODE<br />
MINUSCULAS PROC NEAR<br />
mov ax, @DATA<br />
mov ds, ax<br />
LEA DX, mensaje<br />
MOV AH, 09H<br />
INT 21H<br />
MOV AH, 0AH<br />
LEA DX, ca<strong>de</strong><br />
INT 21H<br />
LEA DX, ca<strong>de</strong>na<br />
MOV AH, 09H<br />
INT 21H<br />
LEA SI, ca<strong>de</strong>na<br />
SEGUIR:<br />
MOV AL,[SI]<br />
MOV BL,65<br />
MOV BL, AL<br />
CMP BL,AL<br />
JG MINUS<br />
CMP AL, 'Z'<br />
JA minus<br />
ADD AL, 20H<br />
MOV [SI], AL<br />
48