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

* Crt.CursorOff: use CX=bash200, instead of CX= for making the cursor invisible; this is the correct value, according to the BIOS documentation I've found and it is also the value used by the go32v2 video unit

Browse Source 
git-svn-id: trunk@25483 -
This commit is contained in:
nickysn 2013-09-14 12:58:38 +00:00
parent 02e054a09e
commit e60c3ee740
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/go32v2/crt.pp
View File

@ -534,7 +534,7 @@ var
regs : trealregs; regs : trealregs;
begin begin
regs.realeax:=$0100; regs.realeax:=$0100;
regs.realecx:=$ffff; regs.realecx:=$0200;
realintr($10,regs); realintr($10,regs);
end; end;

2
rtl/msdos/crt.pp
View File

@ -564,7 +564,7 @@ var
regs : registers; regs : registers;
begin begin
regs.ax:=$0100; regs.ax:=$0100;
regs.cx:=$ffff; regs.cx:=$0200;
intr($10,regs); intr($10,regs);
end; end;

2
rtl/watcom/crt.pp
View File

@ -523,7 +523,7 @@ var
regs : trealregs; regs : trealregs;
begin begin
regs.realeax:=$0100; regs.realeax:=$0100;
regs.realecx:=$ffff; regs.realecx:=$0200;
realintr($10,regs); realintr($10,regs);
end; end;