Programa 8 -Borrar pantalla, posicion del cursor y cambio de color de pantalla

CR EQU 13

LF EQU 10

TEC_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: KARINA SANCHEZ'

            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 POSICION_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, 6FH ;0AH

    MOV CX, 000H

    MOV DX, 484FH

    INT BIOS_10H

    RET

    LIMPIA_PANTALLA ENDP

   

    POSICION_CURSOR PROC NEAR

    MOV AH,02

    MOV BH, 00

    MOV DH, RENGLON

    MOV DL, COLUMNA

    INT BIOS_10H

    RET

    POSICION_CURSOR ENDP

   

   


CODIGO ENDS

END CLSP