added interruptor support

2015-09-19 15:55:43 +02:00
parent 859604407b
commit 296489ba6c
8 changed files with 80 additions and 41 deletions
--- a/libsrc/pce/irq.s
+++ b/libsrc/pce/irq.s
@@ -0,0 +1,48 @@
+;
+; IRQ handling (PCE version)
+;
+
+        .export         initirq, doneirq, IRQStub
+
+        .import         __INTERRUPTOR_COUNT__, callirq_y
+
+        .include        "pce.inc"
+        .include        "extzp.inc"
+
+; ------------------------------------------------------------------------
+.segment        "INIT"
+
+; 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