procedure SwitchToFiber( p:Pointer);stdcall;
asm pop ebp //作られたスタックフレームを戻す
mov edx,fs:[$18] ; mov eax,[edx+$10] ; mov ecx,esp ;//EDX,EAX,ECXは壊れる
mov [eax+$b8],ebx ;
mov [eax+$b0],edi ;
mov [eax+$b4],esi ;
mov [eax+$c8],ebp ;
mov ebx,[esp]
add ecx,$08
mov [eax+$d8],ecx
mov [eax+$cc],ebx
mov ecx,[edx]
mov ebx,[edx+$08]
mov [eax+$04],ecx
mov [eax+$0c],ebx
mov eax,[esp+$04]
mov ecx,[eax+$04]
mov ebx,[eax+$08]
mov esi,[eax+$0c]
mov edi,[eax+$10]
mov [edx],ecx
mov [edx+$04],ebx
mov [edx+$08],esi
mov [edx+$00000e0c],edi
mov [edx+$10],eax
mov edi,[eax+$b0]
mov esi,[eax+$b4]
mov ebp,[eax+$c8]
mov ebx,[eax+$b8]
mov esp,[eax+$d8]
push [eax+$cc];
ret; end;