version 1.1, 2001/03/28 09:06:57
|
version 1.3, 2003/02/25 22:58:48
|
Line 20
|
Line 20
|
|
|
require see.fs |
require see.fs |
|
|
: simple-see-range ( addr1 addr2 -- ) |
: simple-see-range ( addr1 addr2 -- ) \ gforth |
swap u+do |
swap u+do |
cr i hex. i cell+ i @ .word drop |
cr xpos off i hex. i cell+ i @ .word drop |
cell +loop |
cell +loop |
; |
; |
|
|
: simple-see ( "name" -- ) |
: simple-see ( "name" -- ) \ gforth |
|
\G a simple decompiler that's closer to @code{dump} than @code{see}. |
\ !! at the moment NEXT-HEAD is a little too optimistic (see |
\ !! at the moment NEXT-HEAD is a little too optimistic (see |
\ comment in HEAD?) |
\ comment in HEAD?) |
' >body dup next-head simple-see-range ; |
' >body dup next-head simple-see-range ; |