;
; Startup code for cc65 (C128 version)
-;
-; This must be the *first* file on the linker command line
;
.export _exit
+ .export __STARTUP__ : absolute = 1 ; Mark as startup
.import callirq, initlib, donelib
.import zerobss
.import push0, callmain
.import RESTOR, BSOUT, CLRCH
- .import __IRQFUNC_COUNT__
+ .import __INTERRUPTOR_COUNT__
.import __RAM_START__, __RAM_SIZE__
.include "zeropage.inc"
lda #14
jsr BSOUT
-; Set the bank for the file name our execution bank
-
- lda #0
- sta FNAM_BANK
-
; Before doing anything else, we have to setup our banking configuration.
; Otherwise just the lowest 16K are actually RAM. Writing through the ROM
; to the underlying RAM works, but it is bad style.
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 #<__IRQFUNC_COUNT__
+ lda #<__INTERRUPTOR_COUNT__
beq NoIRQ1
lda IRQVec
ldx IRQVec+1
stx IRQVec+1
cli
+; Call module constructors
+
+NoIRQ1: jsr initlib
+
+; Set the bank for the file name to our execution bank. We must do this,
+; *after* calling constructors, because some of them may depend on the
+; original value of this register.
+
+ lda #0
+ sta FNAM_BANK
+
; Push arguments and call main()
-NoIRQ1: jsr callmain
+ jsr callmain
-; Back from main (this is also the _exit entry). Reset the IRQ vector if we
-; chained it.
+; Back from main (this is also the _exit entry). Run module destructors
-_exit: pha ; Save the return code on stack
- lda #<__IRQFUNC_COUNT__
+_exit: jsr donelib
+
+; Reset the IRQ vector if we chained it.
+
+ pha ; Save the return code on stack
+ lda #<__INTERRUPTOR_COUNT__
beq NoIRQ2
lda IRQInd+1
ldx IRQInd+2
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
; ------------------------------------------------------------------------
; Data
-.data
+.segment "ZPSAVE"
+
zpsave: .res zpspace
.bss