Browse Source

* 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@25484 -
nickysn 12 years ago
parent
commit
19d6d202cd
1 changed files with 2 additions and 2 deletions
  1. 2 2
      rtl/msdos/crt.pp

+ 2 - 2
rtl/msdos/crt.pp

@@ -552,7 +552,7 @@ var
 begin
   regs.ax:=$0100;
   If VidSeg=$b800 then
-    regs.cx:=$90A
+    regs.cx:=$0607
   else
     regs.cx:=$b0d;
   intr($10,regs);
@@ -574,7 +574,7 @@ var
   regs : registers;
 begin
   regs.ax:=$0100;
-  regs.cx:=$10A;
+  regs.cx:=$0007;
   intr($10,regs);
 end;