testasmlabel.out

格式化源码的最新板

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.