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

* use huge memory model compatible initialization of es=SegA000 in the asm

Browse Source 
version of DirectPutPixel16

git-svn-id: trunk@40900 -
This commit is contained in:
nickysn 2019-01-19 10:58:18 +00:00
parent c986e5891a
commit 24f0625ee8
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1942,7 +1942,13 @@ End;
end;
{ note: still needs xor/or/and/notput support !!!!! (JM) }
asm
{$ifdef FPC_MM_HUGE}
mov ax, SEG SegA000
mov es, ax
mov es, es:[SegA000]
{$else FPC_MM_HUGE}
mov es, [SegA000]
{$endif FPC_MM_HUGE}
{ enable the set / reset function and load the color }
mov dx, 3ceh
mov ax, 0f01h