git.sur5r.net Git - cc65/blob - libsrc/geos-cbm/devel/crt0.s

   1 ;
   2 ; Startup code for geos
   3 ;
   4 ; Maciej 'YTM/Elysium' Witkowiak
   5 ; 26.10.99, 10.3.2000, 15.8.2001, 23.12.2002
   6
   7         .export         _exit
   8         .export         __STARTUP__ : absolute = 1      ; Mark as startup
   9
  10         .import         __VLIR0_START__, __VLIR0_SIZE__ ; Linker generated
  11         .import         __STACKSIZE__                   ; Linker generated
  12         .import         initlib, donelib
  13         .import         callmain
  14         .import         zerobss
  15         .importzp       sp
  16         .include        "jumptab.inc"
  17
  18 ; ------------------------------------------------------------------------
  19 ; Place the startup code in a special segment.
  20
  21 .segment        "STARTUP"
  22
  23 ; Clear the BSS data
  24
  25         jsr     zerobss
  26
  27 ; Setup stack
  28
  29         lda     #<(__VLIR0_START__ + __VLIR0_SIZE__ + __STACKSIZE__)
  30         sta     sp
  31         lda     #>(__VLIR0_START__ + __VLIR0_SIZE__ + __STACKSIZE__)
  32         sta     sp+1            ; Set argument stack ptr
  33
  34 ; Call module constructors
  35
  36         jsr     initlib
  37
  38 ; Push arguments and call main()
  39
  40         cli
  41         jsr     callmain
  42
  43 ; Call module destructors.
  44
  45 _exit:  jsr     donelib         ; Run module destructors
  46
  47         jmp     EnterDeskTop    ; return control to the system