cc65/libsrc/pce/irq.s

;
; IRQ handling (PCE version)
;

        .export         initirq, doneirq, IRQStub

        .import         __INTERRUPTOR_COUNT__, callirq_y

        .include        "pce.inc"
        .include        "extzp.inc"

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

; a constructor
;
initirq:
        rts

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

; a destructor
;
doneirq:
        rts

; ------------------------------------------------------------------------

IRQStub:
        phy

; Save the display-source flags (and, release the interrupt).
;
        ldy     a:VDC_CTRL
        sty     vdc_flags

        ldy     #<(__INTERRUPTOR_COUNT__ * 2)
        beq     @L1
        phx
        pha

        jsr     callirq_y

        pla
        plx
@L1:    ply
        rti
added interruptor support 2015-09-19 13:55:43 +00:00			`;`
			`; IRQ handling (PCE version)`
			`;`

			`.export initirq, doneirq, IRQStub`

			`.import __INTERRUPTOR_COUNT__, callirq_y`

			`.include "pce.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"`
added interruptor support 2015-09-19 13:55:43 +00:00
			`; a constructor`
			`;`
			`initirq:`
			`rts`

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

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

			`; ------------------------------------------------------------------------`

			`IRQStub:`
			`phy`

			`; Save the display-source flags (and, release the interrupt).`
			`;`
			`ldy a:VDC_CTRL`
			`sty vdc_flags`

			`ldy #<(__INTERRUPTOR_COUNT__ * 2)`
			`beq @L1`
			`phx`
			`pha`

			`jsr callirq_y`

			`pla`
			`plx`
			`@L1: ply`
			`rti`