cbmsrc/DOS_1570/i.src at master · mist64/cbmsrc · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
	.page
	.subttl 'irq.src'
;<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>

sysirq  jmp  (irqjmp)	;  irq vector ***rom ds 02/01/85***

;	pha		;  save .a
;	txa		;  save .x
;	pha

;<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>

        tya
        pha      	;  save .y

        lda  ifr1       ;  test if atn
        and  #2
        beq  1$		;  not atn

        jsr  atnirq     ;  handle atn request

1$	lda  ifr2       ;  test if timer
        asl  a
        bpl  2$		;  not timer

        jsr  lcc        ;  goto controller

2$	pla     	;  restore .y,.x,.a
        tay
        pla
        tax
        pla
        rti