Programa 6(7) 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 07
     MENSAJE DB CR,LF,'POSICION (x,y),del mensaje: Hola Mundo !',CR,LF,'$'
 DATOS ENDS

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

 CODIGO SEGMENT
     EJ5 PROC FAR
     ASSUME CS:CODIGO,DS:DATOS,SS:PILA
     MOV AX,DATOS
     MOV DS,AX  
     LEA DX,MENSAJE
 
     CALL POSICIONA_CURSOR
   
     MOV AH,IMPRIMIR_9
     INT DOS_21H
     
     EJ5 ENDP

   POSICIONA_CURSOR PROC NEAR
 
     MOV AH,07
     MOV BH,05
     MOV DH,RENGLON
     MOV DL,COLUMNA
     INT BIOS_10H
     RET
     POSICIONA_CURSOR ENDP
   
 CODIGO ENDS
 END EJ5