// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
// This is an extended memory dump (BDUMP) 
// does a 256 (16 x 16) block
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

// ============ dump ======================
// (char---)
: ascii.
    dup 32 127 between
    if emit else drop [char] . emit then
;    
// prints the ascii part
// ( addr ---)
: ascii16.
    dup 16 + swap
    do
        i c@ ascii.
    loop
;        
// prints the hex part
// ( addr---)
: hex16.
    dup 16 + swap
    do
        i c@ <# # # #> stype space
    loop
;
//
: dumpHead
    ." Address  "
    16 for
        i <# # # #> stype space
    next
;
variable basehold        
// given an address will dump contents, leaves address ready
// for next dump.
: <0>bdump ( addr --- addr+256 )
    base @ basehold ! hex
    dumpHead cr
    16 for
        dup <# # # # # # # # # #> stype space
        dup hex16. dup space ascii16.
        16 + cr
    next
    basehold @ base !
;