called if the user program has interrupts disabled which makes it
easier to avoid race conditions.
- lda VVBLKI
- ldx VVBLKI+1
+ lda VVBLKD
+ ldx VVBLKD+1
sta IRQInd+1
stx IRQInd+2
sta IRQInd+1
stx IRQInd+2
ldy #<IRQStub
ldx #>IRQStub
jsr SETVBV
ldy #<IRQStub
ldx #>IRQStub
jsr SETVBV
ldy IRQInd+1
ldx IRQInd+2
jsr SETVBV
ldy IRQInd+1
ldx IRQInd+2
jsr SETVBV
IRQStub:
cld ; Just to be sure
.ifdef __ATARIXL__
IRQStub:
cld ; Just to be sure
.ifdef __ATARIXL__
.ifdef CHARGEN_RELOC
lda CHBAS
pha
.ifdef CHARGEN_RELOC
lda CHBAS
pha
sta CHBAS
sta CHBASE
.endif
sta CHBAS
sta CHBASE
.endif
.endif
jmp IRQInd ; Jump to the saved IRQ vector
.endif
jmp IRQInd ; Jump to the saved IRQ vector