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     ! 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.