Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Tree: 4b8d030e14
Branches Tags
freepascal.comp...
/
rtl
/
os2
/
code2.as

code2.as 812 B
History Raw

123456789101112131415161718192021222324252627 
  1. / code2.s (emx+fpk) -- Copyright (c) 1992-1996 by Eberhard Mattes
    2. 

  2. /                      Changed for FPK-Pascal in 1998 by Dani‰l Mantione.
    3. 

  3. /					   This code is _not_ under the Library GNU Public
    4. 

  4. / 					   License, because the original is not. See copying.emx
    5. 

  5. /	 				   for details. You should have received it with this
    6. 

  6. /		 			   product, write the author if you haven't.
    7. 

  7. 

  8. 		.globl  DosGetMessage
    9. 

  9. 		.globl  _msgseg32
    10. 

  10. 

  11. _msgseg32:
    12. 

  12. 		.byte   0xff
    13. 

  13. 		.asciz  "MSGSEG32"
    14. 

  14. 		.byte   0x01, 0x80, 0x00, 0x00
    15. 

  15. 		.long   L_tab
    16. 

  16. 

  17. 		.align  2, 0x90
    18. 

  18. 

  19. DosGetMessage:
    20. 

  20. 		PROFILE_NOFRAME
    21. 

  21. 		popl    %ecx                    /* return address */
    22. 

  22. 		pushl   $_msgseg32
    23. 

  23. 		pushl   %ecx
    24. 

  24. 		jmp     _DOSCALLS$$_DOSTRUEGETMESSAGE$POINTER$PINSERTTABLE$LONGINT$PCHAR$LONGINT$LONGINT$PCHAR$LONGINT
    25. 

  25. 

  26. L_tab:  .short  0x0000
    27. 

  27.         .short  0xffff
    28.