mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-10 07:46:08 +02:00
* renamed
This commit is contained in:
parent
010d2a6bed
commit
56cd6619b1
27
rtl/os2/code2.as
Normal file
27
rtl/os2/code2.as
Normal file
@ -0,0 +1,27 @@
|
|||||||
|
/ code2.s (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:
|
||||||
|
PROFILE_NOFRAME
|
||||||
|
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
|
16
rtl/os2/code3.as
Normal file
16
rtl/os2/code3.as
Normal file
@ -0,0 +1,16 @@
|
|||||||
|
/ code3.s (emx+gcc) -- Copyright (c) 1992-1996 by Eberhard Mattes
|
||||||
|
|
||||||
|
#include <emx/asm386.h>
|
||||||
|
|
||||||
|
.globl _DosQueryMessageCP
|
||||||
|
|
||||||
|
_DosQueryMessageCP:
|
||||||
|
PROFILE_NOFRAME
|
||||||
|
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 _DosIQueryMessageCP
|
Loading…
Reference in New Issue
Block a user