paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 23:21:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use only 8086/8088-compatible instructions in the asm GetPixelX

Browse Source 
git-svn-id: trunk@41017 -
This commit is contained in:
nickysn 2019-01-23 15:02:38 +00:00
parent f06cb31746
commit d5b8e84352
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2501,9 +2501,11 @@ const CrtAddress: word = 0;
{$endif FPC_MM_HUGE}
mov di,[Y] ; (* DI = Y coordinate *)
(* Multiply by 80 start *)
mov cl, 4
shl di, cl
mov bx, di
shl di, 6 ; (* Faster on 286/386/486 machines *)
shl bx, 4
shl di, 1
shl di, 1
add di, bx ; (* Multiply Value by 80 *)
(* End multiply by 80 *)
mov cx, [X]