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: c400fbe5b2
Branches Tags
freepascal.comp...
/
rtl
/
os2
/
prt1.as

prt1.as 1.9 KB
History Raw

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162 
  1. / prt1.s (emx+fpk) -- Made from crt2.s and dos.s,
    2. 

  2. /                     Copyright (c) 1990-1999-2000 by Eberhard Mattes.
    3. 

  3. /                     Changed for Free Pascal in 1997 Daniel Mantione.
    4. 

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

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

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

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

  8. 

  9.                 .globl  __entry1
    10. 

  10. / Heh. Not needed anymore.
    11. 

  11. /                .globl  _environ
    12. 

  12. /                .globl  _envc
    13. 

  13. /                .globl  _argv
    14. 

  14. /                .globl  _argc
    15. 

  15. 

  16.                 .text
    17. 

  17. 

  18. __entry1:
    19. 

  19.                 popl    %esi
    20. 

  20.                 cld
    21. 

  21.                 xorl    %ebp, %ebp
    22. 

  22.                 leal    (%esp), %edi      /* argv[] */
    23. 

  23.                 movl    %edi,_environ
    24. 

  24.                 call    L_ptr_tbl
    25. 

  25.                 movl    %ecx,_envc
    26. 

  26.                 movl    %edi,_argv
    27. 

  27.                 call    L_ptr_tbl
    28. 

  28.                 movl    %ecx,_argc
    29. 

  29.                 jmp     *%esi
    30. 

  30. 

  31. L_ptr_tbl:
    32. 

  32.                 xorl    %eax, %eax
    33. 

  33.                 movl    $-1, %ecx
    34. 

  34. 1:              incl    %ecx
    35. 

  35.                 scasl
    36. 

  36.                 jne     1b
    37. 

  37.                 ret
    38. 

  38. 

  39. / In executables created with emxbind, the call to _dos_init will
    40. 

  40. / be fixed up at load time to _emx_init of emx.dll.  Under DOS,
    41. 

  41. / this dummy is called instead as there is no fixup.  This module
    42. 

  42. / must be linked statically to avoid having two fixups for the
    43. 

  43. / same location.
    44. 

  44. 

  45.                 .globl  __dos_init
    46. 

  46.                 .globl  __dos_syscall
    47. 

  47. 

  48. __dos_init:
    49. 

  49.                 ret     $4
    50. 

  50. 

  51.                 .align  2, 0x90
    52. 

  52. 

  53. __dos_syscall:
    54. 

  54.                 int     $0x21
    55. 

  55.                 ret
    56. 

  56. 

  57.                 .data
    58. 

  58. 

  59.                 .comm   _environ,       4
    60. 

  60.                 .comm   _envc,          4
    61. 

  61.                 .comm   _argv,          4
    62. 

  62.                 .comm   _argc,          4
    63.