arch/m68k-amiga/exec/shutdowna.c

   1 /*
   2     Copyright © 1995-2009, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: ShutdownA() - Shut down the operating system.
   6     Lang: english
   7 */
   8
   9 #include <aros/debug.h>
  10 #include <proto/exec.h>
  11
  12 #include "exec_util.h"
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17
  18         AROS_LH1(ULONG, ShutdownA,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(ULONG, action, D0),
  22
  23 /*  LOCATION */
  24         struct ExecBase *, SysBase, 173, Exec)
  25
  26 /*  FUNCTION
  27         This function will shut down the operating system.
  28
  29     INPUTS
  30         action - what to do:
  31          * SD_ACTION_POWEROFF   - power off the machine.
  32          * SD_ACTION_COLDREBOOT - cold reboot the machine (not only AROS).
  33
  34     RESULT
  35         This function does not return in case of success. Otherwise is returns
  36         zero.
  37
  38     NOTES
  39         It can be quite harmful to call this function. It may be possible that
  40         you will lose data from other tasks not having saved, or disk buffers
  41         not being flushed. Plus you could annoy the (other) users.
  42
  43     EXAMPLE
  44
  45     BUGS
  46
  47     SEE ALSO
  48         ColdReboot()
  49
  50 ******************************************************************************/
  51 {
  52     AROS_LIBFUNC_INIT
  53
  54     switch (action) {
  55     case SD_ACTION_POWEROFF:
  56     {
  57         /* No stock Amiga hardware is known to support this.
  58          * Emulation will support it (unless high compatibility setting enabled). */
  59         typedef ULONG (*UAELIBFUNC)(ULONG);
  60         UAELIBFUNC uaelibfunc = NULL;
  61         APTR uaeres;
  62
  63         uaeres = OpenResource("uae.resource");
  64         if (uaeres) { /* new method that allows dynamic UAE ROM location */
  65             uaelibfunc = AROS_LVO_CALL1(APTR,
  66                 AROS_LCA(UBYTE*, "uaelib_demux", A0),
  67                 APTR, uaeres, 1, );
  68         }
  69         if (uaelibfunc == NULL) {
  70             /* old-style absolute address */
  71             uaelibfunc = (UAELIBFUNC)(0x00F00000 + 0xFF60);
  72             if ((((ULONG*)uaelibfunc)[0] & 0xff00ffff) != 0xa0004e75)
  73                 uaelibfunc = NULL;
  74         }
  75         if (uaelibfunc) {
  76             uaelibfunc(13);
  77             /* This may return. Quits when next vblank arrives */
  78             for(;;)
  79                 ;
  80         }
  81         break;
  82     }
  83     case SD_ACTION_COLDREBOOT:
  84         ColdReboot();
  85         break;
  86     }
  87
  88     return -1;
  89
  90     AROS_LIBFUNC_EXIT
  91 }