2010-09-29 19:08:31 +02:00
|
|
|
\installprettytype[PAS][PAS]
|
|
|
|
|
\setupcolors[state=start]
|
|
|
|
|
\setuptyping[option=color]
|
|
|
|
|
\definetyping[PAS][option=PAS, escape=yes, tab=4, numbering=line]
|
|
|
|
|
\setuplinenumbering[location=text]
|
|
|
|
|
|
|
|
|
|
\starttext
|
|
|
|
|
\startPAS
|
|
|
|
|
blub { Comment } blub
|
|
|
|
|
blub {$R- compiler directive} blub
|
|
|
|
|
procedure TForm1.Button1.Click(Sender: TObject);
|
|
|
|
|
var // Delphi Comment
|
2010-09-29 23:37:40 +02:00
|
|
|
Number, I, X: Integer;
|
2010-09-29 19:08:31 +02:00
|
|
|
begin
|
2010-09-29 23:37:40 +02:00
|
|
|
Number := 12345 * (2 + 9);
|
|
|
|
|
Caption := 'The number is ' + IntToStr(Number);
|
|
|
|
|
asm
|
|
|
|
|
MOV AX,1234h
|
|
|
|
|
MOV Number,AX
|
|
|
|
|
end;
|
|
|
|
|
X := 10;
|
2010-09-29 19:08:31 +02:00
|
|
|
end;
|
|
|
|
|
\stopPAS
|
2010-09-29 23:37:40 +02:00
|
|
|
|
|
|
|
|
\startPAS
|
|
|
|
|
My_Variable := _Variable;
|
2010-09-30 12:02:22 +02:00
|
|
|
aaa asm for end For END
|
|
|
|
|
aaa aSM foR eNd For END
|
2010-09-29 23:37:40 +02:00
|
|
|
45My_Variable := _Variable45;
|
2010-09-30 12:02:22 +02:00
|
|
|
&for asm blub
|
2010-09-29 23:37:40 +02:00
|
|
|
\stopPAS
|
2010-09-29 19:08:31 +02:00
|
|
|
\stoptext
|
