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
10 \ * IBM Corporation - initial implementation
11 \ ****************************************************************************/
14 \ IPMI KCS interface to the BMC.
22 create descr-buf 100 allot
24 : rtas-get-bmc-version ( -- adr len )
25 descr-buf 100 rtas-get-blade-descr ( len status )
29 descr-buf 9 + swap 11 - ( adr len )
33 ' rtas-get-bmc-version to bmc-version
35 s" system-controller" 2dup device-name device-type
36 \ s" IBM,BMC." get-build-name $cat encode-string s" model" property
37 \ s" IBM,BMC.12345" encode-string s" model" property
38 s" IBM,BMC." bmc-version $cat encode-string s" model" property
39 0 0 s" ranges" property
46 s" ipmi" 2dup device-name device-type
47 s" ipmi-kcs" compatible
49 1 encode-int ca8 encode-int+ 1 encode-int+ s" reg" property
50 4 encode-int s" reg-spacing" property
51 s" IBM,BMC." bmc-version $cat encode-string s" model" property
53 s" ipmi" get-node node>path set-alias