Вывести введённый символ в текущей позиции курсора и вывести в позицию выше, ниже, левее или правее.

  mov [Timer], 50000 / 182  ;вызов прерывания 1Ch - 1 раз в 18.2 мс=0.0182c
  @@wait_for_5s:
    cmp [Timer], 0
  jnz @@wait_for_5s

  mov [Timer], 5 * 182 / 10 ;вызов прерывания 1Ch - 18.2 раз в секунду
  @@wait_for_5s:
    cmp [Timer], 0
  jnz @@wait_for_5s

  push ax
  push ds
  mov ax, @data
  mov ds, ax
  dec [Timer]
  jnz @@Next
    .................
    вот здесь какие-то быстрые действия, требуемые для программы,
    например, вывод на экран
    .................
    mov ax, [InitTimer]  ;ещё раз инициализируем таймер для повторения цикла
    mov [Timer], ax
  @@Next:
.......
  pop ds
  pop ax
  iret

.8086
.model small
.stack 100h
.data
     
.data?
 
.code
Main PROC
    mov ax,@data
    mov ds,ax
    
    mov ax,3
    int 10h
    mov bh,0
    xor ax,ax
    int 33h
    xchg ax,cx
    jcxz @exit
    
    mov ax,0Ch
    mov cx,10100b
    push cs 
    pop es
    mov dx,offset mouse
    int 33h
        
    mov ax,1
    int 33h
        
@for: 
mov ah,0
    int 16h
    dec ah
    jnz @for
    mov ax,14h
    xor cx,cx
    int 33h
    int 20h
@exit:   
        
    mov ah,4Ch
    int 21h
Main ENDP
 
 
mouse proc far 
    mov ax,2; Спрятать курсор
    int 33h
 
    mov ax, cx; ax <- x
    mov cl, 3
    shr ax, cl ; x : px -> #symbol
    shr dx, cl ; y : px -> #symbol
 
    mov dh, dl
    mov dl,al
 
    MOV  AH,02          
    MOV  BH,00          
    INT  10H
    
    MOV  AH,09 
    mov ah,01h ; задаем функцию
    int 21h ; вызов прерывания
    ;MOV  AL,'2'     
    MOV  BH,00          
    MOV  BL,0FH         
    MOV  CX,1  
    ;call poz
    call enter_check
    int 10H
 
    mov ax,1 ; Возвращаем курсор
    int 33h
 
    retf
mouse endp
 
 
enter_check proc
@back:
    mov bl,al ; сохраняем bl в dx
    mov ah,08h ; задаем функцию
@back_enter:
    int 21h ; вызов прерывания
    cmp al,0Dh ; проверяем нажатие Enter
    je @click_enter ; если нажали Enter, то выход
    cmp al,30h ; проверяем нажатие Enter
    je @exit_program ; если нажали Enter, то выход
    cmp al, 38h; провверяем нажатие '8'
    je @click_8
    cmp al, 32h; провверяем нажатие '2'
    je @click_2
    cmp al, 34h; провверяем нажатие '4'
    je @click_4
    cmp al, 36h; провверяем нажатие '6'
    je @click_6 
    call delay ;;;;;;;;;;;;;
    
    mov bl,al
    jmp @back_enter
    
@click_8:
    dec dh
    call izmen_poloj_kursora
    call vivod_sim
    inc dh
    call izmen_poloj_kursora
    jmp @back
    
@click_2:
    inc dh
    call izmen_poloj_kursora
    call vivod_sim
    dec dh
    call izmen_poloj_kursora
    jmp @back   
    
@click_6:
    inc dl
    call izmen_poloj_kursora
    call vivod_sim
    dec dl
    call izmen_poloj_kursora
    jmp @back
    
@click_4:
    dec dl
    call izmen_poloj_kursora
    call vivod_sim
    inc dl
    call izmen_poloj_kursora
    jmp @back
    
        
@click_enter:
    ret
    
@exit_program:
    mov ah,4Ch
    int 21h
    
enter_check endp
 
 
vivod_sim proc
    MOV AH,09 ;Функция вывода
    MOV al,bl ;Выводимый символ
    MOV CX,1 ;Число повторений символа
    MOV BH,00          
    MOV BL,0FH
    INT 10H ;Вызвать BIOS
    ret
vivod_sim endp
 
 
izmen_poloj_kursora proc
    MOV AH,02 ;Установить положение курсора
    MOV DH,dh ;Строка
    MOV DL,dl ;Столбец
    INT 10H ;Вызвать BIOS
    ret
izmen_poloj_kursora endp
 
 
delay proc  
    push bx
    push cx
    push dx
 
 
  
    pop dx
    pop cx
    pop bx
  
    ret
delay endp   
 
end Main

        mov     counter, 18             ;ожидать примерно 1 секунду
 
WaitTimer_1s:
        cmp     counter, 0
        jnz     WaitTimer_1s

; Обработчик прерывания 1Ch (пользовательский обработчик IRQ0)
int1Ch_handler  proc    far
        dec     word ptr cs:counter     ; увеличить счетчик накоплений
        db      0EAh                    ; команда jmp far
old_int1Ch      dd      0               ; адрес старого обработчика
int1Ch_handler  endp