arch/.unmaintained/m68k-emul/disable.s

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Exec function Disable
   6     Lang: english
   7 */
   8
   9 /******************************************************************************
  10
  11     NAME
  12         AROS_LH0(void, Disable,
  13
  14     LOCATION
  15         struct ExecBase *, SysBase, 20, Exec)
  16
  17     FUNCTION
  18
  19     INPUTS
  20
  21     RESULT
  22
  23     NOTES
  24
  25     EXAMPLE
  26
  27     BUGS
  28
  29     SEE ALSO
  30
  31     INTERNALS
  32
  33     HISTORY
  34
  35 ******************************************************************************/
  36
  37         #include "machine.i"
  38
  39         .text
  40         .balign 16
  41         .globl  AROS_SLIB_ENTRY(Disable,Exec)
  42         .type   AROS_SLIB_ENTRY(Disable,Exec),@function
  43
  44 AROS_SLIB_ENTRY(Disable,Exec):
  45         jbsr    AROS_CSYMNAME(os_disable)
  46 #if !UseRegisterArgs
  47         move.l  %a6,-(%sp)
  48
  49         /* Get SysBase */
  50         move.l  8(%sp),%a6
  51 #endif
  52
  53         /* increment nesting count and return */
  54         addq.b  #1,IDNestCnt(%a6)
  55 #if !UseRegisterArgs
  56         move.l  (%sp)+,%a6
  57 #endif
  58         rts