mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 00:09:25 +02:00
* moved the loading of the X and Y coordinates to registers in the front of the asm block in PutPixel16
git-svn-id: trunk@41001 -
This commit is contained in:
parent
16c6090f30
commit
d299ed7756
@ -1600,6 +1600,8 @@ end;
|
||||
X:= X + StartXViewPort;
|
||||
Y:= Y + StartYViewPort;
|
||||
asm
|
||||
mov si, [X]
|
||||
mov bx, [Y]
|
||||
{$ifdef FPC_MM_HUGE}
|
||||
mov ax, SEG SegA000
|
||||
mov es, ax
|
||||
@ -1618,7 +1620,6 @@ end;
|
||||
{ setup the bit mask register }
|
||||
mov al, 8
|
||||
{ load the bitmask register }
|
||||
mov si, [X]
|
||||
mov cx, si
|
||||
and cl, 07h
|
||||
mov ah, 80h
|
||||
@ -1628,7 +1629,6 @@ end;
|
||||
mov cl, 3
|
||||
shr si, cl
|
||||
{ determine the address }
|
||||
mov bx,[Y]
|
||||
inc cx { CL=4 }
|
||||
shl bx, cl
|
||||
mov di, bx
|
||||
|
Loading…
Reference in New Issue
Block a user