cc65/libsrc/gamate/irq.s

;
; IRQ handling (Gamate version)
;

        .export         initirq, doneirq, IRQStub

        .import         __INTERRUPTOR_COUNT__, callirq_y

        .include        "gamate.inc"
        .include        "extzp.inc"

; ------------------------------------------------------------------------
.segment        "ONCE"

; a constructor
;
initirq:
        rts

; ------------------------------------------------------------------------
.code

; a destructor
;
doneirq:
        rts

; ------------------------------------------------------------------------
; 256*32 interrupts in about 1minute 60s = 136hz
; -> guess 16384 clock cycles = 135,28hz (might be audio signal 1/512?)

IRQStub:
        ; A and Y are saved by the BIOS
        ;pha
        ;tya
        ;pha

        ldy     #<(__INTERRUPTOR_COUNT__ * 2)
        beq     @L1

        txa
        pha

        jsr     callirq_y

        pla
        tax

@L1:    ;pla
        ;tay
        ;pla
        rts
conio and most other stuff working now 2015-11-29 00:14:59 +00:00			`;`
			`; IRQ handling (Gamate version)`
			`;`

			`.export initirq, doneirq, IRQStub`

			`.import __INTERRUPTOR_COUNT__, callirq_y`

			`.include "gamate.inc"`
			`.include "extzp.inc"`

			`; ------------------------------------------------------------------------`
Renamed INITBSS to INIT and INIT to ONCE. The way we want to use the INITBSS segment - and especially the fact that it won't have the type bss on all ROM based targets - means that the name INITBSS is misleading. After all INIT is the best name from my perspective as it serves several purposes and therefore needs a rather generic name. Unfortunately this means that the current INIT segment needs to be renamed too. Looking for a short (ideally 4 letter) name I came up with ONCE as it contains all code (and data) accessed only once during initialization. 2016-03-06 20:26:22 +00:00			`.segment "ONCE"`
conio and most other stuff working now 2015-11-29 00:14:59 +00:00
			`; a constructor`
			`;`
			`initirq:`
			`rts`

			`; ------------------------------------------------------------------------`
			`.code`

			`; a destructor`
			`;`
			`doneirq:`
			`rts`

			`; ------------------------------------------------------------------------`
			`; 256*32 interrupts in about 1minute 60s = 136hz`
			`; -> guess 16384 clock cycles = 135,28hz (might be audio signal 1/512?)`

			`IRQStub:`
more cleanup 2015-11-29 19:04:10 +00:00			`; A and Y are saved by the BIOS`
			`;pha`
			`;tya`
			`;pha`
conio and most other stuff working now 2015-11-29 00:14:59 +00:00
			`ldy #<(__INTERRUPTOR_COUNT__ * 2)`
			`beq @L1`

			`txa`
			`pha`

			`jsr callirq_y`

			`pla`
			`tax`

more cleanup 2015-11-29 19:04:10 +00:00			`@L1: ;pla`
			`;tay`
			`;pla`
conio and most other stuff working now 2015-11-29 00:14:59 +00:00			`rts`