Programa 5 (6) Limpiar Pantalla

FIN_4C00H EQU 4C00H
DOS_21H EQU 21H
BIOS_10H EQU 10H

PILA SEGMENT STACK
DW 100 DUP('0')
PILA ENDS

CODIGO SEGMENT
;-----------------------------------------------------------------------
EJ4 PROC FAR ; Inicio procedimiento
;-------------------------------------------------------------------
ASSUME CS:CODIGO,SS:PILA
;-------------------------------------------------------------------
CALL LIMPIA_PANTALLA ; Llama a procedimiento para limpiar pantalla.
;-------------------------------------------------------------------
MOV AX,FIN_4C00H ; Fin del programa
INT DOS_21H
;-------------------------------------------------------------------
EJ4 ENDP ; Fin del procedimiento
;-----------------------------------------------------------------------
LIMPIA_PANTALLA PROC NEAR
MOV AX,0600H ; Establecer modo texto y CLS
MOV BH,0AH ; Colores de fondo (negro=0) y texto (verde=A).
MOV CX,0000H ; Desde el inicio de pantalla
MOV DX,484FH ; Hasta el fin de la pantalla Reng (48)72 col(79)4F
INT BIOS_10H ; Interrupci?n que llama al BIOS
RET
LIMPIA_PANTALLA ENDP
;-----------------------------------------------------------------------
CODIGO ENDS
;======================================================================
END EJ4