Add qemu 2.4.0

[kvmfornfv.git] / qemu / roms / openbios / forth / device / builtin.fs

diff --git a/qemu/roms/openbios/forth/device/builtin.fs b/qemu/roms/openbios/forth/device/builtin.fs
new file mode 100644 (file)
index 0000000..aaefba8
--- /dev/null
+++ b/qemu/roms/openbios/forth/device/builtin.fs
@@ -0,0 +1,30 @@
+\ 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
+  : open true ;
+  : close ;
+
+new-device
+  " console" device-name
+  : 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!