.export _exit
.export __STARTUP__ : absolute = 1 ; Mark as startup
- .import initlib, donelib
+ .import callirq, initlib, donelib
.import zerobss
.import callmain
.import _main
- .import __BSS_LOAD__
- .import __RAM_START__, __RAM_SIZE__
+ .import __INTERRUPTOR_COUNT__
+ .import __RAM_START__, __RAM_SIZE__, __STACKSIZE__
.include "zeropage.inc"
.include "extzp.inc"
-
-; ------------------------------------------------------------------------
-; EXE header (BLL header)
-
- .segment "EXEHDR"
- .word $0880
- .dbyt __RAM_START__
- .dbyt __BSS_LOAD__ - __RAM_START__ + 10
- .byte $42,$53
- .byte $39,$33
-
-
; ------------------------------------------------------------------------
; Mikey and Suzy init data, reg offsets and data
; setup the stack
- lda #<(__RAM_START__ + __RAM_SIZE__)
+ lda #<(__RAM_START__ + __RAM_SIZE__ + __STACKSIZE__)
sta sp
- lda #>(__RAM_START__ + __RAM_SIZE__)
+ lda #>(__RAM_START__ + __RAM_SIZE__ + __STACKSIZE__)
sta sp+1
; Init Mickey
jsr zerobss
+; If we have IRQ functions, set the IRQ vector
+; as Lynx is a console there is not much point in releasing the IRQ
+
+ lda #<__INTERRUPTOR_COUNT__
+ beq NoIRQ1
+ lda #<IRQStub
+ ldx #>IRQStub
+ sei
+ sta INTVECTL
+ stx INTVECTH
+ cli
+
; Call module constructors
- jsr initlib
+NoIRQ1: jsr initlib
; Push arguments and call main
noret: bra noret
+ .segment "CODE"
+IRQStub:
+ phy
+ phx
+ pha
+ cld
+ jsr callirq
+ lda INTSET
+ sta INTRST
+ pla
+ plx
+ ply
+ rti
+