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

+ enabled the Hercules code in the i8086-msdos graph unit

Browse Source 
git-svn-id: trunk@25658 -
This commit is contained in:
nickysn 2013-10-05 19:18:11 +00:00
parent 54a34391a1
commit 836ec24fb1
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -156,7 +156,7 @@ const
{* 720x348x2 Hercules mode routines *} {* 720x348x2 Hercules mode routines *}
{************************************************************************} {************************************************************************}
(*var var
DummyHGCBkColor: Word; DummyHGCBkColor: Word;
procedure InitHGC720; procedure InitHGC720;
@ -171,7 +171,16 @@ begin
for I := 0 to 11 do for I := 0 to 11 do
PortW[$3B4] := I or (RegValues[I] shl 8); PortW[$3B4] := I or (RegValues[I] shl 8);
Port[$3B8] := 10; { display page 0, graphic mode, display on } Port[$3B8] := 10; { display page 0, graphic mode, display on }
DosMemFillChar($B000, 0, 65536, #0); // DosMemFillChar($B000, 0, 65536, #0);
asm
mov ax, $B000
mov es, ax
mov cx, 32768
xor di, di
xor ax, ax
cld
rep stosw
end ['ax','cx','di'];
VideoOfs := 0; VideoOfs := 0;
DummyHGCBkColor := 0; DummyHGCBkColor := 0;
end; end;
@ -514,7 +523,7 @@ begin
VideoOfs := 0; VideoOfs := 0;
end; end;
end; end;
*)
{************************************************************************} {************************************************************************}
{* 320x200x4 CGA mode routines *} {* 320x200x4 CGA mode routines *}
{************************************************************************} {************************************************************************}
@ -3270,7 +3279,7 @@ const CrtAddress: word = 0;
{ check if CGA adapter supPorted ... } { check if CGA adapter supPorted ... }
CGADetected := Test6845($3D4); CGADetected := Test6845($3D4);
end; end;
(* if HGCDetected then if HGCDetected then
begin begin
{ HACK: { HACK:
until we create Save/RestoreStateHGC, we use Save/RestoreStateVGA until we create Save/RestoreStateHGC, we use Save/RestoreStateVGA
@ -3305,7 +3314,7 @@ const CrtAddress: word = 0;
mode.XAspect := 7500; mode.XAspect := 7500;
mode.YAspect := 10000; mode.YAspect := 10000;
AddMode(mode); AddMode(mode);
end;*) end;
if CGADetected or EGADetected then if CGADetected or EGADetected then
begin begin
{ HACK: { HACK: