mirror of
https://gitlab.com/qemu-project/openbios.git
synced 2024-02-13 08:34:06 +08:00
31 lines
652 B
Forth
31 lines
652 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
|
||
|
|
|
||
|
|
;
|
||
|
|
|
||
|
|
|