| |
|
| 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 ; |
