Return to start.fs CVS log

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

Annotation of qemu/roms/openbios/forth/bootstrap/start.fs, revision 1.1

1.1     ! root        1: \ tag: forth bootstrap starter.
        !             2: \ 
        !             3: \ Copyright (C) 2003 Patrick Mauritz, Stefan Reinauer
        !             4: \ 
        !             5: \ See the file "COPYING" for further information about
        !             6: \ the copyright and warranty status of this work.
        !             7: \ 
        !             8: 
        !             9: include bootstrap.fs        \ all base words
        !            10: include interpreter.fs      \ interpreter
        !            11: include builtin.fs          \ builtin terminal.
        !            12: 
        !            13: : include ( >filename<eol> -- )
        !            14:   linefeed parse $include
        !            15: ;
        !            16: 
        !            17: : encode-file ( >filename< > -- dictptr size )
        !            18:   parse-word $encode-file
        !            19: ;
        !            20: 
        !            21: : bye 
        !            22:   s" Farewell!" cr type cr cr 
        !            23:   0 rdepth! 
        !            24:   ;
        !            25: 
        !            26: \ quit starts the outer interpreter of the forth system.
        !            27: \ zech describes quit as being the outer interpreter, but
        !            28: \ we split it apart to keep the interpreter elsewhere.
        !            29: 
        !            30: : quit                      ( -- )
        !            31:   2 rdepth!
        !            32:   outer-interpreter
        !            33: ;
        !            34: 
        !            35: \ initialize is the first forth word run by the kernel.
        !            36: \ this word is automatically executed by the C core on start 
        !            37: \ and it's never left unless something goes really wrong or
        !            38: \ the user decides to leave the engine.
        !            39: 
        !            40: variable init-chain
        !            41: 
        !            42: \ :noname <definition> ; initializer
        !            43: : initializer ( xt -- )
        !            44:   here swap , 0 ,            \ xt, next
        !            45:   init-chain
        !            46:   begin dup @ while @ na1+ repeat
        !            47:   !
        !            48: ;
        !            49: 
        !            50: : initialize-forth          ( startmem endmem -- )
        !            51:   over - init-mem
        !            52:   init-pockets
        !            53:   init-tmp-comp
        !            54:   init-builtin-terminal
        !            55: 
        !            56:   init-chain @              \ execute initializers
        !            57:   begin dup while
        !            58:     dup @ execute
        !            59:     na1+ @
        !            60:   repeat
        !            61:   drop
        !            62: ;
        !            63: 
        !            64: \ compiler entrypoint
        !            65: : initialize                ( startmem endmem -- )
        !            66:   initialize-forth
        !            67:   s" OpenBIOS kernel started." type cr
        !            68:   quit
        !            69: ;

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