MOV al, 20h
OUT 20h, al   (OUT A0h, al   -  для второго контроллера прерываний, если исп его прерывания, они начинаются с вектора 70h)

;  Смена вектора прерывания
;  Di - номер вектора который надо поменять
;  Bx - Сегмент новой процедуры
;  Сx - Смещение новой процедуры

VectorsPOINTS  Dd  160    Dup(0)
VectorsIN_USE  Db  160    Dup(0)
ReplaceVECTOR  Proc Far
  Push es
  Push ax
  Push bx
  Push dx
  Push di
    Xor ax, ax
    Mov al, cs:VectorsIN_USE   [di];
    Or al, al
    Jnz SkipREPLACE
   Mov ax, 1                ;  Метим вектор
   Mov cs:VectorsIN_USE[di], al
    CLI
   Xor ax, ax
   Mov es, ax           ; es = 0
   Shl di, 2            ; Номер = Номер * 4
   Mov dx, es:      [di]; Взять смещение
   Mov Word Ptr cs:VectorsPOINTS[di], dx   ; Сохр. смещение
   Mov dx, es:[di+2]    ; Взять сегмент
   Mov Word Ptr cs:VectorsPOINTS[di+2], dx ; Сохр. сегмент
   Mov es:[di], cx      ; Вектор - новое смещение
   Mov es:[di+2], bx    ; Вектор - новый сегмент
    STI
  SkipREPLACE:
  Pop di
  Pop dx
  Pop bx
  Pop ax
  Pop es
  Ret
ReplaceVECTOR  EndP

;  Возврат старого вектора
;  Di - номер возвращаемого вектора

RecoverVECTOR  Proc Far
  Push es
  Push ax
  Push bx
  Push di
    Xor ax, ax
    Mov al, cs:VectorsIN_USE
    [di]Or al, al
    Jz SkipRecover
   Xor ax, ax
   Mov cs:VectorsIN_USE[di], al
    CLI
   Xor ax, ax
   Mov es, ax           ; es = 0
   Shl di, 2            ; Номер = Номер * 4
   Mov bx, Word Ptr cs:VectorsPOINTS   [di]; Смещение
   Mov es:[di], bx        ; + Recover +
   Mov bx, Word Ptr cs:VectorsPOINTS[di+2] ; Сегмент
   Mov es:[di+2], bx      ; + Recover +
    STI
  SkipRecover:
  Pop di
  Pop bx
  Pop ax
  Pop es
  Ret
RecoverVECTOR  EndP