annotate testproject/test.mod @ 18:6129643f5c34
Fixed interrupt issue, ds, es, ss, fs and gs were not initialized to 0
| author |
windel |
| date |
Sun, 20 Nov 2011 20:35:51 +0100 |
| parents |
edd70006d3e4 |
| children |
|
| rev |
line source |
|
8
|
1 module test;
|
|
|
2 var
|
|
|
3 a,b,c : integer;
|
|
|
4
|
|
|
5 procedure test(x:integer);
|
|
|
6 var y,z:integer;
|
|
|
7 begin
|
|
|
8 y := x * 3 + 2;
|
|
|
9 z := x + y + a;
|
|
|
10 end test;
|
|
|
11
|
|
|
12 procedure add(a:integer; b:integer):integer;
|
|
|
13 var
|
|
|
14 tmp : integer;
|
|
|
15 begin
|
|
|
16 tmp := a + b;
|
|
|
17 return tmp
|
|
|
18 end add;
|
|
|
19
|
|
|
20 begin
|
|
|
21 a := 12;
|
|
|
22 b := a * 12 + 33;
|
|
|
23 c := a div b + a * b * 99;
|
|
|
24 end test.
|
|
|
25
|
