Ассем в паскале Опции

[Tan]

procedure ShowCursor;
var
  regs : registers;
begin
  regs.ax := какой - то адрес;
  regs.cx := какой - то адрес;
  intr($10, regs);
end;

procedure HideCursor;
var
  regs : registers;
begin
  regs.ax := какой - то адрес;
  regs.cx := какой - то адрес;
  intr($10, regs);
end;

Как я заметил многие используют данные операции для создания меню в паскале, объясните как эти маленькие процедурки работают.

[Адель]

только работать это будет только в паскале и возможно в первой дельфе, так как это доступно только 16разрядным приложениям которые работают в режиме эмуляции дос, обычным приложениям запрещено использовать прерывания.