summaryrefslogtreecommitdiffstats
path: root/qemu/roms/openbios/forth/device/builtin.fs
diff options
context:
space:
mode:
Diffstat (limited to 'qemu/roms/openbios/forth/device/builtin.fs')
-rw-r--r--qemu/roms/openbios/forth/device/builtin.fs30
1 files changed, 0 insertions, 30 deletions
diff --git a/qemu/roms/openbios/forth/device/builtin.fs b/qemu/roms/openbios/forth/device/builtin.fs
deleted file mode 100644
index aaefba87b..000000000
--- a/qemu/roms/openbios/forth/device/builtin.fs
+++ /dev/null
@@ -1,30 +0,0 @@
-\ 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!