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