Programa No.7 Borra pantalla y posiciona el cursor

CR EQU 13
LF EQU 10
TECLADO_8 EQU 8
IMPRIMIR_9 EQU 9
FIN_4C00H EQU 4C00H
DOS_21H EQU 21H
BIOS_10H EQU 10H
TAB EQU 09H
BELL EQU 07H
DATOS SEGMENT
    RENGLON DB 0
    COLUMNA DB 0
    MENSAJE DB CR,LF,'POSICION (X,Y), DEL MENSAJE: HUMBERTO PEREZ'
            DB 'DESPUES DE BORRAR PANTALLA',CR,LF,'$'
        DATOS ENDS
       
        PILA SEGMENT STACK
            DW 100 DUP('0')
        PILA ENDS
       
        CODIGO SEGMENT
            CLSP PROC FAR
            ASSUME CS:CODIGO,DS:DATOS,SS:PILA
            MOV AX,DATOS
            MOV DS,AX
            LEA DX,MENSAJE
            CALL LIMPIA_PANTALLA
            CALL POSICIONA_CURSOR
            MOV AH,IMPRIMIR_9
            INT DOS_21H
            MOV AX,FIN_4C00H
            INT DOS_21H
           
            CLSP ENDP
           
            LIMPIA_PANTALLA PROC NEAR
            MOV AX,0600H
            MOV BH,0AH
            MOV CX,000H
            MOV DX,484FH
            INT BIOS_10H
            RET
            LIMPIA_PANTALLA ENDP
           
            POSICIONA_CURSOR PROC NEAR
            MOV AH,02
            MOV BH,00
            MOV DH,RENGLON
            MOV DL,COLUMNA
            INT BIOS_10H
            RET
            POSICIONA_CURSOR ENDP
           
        CODIGO ENDS
        END CLSP