programa 7 (8) CLS y Posiciona 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: Hola Mundo !',CR,LF,'$'
     DB 'DESPUES DE BORRAR PANTALLA.',CR,LF,'$'
 DATOS ENDS

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

 CODIGO SEGMENT
     EJ6 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
     EJ6 ENDP
   
     LIMPIA_PANTALLA PROC NEAR
    MOV AX,0600H ; Establecer modo texto y CLS
    MOV BH,14H ; 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

     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 EJ6