paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 17:20:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* 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

Browse Source 
git-svn-id: trunk@25485 -
This commit is contained in:
nickysn 2013-09-14 13:28:48 +00:00
parent 19d6d202cd
commit 4d4ad5734b
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/go32v2/crt.pp
View File

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

4
rtl/watcom/crt.pp
View File

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