Cambiar de color la pantalla

-
Código:


CR EQU 13
LF EQU 10
TECLADO_8 EQU 8
IMPRIMIR_9 EQU 9
FIN_4C00H EQU 4C00H
DOS_21H EQU 21H
BIOS_10H EQU 10H
TAB EQU 09H
BELL EQU 07H

DATOS SEGMENT
    RENGLON DB 0
    COLUMNA DB 0
    MENSAJE DB CR,LF,'POSICION (X,Y), DEL MENSAJE: Hola mundo'
            DB 'DESPUES DE BORRAR PANTALLA',CR,LF,'$'
        DATOS ENDS
        PILA SEGMENT STACK
            DW 100 DUP('0')
        PILA ENDS

        CODIGO SEGMENT
            CLSP PROC FAR
            ASSUME CS:CODIGO,DS:DATOS,SS:PILA
            
            
            MOV AX,DATOS
            MOV DS,AX
            LEA DX,MENSAJE
            CALL LIMPIA_PANTALLA
            CALL POSICIONA_CURSOR
            MOV AH,IMPRIMIR_9
            INT DOS_21H
            MOV AX,FIN_4C00H
            INT DOS_21H
            
            CLSP ENDP
            
            LIMPIA_PANTALLA PROC NEAR
            MOV AX,0600H
            MOV BH,00111110b ;color que se modifico
            MOV CX,000H
            MOV DX,484FH
            INT BIOS_10H
            RET
            LIMPIA_PANTALLA ENDP
            
            POSICIONA_CURSOR PROC NEAR
            MOV AH,02 ;Posicion del cursor
            MOV BH,00 ;Pagina en 0,es decir que usara esa pantalla y no otra
            MOV DH,RENGLON ; coordenadas de la pagina por renglon
            MOV DL,COLUMNA ;coordenadas de la pagina por columna
            INT BIOS_10H
            RET
            POSICIONA_CURSOR ENDP
            
        CODIGO ENDS
        END CLSP






Comentarios

Publicar un comentario

Entradas más populares de este blog

Uso de la multiplicacion con ensamblador

-
Imagen
la operación mul multiplicara los valores de los registros bx por ax, guardando el resultado en ax. Codigo: org 100h mov ax,80 mov BX,10 mul bx ret    iniciamos asignando los valores de 80 y 10 a los registros ax y bx correspondientemente, recordemos que se asignan en formato decimal Al hacer la multiplicación obtendremos el numero 320 en hexadecimal en el registro AX, el cual es equivante a 800, siendo este el resultado   Para almacenar valores mas grandes es necesario ampliar el registro, para poder usarlo el emulador o procesador que estemos usando debe ser compatible con la arquitectura que señala la siguiente tabla   Tabla Y Mas  
Leer más

Temas Unidad 1

-
Imagen
1.1 Aplicaciones gráficas por computadora. La gratificación puede ser aplicada en distintas áreas, como en la ciencia, diseño, medicina, arquitectura, entretenimiento, arte, entre otros. A continuación se mostraran algunos ejemplos. Diseño asistido por computadora. Este método, también llamado generalmente como CAD (Computer Assisted Desing) ahora se utiliza de forma habitual para el diseño de construcciones, automóviles, aeronaves, embarcaciones. Normalmente, los paquetes de software de aplicaciones de CAD ofrecen a los diseñadores un entorno con ventanas múltiples; estas diversas ventanas desplegables muestran secciones ampliadas de vistas de diferentes objetos. Estos paquetes de software están dirigidos principalmente para el campo de la arquitectura. Ofrecen a los diseñadores muchas herramientas de simbología para poder crear modelos realistas de sus construcciones.  Muchas otras clases de sistemas y productos se diseñan usando ya sea paquetes de CAD generales o soft...
Leer más

Programas con librerias parte 2

-
Imagen
EJEMPLO 1: Mejora del programa 9. letras de colores(Ambrocio). CR EQU 13 ;Declaro retorno de carro LF EQU 10 ;Declaro salto de linea BIOS EQU 10H ;Declaro interrupcion 10h DOS EQU 21H ;Declaro interrupcion 21h TEXTO EQU 3 ;Declaro el servicio 03 para la impresion de texto desde BIOS FIN EQU 4C00H ;Declaro interrupcion de exit VARIABLES SEGMENT ;Declaro las variables include "emu8086.inc" TITULO DB "JUENITO_XD" ;Un texto COLORES DB 01001110B ;Una agrupacion de colores DB 11101111B ;0= cursos parpadeante 000=color de fondo 0000=color del texto DB 10110001B DB 01011100B DB 00110001B DB 01011111B DB 01101011B DB 01011100B DB 01101111B DB 01001110B DB 00110001B VARIABLES ENDS VPILA SEGMENT;STACK ;Declaro la pila DB 64 DUP("PILA") VPILA ENDS CODIGO SEGMENT COLO PROC FAR ;Declaro un procedimiento ASSUME CS:CODIGO, DS:VARIABLES, SS:VPILA MOV AX,VARIA...
Leer más