qemu/roms/SLOF/lib/libbases/libbases.code

   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 #include <southbridge.h>
  13 #include <nvram.h>
  14
  15 // : get-nvram-base ( -- base )
  16 PRIM(get_X2d_nvram_X2d_base)
  17         PUSH;
  18         TOS.u = SB_NVRAM_adr;
  19 MIRP
  20
  21 // : get-nvram-size ( -- size )
  22 PRIM(get_X2d_nvram_X2d_size)
  23         PUSH;
  24         TOS.u = get_nvram_size();
  25 MIRP
  26
  27 // : get-flash-base ( -- base )
  28 PRIM(get_X2d_flash_X2d_base)
  29         PUSH;
  30         TOS.u = SB_FLASH_adr;
  31 MIRP
  32
  33 // : get-flash-size ( -- size )
  34 PRIM(get_X2d_flash_X2d_size)
  35         PUSH;
  36         TOS.u = FLASH_LENGTH;
  37 MIRP
  38
  39 // : get-mbx-base ( -- base )
  40 PRIM(get_X2d_mbx_X2d_base)
  41         PUSH;
  42         TOS.u = SB_MAILBOX_adr;
  43 MIRP