mirror of
https://gitlab.com/qemu-project/openbios.git
synced 2024-02-13 08:34:06 +08:00
a757800a01
git-svn-id: svn://coreboot.org/openbios/openbios-devel@285 f158a5a8-5612-0410-a976-696ce0be7e32
29 lines
650 B
Forth
29 lines
650 B
Forth
\ tag: initialize builtin functionality
|
|
\
|
|
\ Copyright (C) 2003 Stefan Reinauer
|
|
\
|
|
\ See the file "COPYING" for further information about
|
|
\ the copyright and warranty status of this work.
|
|
\
|
|
|
|
|
|
|
|
: init-builtin-terminal ( -- )
|
|
|
|
\ define key, key? and emit
|
|
['] (key) ['] key (to)
|
|
['] (key?) ['] key? (to)
|
|
['] (emit) ['] emit (to)
|
|
|
|
\ 2 bytes band guard on each side
|
|
100 #ib !
|
|
#ib @ dup ( -- ibs ibs )
|
|
cell+ alloc-mem ( -- ibs addr )
|
|
dup -rot ( -- addr ibs addr )
|
|
|
|
/w + ['] ib (to) \ assign input buffer
|
|
0 fill \ erase tib
|
|
0 ['] source-id (to) \ builtin terminal has id 0
|
|
|
|
;
|