jmpcall_demo.dpr

来自「第2章“BASM(Borland汇编语言)精要”中的全部示例代码。包括： 」· DPR 代码 · 共 24 行

{$APPTYPE CONSOLE}

procedure proc;
begin
  writeln('JmpCall to here...');
end;

procedure JmpCall;
const
  resp : INTEGER = 0;
begin
  asm
    DB $E8, $0, $0, $0, $0, $8F, $04, $24, $83, $04, $24, $0C
    jmp proc
  end;

  writeln('come back here...');
end;

begin
  Jmpcall;

readln;
end.