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

* fixed 16 color vesa get/putpixel offsets (patch by Nikolay Nikolov,

Browse Source 
mantis #16806)

git-svn-id: trunk@15490 -
This commit is contained in:
Jonas Maebe 2010-06-29 09:22:09 +00:00
parent 01f11e8ada
commit 18542d663e
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packages/graph/src/go32v2/vesa.inc
View File

@ -1503,8 +1503,8 @@ end;
Port[$3ce] := 8; { Index 08 : Bitmask register. }
Port[$3cf] := $80 shr (x and $7); { Select correct bits to modify }
dummy := Mem[WinWriteSeg: offs]; { Latch the data into host space. }
Mem[WinWriteSeg: offs] := dummy; { Write the data into video memory }
dummy := Mem[WinWriteSeg: word(offs)]; { Latch the data into host space. }
Mem[WinWriteSeg: word(offs)] := dummy; { Write the data into video memory }
PortW[$3ce] := $ff08; { Enable all bit planes. }
PortW[$3ce] := $0001; { Index 01 : Disable ops on all four planes. }
{ }
@ -1512,7 +1512,8 @@ end;
Function GetPixVESA16(X,Y: smallint):word; {$ifndef fpc}far;{$endif fpc}
Var dummy, offset: Word;
Var dummy: Word;
offset: longint;
shift: byte;
Begin
X:= X + StartXViewPort;
@ -1522,13 +1523,13 @@ end;
Port[$3ce] := 4;
shift := 7 - (X and 7);
Port[$3cf] := 0;
dummy := (Mem[WinReadSeg:offset] shr shift) and 1;
dummy := (Mem[WinReadSeg:word(offset)] shr shift) and 1;
Port[$3cf] := 1;
dummy := dummy or (((Mem[WinReadSeg:offset] shr shift) and 1) shl 1);
dummy := dummy or (((Mem[WinReadSeg:word(offset)] shr shift) and 1) shl 1);
Port[$3cf] := 2;
dummy := dummy or (((Mem[WinReadSeg:offset] shr shift) and 1) shl 2);
dummy := dummy or (((Mem[WinReadSeg:word(offset)] shr shift) and 1) shl 2);
Port[$3cf] := 3;
dummy := dummy or (((Mem[WinReadSeg:offset] shr shift) and 1) shl 3);
dummy := dummy or (((Mem[WinReadSeg:word(offset)] shr shift) and 1) shl 3);
GetPixVESA16 := dummy;
end;
@ -1574,8 +1575,8 @@ end;
Port[$3ce] := 8; { Index 08 : Bitmask register. }
Port[$3cf] := $80 shr (x and $7); { Select correct bits to modify }
dummy := Mem[WinWriteSeg: offs]; { Latch the data into host space. }
Mem[WinWriteSeg: offs] := dummy; { Write the data into video memory }
dummy := Mem[WinWriteSeg: word(offs)]; { Latch the data into host space. }
Mem[WinWriteSeg: word(offs)] := dummy; { Write the data into video memory }
PortW[$3ce] := $ff08; { Enable all bit planes. }
PortW[$3ce] := $0001; { Index 01 : Disable ops on all four planes. }
end;