Перехват прерывания int 09h

model small
  stack 100h
  .286
  .data
  cvet          dw 1
 
  .code
my_proc proc
        pushf
        push    ds es ax di bx cx
        mov     ax, @data
        mov     ds, ax
  mov ax,0B800h
  mov es,ax
  mov di,0
  mov cx,2000
        mov     bx, [cvet]
m1:
  mov ax,es:[di]
  and ah,11110000b
        or      ah, bl
  mov es:[di],ax
  add di,2
  loop m1
        inc     bx        ; следующий цвет
        and     bx, 15
        jnz     m2
        inc     bx
      m2:
        mov     [cvet], bx
        pop     cx bx di ax es ds
        popf        
    db      0eah            ;jmp far на старый обработчик
old_ofs dw      ?
old_seg dw      ?
my_proc endp
 
 
 
start:
        mov     ax, 3509h       ; получаем вектор int 9h
        int     21h
        mov     [old_ofs], bx; сохраняем вектор
        mov     [old_seg], es
 
        mov     ax, 2509h       ; устанавливаем свой
        mov     dx, offset my_proc
        push    cs
        pop     ds
        int     21h
 
  getkey:
        xor     ax, ax
        int     16h
        cmp     al, 27
        jne     getkey
 
        mov     ax, 2509h       ; восстанавливаем старый вектор
        mov     dx, cs:[old_ofs]
        mov     ds, cs:[old_seg]
        int     21h
 
        mov     ax, 4C00h
        int     21h
end start