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.

Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //