Скачать Отключение Вывода на Экран

30.04.1997
Скачать файл (1,20 Кб)

{ Subj : Отключение Вывода на Экран
}
unit video;
interface
procedure screenoff;
procedure screenon;
implementation
procedure screenoff;assembler;
asm
     mov    dx,03cch
     in     al,dx
     and    al,11111101b
     mov    dx,03c2h
     out    dx,al
end;
procedure screenon;assembler;
asm
     mov    dx,03cch
     in     al,dx
     or     al,00000010b
     mov    dx,03c2h
     out    dx,al
end;
end.