arch/.unmaintained/m68k-native/exec/permit.s

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 /*****************************************************************************
   7
   8     NAME
   9
  10         AROS_LH0(void, Permit,
  11
  12     LOCATION
  13         struct ExecBase *, SysBase, 23, Exec)
  14
  15     FUNCTION
  16         This function activates the dispatcher again after a call to Permit().
  17
  18     INPUTS
  19
  20     RESULT
  21
  22     NOTES
  23         This function preserves all registers.
  24
  25     EXAMPLE
  26
  27     BUGS
  28
  29     SEE ALSO
  30         Forbid(), Disable(), Enable()
  31
  32     INTERNALS
  33
  34     HISTORY
  35
  36 ******************************************************************************/
  37
  38         #include "machine.i"
  39
  40         .text
  41         .balign 4
  42         .globl  AROS_SLIB_ENTRY(Permit,Exec)
  43         .type   AROS_SLIB_ENTRY(Permit,Exec),@function
  44 AROS_SLIB_ENTRY(Permit,Exec):
  45         /* decrement nesting count and return if there are Forbid()s left */
  46         subq.b  #1,TDNestCnt(a6)
  47         bpl     end
  48
  49         /* return if there are no delayed switches pending. */
  50         tst.b   AttnResched+1(a6)
  51         bpl     end
  52
  53         /* if IDNestCnt is not -1 taskswitches are still forbidden */
  54         tst.b   IDNestCnt(a6)
  55         bpl     end
  56
  57         /* Unset delayed switch bit and do the delayed switch */
  58         bclr    #7,AttnResched+1(a6)
  59         jsr    Switch(a6)
  60
  61         /* all done. */
  62 end:    rts
  63