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

[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;

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

[volvo]

У курсора, отображаемого на экране, есть так называемые начальная и конечная линии (в матрице символа). Линии отсчитываются сверху вниз, самая первая - нулевая.

Максимальное значение конечной линии зависит от видеоадаптера (для CGA = 7, для MDA/Hercules = 13, у EGA в зависимости от выбранного текст. режима может быть как 7 - в режиме шрифта 8*8, так и 13 - в режиме шрифта 8*14). Формально прерывание $10 принимает значение нижней линии до 32...

Так вот. Если начальную линию (регистр CH) установить в 0, а конечную (регистр CL) - в значение, максимальное для используемого режима, то получится блочный курсор, как после нажатия Insert. Если установить начальныю линию в 32 - то курсор не будет отображаться вообще. Ну, а остальные значения будут показывать курсор разной "толщины" на разной "высоте"...