Return to init.fs CVS log

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

Annotation of qemu/roms/openbios/arch/sparc32/init.fs, revision 1.1

1.1     ! root        1: :noname
        !             2:   ."   Type 'help' for detailed information" cr
        !             3:   \ ."   boot secondary slave cdrom: " cr
        !             4:   \ ."    0 >  boot hd:2,\boot\vmlinuz root=/dev/hda2" cr
        !             5:   ; DIAG-initializer
        !             6: 
        !             7: : make-openable ( path )
        !             8:   find-dev if
        !             9:     begin ?dup while
        !            10:       \ install trivial open and close methods
        !            11:       dup active-package! is-open
        !            12:       parent
        !            13:     repeat
        !            14:   then
        !            15: ;
        !            16: 
        !            17: : preopen ( chosen-str node-path )
        !            18:   2dup make-openable
        !            19: 
        !            20:   " /chosen" find-device
        !            21:   open-dev ?dup if
        !            22:     encode-int 2swap property
        !            23:   else
        !            24:     2drop
        !            25:   then
        !            26: ;
        !            27: 
        !            28: :noname
        !            29:   set-defaults
        !            30: ; PREPOST-initializer
        !            31: 
        !            32: \ preopen device nodes (and store the ihandles under /chosen)
        !            33: :noname
        !            34:   " memory" " /memory" preopen
        !            35:   " mmu" " /cpus/@0" preopen
        !            36: ; SYSTEM-initializer
        !            37: 
        !            38: device-end
        !            39: 
        !            40: : rmap@    ( virt -- rmentry )
        !            41:   drop 0
        !            42:   ;
        !            43: 
        !            44: \ D5.3 SBus specific on-board memory address space
        !            45: : obmem ( -- space )
        !            46:   0
        !            47:   ;

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