* Crt.CursorOn and CursorBig: use CX values that are CGA compatible, which makes them CGA/EGA/VGA compatible, because EGA/VGA bioses emulate CGA cursor values; as a side effect this also makes these functions work properly under EGA/VGA's 43- and 50-line text modes

git-svn-id: trunk@25485 -

rtl/go32v2/crt.pp

@@ -522,7 +522,7 @@ var
 begin
   regs.realeax:=$0100;
   If VidSeg=$b800 then
-    regs.realecx:=$90A
+    regs.realecx:=$0607
   else
     regs.realecx:=$b0d;
   realintr($10,regs);
@@ -544,7 +544,7 @@ var
   regs : trealregs;
 begin
   regs.realeax:=$0100;
-  regs.realecx:=$10A;
+  regs.realecx:=$0007;
   realintr($10,regs);
 end;
 

rtl/watcom/crt.pp

@@ -511,7 +511,7 @@ var
 begin
   regs.realeax:=$0100;
   If VidSeg=$b800 then
-    regs.realecx:=$90A
+    regs.realecx:=$0607
   else
     regs.realecx:=$b0d;
   realintr($10,regs);
@@ -533,7 +533,7 @@ var
   regs : trealregs;
 begin
   regs.realeax:=$0100;
-  regs.realecx:=$10A;
+  regs.realecx:=$0007;
   realintr($10,regs);
 end;