paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 23:29:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* yet another mov eliminated by using different registers in GetPixel16

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

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

@ -1618,14 +1618,13 @@ 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 bx, [X] mov si, [X]
mov cl, bl mov cx, si
and cl, 07h and cl, 07h
mov ah, 80h mov ah, 80h
shr ah, cl shr ah, cl
out dx, ax out dx, ax
{ get the x index and divide by 8 for 16-color } { get the x index and divide by 8 for 16-color }
mov si, bx
mov cl, 3 mov cl, 3
shr si, cl shr si, cl
{ determine the address } { determine the address }