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

* PutPixel16 converted to pure asm routine

Browse Source 
git-svn-id: trunk@41004 -
This commit is contained in:
nickysn 2019-01-22 16:40:51 +00:00
parent 1533f1e218
commit 7c4466025a
1 changed files with 58 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1587,8 +1587,7 @@ end;
PortW[$3ce] := $0001; { Index 01 : Disable ops on all four planes. }
end;
{$else asmgraph}
Procedure PutPixel16(X,Y : smallint; Pixel: ColorType);
Begin
Procedure PutPixel16(X,Y : smallint; Pixel: ColorType); assembler;
asm
mov si, [X]
mov bx, [Y]
@ -1654,7 +1653,6 @@ end;
mov ax,0001h
out dx,ax
@@Done:
end ['AX','BX','CX','DX','SI','DI'];
end;
{$endif asmgraph}