Programa #5 "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     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     INT BIOS_10H     RET     LIMPIA_PANTALLA ENDP       CODIGO ENDS END CLS