mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 14:59:37 +01:00
27 lines
930 B
ActionScript
27 lines
930 B
ActionScript
/ code2.as (emx+fpk) -- Copyright (c) 1992-1999-2000 by Eberhard Mattes
|
|
/ Changed for Free Pascal in 1999-2000 by Daniel 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
|