MENÚ PARA COLORES DE PANTALLA
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