rom/exec/intservers.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <aros/asmcall.h>
   7 #include <exec/execbase.h>
   8 #include <exec/lists.h>
   9
  10 #include "intservers.h"
  11
  12 /*
  13  * Our default IntVectors.
  14  * This interrupt handler will send an interrupt to a series of queued
  15  * interrupt servers. Servers should return D0 != 0 (Z clear) if they
  16  * believe the interrupt was for them, and no further interrupts will
  17  * be called. This will only check the value in D0 for non-m68k systems,
  18  * however it SHOULD check the Z-flag on 68k systems.
  19
  20  * Hmm, in that case I would have to separate it from this file in order
  21  * to replace it... TODO: this can be done after merging exec_init.c from
  22  * i386 and PPC native.
  23 */
  24 AROS_INTH3(IntServer, struct List *, intList, intMask, custom)
  25 {
  26     AROS_INTFUNC_INIT
  27
  28     struct Interrupt * irq;
  29     BOOL ret = FALSE;
  30
  31     ForeachNode(intList, irq) {
  32         if (AROS_INTC3(irq->is_Code, irq->is_Data, intMask, custom)) {
  33 #ifndef __mc68000
  34             ret = TRUE;
  35             break;
  36 #endif
  37          }
  38     }
  39
  40     return ret;
  41
  42     AROS_INTFUNC_EXIT
  43 }
  44
  45 /* VBlankServer. The same as general purpose IntServer but also counts task's quantum */
  46 AROS_INTH3(VBlankServer, struct List *, intList, intMask, custom)
  47 {
  48     AROS_INTFUNC_INIT
  49
  50     /* First decrease Elapsed time for current task */
  51     if (SysBase->Elapsed && (--SysBase->Elapsed == 0))
  52     {
  53         SysBase->SysFlags    |= SFF_QuantumOver;
  54         SysBase->AttnResched |= ARF_AttnSwitch;
  55     }
  56
  57     /* Chain to the generic routine */
  58     return AROS_INTC3(IntServer, intList, intMask, custom);
  59
  60     AROS_INTFUNC_EXIT
  61 }