Return to main.fs CVS log

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

Annotation of qemu/roms/openbios/forth/system/main.fs, revision 1.1

1.1     ! root        1: \ tag: misc useful functions
        !             2: \ 
        !             3: \ Open Firmware Startup
        !             4: \ 
        !             5: \ Copyright (C) 2003 Samuel Rydh
        !             6: \ 
        !             7: \ See the file "COPYING" for further information about
        !             8: \ the copyright and warranty status of this work.
        !             9: \ 
        !            10: 
        !            11: variable PREPOST-list
        !            12: variable POST-list
        !            13: variable SYSTEM-list
        !            14: variable DIAG-list
        !            15: 
        !            16: : PREPOST-initializer ( xt -- )
        !            17:   PREPOST-list list-add ,
        !            18: ;
        !            19: 
        !            20: : POST-initializer ( xt -- )
        !            21:   POST-list list-add ,
        !            22: ;
        !            23: 
        !            24: : SYSTEM-initializer ( xt -- )
        !            25:   SYSTEM-list list-add ,
        !            26: ;
        !            27: 
        !            28: : DIAG-initializer ( xt -- )
        !            29:   DIAG-list list-add ,
        !            30: ;
        !            31: 
        !            32: 
        !            33: \ OpenFirmware entrypoint
        !            34: : initialize-of ( startmem endmem -- )
        !            35:   initialize-forth
        !            36: 
        !            37:   PREPOST-list begin list-get while @ execute repeat
        !            38:   POST-list begin list-get while @ execute repeat
        !            39:   SYSTEM-list begin list-get while @ execute repeat
        !            40: 
        !            41:   \ evaluate nvramrc script
        !            42:   use-nvramrc? if
        !            43:     nvramrc evaluate
        !            44:   then
        !            45: 
        !            46:   \ probe-all etc.
        !            47:   suppress-banner? 0= if
        !            48:     probe-all
        !            49:     install-console
        !            50:     banner
        !            51:   then
        !            52: 
        !            53:   DIAG-list begin list-get while @ execute repeat
        !            54: 
        !            55:   auto-boot? if
        !            56:     boot-command evaluate
        !            57:   then
        !            58: 
        !            59:   outer-interpreter
        !            60: ;

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