|
@@ -2332,7 +2332,13 @@ End;
|
|
Procedure DirectPutPixel320(X,Y : smallint); assembler;
|
|
Procedure DirectPutPixel320(X,Y : smallint); assembler;
|
|
{ note: still needs or/and/notput support !!!!! (JM) }
|
|
{ note: still needs or/and/notput support !!!!! (JM) }
|
|
asm
|
|
asm
|
|
|
|
+{$ifdef FPC_MM_HUGE}
|
|
|
|
+ mov ax, SEG SegA000
|
|
|
|
+ mov es, ax
|
|
|
|
+ mov es, es:[SegA000]
|
|
|
|
+{$else FPC_MM_HUGE}
|
|
mov es, [SegA000]
|
|
mov es, [SegA000]
|
|
|
|
+{$endif FPC_MM_HUGE}
|
|
mov ax, [Y]
|
|
mov ax, [Y]
|
|
mov di, [X]
|
|
mov di, [X]
|
|
xchg ah, al { The value of Y must be in AH }
|
|
xchg ah, al { The value of Y must be in AH }
|