Initial import of qemu-2.4.1HEADmaster

1 files changed, 26 insertions, 0 deletions

diff --git a/roms/SLOF/board-js2x/slof/io.fs b/roms/SLOF/board-js2x/slof/io.fs
new file mode 100644
index 00000000..f3889840
--- /dev/null
+++ b/roms/SLOF/board-js2x/slof/io.fs
@@ -0,0 +1,26 @@
+\ *****************************************************************************
+\ * Copyright (c) 2004, 2008 IBM Corporation
+\ * All rights reserved.
+\ * This program and the accompanying materials
+\ * are made available under the terms of the BSD License
+\ * which accompanies this distribution, and is available at
+\ * http://www.opensource.org/licenses/bsd-license.php
+\ *
+\ * Contributors:
+\ *     IBM Corporation - initial implementation
+\ ****************************************************************************/
+
+\ I/O accesses.
+
+\ Legacy I/O accesses.
+: >io  f4000000 + ;
+
+: io-c!  >io rb! ;
+: io-c@  >io rb@ ;
+
+: io-w!  >io rw! ;
+: io-w@  >io rw@ ;
+
+\ Accessing the SIO config registers.
+: siocfg!  2e io-c! 2f io-c! ;
+: siocfg@  2e io-c! 2f io-c@ ;