IPB

> GetIntVc.PAS
Чат
Форум
Загрузка...
 

Language:
Русский
English

  {GetIntVc.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the GetIntVec and SetIntVec procedures.}

  uses WinDos, WinCrt;

  var
    Int1CSave : Pointer;
  {$F+}
  procedure TimerHandler; interrupt;
    begin
      { Timer ISR }
      {*** Refer to DDK and DPMI Specs for creating ISR's ***}
    end;
  {$F-}
  begin
    GetIntVec($1C,Int1CSave);
    SetIntVec($1C,Addr(TimerHandler));
    writeln('Press ANYKEY to exit');
    repeat until Keypressed;
    SetIntVec($01C,Int1CSave);
  end.

 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 



-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"