xchg ecx, esp
   jmp  ecx

function int2A (_eax, _edx, _ecx :integer):integer;
asm
         pop   ecx  //  eip to return in r3
         int $2A 
         nop
         nop
         nop
         nop
         iretd;
end;

{$apptype console}
program test; uses windows;
const
count = 20000000;
MSR_SYSENTER_CS = $174;
MSR_SYSENTER_ESP = $175;
MSR_SYSENTER_EIP = $176;

var i, dwStart : integer;

function sys_enter:integer;
asm
sti
sysexit
end;

function sysenter(_eax, _edx, _ecx :integer):integer;
asm

pop edx // eip to return in r3
mov ecx, esp // esp to return in r3
sysenter
end;

function int2A (_eax, _edx, _ecx :integer):integer;
asm
pop ecx // eip to return in r3
int $2A
nop
nop
nop
nop
iretd;
end;


procedure setup_MSR;
asm
pop ecx
mov ebp, esp
int $2A

xor edx, edx
lea eax, sys_enter //загрузить указатель обработчика
mov ecx, MSR_SYSENTER_EIP
wrmsr

mov ecx, MSR_SYSENTER_CS
mov eax, 8 //WinNT kmode selector
wrmsr

mov eax, ebp
mov ecx, MSR_SYSENTER_ESP
wrmsr
iretd
end;

begin
write ('Wait... ');
Setup_MSR;
dwStart := GetTickCount;
for i:= 0 to count do int2A(0,0,0);
Write('int test: ', GetTickCount - dwStart, ', ');

dwStart := GetTickCount;
for i:= 0 to count do sysenter(0,0,0);
Writeln('sysenter test: ', GetTickCount - dwStart);

end.

если бы не дурацкая осбенность IA32

Heavyiron wrote:Кстати, обнаружил некоторую странность: начиная с какой-то ревизии (и в официальном и во flat-kernel) на доске отладки во вкладке USER есть надписи, типа "cess - done", иногда просто буква "e", иногда "New process: loadind" (в зависимости от того, где запускаю). Так и должно быть или это глюк?