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

* moved the ES segment register initialization earlier in PutPixelX

Browse Source 
git-svn-id: trunk@41040 -
This commit is contained in:
nickysn 2019-01-24 15:32:46 +00:00
parent 933dd5b0cc
commit 6cc00c887f
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

@ -2631,6 +2631,7 @@ const CrtAddress: word = 0;
jg @@Done
@@ClipDone:
mov es, [SegA000]
add di, [StartYViewPort]
(* Multiply by 80 start *)
mov cl, 4
@ -2654,7 +2655,6 @@ const CrtAddress: word = 0;
shl ah, cl ; (* Get Plane Select Value *)
out dx, ax
(* End selection of plane *)
mov es,[SegA000]
mov ax,[Color] ; { only lower byte is used. }
mov es:[di], al
@@Done: