Programa No.5 Limpiar la pantalla

FIN_4C00H EQU 4C00H
DOS_21H EQU 21H
BIOS_10H 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_4C00H
    INT DOS_21H
    CLS ENDP
   
    LIMPIA_PANTALLA PROC NEAR
        MOV AX,0600H
        MOV BH,0AH
        MOV CX,000H
        MOV DX,484FH
        INT BIOS_10H
        RET
        LIMPIA_PANTALLA ENDP
       
    CODIGO ENDS
    END CLS