proc _Irq1; // заметите с чёрточкой.
сохраняем часть регистров в стеке
устанавливаем ds
сохраняем точку возврата и регистры в ds:[StateInteruptRet]
вызываем AddList(n)  // n номер прерывания
SendEOI;
подменяем точку возврата на IrqProc корректируем вершину стека
iret
end _Irq1;
// больше он ничего не делает

IrqProc
n:=GetFromList()
case  n of
0: ничего не делаем
1:Call IRQ1; // без чёрточки
2:Call IRQ2;
3:Call IRQ3;
4:begin
  таймер;  системный обработчик таймера
  Call IRQ4
  end;
...// и тд.
end;
Загружаем регистры ds:[StateInteruptRet] и возвращаемся в сохраненную точку возврата
end IrqProc;