From 19d6d202cd991902901dae622c1160f97aa55be5 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sat, 14 Sep 2013 13:28:40 +0000
Subject: [PATCH] * 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 -
---
 rtl/msdos/crt.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/msdos/crt.pp b/rtl/msdos/crt.pp
index 1ce374b93f..7b35d0bebe 100644
--- a/rtl/msdos/crt.pp
+++ b/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;