code3.as 790 B

123456789101112131415161718
  1. / code2.as (emx+fpk) -- Copyright (c) 1992-1999-2000 by Eberhard Mattes
  2. / Changed for Free Pascal in 1999-2000 by Daniel Mantione.
  3. / This code is _not_ under the Library GNU Public
  4. / License, because the original is not. See copying.emx
  5. / for details. You should have received it with this
  6. / product, write the author if you haven't.
  7. .globl DosQueryMessageCP
  8. DosQueryMessageCP:
  9. pushl 0(%esp)
  10. movl $_msgseg32, %eax
  11. xchgl 20(%esp), %eax
  12. xchgl 16(%esp), %eax
  13. xchgl 12(%esp), %eax
  14. xchgl 8(%esp), %eax
  15. movl %eax, 4(%esp)
  16. jmp _DOSCALLS$$_DOSIQUERYMESSAGECP$$$$$LONGINT$PCHAR$LONGINT$POINTER