testasmops.out

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

unit testasmops;

interface

uses Windows;

implementation

function asmsqrt(f: single): single; assembler;
asm
         FLD     f;
         FSQRT;
         FSTP    result;
end;

procedure foo;
asm
         MOVSD;
         MOVSD;
         MOVSD
         MOVSD
end;

end.