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

[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разрядным приложениям которые работают в режиме эмуляции дос, обычным приложениям запрещено использовать прерывания.

[Malice]

И еще добавленьеце: все это счастье будет работать при установке AH=1 (или ax=$0100), а то функция у 10-го прерывания много, в CH - биты 0..3 указывают верхнюю границу, 4-5 - как он мигать будет.