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

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.