initial import of openbios--main--1.0--patch-26

git-svn-id: svn://coreboot.org/openbios/openbios-devel@1 f158a5a8-5612-0410-a976-696ce0be7e32

forth/debugging/firmware.fs

@@ -0,0 +1,83 @@
+\ 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< >" -- )
+  ;
+  
+: (debug    ( xt -- )
+  ;
+  
+: stepping    ( -- )
+  ;
+  
+: tracing    ( -- )
+  ;
+  
+: debug-off    ( -- )
+  ;
+  
+: resume    ( -- )
+  ;
+