org 100h
.stack 64 ;
.data ;
titulo db 13,10,' Cambiar fondos de
Pantalla',13,10,13,10,13,10,'$'
menu db 'Presione
"G" si quiere GUINDO',13,10,'Presione "A" si quiere
AMARILLO',13,10,'Presione "V" si quiere VERDE','$'
salir db 13,10,13,10,' Presione ENTER si desea
Salir', '$'
.code
inicio:;Funcion
;-------------------------------------------------------------------------------------------------------------------------------
mov ah,0 ;limpia el registro
mov al,3h ;modo de
texto
int 10h ;interrupcion de video
mov bh,0fh ;0 color negro , f color de letra blanca
mov cx,0000h ;es la esquina superior izquierda reglon:
columna
mov dx,184Fh ;es la esquina inferior derecha reglon:
columna
int 10h
;-------------------------------------------------------------------------------------------------------------------------------
mov ax,@data ;llamar a .data
mov ds,ax ;guardar los datos en ds
lea dx,titulo ;imprimir el mensaje
mov ah,9h
int 21h
lea dx,menu ;imprimir mensaje
mov ah,9h
int 21h
lea dx,salir ;imprimir mensaje
mov ah,9h
int 21h
;-------------------------------------------------------------------------------------------------------------------------------
mov ah,08 ;pausa y espera a que el usuario precione
una tecla
int 21h ;interrupcion para capturar
cmp al,13 ;compara si lo que el usuario preciono
fue un enter
je fin ;si el usuario si preciono enter llama a la
funcion
cmp al,103 ;compara si el usuario preciono la
letra 'G'
je llamarGuindo ;si el usuario si preciono la letra 'G'
llama a la funcion
cmp al,97 ;compara si el usuario preciono la letra
'A'
je llamarAmarillo
cmp al,118 ;compara si el usuario preciono la
letra 'V'
je llamarVerde
;-------------------------------------------------------------------------------------------------------------------------------
fin:
mov ax,4c00h ;funcion que termina el programa
int 21h
llamarAmarillo:
CALL AMARILLO ;llama
al procedimiento
llamarGuindo:
CALL GUINDO ;llama
al procedimiento
llamarVerde:
CALL VERDE
AMARILLO PROC NEAR
mov ah,06h ;Salida directa a patalla
mov bh,234 ;Color de pantalla azul y blanco de letra
mov cx,0000h
mov dx,184Fh
int 10h ;Esta interrupción se utiliza básicamente
para mostrar texto en la pantalla, para cambiar a modo gráfico, para establecer
la paleta de colores, etc...
mov ax,4c00h
;termina el programa
int 21h
RET
AMARILLO ENDP
GUINDO PROC NEAR
mov ah,06h ;Salida directa a patalla
mov bh,4fh ;
color de pantalla morado y blanco de letra
mov cx,0000h
mov dx,184fh
int 10h
mov ax,4c00h ;termina el programa
int 21h
RET
GUINDO ENDP
VERDE PROC NEAR
mov ah,06h ;Salida directa a patalla
mov bh,20h ;
color de pantalla morado y blanco de letra
mov cx,0000h
mov dx,184fh
int 10h
mov ax,4c00h ;termina el programa
int 21h
RET
VERDE ENDP
end inicio
No hay comentarios:
Publicar un comentario