git-svn-id: trunk@25487 -
@@ -534,7 +534,7 @@ var
regs : trealregs;
begin
regs.realeax:=$0100;
- regs.realecx:=$0200;
+ regs.realecx:=$2000;
realintr($10,regs);
end;
@@ -564,7 +564,7 @@ var
regs : registers;
regs.ax:=$0100;
- regs.cx:=$0200;
+ regs.cx:=$2000;
intr($10,regs);
@@ -523,7 +523,7 @@ var