littletest40.out

来自「格式化源码的最新板」· OUT 代码 · 共 22 行

unit littletest40;

interface

implementation

procedure foo;
begin
  asm
           @foo_@bar_:
           MOV     ECX,(type tinitcontext)/4
           LEA     EDI,[EBP-(type foo)-(type foo)]
           MOV     FS:[EAX],ECX
           LEA     ESI,[EAX]+offset foo
           FMUL    qword ptr[EBX]+offset foo
           INC     EDX
           AND     [EAX],CH
  end;
end;

end.