mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-12 07:32:35 +02:00
bcb942b1dc
+ Final routines in doscalls implemented. * Fixed bugs in dos.pas. * Changed some old $ifdef FPK into $ifdef FPC. - Removed go32 stuff from dos.pas. - Removed '/' to '\' translation from system unit - EMX does this automatically.
19 lines
779 B
ActionScript
19 lines
779 B
ActionScript
/ code2.as (emx+fpk) -- Copyright (c) 1992-1996 by Eberhard Mattes
|
|
/ Changed for FPK-Pascal in 1998 by Dani‰l Mantione.
|
|
/ This code is _not_ under the Library GNU Public
|
|
/ License, because the original is not. See copying.emx
|
|
/ for details. You should have received it with this
|
|
/ product, write the author if you haven't.
|
|
|
|
.globl DosQueryMessageCP
|
|
|
|
DosQueryMessageCP:
|
|
pushl 0(%esp)
|
|
movl $_msgseg32, %eax
|
|
xchgl 20(%esp), %eax
|
|
xchgl 16(%esp), %eax
|
|
xchgl 12(%esp), %eax
|
|
xchgl 8(%esp), %eax
|
|
movl %eax, 4(%esp)
|
|
jmp _DOSCALLS$$_DOSIQUERYMESSAGECP$$$$$LONGINT$PCHAR$LONGINT$POINTER
|