Initial import of abandoned HQEMU version 2.5.2HEADmaster

1 files changed, 30 insertions, 0 deletions

diff --git a/src/roms/openbios/forth/device/builtin.fs b/src/roms/openbios/forth/device/builtin.fs
new file mode 100644
index 0000000..aaefba8
--- /dev/null
+++ b/src/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!