testasmlabel.out

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

unit TestAsmLabel;

{ AFS 15 Jan 2006
 This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility

  Test labels and numeric consts in asm
 }


interface

implementation


procedure Test;
label
  lbl;
asm
         lbl: MOV EAX, [EAX+20h]
end;

end.