Return to userboot.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / openbios / forth / admin

Annotation of qemu/roms/openbios/forth/admin/userboot.fs, revision 1.1.1.1

1.1       root        1: \ 7.4.3.5 User commands for booting
                      2: 
                      3: : boot         ( "{param-text}<cr>" -- )
                      4:   linefeed parse
                      5: 
                      6:   \ Copy NVRAM parameters from boot-file to bootargs in case any parameters have
                      7:   \ been specified for the platform-specific boot code
                      8:   s" boot-file" $find drop execute
                      9:   encode-string
                     10:   " /chosen" (find-dev) if
                     11:     " bootargs" rot (property)
                     12:   then
                     13: 
                     14:   \ Execute platform-specific boot code, e.g. kernel
                     15:   s" platform-boot" $find if 
                     16:     execute            
                     17:   then
                     18: 
                     19:   (encode-bootpath)    \ Setup bootpath/bootargs
                     20:   $load                        \ load and go
                     21:   go
                     22: ;
                     23: 
                     24: 
                     25: \ : diagnostic-mode?    ( -- diag? )
                     26: \   ;
                     27: 
                     28: \ : diag-switch?    ( -- diag? )
                     29: \   ;

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