mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-30 00:52:35 +01: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.
27 lines
919 B
ActionScript
27 lines
919 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 DosGetMessage
|
|
.globl _msgseg32
|
|
|
|
_msgseg32:
|
|
.byte 0xff
|
|
.asciz "MSGSEG32"
|
|
.byte 0x01, 0x80, 0x00, 0x00
|
|
.long L_tab
|
|
|
|
.align 2, 0x90
|
|
|
|
DosGetMessage:
|
|
popl %ecx /* return address */
|
|
pushl $_msgseg32
|
|
pushl %ecx
|
|
jmp _DOSCALLS$$_DOSTRUEGETMESSAGE$POINTER$PINSERTTABLE$LONGINT$PCHAR$LONGINT$LONGINT$PCHAR$LONGINT
|
|
|
|
L_tab: .short 0x0000
|
|
.short 0xffff
|