qemu/roms/SLOF/slof/fs/rtas/rtas-reboot.fs

   1 \ *****************************************************************************
   2 \ * Copyright (c) 2004, 2008 IBM Corporation
   3 \ * All rights reserved.
   4 \ * This program and the accompanying materials
   5 \ * are made available under the terms of the BSD License
   6 \ * which accompanies this distribution, and is available at
   7 \ * http://www.opensource.org/licenses/bsd-license.php
   8 \ *
   9 \ * Contributors:
  10 \ *     IBM Corporation - initial implementation
  11 \ ****************************************************************************/
  12
  13 : rtas-power-off   ( x y -- status )
  14    [ s" power-off" rtas-get-token ] LITERAL rtas-cb rtas>token l!
  15    2 rtas-cb rtas>nargs l!
  16    1 rtas-cb rtas>nret l!
  17    rtas-cb rtas>args0 l!
  18    rtas-cb rtas>args1 l!
  19    enter-rtas
  20    rtas-cb rtas>args2 l@
  21 ;
  22
  23 : power-off  ( -- )  0 0 rtas-power-off ;
  24
  25
  26 : rtas-system-reboot  ( -- status )
  27    [ s" system-reboot" rtas-get-token ] LITERAL rtas-cb rtas>token l!
  28    0 rtas-cb rtas>nargs l!
  29    1 rtas-cb rtas>nret l!
  30    rtas-cb rtas>args0 l!
  31    enter-rtas
  32    rtas-cb rtas>args1 l@
  33 ;