Programa 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 END P

            LIMPIA_PANTALLA PROC NEAR
                    MOV AX,0600H
                    MOV BH,0AH
                    MOV CX, 000H
                    MOV DX, 484FH
                    INT BIOS_10H
                    RET
                    LIMPIA_PANTALLA END P
         
            CODIGO ENDS
            END CLS