1 files changed, 0 insertions, 90 deletions
diff --git a/qemu/roms/openbios/forth/debugging/firmware.fs b/qemu/roms/openbios/forth/debugging/firmware.fs
deleted file mode 100644
index 5e16a6c57..000000000
--- a/qemu/roms/openbios/forth/debugging/firmware.fs
+++ /dev/null
@@ -1,90 +0,0 @@
-\ 7.5 Firmware Debugging command group
-
-
-\ 7.5.1    Automatic stack display
-
-: (.s
-  depth 0 ?do
-    depth i - 1- pick .
-  loop
-  depth 0<> if ascii < emit space then
-  ;
-
-: showstack    ( -- )
-  ['] (.s to status
-  ;
-  
-: noshowstack    ( -- )
-  ['] noop to status
-  ;
-
-\ 7.5.2    Serial download
-
-: dl    ( -- )
-  ;
-
-  
-\ 7.5.3    Dictionary
-
-\ 7.5.3.1    Dictionary search
-: .calls    ( xt -- )
-  ;
-  
-: $sift    ( text-addr text-len -- )
-  ;
-  
-: sifting    ( "text< >" -- )
-  ;
-
-\ : words    ( -- )
-\   \ Implemented in forth bootstrap.
-\   ;
-
-  
-\ 7.5.3.2    Decompiler
-
-\ implemented in see.fs
-
-\ : see    ( "old-name< >" -- )
-\   ;
-  
-\ : (see)    ( xt -- )
-\   ;
-
-  
-\ 7.5.3.3    Patch
-
-: patch ( "new-name< >old-name< >word-to-patch< >" -- )
-  ;
-
-: (patch)    ( new-n1 num1? old-n2 num2? xt -- )
-  ;
-
-
-\ 7.5.3.4    Forth source-level debugger
- 
-: debug    ( "old-name< >" -- )
-  parse-word            \ Look up word CFA in dictionary
-  $find
-  0 = if
-    ." could not locate word for debugging"
-    2drop
-  else
-    (debug
-  then
-  ;
-  
-: stepping    ( -- )
-  ;
-  
-: tracing    ( -- )
-  ;
-  
-: debug-off    ( -- )
-  (debug-off)
-  ;
-  
-: resume    ( -- )
-  \ Set interpreter termination flag
-  1 to terminate?
-  ;