testinline.out

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

unit testinline;

interface

implementation

procedure fillword(var dest; Count: word; Data: word);
begin
  inline($C4 / e / < dest / b / e / < count / b $FC / $F3 / $AB);
end;

end.