Инфо о координатах текстового курсора дисплея в правый верхний угол экрана

mov ah,03h
int 10h

    mov ah,2     ;Запрос на установку курсора
    mov bh,0     ;Экран 0
        mov dh,string     ;номер строки
        mov dl,stolb     ;номер столбца
        int 10h      ;Передача управления в BIOS

; masm dos com #
.model tiny
.286
.code
org 100h
start:  mov ax,3;стереть с экрана
    int 10h
a0:     mov ah,0
        int 16h
    cmp ah,1
    jz exit
    cmp ah,1Ch
    jnz a2
        mov stolb,0
    inc string
    jmp movecur
a2: cmp ah,4Dh
    jnz a3
    inc stolb
    jmp movecur
a3: ;. . . здесь работаешь с другими стрелками
    jmp a0   
movecur: mov ah,2     ;Запрос на установку курсора
    mov bh,0     ;Экран 0
        mov dh,string     ;Строка
        mov dl,stolb     ;Столбец
        int 10h      ;Передача управления в BIOS
    jmp a0
exit:   retn; выход в DOS
string db 0
stolb db 0
end start

.MODEL Tiny
.CODE
ORG 100h
 
start:
        ; Обратный порядок записи - для конвертирования чисел в строки
        std                     
seek:       
                
        ; Отслеживаем координату X
        mov ax, 03h
        int 33h
 
        ; Конвертируем X в строку
        lea di, x_end - 1
        mov ax, cx          
        call conversion 
        
        ; Выводим X
        mov ah, 09h
        lea dx, x      
        int 21h   
        
        ; Выводим разделитель
        mov ah, 09h
        lea dx, divider
        int 21h
        
        ; Отслеживаем координату Y
        mov ax, 03h
        int 33h
        ; Конвертируем Y в строку
        lea di, y_end -1
        mov ax, dx
        call conversion 
 
        ; Выводим Y      
        mov ah, 09h
        lea dx, y      
        int 21h
        
        ; Выходим из программы
        int 20h                 
        
; Преобразование числа в строку
conversion proc
        mov cx,10               
cycle:
        xor dx,dx               
        div cx                  
                                
        xchg ax,dx              
        add al, '0'             
        stosb                   
        xchg ax, dx             
        or ax,ax                
        jne cycle               
        ret
conversion endp
 
x           db  '000$' 
x_end       =   $-1    
divider     db  ':$' 
y           db  '000$'
y_end       =   $-1       
 
end start

        ; Вывод в видеопамять
        mov cx, 6
        mov ax, 0B800h
        mov es, ax
        mov di, 0090h               ; смещение
        mov al, '0'
        mov ah, 11100000B
        mov es:[di], al
        
display:        
        add di, 2
        inc al
        mov es:[di], al
        loop display

; подразумевается, что в AH - аттрибут символа
; если будет разноцветная хренотень, раскомментарь оба xchg
    mov cx,7
    mov si, offset x
display: 
        lodsb
;   xchg    ah,al
        stosw
;   xchg    ah,al
        loop    display

.MODEL Tiny
.CODE
ORG 100h
 
start:
    mov ah, 9
    lea dx, x
    int 21h
    ; Обратный порядок записи - для конвертирования чисел в строки
    std    
    
    ; Инициализация графического режима
    mov ax, 2
    int 10h
    
    ; Инициализация мыши
    mov ax, 0
    int 33h 
    
    ; Показать курсор
    mov ax, 1
    int 33h
    
    ; Обработка перемещения
    mov ax, 000Ch
    mov cx, 0001h
    lea dx, seek
    int 33h
    
    ; Ожидание ввода символа
    mov ah, 0
    int 16h
    
    ; Отменить обработичк
    mov ax, 000Ch
    mov cx, 000Ch
    int 33h
    
    ; Выходим из программы
    int 20h    
    
seek:   
    ; Обнуляем координаты
    mov cx, 3
    lea si, nullz
    lea di, x
    
zeroing_x:      
    lodsb
    stosb
    loop zeroing_x
    
    mov cx, 3
    lea si, nullz
    lea di, y
    
zeroing_y:      
    lodsb
    stosb
    loop zeroing_y
    
    
    ; Отслеживаем координату X
    mov ax, 3
    int 33h
 
    ; Конвертируем X в строку
    lea di, x_end
    mov ax, cx          
    call conversion 
            
    ; Отслеживаем координату Y
    mov ax, 3
    int 33h
    
    ; Конвертируем Y в строку
    lea di, y_end
    mov ax, dx
    call conversion 
 
    ; Вывод в видеопамять
    mov cx, 7
    mov ax, 0B800h
    mov es, ax
    mov di, 0092h               ; смещение      
    mov ah, 00000011B
    lea si, x
        
disp:               
    lodsb       
    stosw   
    loop disp
 
    retf                    
    
; Преобразование числа в строку
conversion proc
    mov cx, 10                  
cycle:
    xor dx, dx                  
    div cx                                
    xchg ax, dx             
    add al, '0'             
    stosb                   
    xchg ax, dx             
    or ax,ax                
    jne cycle               
    ret
conversion endp
 
x           db  '000' 
x_end       =   $-1    
divider     db  ':' 
y           db  '000'
y_end       =   $-1   
nullz       db '000'    
 
end start

push 0b800h
pop es
mov bp,cx
mov si,2
mov ax,dx
xor di,di
xor cx,cx
mov bx,10
 
@3:
cmp ax,100
jnc @1
mov word ptr es:[3],0
@1:
xor dx,dx
div bx
inc cx
push dx
test ax,ax
jne @1
 
@2:
pop ax
or al,30h
mov ah,0ch
stosw
loop @2
 
dec si
je @f
 
xor cx,cx
mov ax,bp
mov di,8
cmp ax,100
jnc @1
mov word ptr es:[11],0
jmp @1
 
@@:
retf

    .286
    .MODEL  Tiny
    .CODE
    ORG 100h
 
start:
        ; Инициализация 
    mov ax, 3
    int 10h
 
        ; Инициализация мыши
    mov ax, 0
    int 33h
 
        ; Обработка перемещени
    mov ax, 000Ch
    mov cx, 0001h
    lea dx, seek
    int 33h
 
        ; Показать курсор
    mov ax, 1
    int 33h
 
    call    far ptr seek
        ; Ожидание ввода символа
    mov ah, 0
    int 16h
 
        ; Отменить обработичк
    mov ax, 000Ch
    mov cx, 000Ch
    int 33h
 
        ; Выходим из программы
    int 20h
 
seek:
    push    ds
    push    es
    push    cs
    pop es
    lea di, y_end
; чтобы выводить в знакоместах, CX и DX надо делить на 8 -> shr dx, 3
    push    cx
    mov ax,dx
    std
    mov bx, 10
    call    cnv
    dec di
    pop ax
    call    cnv
    cld
    push    cs
    pop ds
        ; Вывод в видеопамять
    mov cx, 7
    mov ax, 0B800h
    mov es, ax
    mov di, 0092h       ; смещение
    mov ah, 00000011B
    lea si, x
 
disp:
    lodsb
    stosw
    loop    disp
    pop es
    pop ds
    retf
 
; Преобразование числа в строку
;   es:di - endbuf
cnv:    call    @@1
    call    @@1
@@1:    div bl
    xchg    ah, al
    add al, 30h
    stosb
    shr ax, 8
    ret
x   db '000:000'
y_end   = $-1
    end start

seek:
        push    ds
        push    es
        push    cs
        pop     es