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

* PutPixel320 converted to pure assembler routine

Browse Source 
git-svn-id: trunk@40924 -
This commit is contained in:
nickysn 2019-01-19 22:07:03 +00:00
parent 25c3981236
commit 28bb659a1c
1 changed files with 28 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2237,43 +2237,41 @@ End;
Mem[SegA000:Y*320+X] := Pixel;
end;
{$else asmgraph}
Procedure PutPixel320(X,Y : smallint; Pixel: ColorType);
Begin
asm
Procedure PutPixel320(X,Y : smallint; Pixel: ColorType); assembler;
asm
{$ifdef FPC_MM_HUGE}
mov ax, SEG SegA000
mov es, ax
mov es, es:[SegA000]
mov ax, SEG SegA000
mov es, ax
mov es, es:[SegA000]
{$else FPC_MM_HUGE}
mov es, [SegA000]
mov es, [SegA000]
{$endif FPC_MM_HUGE}
mov ax, [Y]
mov di, [X]
cmp byte ptr [ClipPixels], 0
je @@ClipDone
mov ax, [Y]
mov di, [X]
cmp byte ptr [ClipPixels], 0
je @@ClipDone
test ax, ax
js @@Done
test di, di
js @@Done
cmp ax, [ViewHeight]
jg @@Done
cmp di, [ViewWidth]
jg @@Done
test ax, ax
js @@Done
test di, di
js @@Done
cmp ax, [ViewHeight]
jg @@Done
cmp di, [ViewWidth]
jg @@Done
@@ClipDone:
add ax, [StartYViewPort]
add di, [StartXViewPort]
xchg ah, al { The value of Y must be in AH }
add di, ax
shr ax, 1
shr ax, 1
add di, ax
mov al, byte ptr [Pixel]
stosb
add ax, [StartYViewPort]
add di, [StartXViewPort]
xchg ah, al { The value of Y must be in AH }
add di, ax
shr ax, 1
shr ax, 1
add di, ax
mov al, byte ptr [Pixel]
stosb
@@Done:
end ['ax','di'];
end;
end;
{$endif asmgraph}