Return to pearpc.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / openbios / arch / ppc / pearpc

Annotation of qemu/roms/openbios/arch/ppc/pearpc/pearpc.fs, revision 1.1

1.1     ! root        1: \   pearpc specific initialization code
        !             2: \ 
        !             3: \   Copyright (C) 2005 Stefan Reinauer
        !             4: \ 
        !             5: \   This program is free software; you can redistribute it and/or
        !             6: \   modify it under the terms of the GNU General Public License
        !             7: \   as published by the Free Software Foundation
        !             8: \ 
        !             9: 
        !            10: 
        !            11: \ -------------------------------------------------------------------------
        !            12: \ initialization
        !            13: \ -------------------------------------------------------------------------
        !            14: 
        !            15: : make-openable ( path )
        !            16:   find-dev if
        !            17:     begin ?dup while
        !            18:       \ install trivial open and close methods
        !            19:       dup active-package! is-open
        !            20:       parent
        !            21:     repeat
        !            22:   then
        !            23: ;
        !            24: 
        !            25: : preopen ( chosen-str node-path )
        !            26:   2dup make-openable
        !            27:   
        !            28:   " /chosen" find-device
        !            29:   open-dev ?dup if
        !            30:     encode-int 2swap property
        !            31:   else
        !            32:     2drop
        !            33:   then
        !            34: ;
        !            35: 
        !            36: \ preopen device nodes (and store the ihandles under /chosen)
        !            37: :noname
        !            38:   " rtc" " /pci/isa/rtc" preopen
        !            39:   " memory" " /memory" preopen
        !            40:   " mmu" " /cpu@0" preopen
        !            41:   \ " stdout" " /packages/terminal-emulator" preopen
        !            42:   " stdout" " /pci/pci6666,6666" preopen
        !            43:   " stdin" " /pci/via-cuda/adb" preopen
        !            44: 
        !            45: ; SYSTEM-initializer
        !            46: 
        !            47: 
        !            48: \ -------------------------------------------------------------------------
        !            49: \ device tree fixing
        !            50: \ -------------------------------------------------------------------------
        !            51: 
        !            52: \ add decode-address methods
        !            53: : (make-decodable) ( phandle -- )
        !            54: 
        !            55:     dup " #address-cells" rot get-package-property 0= if
        !            56:       decode-int nip nip
        !            57:       over " decode-unit" rot find-method if 2drop else
        !            58:         ( save phandle ncells )
        !            59:       
        !            60:         over active-package!
        !            61:         case
        !            62:           1 of ['] parse-hex " decode-unit" is-xt-func endof
        !            63:           3 of
        !            64:             " bus-range" active-package get-package-property 0= if
        !            65:               decode-int nip nip
        !            66:               ['] encode-unit-pci " encode-unit" is-xt-func
        !            67:               " decode-unit" is-func-begin
        !            68:                 ['] (lit) , ,
        !            69:                 ['] decode-unit-pci-bus ,
        !            70:               is-func-end
        !            71:             then
        !            72:           endof
        !            73:         endcase
        !            74:       then
        !            75:     then
        !            76:     drop
        !            77: ;
        !            78:     
        !            79: : init-pearpc-tree ( -- )
        !            80:   active-package
        !            81:   
        !            82:   iterate-tree-begin
        !            83:   begin ?dup while
        !            84: 
        !            85:     dup (make-decodable)
        !            86:     
        !            87:     iterate-tree
        !            88:   repeat
        !            89: 
        !            90:   active-package!
        !            91: ;
        !            92: 
        !            93: \ use the tty interface if available
        !            94: : activate-tty-interface
        !            95:   " /packages/terminal-emulator" find-dev if drop
        !            96:     " /pci/via-cuda/adb" " input-device" $setenv
        !            97:     " /pci/pci6666,6666" " output-device" $setenv
        !            98:   then
        !            99: ;
        !           100: 
        !           101: :noname
        !           102:   " keyboard" input
        !           103: ; CONSOLE-IN-initializer
        !           104: 
        !           105: 
        !           106: \ -------------------------------------------------------------------------
        !           107: \ pre-booting
        !           108: \ -------------------------------------------------------------------------
        !           109: 
        !           110: : update-chosen
        !           111:   " /chosen" find-device
        !           112:   stdin @ encode-int " stdin" property
        !           113:   stdout @ encode-int " stdout" property
        !           114:   " /pci/isa/interrupt-controller" find-dev if encode-int " interrupt-controller" property then
        !           115:   device-end
        !           116: ;

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