Return to init.fs CVS log

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

Annotation of qemu/roms/openbios/arch/amd64/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: " /" find-device
                      8: 
                      9: new-device
                     10:   " memory" device-name
                     11:   \ 12230 encode-int " reg" property
                     12:   external
                     13:   : open true ;
                     14:   : close ;
                     15:   \ claim ( phys size align -- base )
                     16:   \ release ( phys size -- )
                     17: finish-device
                     18: 
                     19: new-device
                     20:   " cpus" device-name
                     21:   1 " #address-cells" int-property
                     22:   0 " #size-cells" int-property
                     23: 
                     24:   external
                     25:   : open true ;
                     26:   : close ;
                     27:   : decode-unit parse-hex ;
                     28: 
                     29: finish-device
                     30: 
                     31: : make-openable ( path )
                     32:   find-dev if
                     33:     begin ?dup while
                     34:       \ install trivial open and close methods
                     35:       dup active-package! is-open
                     36:       parent
                     37:     repeat
                     38:   then
                     39: ;
                     40: 
                     41: : preopen ( chosen-str node-path )
                     42:   2dup make-openable
                     43:     
                     44:   " /chosen" find-device
                     45:   open-dev ?dup if
                     46:     encode-int 2swap property
                     47:   else
                     48:     2drop
                     49:   then
                     50: ;
                     51:  
                     52: :noname
                     53:   set-defaults
                     54: ; SYSTEM-initializer
                     55: 
                     56: \ preopen device nodes (and store the ihandles under /chosen)
                     57: :noname
                     58:   " memory" " /memory" preopen
                     59:   " mmu" " /cpus/@0" preopen
                     60:   " stdout" " /builtin/console" preopen
                     61:   " stdin" " /builtin/console" preopen
                     62: 
                     63: ; SYSTEM-initializer
                     64: 
                     65: \ use the tty interface if available
                     66: :noname
                     67:   " /builtin/console" find-dev if drop
                     68:     " /builtin/console" " input-device" $setenv
                     69:     " /builtin/console" " output-device" $setenv
                     70:   then
                     71: ; SYSTEM-initializer
                     72:            
                     73: :noname
                     74:   " keyboard" input
                     75: ; CONSOLE-IN-initializer
                     76:   

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