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     ! 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.