: star 42 EMIT ;
: nstar 0 DO star LOOP ;
: dump DO HEX I @ ABS . CR 4 +LOOP CR DECIMAL ;


: dumpchar   ( low addr, top addr ...)
     SWAP CR DO I ABS HEX . CR SPACE 
     4 0 DO I J + C@ DUP . SPACE EMIT CR LOOP CR
     4 +LOOP ;

: 4chars  ( addr .. 4 bytes shown )
  HEX 4 0 DO DUP I + DUP . SPACE C@ EMIT CR LOOP ;
 

: showstar CR ' star NFA 32 +  ' star NFA 8 - dumpchar CR ;

: show ( low addr, top addr ..)
 SWAP  HEX DO I CR DUP . SPACE C@ DUP . SPACE EMIT LOOP CR ; 

: ?sprp S0 ? SP@ .  R0 ? RP@ . ;

EXIT

