git.sur5r.net Git - cc65/blob - libsrc/lynx/irq.s

   1 ;
   2 ; IRQ handling (Lynx version)
   3 ;
   4
   5         .export         initirq, doneirq
   6         .import         callirq
   7
   8         .include        "lynx.inc"
   9
  10 ; ------------------------------------------------------------------------
  11
  12 .segment        "ONCE"
  13
  14 initirq:
  15         lda     #<IRQStub
  16         ldx     #>IRQStub
  17         sei
  18         sta     INTVECTL
  19         stx     INTVECTH
  20         cli
  21         rts
  22
  23 ; ------------------------------------------------------------------------
  24
  25 .code
  26
  27 doneirq:
  28         ; as Lynx is a console there is not much point in releasing the IRQ
  29         rts
  30
  31 ; ------------------------------------------------------------------------
  32
  33 .segment        "LOWCODE"
  34
  35 IRQStub:
  36         phy
  37         phx
  38         pha
  39         jsr     callirq
  40         lda     INTSET
  41         sta     INTRST
  42         pla
  43         plx
  44         ply
  45         rti