Hello,
solution you can find in file "c:\pp\source\docs\go32ex\intpm.pas".
Best regards
Best regards
Lubomir Cabla/CBL
Web page : http://www.hdat2.com/
Web forum: http://www.getphpbb.com/phpbb/index.php?mforum=lcabla
{ This example shows how to redirect a software interrupt by changing the protected mode handler of the DPMI host.
In more detail it hooks interrupt 1Ch which is called every time the timer interrupt (int 08) is executed. This is the preferred way to hook the timer, because int 1Ch is a software interrupt which doesn't need so much initialization stuff compared to hooking a hardware interrupt. } uses crt, go32; const { interrupt number we want to hook } int1c = $1c; var { 48 bit pointer to old interrupt handler } oldint1c : tseginfo; { 48 bit pointer to new interrupt handler } newint1c : tseginfo; { increased every time the interrupt is called } int1c_counter : Longint; { the current data selector } int1c_ds : Word; external name '___v2prt0_ds_alias'; { the actual handler code } procedure int1c_handler; assembler; asm cli { save all registers } pushw %ds pushw %ax { prepare segment registers for FPC procedure } movw %cs:int1c_ds, %ax movw %ax, %ds { simply increase the counter by one } incl int1c_counter { restore registers } popw %ax popw %ds sti iret end; var i : Longint; begin { insert right handler data into new handler variable } newint1c.offset := @int1c_handler; newint1c.segment := get_cs; { get the old handler } get_pm_interrupt(int1c, oldint1c); Writeln('-- Press any key to exit --'); { set new handler } set_pm_interrupt(int1c, newint1c); { write the number of interrupts occured } while (not keypressed) do begin gotoxy(1, wherey); write('Number of interrupts occured : ', int1c_counter); end; { restore old handler } set_pm_interrupt(int1c, oldint1c); end.
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal