;
; Startup code for cc65 (Vic20 version)
-;
-; This must be the *first* file on the linker command line
;
.export _exit
+ .export __STARTUP__ : absolute = 1 ; Mark as startup
.import initlib, donelib, callirq
.import zerobss, push0
.import callmain
Head: .word @Next
.word .version ; Line number
.byte $9E ; SYS token
- .byte <(((@Start / 1000) .mod 10) + $30)
- .byte <(((@Start / 100) .mod 10) + $30)
- .byte <(((@Start / 10) .mod 10) + $30)
- .byte <(((@Start / 1) .mod 10) + $30)
+ .byte <(((Start / 1000) .mod 10) + $30)
+ .byte <(((Start / 100) .mod 10) + $30)
+ .byte <(((Start / 10) .mod 10) + $30)
+ .byte <(((Start / 1) .mod 10) + $30)
.byte $00 ; End of BASIC line
@Next: .word 0 ; BASIC end marker
-@Start:
; ------------------------------------------------------------------------
; Actual code
- ldx #zpspace-1
+Start: ldx #zpspace-1
L1: lda sp,x
sta zpsave,x ; Save the zero page locations we need
dex
lda #>(__RAM_START__ + __RAM_SIZE__)
sta sp+1 ; Set argument stack ptr
-; Call module constructors
-
- jsr initlib
-
; If we have IRQ functions, chain our stub into the IRQ vector
lda #<__INTERRUPTOR_COUNT__
stx IRQVec+1
cli
+; Call module constructors
+
+NoIRQ1: jsr initlib
+
; Push arguments and call main()
-NoIRQ1: jsr callmain
+ jsr callmain
+
+; Back from main (This is also the _exit entry). Run module destructors
+
+_exit: jsr donelib
-; Back from main (This is also the _exit entry). Reset the IRQ vector if we
-; chained it.
+; Reset the IRQ vector if we chained it.
-_exit: pha ; Save the return code on stack
+ pha ; Save the return code on stack
lda #<__INTERRUPTOR_COUNT__
beq NoIRQ2
lda IRQInd+1
stx IRQVec+1
cli
-; Run module destructors
-
-NoIRQ2: jsr donelib
-
; Copy back the zero page stuff
- ldx #zpspace-1
+NoIRQ2: ldx #zpspace-1
L2: lda zpsave,x
sta sp,x
dex