org 100h
        jmp lmain

      ; INT 09h (IRQ1) event handler
eh09:
        push ax
        in al,60h; get scan code
        cmp al,01h
        pop ax
        db 0eah; jmp far old event handler
a09_old resd 1

lmain:
        mov ax,3509h; get old vector
        int 21h
        mov [a09_old],bx
        mov [a09_old+2],es; es:bx
        mov dx,eh09; ds:dx
        mov ax,2509h; set new vector
        int 21h

        mov dx,[a09_old+2]
        mov ds,dx
        mov dx,[a09_old]
        mov ax,2509h; restore vector
        int 21h

        mov ah,4ch; quit
        int 21h

org 100h
jmp start

eh09:
  push ax
  in al,21h
  or al,1
  out 21h,al
  popax
  iret

start:
  cli
  xor ax,ax
  mov es,ax
  lea ax,eh09
  mov es:[09h*4],ax
  mov ax,cs
  mov es:[09h*4+2],ax
  sti
  mov ah,4ch
  int 21h

       mov dx,[a09_old+2]
       mov ds,dx
       mov dx,[a09_old]; ds уже не содержит сегментный адрес программы!!!
       mov ax,2509h; restore vector
       int 21h