Включение клавиатуры:
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;