Programa #7 "Borra pantalla y posiciona el cursor"

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: IN THE MORNING"

            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,0AH

            MOV CX,000H

            MOV DX,484FH

            INT BIOS_10H

            RET

            LIMPIA_PANTALLA ENDP

             

            POSICIONA_CURSOR PROC NEAR

            MOV AH,01

            MOV BH,00

            MOV DH,RENGLON

            MOV DL,COLUMNA

            INT BIOS_10H

            RET

            POSICIONA_CURSOR ENDP

             

        CODIGO ENDS

        END CLSP