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

* optimized all 16-colour routines to use 16-bit port writes to the EGA/VGA Graphics Controller

Browse Source 
git-svn-id: trunk@15964 -
This commit is contained in:
nickysn 2010-09-10 20:42:12 +00:00
parent 948234c558
commit 2ee1718e35
2 changed files with 50 additions and 76 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

80
packages/graph/src/go32v2/graph.pp
View File

@ -1532,8 +1532,7 @@ end;
PortW[$3ce] := $0f01; { Index 01 : Enable ops on all 4 planes }
PortW[$3ce] := (Pixel and $ff) shl 8; { Index 00 : Enable correct plane and write color }
Port[$3ce] := 8;
Port[$3cf] := $80 shr (x and $7); { Select correct bits to modify }
PortW[$3ce] := ($8000 shr (x and $7)) or 8; { Select correct bits to modify }
dummy := Mem[SegA000: offset]; { Latch the data into host space. }
Mem[Sega000: offset] := dummy; { Write the data into video memory }
PortW[$3ce] := $ff08; { Enable all bit planes. }
@ -1653,9 +1652,8 @@ end;
Y:= Y + StartYViewPort;
{$ifndef asmgraph}
offset := Y * 80 + (x shr 3) + VideoOfs;
Port[$3ce] := 4;
PortW[$3ce] := $0004;
shift := 7 - (X and 7);
Port[$3cf] := 0;
dummy := (Mem[Sega000:offset] shr shift) and 1;
Port[$3cf] := 1;
dummy := dummy or (((Mem[Sega000:offset] shr shift) and 1) shl 1);
@ -1851,9 +1849,8 @@ Begin
LogLn('amount left: ' + strf(amount));
{$Endif logging}
If amount = 0 Then Exit;
Port[$3ce] := 4;
{ first get everything from plane 3 (4th plane) }
Port[$3cf] := 3;
PortW[$3ce] := $0304;
Count := 0;
For Count := 1 to (amount shr 5) Do
Begin
@ -1977,8 +1974,7 @@ End;
offset := Y * 80 + (X shr 3) + VideoOfs;
PortW[$3ce] := $f01;
PortW[$3ce] := Color shl 8;
Port[$3ce] := 8;
Port[$3cf] := $80 shr (X and 7);
PortW[$3ce] := ($8000 shr (X and 7)) or 8;
dummy := Mem[SegA000: offset];
Mem[Sega000: offset] := dummy;
PortW[$3ce] := $ff08;
@ -2137,28 +2133,24 @@ End;
{$endif}
if HLength=0 then
LMask:=LMask and RMask;
Port[$3ce]:=0;
If CurrentWriteMode <> NotPut Then
Port[$3cf]:= CurrentColor
else Port[$3cf]:= not CurrentColor;
Port[$3ce]:=1;
Port[$3cf]:=$f;
Port[$3ce]:=3;
PortW[$3ce]:= CurrentColor shl 8
else PortW[$3ce]:= (not CurrentColor) shl 8;
PortW[$3ce]:=$0f01;
case CurrentWriteMode of
XORPut:
Port[$3cf]:=3 shl 3;
PortW[$3ce]:=((3 shl 3) shl 8) or 3;
ANDPut:
Port[$3cf]:=1 shl 3;
PortW[$3ce]:=((1 shl 3) shl 8) or 3;
ORPut:
Port[$3cf]:=2 shl 3;
PortW[$3ce]:=((2 shl 3) shl 8) or 3;
NormalPut, NotPut:
Port[$3cf]:=0
PortW[$3ce]:=$0003
else
Port[$3cf]:=0
PortW[$3ce]:=$0003
end;
Port[$3ce]:=8;
Port[$3cf]:=LMask;
PortW[$3ce]:=(LMask shl 8) or 8;
{$ifopt r+}
{$define rangeOn}
{$r-}
@ -2176,7 +2168,7 @@ End;
{$undef overflowOn}
{$q+}
{$endif}
Port[$3ce]:=8;
{Port[$3ce]:=8;}{not needed, the register is already selected}
if HLength>0 then
begin
dec(HLength);
@ -2211,13 +2203,10 @@ End;
{$endif}
end;
{ clean up }
Port[$3cf]:=0;
Port[$3ce]:=8;
Port[$3cf]:=$ff;
Port[$3ce]:=1;
Port[$3cf]:=0;
Port[$3ce]:=3;
Port[$3cf]:=0;
{Port[$3cf]:=0;}{not needed, the register is reset by the next operation:}
PortW[$3ce]:=$ff08;
PortW[$3ce]:=$0001;
PortW[$3ce]:=$0003;
end;
procedure VLine16(x,y,y2: smallint); {$ifndef fpc}far;{$endif fpc}
@ -2247,26 +2236,22 @@ End;
end;
ScrOfs:=y*ScrWidth+x div 8 + VideoOfs;
BitMask:=$80 shr (x and 7);
Port[$3ce]:=0;
If CurrentWriteMode <> NotPut Then
Port[$3cf]:= CurrentColor
else Port[$3cf]:= not CurrentColor;
Port[$3ce]:=1;
Port[$3cf]:=$f;
Port[$3ce]:=8;
Port[$3cf]:=BitMask;
Port[$3ce]:=3;
PortW[$3ce]:= (CurrentColor shl 8)
else PortW[$3ce]:= (not CurrentColor) shl 8;
PortW[$3ce]:=$0f01;
PortW[$3ce]:=(BitMask shl 8) or 8;
case CurrentWriteMode of
XORPut:
Port[$3cf]:=3 shl 3;
PortW[$3ce]:=((3 shl 3) shl 8) or 3;
ANDPut:
Port[$3cf]:=1 shl 3;
PortW[$3ce]:=((1 shl 3) shl 8) or 3;
ORPut:
Port[$3cf]:=2 shl 3;
PortW[$3ce]:=((2 shl 3) shl 8) or 3;
NormalPut, NotPut:
Port[$3cf]:=0
PortW[$3ce]:=$0003
else
Port[$3cf]:=0
PortW[$3ce]:=$0003
end;
for i:=y to y2 do
begin
@ -2290,13 +2275,10 @@ End;
ScrOfs:=ScrOfs+ScrWidth;
end;
{ clean up }
Port[$3cf]:=0;
Port[$3ce]:=8;
Port[$3cf]:=$ff;
Port[$3ce]:=1;
Port[$3cf]:=0;
Port[$3ce]:=3;
Port[$3cf]:=0;
{Port[$3cf]:=0;}{not needed, the register is reset by the next operation}
PortW[$3ce]:=$ff08;
PortW[$3ce]:=$0001;
PortW[$3ce]:=$0003;
End;

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

@ -1511,8 +1511,8 @@ end;
PortW[$3ce] := $0f01; { Index 01 : Enable ops on all 4 planes }
PortW[$3ce] := color shl 8; { Index 00 : Enable correct plane and write color }
Port[$3ce] := 8; { Index 08 : Bitmask register. }
Port[$3cf] := $80 shr (x and $7); { Select correct bits to modify }
{ Index 08 : Bitmask register. }
PortW[$3ce] := ($8000 shr (x and $7)) or 8; { Select correct bits to modify }
dummy := Mem[WinReadSeg: word(offs)]; { Latch the data into host space. }
Mem[WinWriteSeg: word(offs)] := dummy; { Write the data into video memory }
@ -1531,9 +1531,8 @@ end;
Y:= Y + StartYViewPort + YOffset;
offset := longint(Y) * BytesPerLine + (x div 8);
SetReadBank(smallint(offset shr 16));
Port[$3ce] := 4;
PortW[$3ce] := $0004;
shift := 7 - (X and 7);
Port[$3cf] := 0;
dummy := (Mem[WinReadSeg:word(offset)] shr shift) and 1;
Port[$3cf] := 1;
dummy := dummy or (((Mem[WinReadSeg:word(offset)] shr shift) and 1) shl 1);
@ -1584,8 +1583,8 @@ end;
PortW[$3ce] := $0f01; { Index 01 : Enable ops on all 4 planes }
PortW[$3ce] := color shl 8; { Index 00 : Enable correct plane and write color }
Port[$3ce] := 8; { Index 08 : Bitmask register. }
Port[$3cf] := $80 shr (x and $7); { Select correct bits to modify }
{ Index 08 : Bitmask register. }
PortW[$3ce] := ($8000 shr (x and $7)) or 8; { Select correct bits to modify }
dummy := Mem[WinReadSeg: word(offs)]; { Latch the data into host space. }
Mem[WinWriteSeg: word(offs)] := dummy; { Write the data into video memory }
@ -1644,28 +1643,24 @@ end;
{$endif}
if HLength=0 then
LMask:=LMask and RMask;
Port[$3ce]:=0;
If CurrentWriteMode <> NotPut Then
Port[$3cf]:= CurrentColor
else Port[$3cf]:= not CurrentColor;
Port[$3ce]:=1;
Port[$3cf]:=$f;
Port[$3ce]:=3;
PortW[$3ce]:= CurrentColor shl 8
else PortW[$3ce]:= (not CurrentColor) shl 8;
PortW[$3ce]:=$0f01;
case CurrentWriteMode of
XORPut:
Port[$3cf]:=3 shl 3;
PortW[$3ce]:=((3 shl 3) shl 8) or 3;
ANDPut:
Port[$3cf]:=1 shl 3;
PortW[$3ce]:=((1 shl 3) shl 8) or 3;
ORPut:
Port[$3cf]:=2 shl 3;
PortW[$3ce]:=((2 shl 3) shl 8) or 3;
NormalPut, NotPut:
Port[$3cf]:=0
PortW[$3ce]:=$0003
else
Port[$3cf]:=0
PortW[$3ce]:=$0003
end;
Port[$3ce]:=8;
Port[$3cf]:=LMask;
PortW[$3ce]:=(LMask shl 8) or 8;
{$ifopt r+}
{$define rangeOn}
{$r-}
@ -1683,7 +1678,7 @@ end;
{$undef overflowOn}
{$q+}
{$endif}
Port[$3ce]:=8;
{Port[$3ce]:=8;}{not needed, the register is already selected}
if HLength>0 then
begin
dec(HLength);
@ -1727,13 +1722,10 @@ end;
{$endif}
end;
{ clean up }
Port[$3cf]:=0;
Port[$3ce]:=8;
Port[$3cf]:=$ff;
Port[$3ce]:=1;
Port[$3cf]:=0;
Port[$3ce]:=3;
Port[$3cf]:=0;
{Port[$3cf]:=0;}{not needed, the register is reset by the next operation:}
PortW[$3ce]:=$ff08;
PortW[$3ce]:=$0001;
PortW[$3ce]:=$0003;
end;