Return to builtin.fs CVS log

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

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

1.1     ! root        1: \ tag: initialize builtin functionality
        !             2: \ 
        !             3: \ Copyright (C) 2003 Stefan Reinauer
        !             4: \ 
        !             5: \ See the file "COPYING" for further information about
        !             6: \ the copyright and warranty status of this work.
        !             7: \ 
        !             8: 
        !             9:  
        !            10: 
        !            11: : init-builtin-terminal  ( -- )
        !            12: 
        !            13:   \ define key, key? and emit
        !            14:   ['] (key) ['] key (to)
        !            15:   ['] (key?) ['] key? (to)
        !            16:   ['] (emit) ['] emit (to)
        !            17: 
        !            18:   \ 2 bytes band guard on each side
        !            19:   100 #ib !
        !            20:   #ib @ dup             ( -- ibs ibs )
        !            21:   cell+ alloc-mem       ( -- ibs addr )
        !            22:   dup -rot              ( -- addr ibs addr )
        !            23: 
        !            24:   /w + ['] ib (to)      \ assign input buffer
        !            25:   0 fill                \ erase tib
        !            26:   0 ['] source-id (to)  \ builtin terminal has id 0
        !            27: 
        !            28:   ;

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