You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Capítulo 3. Lectura <strong>de</strong>s<strong>de</strong> el teclado y manipulación <strong>de</strong><br />
ca<strong>de</strong>nas<br />
Lectura <strong>de</strong>s<strong>de</strong> el teclado y conversión a mayúsculas<br />
DATO SEGMENT<br />
CUENTA = 10<br />
MENSAJE DB "INTRODUCIR UNA CADENA DE 10 CARACTERES",13,10,"$"<br />
VAR DB CUENTA DUP(0)<br />
CRLF DB 13,10,"$"<br />
DATO ENDS<br />
CODIGO SEGMENT<br />
ASSUME DS:DATO,CS:CODIGO<br />
MAIN: MOV AX,DATO<br />
MOV DS, AX<br />
MOV CX,CUENTA<br />
LEA SI,VAR<br />
MOV DX,OFFSET MENSAJE<br />
MOV AH,09H<br />
INT 21H<br />
LEER: MOV AH,01H<br />
INT 21H<br />
CMP AL,"a"<br />
JB SIGA<br />
CMP AL,"z"<br />
JA SIGA<br />
AND AL,11011111B<br />
SIGA: MOV [SI],AL<br />
INC SI<br />
DEC CX<br />
CMP CX,0<br />
JNE LEER<br />
MOV DX,OFFSET CRLF<br />
MOV AH,09H<br />
INT 21H<br />
37