ejercicio2 1_1

Esta es una vista previa del archivo. Inicie sesión para ver el archivo original

PILA SEGMENT
 DW 64 DUP(?) 
PILA ENDS
DATOS SEGMENT
 mensaje db 'Ingrese una palabra: $'
 mensaje2 db 'Vocal no encontrada $'
 
 
txt1 db 13,10,' ####',13,10,' ####',13,10,' ####',13,10,' ####',13,10,' ####',13,10,' ####',13,10,' ####',13,10,' ####$'
txt2 db 13,10,'##########',13,10,'### ###',13,10,'### ###',13,10,'### ###',13,10,'### ###',13,10,'### ###',13,10,'### ###',13,10,'### ###',13,10,'##########$'
txt3 db 13,10,'##########',13,10,'###',13,10,'###',13,10,'###',13,10,'###',13,10,'###',13,10,'###',13,10,'###',13,10,'##########$'
txt4 db 13,10,'### ###',13,10,'### ###',13,10,'### ###',13,10,'### ###',13,10,'### ###',13,10,'### ###',13,10,'### ###',13,10,'### ###$'
txt5 db 13,10,'##########',13,10,' ###',13,10,' ###',13,10,' ###',13,10,' ###',13,10,' ###',13,10,' ###',13,10,' ###$'
txt6 db 13,10,'### ###',13,10,'### ###',13,10,'### ###',13,10,'### ###',13,10,'### ###',13,10,'### ###',13,10,'### ###',13,10,'### ###',13,10,'##########$'
txt7 db 13,10,'##########',13,10,'### ###',13,10,'### ###',13,10,'### ###',13,10,'### ###',13,10,'### ###',13,10,'### ###',13,10,'### ###$'
txt8 db 13,10,'### ',13,10,'### ',13,10,'### ',13,10,'### ',13,10,'### ',13,10,'### ',13,10,'### ',13,10,'### ',13,10,'##########$'
 
 
 palabra db 10 dup(' $') ; reserva espacio para la palabra ingresada
 vocal db ? ; reserva espacio para la vocal encontrada
DATOS ENDS
CODIGO SEGMENT
 ASSUME DS:DATOS, CS:CODIGO, SS:PILA
inicio:
 mov ax, DATOS
 mov ds, ax
 
 ; Mostrar mensaje para ingresar
 mov ah, 09h
 lea dx, mensaje
 int 21h
 
 ; Leer la palabra ingresada
 mov ah, 0ah
 lea dx, palabra
 int 21h
 
 ; Buscar la primera vocal
 mov si, offset palabra+1 
 mov cx, 10 ; tamayo maxima de la palabra
 
buscar:
 cmp cx, 8 ; fin de la palabra, solo analizar la primera letra
 je no_vocal
 mov bl, [si] ; caracter actual
 cmp bl, 'a' 
 je a1
 cmp bl, 'e'
 je e1
 cmp bl, 'i'
 je I
 cmp bl, 'o'
 je O
 cmp bl, 'u'
 je U ;<---despues la mayusculas
 cmp bl, 'A' 
 je A
 cmp bl, 'E'
 je E
 cmp bl, 'I'
 je I
 cmp bl, 'O'
 je O
 cmp bl, 'U'
 je U
 inc si ; pasar al siguiente caracter
 dec cx ; reducir el contador de caracteres
 jmp buscar
no_vocal:
 mov ah,06h ;cambiar el color de la letra
 mov al,00h ;rojo sobe fondo negro
 mov bh,04h 
 mov cx,00h
 mov dx,174fh
 int 10h
 
 ; Mostrar mensaje de vocal no encontrada
 mov ah, 09h
 lea dx, mensaje2
 int 21h
 jmp fin
A:
 
 mov ah,06h ;cambiar el color de la letra
 mov al,00h ;rojo sobe fondo negro
 mov bh,04h 
 mov cx,00h
 mov dx,174fh
 int 10h
 
 MOV DX, OFFSET palabra
 MOV DX, OFFSET txt2
 MOV AH,09H
 INT 21H
 MOV DX, OFFSET txt7
 MOV AH,09H
 INT 21H
 JMP inicio
E:
 
 mov ah,06h ;cambiar el color de la letra
 mov al,00h ;rojo sobe fondo negro
 mov bh,04h 
 mov cx,00h
 mov dx,174fh
 int 10h
 
 MOV DX, OFFSET palabra
 MOV DX, OFFSET txt3
 MOV AH,09H
 INT 21H
 MOV DX, OFFSET txt3
 MOV AH,09H
 INT 21H
 JMP inicio 
 
 JMP inicio
I:
 
 mov ah,06h ;cambiar el color de la letra
 mov al,00h ;rojo sobe fondo negro
 mov bh,04h 
 mov cx,00h
 mov dx,174fh
 int 10h
 
 MOV DX, OFFSET palabra
 MOV DX, OFFSET txt1
 MOV AH,09H
 INT 21H
 MOV DX, OFFSET txt1
 MOV AH,09H
 INT 21H
 JMP inicio
 
 JMP inicio
O:
 
 mov ah,06h ;cambiar el color de la letra
 mov al,00h ;rojo sobe fondo negro
 mov bh,04h 
 mov cx,00h
 mov dx,174fh
 int 10h
 
 MOV DX, OFFSET palabra
 MOV DX, OFFSET txt7
 MOV AH,09H
 INT 21H
 MOV DX, OFFSET txt6
 MOV AH,09H
 INT 21H
 JMP inicio
 JMP inicio
U:
 
 mov ah,06h ;cambiar el color de la letra
 mov al,00h ;rojo sobe fondo negro
 mov bh,04h 
 mov cx,00h
 mov dx,174fh
 int 10h
 
 MOV DX, OFFSET palabra
 MOV DX, OFFSET txt4
 MOV AH,09H
 INT 21H
 MOV DX, OFFSET txt6
 MOV AH,09H
 INT 21H
 JMP inicio
a1:
 
 mov ah,06h ;cambiar el color de la letra
 mov al,00h ;rojo sobe fondo negro
 mov bh,04h 
 mov cx,00h
 mov dx,174fh
 int 10h
 
 MOV DX, OFFSET palabra
 MOV DX, OFFSET txt5
 MOV AH,09H
 INT 21H
 MOV DX, OFFSET txt2
 MOV AH,09H
 INT 21H
 JMP inicio
e1:
 
 mov ah,06h ;cambiar el color de la letra
 mov al,00h ;rojo sobe fondo negro
 mov bh,04h 
 mov cx,00h
 mov dx,174fh
 int 10h
 
 MOV DX, OFFSET palabra
 MOV DX, OFFSET txt2
 MOV AH,09H
 INT 21H
 MOV DX, OFFSET txt8
 MOV AH,09H
 INT 21H
 JMP inicio
 
vocal_encontrada:
 
 mov ah,06h ;cambiar el color de la letra
 mov al,00h ;rojo sobe fondo negro
 mov bh,04h 
 mov cx,00h
 mov dx,174fh
 int 10h
 
 MOV DX, OFFSET palabra
 MOV DX, OFFSET txt3
 MOV AH,09H
 INT 21H
 MOV DX, OFFSET txt3
 MOV AH,09H
 INT 21H
 JMP inicio
fin:
 MOV AX,4C00H
 INT 21H
 RET
CODIGO ENDS
END Inicio