1 files changed, 0 insertions, 49 deletions
diff --git a/qemu/roms/openbios/forth/admin/selftest.fs b/qemu/roms/openbios/forth/admin/selftest.fs
deleted file mode 100644
index 20c0c963b..000000000
--- a/qemu/roms/openbios/forth/admin/selftest.fs
+++ /dev/null
@@ -1,49 +0,0 @@
-\ tag: self-test
-\ 
-\ this code implements IEEE 1275-1994 ch. 7.4.8
-\ 
-\ Copyright (C) 2003 Stefan Reinauer
-\ 
-\ See the file "COPYING" for further information about
-\ the copyright and warranty status of this work.
-\ 
-
-\ 
-\ 7.4.8    Self-test
-\ 
-
-: $test ( devname-addr devname-len -- )
-  2dup ." Testing device " type ." : "
-  find-dev if
-    s" self-test" rot find-method if
-      execute
-    else 
-      ." no self-test method."
-    then
-  else
-    ." no such device."
-  then
-  cr
-;
-
-: test    ( "device-specifier<cr>"-- )
-  linefeed parse cr $test
-  ;
-  
-: test-sub-devs
-  >dn.child @
-  begin dup while
-    dup get-package-path $test
-    dup recurse
-    >dn.peer @
-  repeat
-  drop
-;
-  
-: test-all    ( "{device-specifier}<cr>" -- )
-  active-package
-  cr " /" find-device
-  linefeed parse find-device
-  ?active-package test-sub-devs
-  active-package!
-  ;