( DUMP                              dump contents of n address )

need ascii
: dump                            ( addr n --- )
  0 base @ >r hex
  do cr dup i + dup
    0 6 d.r 2 spaces dup 8 0 do dup i + c@ 3 .r loop
    drop space dup 8 + 8 0   do dup i + c@ 3 .r loop
    drop 3 spaces 16 0
    do dup i + c@ dup bl < over ascii ~ > or
      if drop ascii . endif emit
    loop drop 16
    ?terminal if leave endif
  +loop
  drop cr r> base !
;