- Updated the test file

This commit is contained in:
Stefan Müller 2010-09-29 23:37:40 +02:00
parent d310f804da
commit 470053a135
1 changed files with 14 additions and 8 deletions

View File

@ -10,15 +10,21 @@ blub { Comment } blub
blub {$R- compiler directive} blub
procedure TForm1.Button1.Click(Sender: TObject);
var // Delphi Comment
Number, I, X: Integer;
Number, I, X: Integer;
begin
Number := 12345 * (2 + 9);
Caption := 'The number is ' + IntToStr(Number);
asm
MOV AX,1234h
MOV Number,AX
end;
X := 10;
Number := 12345 * (2 + 9);
Caption := 'The number is ' + IntToStr(Number);
asm
MOV AX,1234h
MOV Number,AX
end;
X := 10;
end;
\stopPAS
\startPAS
My_Variable := _Variable;
45My_Variable := _Variable45;
&for
\stopPAS
\stoptext