cc65/libsrc/atari/irq.s

;
; IRQ handling (ATARI version)
;

        .export         initirq, doneirq
        .import         callirq

        .include        "atari.inc"

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

.segment        "INIT"

initirq:
        lda     VVBLKI
        ldx     VVBLKI+1
        sta     IRQInd+1
        stx     IRQInd+2
        lda     #6
        ldy     #<IRQStub
        ldx     #>IRQStub
        jsr     SETVBV
        rts

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

.code

doneirq:
        lda     #6
        ldy     IRQInd+1
        ldx     IRQInd+2
        jsr     SETVBV
        rts

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

.segment        "LOWCODE"

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

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

.data

IRQInd: jmp     $0000
Moved IRQ hooking / unhooking from startup code to constructor / destructor to avoid linking in the hooking / unhooking code (and callirq) for the majority of cc65 prorams not linking in interruptors. git-svn-id: svn://svn.cc65.org/cc65/trunk@5985 b7a2c559-68d2-44c3-8de9-860c34a00d81 2013-02-12 22:39:38 +00:00			`;`
			`; IRQ handling (ATARI version)`
			`;`

Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.export initirq, doneirq`
			`.import callirq`
Moved IRQ hooking / unhooking from startup code to constructor / destructor to avoid linking in the hooking / unhooking code (and callirq) for the majority of cc65 prorams not linking in interruptors. git-svn-id: svn://svn.cc65.org/cc65/trunk@5985 b7a2c559-68d2-44c3-8de9-860c34a00d81 2013-02-12 22:39:38 +00:00
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.include "atari.inc"`
Moved IRQ hooking / unhooking from startup code to constructor / destructor to avoid linking in the hooking / unhooking code (and callirq) for the majority of cc65 prorams not linking in interruptors. git-svn-id: svn://svn.cc65.org/cc65/trunk@5985 b7a2c559-68d2-44c3-8de9-860c34a00d81 2013-02-12 22:39:38 +00:00
			`; ------------------------------------------------------------------------`

Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.segment "INIT"`
Moved IRQ hooking / unhooking from startup code to constructor / destructor to avoid linking in the hooking / unhooking code (and callirq) for the majority of cc65 prorams not linking in interruptors. git-svn-id: svn://svn.cc65.org/cc65/trunk@5985 b7a2c559-68d2-44c3-8de9-860c34a00d81 2013-02-12 22:39:38 +00:00
			`initirq:`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`lda VVBLKI`
			`ldx VVBLKI+1`
			`sta IRQInd+1`
			`stx IRQInd+2`
			`lda #6`
			`ldy #<IRQStub`
			`ldx #>IRQStub`
			`jsr SETVBV`
			`rts`
Moved IRQ hooking / unhooking from startup code to constructor / destructor to avoid linking in the hooking / unhooking code (and callirq) for the majority of cc65 prorams not linking in interruptors. git-svn-id: svn://svn.cc65.org/cc65/trunk@5985 b7a2c559-68d2-44c3-8de9-860c34a00d81 2013-02-12 22:39:38 +00:00
			`; ------------------------------------------------------------------------`

			`.code`

			`doneirq:`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`lda #6`
			`ldy IRQInd+1`
			`ldx IRQInd+2`
			`jsr SETVBV`
			`rts`
Moved IRQ hooking / unhooking from startup code to constructor / destructor to avoid linking in the hooking / unhooking code (and callirq) for the majority of cc65 prorams not linking in interruptors. git-svn-id: svn://svn.cc65.org/cc65/trunk@5985 b7a2c559-68d2-44c3-8de9-860c34a00d81 2013-02-12 22:39:38 +00:00
			`; ------------------------------------------------------------------------`

Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.segment "LOWCODE"`
Moved IRQ hooking / unhooking from startup code to constructor / destructor to avoid linking in the hooking / unhooking code (and callirq) for the majority of cc65 prorams not linking in interruptors. git-svn-id: svn://svn.cc65.org/cc65/trunk@5985 b7a2c559-68d2-44c3-8de9-860c34a00d81 2013-02-12 22:39:38 +00:00
			`IRQStub:`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`cld ; Just to be sure`
atarixl target: add support for interruptors, adapt TGI drivers 2013-08-25 09:20:27 +00:00			`.if .defined(__ATARIXL__)`
			`pha`
			`lda PORTB`
			`pha`
			`and #$fe`
			`sta PORTB ; disable ROM @@@ TODO: update CHARGEN`
			`.endif`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`jsr callirq ; Call the functions`
atarixl target: add support for interruptors, adapt TGI drivers 2013-08-25 09:20:27 +00:00			`.if .defined(__ATARIXL__)`
			`pla`
			`sta PORTB`
			`pla`
			`.endif`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`jmp IRQInd ; Jump to the saved IRQ vector`
Moved IRQ hooking / unhooking from startup code to constructor / destructor to avoid linking in the hooking / unhooking code (and callirq) for the majority of cc65 prorams not linking in interruptors. git-svn-id: svn://svn.cc65.org/cc65/trunk@5985 b7a2c559-68d2-44c3-8de9-860c34a00d81 2013-02-12 22:39:38 +00:00
			`; ------------------------------------------------------------------------`

			`.data`

Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`IRQInd: jmp $0000`