Переопределить прерывание таймера 8h, и каждые 5 секунд загонять в буфер клавиатуры букву 'а'

.model tiny
.code
.startup
.386
    jmp main
    
    old_int8h_offset dw ?
    old_int8h_segment dw ?
    
    installed dw 8888
    install db 'Installed$'
    no_memory db 'Out of memory$'
    uninstall db 'Uninstalled$'
    cant_remove db 'Error: cannot uninstall program$'
 
new_int8h proc
    ;push ax
    pusha
    push es
    push ds
    push cs
    pop ds
    pushf
    
    mov ah, 2
    mov dl, 'а'
    int 21h
exit_int:
    mov al, 20h
    out 20h, al
    pop ds
    pop es
    popa
    ;pop ax
    iret
new_int8h endp  
    
main:
        mov ah, 35h                     ; получить в ES:BX адрес прерывания 8h
        mov al, 8h                                    
        int 21h
        cmp word ptr es:installed,8888 ; проверка того, загружена ли уже программа
        je remove                   ; если загружена - выгружаем
        
        push es
        mov ax, ds:[2Ch]                ; psp
        mov es, ax
        mov ah, 49h                     ; хватит памяти чтоб остаться
        int 21h                         ; резидентом?
        pop es
        jc not_mem                      ; не хватило - выходим
        mov cs:old_int8h_offset, bx     ; запомним старый адрес 08
        mov cs:old_int8h_segment, es    ; прерывания
        mov ah, 25h                     ; установим вектор на 08
        mov al, 8h
        mov dx, offset new_int8h        ; прерывание
        int 21h
        mov dx, offset install          ; выводим что все ок
        mov ah, 9
        int 21h
        mov dx, offset main             ; остаемся в памяти резидентом
        int 27h                         ; и выходим
        ; конец основной программы      
remove:                                 ; выгрузка программы из памяти
        push es
        push ds
        mov dx, es:old_int8h_offset     ; возвращаем вектор прерывания
        mov ds, es:old_int8h_segment    ; на место
        mov ah, 25h
        mov al, 8h
        int 21h
        pop ds
        pop es
        mov ah, 49h                     ; освобождаем память
        int 21h
        jc not_remove                   ; не освободилась - ошибка
        mov dx, offset uninstall        ; все хорошо
        mov ah, 9
        int 21h
        jmp exit                        ; выходим из программы
not_remove:                             ; ошибка с высвобождением памяти.
        mov dx, offset cant_remove                                             
        mov ah, 9
        int 21h
        jmp exit
not_mem:                                ; не хватает памяти, чтобы остаться резидентом
        mov dx, offset no_memory
        mov ah, 9
        int 21h
exit:                                   ; выход
        int 20h
end

               org  100h
start:         jmp  main
 
_int1C:         pushf
        inc byte ptr cs:flag
; *5 раскомментарьте, ждать было лень
        cmp byte ptr cs:flag,18;*5  ; got 5 sec. signal?
        jz  @@1         ; yes, processing
@@0:        popf
        jmp dword ptr cs:old_int1C      ; go back
@@1:        mov byte ptr cs:flag, 0
        push    ax
        push    cx
        mov ah, 05h
        mov cx, 'a'
        int 16h
        pop cx
        pop ax
        jmp     @@0
old_int1C:  dd  ?
flag:       db  0
 
main:
        push    cs
        push    cs
        pop ds
        pop es
                mov     ax, 351Ch                                     ; получить в ES:BX адрес прерывания 8h
            int     21h
            mov     word ptr cs:old_int1C, bx     ; запомним старый адрес 08
            mov     word ptr cs:old_int1C+2, es    ; прерывания
                mov     ax, 251Ch                                             ; установим вектор на 08
            mov     dx, _int1C        ; прерывание
            int     21h
; ввод строки. каждые ~5 сек. появляется буква "а"
            mov ah, 0Ah
        mov dx, inpbuf
        int 21h
 
remove: 
            mov dx, word ptr old_int1C     ; возвращаем вектор прерывания
            mov ds, word ptr old_int1C+2    ; на место
            mov ax, 251Ch
                int 21h
exit:                                   ; выход
            int 20h
inpbuf: db  255         ; наибольшая длина строки
len:    db  ?                       ; сюда вернется настоящая длина
buf:    db  255 dup(?)              ; тут будет то, что ввели