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

   1 ;
   2 ; IRQ handling (Oric version)
   3 ;
   4
   5         .export         initirq, doneirq
   6         .import         callirq
   7
   8         .include        "atmos.inc"
   9
  10 ; ------------------------------------------------------------------------
  11
  12 .segment        "INIT"
  13
  14 initirq:
  15         lda     IRQVec
  16         ldx     IRQVec+1
  17         sta     IRQInd+1
  18         stx     IRQInd+2
  19         lda     #<IRQStub
  20         ldx     #>IRQStub
  21         sei
  22         sta     IRQVec
  23         stx     IRQVec+1
  24         cli
  25         rts
  26
  27 ; ------------------------------------------------------------------------
  28
  29 .code
  30
  31 doneirq:
  32         lda     IRQInd+1
  33         ldx     IRQInd+2
  34         sei
  35         sta     IRQVec
  36         stx     IRQVec+1
  37         cli
  38         rts
  39
  40 ; ------------------------------------------------------------------------
  41
  42 .segment        "LOWCODE"
  43
  44 IRQStub:
  45         cld                             ; Just to be sure
  46         pha
  47         txa
  48         pha
  49         tya
  50         pha
  51         jsr     callirq                 ; Call the functions
  52         pla
  53         tay
  54         pla
  55         tax
  56         pla
  57         jmp     IRQInd                  ; Jump to the saved IRQ vector
  58
  59 ; ------------------------------------------------------------------------
  60
  61 .data
  62
  63 IRQInd: jmp     $0000