diff options
Diffstat (limited to 'qemu/roms/openbios/forth/debugging/firmware.fs')
-rw-r--r-- | qemu/roms/openbios/forth/debugging/firmware.fs | 90 |
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? - ; |