1 files changed, 57 insertions, 0 deletions
diff --git a/roms/SLOF/board-js2x/slof/ipmi-kcs.fs b/roms/SLOF/board-js2x/slof/ipmi-kcs.fs
new file mode 100644
index 000000000..cf9d5af5a
--- /dev/null
+++ b/roms/SLOF/board-js2x/slof/ipmi-kcs.fs
@@ -0,0 +1,57 @@
+\ *****************************************************************************
+\ * 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
+\ ****************************************************************************/
+
+
+\ IPMI KCS interface to the BMC.
+
+new-device
+   ca8 1 set-unit
+
+   : open true ;
+   : close ;
+
+   create descr-buf 100 allot
+
+   : rtas-get-bmc-version ( -- adr len )
+      descr-buf 100 rtas-get-blade-descr   ( len status )
+      IF
+         drop 0 0
+      ELSE
+         descr-buf 9 + swap 11 -               ( adr len )
+      THEN
+   ;
+
+   ' rtas-get-bmc-version to bmc-version
+
+   s" system-controller" 2dup device-name device-type
+   \ s" IBM,BMC." get-build-name $cat encode-string s" model" property
+   \ s" IBM,BMC.12345" encode-string s" model" property
+   s" IBM,BMC." bmc-version $cat encode-string s" model" property
+   0 0 s" ranges" property
+
+   new-device
+
+      : open true ;
+      : close ;
+
+      s" ipmi" 2dup device-name device-type
+      s" ipmi-kcs" compatible
+
+      1 encode-int ca8 encode-int+ 1 encode-int+ s" reg" property
+      4 encode-int s" reg-spacing" property
+      s" IBM,BMC." bmc-version $cat encode-string s" model" property
+
+      s" ipmi"  get-node node>path set-alias
+
+   finish-device
+
+finish-device