home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_20_1987_Transactor_Publishing.d64
/
memlane2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
501b
|
25 lines
100 sei
110 lda 788 ; first point brk vec
120 sta 790 ; at irq service code
130 lda 789
140 sta 791
150 lda #<irqsrv; then point irq vec
160 sta 788 ; at your switch
170 lda #>irqsrv
180 sta 789
190 cli
200 rts
220 irqsrv =* ; interrupt wedge
230 lda #0
240 sta $ff00 ; set bank 15 config
250 brk ; service irq thru brk
260 nop
270 pla ; old config on stack
280 sta $ff00 ; restore it
290 pla ; registers too
300 tay
310 pla
320 tax
330 pla
340 rti ; return from interrupt