limpia pantalla

FIN EQU 4C00H

DOS EQU 21H

MONITOR EQU 10H

PILA SEGMENT STACK 

    DW 100 DUP("0")

PILA ENDS

codigo segment

    CLS PROC FAR

        ASSUME CS:CODIGO, SS:PILA

        CALL LIMPIA_PANTALLA

        MOV AX,FIN ;SE USA PARA FINALIZAR UN PROGRAMA

        INT DOS ;SE DEBE INCLUOR LA INT 21H

    CLS ENDP

    

    

    LIMPIA_PANTALLA PROC NEAR

        MOV AX,0600H ;ah 06(es un recorrido),al 00(pantalla completa)

        MOV BH,30H ;FONDO BLANCO(7),SOBRE AZUL(1)

        MOV CX,000H;ES LA ESQUINA SUPERIOR IZQUIERDA REGLON:COLUMNA

        MOV DX,484FH;ES LA ESQUINA SUPERIOR DERECHA RENGLON:COLUMNA

        INT 10H

        RET

    LIMPIA_PANTALLA ENDP

   

   

codigo ENDS

END CLS