1
0
mirror of https://github.com/cc65/cc65.git synced 2024-06-07 07:29:33 +00:00
cc65/libsrc/atari/irq.s

81 lines
1.8 KiB
ArmAsm
Raw Permalink Normal View History

;
; IRQ handling (ATARI version)
;
.export initirq, doneirq
.import callirq
.include "atari.inc"
2013-09-20 16:09:53 +00:00
.ifdef __ATARIXL__
.import __CHARGEN_START__
.include "romswitch.inc"
.endif
; ------------------------------------------------------------------------
.segment "ONCE"
initirq:
lda #$4C ; JMP opcode
sta IRQInd
lda VVBLKD
ldx VVBLKD+1
sta IRQInd+1
stx IRQInd+2
lda #7
ldy #<IRQStub
ldx #>IRQStub
2014-05-26 23:49:35 +00:00
jmp SETVBV
; ------------------------------------------------------------------------
.code
doneirq:
lda #7
ldy IRQInd+1
ldx IRQInd+2
2014-05-26 23:49:35 +00:00
jmp SETVBV
; ------------------------------------------------------------------------
.segment "LOWCODE"
IRQStub:
cld ; Just to be sure
.ifdef __ATARIXL__
2013-09-20 16:09:53 +00:00
.ifdef CHARGEN_RELOC
lda CHBAS
pha
.endif
2013-09-20 16:09:53 +00:00
.endif
lda PORTB
pha
.ifdef __ATARIXL__
and #$FE ; disable ROM
.endif
ora #$10 ; map main memory into $4000..$7FFF area
sta PORTB
.ifdef __ATARIXL__
2013-09-20 16:09:53 +00:00
set_chbase >__CHARGEN_START__
.endif
jsr callirq ; Call the functions
2013-09-20 16:09:53 +00:00
pla
sta PORTB ; restore old memory settings
.ifdef __ATARIXL__
2013-09-20 16:09:53 +00:00
.ifdef CHARGEN_RELOC
pla
sta CHBAS
sta CHBASE
.endif
.endif
jmp IRQInd ; Jump to the saved IRQ vector
; ------------------------------------------------------------------------
.segment "LOWBSS"
IRQInd: .res 3
.end