; This must be the *first* file on the linker command line
;
- .export _exit
- .import __hinit, initconio, doneconio, zerobss
- .import push0, doatexit, _main
+ .export _exit
+ .import condes, initlib, donelib
+ .import zerobss
+ .import push0, callmain
+ .import RESTOR, BSOUT, CLRCH
+ .import __IRQFUNC_TABLE__, __IRQFUNC_COUNT__
+ .import __RAM_START__, __RAM_SIZE__
- .include "c128.inc"
- .include "../cbm/cbm.inc"
+ .include "zeropage.inc"
+ .include "c128.inc"
-; ------------------------------------------------------------------------
-; Define and export the ZP variables for the C64 runtime
-
- .exportzp sp, sreg, regsave
- .exportzp ptr1, ptr2, ptr3, ptr4
- .exportzp tmp1, tmp2, tmp3, tmp4
- .exportzp regbank, zpspace
-.zeropage
+; ------------------------------------------------------------------------
+; Constants
-zpstart = *
-sp: .res 2 ; Stack pointer
-sreg: .res 2 ; Secondary register/high 16 bit for longs
-regsave: .res 2 ; slot to save/restore (E)AX into
-ptr1: .res 2
-ptr2: .res 2
-ptr3: .res 2
-ptr4: .res 2
-tmp1: .res 1
-tmp2: .res 1
-tmp3: .res 1
-tmp4: .res 1
-regbank: .res 6 ; 6 byte register bank
+IRQInd = $2FD ; JMP $0000 - used as indirect IRQ vector
-zpspace = * - zpstart ; Zero page space allocated
+; ------------------------------------------------------------------------
+; Place the startup code in a special segment to cope with the quirks of
+; c128 banking.
-.code
+.segment "STARTUP"
-; ------------------------------------------------------------------------
; BASIC header with a SYS call
.org $1BFF
; ------------------------------------------------------------------------
; Actual code
- ldy #zpspace-1
-L1: lda sp,y
- sta zpsave,y ; save the zero page locations we need
- dey
- bpl L1
-
; Close open files
jsr CLRCH
-; Switch to second charset
+; Switch to the second charset
lda #14
jsr BSOUT
-; Get the current MMU setting and save it. Set new memory config.
+; 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 MMU_CR ; Get current memory configuration...
pha ; ...and save it for later
- lda #$0E ; Bank0 with kernal ROM
- sta MMU_CR
+ lda #MMU_CFG_CC65 ; Bank0 with kernal ROM
+ sta MMU_CR
+
+; Save the zero page locations we need
+
+ ldx #zpspace-1
+L1: lda sp,x
+ sta zpsave,x
+ dex
+ bpl L1
; Clear the BSS data
sta mmusave
tsx
- stx spsave ; save system stk ptr
-
- lda #<$C000
- sta sp
- lda #>$C000
- sta sp+1
+ stx spsave ; Save the system stack pointer
-; Initialize the heap
+ lda #<(__RAM_START__ + __RAM_SIZE__)
+ sta sp
+ lda #>(__RAM_START__ + __RAM_SIZE__)
+ sta sp+1 ; Set argument stack ptr
- jsr __hinit
+; Call module constructors
-; Initialize conio stuff
+ jsr initlib
- jsr initconio
+; If we have IRQ functions, chain our stub into the IRQ vector
-; Pass an empty command line
+ lda #<__IRQFUNC_COUNT__
+ beq NoIRQ1
+ lda IRQVec
+ ldx IRQVec+1
+ sta IRQInd+1
+ stx IRQInd+2
+ lda #<IRQStub
+ ldx #>IRQStub
+ sei
+ sta IRQVec
+ stx IRQVec+1
+ cli
- jsr push0 ; argc
- jsr push0 ; argv
+; Push arguments and call main()
- ldy #4 ; Argument size
- jsr _main ; call the users code
+NoIRQ1: jsr callmain
-; fall thru to exit...
+; Back from main (this is also the _exit entry). Reset the IRQ vector if
+; we chained it.
-_exit: jsr doatexit ; call exit functions
+_exit: lda #<__IRQFUNC_COUNT__
+ beq NoIRQ2
+ lda IRQInd+1
+ ldx IRQInd+2
+ sei
+ sta IRQVec
+ stx IRQVec+1
+ cli
-; Reset the conio stuff
+; Run module destructors
- jsr doneconio
+NoIRQ2: jsr donelib
-; Reset stack and the MMU
+; Reset the stack
- ldx spsave ; Patched at runtime
+ ldx spsave
txs
- lda mmusave ; Patched at runtime
- sta MMU_CR
; Copy back the zero page stuff
- ldy #zpspace-1
-L2: lda zpsave,y
- sta sp,y
- dey
+ ldx #zpspace-1
+L2: lda zpsave,x
+ sta sp,x
+ dex
bpl L2
-; Done
+; Reset the memory configuration
+
+ lda mmusave
+ sta MMU_CR
+
+; Done, restore kernal vectors in an attempt to cleanup
jmp RESTOR
+; ------------------------------------------------------------------------
+; The C128 has ROM parallel to the RAM starting from $4000. The startup code
+; above will change this setting so that we have RAM from $0000-$BFFF. This
+; works quite well with the exception of interrupts: The interrupt handler
+; is in ROM, and the ROM switches back to the ROM configuration, which means
+; that parts of our program may not be accessible. To solve this, we place
+; the following code into a special segment called "LOWCODE" which will be
+; placed just above the startup code, so it goes into a RAM area that is
+; not banked.
+
+.segment "LOWCODE"
+
+IRQStub:
+ cld ; Just to be sure
+ lda MMU_CR ; Get old register value
+ pha ; And save on stack
+ lda #MMU_CFG_CC65 ; Bank 0 with kernal ROM
+ sta MMU_CR
+ ldy #<(__IRQFUNC_COUNT__*2)
+ lda #<__IRQFUNC_TABLE__
+ ldx #>__IRQFUNC_TABLE__
+ jsr condes ; Call the functions
+ pla ; Get old register value
+ sta MMU_CR
+ jmp IRQInd ; Jump to the saved IRQ vector
+
+
+; ------------------------------------------------------------------------
+; Data
+
.data
zpsave: .res zpspace