- Updated the test file
This commit is contained in:
parent
d310f804da
commit
470053a135
|
@ -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
|
Loading…
Reference in New Issue