浏览代码

* 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 年之前
父节点
当前提交
19d6d202cd
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      rtl/msdos/crt.pp

+ 2 - 2
rtl/msdos/crt.pp

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