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

* PutPixelX split into pure pascal and asm version

Browse Source 
git-svn-id: trunk@41032 -
This commit is contained in:
nickysn 2019-01-24 15:13:02 +00:00
parent 8e832f31dc
commit bf711c4586
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2591,10 +2591,9 @@ const CrtAddress: word = 0;
end;
end;
Procedure PutPixelX(X,Y: smallint; color:ColorType);
{$ifndef asmgraph}
Procedure PutPixelX(X,Y: smallint; color:ColorType);
var offset: word;
{$endif asmgraph}
begin
{ verify clipping and then convert to absolute coordinates...}
if ClipPixels then
@ -2606,11 +2605,23 @@ const CrtAddress: word = 0;
end;
X:= X + StartXViewPort;
Y:= Y + StartYViewPort;
{$ifndef asmgraph}
offset := y * 80 + x shr 2 + VideoOfs;
PortW[$3c4] := (hi(word(FirstPlane)) shl 8) shl (x and 3)+ lo(word(FirstPlane));
Mem[SegA000:offset] := color;
end;
{$else asmgraph}
Procedure PutPixelX(X,Y: smallint; color:ColorType);
begin
{ verify clipping and then convert to absolute coordinates...}
if ClipPixels then
begin
if (X < 0) or (X > ViewWidth) then
exit;
if (Y < 0) or (Y > ViewHeight) then
exit;
end;
X:= X + StartXViewPort;
Y:= Y + StartYViewPort;
asm
push ax
push bx
@ -2653,8 +2664,8 @@ const CrtAddress: word = 0;
pop bx
pop ax
end;
{$endif asmgraph}
end;
{$endif asmgraph}
Procedure DirectPutPixelX(X,Y: smallint);