Return to ipmi-vpd.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / board-js2x / slof

Annotation of qemu/roms/SLOF/board-js2x/slof/ipmi-vpd.fs, revision 1.1.1.1

1.1       root        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
                      8: \ *
                      9: \ * Contributors:
                     10: \ *     IBM Corporation - initial implementation
                     11: \ ****************************************************************************/
                     12: 
                     13: : vpd-read-bootlist  ( -- )
                     14:    837 4 vpd-bootlist rtas-read-vpd IF vpd-bootlist 4 erase THEN
                     15: ;
                     16: 
                     17: : vpd-write-bootlist  ( offset len data -- )
                     18:    837 4 vpd-bootlist rtas-write-vpd
                     19: ;
                     20: 
                     21: : .vpd-machine-type
                     22:        e 7 vpd-cb rtas-read-vpd drop
                     23:        0 vpd-cb 7 + c!
                     24:        vpd-cb zcount type
                     25: ;
                     26: 
                     27: : .vpd-machine-serial
                     28:        15 7 vpd-cb rtas-read-vpd drop
                     29:        0 vpd-cb 7 + c!
                     30:        vpd-cb zcount type
                     31: ;
                     32: 
                     33: : .vpd-card-serial
                     34:        54 6 vpd-cb rtas-read-vpd drop
                     35:        0 vpd-cb 6 + c!
                     36:        vpd-cb zcount type
                     37: ;
                     38: : .vpd-cardprefix-serial
                     39:        5a 6 vpd-cb rtas-read-vpd drop
                     40:        0 vpd-cb 6 + c!
                     41:        vpd-cb zcount type
                     42: ;
                     43: 
                     44: : .vpd-hw-revision
                     45:        65 1 vpd-cb rtas-read-vpd drop
                     46:        vpd-cb c@ .
                     47: ;
                     48: 
                     49: : .vpd-part-number
                     50:        3c c vpd-cb rtas-read-vpd drop
                     51:        vpd-cb c type
                     52: ;
                     53: 
                     54: : .vpd-fru-number
                     55:        48 c vpd-cb rtas-read-vpd drop
                     56:        vpd-cb c type
                     57: ;
                     58: 
                     59: : .vpd-manufacturer-date
                     60:        6b 4 vpd-cb rtas-read-vpd drop
                     61:        0 vpd-cb 4 + c!
                     62:        vpd-cb zcount type
                     63: ;
                     64: 
                     65: : .vpd-uuid
                     66:        9f 10 vpd-cb rtas-read-vpd drop
                     67:        10 0 do i vpd-cb + c@ 2 0.r loop
                     68: ;
                     69: 
                     70: : vpd-read-model  ( -- addr len )
                     71:    60 4 vpd-cb rtas-read-vpd drop vpd-cb 4 -leading s" ," $cat 
                     72:    e 7 vpd-cb rtas-read-vpd drop vpd-cb 4 $cat s" -" $cat vpd-cb 4 + 3 $cat
                     73: ;
                     74: 
                     75: : .vpd
                     76:        ." ===================== VPD =====================" 
                     77:        cr ." Machine Type        : " .vpd-machine-type
                     78:        cr ." Machine Serial No.  : " .vpd-machine-serial
                     79:        cr ." Hardware Revision   : " .vpd-hw-revision  
                     80:        cr ." Manuf. Date         : " .vpd-manufacturer-date
                     81:        cr ." Part Number         : " .vpd-part-number
                     82:        cr ." FRU Number          : " .vpd-fru-number
                     83:        cr ." FRU Serial No.      : " .vpd-cardprefix-serial .vpd-card-serial
                     84:        cr ." UUID                : " .vpd-uuid
                     85: ;
                     86: 
                     87: : vpd-write-revision-and-build-id  ( -- )
                     88:    406 24 vpd-cb rtas-read-vpd drop 0
                     89:    vpd-cb 1a + zcount bdate2human drop a string=ci 0=
                     90:    IF  bdate2human drop a vpd-cb 1a + zplace drop 1  THEN
                     91:    vpd-cb zcount slof-revision string=ci 0=
                     92:    IF  slof-revision vpd-cb zplace drop 1  THEN
                     93:    vpd-cb 4 + zcount slof-build-id string=ci 0=
                     94:    IF  slof-build-id vpd-cb 4 + rzplace drop 1  THEN
                     95:    1 =  IF  406 24 vpd-cb rtas-write-vpd drop  THEN
                     96: ;
                     97: 
                     98: vpd-write-revision-and-build-id

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.