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

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 /*****************************************************************************
   7
   8     NAME
   9
  10         AROS_LH2(ULONG, CacheControl,
  11
  12     SYNOPSIS
  13         AROS_LHA(ULONG, cacheBits, D0),
  14         AROS_LHA(ULONG, cacheMask, D1),
  15
  16     LOCATION
  17         struct ExecBase *, SysBase, 107, Exec)
  18
  19     FUNCTION
  20         Change/read the values in the 68030 cacr register. Only the bits set
  21         in the mask parameter are affected.
  22
  23     INPUTS
  24         cacheBits - new bit values.
  25         cacheMask - Bits to change.
  26
  27     RESULT
  28         Old contents of cacr register.
  29
  30     NOTES
  31
  32     EXAMPLE
  33
  34     BUGS
  35
  36     SEE ALSO
  37
  38     INTERNALS
  39
  40     HISTORY
  41
  42 ******************************************************************************/
  43
  44         #include "machine.i"
  45
  46         .text
  47         .balign 4
  48         .globl  AROS_SLIB_ENTRY(CacheControl,Exec)
  49         .type   AROS_SLIB_ENTRY(CacheControl,Exec),@function
  50 AROS_SLIB_ENTRY(CacheControl,Exec):
  51         /* Simple 68000s have no chaches */
  52         rts
  53