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

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Exec function GetCC
   6     Lang: english
   7 */
   8
   9 /******************************************************************************
  10
  11     NAME
  12         AROS_LH0(void, GetCC,
  13
  14     LOCATION
  15         struct ExecBase *, SysBase, 88, 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(GetCC,Exec)
  42         .type   AROS_SLIB_ENTRY(GetCC,Exec),@function
  43 AROS_SLIB_ENTRY(GetCC,Exec):
  44         /* This should be implemented in the jump table for speed. */
  45         move    %ccr,%d0
  46         rts
  47