git.sesse.net Git - pistorm/blob - a314/a314device/int_server.asm

   1 *
   2 * Copyright 2020-2021 Niklas Ekström
   3 *
   4
   5         XDEF    _IntServer
   6         CODE
   7
   8 SIGB_INT        equ     14
   9 SIGF_INT        equ     (1 << SIGB_INT)
  10
  11                 ; a1 points to interrupt_data
  12 _IntServer:     move.l  4(a1),a5        ; interrupt_data.ca
  13
  14                 move.b  0(a5),d0        ; A_EVENTS
  15                 and.b   1(a5),d0        ; A_ENABLE
  16                 beq.s   should_not_signal
  17
  18                 move.b  #0,1(a5)
  19
  20                 move.l  $4.w,a6
  21                 move.l  #SIGF_INT,d0
  22                 move.l  0(a1),a1        ; interrupt_data.task
  23                 jsr     -324(a6)        ; Signal()
  24
  25 should_not_signal:
  26                 moveq   #0,d0
  27                 rts