paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 20:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* replaced 'mov al,es:[si]' with 'seges lodsb' in GetPixel16

Browse Source 
git-svn-id: trunk@40993 -
This commit is contained in:
nickysn 2019-01-22 14:35:32 +00:00
parent 95f2fffaf8
commit 8cf2792c89
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1731,7 +1731,7 @@ end;
{ read plane 0 } { read plane 0 }
dec ax { Select plane to read } dec ax { Select plane to read }
out dx,al out dx,al
mov al,es:[si] seges lodsb
and al,bh and al,bh
rol ah,1 rol ah,1
or ah,al { save bit in AH } or ah,al { save bit in AH }