atarixl target: add support for interruptors, adapt TGI drivers

2013-08-25 11:20:27 +02:00
parent 0e09c207e0
commit 4062cb6b6c
6 changed files with 93 additions and 33 deletions
--- a/libsrc/atari/irq.s
+++ b/libsrc/atari/irq.s
@@ -39,7 +39,19 @@ doneirq:

 IRQStub:
        cld                             ; Just to be sure
+.if .defined(__ATARIXL__)
+	pha
+	lda	PORTB
+	pha
+	and	#$fe
+	sta	PORTB			; disable ROM  @@@ TODO: update CHARGEN
+.endif
        jsr     callirq                 ; Call the functions
+.if .defined(__ATARIXL__)
+	pla
+	sta	PORTB
+	pla
+.endif
        jmp     IRQInd                  ; Jump to the saved IRQ vector

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