2000-05-28 13:40:48 +00:00
|
|
|
;
|
|
|
|
|
; Ullrich von Bassewitz, 28.09.1998
|
|
|
|
|
;
|
|
|
|
|
; IRQ routine for the 610.
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
.export irq, nmi, k_irq, k_nmi
|
2002-11-22 00:52:11 +00:00
|
|
|
.import SCNKEY, UDTIM, k_rs232
|
2000-05-28 13:40:48 +00:00
|
|
|
.importzp tpi1
|
|
|
|
|
|
2002-05-26 09:08:52 +00:00
|
|
|
.include "cbm610.inc"
|
2000-05-28 13:40:48 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
; -------------------------------------------------------------------------
|
|
|
|
|
; This is the mapping of the active irq register of the 6525 (tpi1):
|
|
|
|
|
;
|
|
|
|
|
; Bit 7 6 5 4 3 2 1 0
|
|
|
|
|
; | | | | ^ 50 Hz
|
|
|
|
|
; | | | ^ SRQ IEEE 488
|
|
|
|
|
; | | ^ cia
|
|
|
|
|
; | ^ IRQB ext. Port
|
|
|
|
|
; ^ acia
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
; -------------------------------------------------------------------------
|
|
|
|
|
; IRQ entry point
|
|
|
|
|
|
|
|
|
|
.proc irq
|
|
|
|
|
|
|
|
|
|
pha
|
|
|
|
|
txa
|
|
|
|
|
pha
|
|
|
|
|
tya
|
|
|
|
|
pha
|
|
|
|
|
tsx
|
|
|
|
|
lda $104,x ; Get the flags from the stack
|
|
|
|
|
and #$10 ; Test break flag
|
|
|
|
|
bne L1
|
|
|
|
|
jmp (IRQVec)
|
|
|
|
|
L1: jmp (BRKVec)
|
|
|
|
|
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
; -------------------------------------------------------------------------
|
|
|
|
|
; NMI entry point
|
|
|
|
|
|
|
|
|
|
.proc nmi
|
|
|
|
|
|
|
|
|
|
jmp (NMIVec)
|
|
|
|
|
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
; -------------------------------------------------------------------------
|
|
|
|
|
; Kernal irq entry point. The IRQvec points here (usually).
|
|
|
|
|
|
|
|
|
|
k_irq:
|
|
|
|
|
lda IndReg ; Ind. Segment retten
|
|
|
|
|
pha
|
|
|
|
|
cld
|
|
|
|
|
lda #$0F
|
|
|
|
|
sta IndReg
|
|
|
|
|
ldy #tpiActIntReg
|
|
|
|
|
lda (tpi1),y ; Interrupt Register 6525
|
|
|
|
|
beq noirq
|
|
|
|
|
|
|
|
|
|
; -------------------------------------------------------------------------
|
|
|
|
|
; 50/60Hz interrupt
|
|
|
|
|
|
|
|
|
|
cmp #%00000001 ; ticker irq?
|
|
|
|
|
bne irq1
|
2002-11-22 00:52:11 +00:00
|
|
|
jsr SCNKEY ; Poll the keyboard
|
|
|
|
|
jsr UDTIM ; Bump the time
|
2000-05-28 13:40:48 +00:00
|
|
|
|
|
|
|
|
; -------------------------------------------------------------------------
|
|
|
|
|
; UART interrupt
|
|
|
|
|
|
|
|
|
|
irq1: cmp #%00010000 ; interrupt from uart?
|
|
|
|
|
bne irqend
|
|
|
|
|
jsr k_rs232 ; Read character from uart
|
|
|
|
|
|
|
|
|
|
; -------------------------------------------------------------------------
|
|
|
|
|
; Done
|
|
|
|
|
|
|
|
|
|
irqend: ldy #tpiActIntReg
|
|
|
|
|
sta (tpi1),y ; Clear interrupt
|
|
|
|
|
|
|
|
|
|
noirq: pla
|
|
|
|
|
sta IndReg
|
|
|
|
|
pla
|
|
|
|
|
tay
|
|
|
|
|
pla
|
|
|
|
|
tax
|
|
|
|
|
pla
|
|
|
|
|
k_nmi: rti
|
|
|
|
|
|
|
|
|
|
|
