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

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Exec function Forbid
   6     Lang: english
   7 */
   8
   9 /******************************************************************************
  10
  11     NAME
  12         AROS_LH0(void, Forbid,
  13
  14     LOCATION
  15         struct ExecBase *, SysBase, 22, 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(Forbid,Exec)
  42         .type   AROS_SLIB_ENTRY(Forbid,Exec),@function
  43 AROS_SLIB_ENTRY(Forbid,Exec):
  44 #if !UseRegisterArgs
  45         /* Preserve all registers */
  46         move.l  %a6,-(%sp)
  47
  48         /* Get SysBase */
  49         move.l  8(%sp),%a6
  50 #endif
  51
  52         /* Increase nesting count */
  53         addq.b  #1,TDNestCnt(%a6)
  54
  55         /* All done */
  56 #if !UseRegisterArgs
  57         move.l  (%sp)+,%a6
  58 #endif
  59         rts
  60