qemu/roms/SLOF/board-js2x/slof/io.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 \ I/O accesses.
  14
  15 \ Legacy I/O accesses.
  16 : >io  f4000000 + ;
  17
  18 : io-c!  >io rb! ;
  19 : io-c@  >io rb@ ;
  20
  21 : io-w!  >io rw! ;
  22 : io-w@  >io rw@ ;
  23
  24 \ Accessing the SIO config registers.
  25 : siocfg!  2e io-c! 2f io-c! ;
  26 : siocfg@  2e io-c! 2f io-c@ ;