summaryrefslogtreecommitdiffstats
path: root/qemu/roms/SLOF/board-js2x/slof/ipmi-vpd.fs
diff options
context:
space:
mode:
Diffstat (limited to 'qemu/roms/SLOF/board-js2x/slof/ipmi-vpd.fs')
-rw-r--r--qemu/roms/SLOF/board-js2x/slof/ipmi-vpd.fs98
1 files changed, 0 insertions, 98 deletions
diff --git a/qemu/roms/SLOF/board-js2x/slof/ipmi-vpd.fs b/qemu/roms/SLOF/board-js2x/slof/ipmi-vpd.fs
deleted file mode 100644
index bfb3e5014..000000000
--- a/qemu/roms/SLOF/board-js2x/slof/ipmi-vpd.fs
+++ /dev/null
@@ -1,98 +0,0 @@
-\ *****************************************************************************
-\ * 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
-\ ****************************************************************************/
-
-: vpd-read-bootlist ( -- )
- 837 4 vpd-bootlist rtas-read-vpd IF vpd-bootlist 4 erase THEN
-;
-
-: vpd-write-bootlist ( offset len data -- )
- 837 4 vpd-bootlist rtas-write-vpd
-;
-
-: .vpd-machine-type
- e 7 vpd-cb rtas-read-vpd drop
- 0 vpd-cb 7 + c!
- vpd-cb zcount type
-;
-
-: .vpd-machine-serial
- 15 7 vpd-cb rtas-read-vpd drop
- 0 vpd-cb 7 + c!
- vpd-cb zcount type
-;
-
-: .vpd-card-serial
- 54 6 vpd-cb rtas-read-vpd drop
- 0 vpd-cb 6 + c!
- vpd-cb zcount type
-;
-: .vpd-cardprefix-serial
- 5a 6 vpd-cb rtas-read-vpd drop
- 0 vpd-cb 6 + c!
- vpd-cb zcount type
-;
-
-: .vpd-hw-revision
- 65 1 vpd-cb rtas-read-vpd drop
- vpd-cb c@ .
-;
-
-: .vpd-part-number
- 3c c vpd-cb rtas-read-vpd drop
- vpd-cb c type
-;
-
-: .vpd-fru-number
- 48 c vpd-cb rtas-read-vpd drop
- vpd-cb c type
-;
-
-: .vpd-manufacturer-date
- 6b 4 vpd-cb rtas-read-vpd drop
- 0 vpd-cb 4 + c!
- vpd-cb zcount type
-;
-
-: .vpd-uuid
- 9f 10 vpd-cb rtas-read-vpd drop
- 10 0 do i vpd-cb + c@ 2 0.r loop
-;
-
-: vpd-read-model ( -- addr len )
- 60 4 vpd-cb rtas-read-vpd drop vpd-cb 4 -leading s" ," $cat
- e 7 vpd-cb rtas-read-vpd drop vpd-cb 4 $cat s" -" $cat vpd-cb 4 + 3 $cat
-;
-
-: .vpd
- ." ===================== VPD ====================="
- cr ." Machine Type : " .vpd-machine-type
- cr ." Machine Serial No. : " .vpd-machine-serial
- cr ." Hardware Revision : " .vpd-hw-revision
- cr ." Manuf. Date : " .vpd-manufacturer-date
- cr ." Part Number : " .vpd-part-number
- cr ." FRU Number : " .vpd-fru-number
- cr ." FRU Serial No. : " .vpd-cardprefix-serial .vpd-card-serial
- cr ." UUID : " .vpd-uuid
-;
-
-: vpd-write-revision-and-build-id ( -- )
- 406 24 vpd-cb rtas-read-vpd drop 0
- vpd-cb 1a + zcount bdate2human drop a string=ci 0=
- IF bdate2human drop a vpd-cb 1a + zplace drop 1 THEN
- vpd-cb zcount slof-revision string=ci 0=
- IF slof-revision vpd-cb zplace drop 1 THEN
- vpd-cb 4 + zcount slof-build-id string=ci 0=
- IF slof-build-id vpd-cb 4 + rzplace drop 1 THEN
- 1 = IF 406 24 vpd-cb rtas-write-vpd drop THEN
-;
-
-vpd-write-revision-and-build-id