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

* moved the loading of the X and Y coordinates to registers in the front of the asm block in PutPixel16

Browse Source 
git-svn-id: trunk@41001 -
This commit is contained in:
nickysn 2019-01-22 16:10:37 +00:00
parent 16c6090f30
commit d299ed7756
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1600,6 +1600,8 @@ end;
X:= X + StartXViewPort; X:= X + StartXViewPort;
Y:= Y + StartYViewPort; Y:= Y + StartYViewPort;
asm asm
mov si, [X]
mov bx, [Y]
{$ifdef FPC_MM_HUGE} {$ifdef FPC_MM_HUGE}
mov ax, SEG SegA000 mov ax, SEG SegA000
mov es, ax mov es, ax
@ -1618,7 +1620,6 @@ end;
{ setup the bit mask register } { setup the bit mask register }
mov al, 8 mov al, 8
{ load the bitmask register } { load the bitmask register }
mov si, [X]
mov cx, si mov cx, si
and cl, 07h and cl, 07h
mov ah, 80h mov ah, 80h
@ -1628,7 +1629,6 @@ end;
mov cl, 3 mov cl, 3
shr si, cl shr si, cl
{ determine the address } { determine the address }
mov bx,[Y]
inc cx { CL=4 } inc cx { CL=4 }
shl bx, cl shl bx, cl
mov di, bx mov di, bx