Programa#4

; PROGRAMA #4: : pe06_cls
; FUNCION : LIMPIAR PANTALLA
; REALIZADO POR : Jose Juan Muñiz Hernandez

---------------------------------------------------------------------

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

-------------------------------------------

; DECLARACION DEL SEGMENTO DE PILA

-------------------------------------------------------------

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

-----------------------------------------------------------

; DECLARACION DEL SEGMENTO DE CODIGO

------------------------------------------------------------------

CODIGO SEGMENT


pe06_cls PROC FAR                      ; Inicio procedimiento pe06_cls


ASSUME CS:CODIGO,SS:PILA


CALL LIMPIA_PANTALLA               ; Llama a procedimiento par limpiar pantalla.


MOV AX,FIN_4C00H                      ; Fin del programa
INT DOS_21H


pe06_cls ENDP                              ; Fin del procedimiento EJEMPLO


LIMPIA_PANTALLA PROC NEAR
MOV AX,01000H                            ; Establecer modo texto y CLS
MOV BH,6AH                                 ; 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 pe06_cls