littletest40.obs

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

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.