testasmops.out

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

OUT
33
字号
unit TestAsmOps;

{ AFS 27 March 2000
 This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility

  Sourceforge bug #1567643
}

interface

uses Windows;

implementation

function ASMSQRT(F: single): single; assembler;
asm
         FLD     F;
         FSQRT;
         FSTP    Result;
end;

procedure foo;
asm
         //blabla1
         MOVSD;
         MOVSD;
         MOVSD // blabla2
         MOVSD //blabla3
end;

end.

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?