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

* only load the low byte of the color in PutPixelX

Browse Source 
git-svn-id: trunk@41044 -
This commit is contained in:
nickysn 2019-01-24 15:43:43 +00:00
parent e80d1564ed
commit 5556757f95
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

@ -2654,7 +2654,7 @@ const CrtAddress: word = 0;
shl ah, cl ; (* Get Plane Select Value *) shl ah, cl ; (* Get Plane Select Value *)
out dx, ax out dx, ax
(* End selection of plane *) (* End selection of plane *)
mov ax,[Color] ; { only lower byte is used. } mov al, byte ptr [Color] ; { only lower byte is used. }
mov es:[di], al mov es:[di], al
@@Done: @@Done:
end; end;