mirror of
https://gitlab.com/qemu-project/openbios.git
synced 2024-02-13 08:34:06 +08:00
5c9eb9b45b
git-svn-id: svn://coreboot.org/openbios/openbios-devel@1 f158a5a8-5612-0410-a976-696ce0be7e32
33 lines
579 B
Forth
33 lines
579 B
Forth
\ tag: builtin devices
|
|
\
|
|
\ this code implements IEEE 1275-1994
|
|
\
|
|
\ Copyright (C) 2003 Stefan Reinauer
|
|
\
|
|
\ See the file "COPYING" for further information about
|
|
\ the copyright and warranty status of this work.
|
|
\
|
|
|
|
\ nodes it's children:
|
|
|
|
" /" find-device
|
|
|
|
new-device
|
|
" builtin" device-name
|
|
external
|
|
: open true ;
|
|
: close ;
|
|
|
|
new-device
|
|
" console" device-name
|
|
external
|
|
: open true ;
|
|
: close ;
|
|
: write dup >r bounds ?do i c@ (emit) loop r> ;
|
|
: read dup >r bounds ?do (key) i c! loop r> ;
|
|
finish-device
|
|
|
|
\ clean up afterwards
|
|
finish-device
|
|
0 active-package!
|