* PutPixelX converted to a pure assembler routine

git-svn-id: trunk@41042 -
This commit is contained in:
nickysn 2019-01-24 15:37:37 +00:00
parent a190d65f92
commit a22ac81677

View File

@ -2606,8 +2606,7 @@ const CrtAddress: word = 0;
Mem[SegA000:offset] := color; Mem[SegA000:offset] := color;
end; end;
{$else asmgraph} {$else asmgraph}
Procedure PutPixelX(X,Y: smallint; color:ColorType); Procedure PutPixelX(X,Y: smallint; color:ColorType); assembler;
begin
asm asm
push ax push ax
push bx push bx
@ -2671,7 +2670,6 @@ const CrtAddress: word = 0;
pop bx pop bx
pop ax pop ax
end; end;
end;
{$endif asmgraph} {$endif asmgraph}