Browse Source

* renamed

daniel 27 years ago
parent
commit
56cd6619b1
2 changed files with 43 additions and 0 deletions
  1. 27 0
      rtl/os2/code2.as
  2. 16 0
      rtl/os2/code3.as

+ 27 - 0
rtl/os2/code2.as

@@ -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 - 0
rtl/os2/code3.as

@@ -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