Полезные процедуры для текстового режима. Опции

[AlaRic]

НЕБОЛЬШИЕ ЧАСТО ПРИМЕНЯЮЩИЕСЯ ПРОЦЕДУРЫ
Включение клавиатуры:

procedure keyenable;
begin
asm
in al,21h
and al,not 2
out 21h,al
end;
end;

Выключение клавиатуры:

procedure keydisable;
begin
asm
in al,21h
or al,2
out 21h,al
end;
end;

Выключение курсора в текстовом режиме:

procedure CursorOff;
begin
asm
mov ah,1
mov cx,2020h   {Убрать мерцание за пределы знакоместа}
int 10h
end;
end;

Включение курсора в текстовом режиме:

procedure CursorOn;
begin
asm
mov ah,1
mov cx,0607h   {Установить мерцание 6й и 7й строк}
int 10h
end;
end;