Delphi-Quellcode:
temp = Pointer(Integer(@asmCurrentIsland) - ($B1B5D3 + 5));
procedure asmCurrentIsland;
asm
mov ecx, [esi+$20]
lea eax, [esi+$20]
mov curIsland, edi
end;
der Rest sollte einfacht sein ... es wird einfach nur ein Byte ( $E8 ) an eine bestimmte Stelle geschrieben.