VolksForth/tools/dumpblock.fth
2020-07-20 23:47:02 +02:00

15 lines
278 B
Forth
Executable File

: fb2fth ( u -- )
dup scr !
." \ *** Block No. " base @ decimal scr @ dup . ." Hexblock " hex . base ! cr
l/s 0 ?do
scr @ block i c/l * chars + c/l type cr
loop ;
: bdump 0 do i fb2fth loop ;
get-block-fid file-size drop drop 1024 /
bdump
bye