7 Limpia pantalla

corrida

codigo

       

import base64
try:
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