qemu/roms/SLOF/slof/fs/rtas/rtas-vpd.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-read-vpd  ( offset length data -- status )
  14    [ s" msg-read-vpd" rtas-get-token ] LITERAL rtas-cb rtas>token l!
  15    3 rtas-cb rtas>nargs l!
  16    1 rtas-cb rtas>nret l!
  17    rtas-cb rtas>args2 l!
  18    rtas-cb rtas>args1 l!
  19    rtas-cb rtas>args0 l!
  20    enter-rtas
  21    rtas-cb rtas>args3 l@
  22 ;
  23
  24 : rtas-write-vpd  ( offset length data -- status )
  25    [ s" msg-write-vpd" rtas-get-token ] LITERAL rtas-cb rtas>token l!
  26    3 rtas-cb rtas>nargs l!
  27    1 rtas-cb rtas>nret l!
  28    rtas-cb rtas>args2 l!
  29    rtas-cb rtas>args1 l!
  30    rtas-cb rtas>args0 l!
  31    enter-rtas
  32    rtas-cb rtas>args3 l@
  33 ;