testinline.obs

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

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.