Initial import of abandoned HQEMU version 2.5.2HEADmaster

1 files changed, 23 insertions, 0 deletions

diff --git a/src/roms/SLOF/board-js2x/slof/pci-capabilities.fs b/src/roms/SLOF/board-js2x/slof/pci-capabilities.fs
new file mode 100644
index 0000000..a50714a
--- /dev/null
+++ b/src/roms/SLOF/board-js2x/slof/pci-capabilities.fs
@@ -0,0 +1,23 @@
+\ *****************************************************************************
+\ * 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
+\ ****************************************************************************/
+
+\ -----------------------------------------------------------------------------
+\ Set the msi address for a device
+: pci-set-msi ( cap-addr -- )
+        drop
+;
+
+\ Set up all known capabilities for this board to the plugged devices
+: pci-set-capabilities ( config-addr -- )
+        dup 05 pci-cap-find ?dup IF pci-set-msi THEN
+        drop
+;