paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 18:19:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* i8086 far data memory model fixes in unit msmouse

Browse Source 
git-svn-id: trunk@27462 -
This commit is contained in:
nickysn 2014-04-04 08:57:14 +00:00
parent b36a98ce51
commit 8efd857d76
1 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
rtl/msdos/msmouse.pp
View File

@ -152,6 +152,7 @@ begin
push bp
int $33
pop bp
{$if defined(FPC_MM_TINY) or defined(FPC_MM_SMALL) or defined(FPC_MM_MEDIUM)}
mov di, x
mov [di], cx
mov word [di + 2], 0
@ -161,6 +162,19 @@ begin
mov di, buttons
mov [di], bx
mov word [di + 2], 0
{$else}
mov ax, ds
lds di, x
mov [di], cx
mov word [di + 2], 0
lds di, y
mov [di], dx
mov word [di + 2], 0
lds di, buttons
mov [di], bx
mov word [di + 2], 0
mov ds, ax
{$endif}
end;
end;
@ -234,12 +248,23 @@ Begin
int $33
pop bp
mov @Result, bx
{$if defined(FPC_MM_TINY) or defined(FPC_MM_SMALL) or defined(FPC_MM_MEDIUM)}
mov di, x
mov [di], cx
mov word [di + 2], 0
mov di, y
mov [di], dx
mov word [di + 2], 0
{$else}
mov si, ds
lds di, x
mov [di], cx
mov word [di + 2], 0
lds di, y
mov [di], dx
mov word [di + 2], 0
mov ds, si
{$endif}
end;
end;
@ -255,12 +280,23 @@ begin
int $33
pop bp
mov @Result, bx
{$if defined(FPC_MM_TINY) or defined(FPC_MM_SMALL) or defined(FPC_MM_MEDIUM)}
mov di, x
mov [di], cx
mov word [di + 2], 0
mov di, y
mov [di], dx
mov word [di + 2], 0
{$else}
mov si, ds
lds di, x
mov [di], cx
mov word [di + 2], 0
lds di, y
mov [di], dx
mov word [di + 2], 0
mov ds, si
{$endif}
end;
end;