paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 10:40:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* support 4 pages (instead of 3) in the 640x200 EGA mode in the msdos graph unit as well

Browse Source 
git-svn-id: trunk@30285 -
This commit is contained in:
nickysn 2015-03-22 23:05:40 +00:00
parent 20033d1af2
commit 9d8f0493cd
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/graph/src/msdos/graph.pp
View File

@ -2261,7 +2261,7 @@ End;
procedure SetVisual200(page: word); {$ifndef fpc}far;{$endif fpc}
{ two page supPort... }
{ four page support... }
begin
if page > HardwarePages then exit;
asm
@ -2296,12 +2296,13 @@ End;
end;
procedure SetActive200(page: word); {$ifndef fpc}far;{$endif fpc}
{ two page supPort... }
{ four page support... }
begin
case page of
0 : VideoOfs := 0;
1 : VideoOfs := 16384;
2 : VideoOfs := 32768;
3 : VideoOfs := 49152;
else
VideoOfs := 0;
end;
@ -3447,7 +3448,7 @@ const CrtAddress: word = 0;
mode.ModeName:='640 x 200 EGA';
mode.MaxX := 639;
mode.MaxY := 199;
mode.HardwarePages := 2;
mode.HardwarePages := 3;
mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisual200;
mode.SetActivePage := {$ifdef fpc}@{$endif}SetActive200;
mode.InitMode := {$ifdef fpc}@{$endif}Init640x200x16;
@ -3620,7 +3621,7 @@ const CrtAddress: word = 0;
mode.ModeName:='640 x 200 EGA'; { yes, it says 'EGA' even for the VGA driver; this is TP7 compatible }
mode.MaxX := 639;
mode.MaxY := 199;
mode.HardwarePages := 2;
mode.HardwarePages := 3;
mode.SetVisualPage := {$ifdef fpc}@{$endif}SetVisual200;
mode.SetActivePage := {$ifdef fpc}@{$endif}SetActive200;
mode.InitMode := {$ifdef fpc}@{$endif}Init640x200x16;